Multiple names: SPRITE TUTOR-2, SPRITES TUT-2.64
FILE INFORMATION
FILENAME(S):
• SPRITE TUTOR-2<br>• SPRITES TUT-2.64
FILE TYPE(S): PRG
FILE SIZE: 7.6K
FIRST SEEN: 2025-10-20 14:30:19
APPEARS ON: 5 disk(s)
FILE HASH
ea495ef91e344a0489276dc210535969b1fe3c9827243d1b714fc38c0e7bce7b
FOUND ON DISKS (5 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PB DOMAIN 0031ED | SPRITE TUTOR-2 | PRG | Treasure Chest - Klaus Der Suhler | 2 | 0 | DOWNLOAD FILE |
| FREESOFT DISK NR | SPRITES TUT-2.64 | PRG | Treasure Chest - Wolfgang Rauprich | 26 | 1 | DOWNLOAD FILE |
| U TILITIE | SPRITES TUT-2.64 | PRG | Treasure Chest - Wolfgang Rauprich | 26 | 1 | DOWNLOAD FILE |
| CCS 64 REG | SPRITES TUT-2.64 | PRG | hedning, Mattias H00r | 13 | 0 | DOWNLOAD FILE |
| CCS 64 REG | SPRITES TUT-2.64 | PRG | hedning, Mattias H00r | 13 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 2D 08 00 00 8F 22 14 14 14 14 14 14 14 20 |..-...."....... |
00000010: 50 2E 4A 2E 50 4F 4E 5A 4F 2A 38 33 2A 57 41 54 |P.J.PONZO*83*WAT|
00000020: 45 52 4C 4F 4F 2F 4F 4E 54 41 52 49 4F 00 3A 08 |ERLOO/ONTARIO.:.|
00000030: 01 00 8F 22 14 14 14 14 14 14 00 6C 08 E8 03 8D |...".......l....|
00000040: 36 30 30 30 30 3A 99 C7 28 31 34 32 29 3A 99 22 |60000:..(142):."|
00000050: 93 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
00000060: 12 1F 53 50 52 49 54 45 53 2D 32 22 00 9C 08 E9 |..SPRITES-2"....|
00000070: 03 99 22 1C B0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |..".............|
00000080: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000090: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 AE 22 00 E0 08 EA |..........."....|
000000A0: 03 99 22 DD 20 12 1F 20 20 20 20 20 20 20 20 20 |..". .. |
000000B0: 20 4D 4F 52 45 20 4F 4E 20 53 50 52 49 54 45 53 | MORE ON SPRITES|
000000C0: 20 20 20 20 20 20 20 20 20 20 1C 92 20 DD 22 3A | .. .":|
000000D0: 4D 53 24 B2 22 50 4F 4E 5A 4F 54 55 54 4F 52 22 |MS$."PONZOTUTOR"|
000000E0: 00 28 09 EB 03 99 22 1C AD C0 C0 C0 C0 C0 C0 C0 |.(....".........|
000000F0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000100: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 BD 90 |................|
00000110: 22 3A 8D 36 33 31 30 30 3A 4D 53 24 B2 22 20 57 |":.63100:MS$." W|
00000120: 45 4C 43 4F 4D 45 21 22 00 3A 09 ED 03 8D 36 33 |ELCOME!".:....63|
00000130: 31 30 30 3A 8D 31 30 30 30 30 00 77 09 F2 03 56 |100:.10000.w...V|
00000140: B2 35 33 32 34 38 3A 97 32 30 34 30 2C 31 33 3A |.53248:.2040,13:|
00000150: 97 56 AA 31 2C 31 35 30 3A 97 56 2C 31 35 30 3A |.V.1,150:.V,150:|
00000160: 97 56 AA 33 39 2C 31 3A 97 56 AA 32 39 2C 31 3A |.V.39,1:.V.29,1:|
00000170: 97 56 AA 32 33 2C 31 00 B7 09 FC 03 97 56 AA 33 |.V.23,1......V.3|
00000180: 39 2C 36 3A 97 56 AA 32 31 2C 31 3A 99 22 13 11 |9,6:.V.21,1:."..|
00000190: 11 11 11 11 11 54 48 49 53 20 49 53 20 41 20 42 |.....THIS IS A B|
000001A0: 4C 55 45 20 53 50 52 49 54 45 2E 22 3A 81 54 B2 |LUE SPRITE.":.T.|
000001B0: 31 A4 39 30 30 3A 82 00 E5 09 06 04 99 22 11 41 |1.900:.......".A|
000001C0: 20 27 53 4F 52 54 2D 4F 46 27 20 4C 55 4E 41 52 | 'SORT-OF' LUNAR|
000001D0: 20 4C 41 4E 44 45 52 2E 22 3A 81 54 B2 31 A4 31 | LANDER.":.T.1.1|
000001E0: 30 30 30 3A 82 00 0C 0A 10 04 99 22 11 4C 45 54 |000:.......".LET|
000001F0: 27 53 20 4C 4F 4F 4B 20 41 54 20 49 54 20 4D 4F |'S LOOK AT IT MO|
00000200: 52 45 20 43 4C 4F 53 45 4C 59 2E 22 00 37 0A 1A |RE CLOSELY.".7..|
00000210: 04 4D 53 24 B2 22 4C 45 54 27 53 20 4C 4F 4F 4B |.MS$."LET'S LOOK|
00000220: 22 3A 8D 36 33 31 30 30 3A 8D 36 33 30 30 30 3A |":.63100:.63000:|
00000230: 97 56 AA 32 31 2C 30 00 68 0A 24 04 99 22 93 11 |.V.21,0.h.$.."..|
00000240: 11 11 11 11 11 57 45 27 4C 4C 20 44 49 53 50 4C |.....WE'LL DISPL|
00000250: 41 59 20 54 48 45 20 50 49 58 45 4C 53 20 54 48 |AY THE PIXELS TH|
00000260: 41 54 20 4D 41 4B 45 22 00 89 0A 2E 04 99 22 11 |AT MAKE"......".|
00000270: 55 50 20 54 48 49 53 20 53 50 52 49 54 45 2E 2E |UP THIS SPRITE..|
00000280: 2E 22 3A 8D 36 33 30 30 30 00 A5 0A 33 04 97 56 |.":.63000...3..V|
00000290: 2C 32 35 35 3A 97 56 AA 31 2C 31 38 30 3A 97 56 |,255:.V.1,180:.V|
000002A0: AA 32 31 2C 31 00 B5 0A 38 04 99 22 93 22 3A 8D |.21,1...8..".":.|
000002B0: 31 30 32 30 30 00 C0 0A 3D 04 81 49 B2 31 A4 35 |10200...=..I.1.5|
000002C0: 00 F1 0A 3E 04 99 44 4E 24 22 12 4E 4F 57 2C 20 |...>..DN$".NOW, |
000002D0: 49 4E 20 42 49 4E 41 52 59 20 20 20 20 20 20 20 |IN BINARY |
000002E0: 20 20 20 20 20 20 22 3A 81 54 B2 31 A4 35 30 3A | ":.T.1.50:|
000002F0: 82 00 22 0B 3F 04 99 44 4E 24 22 12 20 20 20 20 |..".?..DN$". |
00000300: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000310: 20 20 20 20 20 20 20 22 3A 81 54 B2 31 A4 35 30 | ":.T.1.50|
00000320: 3A 82 00 2F 0B 40 04 82 3A 8D 31 30 34 30 30 00 |:../.@..:.10400.|
00000330: 3A 0B 42 04 81 49 B2 31 A4 35 00 6B 0B 43 04 99 |:.B..I.1.5.k.C..|
00000340: 44 4E 24 22 12 2E 2E 2E 41 4E 44 20 49 4E 20 42 |DN$"....AND IN B|
00000350: 49 54 2D 50 41 49 52 53 20 20 20 20 20 20 20 20 |IT-PAIRS |
00000360: 22 3A 81 54 B2 31 A4 35 30 3A 82 00 9C 0B 44 04 |":.T.1.50:....D.|
00000370: 99 44 4E 24 22 12 20 20 20 20 20 20 20 20 20 20 |.DN$". |
00000380: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000390: 20 22 3A 81 54 B2 31 A4 35 30 3A 82 00 A2 0B 45 | ":.T.1.50:....E|
000003A0: 04 82 00 B4 0B 4C 04 8D 31 30 35 30 30 3A 8D 36 |.....L..10500:.6|
000003B0: 33 30 30 30 00 CB 0B 56 04 99 50 53 24 22 4E 4F |3000...V..PS$"NO|
000003C0: 57 20 57 45 27 4C 4C 20 20 20 22 00 E3 0B 60 04 |W WE'LL "...`.|
000003D0: 99 50 53 24 22 11 43 48 4F 4F 53 45 20 34 20 20 |.PS$".CHOOSE 4 |
000003E0: 20 20 22 00 FC 0B 6A 04 99 50 53 24 22 11 11 43 | "...j..PS$"..C|
000003F0: 4F 4C 4F 55 52 53 20 41 4E 44 20 22 00 16 0C 74 |OLOURS AND "...t|
00000400: 04 99 50 53 24 22 11 11 11 53 45 54 20 45 41 43 |..PS$"...SET EAC|
00000410: 48 20 20 20 20 22 00 31 0C 7E 04 99 50 53 24 22 |H ".1.~..PS$"|
00000420: 11 11 11 11 50 49 58 45 4C 20 50 41 49 52 20 20 |....PIXEL PAIR |
00000430: 22 00 4D 0C 88 04 99 50 53 24 22 11 11 11 11 11 |".M....PS$".....|
00000440: 54 4F 20 41 20 43 4F 4C 4F 55 52 20 22 00 6A 0C |TO A COLOUR ".j.|
00000450: 92 04 99 50 53 24 22 11 11 11 11 11 11 41 43 43 |...PS$"......ACC|
00000460: 4F 52 44 49 4E 47 20 54 4F 22 00 8B 0C 9C 04 99 |ORDING TO"......|
00000470: 50 53 24 22 11 11 11 11 11 11 11 11 12 30 30 92 |PS$".........00.|
00000480: 3D 43 4F 4C 4F 55 52 20 23 30 22 00 AD 0C A6 04 |=COLOUR #0".....|
00000490: 99 50 53 24 22 11 11 11 11 11 11 11 11 11 12 30 |.PS$"..........0|
000004A0: 31 92 3D 43 4F 4C 4F 55 52 20 23 31 22 00 D0 0C |1.=COLOUR #1"...|
000004B0: B0 04 99 50 53 24 22 11 11 11 11 11 11 11 11 11 |...PS$".........|
000004C0: 11 12 31 30 92 3D 43 4F 4C 4F 55 52 20 23 32 22 |..10.=COLOUR #2"|
000004D0: 00 FB 0C BA 04 99 50 53 24 22 11 11 11 11 11 11 |......PS$"......|
000004E0: 11 11 11 11 11 12 31 31 92 3D 43 4F 4C 4F 55 52 |......11.=COLOUR|
000004F0: 20 23 33 22 3A 8D 36 33 30 30 30 00 30 0D BF 04 | #3":.63000.0...|
00000500: 8D 31 30 36 30 30 3A 81 49 B2 31 A4 35 3A 99 44 |.10600:.I.1.5:.D|
00000510: 4E 24 22 42 41 53 45 20 4F 46 20 56 49 44 45 4F |N$"BASE OF VIDEO|
00000520: 20 43 48 49 50 22 3A 81 54 B2 31 A4 35 30 3A 82 | CHIP":.T.1.50:.|
00000530: 00 5A 0D C0 04 99 44 4E 24 22 12 42 41 53 45 20 |.Z....DN$".BASE |
00000540: 4F 46 20 56 49 44 45 4F 20 43 48 49 50 22 3A 81 |OF VIDEO CHIP":.|
00000550: 54 B2 31 A4 35 30 3A 82 3A 82 00 7A 0D C4 04 99 |T.1.50:.:..z....|
00000560: 50 53 24 22 56 3D 35 33 32 34 38 3A 56 49 44 45 |PS$"V=53248:VIDE|
00000570: 4F 22 3A 56 B2 35 33 32 34 38 00 A3 0D C9 04 8D |O":V.53248......|
00000580: 36 33 30 30 30 3A 99 44 4E 24 22 90 53 45 54 20 |63000:.DN$".SET |
00000590: 43 4F 4C 4F 55 52 20 23 30 3D 31 28 57 48 49 54 |COLOUR #0=1(WHIT|
000005A0: 45 29 22 00 C3 0D CE 04 99 50 53 24 22 11 12 50 |E)"......PS$"..P|
000005B0: 4F 4B 45 56 2B 33 33 2C 31 20 22 3A 97 56 AA 33 |OKEV+33,1 ":.V.3|
000005C0: 33 2C 31 00 EC 0D D8 04 8D 36 33 30 30 30 3A 99 |3,1......63000:.|
000005D0: 44 4E 24 22 12 56 2B 33 33 3D 35 33 32 38 31 28 |DN$".V+33=53281(|
000005E0: 42 41 43 4B 47 52 4F 55 4E 44 29 22 00 14 0E DD |BACKGROUND)"....|
000005F0: 04 8D 36 33 30 30 30 3A 99 44 4E 24 22 53 45 54 |..63000:.DN$"SET|
00000600: 20 43 4F 4C 4F 55 52 20 23 31 3D 30 28 42 4C 41 | COLOUR #1=0(BLA|
00000610: 43 4B 29 22 00 35 0E E2 04 99 50 53 24 22 11 11 |CK)".5....PS$"..|
00000620: 12 50 4F 4B 45 56 2B 33 37 2C 30 20 22 3A 97 56 |.POKEV+37,0 ":.V|
00000630: AA 33 37 2C 30 00 69 0E EC 04 8D 36 33 30 30 30 |.37,0.i....63000|
00000640: 3A 99 44 4E 24 22 12 56 2B 33 37 3D 53 50 52 49 |:.DN$".V+37=SPRI|
00000650: 54 45 20 4D 55 4C 54 49 2D 43 4F 4C 4F 55 52 20 |TE MULTI-COLOUR |
00000660: 52 45 47 27 52 20 23 30 22 00 8F 0E F1 04 8D 36 |REG'R #0"......6|
00000670: 33 30 30 30 3A 99 44 4E 24 22 53 45 54 20 43 4F |3000:.DN$"SET CO|
00000680: 4C 4F 55 52 20 23 32 3D 32 28 52 45 44 29 22 00 |LOUR #2=2(RED)".|
00000690: B8 0E F6 04 99 50 53 24 22 11 11 11 12 50 4F 4B |.....PS$"....POK|
000006A0: 45 56 2B 33 39 2C 32 20 22 3A 8D 36 33 30 30 30 |EV+39,2 ":.63000|
000006B0: 3A 97 56 AA 33 39 2C 32 00 ED 0E 00 05 8D 36 33 |:.V.39,2......63|
000006C0: 30 30 30 3A 99 44 4E 24 22 12 56 2B 33 39 3D 43 |000:.DN$".V+39=C|
000006D0: 4F 4C 4F 55 52 20 52 45 47 49 53 54 45 52 20 46 |OLOUR REGISTER F|
000006E0: 4F 52 20 53 50 52 49 54 45 20 23 30 22 00 14 0F |OR SPRITE #0"...|
000006F0: 05 05 8D 36 33 30 30 30 3A 99 44 4E 24 22 53 45 |...63000:.DN$"SE|
00000700: 54 20 43 4F 4C 4F 55 52 20 23 33 3D 33 28 43 59 |T COLOUR #3=3(CY|
00000710: 41 4E 29 22 00 37 0F 0A 05 99 50 53 24 22 11 11 |AN)".7....PS$"..|
00000720: 11 11 12 50 4F 4B 45 56 2B 33 38 2C 33 20 22 3A |...POKEV+38,3 ":|
00000730: 97 56 AA 33 38 2C 33 00 73 0F 14 05 8D 36 33 30 |.V.38,3.s....630|
00000740: 30 30 3A 99 44 4E 24 22 12 56 2B 33 38 3D 53 50 |00:.DN$".V+38=SP|
00000750: 52 49 54 45 20 4D 55 4C 54 49 2D 43 4F 4C 4F 55 |RITE MULTI-COLOU|
00000760: 52 20 52 45 47 27 52 20 23 31 22 20 3A 8D 36 33 |R REG'R #1" :.63|
00000770: 30 30 30 00 94 0F 19 05 99 44 4E 24 22 12 50 4C |000......DN$".PL|
00000780: 45 41 53 45 20 4E 4F 54 45 21 21 21 22 3A 8D 36 |EASE NOTE!!!":.6|
00000790: 33 30 30 30 00 C8 0F 1E 05 99 44 4E 24 22 12 50 |3000......DN$".P|
000007A0: 4F 4B 45 56 2B 33 39 2C 32 92 20 43 48 41 4E 47 |OKEV+39,2. CHANG|
000007B0: 45 44 20 53 50 52 49 54 45 20 54 4F 20 52 45 44 |ED SPRITE TO RED|
000007C0: 22 3A 8D 36 33 30 30 30 00 FB 0F 28 05 99 44 4E |":.63000...(..DN|
000007D0: 24 22 26 20 12 50 4F 4B 45 56 2B 33 33 2C 31 92 |$"& .POKEV+33,1.|
000007E0: 20 43 48 41 4E 47 45 44 20 42 41 43 4B 47 52 4F | CHANGED BACKGRO|
000007F0: 55 4E 44 22 3A 8D 36 33 30 30 30 00 06 10 32 05 |UND":.63000...2.|
00000800: 81 49 B2 31 A4 35 00 3C 10 33 05 99 44 4E 24 22 |.I.1.5.<.3..DN$"|
00000810: 12 42 55 54 20 57 48 45 52 45 27 53 20 54 48 45 |.BUT WHERE'S THE|
00000820: 20 42 4C 41 43 4B 20 41 4E 44 20 43 59 41 4E 3F | BLACK AND CYAN?|
00000830: 3F 22 3A 81 54 B2 31 A4 35 30 3A 82 00 72 10 34 |?":.T.1.50:..r.4|
00000840: 05 99 44 4E 24 22 12 20 20 20 20 20 20 20 20 20 |..DN$". |
00000850: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000860: 20 20 20 20 20 20 20 22 3A 81 54 B2 31 A4 35 30 | ":.T.1.50|
00000870: 3A 82 00 78 10 35 05 82 00 AB 10 3C 05 4D 53 24 |:..x.5.....<.MS$|
00000880: B2 22 20 57 41 54 43 48 21 21 22 3A 99 22 93 22 |." WATCH!!":."."|
00000890: 3A 97 56 AA 32 31 2C 30 3A 8D 36 33 31 30 30 3A |:.V.21,0:.63100:|
000008A0: 99 22 93 22 3A 8D 31 30 37 30 30 00 CE 10 46 05 |.".":.10700...F.|
000008B0: 8D 36 30 30 30 30 3A 4D 53 24 B2 22 48 4F 57 20 |.60000:MS$."HOW |
000008C0: 54 4F 20 44 4F 3F 22 3A 8D 36 33 31 30 30 00 F7 |TO DO?":.63100..|
000008D0: 10 50 05 99 22 93 54 48 45 20 12 30 30 92 20 43 |.P..".THE .00. C|
000008E0: 4F 4C 4F 55 52 20 57 41 53 20 27 42 41 43 4B 47 |OLOUR WAS 'BACKG|
000008F0: 52 4F 55 4E 44 27 22 00 23 11 5A 05 99 22 11 28 |ROUND'".#.Z..".(|
00000900: 41 4E 44 20 53 48 41 52 45 44 20 42 59 20 41 4C |AND SHARED BY AL|
00000910: 4C 20 56 49 53 49 42 4C 45 20 53 50 52 49 54 45 |L VISIBLE SPRITE|
00000920: 53 29 22 00 50 11 64 05 99 22 11 41 4E 44 20 12 |S)".P.d..".AND .|
00000930: 50 4F 4B 45 20 56 2B 33 33 92 20 43 48 41 4E 47 |POKE V+33. CHANG|
00000940: 45 53 20 54 48 49 53 20 43 4F 4C 4F 55 52 2E 22 |ES THIS COLOUR."|
00000950: 00 80 11 6E 05 99 22 11 54 48 45 20 12 31 30 92 |...n..".THE .10.|
00000960: 20 43 4F 4C 4F 55 52 20 57 41 53 20 54 48 45 20 | COLOUR WAS THE |
00000970: 27 53 50 52 49 54 45 20 43 4F 4C 4F 55 52 27 22 |'SPRITE COLOUR'"|
00000980: 00 AF 11 78 05 99 22 11 28 41 4E 44 20 43 41 4E |...x..".(AND CAN|
00000990: 20 42 45 20 44 49 46 46 45 52 45 4E 54 20 46 4F | BE DIFFERENT FO|
000009A0: 52 20 45 41 43 48 20 53 50 52 49 54 45 29 22 00 |R EACH SPRITE)".|
000009B0: DD 11 82 05 99 22 11 41 4E 44 20 12 50 4F 4B 45 |.....".AND .POKE|
000009C0: 20 56 2B 33 39 2B 4E 92 20 43 48 41 4E 47 45 53 | V+39+N. CHANGES|
000009D0: 20 54 48 49 53 20 43 4F 4C 4F 55 52 22 00 05 12 | THIS COLOUR"...|
000009E0: 8C 05 99 22 11 28 46 4F 52 20 53 50 52 49 54 45 |...".(FOR SPRITE|
000009F0: 20 23 4E 2C 20 57 49 54 48 20 4E 3D 30 20 54 4F | #N, WITH N=0 TO|
00000A00: 20 37 29 2E 22 00 2C 12 96 05 4D 53 24 B2 22 12 | 7).".,...MS$.".|
00000A10: 30 31 92 20 26 20 12 31 31 92 3F 3F 3F 22 3A 8D |01. & .11.???":.|
00000A20: 36 33 31 30 30 3A 8D 36 33 30 30 30 00 57 12 A0 |63100:.63000.W..|
00000A30: 05 99 22 93 54 48 45 4E 2C 20 49 4E 20 52 45 47 |..".THEN, IN REG|
00000A40: 49 53 54 45 52 53 20 12 56 2B 33 37 92 20 26 20 |ISTERS .V+37. & |
00000A50: 12 56 2B 33 38 92 22 00 80 12 AA 05 99 22 11 41 |.V+38."......".A|
00000A60: 52 45 20 54 48 45 20 12 53 50 52 49 54 45 20 4D |RE THE .SPRITE M|
00000A70: 55 4C 54 49 2D 43 4F 4C 4F 55 52 53 92 21 21 22 |ULTI-COLOURS.!!"|
00000A80: 00 AD 12 B4 05 99 22 11 12 50 4F 4B 45 20 56 2B |......"..POKE V+|
00000A90: 33 37 92 20 41 4E 44 20 12 50 4F 4B 45 20 56 2B |37. AND .POKE V+|
00000AA0: 33 38 92 20 57 49 54 48 20 54 48 45 22 00 DB 12 |38. WITH THE"...|
00000AB0: BE 05 99 22 11 43 4F 4C 4F 55 52 53 20 59 4F 55 |...".COLOURS YOU|
00000AC0: 20 57 41 4E 54 20 46 4F 52 20 54 48 45 20 12 30 | WANT FOR THE .0|
00000AD0: 31 92 20 41 4E 44 20 12 31 31 22 00 0E 13 C8 05 |1. AND .11".....|
00000AE0: 99 22 11 42 49 54 20 50 41 49 52 53 21 21 22 3A |.".BIT PAIRS!!":|
00000AF0: 4D 53 24 B2 22 41 4C 4C 20 53 48 41 52 45 44 22 |MS$."ALL SHARED"|
00000B00: 3A 8D 36 33 31 30 30 3A 8D 36 33 30 30 30 00 3D |:.63100:.63000.=|
00000B10: 13 D2 05 99 22 93 4F 4B 2E 2E 4F 55 52 20 42 41 |....".OK..OUR BA|
00000B20: 43 4B 47 52 4F 55 4E 44 20 43 48 41 4E 47 45 53 |CKGROUND CHANGES|
00000B30: 20 41 4E 44 20 53 4F 20 44 4F 45 53 22 00 5B 13 | AND SO DOES".[.|
00000B40: DC 05 99 22 11 4F 55 52 20 27 53 4F 52 54 2D 4F |...".OUR 'SORT-O|
00000B50: 46 27 20 53 50 52 49 54 45 2E 22 00 84 13 E6 05 |F' SPRITE.".....|
00000B60: 99 22 11 4E 4F 57 20 54 4F 20 12 45 4E 41 42 4C |.".NOW TO .ENABL|
00000B70: 45 92 20 4D 55 4C 54 49 2D 43 4F 4C 4F 55 52 20 |E. MULTI-COLOUR |
00000B80: 46 4F 52 22 00 CB 13 F0 05 99 22 11 53 50 52 49 |FOR"......".SPRI|
00000B90: 54 45 20 23 4E 2C 20 57 45 3A 20 12 50 4F 4B 45 |TE #N, WE: .POKE|
00000BA0: 20 56 2B 32 38 2C 32 5E 4E 92 21 21 22 3A 4D 53 | V+28,2^N.!!":MS|
00000BB0: 24 B2 22 45 4E 41 42 4C 45 20 23 4E 22 3A 8D 36 |$."ENABLE #N":.6|
00000BC0: 33 31 30 30 3A 8D 36 33 30 30 30 00 FE 13 FA 05 |3100:.63000.....|
00000BD0: 99 22 93 11 11 11 11 11 53 54 49 4C 4C 20 4E 4F |."......STILL NO|
00000BE0: 20 43 48 41 4E 47 45 20 49 4E 20 4F 55 52 20 53 | CHANGE IN OUR S|
00000BF0: 50 52 49 54 45 21 22 3A 8D 36 33 30 30 30 00 2B |PRITE!":.63000.+|
00000C00: 14 04 06 99 22 93 57 45 20 4D 55 53 54 20 50 55 |....".WE MUST PU|
00000C10: 54 20 54 48 45 20 43 36 34 20 56 49 44 45 4F 20 |T THE C64 VIDEO |
00000C20: 43 48 49 50 20 49 4E 54 4F 3A 22 00 65 14 0E 06 |CHIP INTO:".e...|
00000C30: 99 22 11 12 4D 55 4C 54 49 2D 43 4F 4C 4F 55 52 |."..MULTI-COLOUR|
00000C40: 20 4D 4F 44 45 22 3A 99 22 11 11 12 50 4F 4B 45 | MODE":."...POKE|
00000C50: 20 56 2B 32 32 2C 50 45 45 4B 28 56 2B 32 32 29 | V+22,PEEK(V+22)|
00000C60: 4F 52 31 36 22 00 99 14 18 06 99 22 11 53 45 54 |OR16"......".SET|
00000C70: 54 49 4E 47 20 12 42 49 54 20 34 92 3D 12 4D 92 |TING .BIT 4.=.M.|
00000C80: 55 4C 54 49 20 12 43 92 4F 4C 4F 55 52 20 12 4D |ULTI .C.OLOUR .M|
00000C90: 92 4F 44 45 20 42 49 54 22 00 BF 14 22 06 99 22 |.ODE BIT"...".."|
00000CA0: 11 54 48 45 4E 20 54 48 4F 53 45 20 53 50 52 49 |.THEN THOSE SPRI|
00000CB0: 54 45 53 20 57 48 49 43 48 20 57 45 52 45 22 00 |TES WHICH WERE".|
00000CC0: ED 14 2C 06 99 22 11 12 4D 55 4C 54 49 2D 43 4F |..,.."..MULTI-CO|
00000CD0: 4C 4F 55 52 20 45 4E 41 42 4C 45 44 92 20 28 50 |LOUR ENABLED. (P|
00000CE0: 4F 4B 45 56 2B 32 38 2C 32 5E 4E 29 22 00 2E 15 |OKEV+28,2^N)"...|
00000CF0: 36 06 99 22 11 42 45 43 4F 4D 45 20 27 4D 55 4C |6..".BECOME 'MUL|
00000D00: 54 49 2D 43 4F 4C 4F 55 52 45 44 27 21 21 22 3A |TI-COLOURED'!!":|
00000D10: 4D 53 24 B2 22 42 45 41 55 54 49 46 55 4C 21 22 |MS$."BEAUTIFUL!"|
00000D20: 3A 8D 36 33 31 30 30 3A 8D 36 33 30 30 30 00 5C |:.63100:.63000.\|
00000D30: 15 40 06 99 22 93 11 11 11 4E 4F 57 20 59 4F 55 |.@.."....NOW YOU|
00000D40: 11 9D 9D 9D B8 B8 B8 91 20 43 48 41 4E 47 45 20 |........ CHANGE |
00000D50: 54 48 45 20 43 4F 4C 4F 55 52 53 22 00 79 15 4A |THE COLOURS".y.J|
00000D60: 06 99 22 11 4F 46 20 4F 55 54 20 4C 55 4E 41 52 |..".OF OUT LUNAR|
00000D70: 20 4C 41 4E 44 45 52 21 22 00 A6 15 54 06 99 22 | LANDER!"...T.."|
00000D80: 11 4A 55 53 54 20 48 49 54 20 12 30 92 20 4F 52 |.JUST HIT .0. OR|
00000D90: 20 12 31 92 20 4F 52 20 12 32 92 20 4F 52 20 12 | .1. OR .2. OR .|
00000DA0: 33 92 20 54 4F 22 00 CC 15 5E 06 99 22 11 43 48 |3. TO"...^..".CH|
00000DB0: 41 4E 47 45 20 43 4F 4C 4F 55 52 20 23 30 2C 23 |ANGE COLOUR #0,#|
00000DC0: 31 2C 23 32 20 4F 52 20 23 33 2E 22 00 0A 16 68 |1,#2 OR #3."...h|
00000DD0: 06 99 22 11 11 11 2E 2E 2E 41 4E 44 20 48 49 54 |.."......AND HIT|
00000DE0: 20 27 51 27 20 54 4F 20 51 55 49 54 21 22 3A 4D | 'Q' TO QUIT!":M|
00000DF0: 53 24 B2 22 20 52 45 41 44 59 3F 22 3A 8D 36 33 |S$." READY?":.63|
00000E00: 31 30 30 3A 8D 36 33 30 30 30 00 2C 16 6D 06 99 |100:.63000.,.m..|
00000E10: 22 93 22 3A 56 B2 35 33 32 34 38 3A 97 56 AA 32 |".":V.53248:.V.2|
00000E20: 32 2C 32 31 36 3A 8D 31 30 37 30 30 00 72 16 72 |2,216:.10700.r.r|
00000E30: 06 86 20 43 4D 24 28 31 35 29 3A 44 44 24 B2 22 |.. CM$(15):DD$."|
00000E40: 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000E50: 11 11 11 11 11 22 3A 4B B2 31 3A 44 30 24 B2 44 |.....":K.1:D0$.D|
00000E60: 44 24 AA 42 4C 24 AA 44 44 24 3A 99 22 13 11 11 |D$.BL$.DD$:."...|
00000E70: 22 3B 00 97 16 73 06 43 4D 24 28 31 29 B2 22 56 |";...s.CM$(1)."V|
00000E80: 49 44 45 4F 20 43 48 49 50 20 42 41 53 45 20 41 |IDEO CHIP BASE A|
00000E90: 44 44 52 45 53 53 22 00 BD 16 74 06 43 4D 24 28 |DDRESS"...t.CM$(|
00000EA0: 32 29 B2 22 50 55 54 20 27 53 48 41 50 45 27 20 |2)."PUT 'SHAPE' |
00000EB0: 49 4E 54 4F 20 41 20 42 4C 4F 43 4B 22 00 DE 16 |INTO A BLOCK"...|
00000EC0: 75 06 43 4D 24 28 33 29 B2 22 50 4F 49 4E 54 20 |u.CM$(3)."POINT |
00000ED0: 43 48 49 50 20 54 4F 20 42 4C 4F 43 4B 22 00 08 |CHIP TO BLOCK"..|
00000EE0: 17 76 06 43 4D 24 28 34 29 B2 22 53 45 54 20 12 |.v.CM$(4)."SET .|
00000EF0: 30 30 92 20 43 4F 4C 4F 55 52 20 28 42 41 43 4B |00. COLOUR (BACK|
00000F00: 47 52 4F 55 4E 44 29 22 00 37 17 77 06 43 4D 24 |GROUND)".7.w.CM$|
00000F10: 28 35 29 B2 22 53 45 54 20 12 30 31 92 20 43 4F |(5)."SET .01. CO|
00000F20: 4C 4F 55 52 20 28 43 4F 4C 4F 55 52 20 52 45 47 |LOUR (COLOUR REG|
00000F30: 27 52 20 23 30 29 22 00 64 17 78 06 43 4D 24 28 |'R #0)".d.x.CM$(|
00000F40: 36 29 B2 22 53 45 54 20 12 31 30 92 20 43 4F 4C |6)."SET .10. COL|
00000F50: 4F 55 52 20 28 53 50 52 49 54 45 20 43 4F 4C 4F |OUR (SPRITE COLO|
00000F60: 55 52 29 22 00 93 17 79 06 43 4D 24 28 37 29 B2 |UR)"...y.CM$(7).|
00000F70: 22 53 45 54 20 12 31 31 92 20 43 4F 4C 4F 55 52 |"SET .11. COLOUR|
00000F80: 20 28 43 4F 4C 4F 55 52 20 52 45 47 27 52 20 23 | (COLOUR REG'R #|
00000F90: 31 29 22 00 BD 17 7A 06 43 4D 24 28 38 29 B2 22 |1)"...z.CM$(8)."|
00000FA0: 47 49 56 45 20 53 50 52 49 54 45 20 23 4E 20 41 |GIVE SPRITE #N A|
00000FB0: 4E 20 58 2D 50 4F 53 49 54 49 4F 4E 22 00 E6 17 |N X-POSITION"...|
00000FC0: 7B 06 43 4D 24 28 39 29 B2 22 47 49 56 45 20 53 |{.CM$(9)."GIVE S|
00000FD0: 50 52 49 54 45 20 23 4E 20 41 20 59 2D 50 4F 53 |PRITE #N A Y-POS|
00000FE0: 49 54 49 4F 4E 22 00 0A 18 7C 06 43 4D 24 28 31 |ITION"...|.CM$(1|
00000FF0: 30 29 B2 22 45 58 50 41 4E 44 20 49 4E 20 59 2D |0)."EXPAND IN Y-|
00001000: 44 49 52 45 43 54 49 4F 4E 22 00 2E 18 7D 06 43 |DIRECTION"...}.C|
00001010: 4D 24 28 31 31 29 B2 22 45 58 50 41 4E 44 20 49 |M$(11)."EXPAND I|
00001020: 4E 20 58 2D 44 49 52 45 43 54 49 4F 4E 22 00 5E |N X-DIRECTION".^|
00001030: 18 7E 06 43 4D 24 28 31 32 29 B2 22 50 55 54 20 |.~.CM$(12)."PUT |
00001040: 12 43 48 49 50 92 20 49 4E 54 4F 20 4D 55 4C 54 |.CHIP. INTO MULT|
00001050: 49 2D 43 4F 4C 4F 55 52 20 4D 4F 44 45 22 00 8F |I-COLOUR MODE"..|
00001060: 18 7F 06 43 4D 24 28 31 33 29 B2 22 12 53 50 52 |...CM$(13).".SPR|
00001070: 49 54 45 92 20 23 4E 20 49 4E 54 4F 20 4D 55 4C |ITE. #N INTO MUL|
00001080: 54 49 2D 43 4F 4C 4F 55 52 20 4D 4F 44 45 22 00 |TI-COLOUR MODE".|
00001090: B0 18 A4 06 8D 36 30 30 30 30 3A 99 22 93 52 45 |.....60000:.".RE|
000010A0: 56 49 45 57 3A 22 3A 99 22 B8 B8 B8 B8 B8 B8 22 |VIEW:":."......"|
000010B0: 00 E1 18 AE 06 99 22 12 56 3D 35 33 32 34 38 20 |......".V=53248 |
000010C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000010D0: 20 20 20 20 20 20 20 20 20 22 3A 8D 31 30 39 30 | ":.1090|
000010E0: 30 00 12 19 B8 06 99 22 12 46 4F 52 49 3D 30 54 |0......".FORI=0T|
000010F0: 4F 36 32 3A 52 45 41 44 58 3A 50 4F 4B 45 38 33 |O62:READX:POKE83|
00001100: 32 2B 49 2C 58 3A 4E 45 58 54 22 3A 8D 31 30 39 |2+I,X:NEXT":.109|
00001110: 30 30 00 43 19 C2 06 99 22 12 50 4F 4B 45 32 30 |00.C....".POKE20|
00001120: 34 30 2B 4E 2C 31 33 20 20 20 20 20 20 20 20 20 |40+N,13 |
00001130: 20 20 20 20 20 20 20 20 20 20 20 22 3A 8D 31 30 | ":.10|
00001140: 39 30 30 00 74 19 CC 06 99 22 12 50 4F 4B 45 56 |900.t....".POKEV|
00001150: 2B 33 33 2C 43 30 20 20 20 20 20 20 20 20 20 20 |+33,C0 |
00001160: 20 20 20 20 20 20 20 20 20 20 20 20 22 3A 8D 31 | ":.1|
00001170: 30 39 30 30 00 A5 19 D6 06 99 22 12 50 4F 4B 45 |0900......".POKE|
00001180: 56 2B 33 37 2C 43 31 20 20 20 20 20 20 20 20 20 |V+37,C1 |
00001190: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3A 8D | ":.|
000011A0: 31 30 39 30 30 00 D6 19 E0 06 99 22 12 50 4F 4B |10900......".POK|
000011B0: 45 56 2B 33 39 2B 4E 2C 43 32 20 20 20 20 20 20 |EV+39+N,C2 |
000011C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3A | ":|
000011D0: 8D 31 30 39 30 30 00 07 1A EA 06 99 22 12 50 4F |.10900......".PO|
000011E0: 4B 45 56 2B 33 38 2C 43 33 20 20 20 20 20 20 20 |KEV+38,C3 |
000011F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "|
00001200: 3A 8D 31 30 39 30 30 00 38 1A F4 06 99 22 12 50 |:.10900.8....".P|
00001210: 4F 4B 45 56 2B 32 2A 4E 2C 58 20 20 20 20 20 20 |OKEV+2*N,X |
00001220: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001230: 22 3A 8D 31 30 39 30 30 00 69 1A FE 06 99 22 12 |":.10900.i....".|
00001240: 50 4F 4B 45 56 2B 32 2A 4E 2B 31 2C 59 20 20 20 |POKEV+2*N+1,Y |
00001250: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001260: 20 22 3A 8D 31 30 39 30 30 00 9A 1A 08 07 99 22 | ":.10900......"|
00001270: 12 50 4F 4B 45 56 2B 32 33 2C 31 20 20 20 20 20 |.POKEV+23,1 |
00001280: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001290: 20 20 22 3A 8D 31 30 39 30 30 00 CB 1A 12 07 99 | ":.10900......|
000012A0: 22 12 50 4F 4B 45 56 2B 32 39 2C 31 20 20 20 20 |".POKEV+29,1 |
000012B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000012C0: 20 20 20 22 3A 8D 31 30 39 30 30 00 FC 1A 1C 07 | ":.10900.....|
000012D0: 99 22 12 50 4F 4B 45 56 2B 32 32 2C 50 45 45 4B |.".POKEV+22,PEEK|
000012E0: 28 56 2B 32 32 29 4F 52 31 36 20 20 20 20 20 20 |(V+22)OR16 |
000012F0: 20 20 20 20 22 3A 8D 31 30 39 30 30 00 2D 1B 26 | ":.10900.-.&|
00001300: 07 99 22 12 50 4F 4B 45 56 2B 32 38 2C 32 5E 4E |..".POKEV+28,2^N|
00001310: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001320: 20 20 20 20 20 22 3A 8D 31 30 39 30 30 00 4F 1B | ":.10900.O.|
00001330: 0F 27 4D 53 24 B2 22 41 55 20 52 45 56 4F 49 52 |.'MS$."AU REVOIR|
00001340: 22 3A 99 22 93 22 3A 8D 36 33 31 30 30 3A 80 00 |":.".":.63100:..|
00001350: 63 1B 10 27 8F 20 4C 41 4E 44 45 52 20 53 50 52 |c..'. LANDER SPR|
00001360: 49 54 45 00 7F 1B 15 27 81 49 B2 30 A4 36 32 3A |ITE....'.I.0.62:|
00001370: 87 58 3A 97 38 33 32 AA 49 2C 58 3A 82 3A 8E 00 |.X:.832.I,X:.:..|
00001380: A1 1B 1A 27 83 30 2C 31 31 39 2C 36 34 2C 31 2C |...'.0,119,64,1,|
00001390: 31 38 39 2C 32 30 38 2C 37 2C 31 39 31 2C 31 31 |189,208,7,191,11|
000013A0: 36 00 C7 1B 1B 27 83 33 30 2C 31 37 30 2C 31 30 |6....'.30,170,10|
000013B0: 30 2C 33 30 2C 31 37 30 2C 31 30 30 2C 33 30 2C |0,30,170,100,30,|
000013C0: 31 37 30 2C 31 30 30 00 E9 1B 1C 27 83 32 31 2C |170,100....'.21,|
000013D0: 32 31 2C 38 34 2C 32 31 2C 32 31 2C 38 34 2C 33 |21,84,21,21,84,3|
000013E0: 30 2C 31 37 30 2C 31 30 30 00 0F 1C 1D 27 83 33 |0,170,100....'.3|
000013F0: 30 2C 31 37 30 2C 31 30 30 2C 32 37 2C 31 38 37 |0,170,100,27,187|
00001400: 2C 31 31 36 2C 32 37 2C 31 38 37 2C 31 31 36 00 |,116,27,187,116.|
00001410: 35 1C 1E 27 83 32 37 2C 31 38 37 2C 31 31 36 2C |5..'.27,187,116,|
00001420: 32 37 2C 31 36 33 2C 31 31 36 2C 32 37 2C 31 36 |27,163,116,27,16|
00001430: 33 2C 31 31 36 00 54 1C 1F 27 83 35 2C 38 35 2C |3,116.T..'.5,85,|
00001440: 38 30 2C 37 2C 32 32 37 2C 38 30 2C 32 33 2C 33 |80,7,227,80,23,3|
00001450: 35 2C 38 34 00 73 1C 20 27 83 31 37 2C 39 37 2C |5,84.s. '.17,97,|
00001460: 36 38 2C 38 34 2C 38 35 2C 32 31 2C 38 34 2C 30 |68,84,85,21,84,0|
00001470: 2C 32 31 00 87 1C 74 27 8F 20 53 50 52 49 54 45 |,21...t'. SPRITE|
00001480: 20 42 4F 52 44 45 52 00 AC 1C 79 27 99 22 13 12 | BORDER...y'."..|
00001490: 20 20 20 20 20 20 20 20 20 20 20 20 31 31 31 31 | 1111|
000014A0: 31 31 31 31 31 31 32 32 32 32 32 22 00 D0 1C 7E |11111122222"...~|
000014B0: 27 99 22 12 20 20 20 31 32 33 34 35 36 37 38 39 |'.". 123456789|
000014C0: 30 31 32 33 34 35 36 37 38 39 30 31 32 33 34 22 |012345678901234"|
000014D0: 00 FE 1C 88 27 81 49 B2 31 A4 32 31 3A 49 24 B2 |....'.I.1.21:I$.|
000014E0: C4 28 49 29 3A 49 24 B2 C9 28 22 20 22 AA 49 24 |.(I):I$..(" ".I$|
000014F0: 2C 32 29 3A 99 22 12 22 49 24 3A 82 3A 8E 00 13 |,2):."."I$:.:...|
00001500: 1D D8 27 8F 20 44 49 53 50 4C 41 59 20 50 49 58 |..'. DISPLAY PIX|
00001510: 45 4C 53 00 32 1D DD 27 99 22 13 11 22 3A 81 49 |ELS.2..'."..":.I|
00001520: B2 30 A4 36 32 A9 33 3A 58 B2 C2 28 38 33 32 AA |.0.62.3:X..(832.|
00001530: 49 29 00 40 1D E2 27 81 4A B2 37 A4 30 A9 AB 31 |I).@..'.J.7.0..1|
00001540: 00 5B 1D EC 27 8B 58 AF 50 28 4A 29 A7 99 53 24 |.[..'.X.P(J)..S$|
00001550: 28 31 29 3B 3A 89 31 30 32 34 30 00 67 1D F6 27 |(1);:.10240.g..'|
00001560: 99 53 24 28 30 29 3B 00 7A 1D 00 28 82 3A 58 B2 |.S$(0);.z..(.:X.|
00001570: C2 28 38 33 32 AA 49 AA 31 29 00 88 1D 0A 28 81 |.(832.I.1)....(.|
00001580: 4A B2 37 A4 30 A9 AB 31 00 A3 1D 14 28 8B 58 AF |J.7.0..1....(.X.|
00001590: 50 28 4A 29 A7 99 53 24 28 31 29 3B 3A 89 31 30 |P(J)..S$(1);:.10|
000015A0: 32 38 30 00 AF 1D 1E 28 99 53 24 28 30 29 3B 00 |280....(.S$(0);.|
000015B0: C2 1D 28 28 82 3A 58 B2 C2 28 38 33 32 AA 49 AA |..((.:X..(832.I.|
000015C0: 32 29 00 D0 1D 32 28 81 4A B2 37 A4 30 A9 AB 31 |2)...2(.J.7.0..1|
000015D0: 00 EB 1D 3C 28 8B 58 AF 50 28 4A 29 A7 99 53 24 |...<(.X.P(J)..S$|
000015E0: 28 31 29 3B 3A 89 31 30 33 32 30 00 F7 1D 46 28 |(1);:.10320...F(|
000015F0: 99 53 24 28 30 29 3B 00 0A 1E 50 28 82 3A 99 3A |.S$(0);...P(.:.:|
00001600: 82 3A 8D 31 30 31 30 30 3A 8E 00 21 1E A0 28 8F |.:.10100:..!..(.|
00001610: 20 53 50 52 49 54 45 20 49 4E 20 42 49 4E 41 52 | SPRITE IN BINAR|
00001620: 59 00 30 1E A5 28 99 22 13 11 11 1D 1D 1D 22 3B |Y.0..(."......";|
00001630: 00 65 1E AA 28 81 49 B2 30 A4 32 30 3A 81 4A B2 |.e..(.I.0.20:.J.|
00001640: 33 A4 32 36 3A 8B C2 28 31 31 30 34 AA 34 30 AC |3.26:..(1104.40.|
00001650: 49 AA 4A 29 B2 31 36 30 A7 99 22 31 22 3B 3A 89 |I.J).160.."1";:.|
00001660: 31 30 34 33 30 00 70 1E B4 28 99 22 30 22 3B 3A |10430.p..(."0";:|
00001670: 00 84 1E BE 28 82 3A 99 3A 99 22 1D 1D 1D 22 3B |....(.:.:."...";|
00001680: 3A 82 3A 8E 00 9E 1E 04 29 8F 20 53 50 52 49 54 |:.:.....). SPRIT|
00001690: 45 20 49 4E 20 42 49 54 20 50 41 49 52 53 00 E6 |E IN BIT PAIRS..|
000016A0: 1E 09 29 99 22 13 11 11 1D 1D 1D 22 3B 3A 4B B2 |..)."......";:K.|
000016B0: 30 3A 41 B2 31 31 30 34 3A 42 B2 30 3A 43 B2 32 |0:A.1104:B.0:C.2|
000016C0: 30 3A 44 B2 33 3A 45 B2 32 36 3A 46 B2 34 3A 47 |0:D.3:E.26:F.4:G|
000016D0: B2 34 39 3A 48 B2 34 30 3A 41 24 B2 22 31 22 3A |.49:H.40:A$."1":|
000016E0: 42 24 B2 22 30 22 00 17 1F 0E 29 81 49 B2 42 A4 |B$."0"....).I.B.|
000016F0: 43 3A 81 4A B2 44 A4 45 3A 8B C2 28 41 AA 48 AC |C:.J.D.E:..(A.H.|
00001700: 49 AA 4A 29 B2 47 A7 99 52 24 28 4B 29 41 24 3B |I.J).G..R$(K)A$;|
00001710: 3A 89 31 30 35 33 30 00 25 1F 18 29 99 52 24 28 |:.10530.%..).R$(|
00001720: 4B 29 42 24 3B 00 38 1F 22 29 4B B2 4B AA 31 3A |K)B$;.8.")K.K.1:|
00001730: 8B 4B B2 46 A7 4B B2 42 00 50 1F 2C 29 82 3A 99 |.K.F.K.B.P.,).:.|
00001740: 3A 4B B2 42 3A 99 22 1D 1D 1D 22 3B 3A 82 3A 8E |:K.B:."...";:.:.|
00001750: 00 5C 1F 68 29 8F 20 43 4C 45 41 52 00 80 1F 72 |.\.h). CLEAR...r|
00001760: 29 81 49 B2 31 A4 32 30 3A 99 50 53 24 22 91 22 |).I.1.20:.PS$"."|
00001770: 3B 3A 81 4A B2 31 A4 49 3A 99 22 11 22 3B 3A 82 |;:.J.1.I:.".";:.|
00001780: 00 98 1F 7C 29 99 22 20 20 20 20 20 20 20 20 20 |...|)." |
00001790: 20 20 20 22 3A 82 3A 8E 00 AA 1F CC 29 8F 20 4D | ":.:.....). M|
000017A0: 4F 56 45 20 53 50 52 49 54 45 00 CC 1F D1 29 99 |OVE SPRITE....).|
000017B0: 22 93 90 48 49 54 20 27 51 27 20 54 4F 20 51 55 |"..HIT 'Q' TO QU|
000017C0: 49 54 22 3A 97 35 33 32 38 31 2C 31 00 02 20 D6 |IT":.53281,1.. .|
000017D0: 29 56 B2 35 33 32 34 38 3A 97 56 AA 32 38 2C 31 |)V.53248:.V.28,1|
000017E0: 3A 97 56 AA 32 31 2C 31 3A 97 56 AA 32 39 2C 4F |:.V.21,1:.V.29,O|
000017F0: 3A 97 56 AA 32 33 2C 30 3A 46 B2 30 3A 47 B2 32 |:.V.23,0:F.0:G.2|
00001800: 35 35 00 33 20 E0 29 81 54 B2 46 A4 47 3A 58 B2 |55.3 .).T.F.G:X.|
00001810: 54 3A 59 B2 54 3A 97 56 2C 58 3A 97 56 AA 31 2C |T:Y.T:.V,X:.V.1,|
00001820: 59 3A A1 41 24 3A 8B 41 24 B2 22 51 22 A7 31 30 |Y:.A$:.A$."Q".10|
00001830: 37 39 35 00 40 20 E5 29 8D 31 30 38 30 30 3A 82 |795.@ .).10800:.|
00001840: 00 54 20 EA 29 97 56 AA 32 39 2C 31 3A 97 56 AA |.T .).V.29,1:.V.|
00001850: 32 33 2C 30 00 88 20 F4 29 81 54 B2 47 A4 46 A9 |23,0.. .).T.G.F.|
00001860: AB 31 3A 58 B2 54 3A 59 B2 54 3A 97 56 2C 58 3A |.1:X.T:Y.T:.V,X:|
00001870: 97 56 AA 31 2C 59 3A A1 41 24 3A 8B 41 24 B2 22 |.V.1,Y:.A$:.A$."|
00001880: 51 22 A7 31 30 37 39 35 00 95 20 F9 29 8D 31 30 |Q".10795.. .).10|
00001890: 38 30 30 3A 82 00 A9 20 FE 29 97 56 AA 32 39 2C |800:... .).V.29,|
000018A0: 30 3A 97 56 AA 32 33 2C 31 00 DC 20 08 2A 81 54 |0:.V.23,1.. .*.T|
000018B0: B2 46 A4 47 3A 58 B2 54 3A 59 B2 47 AB 54 3A 97 |.F.G:X.T:Y.G.T:.|
000018C0: 56 2C 58 3A 97 56 AA 31 2C 59 3A A1 41 24 3A 8B |V,X:.V.1,Y:.A$:.|
000018D0: 41 24 B2 22 51 22 A7 31 30 37 39 35 00 E9 20 0D |A$."Q".10795.. .|
000018E0: 2A 8D 31 30 38 30 30 3A 82 00 FD 20 12 2A 97 56 |*.10800:... .*.V|
000018F0: AA 32 39 2C 31 3A 97 56 AA 32 33 2C 31 00 33 21 |.29,1:.V.23,1.3!|
00001900: 1C 2A 81 54 B2 47 A4 46 A9 AB 31 3A 58 B2 54 3A |.*.T.G.F..1:X.T:|
00001910: 59 B2 47 AB 54 3A 97 56 2C 58 3A 97 56 AA 31 2C |Y.G.T:.V,X:.V.1,|
00001920: 59 3A A1 41 24 3A 8B 41 24 B2 22 51 22 A7 31 30 |Y:.A$:.A$."Q".10|
00001930: 37 39 35 00 47 21 26 2A 8D 31 30 38 30 30 3A 82 |795.G!&*.10800:.|
00001940: 3A 89 31 30 37 31 30 00 54 21 28 2A 8D 31 30 38 |:.10710.T!(*.108|
00001950: 30 30 3A 82 00 62 21 2B 2A 97 56 AA 32 31 2C 30 |00:..b!+*.V.21,0|
00001960: 3A 8E 00 6F 21 30 2A 8B 41 24 B2 22 22 A7 8E 00 |:..o!0*.A$.""...|
00001970: 8F 21 3A 2A 41 B2 C5 28 41 24 29 3A 43 43 B2 43 |.!:*A..(A$):CC.C|
00001980: 43 AA 31 3A 8B 43 43 B1 31 35 A7 43 43 B2 30 00 |C.1:.CC.15.CC.0.|
00001990: B2 21 44 2A 91 20 41 AA 31 20 89 31 30 38 33 30 |.!D*. A.1 .10830|
000019A0: 2C 31 30 38 34 30 2C 31 30 38 35 30 2C 31 30 38 |,10840,10850,108|
000019B0: 36 30 00 B8 21 49 2A 8E 00 C7 21 4E 2A 97 56 AA |60..!I*...!N*.V.|
000019C0: 33 33 2C 43 43 3A 8E 00 D6 21 58 2A 97 56 AA 33 |33,CC:...!X*.V.3|
000019D0: 37 2C 43 43 3A 8E 00 E5 21 62 2A 97 56 AA 33 39 |7,CC:...!b*.V.39|
000019E0: 2C 43 43 3A 8E 00 F4 21 6C 2A 97 56 AA 33 38 2C |,CC:...!l*.V.38,|
000019F0: 43 43 3A 8E 00 02 22 94 2A 8F 20 43 4F 4D 4D 45 |CC:...".*. COMME|
00001A00: 4E 54 00 2C 22 99 2A 99 44 30 24 43 4D 24 28 4B |NT.,".*.D0$CM$(K|
00001A10: 29 3A 8D 36 33 30 30 30 3A 99 C8 28 44 44 24 2C |):.63000:..(DD$,|
00001A20: 4B AA 33 29 3A 4B B2 4B AA 31 3A 8E 00 3D 22 60 |K.3):K.K.1:..="`|
00001A30: EA 8F 20 49 4E 49 54 49 41 4C 49 5A 45 00 67 22 |.. INITIALIZE.g"|
00001A40: 61 EA 42 54 24 B2 22 13 22 3A 81 49 B2 31 A4 32 |a.BT$.".":.I.1.2|
00001A50: 34 3A 42 54 24 B2 42 54 24 AA 22 11 22 3A 82 3A |4:BT$.BT$.".":.:|
00001A60: 99 C7 28 31 34 32 29 00 B1 22 62 EA 50 54 24 B2 |..(142).."b.PT$.|
00001A70: 22 1C B0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 AE 11 9D |"...............|
00001A80: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D DD 1D 1D 1D 1D |................|
00001A90: 1D 1D 1D 1D 1D 1D DD 11 9D 9D 9D 9D 9D 9D 9D 9D |................|
00001AA0: 9D 9D 9D 9D AD B2 C0 C0 C0 C0 C0 C0 C0 C0 B2 BD |................|
00001AB0: 22 00 FB 22 63 EA 50 54 24 B2 50 54 24 AA 22 11 |".."c.PT$.PT$.".|
00001AC0: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D CE A3 A3 |................|
00001AD0: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 CD 11 9D 9D 9D 9D |................|
00001AE0: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D A5 1E 3D 3D 3D 3D |............====|
00001AF0: 3D 3D 3D 3D 3D 3D 3D 3D 90 A7 22 00 37 23 64 EA |========..".7#d.|
00001B00: 50 54 24 B2 50 54 24 AA 22 11 9D 9D 9D 9D 9D 9D |PT$.PT$.".......|
00001B10: 9D 9D 9D 9D 9D 9D 9D 9D D0 CF A3 A3 A3 A3 A3 A3 |................|
00001B20: A3 A3 A3 A3 D0 CF 91 91 91 91 9D 9D 9D 9D 9D 9D |................|
00001B30: 9D 9D 9D 9D 9D 9D 22 00 6A 23 65 EA 50 54 24 B2 |......".j#e.PT$.|
00001B40: 42 54 24 AA 22 91 91 91 91 91 91 1D 1D 1D 1D 1D |BT$."...........|
00001B50: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001B60: 1D 1D 1D 1D 1D 22 AA 50 54 24 00 9A 23 67 EA 4D |.....".PT$..#g.M|
00001B70: 4C 24 B2 22 13 11 11 11 11 11 11 11 11 11 1D 1D |L$."............|
00001B80: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001B90: 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 00 AD 23 68 EA 57 |........."..#h.W|
00001BA0: 44 B2 34 30 3A 43 52 54 B2 31 30 32 34 00 CA 23 |D.40:CRT.1024..#|
00001BB0: 69 EA 97 35 33 32 38 31 2C 31 35 3A 97 35 33 32 |i..53281,15:.532|
00001BC0: 38 30 2C 31 32 3A 99 22 90 22 00 E7 23 6A EA 56 |80,12:."."..#j.V|
00001BD0: B2 35 33 32 34 38 3A 81 49 B2 30 A4 31 36 3A 97 |.53248:.I.0.16:.|
00001BE0: 56 AA 49 2C 30 3A 82 00 20 24 6B EA 97 56 AA 32 |V.I,0:.. $k..V.2|
00001BF0: 33 2C 30 3A 97 56 AA 32 39 2C 30 3A 81 49 B2 30 |3,0:.V.29,0:.I.0|
00001C00: A4 37 3A 97 56 AA 33 39 AA 49 2C 30 3A 82 3A 97 |.7:.V.39.I,0:.:.|
00001C10: 56 AA 32 32 2C 32 30 30 3A 97 56 AA 32 38 2C 30 |V.22,200:.V.28,0|
00001C20: 00 3A 24 74 EA 53 24 28 30 29 B2 22 20 22 3A 53 |.:$t.S$(0)." ":S|
00001C30: 24 28 31 29 B2 22 12 20 92 22 00 5D 24 7E EA 44 |$(1).". .".]$~.D|
00001C40: 4E 24 B2 22 13 11 11 11 11 11 11 11 11 11 11 11 |N$."............|
00001C50: 11 11 11 11 11 11 11 11 11 11 11 11 22 00 9F 24 |............"..$|
00001C60: 83 EA 42 4C 24 B2 22 20 20 20 20 20 20 20 20 20 |..BL$." |
00001C70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001C80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3A | ":|
00001C90: 44 4E 24 B2 44 4E 24 AA 42 4C 24 AA 44 4E 24 00 |DN$.DN$.BL$.DN$.|
00001CA0: C8 24 88 EA 50 53 24 B2 22 13 11 11 1D 1D 1D 1D |.$..PS$.".......|
00001CB0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001CC0: 1D 1D 1D 1D 1D 1D 1D 22 00 F4 24 8D EA 52 24 28 |......."..$..R$(|
00001CD0: 30 29 B2 22 92 22 3A 52 24 28 31 29 B2 22 92 22 |0).".":R$(1)."."|
00001CE0: 3A 52 24 28 32 29 B2 22 12 22 3A 52 24 28 33 29 |:R$(2).".":R$(3)|
00001CF0: B2 22 12 22 00 0A 25 C4 EA 81 4A B2 30 A4 37 3A |."."..%...J.0.7:|
00001D00: 50 28 4A 29 B2 32 AE 4A 3A 82 00 10 25 28 EB 8E |P(J).2.J:...%(..|
00001D10: 00 1B 25 30 F2 8D 36 33 30 30 30 00 31 25 31 F2 |..%0..63000.1%1.|
00001D20: 99 53 44 24 43 4C 24 3A 99 43 4C 24 3A 99 43 4C |.SD$CL$:.CL$:.CL|
00001D30: 24 00 37 25 33 F2 8E 00 72 25 18 F6 99 22 13 11 |$.7%3...r%..."..|
00001D40: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00001D50: 11 11 11 11 11 11 11 90 48 49 54 20 12 52 45 54 |........HIT .RET|
00001D60: 55 52 4E 92 20 54 4F 20 43 4F 4E 54 49 4E 55 45 |URN. TO CONTINUE|
00001D70: 22 3B 00 88 25 19 F6 A1 41 24 3A 8B 41 24 B3 B1 |";..%...A$:.A$..|
00001D80: 22 22 A7 36 33 30 30 31 00 9D 25 1A F6 A1 41 24 |"".63001..%...A$|
00001D90: 3A 8B 41 24 B2 22 22 A7 36 33 30 30 32 00 A3 25 |:.A$."".63002..%|
00001DA0: 1B F6 8E 00 B7 25 7C F6 81 54 B2 31 A4 35 3A 99 |.....%|..T.1.5:.|
00001DB0: 50 54 24 4D 53 24 3B 00 CD 25 7D F6 99 50 54 24 |PT$MS$;..%}..PT$|
00001DC0: 22 20 20 20 20 20 20 20 20 20 20 22 3B 00 DC 25 |" ";..%|
00001DD0: 7E F6 99 50 54 24 4D 53 24 3B 3A 82 00 E7 25 7F |~..PT$MS$;:...%.|
00001DE0: F6 99 22 90 22 3A 8E 00 34 26 9C F9 53 44 24 B2 |..".":..4&..SD$.|
00001DF0: 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |"...............|
00001E00: 11 11 11 11 22 3A 43 4C 24 B2 22 92 20 20 20 20 |....":CL$.". |
00001E10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001E20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001E30: 20 20 92 22 00 67 26 9D F9 53 52 24 B2 22 1D 1D | .".g&..SR$."..|
00001E40: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001E50: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001E60: 1D 1D 1D 1D 1D 1D 22 00 6D 26 9E F9 8E 00 00 00 |......".m&......|
..-...."....... P.J.PONZO*83*WATERLOO/ON
TARIO.:....".......L....60000:.G(142):."
. ..SPRITES-2"......".....
..................................."....
..". .. MORE ON SPRITES
.. .":MS$."PONZOTUTOR".(....".........
................................":.63100
:MS$." WELCOME!".:....63100:.10000.W...V
.53248:.2040,13:.V.1,150:.V,150:.V.39,1:
.V.29,1:.V.23,1......V.39,6:.V.21,1:."..
.....THIS IS A BLUE SPRITE.":.T.1.900:..
.....".A 'SORT-OF' LUNAR LANDER.":.T.1.1
000:.......".LET'S LOOK AT IT MORE CLOSE
LY.".7...MS$."LET'S LOOK":.63100:.63000:
.V.21,0.H.$..".......WE'LL DISPLAY THE P
IXELS THAT MAKE"......".UP THIS SPRITE..
.":.63000...3..V,255:.V.1,180:.V.21,1...
8..".":.10200...=..I.1.5...>..DN$".NOW,
IN BINARY ":.T.1.50:..".?..D
N$". ":.T.1.50
:../.@..:.10400.:.B..I.1.5.K.C..DN$"....
AND IN BIT-PAIRS ":.T.1.50:....D.
.DN$". ":.T.1.
50:....E.....L..10500:.63000.K.V..PS$"NO
W WE'LL "...`..PS$".CHOOSE 4 "...J.
.PS$"..COLOURS AND "...T..PS$"...SET EAC
H ".1.~..PS$"....PIXEL PAIR ".M....P
S$".....TO A COLOUR ".J....PS$"......ACC
ORDING TO"......PS$".........00.=COLOUR
#0"......PS$"..........01.=COLOUR #1".P.
...PS$"...........10.=COLOUR #2"......PS
$"............11.=COLOUR #3":.63000.0...
.10600:.I.1.5:.DN$"BASE OF VIDEO CHIP":.
T.1.50:..Z....DN$".BASE OF VIDEO CHIP":.
T.1.50:.:..Z.D..PS$"V=53248:VIDEO":V.532
48...I..63000:.DN$".SET COLOUR #0=1(WHIT
E)".C.N..PS$"..POKEV+33,1 ":.V.33,1...X.
.63000:.DN$".V+33=53281(BACKGROUND)"....
..63000:.DN$"SET COLOUR #1=0(BLACK)".5..
..PS$"...POKEV+37,0 ":.V.37,0.I....63000
:.DN$".V+37=SPRITE MULTI-COLOUR REG'R #0
"......63000:.DN$"SET COLOUR #2=2(RED)".
.....PS$"....POKEV+39,2 ":.63000:.V.39,2
......63000:.DN$".V+39=COLOUR REGISTER F
OR SPRITE #0"......63000:.DN$"SET COLOUR
#3=3(CYAN)".7....PS$".....POKEV+38,3 ":
.V.38,3.S....63000:.DN$".V+38=SPRITE MUL
TI-COLOUR REG'R #1" :.63000......DN$".PL
EASE NOTE!!!":.63000.H....DN$".POKEV+39,
2. CHANGED SPRITE TO RED":.63000...(..DN
$"& .POKEV+33,1. CHANGED BACKGROUND":.63
000...2..I.1.5.<.3..DN$".BUT WHERE'S THE
BLACK AND CYAN??":.T.1.50:..R.4..DN$".
":.T.1.50
:..X.5.....<.MS$." WATCH!!":.".":.V.21,0
:.63100:.".":.10700.N.F..60000:MS$."HOW
TO DO?":.63100...P..".THE .00. COLOUR WA
S 'BACKGROUND'".#.Z..".(AND SHARED BY AL
L VISIBLE SPRITES)".P.D..".AND .POKE V+3
3. CHANGES THIS COLOUR."...N..".THE .10.
COLOUR WAS THE 'SPRITE COLOUR'"...X..".
(AND CAN BE DIFFERENT FOR EACH SPRITE)".
.....".AND .POKE V+39+N. CHANGES THIS CO
LOUR"......".(FOR SPRITE #N, WITH N=0 TO
7).".,...MS$.".01. & .11.???":.63100:.6
3000.W. ..".THEN, IN REGISTERS .V+37. &
.V+38."......".ARE THE .SPRITE MULTI-COL
OURS.!!"......"..POKE V+37. AND .POKE V+
38. WITH THE"......".COLOURS YOU WANT FO
R THE .01. AND .11"...H..".BIT PAIRS!!":
MS$."ALL SHARED":.63100:.63000.=.R..".OK
..OUR BACKGROUND CHANGES AND SO DOES".[.
...".OUR 'SORT-OF' SPRITE."......".NOW T
O .ENABLE. MULTI-COLOUR FOR".K....".SPRI
TE #N, WE: .POKE V+28,2^N.!!":MS$."ENABL
E #N":.63100:.63000......"......STILL NO
CHANGE IN OUR SPRITE!":.63000.+....".WE
MUST PUT THE C64 VIDEO CHIP INTO:".E...
."..MULTI-COLOUR MODE":."...POKE V+22,PE
EK(V+22)OR16"......".SETTING .BIT 4.=.M.
ULTI .C.OLOUR .M.ODE BIT"..."..".THEN TH
OSE SPRITES WHICH WERE"...,.."..MULTI-CO
LOUR ENABLED. (POKEV+28,2^N)"...6..".BEC
OME 'MULTI-COLOURED'!!":MS$."BEAUTIFUL!"
:.63100:.63000.\.@.."....NOW YOU........
CHANGE THE COLOURS".Y.J..".OF OUT LUNAR
LANDER!"...T..".JUST HIT .0. OR .1. OR
.2. OR .3. TO".L.^..".CHANGE COLOUR #0,#
1,#2 OR #3."...H.."......AND HIT 'Q' TO
QUIT!":MS$." READY?":.63100:.63000.,.M..
".":V.53248:.V.22,216:.10700.R.R.. CM$(1
5):DD$.".....................":K.1:D0$.D
D$.BL$.DD$:."...";...S.CM$(1)."VIDEO CHI
P BASE ADDRESS"...T.CM$(2)."PUT 'SHAPE'
INTO A BLOCK"...U.CM$(3)."POINT CHIP TO
BLOCK"...V.CM$(4)."SET .00. COLOUR (BACK
GROUND)".7.W.CM$(5)."SET .01. COLOUR (CO
LOUR REG'R #0)".D.X.CM$(6)."SET .10. COL
OUR (SPRITE COLOUR)"...Y.CM$(7)."SET .11
. COLOUR (COLOUR REG'R #1)"...Z.CM$(8)."
GIVE SPRITE #N AN X-POSITION"...{.CM$(9)
."GIVE SPRITE #N A Y-POSITION"...|.CM$(1
0)."EXPAND IN Y-DIRECTION"...}.CM$(11)."
EXPAND IN X-DIRECTION".^.~.CM$(12)."PUT
.CHIP. INTO MULTI-COLOUR MODE"....CM$(1
3).".SPRITE. #N INTO MULTI-COLOUR MODE".
.....60000:.".REVIEW:":."......"......".
V=53248 ":.1090
0......".FORI=0TO62:READX:POKE832+I,X:NE
XT":.10900.C.B..".POKE2040+N,13
":.10900.T.L..".POKEV+33,C0
":.10900...V..".POKE
V+37,C1 ":.10900.V.
...".POKEV+39+N,C2 ":
.10900......".POKEV+38,C3
":.10900.8....".POKEV+2*N,X
":.10900.I....".POKEV+2*
N+1,Y ":.10900......"
.POKEV+23,1 ":.109
00.K....".POKEV+29,1
":.10900......".POKEV+22,PEEK(V+22)OR
16 ":.10900.-.&..".POKEV+28,2^N
":.10900.O..'MS$."A
U REVOIR":.".":.63100:..C..'. LANDER SPR
ITE...'.I.0.62:.X:.832.I,X:.:.....'.0,1
19,64,1,189,208,7,191,116.G..'.30,170,10
0,30,170,100,30,170,100....'.21,21,84,21
,21,84,30,170,100....'.30,170,100,27,187
,116,27,187,116.5..'.27,187,116,27,163,1
16,27,163,116.T..'.5,85,80,7,227,80,23,3
5,84.S. '.17,97,68,84,85,21,84,0,21...T'
. SPRITE BORDER...Y'.".. 1111
11111122222".P.~'.". 12345678901234567
8901234"....'.I.1.21:I$.D(I):I$.I(" ".I$
,2):."."I$:.:....X'. DISPLAY PIXELS.2..'
."..":.I.0.62.3:X.B(832.I).@..'.J.7.0..1
.[..'.X.P(J)..S$(1);:.10240.G..'.S$(0);.
Z..(.:X.B(832.I.1)....(.J.7.0..1....(.X.
P(J)..S$(1);:.10280....(.S$(0);.B.((.:X.
B(832.I.2).P.2(.J.7.0..1...<(.X.P(J)..S$
(1);:.10320...F(.S$(0);...P(.:.:.:.10100
:..!. (. SPRITE IN BINARY.0..(."......";
.E..(.I.0.20:.J.3.26:.B(1104.40.I.J).160
.."1";:.10430.P..(."0";:....(.:.:."...";
:.:.....). 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$;.8.")K.K.1:.K.F.K.B.P.,).:.:K.B:.".
..";:.:..\.H). CLEAR...R).I.1.20:.PS$"."
;:.J.1.I:.".";:....|)." ":.:.
...L). MOVE SPRITE.L.Q)."..HIT 'Q' TO QU
IT":.53281,1.. V)V.53248:.V.28,1:.V.21,1
:.V.29,O:.V.23,0:F.0:G.255.3 .).T.F.G:X.
T:Y.T:.V,X:.V.1,Y:.A$:.A$."Q".10795.@ .)
.10800:..T .).V.29,1:.V.23,0.. .).T.G.F.
.1:X.T:Y.T:.V,X:.V.1,Y:.A$:.A$."Q".10795
.. .).10800:... .).V.29,0:.V.23,1.. .*.T
.F.G:X.T:Y.G.T:.V,X:.V.1,Y:.A$:.A$."Q".1
0795.. .*.10800:... .*.V.29,1:.V.23,1.3!
.*.T.G.F..1:X.T:Y.G.T:.V,X:.V.1,Y:.A$:.A
$."Q".10795.G!&*.10800:.:.10710.T!(*.108
00:..B!+*.V.21,0:..O!0*.A$.""....!:*A.E(
A$):CC.CC.1:.CC.15.CC.0..!D*. A.1 .10830
,10840,10850,10860..!I*..G!N*.V.33,CC:..
V!X*.V.37,CC:...!B*.V.39,CC:...!L*.V.38,
CC:...".*. COMMENT.,".*.D0$CM$(K):.63000
:.H(DD$,K.3):K.K.1:..="`.. INITIALIZE.G"
A.BT$.".":.I.1.24:BT$.BT$.".":.:.G(142).
."B.PT$."...............................
................................".."C.PT
$.PT$."..............N............M.....
............============..".7#D.PT$.PT$.
"...............PO..........PO..........
......".J#E.PT$.BT$."...................
.............".PT$..#G.ML$."............
........................."..#H.WD.40:CRT
.1024.J#I..53281,15:.53280,12:."."..#J.V
.53248:.I.0.16:.V.I,0:.. $K..V.23,0:.V.2
9,0:.I.0.7:.V.39.I,0:.:.V.22,200:.V.28,0
.:$T.S$(0)." ":S$(1).". .".]$~.DN$."....
...................."..$..BL$."
":DN$.DN$.
BL$.DN$.H$..PS$.".......................
......."..$..R$(0).".":R$(1).".":R$(2)."
.":R$(3)."."..%D..J.0.7:P(J).2.J:...%(..
..%0..63000.1%1..SD$CL$:.CL$:.CL$.7%3...
R%..."..........................HIT .RET
URN. TO CONTINUE";..%...A$:.A$.."".63001
..%...A$:.A$."".63002..%.....%|..T.1.5:.
PT$MS$;.M%}..PT$" ";..%~..PT$MS
$;:...%..".":..4&..SD$."...............
....":CL$.".
.".G&..SR$."..................
......................".M&......
> CLICK IMAGE PREVIEW FOR FULL MODAL