12-31
FILE INFORMATION
FILENAME(S): 12-31
FILE TYPE(S): PRG
FILE SIZE: 2.9K
FIRST SEEN: 2025-11-30 21:12:26
APPEARS ON: 2 disk(s)
FILE HASH
35e23462bb17d3510a07cec232aae9650cfe36104bdf09ec2340c7185bb342a1
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOTUS SOFT | 12-31 | PRG | DuncanTwain | 10 | 0 | DOWNLOAD FILE |
| PROG 64 WEST | 12-31 | PRG | DuncanTwain | 10 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 28 08 00 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..(.... ********| 00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000020: 2A 2A 2A 2A 2A 2A 2A 2A 00 4F 08 01 00 8F 20 2A |********.O.... *| 00000030: 20 20 20 20 20 20 20 50 52 4F 47 52 41 4D 20 31 | PROGRAM 1| 00000040: 32 2D 33 31 20 20 20 20 20 20 20 20 20 20 2A 00 |2-31 *.| 00000050: 76 08 02 00 8F 20 2A 20 53 50 52 49 54 45 20 45 |v.... * SPRITE E| 00000060: 44 49 54 4F 52 20 2D 20 20 20 20 20 20 20 20 20 |DITOR - | 00000070: 20 20 20 20 20 2A 00 9D 08 03 00 8F 20 2A 20 44 | *...... * D| 00000080: 49 53 50 4C 41 59 53 20 53 50 52 49 54 45 53 20 |ISPLAYS SPRITES | 00000090: 34 20 57 41 59 53 20 20 20 20 20 20 2A 00 C4 08 |4 WAYS *...| 000000A0: 04 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |... ************| 000000B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000000C0: 2A 2A 2A 2A 00 FC 08 05 00 85 20 22 93 11 11 11 |****...... "....| 000000D0: 20 57 48 49 43 48 20 42 4C 4F 43 4B 20 4F 46 20 | WHICH BLOCK OF | 000000E0: 36 34 20 42 59 54 45 53 20 28 45 47 20 31 33 29 |64 BYTES (EG 13)| 000000F0: 22 3B 42 3A 20 53 50 B2 36 34 AC 42 00 2F 09 0A |";B: SP.64.B./..| 00000100: 00 81 20 4A B2 30 20 A4 20 33 3A 20 97 20 32 30 |.. J.0 . 3: . 20| 00000110: 34 30 AA 4A 2C 42 3A 20 82 3A 20 8F 20 53 50 52 |40.J,B: .: . SPR| 00000120: 49 54 45 53 20 53 48 41 52 45 20 44 41 54 41 00 |ITES SHARE DATA.| 00000130: 5E 09 0F 00 56 B2 35 33 32 34 38 3A 20 53 53 B2 |^...V.53248: SS.| 00000140: 31 30 32 34 3A 20 8F 20 56 49 43 20 43 48 49 50 |1024: . VIC CHIP| 00000150: 3B 20 53 43 52 45 45 4E 20 53 54 41 52 54 00 92 |; SCREEN START..| 00000160: 09 14 00 97 20 56 AA 32 31 2C 31 35 3A 20 8F 20 |.... V.21,15: . | 00000170: 45 4E 41 42 4C 45 20 53 50 52 49 54 45 53 20 30 |ENABLE SPRITES 0| 00000180: 2D 33 2C 20 54 48 45 4E 20 53 45 54 20 58 2C 59 |-3, THEN SET X,Y| 00000190: 3A 2D 00 C1 09 19 00 97 20 56 AA 30 2C 32 34 30 |:-...... V.0,240| 000001A0: 3A 20 97 20 56 AA 32 2C 32 34 30 3A 20 97 20 56 |: . V.2,240: . V| 000001B0: AA 34 2C 32 35 30 3A 20 97 20 56 AA 36 2C 32 35 |.4,250: . V.6,25| 000001C0: 30 00 EF 09 1E 00 97 20 56 AA 31 2C 39 30 3A 20 |0...... V.1,90: | 000001D0: 97 20 56 AA 33 2C 31 34 30 3A 20 97 20 56 AA 35 |. V.3,140: . V.5| 000001E0: 2C 31 39 30 3A 20 97 20 56 AA 37 2C 32 32 30 00 |,190: . V.7,220.| 000001F0: 1C 0A 23 00 81 20 4A B2 33 39 20 A4 20 34 32 3A |..#.. J.39 . 42:| 00000200: 20 97 20 56 AA 4A 2C 36 3A 20 82 3A 20 8F 20 20 | . V.J,6: .: . | 00000210: 53 50 52 49 54 45 20 43 4F 4C 4F 52 00 45 0A 28 |SPRITE COLOR.E.(| 00000220: 00 97 20 56 AA 33 37 2C 30 3A 20 97 20 56 AA 33 |.. V.37,0: . V.3| 00000230: 38 2C 31 33 3A 20 8F 20 4D 43 4D 20 52 45 47 49 |8,13: . MCM REGI| 00000240: 53 54 45 52 53 00 72 0A 2D 00 97 20 56 AA 33 32 |STERS.r.-.. V.32| 00000250: 2C 31 3A 20 97 20 56 AA 33 33 2C 31 3A 20 20 8F |,1: . V.33,1: .| 00000260: 20 53 43 52 45 45 4E 20 41 4E 44 20 42 4F 52 44 | SCREEN AND BORD| 00000270: 45 52 00 A2 0A 32 00 97 20 56 AA 32 39 2C 33 3A |ER...2.. V.29,3:| 00000280: 20 97 20 56 AA 32 33 2C 33 3A 20 20 8F 20 45 58 | . V.23,3: . EX| 00000290: 50 41 4E 44 20 53 50 52 49 54 45 53 20 30 20 26 |PAND SPRITES 0 &| 000002A0: 20 31 00 D2 0A 37 00 97 20 56 AA 32 38 2C 35 3A | 1...7.. V.28,5:| 000002B0: 20 20 20 20 20 20 8F 20 4D 55 4C 54 49 43 4F 4C | . MULTICOL| 000002C0: 4F 52 20 53 50 52 49 54 45 53 20 30 20 41 4E 44 |OR SPRITES 0 AND| 000002D0: 20 32 00 F1 0A 3C 00 81 20 4A B2 30 20 A4 20 37 | 2...<.. J.0 . 7| 000002E0: 3A 20 50 28 4A 29 B2 32 AE 28 37 AB 4A 29 3A 20 |: P(J).2.(7.J): | 000002F0: 82 00 FB 0A 41 00 8D 20 35 30 30 00 1F 0B 64 00 |....A.. 500...d.| 00000300: 99 20 22 93 11 11 90 22 3A 20 8D 20 33 30 30 30 |. "....": . 3000| 00000310: 3A 20 8F 20 44 52 41 57 20 53 50 52 49 54 45 00 |: . DRAW SPRITE.| 00000320: 4B 0B 82 00 58 43 B2 30 3A 20 59 43 B2 30 3A 20 |K...XC.0: YC.0: | 00000330: 43 B2 31 36 30 3A 20 97 20 53 53 AA 43 2C C2 28 |C.160: . SS.C,.(| 00000340: 53 53 AA 43 29 20 B0 20 31 32 38 00 57 0B 8C 00 |SS.C) . 128.W...| 00000350: 8D 20 32 30 30 30 30 00 7A 0B C7 00 8F 20 20 20 |. 20000.z.... | 00000360: 20 20 20 20 20 20 20 2A 2A 2A 2A 20 4D 41 49 4E | **** MAIN| 00000370: 20 4C 4F 4F 50 20 2A 2A 2A 2A 00 92 0B C8 00 A1 | LOOP ****......| 00000380: 20 58 24 3A 20 8B 20 58 24 B2 22 22 20 A7 20 32 | X$: . X$."" . 2| 00000390: 30 30 00 AF 0B D2 00 8B 20 58 24 B2 22 20 22 20 |00...... X$." " | 000003A0: A7 20 8D 20 32 30 30 30 3A 20 89 20 34 30 30 00 |. . 2000: . 400.| 000003B0: D8 0B DC 00 8B 20 58 24 B2 22 43 22 20 A7 20 8D |..... X$."C" . .| 000003C0: 20 31 30 30 30 3A 20 89 20 31 30 30 3A 20 8F 20 | 1000: . 100: . | 000003D0: 4F 50 54 49 4F 4E 41 4C 00 FC 0B E6 00 8B 20 58 |OPTIONAL...... X| 000003E0: 24 B2 22 85 22 20 A7 20 43 42 B2 30 3A 20 8D 20 |$."." . CB.0: . | 000003F0: 32 31 30 30 30 3A 20 89 20 34 30 30 00 20 0C F0 |21000: . 400. ..| 00000400: 00 8B 20 58 24 B2 22 86 22 20 A7 20 43 42 B2 31 |.. X$."." . CB.1| 00000410: 3A 20 8D 20 32 31 30 30 30 3A 20 89 20 34 30 30 |: . 21000: . 400| 00000420: 00 44 0C FA 00 8B 20 58 24 B2 22 87 22 20 A7 20 |.D.... X$."." . | 00000430: 43 42 B2 32 3A 20 8D 20 32 31 30 30 30 3A 20 89 |CB.2: . 21000: .| 00000440: 20 34 30 30 00 68 0C 04 01 8B 20 58 24 B2 22 88 | 400.h.... X$.".| 00000450: 22 20 A7 20 43 42 B2 33 3A 20 8D 20 32 31 30 30 |" . CB.3: . 2100| 00000460: 30 3A 20 89 20 34 30 30 00 8E 0C 0E 01 8B 20 58 |0: . 400...... X| 00000470: 24 B2 22 91 22 20 AF 20 59 43 B1 30 20 A7 20 59 |$."." . YC.0 . Y| 00000480: 43 B2 59 43 AB 31 3A 20 20 89 20 34 30 30 00 B4 |C.YC.1: . 400..| 00000490: 0C 18 01 8B 20 58 24 B2 22 11 22 20 AF 20 59 43 |.... X$."." . YC| 000004A0: B3 32 30 20 A7 20 59 43 B2 59 43 AA 31 3A 20 89 |.20 . YC.YC.1: .| 000004B0: 20 34 30 30 00 DA 0C 22 01 8B 20 58 24 B2 22 1D | 400...".. X$.".| 000004C0: 22 20 AF 20 58 43 B3 32 33 20 A7 20 58 43 B2 58 |" . XC.23 . XC.X| 000004D0: 43 AA 31 3A 20 89 20 34 30 30 00 01 0D 2C 01 8B |C.1: . 400...,..| 000004E0: 20 58 24 B2 22 9D 22 20 AF 20 58 43 B1 30 20 A7 | X$."." . XC.0 .| 000004F0: 20 58 43 B2 58 43 AB 31 3A 20 20 89 20 34 30 30 | XC.XC.1: . 400| 00000500: 2E 00 1E 0D 36 01 8B 20 58 24 B2 22 89 22 20 A7 |....6.. X$."." .| 00000510: 20 8D 20 34 30 30 30 3A 20 89 20 32 30 30 00 3B | . 4000: . 200.;| 00000520: 0D 40 01 8B 20 58 24 B2 22 8A 22 20 A7 20 8D 20 |.@.. X$."." . . | 00000530: 35 30 30 30 3A 20 89 20 32 30 30 00 58 0D 4A 01 |5000: . 200.X.J.| 00000540: 8B 20 58 24 B2 22 8B 22 20 A7 20 8D 20 36 30 30 |. X$."." . . 600| 00000550: 30 3A 20 89 20 32 30 30 00 75 0D 54 01 8B 20 58 |0: . 200.u.T.. X| 00000560: 24 B2 22 8C 22 20 A7 20 8D 20 37 30 30 30 3A 20 |$."." . . 7000: | 00000570: 89 20 32 30 30 00 7F 0D 5E 01 89 20 32 30 30 00 |. 200...^.. 200.| 00000580: A3 0D 8F 01 8F 20 20 20 20 20 20 20 20 20 20 2A |..... *| 00000590: 2A 2A 2A 20 53 45 54 20 43 55 52 53 4F 52 20 2A |*** SET CURSOR *| 000005A0: 2A 2A 2A 00 CC 0D 90 01 97 20 53 53 AA 43 2C C2 |***...... SS.C,.| 000005B0: 28 53 53 AA 43 29 20 AF 20 31 32 37 3A 20 43 B2 |(SS.C) . 127: C.| 000005C0: 58 43 AA 34 30 AC 59 43 AA 31 36 30 00 ED 0D 9A |XC.40.YC.160....| 000005D0: 01 97 20 53 53 AA 43 2C C2 28 53 53 AA 43 29 20 |.. SS.C,.(SS.C) | 000005E0: B0 20 20 31 32 38 3A 20 89 20 32 30 30 00 20 0E |. 128: . 200. .| 000005F0: F4 01 83 20 22 42 4C 41 43 4B 20 22 2C 22 57 48 |... "BLACK ","WH| 00000600: 49 54 45 20 22 2C 22 52 45 44 20 20 20 22 2C 22 |ITE ","RED ","| 00000610: 43 59 41 4E 20 20 22 2C 22 50 55 52 50 4C 45 22 |CYAN ","PURPLE"| 00000620: 00 53 0E F9 01 83 20 22 47 52 45 45 4E 20 22 2C |.S.... "GREEN ",| 00000630: 22 42 4C 55 45 20 20 22 2C 22 59 45 4C 4C 4F 57 |"BLUE ","YELLOW| 00000640: 22 2C 22 4F 52 41 4E 47 45 22 2C 22 42 52 4F 57 |","ORANGE","BROW| 00000650: 4E 20 22 00 8F 0E FE 01 83 20 22 4C 54 20 52 45 |N "...... "LT RE| 00000660: 44 22 2C 22 44 20 47 52 41 59 22 2C 22 4D 20 47 |D","D GRAY","M G| 00000670: 52 41 59 22 2C 22 4C 54 20 47 52 4E 22 2C 22 4C |RAY","LT GRN","L| 00000680: 20 42 4C 55 45 22 2C 22 4C 20 47 52 41 59 22 00 | BLUE","L GRAY".| 00000690: B9 0E 08 02 86 20 43 4F 24 28 31 35 29 3A 20 81 |..... CO$(15): .| 000006A0: 20 4A B2 30 20 A4 20 31 35 3A 20 87 20 43 4F 24 | J.0 . 15: . CO$| 000006B0: 28 4A 29 3A 20 82 3A 20 8E 00 E9 0E E8 03 81 20 |(J): .: ....... | 000006C0: 4A B2 53 50 20 A4 20 53 50 AA 36 32 3A 20 97 20 |J.SP . SP.62: . | 000006D0: 4A 2C 30 3A 20 82 3A 20 8E 3A 20 8F 20 43 4C 45 |J,0: .: .: . CLE| 000006E0: 41 52 20 53 50 52 49 54 45 00 16 0F CF 07 8F 20 |AR SPRITE...... | 000006F0: 20 20 20 2A 2A 2A 2A 20 49 4E 56 45 52 54 20 54 | **** INVERT T| 00000700: 48 45 20 50 4F 49 4E 54 20 41 54 20 58 43 2C 59 |HE POINT AT XC,Y| 00000710: 43 20 2A 2A 2A 2A 00 34 0F D0 07 50 54 B2 53 50 |C ****.4...PT.SP| 00000720: AA 58 43 AD 38 AA 59 43 AC 33 3A 20 42 59 B2 C2 |.XC.8.YC.3: BY..| 00000730: 28 50 54 29 00 52 0F DA 07 42 50 B2 58 43 AB B5 |(PT).R...BP.XC..| 00000740: 28 58 43 AD 38 29 AC 38 3A 20 4D 53 B2 50 28 42 |(XC.8).8: MS.P(B| 00000750: 50 29 00 74 0F E4 07 8B 20 28 42 59 20 AF 20 50 |P).t.... (BY . P| 00000760: 28 42 50 29 29 B2 30 20 A7 20 97 20 50 54 2C 42 |(BP)).0 . . PT,B| 00000770: 59 AA 4D 53 00 96 0F EE 07 8B 20 28 42 59 20 AF |Y.MS...... (BY .| 00000780: 20 50 28 42 50 29 29 B1 30 20 A7 20 97 20 50 54 | P(BP)).0 . . PT| 00000790: 2C 42 59 AB 4D 53 00 B0 0F F8 07 97 20 53 53 AA |,BY.MS...... SS.| 000007A0: 43 2C 32 35 34 AB C2 28 53 53 AA 43 29 3A 20 8E |C,254..(SS.C): .| 000007B0: 00 E3 0F B7 0B 8F 20 20 2A 2A 2A 2A 20 44 49 53 |...... **** DIS| 000007C0: 50 4C 41 59 20 53 50 52 49 54 45 20 41 53 20 44 |PLAY SPRITE AS D| 000007D0: 41 53 48 45 53 20 41 4E 44 20 44 4F 54 53 20 2A |ASHES AND DOTS *| 000007E0: 2A 2A 2A 00 FF 0F B8 0B 81 20 59 43 B2 30 20 A4 |***...... YC.0 .| 000007F0: 20 32 30 3A 20 81 20 58 42 B2 30 20 A4 20 32 00 | 20: . XB.0 . 2.| 00000800: 1B 10 C2 0B 50 54 B2 53 50 AA 58 42 AA 59 43 AC |....PT.SP.XB.YC.| 00000810: 33 3A 20 42 59 B2 C2 28 50 54 29 00 29 10 CC 0B |3: BY..(PT).)...| 00000820: 81 20 4A B2 30 20 A4 20 37 00 4E 10 D6 0B 8B 20 |. J.0 . 7.N.... | 00000830: 28 42 59 20 AF 20 50 28 4A 29 29 B1 30 20 A7 20 |(BY . P(J)).0 . | 00000840: 99 20 22 D1 22 3B 3A 20 89 20 33 30 35 30 00 59 |. ".";: . 3050.Y| 00000850: 10 E0 0B 99 20 22 2D 22 3B 00 73 10 EA 0B 82 3A |.... "-";.s....:| 00000860: 20 82 3A 20 8B 20 59 43 B3 B1 32 30 20 A7 20 99 | .: . YC..20 . .| 00000870: 3A 20 82 00 79 10 F4 0B 8E 00 A9 10 9F 0F 8F 20 |: ..y.......... | 00000880: 20 2A 2A 2A 2A 20 34 20 52 4F 55 54 49 4E 45 53 | **** 4 ROUTINES| 00000890: 20 54 4F 20 49 4E 43 52 45 4D 45 4E 54 20 43 4F | TO INCREMENT CO| 000008A0: 4C 4F 52 53 20 2A 2A 2A 2A 00 C0 10 A0 0F 54 B2 |LORS ****.....T.| 000008B0: 28 C2 28 56 AA 33 32 29 AA 31 29 20 AF 20 31 35 |(.(V.32).1) . 15| 000008C0: 00 E0 10 AA 0F 97 20 56 AA 33 32 2C 54 3A 20 97 |...... V.32,T: .| 000008D0: 20 56 AA 33 33 2C 54 3A 20 89 20 32 30 30 30 30 | V.33,T: . 20000| 000008E0: 00 05 11 88 13 97 20 56 AA 33 37 2C 28 C2 28 56 |...... V.37,(.(V| 000008F0: AA 33 37 29 AA 31 29 20 AF 20 31 35 3A 20 89 20 |.37).1) . 15: . | 00000900: 32 30 30 30 30 00 1C 11 70 17 54 B2 28 C2 28 56 |20000...p.T.(.(V| 00000910: AA 33 39 29 AA 31 29 20 AF 20 31 35 00 43 11 7A |.39).1) . 15.C.z| 00000920: 17 81 20 4A B2 56 AA 33 39 20 A4 20 56 AA 34 32 |.. J.V.39 . V.42| 00000930: 3A 20 97 20 4A 2C 54 3A 20 82 3A 20 89 20 32 30 |: . J,T: .: . 20| 00000940: 30 30 30 00 68 11 58 1B 97 20 56 AA 33 38 2C 28 |000.h.X.. V.38,(| 00000950: C2 28 56 AA 33 38 29 AA 31 29 20 AF 20 31 35 3A |.(V.38).1) . 15:| 00000960: 20 89 20 32 30 30 30 30 00 93 11 1F 4E 8F 20 20 | . 20000....N. | 00000970: 20 20 2A 2A 2A 2A 20 50 52 49 4E 54 20 43 4F 4C | **** PRINT COL| 00000980: 4F 52 20 49 4E 46 4F 52 4D 41 54 49 4F 4E 20 2A |OR INFORMATION *| 00000990: 2A 2A 2A 00 9F 11 20 4E 99 20 22 13 90 22 3B 00 |***... N. "..";.| 000009A0: D4 11 2A 4E 99 20 22 42 41 43 4B 47 52 4F 55 4E |..*N. "BACKGROUN| 000009B0: 44 20 3D 20 22 43 4F 24 28 C2 28 56 AA 33 32 29 |D = "CO$(.(V.32)| 000009C0: 20 AF 20 31 35 29 22 20 20 46 32 20 20 20 46 31 | . 15)" F2 F1| 000009D0: 3D 30 30 22 00 09 12 34 4E 99 20 22 53 50 52 49 |=00"...4N. "SPRI| 000009E0: 54 45 20 4D 43 30 20 3D 20 22 43 4F 24 28 C2 28 |TE MC0 = "CO$(.(| 000009F0: 56 AA 33 37 29 20 AF 20 31 35 29 22 20 20 46 34 |V.37) . 15)" F4| 00000A00: 20 20 20 46 33 3D 30 31 22 00 3E 12 3E 4E 99 20 | F3=01".>.>N. | 00000A10: 22 53 50 52 20 43 4F 4C 4F 52 20 20 3D 20 22 43 |"SPR COLOR = "C| 00000A20: 4F 24 28 C2 28 56 AA 33 39 29 20 AF 20 31 35 29 |O$(.(V.39) . 15)| 00000A30: 22 20 20 46 36 20 20 20 46 35 3D 31 30 22 00 73 |" F6 F5=10".s| 00000A40: 12 48 4E 99 20 22 53 50 52 49 54 45 20 4D 43 31 |.HN. "SPRITE MC1| 00000A50: 20 3D 20 22 43 4F 24 28 C2 28 56 AA 33 38 29 20 | = "CO$(.(V.38) | 00000A60: AF 20 31 35 29 22 20 20 46 38 20 20 20 46 37 3D |. 15)" F8 F7=| 00000A70: 31 31 22 00 79 12 52 4E 8E 00 A8 12 07 52 8F 20 |11".y.RN.....R. | 00000A80: 20 20 2A 2A 2A 2A 20 44 4F 54 2D 50 41 49 52 53 | **** DOT-PAIRS| 00000A90: 20 49 4E 20 4D 55 4C 54 49 43 4F 4C 4F 52 20 4D | IN MULTICOLOR M| 00000AA0: 4F 44 45 20 2A 2A 2A 2A 00 D8 12 08 52 43 50 B2 |ODE ****....RCP.| 00000AB0: 28 43 AA 53 53 29 20 AF 20 32 30 34 36 3A 20 8B |(C.SS) . 2046: .| 00000AC0: 20 43 42 B1 31 20 A7 20 97 20 43 50 2C 38 31 3A | CB.1 . . CP,81:| 00000AD0: 20 89 20 32 31 30 33 30 00 E4 12 12 52 97 20 43 | . 21030....R. C| 00000AE0: 50 2C 34 35 00 11 13 26 52 43 50 B2 43 50 AA 31 |P,45...&RCP.CP.1| 00000AF0: 3A 20 8B 20 28 43 42 20 AF 20 31 29 B2 31 20 A7 |: . (CB . 1).1 .| 00000B00: 20 97 20 43 50 2C 38 31 3A 20 89 20 32 31 30 35 | . CP,81: . 2105| 00000B10: 30 00 1D 13 30 52 97 20 43 50 2C 34 35 00 53 13 |0...0R. CP,45.S.| 00000B20: 3A 52 50 54 B2 53 50 AA 58 43 AD 38 AA 59 43 AC |:RPT.SP.XC.8.YC.| 00000B30: 33 3A 20 42 59 B2 C2 28 50 54 29 3A 20 4D 50 B2 |3: BY..(PT): MP.| 00000B40: 37 AB 58 43 20 AF 20 36 3A 20 4D 4B B2 32 AE 4D |7.XC . 6: MK.2.M| 00000B50: 50 AC 33 00 7A 13 44 52 42 59 B2 28 42 59 20 AF |P.3.z.DRBY.(BY .| 00000B60: 20 A8 20 4D 4B 29 AA 43 42 AC 32 AE 4D 50 3A 20 | . MK).CB.2.MP: | 00000B70: 97 20 50 54 2C 42 59 3A 20 8E 00 00 00 |. PT,BY: .... |
..(.... ******************************** .O.... * PROGRAM 12-31 *. V.... * SPRITE EDITOR - *.. .... * DISPLAYS SPRITES 4 WAYS *.D. ... ********************************.... .. ".... WHICH BLOCK OF 64 BYTES (EG 13) ";B: SP.64.B./.... J.0 . 3: . 2040.J,B: .: . SPRITES SHARE DATA.^...V.53248: SS. 1024: . VIC CHIP; SCREEN START...... V.2 1,15: . ENABLE SPRITES 0-3, THEN SET X,Y :-.A.... V.0,240: . V.2,240: . V.4,250: . V.6,250...... V.1,90: . V.3,140: . V.5 ,190: . V.7,220...#.. J.39 . 42: . V.J,6 : .: . SPRITE COLOR.E.(.. V.37,0: . V.3 8,13: . MCM REGISTERS.R.-.. V.32,1: . V. 33,1: . SCREEN AND BORDER...2.. V.29,3: . V.23,3: . EXPAND SPRITES 0 & 1.R.7.. V.28,5: . MULTICOLOR SPRITES 0 AND 2...<.. J.0 . 7: P(J).2.(7.J): ....A.. 500...D.. "....": . 3000: . DRAW SPRITE. K...XC.0: YC.0: C.160: . SS.C,B(SS.C) . 128.W.... 20000.Z.G.. **** MAIN LOOP ****...H.. X$: . X$."" . 200...R.. X$." " . . 2000: . 400.X.... X$."C" . . 1000: . 100: . OPTIONAL...... X$."." . CB.0: . 21000: . 400. .... X$."." . CB.1 : . 21000: . 400.D.... X$."." . CB.2: . 21000: . 400.H.... X$."." . CB.3: . 2100 0: . 400...... X$."." . YC.0 . YC.YC.1: . 400...... X$."." . YC.20 . YC.YC.1: . 400.Z.".. X$."." . XC.23 . XC.XC.1: . 4 00...,.. X$."." . XC.0 . XC.XC.1: . 400 ....6.. X$."." . . 4000: . 200.;.@.. X$. "." . . 5000: . 200.X.J.. X$."." . . 600 0: . 200.U.T.. X$."." . . 7000: . 200.. ^.. 200...... **** SET CURSOR * ***.L.... SS.C,B(SS.C) . 127: C.XC.40.YC .160...... SS.C,B(SS.C) . 128: . 200. . ... "BLACK ","WHITE ","RED ","CYAN ", "PURPLE".S.... "GREEN ","BLUE ","YELLOW ","ORANGE","BROWN "...... "LT RED","D GR AY","M GRAY","LT GRN","L BLUE","L GRAY". ..... CO$(15): . J.0 . 15: . CO$(J): .: ....... J.SP . SP.62: . J,0: .: .: . CLE AR SPRITE...O.. **** INVERT THE POINT AT XC,YC ****.4.P.PT.SP.XC.8.YC.3: BY.B (PT).R.Z.BP.XC..(XC.8).8: MS.P(BP).T.... (BY . P(BP)).0 . . PT,BY.MS...... (BY . P(BP)).0 . . PT,BY.MS...... SS.C,254.B( SS.C): ....... **** DISPLAY SPRITE AS D ASHES AND DOTS ****...... YC.0 . 20: . X B.0 . 2...B.PT.SP.XB.YC.3: BY.B(PT).).L. . J.0 . 7.N.V.. (BY . P(J)).0 . . "Q";: . 3050.Y.... "-";.S....: .: . YC..20 . . : ..Y.......... **** 4 ROUTINES TO INCR EMENT COLORS ****... .T.(B(V.32).1) . 15 ...... V.32,T: . V.33,T: . 20000...... V .37,(B(V.37).1) . 15: . 20000...P.T.(B(V .39).1) . 15.C.Z.. J.V.39 . V.42: . J,T: .: . 20000.H.X.. V.38,(B(V.38).1) . 15: . 20000....N. **** PRINT COLOR INFOR MATION ****... N. "..";.T.*N. "BACKGROUN D = "CO$(B(V.32) . 15)" F2 F1=00"...4 N. "SPRITE MC0 = "CO$(B(V.37) . 15)" F4 F3=01".>.>N. "SPR COLOR = "CO$(B(V.3 9) . 15)" F6 F5=10".S.HN. "SPRITE MC1 = "CO$(B(V.38) . 15)" F8 F7=11".Y.RN .....R. **** DOT-PAIRS IN MULTICOLOR M ODE ****.X..RCP.(C.SS) . 2046: . CB.1 . . CP,81: . 21030....R. CP,45...&RCP.CP.1 : . (CB . 1).1 . . CP,81: . 21050...0R. CP,45.S.:RPT.SP.XC.8.YC.3: BY.B(PT): MP. 7.XC . 6: MK.2.MP.3.Z.DRBY.(BY . . MK).C B.2.MP: . PT,BY: ....
> CLICK IMAGE PREVIEW FOR FULL MODAL