SPRITES TUT NO 2
FILE INFORMATION
FILENAME(S): SPRITES TUT NO 2
FILE TYPE(S): PRG
FILE SIZE: 7.6K
FIRST SEEN: 2025-11-30 21:15:26
APPEARS ON: 1 disk(s)
FILE HASH
8b293189ae89da6159850e112f6e26b0128c78081d8e1a58703fb6a4e7cef8ae
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| VERVOLG PONZO | SPRITES TUT NO 2 | PRG | DuncanTwain | 19 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 21 08 00 00 8F 22 14 14 14 14 14 14 14 20 |..!...."....... |
00000010: 50 4F 4E 5A 4F 2A 38 32 2A 57 41 54 45 52 4C 4F |PONZO*82*WATERLO|
00000020: 4F 00 2E 08 01 00 8F 22 14 14 14 14 14 14 00 58 |O......".......X|
00000030: 08 E8 03 8D 36 30 30 30 30 3A 99 22 93 20 20 20 |....60000:.". |
00000040: 20 20 20 20 20 20 20 20 20 20 20 12 9F 53 50 52 | ..SPR|
00000050: 49 54 45 53 2D 32 9F 22 00 87 08 E9 03 99 22 B0 |ITES-2."......".|
00000060: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000070: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000080: C0 C0 C0 C0 C0 AE 22 00 CB 08 EA 03 99 22 DD 20 |......"......". |
00000090: 12 9F 20 20 20 20 20 20 20 20 20 4D 55 4C 54 49 |.. MULTI|
000000A0: 20 43 4F 4C 4F 55 52 20 53 50 52 49 54 45 53 20 | COLOUR SPRITES |
000000B0: 20 20 20 20 20 05 92 20 DD 22 3A 4D 53 24 B2 22 | .. .":MS$."|
000000C0: 20 57 45 4C 43 4F 4D 45 21 20 22 00 08 09 EB 03 | WELCOME! ".....|
000000D0: 99 22 AD C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |."..............|
000000E0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000000F0: C0 C0 C0 C0 C0 C0 C0 C0 BD 22 3A 8D 36 33 31 30 |.........":.6310|
00000100: 30 3A 8D 36 33 30 30 30 00 13 09 ED 03 8D 31 30 |0:.63000......10|
00000110: 30 30 30 00 50 09 F2 03 56 B2 35 33 32 34 38 3A |000.P...V.53248:|
00000120: 97 32 30 34 30 2C 31 33 3A 97 56 AA 31 2C 31 35 |.2040,13:.V.1,15|
00000130: 30 3A 97 56 2C 31 35 30 3A 97 56 AA 33 39 2C 31 |0:.V,150:.V.39,1|
00000140: 3A 97 56 AA 32 39 2C 31 3A 97 56 AA 32 33 2C 31 |:.V.29,1:.V.23,1|
00000150: 00 84 09 FC 03 97 56 AA 32 31 2C 31 3A 99 22 13 |......V.21,1:.".|
00000160: 11 11 11 11 11 11 54 48 49 53 20 49 53 20 41 20 |......THIS IS A |
00000170: 53 50 52 49 54 45 2E 22 3A 81 54 B2 31 A4 31 30 |SPRITE.":.T.1.10|
00000180: 30 30 3A 82 00 B2 09 06 04 99 22 11 41 20 27 53 |00:.......".A 'S|
00000190: 4F 52 54 2D 4F 46 27 20 4C 55 4E 41 52 20 4C 41 |ORT-OF' LUNAR LA|
000001A0: 4E 44 45 52 2E 22 3A 81 54 B2 31 A4 31 30 30 30 |NDER.":.T.1.1000|
000001B0: 3A 82 00 D9 09 10 04 99 22 11 4C 45 54 27 53 20 |:.......".LET'S |
000001C0: 4C 4F 4F 4B 20 41 54 20 49 54 20 4D 4F 52 45 20 |LOOK AT IT MORE |
000001D0: 43 4C 4F 53 45 4C 59 2E 22 00 04 0A 1A 04 4D 53 |CLOSELY.".....MS|
000001E0: 24 B2 22 4C 45 54 27 53 20 4C 4F 4F 4B 22 3A 8D |$."LET'S LOOK":.|
000001F0: 36 33 31 30 30 3A 8D 36 33 30 30 30 3A 97 56 AA |63100:.63000:.V.|
00000200: 32 31 2C 30 00 35 0A 24 04 99 22 93 11 11 11 11 |21,0.5.$..".....|
00000210: 11 11 57 45 27 4C 4C 20 44 49 53 50 4C 41 59 20 |..WE'LL DISPLAY |
00000220: 54 48 45 20 50 49 58 45 4C 53 20 54 48 41 54 20 |THE PIXELS THAT |
00000230: 4D 41 4B 45 22 00 56 0A 2E 04 99 22 11 55 50 20 |MAKE".V....".UP |
00000240: 54 48 49 53 20 53 50 52 49 54 45 2E 2E 2E 22 3A |THIS SPRITE...":|
00000250: 8D 36 33 30 30 30 00 72 0A 33 04 97 56 2C 32 35 |.63000.r.3..V,25|
00000260: 35 3A 97 56 AA 31 2C 31 38 30 3A 97 56 AA 32 31 |5:.V.1,180:.V.21|
00000270: 2C 31 00 82 0A 38 04 99 22 93 22 3A 8D 31 30 32 |,1...8..".":.102|
00000280: 30 30 00 8D 0A 3D 04 81 49 B2 31 A4 35 00 BE 0A |00...=..I.1.5...|
00000290: 3E 04 99 44 4E 24 22 12 4E 4F 57 2C 20 49 4E 20 |>..DN$".NOW, IN |
000002A0: 42 49 4E 41 52 59 20 20 20 20 20 20 20 20 20 20 |BINARY |
000002B0: 20 20 20 22 3A 81 54 B2 31 A4 35 30 3A 82 00 EF | ":.T.1.50:...|
000002C0: 0A 3F 04 99 44 4E 24 22 12 20 20 20 20 20 20 20 |.?..DN$". |
000002D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000002E0: 20 20 20 20 22 3A 81 54 B2 31 A4 35 30 3A 82 00 | ":.T.1.50:..|
000002F0: FC 0A 40 04 82 3A 8D 31 30 34 30 30 00 07 0B 42 |..@..:.10400...B|
00000300: 04 81 49 B2 31 A4 35 00 38 0B 43 04 99 44 4E 24 |..I.1.5.8.C..DN$|
00000310: 22 12 2E 2E 2E 41 4E 44 20 49 4E 20 42 49 54 2D |"....AND IN BIT-|
00000320: 50 41 49 52 53 20 20 20 20 20 20 20 20 22 3A 81 |PAIRS ":.|
00000330: 54 B2 31 A4 35 30 3A 82 00 69 0B 44 04 99 44 4E |T.1.50:..i.D..DN|
00000340: 24 22 12 20 20 20 20 20 20 20 20 20 20 20 20 20 |$". |
00000350: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3A | ":|
00000360: 81 54 B2 31 A4 35 30 3A 82 00 6F 0B 45 04 82 00 |.T.1.50:..o.E...|
00000370: 81 0B 4C 04 8D 31 30 35 30 30 3A 8D 36 33 30 30 |..L..10500:.6300|
00000380: 30 00 98 0B 56 04 99 50 53 24 22 4E 4F 57 20 57 |0...V..PS$"NOW W|
00000390: 45 27 4C 4C 20 20 20 22 00 B0 0B 60 04 99 50 53 |E'LL "...`..PS|
000003A0: 24 22 11 43 48 4F 4F 53 45 20 34 20 20 20 20 22 |$".CHOOSE 4 "|
000003B0: 00 C9 0B 6A 04 99 50 53 24 22 11 11 43 4F 4C 4F |...j..PS$"..COLO|
000003C0: 55 52 53 20 41 4E 44 20 22 00 E3 0B 74 04 99 50 |URS AND "...t..P|
000003D0: 53 24 22 11 11 11 53 45 54 20 45 41 43 48 20 20 |S$"...SET EACH |
000003E0: 20 20 22 00 FE 0B 7E 04 99 50 53 24 22 11 11 11 | "...~..PS$"...|
000003F0: 11 50 49 58 45 4C 20 50 41 49 52 20 20 22 00 1A |.PIXEL PAIR "..|
00000400: 0C 88 04 99 50 53 24 22 11 11 11 11 11 54 4F 20 |....PS$".....TO |
00000410: 41 20 43 4F 4C 4F 55 52 20 22 00 37 0C 92 04 99 |A COLOUR ".7....|
00000420: 50 53 24 22 11 11 11 11 11 11 41 43 43 4F 52 44 |PS$"......ACCORD|
00000430: 49 4E 47 20 54 4F 22 00 58 0C 9C 04 99 50 53 24 |ING TO".X....PS$|
00000440: 22 11 11 11 11 11 11 11 11 12 30 30 92 3D 43 4F |".........00.=CO|
00000450: 4C 4F 55 52 20 23 30 22 00 7A 0C A6 04 99 50 53 |LOUR #0".z....PS|
00000460: 24 22 11 11 11 11 11 11 11 11 11 12 30 31 92 3D |$"..........01.=|
00000470: 43 4F 4C 4F 55 52 20 23 31 22 00 9D 0C B0 04 99 |COLOUR #1"......|
00000480: 50 53 24 22 11 11 11 11 11 11 11 11 11 11 12 31 |PS$"...........1|
00000490: 30 92 3D 43 4F 4C 4F 55 52 20 23 32 22 00 C8 0C |0.=COLOUR #2"...|
000004A0: BA 04 99 50 53 24 22 11 11 11 11 11 11 11 11 11 |...PS$".........|
000004B0: 11 11 12 31 31 92 3D 43 4F 4C 4F 55 52 20 23 33 |...11.=COLOUR #3|
000004C0: 22 3A 8D 36 33 30 30 30 00 FD 0C BF 04 8D 31 30 |":.63000......10|
000004D0: 36 30 30 3A 81 49 B2 31 A4 35 3A 99 44 4E 24 22 |600:.I.1.5:.DN$"|
000004E0: 42 41 53 45 20 4F 46 20 56 49 44 45 4F 20 43 48 |BASE OF VIDEO CH|
000004F0: 49 50 22 3A 81 54 B2 31 A4 35 30 3A 82 00 27 0D |IP":.T.1.50:..'.|
00000500: C0 04 99 44 4E 24 22 12 42 41 53 45 20 4F 46 20 |...DN$".BASE OF |
00000510: 56 49 44 45 4F 20 43 48 49 50 22 3A 81 54 B2 31 |VIDEO CHIP":.T.1|
00000520: A4 35 30 3A 82 3A 82 00 47 0D C4 04 99 50 53 24 |.50:.:..G....PS$|
00000530: 22 56 3D 35 33 32 34 38 3A 56 49 44 45 4F 22 3A |"V=53248:VIDEO":|
00000540: 56 B2 35 33 32 34 38 00 70 0D C9 04 8D 36 33 30 |V.53248.p....630|
00000550: 30 30 3A 99 44 4E 24 22 90 53 45 54 20 43 4F 4C |00:.DN$".SET COL|
00000560: 4F 55 52 20 23 30 3D 31 28 57 48 49 54 45 29 22 |OUR #0=1(WHITE)"|
00000570: 00 90 0D CE 04 99 50 53 24 22 11 12 50 4F 4B 45 |......PS$"..POKE|
00000580: 56 2B 33 33 2C 31 20 22 3A 97 56 AA 33 33 2C 31 |V+33,1 ":.V.33,1|
00000590: 00 B9 0D D8 04 8D 36 33 30 30 30 3A 99 44 4E 24 |......63000:.DN$|
000005A0: 22 12 56 2B 33 33 3D 35 33 32 38 31 28 42 41 43 |".V+33=53281(BAC|
000005B0: 4B 47 52 4F 55 4E 44 29 22 00 E1 0D DD 04 8D 36 |KGROUND)"......6|
000005C0: 33 30 30 30 3A 99 44 4E 24 22 53 45 54 20 43 4F |3000:.DN$"SET CO|
000005D0: 4C 4F 55 52 20 23 31 3D 30 28 42 4C 41 43 4B 29 |LOUR #1=0(BLACK)|
000005E0: 22 00 02 0E E2 04 99 50 53 24 22 11 11 12 50 4F |"......PS$"...PO|
000005F0: 4B 45 56 2B 33 37 2C 30 20 22 3A 97 56 AA 33 37 |KEV+37,0 ":.V.37|
00000600: 2C 30 00 36 0E EC 04 8D 36 33 30 30 30 3A 99 44 |,0.6....63000:.D|
00000610: 4E 24 22 12 56 2B 33 37 3D 53 50 52 49 54 45 20 |N$".V+37=SPRITE |
00000620: 4D 55 4C 54 49 2D 43 4F 4C 4F 55 52 20 52 45 47 |MULTI-COLOUR REG|
00000630: 27 52 20 23 30 22 00 5C 0E F1 04 8D 36 33 30 30 |'R #0".\....6300|
00000640: 30 3A 99 44 4E 24 22 53 45 54 20 43 4F 4C 4F 55 |0:.DN$"SET COLOU|
00000650: 52 20 23 32 3D 32 28 52 45 44 29 22 00 85 0E F6 |R #2=2(RED)"....|
00000660: 04 99 50 53 24 22 11 11 11 12 50 4F 4B 45 56 2B |..PS$"....POKEV+|
00000670: 33 39 2C 32 20 22 3A 8D 36 33 30 30 30 3A 97 56 |39,2 ":.63000:.V|
00000680: AA 33 39 2C 32 00 BA 0E 00 05 8D 36 33 30 30 30 |.39,2......63000|
00000690: 3A 99 44 4E 24 22 12 56 2B 33 39 3D 43 4F 4C 4F |:.DN$".V+39=COLO|
000006A0: 55 52 20 52 45 47 49 53 54 45 52 20 46 4F 52 20 |UR REGISTER FOR |
000006B0: 53 50 52 49 54 45 20 23 30 22 00 E1 0E 05 05 8D |SPRITE #0"......|
000006C0: 36 33 30 30 30 3A 99 44 4E 24 22 53 45 54 20 43 |63000:.DN$"SET C|
000006D0: 4F 4C 4F 55 52 20 23 33 3D 33 28 43 59 41 4E 29 |OLOUR #3=3(CYAN)|
000006E0: 22 00 04 0F 0A 05 99 50 53 24 22 11 11 11 11 12 |"......PS$".....|
000006F0: 50 4F 4B 45 56 2B 33 38 2C 33 20 22 3A 97 56 AA |POKEV+38,3 ":.V.|
00000700: 33 38 2C 33 00 40 0F 14 05 8D 36 33 30 30 30 3A |38,3.@....63000:|
00000710: 99 44 4E 24 22 12 56 2B 33 38 3D 53 50 52 49 54 |.DN$".V+38=SPRIT|
00000720: 45 20 4D 55 4C 54 49 2D 43 4F 4C 4F 55 52 20 52 |E MULTI-COLOUR R|
00000730: 45 47 27 52 20 23 31 22 20 3A 8D 36 33 30 30 30 |EG'R #1" :.63000|
00000740: 00 61 0F 19 05 99 44 4E 24 22 12 50 4C 45 41 53 |.a....DN$".PLEAS|
00000750: 45 20 4E 4F 54 45 21 21 21 22 3A 8D 36 33 30 30 |E NOTE!!!":.6300|
00000760: 30 00 95 0F 1E 05 99 44 4E 24 22 12 50 4F 4B 45 |0......DN$".POKE|
00000770: 56 2B 33 39 2C 32 92 20 43 48 41 4E 47 45 44 20 |V+39,2. CHANGED |
00000780: 53 50 52 49 54 45 20 54 4F 20 52 45 44 22 3A 8D |SPRITE TO RED":.|
00000790: 36 33 30 30 30 00 C9 0F 28 05 99 44 4E 24 22 26 |63000...(..DN$"&|
000007A0: 20 12 50 4F 4B 45 56 2B 33 33 2C 31 34 92 20 43 | .POKEV+33,14. C|
000007B0: 48 41 4E 47 45 44 20 42 41 43 4B 47 52 4F 55 4E |HANGED BACKGROUN|
000007C0: 44 22 3A 8D 36 33 30 30 30 00 D4 0F 32 05 81 49 |D":.63000...2..I|
000007D0: B2 31 A4 35 00 0A 10 33 05 99 44 4E 24 22 12 42 |.1.5...3..DN$".B|
000007E0: 55 54 20 57 48 45 52 45 27 53 20 54 48 45 20 42 |UT WHERE'S THE B|
000007F0: 4C 41 43 4B 20 41 4E 44 20 43 59 41 4E 3F 3F 22 |LACK AND CYAN??"|
00000800: 3A 81 54 B2 31 A4 35 30 3A 82 00 40 10 34 05 99 |:.T.1.50:..@.4..|
00000810: 44 4E 24 22 12 20 20 20 20 20 20 20 20 20 20 20 |DN$". |
00000820: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000830: 20 20 20 20 20 22 3A 81 54 B2 31 A4 35 30 3A 82 | ":.T.1.50:.|
00000840: 00 46 10 35 05 82 00 79 10 3C 05 4D 53 24 B2 22 |.F.5...y.<.MS$."|
00000850: 20 57 41 54 43 48 21 21 22 3A 99 22 93 22 3A 97 | WATCH!!":.".":.|
00000860: 56 AA 32 31 2C 30 3A 8D 36 33 31 30 30 3A 99 22 |V.21,0:.63100:."|
00000870: 93 22 3A 8D 31 30 37 30 30 00 9C 10 46 05 8D 36 |.":.10700...F..6|
00000880: 30 30 30 30 3A 4D 53 24 B2 22 48 4F 57 20 54 4F |0000:MS$."HOW TO|
00000890: 20 44 4F 3F 22 3A 8D 36 33 31 30 30 00 C5 10 50 | DO?":.63100...P|
000008A0: 05 99 22 93 54 48 45 20 12 30 30 92 20 43 4F 4C |..".THE .00. COL|
000008B0: 4F 55 52 20 57 41 53 20 27 42 41 43 4B 47 52 4F |OUR WAS 'BACKGRO|
000008C0: 55 4E 44 27 22 00 F1 10 5A 05 99 22 11 28 41 4E |UND'"...Z..".(AN|
000008D0: 44 20 53 48 41 52 45 44 20 42 59 20 41 4C 4C 20 |D SHARED BY ALL |
000008E0: 56 49 53 49 42 4C 45 20 53 50 52 49 54 45 53 29 |VISIBLE SPRITES)|
000008F0: 22 00 1E 11 64 05 99 22 11 41 4E 44 20 12 50 4F |"...d..".AND .PO|
00000900: 4B 45 20 56 2B 33 33 92 20 43 48 41 4E 47 45 53 |KE V+33. CHANGES|
00000910: 20 54 48 49 53 20 43 4F 4C 4F 55 52 2E 22 00 4E | THIS COLOUR.".N|
00000920: 11 6E 05 99 22 11 54 48 45 20 12 31 30 92 20 43 |.n..".THE .10. C|
00000930: 4F 4C 4F 55 52 20 57 41 53 20 54 48 45 20 27 53 |OLOUR WAS THE 'S|
00000940: 50 52 49 54 45 20 43 4F 4C 4F 55 52 27 22 00 7D |PRITE COLOUR'".}|
00000950: 11 78 05 99 22 11 28 41 4E 44 20 43 41 4E 20 42 |.x..".(AND CAN B|
00000960: 45 20 44 49 46 46 45 52 45 4E 54 20 46 4F 52 20 |E DIFFERENT FOR |
00000970: 45 41 43 48 20 53 50 52 49 54 45 29 22 00 AB 11 |EACH SPRITE)"...|
00000980: 82 05 99 22 11 41 4E 44 20 12 50 4F 4B 45 20 56 |...".AND .POKE V|
00000990: 2B 33 39 2B 4E 92 20 43 48 41 4E 47 45 53 20 54 |+39+N. CHANGES T|
000009A0: 48 49 53 20 43 4F 4C 4F 55 52 22 00 D3 11 8C 05 |HIS COLOUR".....|
000009B0: 99 22 11 28 46 4F 52 20 53 50 52 49 54 45 20 23 |.".(FOR SPRITE #|
000009C0: 4E 2C 20 57 49 54 48 20 4E 3D 30 20 54 4F 20 37 |N, WITH N=0 TO 7|
000009D0: 29 2E 22 00 FA 11 96 05 4D 53 24 B2 22 12 30 31 |).".....MS$.".01|
000009E0: 92 20 26 20 12 31 31 92 3F 3F 3F 22 3A 8D 36 33 |. & .11.???":.63|
000009F0: 31 30 30 3A 8D 36 33 30 30 30 00 25 12 A0 05 99 |100:.63000.%....|
00000A00: 22 93 54 48 45 4E 2C 20 49 4E 20 52 45 47 49 53 |".THEN, IN REGIS|
00000A10: 54 45 52 53 20 12 56 2B 33 37 92 20 26 20 12 56 |TERS .V+37. & .V|
00000A20: 2B 33 38 92 22 00 4E 12 AA 05 99 22 11 41 52 45 |+38.".N....".ARE|
00000A30: 20 54 48 45 20 12 53 50 52 49 54 45 20 4D 55 4C | THE .SPRITE MUL|
00000A40: 54 49 2D 43 4F 4C 4F 55 52 53 92 21 21 22 00 7B |TI-COLOURS.!!".{|
00000A50: 12 B4 05 99 22 11 12 50 4F 4B 45 20 56 2B 33 37 |...."..POKE V+37|
00000A60: 92 20 41 4E 44 20 12 50 4F 4B 45 20 56 2B 33 38 |. AND .POKE V+38|
00000A70: 92 20 57 49 54 48 20 54 48 45 22 00 A9 12 BE 05 |. WITH THE".....|
00000A80: 99 22 11 43 4F 4C 4F 55 52 53 20 59 4F 55 20 57 |.".COLOURS YOU W|
00000A90: 41 4E 54 20 46 4F 52 20 54 48 45 20 12 30 31 92 |ANT FOR THE .01.|
00000AA0: 20 41 4E 44 20 12 31 31 22 00 DC 12 C8 05 99 22 | AND .11"......"|
00000AB0: 11 42 49 54 20 50 41 49 52 53 21 21 22 3A 4D 53 |.BIT PAIRS!!":MS|
00000AC0: 24 B2 22 41 4C 4C 20 53 48 41 52 45 44 22 3A 8D |$."ALL SHARED":.|
00000AD0: 36 33 31 30 30 3A 8D 36 33 30 30 30 00 0B 13 D2 |63100:.63000....|
00000AE0: 05 99 22 93 4F 4B 2E 2E 4F 55 52 20 42 41 43 4B |..".OK..OUR BACK|
00000AF0: 47 52 4F 55 4E 44 20 43 48 41 4E 47 45 53 20 41 |GROUND CHANGES A|
00000B00: 4E 44 20 53 4F 20 44 4F 45 53 22 00 29 13 DC 05 |ND SO DOES".)...|
00000B10: 99 22 11 4F 55 52 20 27 53 4F 52 54 2D 4F 46 27 |.".OUR 'SORT-OF'|
00000B20: 20 53 50 52 49 54 45 2E 22 00 52 13 E6 05 99 22 | SPRITE.".R...."|
00000B30: 11 4E 4F 57 20 54 4F 20 12 45 4E 41 42 4C 45 92 |.NOW TO .ENABLE.|
00000B40: 20 4D 55 4C 54 49 2D 43 4F 4C 4F 55 52 20 46 4F | MULTI-COLOUR FO|
00000B50: 52 22 00 99 13 F0 05 99 22 11 53 50 52 49 54 45 |R"......".SPRITE|
00000B60: 20 23 4E 2C 20 57 45 3A 20 12 50 4F 4B 45 20 56 | #N, WE: .POKE V|
00000B70: 2B 32 38 2C 32 5E 4E 92 21 21 22 3A 4D 53 24 B2 |+28,2^N.!!":MS$.|
00000B80: 22 45 4E 41 42 4C 45 20 23 4E 22 3A 8D 36 33 31 |"ENABLE #N":.631|
00000B90: 30 30 3A 8D 36 33 30 30 30 00 CC 13 FA 05 99 22 |00:.63000......"|
00000BA0: 93 11 11 11 11 11 53 54 49 4C 4C 20 4E 4F 20 43 |......STILL NO C|
00000BB0: 48 41 4E 47 45 20 49 4E 20 4F 55 52 20 53 50 52 |HANGE IN OUR SPR|
00000BC0: 49 54 45 21 22 3A 8D 36 33 30 30 30 00 F9 13 04 |ITE!":.63000....|
00000BD0: 06 99 22 93 57 45 20 4D 55 53 54 20 50 55 54 20 |..".WE MUST PUT |
00000BE0: 54 48 45 20 43 36 34 20 56 49 44 45 4F 20 43 48 |THE C64 VIDEO CH|
00000BF0: 49 50 20 49 4E 54 4F 3A 22 00 33 14 0E 06 99 22 |IP INTO:".3...."|
00000C00: 11 12 4D 55 4C 54 49 2D 43 4F 4C 4F 55 52 20 4D |..MULTI-COLOUR M|
00000C10: 4F 44 45 22 3A 99 22 11 11 12 50 4F 4B 45 20 56 |ODE":."...POKE V|
00000C20: 2B 31 37 2C 50 45 45 4B 28 56 2B 31 37 29 4F 52 |+17,PEEK(V+17)OR|
00000C30: 31 36 22 00 67 14 18 06 99 22 11 53 45 54 54 49 |16".g....".SETTI|
00000C40: 4E 47 20 12 42 49 54 20 34 92 3D 12 4D 92 55 4C |NG .BIT 4.=.M.UL|
00000C50: 54 49 20 12 43 92 4F 4C 4F 55 52 20 12 4D 92 4F |TI .C.OLOUR .M.O|
00000C60: 44 45 20 42 49 54 22 00 8D 14 22 06 99 22 11 54 |DE BIT"..."..".T|
00000C70: 48 45 4E 20 54 48 4F 53 45 20 53 50 52 49 54 45 |HEN THOSE SPRITE|
00000C80: 53 20 57 48 49 43 48 20 57 45 52 45 22 00 BB 14 |S WHICH WERE"...|
00000C90: 2C 06 99 22 11 12 4D 55 4C 54 49 2D 43 4F 4C 4F |,.."..MULTI-COLO|
00000CA0: 55 52 20 45 4E 41 42 4C 45 44 92 20 28 50 4F 4B |UR ENABLED. (POK|
00000CB0: 45 56 2B 32 38 2C 32 5E 4E 29 22 00 FC 14 36 06 |EV+28,2^N)"...6.|
00000CC0: 99 22 11 42 45 43 4F 4D 45 20 27 4D 55 4C 54 49 |.".BECOME 'MULTI|
00000CD0: 2D 43 4F 4C 4F 55 52 45 44 27 21 21 22 3A 4D 53 |-COLOURED'!!":MS|
00000CE0: 24 B2 22 42 45 41 55 54 49 46 55 4C 21 22 3A 8D |$."BEAUTIFUL!":.|
00000CF0: 36 33 31 30 30 3A 8D 36 33 30 30 30 00 2A 15 40 |63100:.63000.*.@|
00000D00: 06 99 22 93 11 11 11 4E 4F 57 20 59 4F 55 11 9D |.."....NOW YOU..|
00000D10: 9D 9D B8 B8 B8 91 20 43 48 41 4E 47 45 20 54 48 |...... CHANGE TH|
00000D20: 45 20 43 4F 4C 4F 55 52 53 22 00 47 15 4A 06 99 |E COLOURS".G.J..|
00000D30: 22 11 4F 46 20 4F 55 54 20 4C 55 4E 41 52 20 4C |".OF OUT LUNAR L|
00000D40: 41 4E 44 45 52 21 22 00 74 15 54 06 99 22 11 4A |ANDER!".t.T..".J|
00000D50: 55 53 54 20 48 49 54 20 12 30 92 20 4F 52 20 12 |UST HIT .0. OR .|
00000D60: 31 92 20 4F 52 20 12 32 92 20 4F 52 20 12 33 92 |1. OR .2. OR .3.|
00000D70: 20 54 4F 22 00 9A 15 5E 06 99 22 11 43 48 41 4E | TO"...^..".CHAN|
00000D80: 47 45 20 43 4F 4C 4F 55 52 20 23 30 2C 23 31 2C |GE COLOUR #0,#1,|
00000D90: 23 32 20 4F 52 20 23 33 2E 22 00 D8 15 68 06 99 |#2 OR #3."...h..|
00000DA0: 22 11 11 11 2E 2E 2E 41 4E 44 20 48 49 54 20 27 |"......AND HIT '|
00000DB0: 51 27 20 54 4F 20 51 55 49 54 21 22 3A 4D 53 24 |Q' TO QUIT!":MS$|
00000DC0: B2 22 20 52 45 41 44 59 3F 22 3A 8D 36 33 31 30 |." READY?":.6310|
00000DD0: 30 3A 8D 36 33 30 30 30 00 FA 15 6D 06 99 22 93 |0:.63000...m..".|
00000DE0: 22 3A 56 B2 35 33 32 34 38 3A 97 56 AA 32 32 2C |":V.53248:.V.22,|
00000DF0: 32 31 36 3A 8D 31 30 37 30 30 00 40 16 72 06 86 |216:.10700.@.r..|
00000E00: 20 43 4D 24 28 31 35 29 3A 44 44 24 B2 22 13 11 | CM$(15):DD$."..|
00000E10: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000E20: 11 11 11 22 3A 4B B2 31 3A 44 30 24 B2 44 44 24 |...":K.1:D0$.DD$|
00000E30: AA 42 4C 24 AA 44 44 24 3A 99 22 13 11 11 22 3B |.BL$.DD$:."...";|
00000E40: 00 65 16 73 06 43 4D 24 28 31 29 B2 22 56 49 44 |.e.s.CM$(1)."VID|
00000E50: 45 4F 20 43 48 49 50 20 42 41 53 45 20 41 44 44 |EO CHIP BASE ADD|
00000E60: 52 45 53 53 22 00 8B 16 74 06 43 4D 24 28 32 29 |RESS"...t.CM$(2)|
00000E70: B2 22 50 55 54 20 27 53 48 41 50 45 27 20 49 4E |."PUT 'SHAPE' IN|
00000E80: 54 4F 20 41 20 42 4C 4F 43 4B 22 00 AC 16 75 06 |TO A BLOCK"...u.|
00000E90: 43 4D 24 28 33 29 B2 22 50 4F 49 4E 54 20 43 48 |CM$(3)."POINT CH|
00000EA0: 49 50 20 54 4F 20 42 4C 4F 43 4B 22 00 D6 16 76 |IP TO BLOCK"...v|
00000EB0: 06 43 4D 24 28 34 29 B2 22 53 45 54 20 12 30 30 |.CM$(4)."SET .00|
00000EC0: 92 20 43 4F 4C 4F 55 52 20 28 42 41 43 4B 47 52 |. COLOUR (BACKGR|
00000ED0: 4F 55 4E 44 29 22 00 05 17 77 06 43 4D 24 28 35 |OUND)"...w.CM$(5|
00000EE0: 29 B2 22 53 45 54 20 12 30 31 92 20 43 4F 4C 4F |)."SET .01. COLO|
00000EF0: 55 52 20 28 43 4F 4C 4F 55 52 20 52 45 47 27 52 |UR (COLOUR REG'R|
00000F00: 20 23 30 29 22 00 32 17 78 06 43 4D 24 28 36 29 | #0)".2.x.CM$(6)|
00000F10: B2 22 53 45 54 20 12 31 30 92 20 43 4F 4C 4F 55 |."SET .10. COLOU|
00000F20: 52 20 28 53 50 52 49 54 45 20 43 4F 4C 4F 55 52 |R (SPRITE COLOUR|
00000F30: 29 22 00 61 17 79 06 43 4D 24 28 37 29 B2 22 53 |)".a.y.CM$(7)."S|
00000F40: 45 54 20 12 31 31 92 20 43 4F 4C 4F 55 52 20 28 |ET .11. COLOUR (|
00000F50: 43 4F 4C 4F 55 52 20 52 45 47 27 52 20 23 31 29 |COLOUR REG'R #1)|
00000F60: 22 00 8B 17 7A 06 43 4D 24 28 38 29 B2 22 47 49 |"...z.CM$(8)."GI|
00000F70: 56 45 20 53 50 52 49 54 45 20 23 4E 20 41 4E 20 |VE SPRITE #N AN |
00000F80: 58 2D 50 4F 53 49 54 49 4F 4E 22 00 B4 17 7B 06 |X-POSITION"...{.|
00000F90: 43 4D 24 28 39 29 B2 22 47 49 56 45 20 53 50 52 |CM$(9)."GIVE SPR|
00000FA0: 49 54 45 20 23 4E 20 41 20 59 2D 50 4F 53 49 54 |ITE #N A Y-POSIT|
00000FB0: 49 4F 4E 22 00 D8 17 7C 06 43 4D 24 28 31 30 29 |ION"...|.CM$(10)|
00000FC0: B2 22 45 58 50 41 4E 44 20 49 4E 20 59 2D 44 49 |."EXPAND IN Y-DI|
00000FD0: 52 45 43 54 49 4F 4E 22 00 FC 17 7D 06 43 4D 24 |RECTION"...}.CM$|
00000FE0: 28 31 31 29 B2 22 45 58 50 41 4E 44 20 49 4E 20 |(11)."EXPAND IN |
00000FF0: 58 2D 44 49 52 45 43 54 49 4F 4E 22 00 2C 18 7E |X-DIRECTION".,.~|
00001000: 06 43 4D 24 28 31 32 29 B2 22 50 55 54 20 12 43 |.CM$(12)."PUT .C|
00001010: 48 49 50 92 20 49 4E 54 4F 20 4D 55 4C 54 49 2D |HIP. INTO MULTI-|
00001020: 43 4F 4C 4F 55 52 20 4D 4F 44 45 22 00 5D 18 7F |COLOUR MODE".]..|
00001030: 06 43 4D 24 28 31 33 29 B2 22 12 53 50 52 49 54 |.CM$(13).".SPRIT|
00001040: 45 92 20 23 4E 20 49 4E 54 4F 20 4D 55 4C 54 49 |E. #N INTO MULTI|
00001050: 2D 43 4F 4C 4F 55 52 20 4D 4F 44 45 22 00 7E 18 |-COLOUR MODE".~.|
00001060: A4 06 8D 36 30 30 30 30 3A 99 22 93 52 45 56 49 |...60000:.".REVI|
00001070: 45 57 3A 22 3A 99 22 B8 B8 B8 B8 B8 B8 22 00 AF |EW:":."......"..|
00001080: 18 AE 06 99 22 12 56 3D 35 33 32 34 38 20 20 20 |....".V=53248 |
00001090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000010A0: 20 20 20 20 20 20 20 22 3A 8D 31 30 39 30 30 00 | ":.10900.|
000010B0: E0 18 B8 06 99 22 12 46 4F 52 49 3D 30 54 4F 36 |.....".FORI=0TO6|
000010C0: 32 3A 52 45 41 44 58 3A 50 4F 4B 45 38 33 32 2B |2:READX:POKE832+|
000010D0: 49 2C 58 3A 4E 45 58 54 22 3A 8D 31 30 39 30 30 |I,X:NEXT":.10900|
000010E0: 00 11 19 C2 06 99 22 12 50 4F 4B 45 32 30 34 30 |......".POKE2040|
000010F0: 2B 4E 2C 31 33 20 20 20 20 20 20 20 20 20 20 20 |+N,13 |
00001100: 20 20 20 20 20 20 20 20 20 22 3A 8D 31 30 39 30 | ":.1090|
00001110: 30 00 42 19 CC 06 99 22 12 50 4F 4B 45 56 2B 33 |0.B....".POKEV+3|
00001120: 33 2C 43 30 20 20 20 20 20 20 20 20 20 20 20 20 |3,C0 |
00001130: 20 20 20 20 20 20 20 20 20 20 22 3A 8D 31 30 39 | ":.109|
00001140: 30 30 00 73 19 D6 06 99 22 12 50 4F 4B 45 56 2B |00.s....".POKEV+|
00001150: 33 37 2C 43 31 20 20 20 20 20 20 20 20 20 20 20 |37,C1 |
00001160: 20 20 20 20 20 20 20 20 20 20 20 22 3A 8D 31 30 | ":.10|
00001170: 39 30 30 00 A4 19 E0 06 99 22 12 50 4F 4B 45 56 |900......".POKEV|
00001180: 2B 33 39 2B 4E 2C 43 32 20 20 20 20 20 20 20 20 |+39+N,C2 |
00001190: 20 20 20 20 20 20 20 20 20 20 20 20 22 3A 8D 31 | ":.1|
000011A0: 30 39 30 30 00 D5 19 EA 06 99 22 12 50 4F 4B 45 |0900......".POKE|
000011B0: 56 2B 33 38 2C 43 33 20 20 20 20 20 20 20 20 20 |V+38,C3 |
000011C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3A 8D | ":.|
000011D0: 31 30 39 30 30 00 06 1A F4 06 99 22 12 50 4F 4B |10900......".POK|
000011E0: 45 56 2B 32 2A 4E 2C 58 20 20 20 20 20 20 20 20 |EV+2*N,X |
000011F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3A | ":|
00001200: 8D 31 30 39 30 30 00 37 1A FE 06 99 22 12 50 4F |.10900.7....".PO|
00001210: 4B 45 56 2B 32 2A 4E 2B 31 2C 59 20 20 20 20 20 |KEV+2*N+1,Y |
00001220: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "|
00001230: 3A 8D 31 30 39 30 30 00 68 1A 08 07 99 22 12 50 |:.10900.h....".P|
00001240: 4F 4B 45 56 2B 32 33 2C 31 20 20 20 20 20 20 20 |OKEV+23,1 |
00001250: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001260: 22 3A 8D 31 30 39 30 30 00 99 1A 12 07 99 22 12 |":.10900......".|
00001270: 50 4F 4B 45 56 2B 32 39 2C 31 20 20 20 20 20 20 |POKEV+29,1 |
00001280: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001290: 20 22 3A 8D 31 30 39 30 30 00 CA 1A 1C 07 99 22 | ":.10900......"|
000012A0: 12 50 4F 4B 45 56 2B 32 32 2C 50 45 45 4B 28 56 |.POKEV+22,PEEK(V|
000012B0: 2B 32 32 29 4F 52 31 36 20 20 20 20 20 20 20 20 |+22)OR16 |
000012C0: 20 20 22 3A 8D 31 30 39 30 30 00 FB 1A 26 07 99 | ":.10900...&..|
000012D0: 22 12 50 4F 4B 45 56 2B 32 38 2C 32 5E 4E 20 20 |".POKEV+28,2^N |
000012E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000012F0: 20 20 20 22 3A 8D 31 30 39 30 30 00 1D 1B 0F 27 | ":.10900....'|
00001300: 4D 53 24 B2 22 41 55 20 52 45 56 4F 49 52 22 3A |MS$."AU REVOIR":|
00001310: 99 22 93 22 3A 8D 36 33 31 30 30 3A 80 00 31 1B |.".":.63100:..1.|
00001320: 10 27 8F 20 4C 41 4E 44 45 52 20 53 50 52 49 54 |.'. LANDER SPRIT|
00001330: 45 00 4D 1B 15 27 81 49 B2 30 A4 36 32 3A 87 58 |E.M..'.I.0.62:.X|
00001340: 3A 97 38 33 32 AA 49 2C 58 3A 82 3A 8E 00 6F 1B |:.832.I,X:.:..o.|
00001350: 1A 27 83 30 2C 31 31 39 2C 36 34 2C 31 2C 31 38 |.'.0,119,64,1,18|
00001360: 39 2C 32 30 38 2C 37 2C 31 39 31 2C 31 31 36 00 |9,208,7,191,116.|
00001370: 95 1B 1B 27 83 33 30 2C 31 37 30 2C 31 30 30 2C |...'.30,170,100,|
00001380: 33 30 2C 31 37 30 2C 31 30 30 2C 33 30 2C 31 37 |30,170,100,30,17|
00001390: 30 2C 31 30 30 00 B7 1B 1C 27 83 32 31 2C 32 31 |0,100....'.21,21|
000013A0: 2C 38 34 2C 32 31 2C 32 31 2C 38 34 2C 33 30 2C |,84,21,21,84,30,|
000013B0: 31 37 30 2C 31 30 30 00 DD 1B 1D 27 83 33 30 2C |170,100....'.30,|
000013C0: 31 37 30 2C 31 30 30 2C 32 37 2C 31 38 37 2C 31 |170,100,27,187,1|
000013D0: 31 36 2C 32 37 2C 31 38 37 2C 31 31 36 00 03 1C |16,27,187,116...|
000013E0: 1E 27 83 32 37 2C 31 38 37 2C 31 31 36 2C 32 37 |.'.27,187,116,27|
000013F0: 2C 31 36 33 2C 31 31 36 2C 32 37 2C 31 36 33 2C |,163,116,27,163,|
00001400: 31 31 36 00 22 1C 1F 27 83 35 2C 38 35 2C 38 30 |116."..'.5,85,80|
00001410: 2C 37 2C 32 32 37 2C 38 30 2C 32 33 2C 33 35 2C |,7,227,80,23,35,|
00001420: 38 34 00 41 1C 20 27 83 31 37 2C 39 37 2C 36 38 |84.A. '.17,97,68|
00001430: 2C 38 34 2C 38 35 2C 32 31 2C 38 34 2C 30 2C 32 |,84,85,21,84,0,2|
00001440: 31 00 55 1C 74 27 8F 20 53 50 52 49 54 45 20 42 |1.U.t'. SPRITE B|
00001450: 4F 52 44 45 52 00 7A 1C 79 27 99 22 13 12 20 20 |ORDER.z.y'.".. |
00001460: 20 20 20 20 20 20 20 20 20 20 31 31 31 31 31 31 | 111111|
00001470: 31 31 31 31 32 32 32 32 32 22 00 9E 1C 7E 27 99 |111122222"...~'.|
00001480: 22 12 20 20 20 31 32 33 34 35 36 37 38 39 30 31 |". 12345678901|
00001490: 32 33 34 35 36 37 38 39 30 31 32 33 34 22 00 CC |2345678901234"..|
000014A0: 1C 88 27 81 49 B2 31 A4 32 31 3A 49 24 B2 C4 28 |..'.I.1.21:I$..(|
000014B0: 49 29 3A 49 24 B2 C9 28 22 20 22 AA 49 24 2C 32 |I):I$..(" ".I$,2|
000014C0: 29 3A 99 22 12 22 49 24 3A 82 3A 8E 00 E1 1C D8 |):."."I$:.:.....|
000014D0: 27 8F 20 44 49 53 50 4C 41 59 20 50 49 58 45 4C |'. DISPLAY PIXEL|
000014E0: 53 00 00 1D DD 27 99 22 13 11 22 3A 81 49 B2 30 |S....'."..":.I.0|
000014F0: A4 36 32 A9 33 3A 58 B2 C2 28 38 33 32 AA 49 29 |.62.3:X..(832.I)|
00001500: 00 0E 1D E2 27 81 4A B2 37 A4 30 A9 AB 31 00 29 |....'.J.7.0..1.)|
00001510: 1D EC 27 8B 58 AF 50 28 4A 29 A7 99 53 24 28 31 |..'.X.P(J)..S$(1|
00001520: 29 3B 3A 89 31 30 32 34 30 00 35 1D F6 27 99 53 |);:.10240.5..'.S|
00001530: 24 28 30 29 3B 00 48 1D 00 28 82 3A 58 B2 C2 28 |$(0);.H..(.:X..(|
00001540: 38 33 32 AA 49 AA 31 29 00 56 1D 0A 28 81 4A B2 |832.I.1).V..(.J.|
00001550: 37 A4 30 A9 AB 31 00 71 1D 14 28 8B 58 AF 50 28 |7.0..1.q..(.X.P(|
00001560: 4A 29 A7 99 53 24 28 31 29 3B 3A 89 31 30 32 38 |J)..S$(1);:.1028|
00001570: 30 00 7D 1D 1E 28 99 53 24 28 30 29 3B 00 90 1D |0.}..(.S$(0);...|
00001580: 28 28 82 3A 58 B2 C2 28 38 33 32 AA 49 AA 32 29 |((.:X..(832.I.2)|
00001590: 00 9E 1D 32 28 81 4A B2 37 A4 30 A9 AB 31 00 B9 |...2(.J.7.0..1..|
000015A0: 1D 3C 28 8B 58 AF 50 28 4A 29 A7 99 53 24 28 31 |.<(.X.P(J)..S$(1|
000015B0: 29 3B 3A 89 31 30 33 32 30 00 C5 1D 46 28 99 53 |);:.10320...F(.S|
000015C0: 24 28 30 29 3B 00 D8 1D 50 28 82 3A 99 3A 82 3A |$(0);...P(.:.:.:|
000015D0: 8D 31 30 31 30 30 3A 8E 00 EF 1D A0 28 8F 20 53 |.10100:.....(. S|
000015E0: 50 52 49 54 45 20 49 4E 20 42 49 4E 41 52 59 00 |PRITE IN BINARY.|
000015F0: FE 1D A5 28 99 22 13 11 11 1D 1D 1D 22 3B 00 33 |...(."......";.3|
00001600: 1E AA 28 81 49 B2 30 A4 32 30 3A 81 4A B2 33 A4 |..(.I.0.20:.J.3.|
00001610: 32 36 3A 8B C2 28 31 31 30 34 AA 34 30 AC 49 AA |26:..(1104.40.I.|
00001620: 4A 29 B2 31 36 30 A7 99 22 31 22 3B 3A 89 31 30 |J).160.."1";:.10|
00001630: 34 33 30 00 3E 1E B4 28 99 22 30 22 3B 3A 00 52 |430.>..(."0";:.R|
00001640: 1E BE 28 82 3A 99 3A 99 22 1D 1D 1D 22 3B 3A 82 |..(.:.:."...";:.|
00001650: 3A 8E 00 6C 1E 04 29 8F 20 53 50 52 49 54 45 20 |:..l..). SPRITE |
00001660: 49 4E 20 42 49 54 20 50 41 49 52 53 00 B4 1E 09 |IN BIT PAIRS....|
00001670: 29 99 22 13 11 11 1D 1D 1D 22 3B 3A 4B B2 30 3A |)."......";:K.0:|
00001680: 41 B2 31 31 30 34 3A 42 B2 30 3A 43 B2 32 30 3A |A.1104:B.0:C.20:|
00001690: 44 B2 33 3A 45 B2 32 36 3A 46 B2 34 3A 47 B2 34 |D.3:E.26:F.4:G.4|
000016A0: 39 3A 48 B2 34 30 3A 41 24 B2 22 31 22 3A 42 24 |9:H.40:A$."1":B$|
000016B0: B2 22 30 22 00 E5 1E 0E 29 81 49 B2 42 A4 43 3A |."0"....).I.B.C:|
000016C0: 81 4A B2 44 A4 45 3A 8B C2 28 41 AA 48 AC 49 AA |.J.D.E:..(A.H.I.|
000016D0: 4A 29 B2 47 A7 99 52 24 28 4B 29 41 24 3B 3A 89 |J).G..R$(K)A$;:.|
000016E0: 31 30 35 33 30 00 F3 1E 18 29 99 52 24 28 4B 29 |10530....).R$(K)|
000016F0: 42 24 3B 00 06 1F 22 29 4B B2 4B AA 31 3A 8B 4B |B$;...")K.K.1:.K|
00001700: B2 46 A7 4B B2 42 00 1E 1F 2C 29 82 3A 99 3A 4B |.F.K.B...,).:.:K|
00001710: B2 42 3A 99 22 1D 1D 1D 22 3B 3A 82 3A 8E 00 2A |.B:."...";:.:..*|
00001720: 1F 68 29 8F 20 43 4C 45 41 52 00 4E 1F 72 29 81 |.h). CLEAR.N.r).|
00001730: 49 B2 31 A4 32 30 3A 99 50 53 24 22 91 22 3B 3A |I.1.20:.PS$".";:|
00001740: 81 4A B2 31 A4 49 3A 99 22 11 22 3B 3A 82 00 66 |.J.1.I:.".";:..f|
00001750: 1F 7C 29 99 22 20 20 20 20 20 20 20 20 20 20 20 |.|)." |
00001760: 20 22 3A 82 3A 8E 00 78 1F CC 29 8F 20 4D 4F 56 | ":.:..x..). MOV|
00001770: 45 20 53 50 52 49 54 45 00 9A 1F D1 29 99 22 93 |E SPRITE....).".|
00001780: 90 48 49 54 20 27 51 27 20 54 4F 20 51 55 49 54 |.HIT 'Q' TO QUIT|
00001790: 22 3A 97 35 33 32 38 31 2C 31 00 D0 1F D6 29 56 |":.53281,1....)V|
000017A0: B2 35 33 32 34 38 3A 97 56 AA 32 38 2C 31 3A 97 |.53248:.V.28,1:.|
000017B0: 56 AA 32 31 2C 31 3A 97 56 AA 32 39 2C 4F 3A 97 |V.21,1:.V.29,O:.|
000017C0: 56 AA 32 33 2C 30 3A 46 B2 30 3A 47 B2 32 35 35 |V.23,0:F.0:G.255|
000017D0: 00 01 20 E0 29 81 54 B2 46 A4 47 3A 58 B2 54 3A |.. .).T.F.G:X.T:|
000017E0: 59 B2 54 3A 97 56 2C 58 3A 97 56 AA 31 2C 59 3A |Y.T:.V,X:.V.1,Y:|
000017F0: A1 41 24 3A 8B 41 24 B2 22 51 22 A7 31 30 37 39 |.A$:.A$."Q".1079|
00001800: 35 00 0E 20 E5 29 8D 31 30 38 30 30 3A 82 00 22 |5.. .).10800:.."|
00001810: 20 EA 29 97 56 AA 32 39 2C 31 3A 97 56 AA 32 33 | .).V.29,1:.V.23|
00001820: 2C 30 00 56 20 F4 29 81 54 B2 47 A4 46 A9 AB 31 |,0.V .).T.G.F..1|
00001830: 3A 58 B2 54 3A 59 B2 54 3A 97 56 2C 58 3A 97 56 |:X.T:Y.T:.V,X:.V|
00001840: AA 31 2C 59 3A A1 41 24 3A 8B 41 24 B2 22 51 22 |.1,Y:.A$:.A$."Q"|
00001850: A7 31 30 37 39 35 00 63 20 F9 29 8D 31 30 38 30 |.10795.c .).1080|
00001860: 30 3A 82 00 77 20 FE 29 97 56 AA 32 39 2C 30 3A |0:..w .).V.29,0:|
00001870: 97 56 AA 32 33 2C 31 00 AA 20 08 2A 81 54 B2 46 |.V.23,1.. .*.T.F|
00001880: A4 47 3A 58 B2 54 3A 59 B2 47 AB 54 3A 97 56 2C |.G:X.T:Y.G.T:.V,|
00001890: 58 3A 97 56 AA 31 2C 59 3A A1 41 24 3A 8B 41 24 |X:.V.1,Y:.A$:.A$|
000018A0: B2 22 51 22 A7 31 30 37 39 35 00 B7 20 0D 2A 8D |."Q".10795.. .*.|
000018B0: 31 30 38 30 30 3A 82 00 CB 20 12 2A 97 56 AA 32 |10800:... .*.V.2|
000018C0: 39 2C 31 3A 97 56 AA 32 33 2C 31 00 01 21 1C 2A |9,1:.V.23,1..!.*|
000018D0: 81 54 B2 47 A4 46 A9 AB 31 3A 58 B2 54 3A 59 B2 |.T.G.F..1:X.T:Y.|
000018E0: 47 AB 54 3A 97 56 2C 58 3A 97 56 AA 31 2C 59 3A |G.T:.V,X:.V.1,Y:|
000018F0: A1 41 24 3A 8B 41 24 B2 22 51 22 A7 31 30 37 39 |.A$:.A$."Q".1079|
00001900: 35 00 15 21 26 2A 8D 31 30 38 30 30 3A 82 3A 89 |5..!&*.10800:.:.|
00001910: 31 30 37 31 30 00 22 21 28 2A 8D 31 30 38 30 30 |10710."!(*.10800|
00001920: 3A 82 00 30 21 2B 2A 97 56 AA 32 31 2C 30 3A 8E |:..0!+*.V.21,0:.|
00001930: 00 3D 21 30 2A 8B 41 24 B2 22 22 A7 8E 00 5D 21 |.=!0*.A$.""...]!|
00001940: 3A 2A 41 B2 C5 28 41 24 29 3A 43 43 B2 43 43 AA |:*A..(A$):CC.CC.|
00001950: 31 3A 8B 43 43 B1 31 35 A7 43 43 B2 30 00 80 21 |1:.CC.15.CC.0..!|
00001960: 44 2A 91 20 41 AA 31 20 89 31 30 38 33 30 2C 31 |D*. A.1 .10830,1|
00001970: 30 38 34 30 2C 31 30 38 35 30 2C 31 30 38 36 30 |0840,10850,10860|
00001980: 00 86 21 49 2A 8E 00 95 21 4E 2A 97 56 AA 33 33 |..!I*...!N*.V.33|
00001990: 2C 43 43 3A 8E 00 A4 21 58 2A 97 56 AA 33 37 2C |,CC:...!X*.V.37,|
000019A0: 43 43 3A 8E 00 B3 21 62 2A 97 56 AA 33 39 2C 43 |CC:...!b*.V.39,C|
000019B0: 43 3A 8E 00 C2 21 6C 2A 97 56 AA 33 38 2C 43 43 |C:...!l*.V.38,CC|
000019C0: 3A 8E 00 D0 21 94 2A 8F 20 43 4F 4D 4D 45 4E 54 |:...!.*. COMMENT|
000019D0: 00 FA 21 99 2A 99 44 30 24 43 4D 24 28 4B 29 3A |..!.*.D0$CM$(K):|
000019E0: 8D 36 33 30 30 30 3A 99 C8 28 44 44 24 2C 4B AA |.63000:..(DD$,K.|
000019F0: 33 29 3A 4B B2 4B AA 31 3A 8E 00 0B 22 60 EA 8F |3):K.K.1:..."`..|
00001A00: 20 49 4E 49 54 49 41 4C 49 5A 45 00 2D 22 61 EA | INITIALIZE.-"a.|
00001A10: 42 54 24 B2 22 13 22 3A 81 49 B2 31 A4 32 34 3A |BT$.".":.I.1.24:|
00001A20: 42 54 24 B2 42 54 24 AA 22 11 22 3A 82 00 77 22 |BT$.BT$.".":..w"|
00001A30: 62 EA 50 54 24 B2 22 9E B0 C0 C0 C0 C0 C0 C0 C0 |b.PT$.".........|
00001A40: C0 C0 C0 AE 11 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |................|
00001A50: 9D DD 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D DD 11 9D 9D |................|
00001A60: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D AD B2 C0 C0 C0 C0 |................|
00001A70: C0 C0 C0 C0 B2 BD 22 00 BF 22 63 EA 50 54 24 B2 |......".."c.PT$.|
00001A80: 50 54 24 AA 22 11 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |PT$."...........|
00001A90: 9D 9D 9D CE A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
00001AA0: CD 11 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |................|
00001AB0: A5 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D A7 22 00 |.============.".|
00001AC0: FB 22 64 EA 50 54 24 B2 50 54 24 AA 22 11 9D 9D |."d.PT$.PT$."...|
00001AD0: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D D0 CF A3 A3 |................|
00001AE0: A3 A3 A3 A3 A3 A3 A3 A3 D0 CF 91 91 91 91 9D 9D |................|
00001AF0: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 00 32 23 65 EA |..........".2#e.|
00001B00: 50 54 24 B2 42 54 24 AA 22 91 91 91 91 91 91 1D |PT$.BT$.".......|
00001B10: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001B20: 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 AA 50 54 24 AA 22 |.........".PT$."|
00001B30: 9F 22 00 62 23 67 EA 4D 4C 24 B2 22 13 11 11 11 |.".b#g.ML$."....|
00001B40: 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001B50: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001B60: 1D 22 00 75 23 68 EA 57 44 B2 34 30 3A 43 52 54 |.".u#h.WD.40:CRT|
00001B70: B2 31 30 32 34 00 90 23 69 EA 97 35 33 32 38 31 |.1024..#i..53281|
00001B80: 2C 36 3A 97 35 33 32 38 30 2C 36 3A 99 22 05 22 |,6:.53280,6:."."|
00001B90: 00 AD 23 6A EA 56 B2 35 33 32 34 38 3A 81 49 B2 |..#j.V.53248:.I.|
00001BA0: 30 A4 31 36 3A 97 56 AA 49 2C 30 3A 82 00 E6 23 |0.16:.V.I,0:...#|
00001BB0: 6B EA 97 56 AA 32 33 2C 30 3A 97 56 AA 32 39 2C |k..V.23,0:.V.29,|
00001BC0: 30 3A 81 49 B2 30 A4 37 3A 97 56 AA 33 39 AA 49 |0:.I.0.7:.V.39.I|
00001BD0: 2C 30 3A 82 3A 97 56 AA 32 32 2C 32 30 30 3A 97 |,0:.:.V.22,200:.|
00001BE0: 56 AA 32 38 2C 30 00 00 24 74 EA 53 24 28 30 29 |V.28,0..$t.S$(0)|
00001BF0: B2 22 20 22 3A 53 24 28 31 29 B2 22 12 20 92 22 |." ":S$(1).". ."|
00001C00: 00 23 24 7E EA 44 4E 24 B2 22 13 11 11 11 11 11 |.#$~.DN$."......|
00001C10: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00001C20: 11 11 22 00 65 24 83 EA 42 4C 24 B2 22 20 20 20 |..".e$..BL$." |
00001C30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001C40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001C50: 20 20 20 20 22 3A 44 4E 24 B2 44 4E 24 AA 42 4C | ":DN$.DN$.BL|
00001C60: 24 AA 44 4E 24 00 8E 24 88 EA 50 53 24 B2 22 13 |$.DN$..$..PS$.".|
00001C70: 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001C80: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 00 BA |............."..|
00001C90: 24 8D EA 52 24 28 30 29 B2 22 92 22 3A 52 24 28 |$..R$(0).".":R$(|
00001CA0: 31 29 B2 22 92 22 3A 52 24 28 32 29 B2 22 12 22 |1).".":R$(2)."."|
00001CB0: 3A 52 24 28 33 29 B2 22 12 22 00 D0 24 C4 EA 81 |:R$(3)."."..$...|
00001CC0: 4A B2 30 A4 37 3A 50 28 4A 29 B2 32 AE 4A 3A 82 |J.0.7:P(J).2.J:.|
00001CD0: 00 D6 24 28 EB 8E 00 E1 24 30 F2 8D 36 33 30 30 |..$(....$0..6300|
00001CE0: 30 00 F7 24 31 F2 99 53 44 24 43 4C 24 3A 99 43 |0..$1..SD$CL$:.C|
00001CF0: 4C 24 3A 99 43 4C 24 00 FD 24 33 F2 8E 00 37 25 |L$:.CL$..$3...7%|
00001D00: 18 F6 99 22 13 11 11 11 11 11 11 11 11 11 11 11 |..."............|
00001D10: 11 11 11 11 11 11 11 11 11 11 11 11 11 48 49 54 |.............HIT|
00001D20: 20 12 52 45 54 55 52 4E 92 20 54 4F 20 43 4F 4E | .RETURN. TO CON|
00001D30: 54 49 4E 55 45 22 3B 00 4D 25 19 F6 A1 41 24 3A |TINUE";.M%...A$:|
00001D40: 8B 41 24 B3 B1 22 22 A7 36 33 30 30 31 00 62 25 |.A$.."".63001.b%|
00001D50: 1A F6 A1 41 24 3A 8B 41 24 B2 22 22 A7 36 33 30 |...A$:.A$."".630|
00001D60: 30 32 00 68 25 1B F6 8E 00 7C 25 7C F6 81 54 B2 |02.h%....|%|..T.|
00001D70: 31 A4 35 3A 99 50 54 24 4D 53 24 3B 00 92 25 7D |1.5:.PT$MS$;..%}|
00001D80: F6 99 50 54 24 22 20 20 20 20 20 20 20 20 20 20 |..PT$" |
00001D90: 22 3B 00 A1 25 7E F6 99 50 54 24 4D 53 24 3B 3A |";..%~..PT$MS$;:|
00001DA0: 82 00 AC 25 7F F6 99 22 05 22 3A 8E 00 F9 25 9C |...%...".":...%.|
00001DB0: F9 53 44 24 B2 22 13 11 11 11 11 11 11 11 11 11 |.SD$."..........|
00001DC0: 11 11 11 11 11 11 11 11 11 22 3A 43 4C 24 B2 22 |.........":CL$."|
00001DD0: 92 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
00001DE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001DF0: 20 20 20 20 20 20 20 92 22 00 2C 26 9D F9 53 52 | .".,&..SR|
00001E00: 24 B2 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |$.".............|
00001E10: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001E20: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 00 32 26 9E |...........".2&.|
00001E30: F9 8E 00 00 00 |..... |
..!...."....... PONZO*82*WATERLOO......"
.......X....60000:.". ..SPR
ITES-2."......".........................
..............".K....". .. MULTI
COLOUR SPRITES .. .":MS$." WELCOME
! "......"..............................
.........":.63100:.63000......10000.P...
V.53248:.2040,13:.V.1,150:.V,150:.V.39,1
:.V.29,1:.V.23,1......V.21,1:.".......TH
IS IS A SPRITE.":.T.1.1000:.......".A 'S
ORT-OF' LUNAR LANDER.":.T.1.1000:..Y....
".LET'S LOOK AT IT MORE CLOSELY.".....MS
$."LET'S LOOK":.63100:.63000:.V.21,0.5.$
..".......WE'LL DISPLAY THE PIXELS THAT
MAKE".V....".UP THIS SPRITE...":.63000.R
.3..V,255:.V.1,180:.V.21,1...8..".":.102
00...=..I.1.5...>..DN$".NOW, IN BINARY
":.T.1.50:....?..DN$".
":.T.1.50:....@..:.1
0400...B..I.1.5.8.C..DN$"....AND IN BIT-
PAIRS ":.T.1.50:..I.D..DN$".
":.T.1.50:..O.E...
..L..10500:.63000...V..PS$"NOW WE'LL "
...`..PS$".CHOOSE 4 ".I.J..PS$"..COLO
URS AND "...T..PS$"...SET EACH "...~.
.PS$"....PIXEL PAIR "......PS$".....TO
A COLOUR ".7....PS$"......ACCORDING TO".
X....PS$".........00.=COLOUR #0".Z....PS
$"..........01.=COLOUR #1"......PS$"....
.......10.=COLOUR #2".H....PS$".........
...11.=COLOUR #3":.63000......10600:.I.1
.5:.DN$"BASE OF VIDEO CHIP":.T.1.50:..'.
...DN$".BASE OF VIDEO CHIP":.T.1.50:.:..
G.D..PS$"V=53248:VIDEO":V.53248.P.I..630
00:.DN$".SET COLOUR #0=1(WHITE)"...N..PS
$"..POKEV+33,1 ":.V.33,1...X..63000:.DN$
".V+33=53281(BACKGROUND)"......63000:.DN
$"SET COLOUR #1=0(BLACK)"......PS$"...PO
KEV+37,0 ":.V.37,0.6....63000:.DN$".V+37
=SPRITE MULTI-COLOUR REG'R #0".\....6300
0:.DN$"SET COLOUR #2=2(RED)"......PS$"..
..POKEV+39,2 ":.63000:.V.39,2......63000
:.DN$".V+39=COLOUR REGISTER FOR SPRITE #
0"......63000:.DN$"SET COLOUR #3=3(CYAN)
"......PS$".....POKEV+38,3 ":.V.38,3.@..
..63000:.DN$".V+38=SPRITE MULTI-COLOUR R
EG'R #1" :.63000.A....DN$".PLEASE NOTE!!
!":.63000......DN$".POKEV+39,2. CHANGED
SPRITE TO RED":.63000.I.(..DN$"& .POKEV+
33,14. CHANGED BACKGROUND":.63000.T.2..I
.1.5...3..DN$".BUT WHERE'S THE BLACK AND
CYAN??":.T.1.50:..@.4..DN$".
":.T.1.50:..F.5...Y
.<.MS$." WATCH!!":.".":.V.21,0:.63100:."
.":.10700...F..60000:MS$."HOW TO DO?":.6
3100.E.P..".THE .00. COLOUR WAS 'BACKGRO
UND'"...Z..".(AND SHARED BY ALL VISIBLE
SPRITES)"...D..".AND .POKE V+33. CHANGES
THIS COLOUR.".N.N..".THE .10. COLOUR WA
S THE 'SPRITE COLOUR'".}.X..".(AND CAN B
E DIFFERENT FOR EACH SPRITE)"......".AND
.POKE V+39+N. CHANGES THIS COLOUR".S...
.".(FOR SPRITE #N, WITH N=0 TO 7).".....
MS$.".01. & .11.???":.63100:.63000.%. ..
".THEN, IN REGISTERS .V+37. & .V+38.".N.
...".ARE THE .SPRITE MULTI-COLOURS.!!".{
...."..POKE V+37. AND .POKE V+38. WITH T
HE"......".COLOURS YOU WANT FOR THE .01.
AND .11"...H..".BIT PAIRS!!":MS$."ALL S
HARED":.63100:.63000...R..".OK..OUR BACK
GROUND CHANGES AND SO DOES".)....".OUR '
SORT-OF' SPRITE.".R....".NOW TO .ENABLE.
MULTI-COLOUR FOR"......".SPRITE #N, WE:
.POKE V+28,2^N.!!":MS$."ENABLE #N":.631
00:.63000.L...."......STILL NO CHANGE IN
OUR SPRITE!":.63000......".WE MUST PUT
THE C64 VIDEO CHIP INTO:".3...."..MULTI-
COLOUR MODE":."...POKE V+17,PEEK(V+17)OR
16".G....".SETTING .BIT 4.=.M.ULTI .C.OL
OUR .M.ODE BIT"..."..".THEN THOSE SPRITE
S WHICH WERE"...,.."..MULTI-COLOUR ENABL
ED. (POKEV+28,2^N)"...6..".BECOME 'MULTI
-COLOURED'!!":MS$."BEAUTIFUL!":.63100:.6
3000.*.@.."....NOW YOU........ CHANGE TH
E COLOURS".G.J..".OF OUT LUNAR LANDER!".
T.T..".JUST HIT .0. OR .1. OR .2. OR .3.
TO"...^..".CHANGE COLOUR #0,#1,#2 OR #3
.".X.H.."......AND HIT 'Q' TO QUIT!":MS$
." READY?":.63100:.63000...M..".":V.5324
8:.V.22,216:.10700.@.R.. CM$(15):DD$."..
...................":K.1:D0$.DD$.BL$.DD$
:."...";.E.S.CM$(1)."VIDEO CHIP BASE ADD
RESS"...T.CM$(2)."PUT 'SHAPE' INTO A BLO
CK"...U.CM$(3)."POINT CHIP TO BLOCK".V.V
.CM$(4)."SET .00. COLOUR (BACKGROUND)"..
.W.CM$(5)."SET .01. COLOUR (COLOUR REG'R
#0)".2.X.CM$(6)."SET .10. COLOUR (SPRIT
E COLOUR)".A.Y.CM$(7)."SET .11. COLOUR (
COLOUR REG'R #1)"...Z.CM$(8)."GIVE SPRIT
E #N AN X-POSITION"...{.CM$(9)."GIVE SPR
ITE #N A Y-POSITION".X.|.CM$(10)."EXPAND
IN Y-DIRECTION"...}.CM$(11)."EXPAND IN
X-DIRECTION".,.~.CM$(12)."PUT .CHIP. INT
O MULTI-COLOUR MODE".]..CM$(13).".SPRIT
E. #N INTO MULTI-COLOUR MODE".~....60000
:.".REVIEW:":."......"......".V=53248
":.10900......".F
ORI=0TO62:READX:POKE832+I,X:NEXT":.10900
...B..".POKE2040+N,13
":.10900.B.L..".POKEV+33,C0
":.10900.S.V..".POKEV+37,C1
":.10900......".POKEV
+39+N,C2 ":.10900.U..
..".POKEV+38,C3 ":.
10900......".POKEV+2*N,X
":.10900.7....".POKEV+2*N+1,Y
":.10900.H....".POKEV+23,
1 ":.10900......".
POKEV+29,1 ":.1090
0.J....".POKEV+22,PEEK(V+22)OR16
":.10900...&..".POKEV+28,2^N
":.10900....'MS$."AU REVOIR":
.".":.63100:..1..'. LANDER SPRITE.M..'.I
.0.62:.X:.832.I,X:.:..O..'.0,119,64,1,18
9,208,7,191,116....'.30,170,100,30,170,1
00,30,170,100....'.21,21,84,21,21,84,30,
170,100....'.30,170,100,27,187,116,27,18
7,116....'.27,187,116,27,163,116,27,163,
116."..'.5,85,80,7,227,80,23,35,84.A. '.
17,97,68,84,85,21,84,0,21.U.T'. SPRITE B
ORDER.Z.Y'.".. 11111111112222
2"...~'.". 123456789012345678901234".L
..'.I.1.21:I$.D(I):I$.I(" ".I$,2):."."I$
:.:....X'. DISPLAY PIXELS....'."..":.I.0
.62.3:X.B(832.I)....'.J.7.0..1.)..'.X.P(
J)..S$(1);:.10240.5..'.S$(0);.H..(.:X.B(
832.I.1).V..(.J.7.0..1.Q..(.X.P(J)..S$(1
);:.10280.}..(.S$(0);...((.:X.B(832.I.2)
...2(.J.7.0..1...<(.X.P(J)..S$(1);:.1032
0.E.F(.S$(0);.X.P(.:.:.:.10100:.... (. S
PRITE IN BINARY....(."......";.3..(.I.0.
20:.J.3.26:.B(1104.40.I.J).160.."1";:.10
430.>..(."0";:.R..(.:.:."...";:.:..L..).
SPRITE IN BIT PAIRS....)."......";:K.0:
A.1104:B.0:C.20:D.3:E.26:F.4:G.49:H.40:A
$."1":B$."0"....).I.B.C:.J.D.E:.B(A.H.I.
J).G..R$(K)A$;:.10530....).R$(K)B$;...")
K.K.1:.K.F.K.B...,).:.:K.B:."...";:.:..*
.H). CLEAR.N.R).I.1.20:.PS$".";:.J.1.I:.
".";:..F.|)." ":.:..X.L). MOV
E SPRITE...Q)."..HIT 'Q' TO QUIT":.53281
,1.P.V)V.53248:.V.28,1:.V.21,1:.V.29,O:.
V.23,0:F.0:G.255.. .).T.F.G:X.T:Y.T:.V,X
:.V.1,Y:.A$:.A$."Q".10795.. .).10800:.."
.).V.29,1:.V.23,0.V .).T.G.F..1:X.T:Y.T
:.V,X:.V.1,Y:.A$:.A$."Q".10795.C .).1080
0:..W .).V.29,0:.V.23,1.. .*.T.F.G:X.T:Y
.G.T:.V,X:.V.1,Y:.A$:.A$."Q".10795.. .*.
10800:..K .*.V.29,1:.V.23,1..!.*.T.G.F..
1:X.T:Y.G.T:.V,X:.V.1,Y:.A$:.A$."Q".1079
5..!&*.10800:.:.10710."!(*.10800:..0!+*.
V.21,0:..=!0*.A$.""...]!:*A.E(A$):CC.CC.
1:.CC.15.CC.0..!D*. A.1 .10830,10840,108
50,10860..!I*...!N*.V.33,CC:...!X*.V.37,
CC:...!B*.V.39,CC:..B!L*.V.38,CC:..P!.*.
COMMENT..!.*.D0$CM$(K):.63000:.H(DD$,K.
3):K.K.1:..."`.. INITIALIZE.-"A.BT$.".":
.I.1.24:BT$.BT$.".":..W"B.PT$.".........
........................................
..............".."C.PT$.PT$."...........
...N............M................=======
=====.".."D.PT$.PT$."...............PO..
........PO................".2#E.PT$.BT$.
"................................".PT$."
.".B#G.ML$."............................
.........".U#H.WD.40:CRT.1024..#I..53281
,6:.53280,6:."."..#J.V.53248:.I.0.16:.V.
I,0:...#K..V.23,0:.V.29,0:.I.0.7:.V.39.I
,0:.:.V.22,200:.V.28,0..$T.S$(0)." ":S$(
1).". .".#$~.DN$."......................
..".E$..BL$."
":DN$.DN$.BL$.DN$..$..PS$.".
............................."..$..R$(0)
.".":R$(1).".":R$(2).".":R$(3).".".P$D..
J.0.7:P(J).2.J:..V$(....$0..63000..$1..S
D$CL$:.CL$:.CL$..$3...7%..."............
.............HIT .RETURN. TO CONTINUE";.
M%...A$:.A$.."".63001.B%...A$:.A$."".630
02.H%....|%|..T.1.5:.PT$MS$;..%}..PT$"
";..%~..PT$MS$;:...%..".":...%.
.SD$."...................":CL$.".
.".,&..SR
$.".....................................
...".2&......
> CLICK IMAGE PREVIEW FOR FULL MODAL