Multiple names: SPRITE TUTOR-1, SPRITES TUT-1.64
FILE INFORMATION
FILENAME(S):
• SPRITE TUTOR-1<br>• SPRITES TUT-1.64
FILE TYPE(S): PRG
FILE SIZE: 18.8K
FIRST SEEN: 2025-10-20 14:30:19
APPEARS ON: 3 disk(s)
FILE HASH
651e421a3c555b13985bef01fd258530158e84dd44e2210505e89bde3e40b377
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PB DOMAIN 0031ED | SPRITE TUTOR-1 | PRG | Treasure Chest - Klaus Der Suhler | 30 | 5 | DOWNLOAD FILE |
| FREESOFT DISK NR | SPRITES TUT-1.64 | PRG | Treasure Chest - Wolfgang Rauprich | 11 | 4 | DOWNLOAD FILE |
| U TILITIE | SPRITES TUT-1.64 | PRG | Treasure Chest - Wolfgang Rauprich | 11 | 4 | 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 31 22 00 9C 08 E9 |..SPRITES-1"....|
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 53 50 52 49 54 45 53 20 41 4E 44 20 53 54 55 | SPRITES AND STU|
000000C0: 46 46 20 20 20 20 20 20 20 20 1C 92 20 DD 22 3A |FF .. .":|
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 63 09 EC 03 8D 36 33 |ELCOME!".c....63|
00000130: 31 30 30 3A 81 49 B2 30 A4 36 32 3A 87 20 58 3A |100:.I.0.62:. X:|
00000140: 97 38 33 32 AA 49 2C 58 3A 82 3A 56 B2 35 33 32 |.832.I,X:.:V.532|
00000150: 34 38 3A 97 32 30 34 30 2C 31 33 3A 97 56 AA 32 |48:.2040,13:.V.2|
00000160: 31 2C 31 00 A9 09 ED 03 97 56 AA 33 39 2C 31 3A |1,1......V.39,1:|
00000170: 97 56 AA 31 2C 31 30 30 3A 41 24 B2 22 13 11 11 |.V.1,100:A$."...|
00000180: 11 11 11 11 11 20 20 20 20 20 20 20 20 20 20 20 |..... |
00000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001A0: 20 20 20 20 20 20 20 20 22 00 C3 09 EE 03 42 24 | ".....B$|
000001B0: B2 22 54 48 49 53 20 49 53 20 41 20 53 50 52 49 |."THIS IS A SPRI|
000001C0: 54 45 22 00 F5 09 EF 03 97 56 AA 33 39 2C 31 3A |TE"......V.39,1:|
000001D0: 97 56 AA 31 2C 31 30 30 3A 81 58 B2 30 A4 32 35 |.V.1,100:.X.0.25|
000001E0: 35 A9 38 3A 97 56 2C 58 3A 99 C8 28 41 24 2C 38 |5.8:.V,X:..(A$,8|
000001F0: AA 58 31 29 3B 00 28 0A F0 03 99 C9 28 42 24 2C |.X1);.(.....(B$,|
00000200: 33 31 AB 58 32 29 3A 58 32 B2 58 32 AB 28 58 32 |31.X2):X2.X2.(X2|
00000210: B3 33 32 29 3A 58 31 B2 58 31 AA 31 3A 81 54 B2 |.32):X1.X1.1:.T.|
00000220: 31 A4 31 30 3A 82 3A 82 00 58 0A F1 03 8D 36 33 |1.10:.:..X....63|
00000230: 30 30 30 3A 81 49 B2 30 A4 31 35 3A 97 56 AA 33 |000:.I.0.15:.V.3|
00000240: 39 2C 49 3A 81 54 B2 31 A4 31 35 30 3A 82 3A 82 |9,I:.T.1.150:.:.|
00000250: 3A 97 56 AA 32 31 2C 30 00 9C 0A F2 03 4D 53 24 |:.V.21,0.....MS$|
00000260: B2 22 20 59 55 4D 20 59 55 4D 22 3A 8D 36 33 31 |." YUM YUM":.631|
00000270: 30 30 3A 99 22 93 11 49 54 20 49 53 20 45 41 53 |00:."..IT IS EAS|
00000280: 59 20 54 4F 20 48 41 56 45 20 55 50 20 54 4F 20 |Y TO HAVE UP TO |
00000290: 38 20 27 53 50 52 49 54 45 53 27 22 00 BF 0A FC |8 'SPRITES'"....|
000002A0: 03 99 22 11 4F 4E 20 54 48 45 20 53 43 52 45 45 |..".ON THE SCREE|
000002B0: 4E 20 41 54 20 4F 4E 45 20 54 49 4D 45 2E 22 00 |N AT ONE TIME.".|
000002C0: E8 0A 06 04 99 22 11 4C 45 54 27 53 20 4C 41 42 |.....".LET'S LAB|
000002D0: 45 4C 20 54 48 45 20 53 50 52 49 54 45 53 20 30 |EL THE SPRITES 0|
000002E0: 2C 31 2C 2E 2E 37 2E 22 00 0D 0B 10 04 99 22 11 |,1,..7."......".|
000002F0: 50 49 43 4B 20 41 20 4E 55 4D 42 45 52 20 4E 20 |PICK A NUMBER N |
00000300: 28 30 20 54 4F 20 37 29 20 41 4E 44 22 00 33 0B |(0 TO 7) AND".3.|
00000310: 1A 04 99 22 11 41 20 42 4C 4F 43 4B 20 4F 46 20 |...".A BLOCK OF |
00000320: 4D 45 4D 4F 52 59 20 54 4F 20 48 4F 4C 44 20 54 |MEMORY TO HOLD T|
00000330: 48 45 22 00 59 0B 24 04 99 22 11 49 4E 46 4F 52 |HE".Y.$..".INFOR|
00000340: 4D 41 54 49 4F 4E 20 4F 4E 20 54 48 45 20 27 53 |MATION ON THE 'S|
00000350: 48 41 50 45 27 20 4F 46 22 00 6C 0B 29 04 99 22 |HAPE' OF".l.).."|
00000360: 11 53 50 52 49 54 45 20 23 4E 2E 22 00 8F 0B 2E |.SPRITE #N."....|
00000370: 04 4D 53 24 B2 22 4E 49 43 45 20 53 48 41 50 45 |.MS$."NICE SHAPE|
00000380: 22 3A 8D 36 33 31 30 30 3A 8D 36 33 30 30 30 00 |":.63100:.63000.|
00000390: BB 0B 38 04 99 22 93 4E 4F 57 20 41 20 53 50 52 |..8..".NOW A SPR|
000003A0: 49 54 45 20 49 53 20 4D 41 44 45 20 55 50 20 4F |ITE IS MADE UP O|
000003B0: 46 20 41 4E 20 41 52 52 41 59 22 00 E8 0B 42 04 |F AN ARRAY"...B.|
000003C0: 99 22 11 4F 46 20 27 50 49 58 45 4C 53 27 20 4F |.".OF 'PIXELS' O|
000003D0: 52 20 27 44 4F 54 53 27 20 4F 4E 20 54 48 45 20 |R 'DOTS' ON THE |
000003E0: 53 43 52 45 45 4E 2E 22 00 0F 0C 4C 04 99 22 11 |SCREEN."...L..".|
000003F0: 32 34 20 44 4F 54 53 20 57 49 44 45 20 41 4E 44 |24 DOTS WIDE AND|
00000400: 20 32 31 20 44 4F 54 53 20 54 41 4C 4C 2E 22 00 | 21 DOTS TALL.".|
00000410: 32 0C 56 04 99 22 11 28 32 34 2A 32 31 3D 35 30 |2.V..".(24*21=50|
00000420: 34 20 44 4F 54 53 20 49 4E 20 54 4F 54 41 4C 29 |4 DOTS IN TOTAL)|
00000430: 2E 22 00 5B 0C 60 04 99 22 11 45 41 43 48 20 44 |.".[.`..".EACH D|
00000440: 4F 54 20 49 53 20 45 49 54 48 45 52 20 27 4F 4E |OT IS EITHER 'ON|
00000450: 27 20 4F 52 20 27 4F 46 46 27 22 00 81 0C 65 04 |' OR 'OFF'"...e.|
00000460: 99 22 11 41 4E 44 20 57 45 20 43 41 4E 20 49 4E |.".AND WE CAN IN|
00000470: 44 49 43 41 54 45 20 54 48 49 53 20 57 49 54 48 |DICATE THIS WITH|
00000480: 22 00 A9 0C 6A 04 99 22 11 41 20 27 31 27 20 4F |"...j..".A '1' O|
00000490: 52 20 27 30 27 20 28 31 3D 12 4F 4E 92 20 26 20 |R '0' (1=.ON. & |
000004A0: 30 3D 12 4F 46 46 92 29 22 00 CE 0C 74 04 99 22 |0=.OFF.)"...t.."|
000004B0: 11 54 48 45 20 27 53 48 41 50 45 27 20 49 4E 46 |.THE 'SHAPE' INF|
000004C0: 4F 20 43 41 4E 20 54 48 45 4E 20 42 45 22 00 F3 |O CAN THEN BE"..|
000004D0: 0C 7E 04 99 22 11 20 53 54 4F 52 45 44 20 41 53 |.~..". STORED AS|
000004E0: 20 35 30 34 20 42 49 4E 41 52 59 20 44 49 47 49 | 504 BINARY DIGI|
000004F0: 54 53 22 00 15 0D 83 04 99 22 11 28 42 49 54 53 |TS"......".(BITS|
00000500: 29 2C 45 49 54 48 45 52 20 27 31 27 20 4F 52 20 |),EITHER '1' OR |
00000510: 27 30 27 2E 22 00 3D 0D 88 04 99 22 11 53 49 4E |'0'.".=....".SIN|
00000520: 43 45 20 57 45 20 53 54 4F 52 45 20 4E 55 4D 42 |CE WE STORE NUMB|
00000530: 45 52 53 20 49 4E 20 42 59 54 45 53 22 00 63 0D |ERS IN BYTES".c.|
00000540: 92 04 99 22 11 12 49 54 20 57 49 4C 4C 20 54 41 |..."..IT WILL TA|
00000550: 4B 45 20 35 30 34 2F 38 3D 36 33 20 42 59 54 45 |KE 504/8=63 BYTE|
00000560: 53 21 22 00 6E 0D 9C 04 8D 36 33 30 30 30 00 9B |S!".n....63000..|
00000570: 0D B0 04 99 22 93 57 45 20 57 49 4C 4C 20 52 45 |....".WE WILL RE|
00000580: 53 45 52 56 45 20 12 36 33 92 20 42 59 54 45 53 |SERVE .63. BYTES|
00000590: 20 4F 46 20 4D 45 4D 4F 52 59 22 00 BE 0D BA 04 | OF MEMORY".....|
000005A0: 99 22 11 28 4C 45 54 27 53 20 43 41 4C 4C 20 54 |.".(LET'S CALL T|
000005B0: 48 45 4D 20 27 42 4C 4F 43 4B 53 27 29 22 00 DF |HEM 'BLOCKS')"..|
000005C0: 0D C4 04 99 22 11 46 4F 52 20 45 41 43 48 20 53 |....".FOR EACH S|
000005D0: 50 52 49 54 45 20 27 53 48 41 50 45 27 2E 22 00 |PRITE 'SHAPE'.".|
000005E0: 06 0E CE 04 99 22 11 59 4F 55 20 54 45 4C 4C 20 |.....".YOU TELL |
000005F0: 4D 45 20 54 48 45 20 27 42 4C 4F 43 4B 27 20 4E |ME THE 'BLOCK' N|
00000600: 55 4D 42 45 52 22 00 2A 0E D8 04 99 22 11 41 4E |UMBER".*....".AN|
00000610: 44 20 49 27 4C 4C 20 4B 4E 4F 57 20 57 48 45 52 |D I'LL KNOW WHER|
00000620: 45 20 54 4F 20 4C 4F 4F 4B 22 00 48 0E E2 04 99 |E TO LOOK".H....|
00000630: 22 11 46 4F 52 20 54 48 45 20 53 50 52 49 54 45 |".FOR THE SPRITE|
00000640: 20 53 48 41 50 45 21 22 00 6E 0E EC 04 99 22 11 | SHAPE!".n....".|
00000650: 49 4E 20 46 41 43 54 20 49 46 20 59 4F 55 20 53 |IN FACT IF YOU S|
00000660: 41 59 20 12 42 4C 4F 43 4B 20 39 30 92 22 00 91 |AY .BLOCK 90."..|
00000670: 0E F6 04 99 22 11 49 27 4C 4C 20 47 4F 20 54 4F |....".I'LL GO TO|
00000680: 20 4D 45 4D 4F 52 59 20 4C 4F 43 41 54 49 4F 4E | MEMORY LOCATION|
00000690: 22 00 B8 0E 00 05 99 22 11 36 34 2A 39 30 3D 35 |"......".64*90=5|
000006A0: 37 36 30 20 54 4F 20 47 45 54 20 54 48 45 20 46 |760 TO GET THE F|
000006B0: 49 52 53 54 20 4F 46 22 00 ED 0E 0A 05 99 22 11 |IRST OF"......".|
000006C0: 54 48 45 20 36 33 20 42 59 54 45 53 21 22 3A 4D |THE 63 BYTES!":M|
000006D0: 53 24 B2 22 36 33 20 42 49 54 45 53 3F 21 22 3A |S$."63 BITES?!":|
000006E0: 8D 36 33 31 30 30 3A 8D 36 33 30 30 30 00 18 0F |.63100:.63000...|
000006F0: 14 05 99 22 93 4F 4B 2E 2E 59 4F 55 20 50 49 43 |...".OK..YOU PIC|
00000700: 4B 20 41 4E 20 12 4E 92 20 28 54 48 45 20 53 50 |K AN .N. (THE SP|
00000710: 52 49 54 45 20 23 29 22 00 3E 0F 1E 05 99 22 11 |RITE #)".>....".|
00000720: 41 4E 44 20 41 20 12 42 92 20 28 54 48 45 20 42 |AND A .B. (THE B|
00000730: 4C 4F 43 4B 20 4E 55 4D 42 45 52 29 2E 22 00 65 |LOCK NUMBER).".e|
00000740: 0F 28 05 99 22 11 48 49 4E 54 11 9D 9D 9D 9D B8 |.(..".HINT......|
00000750: B8 B8 B8 91 3A 42 3D 31 31 2C 31 33 2C 31 34 20 |....:B=11,13,14 |
00000760: 26 20 31 35 22 00 89 0F 32 05 99 22 11 41 52 45 |& 15"...2..".ARE|
00000770: 20 56 45 52 59 20 4E 49 43 45 20 42 4C 4F 43 4B | VERY NICE BLOCK|
00000780: 53 20 27 43 41 55 53 45 22 00 B1 0F 3C 05 99 22 |S 'CAUSE"...<.."|
00000790: 11 54 48 45 20 36 33 20 42 59 54 45 53 20 4F 46 |.THE 63 BYTES OF|
000007A0: 20 4D 45 4D 4F 52 59 20 53 54 41 52 54 49 4E 47 | MEMORY STARTING|
000007B0: 22 00 DF 0F 46 05 99 22 11 41 54 20 36 34 2A 31 |"...F..".AT 64*1|
000007C0: 31 3D 12 37 30 34 92 2C 36 34 2A 31 33 3D 12 38 |1=.704.,64*13=.8|
000007D0: 33 32 92 2C 36 34 2A 31 34 3D 12 38 39 36 22 00 |32.,64*14=.896".|
000007E0: 06 10 50 05 99 22 11 41 4E 44 20 36 34 2A 31 35 |..P..".AND 64*15|
000007F0: 3D 12 39 36 30 92 20 41 52 45 20 41 56 41 49 4C |=.960. ARE AVAIL|
00000800: 41 42 4C 45 21 22 00 34 10 5A 05 99 22 11 28 2E |ABLE!".4.Z..".(.|
00000810: 2E 4C 45 54 27 53 20 53 41 59 20 27 52 45 53 45 |.LET'S SAY 'RESE|
00000820: 52 56 45 44 27 20 46 4F 52 20 53 50 52 49 54 45 |RVED' FOR SPRITE|
00000830: 53 29 2E 22 00 5B 10 64 05 99 22 11 54 48 45 4E |S).".[.d..".THEN|
00000840: 20 59 4F 55 20 4D 55 53 54 20 12 50 4F 4B 45 92 | YOU MUST .POKE.|
00000850: 20 54 48 45 20 12 31 92 27 53 22 00 7D 10 6E 05 | THE .1.'S".}.n.|
00000860: 99 22 11 41 4E 44 20 12 30 92 27 53 20 49 4E 54 |.".AND .0.'S INT|
00000870: 4F 20 54 48 45 20 42 4C 4F 43 4B 2E 22 00 B5 10 |O THE BLOCK."...|
00000880: 73 05 99 22 11 12 31 30 30 20 46 4F 52 49 3D 30 |s.."..100 FORI=0|
00000890: 54 4F 36 32 3A 52 45 41 44 20 58 3A 50 4F 4B 45 |TO62:READ X:POKE|
000008A0: 36 34 2A 42 2B 49 2C 58 3A 4E 45 58 54 22 3A 8D |64*B+I,X:NEXT":.|
000008B0: 36 33 30 30 30 00 D3 10 78 05 99 22 93 4C 45 54 |63000...x..".LET|
000008C0: 27 53 20 53 41 59 20 54 48 41 54 20 41 47 41 49 |'S SAY THAT AGAI|
000008D0: 4E 3A 22 00 04 11 82 05 99 22 11 12 31 30 30 20 |N:"......"..100 |
000008E0: 46 4F 52 49 3D 30 54 4F 36 32 3A 52 45 41 44 20 |FORI=0TO62:READ |
000008F0: 58 3A 50 4F 4B 45 36 34 2A 42 2B 49 2C 58 3A 4E |X:POKE64*B+I,X:N|
00000900: 45 58 54 22 00 27 11 8C 05 99 22 11 4E 4F 57 20 |EXT".'....".NOW |
00000910: 59 4F 55 20 54 45 4C 4C 20 54 48 45 20 43 36 34 |YOU TELL THE C64|
00000920: 20 57 48 45 52 45 22 00 4B 11 96 05 99 22 11 54 | WHERE".K....".T|
00000930: 48 45 20 53 50 52 49 54 45 20 53 48 41 50 45 20 |HE SPRITE SHAPE |
00000940: 49 53 20 53 54 4F 52 45 44 2E 22 00 6D 11 A0 05 |IS STORED.".m...|
00000950: 99 22 11 46 4F 52 20 53 50 52 49 54 45 20 12 4E |.".FOR SPRITE .N|
00000960: 92 2C 20 59 4F 55 20 4D 55 53 54 3A 22 00 97 11 |., YOU MUST:"...|
00000970: AA 05 99 22 11 12 31 31 30 20 50 4F 4B 45 20 32 |..."..110 POKE 2|
00000980: 30 34 30 2B 4E 2C 42 92 3A 52 45 4D 20 42 3D 42 |040+N,B.:REM B=B|
00000990: 4C 4F 43 4B 20 23 22 00 BF 11 B4 05 99 22 11 4E |LOCK #"......".N|
000009A0: 4F 57 20 54 4F 20 48 41 56 45 20 53 50 52 49 54 |OW TO HAVE SPRIT|
000009B0: 45 20 23 4E 20 44 49 53 50 4C 41 59 45 44 22 00 |E #N DISPLAYED".|
000009C0: E6 11 BE 05 99 22 11 4F 4E 20 54 48 45 20 53 43 |.....".ON THE SC|
000009D0: 52 45 45 4E 20 59 4F 55 20 4D 55 53 54 20 12 45 |REEN YOU MUST .E|
000009E0: 4E 41 42 4C 45 22 00 1A 12 C8 05 99 22 11 54 48 |NABLE"......".TH|
000009F0: 49 53 20 53 50 52 49 54 45 2E 22 3A 4D 53 24 B2 |IS SPRITE.":MS$.|
00000A00: 22 20 20 12 32 30 34 30 2B 4E 92 22 3A 8D 36 33 |" .2040+N.":.63|
00000A10: 31 30 30 3A 8D 36 33 30 30 30 00 40 12 CD 05 99 |100:.63000.@....|
00000A20: 22 93 59 4F 55 27 4C 4C 20 41 4C 53 4F 20 57 41 |".YOU'LL ALSO WA|
00000A30: 4E 54 20 54 4F 20 50 55 54 20 49 54 20 41 54 22 |NT TO PUT IT AT"|
00000A40: 00 67 12 CE 05 99 22 11 54 48 45 20 52 49 47 48 |.g....".THE RIGH|
00000A50: 54 20 50 4C 41 43 45 20 4F 4E 20 54 48 45 20 53 |T PLACE ON THE S|
00000A60: 43 52 45 45 4E 2C 22 00 8E 12 CF 05 99 22 11 47 |CREEN,"......".G|
00000A70: 49 56 45 20 49 54 20 41 20 4E 49 43 45 20 43 4F |IVE IT A NICE CO|
00000A80: 4C 4F 55 52 2C 20 4D 4F 56 45 20 49 54 22 00 B8 |LOUR, MOVE IT"..|
00000A90: 12 D0 05 99 22 11 41 52 4F 55 4E 44 2C 20 4D 41 |....".AROUND, MA|
00000AA0: 4B 45 20 49 54 20 42 49 47 47 45 52 20 4F 52 20 |KE IT BIGGER OR |
00000AB0: 53 4D 41 4C 4C 45 52 22 00 D9 12 D1 05 99 22 11 |SMALLER"......".|
00000AC0: 41 4E 44 20 4F 54 48 45 52 20 43 4C 45 56 45 52 |AND OTHER CLEVER|
00000AD0: 20 54 48 49 4E 47 53 2E 22 00 01 13 D2 05 99 22 | THINGS."......"|
00000AE0: 11 41 4C 4C 20 54 48 49 53 20 49 4E 46 4F 52 4D |.ALL THIS INFORM|
00000AF0: 41 54 49 4F 4E 20 4D 55 53 54 20 47 4F 20 54 4F |ATION MUST GO TO|
00000B00: 22 00 3A 13 D7 05 99 22 11 54 48 45 20 12 56 49 |".:....".THE .VI|
00000B10: 44 45 4F 20 43 48 49 50 92 21 22 3A 4D 53 24 B2 |DEO CHIP.!":MS$.|
00000B20: 22 4E 49 43 45 20 43 48 49 50 21 22 3A 8D 36 33 |"NICE CHIP!":.63|
00000B30: 31 30 30 3A 8D 36 33 30 30 30 00 52 13 DC 05 99 |100:.63000.R....|
00000B40: 22 93 12 54 48 45 20 56 49 44 45 4F 20 43 48 49 |"..THE VIDEO CHI|
00000B50: 50 22 00 79 13 DD 05 99 22 11 54 48 49 53 20 53 |P".y....".THIS S|
00000B60: 45 58 59 20 43 48 49 50 20 48 41 53 20 34 37 20 |EXY CHIP HAS 47 |
00000B70: 49 4E 54 45 52 4E 41 4C 22 00 A2 13 DE 05 99 22 |INTERNAL"......"|
00000B80: 11 4D 45 4D 4F 52 59 20 4C 4F 43 41 54 49 4F 4E |.MEMORY LOCATION|
00000B90: 53 20 4F 52 20 12 52 45 47 49 53 54 45 52 53 92 |S OR .REGISTERS.|
00000BA0: 2E 22 00 CF 13 E1 05 99 22 11 54 48 45 59 20 53 |."......".THEY S|
00000BB0: 54 41 52 54 20 41 54 20 12 24 44 30 30 30 92 20 |TART AT .$D000. |
00000BC0: 49 4E 20 48 45 58 41 44 45 43 49 4D 41 4C 22 00 |IN HEXADECIMAL".|
00000BD0: F5 13 E6 05 99 22 11 28 4E 49 43 45 29 20 41 4E |.....".(NICE) AN|
00000BE0: 44 20 12 35 33 32 34 38 92 20 49 4E 20 44 45 43 |D .53248. IN DEC|
00000BF0: 49 4D 41 4C 22 00 18 14 F0 05 99 22 11 28 4E 4F |IMAL"......".(NO|
00000C00: 54 20 53 4F 20 4E 49 43 45 29 2E 20 41 4E 59 57 |T SO NICE). ANYW|
00000C10: 41 59 20 4C 45 54 3A 22 00 41 14 FA 05 99 22 11 |AY LET:".A....".|
00000C20: 12 31 32 30 20 56 3D 35 33 32 34 38 3A 52 45 4D |.120 V=53248:REM|
00000C30: 20 56 49 44 45 4F 20 43 48 49 50 20 42 41 53 45 | VIDEO CHIP BASE|
00000C40: 22 00 61 14 04 06 99 22 11 54 4F 20 27 54 55 52 |".a....".TO 'TUR|
00000C50: 4E 20 4F 4E 27 20 53 50 52 49 54 45 20 23 4E 3A |N ON' SPRITE #N:|
00000C60: 22 00 7C 14 0E 06 99 22 11 12 31 33 30 20 50 4F |".|...."..130 PO|
00000C70: 4B 45 20 56 2B 32 31 2C 32 5E 4E 22 00 97 14 18 |KE V+21,2^N"....|
00000C80: 06 99 22 11 59 45 53 2E 2E 2E 2E 54 48 41 54 27 |..".YES....THAT'|
00000C90: 53 20 32 5E 4E 2E 22 00 BA 14 19 06 4D 53 24 B2 |S 2^N.".....MS$.|
00000CA0: 22 54 55 52 4E 20 4D 45 20 4F 4E 22 3A 8D 36 33 |"TURN ME ON":.63|
00000CB0: 31 30 30 3A 8D 36 33 30 30 30 00 E0 14 1D 06 99 |100:.63000......|
00000CC0: 22 93 59 4F 55 20 53 45 45 2C 20 54 48 45 20 52 |".YOU SEE, THE R|
00000CD0: 45 47 49 53 54 45 52 20 41 54 20 56 2B 32 31 22 |EGISTER AT V+21"|
00000CE0: 00 0C 15 22 06 99 22 11 57 48 49 43 48 20 27 45 |..."..".WHICH 'E|
00000CF0: 4E 41 42 4C 45 53 27 20 53 50 52 49 54 45 53 20 |NABLES' SPRITES |
00000D00: 48 41 53 20 38 20 42 49 54 53 2E 22 00 2F 15 23 |HAS 8 BITS."./.#|
00000D10: 06 99 22 11 57 45 20 4C 41 42 45 4C 20 54 48 45 |..".WE LABEL THE|
00000D20: 20 42 49 54 53 20 30 2C 31 2C 2E 2E 2E 37 22 00 | BITS 0,1,...7".|
00000D30: 49 15 24 06 99 22 11 28 53 4F 55 4E 44 20 46 41 |I.$..".(SOUND FA|
00000D40: 4D 49 4C 49 41 52 3F 29 22 00 73 15 27 06 99 22 |MILIAR?)".s.'.."|
00000D50: 11 45 41 43 48 20 42 49 54 20 43 4F 52 52 45 53 |.EACH BIT CORRES|
00000D60: 50 4F 4E 44 53 20 54 4F 20 41 20 53 50 52 49 54 |PONDS TO A SPRIT|
00000D70: 45 2E 22 00 9B 15 28 06 99 22 11 54 4F 20 27 53 |E."...(..".TO 'S|
00000D80: 45 45 27 20 53 50 52 49 54 45 20 23 35 2C 20 54 |EE' SPRITE #5, T|
00000D90: 55 52 4E 20 4F 4E 20 54 48 45 22 00 AB 15 29 06 |URN ON THE"...).|
00000DA0: 99 22 11 42 49 54 20 23 35 21 22 00 CC 15 2A 06 |.".BIT #5!"...*.|
00000DB0: 99 22 11 48 4F 57 3F 20 4A 55 53 54 20 12 50 4F |.".HOW? JUST .PO|
00000DC0: 4B 45 20 56 2B 32 31 2C 33 32 92 22 00 F8 15 2C |KE V+21,32."...,|
00000DD0: 06 99 22 11 4E 4F 54 45 11 9D 9D 9D 9D B8 B8 B8 |..".NOTE........|
00000DE0: B8 91 3A 20 20 20 20 20 20 20 20 20 20 20 20 20 |..: |
00000DF0: 20 32 5E 35 3D 33 32 22 00 1A 16 2D 06 4D 53 24 | 2^5=32"...-.MS$|
00000E00: B2 22 20 30 30 31 30 30 30 30 30 22 3A 8D 36 33 |." 00100000":.63|
00000E10: 31 30 30 3A 8D 36 33 30 30 30 00 3F 16 36 06 99 |100:.63000.?.6..|
00000E20: 22 93 46 4F 52 20 4F 55 52 20 27 53 50 52 49 54 |".FOR OUR 'SPRIT|
00000E30: 45 20 23 4E 27 20 57 45 20 57 49 4C 4C 3A 22 00 |E #N' WE WILL:".|
00000E40: 59 16 3B 06 99 22 11 12 31 33 30 20 50 4F 4B 45 |Y.;.."..130 POKE|
00000E50: 56 2B 32 31 2C 32 5E 4E 22 00 80 16 3C 06 99 22 |V+21,2^N"...<.."|
00000E60: 11 28 59 4F 55 20 57 4F 4E 27 54 20 42 45 20 53 |.(YOU WON'T BE S|
00000E70: 55 52 50 52 49 53 45 44 20 54 4F 20 53 45 45 22 |URPRISED TO SEE"|
00000E80: 00 A4 16 40 06 99 22 11 54 48 41 54 20 41 4E 59 |...@..".THAT ANY|
00000E90: 20 4F 54 48 45 52 20 53 50 52 49 54 45 53 20 57 | OTHER SPRITES W|
00000EA0: 49 4C 4C 22 00 B8 16 4A 06 99 22 11 44 49 53 41 |ILL"...J..".DISA|
00000EB0: 50 50 45 41 52 21 29 22 00 E6 16 54 06 99 22 11 |PPEAR!)"...T..".|
00000EC0: 49 46 20 59 4F 55 20 57 41 4E 54 20 53 50 52 49 |IF YOU WANT SPRI|
00000ED0: 54 45 20 23 30 20 12 41 4E 44 92 20 53 50 52 49 |TE #0 .AND. SPRI|
00000EE0: 54 45 20 23 33 22 00 1B 17 5E 06 99 22 11 12 41 |TE #3"...^.."..A|
00000EF0: 4E 44 92 20 53 50 52 49 54 45 20 23 37 20 12 41 |ND. SPRITE #7 .A|
00000F00: 4C 4C 92 20 27 45 4E 41 42 4C 45 44 27 20 4F 52 |LL. 'ENABLED' OR|
00000F10: 20 27 56 49 53 49 42 4C 45 27 22 00 3B 17 68 06 | 'VISIBLE'".;.h.|
00000F20: 99 22 11 54 48 45 4E 20 12 50 4F 4B 45 56 2B 32 |.".THEN .POKEV+2|
00000F30: 31 2C 31 2B 38 2B 31 32 38 92 22 00 64 17 72 06 |1,1+8+128.".d.r.|
00000F40: 99 22 11 4E 4F 54 45 3A 32 5E 30 2B 32 5E 33 2B |.".NOTE:2^0+2^3+|
00000F50: 32 5E 37 3D 31 2B 38 2B 31 32 38 20 28 4E 49 43 |2^7=1+8+128 (NIC|
00000F60: 45 29 21 22 00 83 17 7C 06 99 22 11 59 4F 55 20 |E)!"...|..".YOU |
00000F70: 57 41 4E 54 20 41 4C 4C 20 38 20 53 50 52 49 54 |WANT ALL 8 SPRIT|
00000F80: 45 53 3F 00 B7 17 86 06 99 22 11 12 50 4F 4B 45 |ES?......"..POKE|
00000F90: 56 2B 32 31 2C 32 35 35 22 3A 4D 53 24 B2 22 20 |V+21,255":MS$." |
00000FA0: 31 30 30 30 31 30 30 31 22 3A 8D 36 33 31 30 30 |10001001":.63100|
00000FB0: 3A 8D 36 33 30 30 30 00 CF 17 A4 06 99 22 93 53 |:.63000......".S|
00000FC0: 4F 20 46 41 52 20 57 45 20 48 41 56 45 3A 22 00 |O FAR WE HAVE:".|
00000FD0: 00 18 AE 06 99 22 11 12 31 30 30 20 46 4F 52 49 |....."..100 FORI|
00000FE0: 3D 30 54 4F 36 32 3A 52 45 41 44 20 58 3A 50 4F |=0TO62:READ X:PO|
00000FF0: 4B 45 36 34 2A 42 2B 49 2C 58 3A 4E 45 58 54 22 |KE64*B+I,X:NEXT"|
00001000: 00 30 18 B8 06 99 22 12 31 31 30 20 50 4F 4B 45 |.0....".110 POKE|
00001010: 32 30 34 30 2B 4E 2C 42 3A 52 45 4D 20 57 48 45 |2040+N,B:REM WHE|
00001020: 52 45 20 53 48 41 50 45 20 49 53 20 20 20 20 22 |RE SHAPE IS "|
00001030: 00 60 18 C2 06 99 22 12 31 32 30 20 56 3D 35 33 |.`....".120 V=53|
00001040: 32 34 38 3A 20 20 20 20 20 52 45 4D 20 56 49 44 |248: REM VID|
00001050: 45 4F 20 43 48 49 50 20 42 41 53 45 20 20 20 22 |EO CHIP BASE "|
00001060: 00 90 18 CC 06 99 22 12 31 33 30 20 50 4F 4B 45 |......".130 POKE|
00001070: 56 2B 32 31 2C 32 5E 4E 3A 52 45 4D 20 45 4E 41 |V+21,2^N:REM ENA|
00001080: 42 4C 45 20 53 50 52 49 54 45 20 20 20 20 20 22 |BLE SPRITE "|
00001090: 00 BA 18 D6 06 99 22 11 2E 2E 41 4E 44 20 53 50 |......"...AND SP|
000010A0: 52 49 54 45 20 23 4E 20 49 53 20 4F 4E 20 54 48 |RITE #N IS ON TH|
000010B0: 45 20 53 43 52 45 45 4E 21 22 00 E1 18 E0 06 99 |E SCREEN!"......|
000010C0: 22 11 42 55 54 20 57 48 45 52 45 20 41 4E 44 20 |".BUT WHERE AND |
000010D0: 57 48 41 54 20 43 4F 4C 4F 55 52 3F 21 2A 2B 21 |WHAT COLOUR?!*+!|
000010E0: 22 00 0E 19 EA 06 99 22 11 54 48 45 52 45 20 41 |"......".THERE A|
000010F0: 52 45 20 31 36 20 43 4F 4C 4F 55 52 53 20 54 4F |RE 16 COLOURS TO|
00001100: 20 43 48 4F 4F 53 45 20 46 52 4F 4D 2E 22 00 31 | CHOOSE FROM.".1|
00001110: 19 F4 06 99 22 11 57 45 20 4C 41 42 45 4C 20 54 |....".WE LABEL T|
00001120: 48 45 4D 20 30 2C 31 2C 32 2C 2E 2E 2E 31 35 2E |HEM 0,1,2,...15.|
00001130: 22 00 56 19 FE 06 99 22 11 54 4F 20 4D 41 4B 45 |".V....".TO MAKE|
00001140: 20 53 50 52 49 54 45 20 23 4E 20 43 4F 4C 4F 55 | SPRITE #N COLOU|
00001150: 52 20 23 31 30 22 00 7C 19 08 07 99 22 11 28 41 |R #10".|....".(A|
00001160: 20 4C 49 47 48 54 20 52 45 44 29 20 57 45 20 50 | LIGHT RED) WE P|
00001170: 4F 4B 45 20 41 4E 4F 54 48 45 52 22 00 A7 19 12 |OKE ANOTHER"....|
00001180: 07 99 22 11 4D 41 47 49 43 20 52 45 47 49 53 54 |..".MAGIC REGIST|
00001190: 45 52 20 49 4E 20 54 48 45 20 56 49 44 45 4F 20 |ER IN THE VIDEO |
000011A0: 43 48 49 50 2E 22 22 00 D8 19 1C 07 99 22 11 12 |CHIP.""......"..|
000011B0: 50 4F 4B 45 56 2B 33 39 2B 4E 2C 31 30 92 3A 53 |POKEV+39+N,10.:S|
000011C0: 50 52 49 54 45 20 23 4E 20 49 53 20 52 45 44 21 |PRITE #N IS RED!|
000011D0: 22 3A 8D 36 33 30 30 30 00 FE 19 26 07 99 22 93 |":.63000...&..".|
000011E0: 4D 41 59 42 45 20 57 45 20 53 48 4F 55 4C 44 20 |MAYBE WE SHOULD |
000011F0: 48 41 56 45 20 50 49 43 4B 45 44 20 41 22 00 29 |HAVE PICKED A".)|
00001200: 1A 30 07 99 22 11 43 4F 4C 4F 55 52 20 12 42 45 |.0..".COLOUR .BE|
00001210: 46 4F 52 45 92 20 57 45 20 4D 41 44 45 20 54 48 |FORE. WE MADE TH|
00001220: 45 20 53 50 52 49 54 45 22 00 51 1A 35 07 99 22 |E SPRITE".Q.5.."|
00001230: 11 56 49 53 49 42 4C 45 21 20 54 48 45 20 4C 41 |.VISIBLE! THE LA|
00001240: 53 54 20 54 48 49 4E 47 20 57 45 20 57 41 4E 54 |ST THING WE WANT|
00001250: 22 00 78 1A 37 07 99 22 11 54 4F 20 44 4F 20 49 |".x.7..".TO DO I|
00001260: 53 20 54 4F 20 44 49 53 50 4C 41 59 20 4F 55 52 |S TO DISPLAY OUR|
00001270: 20 53 50 52 49 54 45 22 00 99 1A 38 07 99 22 11 | SPRITE"...8..".|
00001280: 42 45 46 4F 52 45 20 49 54 27 53 20 50 52 45 53 |BEFORE IT'S PRES|
00001290: 45 4E 54 41 42 4C 45 21 22 00 D9 1A 3A 07 99 22 |ENTABLE!"...:.."|
000012A0: 11 41 4E 59 57 41 59 2C 20 57 45 27 4C 4C 20 46 |.ANYWAY, WE'LL F|
000012B0: 49 58 20 54 48 41 54 20 55 50 20 4C 41 54 45 52 |IX THAT UP LATER|
000012C0: 2E 22 3A 4D 53 24 B2 22 20 50 41 54 49 45 4E 43 |.":MS$." PATIENC|
000012D0: 45 22 3A 8D 36 33 31 30 30 00 E4 1A 3F 07 8D 36 |E":.63100...?..6|
000012E0: 33 30 30 30 00 0A 1B 44 07 99 22 93 48 4F 57 20 |3000...D..".HOW |
000012F0: 41 42 4F 55 54 20 54 48 45 20 50 4F 53 49 54 49 |ABOUT THE POSITI|
00001300: 4F 4E 20 4F 4E 20 54 48 45 22 00 36 1B 4E 07 99 |ON ON THE".6.N..|
00001310: 22 11 53 43 52 45 45 4E 3F 20 57 45 4C 4C 20 54 |".SCREEN? WELL T|
00001320: 48 45 20 43 36 34 20 48 41 53 20 34 30 20 43 4F |HE C64 HAS 40 CO|
00001330: 4C 55 4D 4E 53 22 00 5C 1B 58 07 99 22 11 4F 52 |LUMNS".\.X..".OR|
00001340: 20 27 50 52 49 4E 54 20 50 4F 53 49 54 49 4F 4E | 'PRINT POSITION|
00001350: 53 27 2E 20 45 41 43 48 20 49 53 22 00 A8 1B 62 |S'. EACH IS"...b|
00001360: 07 99 22 11 38 20 27 44 4F 54 53 27 20 57 49 44 |..".8 'DOTS' WID|
00001370: 45 2E 20 54 48 41 54 20 4D 41 4B 45 53 20 34 30 |E. THAT MAKES 40|
00001380: 2A 38 3D 33 32 30 22 20 20 20 20 20 20 20 20 20 |*8=320" |
00001390: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000013A0: 20 20 20 20 20 20 20 22 00 D0 1B 63 07 99 22 11 | "...c..".|
000013B0: 44 4F 54 53 20 48 4F 52 49 5A 4F 4E 54 41 4C 4C |DOTS HORIZONTALL|
000013C0: 59 20 41 4E 44 20 57 45 20 53 48 4F 55 4C 44 22 |Y AND WE SHOULD"|
000013D0: 00 FC 1B 6C 07 99 22 11 42 45 20 41 42 4C 45 20 |...l..".BE ABLE |
000013E0: 54 4F 20 27 50 4F 53 49 54 49 4F 4E 27 20 4F 55 |TO 'POSITION' OU|
000013F0: 52 20 53 50 52 49 54 45 20 23 4E 22 00 1F 1C 76 |R SPRITE #N"...v|
00001400: 07 99 22 11 49 4E 20 41 4E 59 20 4F 46 20 33 32 |..".IN ANY OF 32|
00001410: 30 20 58 2D 50 4F 53 49 54 49 4F 4E 53 2E 22 00 |0 X-POSITIONS.".|
00001420: 49 1C 80 07 99 22 11 41 4C 53 4F 2C 20 54 48 45 |I....".ALSO, THE|
00001430: 20 43 36 34 20 48 41 53 20 20 32 35 20 52 4F 57 | C64 HAS 25 ROW|
00001440: 53 2C 20 45 41 43 48 20 22 00 73 1C 8A 07 99 22 |S, EACH ".s...."|
00001450: 11 38 20 44 4F 54 53 20 48 49 47 48 20 41 4E 44 |.8 DOTS HIGH AND|
00001460: 20 32 35 2A 38 3D 32 30 30 20 53 4F 20 54 48 45 | 25*8=200 SO THE|
00001470: 52 45 22 00 9C 1C 9E 07 99 22 11 57 49 4C 4C 20 |RE"......".WILL |
00001480: 42 45 20 32 30 30 20 50 4F 53 53 49 42 4C 45 20 |BE 200 POSSIBLE |
00001490: 59 2D 50 4F 53 49 54 49 4F 4E 53 22 00 BB 1C A8 |Y-POSITIONS"....|
000014A0: 07 99 22 11 46 4F 52 20 4F 55 52 20 53 50 52 49 |..".FOR OUR SPRI|
000014B0: 54 45 2E 22 3A 8D 36 33 30 30 30 00 E5 1C B2 07 |TE.":.63000.....|
000014C0: 99 22 93 57 48 45 52 45 20 44 4F 20 57 45 20 50 |.".WHERE DO WE P|
000014D0: 55 54 20 54 48 49 53 20 58 2D 50 4F 53 49 54 49 |UT THIS X-POSITI|
000014E0: 4F 4E 20 26 22 00 05 1D BC 07 99 22 11 59 2D 50 |ON &"......".Y-P|
000014F0: 4F 53 49 54 49 4F 4E 20 49 4E 46 4F 52 4D 41 54 |OSITION INFORMAT|
00001500: 49 4F 4E 3F 22 00 32 1D C6 07 99 22 11 49 4E 54 |ION?".2....".INT|
00001510: 4F 20 41 4E 4F 54 48 45 52 20 12 56 2B 53 4F 4D |O ANOTHER .V+SOM|
00001520: 45 54 48 49 4E 47 92 20 52 45 47 49 53 54 45 52 |ETHING. REGISTER|
00001530: 2E 22 00 48 1D D0 07 99 22 11 54 48 49 53 20 54 |.".H....".THIS T|
00001540: 49 4D 45 20 57 45 3A 22 00 6D 1D DA 07 99 22 11 |IME WE:".m....".|
00001550: 12 50 4F 4B 45 20 56 2B 32 2A 4E 2C 58 3A 50 4F |.POKE V+2*N,X:PO|
00001560: 4B 45 20 56 2B 32 2A 4E 2B 31 2C 59 22 00 95 1D |KE V+2*N+1,Y"...|
00001570: E4 07 99 22 11 41 53 20 4C 4F 4E 47 20 41 53 20 |...".AS LONG AS |
00001580: 27 58 27 20 41 4E 44 20 27 59 27 20 41 52 45 20 |'X' AND 'Y' ARE |
00001590: 42 4F 54 48 22 00 C0 1D E9 07 99 22 11 4C 45 53 |BOTH"......".LES|
000015A0: 53 20 54 48 41 4E 20 32 35 36 20 57 45 27 52 45 |S THAN 256 WE'RE|
000015B0: 20 49 4E 20 47 4F 4F 44 20 53 48 41 50 45 21 22 | IN GOOD SHAPE!"|
000015C0: 00 DA 1D F8 07 99 22 11 49 4E 20 46 41 43 54 20 |......".IN FACT |
000015D0: 57 45 20 43 4F 55 4C 44 3A 22 00 FF 1D 02 08 99 |WE COULD:"......|
000015E0: 22 11 12 46 4F 52 20 54 3D 30 20 54 4F 20 35 30 |"..FOR T=0 TO 50|
000015F0: 30 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 |0 ".|
00001600: 23 1E 0C 08 99 22 12 58 3D 54 2F 32 3A 59 3D 54 |#....".X=T/2:Y=T|
00001610: 2F 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |/3 |
00001620: 20 20 22 00 47 1E 12 08 99 22 12 50 4F 4B 45 20 | ".G....".POKE |
00001630: 56 2B 32 2A 4E 2C 58 3A 50 4F 4B 45 20 56 2B 32 |V+2*N,X:POKE V+2|
00001640: 2A 4E 2B 31 2C 59 22 00 72 1E 16 08 99 22 12 4E |*N+1,Y".r....".N|
00001650: 45 58 54 20 54 20 20 20 20 20 20 20 20 20 20 20 |EXT T |
00001660: 20 20 20 20 20 20 20 20 20 20 22 3A 8D 36 33 30 | ":.630|
00001670: 30 30 00 99 1E 20 08 99 22 93 48 4F 57 20 41 42 |00... ..".HOW AB|
00001680: 4F 55 54 20 53 4F 4D 45 54 48 49 4E 47 20 43 55 |OUT SOMETHING CU|
00001690: 54 45 20 4C 49 4B 45 3A 22 00 BE 1E 2A 08 99 22 |TE LIKE:"...*.."|
000016A0: 11 12 46 4F 52 20 54 3D 30 20 54 4F 20 35 30 30 |..FOR T=0 TO 500|
000016B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 E2 | "..|
000016C0: 1E 34 08 99 22 12 58 3D 46 4E 58 28 54 29 3A 59 |.4..".X=FNX(T):Y|
000016D0: 3D 46 4E 59 28 54 29 20 20 20 20 20 20 20 20 20 |=FNY(T) |
000016E0: 20 22 00 06 1F 3E 08 99 22 12 50 4F 4B 45 20 56 | "...>..".POKE V|
000016F0: 2B 32 2A 4E 2C 58 3A 50 4F 4B 45 20 56 2B 32 2A |+2*N,X:POKE V+2*|
00001700: 4E 2B 31 2C 59 22 00 2A 1F 48 08 99 22 12 4E 45 |N+1,Y".*.H..".NE|
00001710: 58 54 20 54 20 20 20 20 20 20 20 20 20 20 20 20 |XT T |
00001720: 20 20 20 20 20 20 20 20 20 22 00 4F 1F 52 08 99 | ".O.R..|
00001730: 22 11 54 48 45 4E 20 4F 55 52 20 53 50 52 49 54 |".THEN OUR SPRIT|
00001740: 45 20 57 4F 55 4C 44 20 46 4F 4C 4C 4F 57 22 00 |E WOULD FOLLOW".|
00001750: 77 1F 5C 08 99 22 11 41 20 43 55 52 56 45 20 47 |w.\..".A CURVE G|
00001760: 49 56 45 4E 20 42 59 20 53 4F 4D 45 20 46 55 4E |IVEN BY SOME FUN|
00001770: 43 54 49 4F 4E 53 22 00 A2 1F 66 08 99 22 11 46 |CTIONS"...f..".F|
00001780: 4E 58 20 41 4E 44 20 46 4E 59 2C 20 50 52 45 56 |NX AND FNY, PREV|
00001790: 49 4F 55 53 4C 59 20 12 44 45 46 92 49 4E 45 44 |IOUSLY .DEF.INED|
000017A0: 2E 22 00 C5 1F 6B 08 4D 53 24 B2 22 44 45 46 20 |."...k.MS$."DEF |
000017B0: 46 4E 58 28 54 29 22 3A 8D 36 33 31 30 30 3A 8D |FNX(T)":.63100:.|
000017C0: 36 33 30 30 30 00 EE 1F 70 08 99 22 93 49 46 20 |63000...p..".IF |
000017D0: 59 4F 55 27 44 20 4C 49 4B 45 20 54 4F 20 48 41 |YOU'D LIKE TO HA|
000017E0: 56 45 20 54 48 45 20 53 50 52 49 54 45 22 00 15 |VE THE SPRITE"..|
000017F0: 20 7A 08 99 22 11 41 54 20 54 48 45 20 52 49 47 | z..".AT THE RIG|
00001800: 48 54 20 4F 4E 20 54 48 45 20 53 43 52 45 45 4E |HT ON THE SCREEN|
00001810: 2C 20 49 4E 22 00 39 20 84 08 99 22 11 50 49 58 |, IN".9 ...".PIX|
00001820: 45 4C 20 50 4F 53 49 54 49 4F 4E 53 20 32 35 36 |EL POSITIONS 256|
00001830: 20 54 4F 20 33 32 30 2C 22 00 63 20 8E 08 99 22 | TO 320,".c ..."|
00001840: 11 54 48 45 4E 20 57 45 20 48 41 56 45 20 54 4F |.THEN WE HAVE TO|
00001850: 20 44 4F 20 54 48 45 20 46 4F 4C 4C 4F 57 49 4E | DO THE FOLLOWIN|
00001860: 47 3A 22 00 A1 20 A2 08 99 22 11 11 11 12 54 45 |G:".. ..."....TE|
00001870: 4C 4C 20 49 54 20 54 4F 20 54 48 45 20 56 49 44 |LL IT TO THE VID|
00001880: 45 4F 20 43 48 49 50 21 22 3A 4D 53 24 B2 22 4E |EO CHIP!":MS$."N|
00001890: 49 43 45 20 43 48 41 50 21 22 3A 8D 36 33 31 30 |ICE CHAP!":.6310|
000018A0: 30 00 AC 20 A7 08 8D 36 33 30 30 30 00 D7 20 AC |0.. ...63000.. .|
000018B0: 08 99 22 93 59 45 54 20 41 4E 4F 54 48 45 52 20 |..".YET ANOTHER |
000018C0: 52 45 47 49 53 54 45 52 2C 20 41 54 20 56 2B 31 |REGISTER, AT V+1|
000018D0: 36 2C 20 48 41 53 22 00 02 21 B6 08 99 22 11 38 |6, HAS"..!...".8|
000018E0: 20 42 49 54 53 2C 20 4F 4E 45 20 46 4F 52 20 45 | BITS, ONE FOR E|
000018F0: 41 43 48 20 4F 46 20 38 20 53 50 52 49 54 45 53 |ACH OF 8 SPRITES|
00001900: 2C 22 00 24 21 C0 08 99 22 11 41 4E 44 20 46 4F |,".$!...".AND FO|
00001910: 52 20 53 50 52 49 54 45 20 23 4E 20 57 45 20 57 |R SPRITE #N WE W|
00001920: 49 4C 4C 22 00 3B 21 CA 08 99 22 11 12 50 4F 4B |ILL".;!..."..POK|
00001930: 45 20 56 2B 31 36 2C 32 5E 4E 22 00 62 21 D4 08 |E V+16,2^N".b!..|
00001940: 99 22 11 54 48 49 53 20 54 55 52 4E 53 20 4F 4E |.".THIS TURNS ON|
00001950: 20 27 42 49 54 20 23 4E 27 20 53 4F 20 54 48 41 | 'BIT #N' SO THA|
00001960: 54 22 00 8F 21 DE 08 99 22 11 53 50 52 49 54 45 |T"..!...".SPRITE|
00001970: 20 23 4E 20 57 49 4C 4C 20 42 45 20 41 42 4C 45 | #N WILL BE ABLE|
00001980: 20 54 4F 20 4D 4F 56 45 20 54 48 52 55 27 22 00 | TO MOVE THRU'".|
00001990: CD 21 E8 08 99 22 11 58 2D 50 4F 53 49 54 49 4F |.!...".X-POSITIO|
000019A0: 4E 53 20 32 35 36 20 54 4F 20 33 32 30 21 22 3A |NS 256 TO 320!":|
000019B0: 4D 53 24 B2 22 20 32 35 36 2D 33 32 30 21 22 3A |MS$." 256-320!":|
000019C0: 8D 36 33 31 30 30 3A 8D 36 33 30 30 30 00 F9 21 |.63100:.63000..!|
000019D0: F2 08 99 22 93 12 4E 4F 54 45 92 3A 50 4F 4B 45 |..."..NOTE.:POKE|
000019E0: 20 56 2B 31 36 2C 33 32 20 57 49 4C 4C 20 41 46 | V+16,32 WILL AF|
000019F0: 46 45 43 54 20 54 48 45 22 00 28 22 FC 08 99 22 |FECT THE".("..."|
00001A00: 11 58 2D 50 4F 53 49 54 49 4F 4E 20 4F 46 20 53 |.X-POSITION OF S|
00001A10: 50 52 49 54 45 20 23 35 20 42 59 20 12 41 44 44 |PRITE #5 BY .ADD|
00001A20: 49 4E 47 20 32 35 36 22 00 55 22 06 09 99 22 11 |ING 256".U"...".|
00001A30: 54 4F 20 54 48 45 20 56 41 4C 55 45 20 4F 46 20 |TO THE VALUE OF |
00001A40: 58 20 12 50 4F 4B 45 92 44 20 49 4E 54 4F 20 56 |X .POKE.D INTO V|
00001A50: 2B 32 2A 35 22 00 7E 22 10 09 99 22 11 12 50 4F |+2*5".~"..."..PO|
00001A60: 4B 45 20 56 2B 32 2A 35 2C 35 30 3A 52 45 4D 20 |KE V+2*5,50:REM |
00001A70: 58 2D 50 4F 53 27 4E 20 49 53 20 35 30 22 00 A0 |X-POS'N IS 50"..|
00001A80: 22 1A 09 99 22 11 12 50 4F 4B 45 20 56 2B 31 36 |"..."..POKE V+16|
00001A90: 2C 33 32 3A 52 45 4D 20 41 44 44 20 32 35 36 22 |,32:REM ADD 256"|
00001AA0: 00 CB 22 24 09 99 22 11 54 48 49 53 20 50 55 54 |.."$..".THIS PUT|
00001AB0: 53 20 53 50 52 49 54 45 20 23 35 20 49 4E 20 58 |S SPRITE #5 IN X|
00001AC0: 2D 50 4F 53 27 4E 20 33 30 36 22 00 ED 22 25 09 |-POS'N 306".."%.|
00001AD0: 4D 53 24 B2 22 20 20 20 12 56 2B 31 36 92 22 3A |MS$." .V+16.":|
00001AE0: 8D 36 33 31 30 30 3A 8D 36 33 30 30 30 00 1B 23 |.63100:.63000..#|
00001AF0: 29 09 99 22 93 49 46 20 59 4F 55 20 57 41 4E 54 |)..".IF YOU WANT|
00001B00: 20 53 50 52 49 54 45 20 23 30 20 12 41 4E 44 92 | SPRITE #0 .AND.|
00001B10: 20 53 50 52 49 54 45 20 23 33 22 00 48 23 2E 09 | SPRITE #3".H#..|
00001B20: 99 22 11 12 41 4E 44 92 20 53 50 52 49 54 45 20 |."..AND. SPRITE |
00001B30: 23 37 20 12 41 4C 4C 92 20 27 41 54 20 54 48 45 |#7 .ALL. 'AT THE|
00001B40: 20 52 49 47 48 54 27 22 00 69 23 38 09 99 22 11 | RIGHT'".i#8..".|
00001B50: 54 48 45 4E 20 50 49 43 4B 20 41 4E 20 58 30 2C |THEN PICK AN X0,|
00001B60: 58 33 20 26 20 58 37 3A 22 00 92 23 42 09 99 22 |X3 & X7:"..#B.."|
00001B70: 11 12 50 4F 4B 45 20 56 2B 32 2A 30 2C 58 30 3A |..POKE V+2*0,X0:|
00001B80: 52 45 4D 20 58 2D 50 4F 53 27 4E 20 4F 46 20 23 |REM X-POS'N OF #|
00001B90: 30 22 00 BB 23 4C 09 99 22 11 12 50 4F 4B 45 20 |0"..#L.."..POKE |
00001BA0: 56 2B 32 2A 33 2C 58 33 3A 52 45 4D 20 58 2D 50 |V+2*3,X3:REM X-P|
00001BB0: 4F 53 27 4E 20 4F 46 20 23 33 22 00 E4 23 56 09 |OS'N OF #3"..#V.|
00001BC0: 99 22 11 12 50 4F 4B 45 20 56 2B 32 2A 37 2C 58 |."..POKE V+2*7,X|
00001BD0: 37 3A 52 45 4D 20 58 2D 50 4F 53 27 4E 20 4F 46 |7:REM X-POS'N OF|
00001BE0: 20 23 37 22 00 0F 24 60 09 99 22 11 12 50 4F 4B | #7"..$`.."..POK|
00001BF0: 45 20 56 2B 31 36 2C 31 2B 38 2B 31 32 38 3A 41 |E V+16,1+8+128:A|
00001C00: 44 44 20 32 35 36 20 54 4F 20 41 4C 4C 21 22 00 |DD 256 TO ALL!".|
00001C10: 51 24 65 09 4D 53 24 B2 22 20 20 20 12 56 2B 32 |Q$e.MS$." .V+2|
00001C20: 2A 4E 92 22 3A 8D 36 33 31 30 30 3A 8D 36 33 30 |*N.":.63100:.630|
00001C30: 30 30 3A 99 22 93 43 48 4F 4F 53 45 20 42 4C 4F |00:.".CHOOSE BLO|
00001C40: 43 4B 20 31 33 20 26 20 53 50 52 49 54 45 20 33 |CK 13 & SPRITE 3|
00001C50: 22 00 79 24 66 09 99 22 41 4E 44 20 4D 41 4B 45 |".y$f.."AND MAKE|
00001C60: 20 41 4C 4C 20 27 53 48 41 50 45 27 20 42 59 54 | ALL 'SHAPE' BYT|
00001C70: 45 53 3D 12 32 34 30 92 22 00 AA 24 67 09 99 22 |ES=.240."..$g.."|
00001C80: 11 12 20 39 39 20 42 3D 31 33 3A 4E 3D 33 20 20 |.. 99 B=13:N=3 |
00001C90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001CA0: 20 20 20 20 20 20 20 20 20 22 00 DA 24 6A 09 99 | "..$j..|
00001CB0: 22 12 31 30 30 20 46 4F 52 49 3D 30 54 4F 36 32 |".100 FORI=0TO62|
00001CC0: 3A 58 3D 32 34 30 3A 50 4F 4B 45 36 34 2A 42 2B |:X=240:POKE64*B+|
00001CD0: 49 2C 58 3A 4E 45 58 54 20 22 00 0A 25 74 09 99 |I,X:NEXT "..%t..|
00001CE0: 22 12 31 31 30 20 50 4F 4B 45 32 30 34 30 2B 33 |".110 POKE2040+3|
00001CF0: 2C 42 3A 20 20 52 45 4D 20 57 48 45 52 45 20 53 |,B: REM WHERE S|
00001D00: 48 41 50 45 20 49 53 20 20 22 00 3A 25 7E 09 99 |HAPE IS ".:%~..|
00001D10: 22 12 31 32 30 20 56 3D 35 33 32 34 38 3A 20 20 |".120 V=53248: |
00001D20: 20 20 20 20 20 52 45 4D 20 56 49 44 45 4F 20 43 | REM VIDEO C|
00001D30: 48 49 50 20 42 41 53 45 20 22 00 6A 25 88 09 99 |HIP BASE ".j%...|
00001D40: 22 12 31 33 30 20 50 4F 4B 45 20 56 2B 33 39 2B |".130 POKE V+39+|
00001D50: 4E 2C 31 30 3A 52 45 4D 20 52 45 44 20 53 50 52 |N,10:REM RED SPR|
00001D60: 49 54 45 20 20 20 20 20 20 22 00 9A 25 92 09 99 |ITE "..%...|
00001D70: 22 12 31 34 30 20 50 4F 4B 45 56 2B 32 31 2C 32 |".140 POKEV+21,2|
00001D80: 5E 4E 3A 20 20 52 45 4D 20 45 4E 41 42 4C 45 20 |^N: REM ENABLE |
00001D90: 53 50 52 49 54 45 20 20 20 22 00 CA 25 9C 09 99 |SPRITE "..%...|
00001DA0: 22 12 31 35 30 20 46 4F 52 20 54 3D 30 20 54 4F |".150 FOR T=0 TO|
00001DB0: 20 35 30 30 20 53 54 45 50 20 35 20 20 20 20 20 | 500 STEP 5 |
00001DC0: 20 20 20 20 20 20 20 20 20 22 00 FA 25 A6 09 99 | "..%...|
00001DD0: 22 12 31 36 30 20 58 3D 54 2F 32 3A 59 3D 31 38 |".160 X=T/2:Y=18|
00001DE0: 30 2B 54 2F 35 20 20 20 20 20 20 20 20 20 20 20 |0+T/5 |
00001DF0: 20 20 20 20 20 20 20 20 20 22 00 2A 26 AB 09 99 | ".*&...|
00001E00: 22 12 31 37 30 20 50 4F 4B 45 20 56 2B 32 2A 4E |".170 POKE V+2*N|
00001E10: 2C 58 3A 50 4F 4B 45 20 56 2B 32 2A 4E 2B 31 2C |,X:POKE V+2*N+1,|
00001E20: 59 20 20 20 20 20 20 20 20 22 00 60 26 B0 09 99 |Y ".`&...|
00001E30: 22 12 31 38 30 20 4E 45 58 54 20 54 20 20 20 20 |".180 NEXT T |
00001E40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001E50: 20 20 20 20 20 20 20 20 20 22 3A 8D 34 30 30 30 | ":.4000|
00001E60: 00 7E 26 B5 09 4D 53 24 B2 22 12 20 59 55 4D 20 |.~&..MS$.". YUM |
00001E70: 21 21 21 20 20 92 22 3A 8D 36 33 31 30 30 00 AE |!!! .":.63100..|
00001E80: 26 BA 09 99 22 91 91 91 91 91 91 54 48 41 54 27 |&..."......THAT'|
00001E90: 53 20 46 4F 52 20 4F 4E 45 20 53 50 52 49 54 45 |S FOR ONE SPRITE|
00001EA0: 2E 2E 4E 3D 33 22 3A 97 56 AA 32 31 2C 30 00 E2 |..N=3":.V.21,0..|
00001EB0: 26 C4 09 99 22 11 4C 45 54 27 53 20 48 41 56 45 |&...".LET'S HAVE|
00001EC0: 20 33 20 53 50 52 49 54 45 53 2E 2E 23 30 2C 20 | 3 SPRITES..#0, |
00001ED0: 23 33 20 41 4E 44 20 23 37 2E 22 3A 8D 36 33 30 |#3 AND #7.":.630|
00001EE0: 30 30 00 19 27 CE 09 99 22 93 12 31 30 30 20 46 |00..'..."..100 F|
00001EF0: 4F 52 49 3D 30 54 4F 36 32 3A 52 45 41 44 20 58 |ORI=0TO62:READ X|
00001F00: 3A 50 4F 4B 45 36 34 2A 42 2B 49 2C 58 3A 4E 45 |:POKE64*B+I,X:NE|
00001F10: 58 54 22 3A 8D 32 36 30 30 00 51 27 D8 09 99 22 |XT":.2600.Q'..."|
00001F20: 13 11 12 31 31 30 20 50 4F 4B 45 32 30 34 30 2B |...110 POKE2040+|
00001F30: 30 2C 42 3A 20 20 52 45 4D 20 23 30 27 53 48 41 |0,B: REM #0'SHA|
00001F40: 50 45 20 42 4C 4F 43 4B 27 20 22 3A 8D 32 36 31 |PE BLOCK' ":.261|
00001F50: 30 00 8A 27 D9 09 99 22 13 11 11 12 31 31 31 20 |0..'..."....111 |
00001F60: 50 4F 4B 45 32 30 34 30 2B 33 2C 42 3A 20 20 52 |POKE2040+3,B: R|
00001F70: 45 4D 20 23 33 27 53 48 41 50 45 20 42 4C 4F 43 |EM #3'SHAPE BLOC|
00001F80: 4B 27 20 22 3A 8D 32 36 32 30 00 C4 27 DA 09 99 |K' ":.2620..'...|
00001F90: 22 13 11 11 11 12 31 31 32 20 50 4F 4B 45 32 30 |".....112 POKE20|
00001FA0: 34 30 2B 37 2C 42 3A 20 20 52 45 4D 20 23 37 27 |40+7,B: REM #7'|
00001FB0: 53 48 41 50 45 20 42 4C 4F 43 4B 27 20 22 3A 8D |SHAPE BLOCK' ":.|
00001FC0: 32 36 33 30 00 FF 27 E2 09 99 22 13 11 11 11 11 |2630..'...".....|
00001FD0: 12 31 32 30 20 56 3D 35 33 32 34 38 3A 20 20 20 |.120 V=53248: |
00001FE0: 20 20 20 20 52 45 4D 20 56 49 44 45 4F 20 43 48 | REM VIDEO CH|
00001FF0: 49 50 20 42 41 53 45 20 22 3A 8D 32 36 34 30 00 |IP BASE ":.2640.|
00002000: 3B 28 EC 09 99 22 13 11 11 11 11 11 12 31 33 30 |;(...".......130|
00002010: 20 50 4F 4B 45 20 56 2B 33 39 2B 30 2C 31 30 3A | POKE V+39+0,10:|
00002020: 52 45 4D 20 23 30 20 49 53 20 52 45 44 20 20 20 |REM #0 IS RED |
00002030: 20 20 20 20 22 3A 8D 32 36 35 30 00 78 28 ED 09 | ":.2650.x(..|
00002040: 99 22 13 11 11 11 11 11 11 12 31 33 31 20 50 4F |."........131 PO|
00002050: 4B 45 20 56 2B 33 39 2B 33 2C 31 32 3A 52 45 4D |KE V+39+3,12:REM|
00002060: 20 23 33 20 49 53 20 57 48 49 54 45 20 20 20 20 | #3 IS WHITE |
00002070: 20 22 3A 8D 32 36 36 30 00 B6 28 EE 09 99 22 13 | ":.2660..(...".|
00002080: 11 11 11 11 11 11 11 12 31 33 32 20 50 4F 4B 45 |........132 POKE|
00002090: 20 56 2B 33 39 2B 37 2C 31 34 3A 52 45 4D 20 23 | V+39+7,14:REM #|
000020A0: 37 20 49 53 20 42 4C 55 45 20 20 20 20 20 20 22 |7 IS BLUE "|
000020B0: 3A 8D 32 36 37 30 00 F5 28 F6 09 99 22 13 11 11 |:.2670..(..."...|
000020C0: 11 11 11 11 11 11 12 31 34 30 20 50 4F 4B 45 56 |.......140 POKEV|
000020D0: 2B 32 31 2C 31 2B 38 2B 31 32 38 3A 52 45 4D 20 |+21,1+8+128:REM |
000020E0: 45 4E 41 42 4C 45 20 53 50 52 49 54 45 53 22 3A |ENABLE SPRITES":|
000020F0: 8D 32 36 38 30 00 35 29 00 0A 99 22 13 11 11 11 |.2680.5)..."....|
00002100: 11 11 11 11 11 11 12 31 35 30 20 46 4F 52 20 54 |.......150 FOR T|
00002110: 3D 30 20 54 4F 20 35 30 30 3A 20 54 54 3D 54 2F |=0 TO 500: TT=T/|
00002120: 35 30 20 20 20 20 20 20 20 20 20 20 20 20 22 3A |50 ":|
00002130: 8D 32 36 39 30 00 76 29 05 0A 99 22 13 11 11 11 |.2690.v)..."....|
00002140: 11 11 11 11 11 11 11 12 31 36 30 20 58 30 3D 54 |........160 X0=T|
00002150: 2F 32 3A 59 30 3D 54 2F 33 20 20 20 20 20 20 20 |/2:Y0=T/3 |
00002160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "|
00002170: 3A 8D 32 37 30 30 00 B8 29 06 0A 99 22 13 11 11 |:.2700..)..."...|
00002180: 11 11 11 11 11 11 11 11 11 12 31 36 31 20 58 33 |..........161 X3|
00002190: 3D 32 35 30 2D 54 2F 32 3A 59 33 3D 32 30 30 2D |=250-T/2:Y3=200-|
000021A0: 54 2F 33 20 20 20 20 20 20 20 20 20 20 20 20 20 |T/3 |
000021B0: 20 22 3A 8D 32 37 31 30 00 FC 29 07 0A 99 22 13 | ":.2710..)...".|
000021C0: 11 11 11 11 11 11 11 11 11 11 11 11 12 31 36 32 |.............162|
000021D0: 20 58 37 3D 31 35 30 2B 31 30 30 2A 53 49 4E 28 | X7=150+100*SIN(|
000021E0: 54 54 29 3A 59 37 3D 31 30 30 2B 35 30 2A 43 4F |TT):Y7=100+50*CO|
000021F0: 53 28 54 54 29 22 3A 8D 32 37 32 30 00 40 2A 0A |S(TT)":.2720.@*.|
00002200: 0A 99 22 13 11 11 11 11 11 11 11 11 11 11 11 11 |..".............|
00002210: 11 12 31 37 30 20 50 4F 4B 45 20 56 2B 32 2A 30 |..170 POKE V+2*0|
00002220: 2C 58 30 3A 50 4F 4B 45 20 56 2B 32 2A 30 2B 31 |,X0:POKE V+2*0+1|
00002230: 2C 59 30 20 20 20 20 20 20 22 3A 8D 32 37 33 30 |,Y0 ":.2730|
00002240: 00 85 2A 0F 0A 99 22 13 11 11 11 11 11 11 11 11 |..*...".........|
00002250: 11 11 11 11 11 11 12 31 37 31 20 50 4F 4B 45 20 |.......171 POKE |
00002260: 56 2B 32 2A 33 2C 58 33 3A 50 4F 4B 45 20 56 2B |V+2*3,X3:POKE V+|
00002270: 32 2A 33 2B 31 2C 59 33 20 20 20 20 20 20 22 3A |2*3+1,Y3 ":|
00002280: 8D 32 37 34 30 00 CB 2A 10 0A 99 22 13 11 11 11 |.2740..*..."....|
00002290: 11 11 11 11 11 11 11 11 11 11 11 11 12 31 37 32 |.............172|
000022A0: 20 50 4F 4B 45 20 56 2B 32 2A 37 2C 58 37 3A 50 | POKE V+2*7,X7:P|
000022B0: 4F 4B 45 20 56 2B 32 2A 37 2B 31 2C 59 37 20 20 |OKE V+2*7+1,Y7 |
000022C0: 20 20 20 20 22 3A 8D 32 37 35 30 00 0C 2B 14 0A | ":.2750..+..|
000022D0: 99 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 |."..............|
000022E0: 11 11 11 12 31 38 30 20 4E 45 58 54 20 54 20 20 |....180 NEXT T |
000022F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002300: 20 20 20 20 20 20 20 20 20 20 20 22 00 3F 2B 1E | ".?+.|
00002310: 0A 8D 32 37 36 30 3A 8D 31 32 35 30 30 3A 4D 53 |..2760:.12500:MS|
00002320: 24 B2 22 20 57 48 45 45 21 21 22 3A 8D 36 33 31 |$." WHEE!!":.631|
00002330: 30 30 3A 8D 36 33 30 30 30 3A 89 32 38 30 30 00 |00:.63000:.2800.|
00002340: 67 2B 28 0A 99 22 50 55 54 20 44 41 54 41 20 49 |g+(.."PUT DATA I|
00002350: 4E 54 4F 20 42 4C 4F 43 4B 20 27 42 27 22 3A 8D |NTO BLOCK 'B'":.|
00002360: 36 33 30 30 30 3A 8E 00 8F 2B 32 0A 99 22 54 45 |63000:...+2.."TE|
00002370: 4C 4C 20 57 48 45 52 45 20 23 30 20 53 48 41 50 |LL WHERE #0 SHAP|
00002380: 45 20 49 53 20 22 3A 8D 36 33 30 30 30 3A 8E 00 |E IS ":.63000:..|
00002390: B7 2B 3C 0A 99 22 54 45 4C 4C 20 57 48 45 52 45 |.+<.."TELL WHERE|
000023A0: 20 23 33 20 53 48 41 50 45 20 49 53 20 22 3A 8D | #3 SHAPE IS ":.|
000023B0: 36 33 30 30 30 3A 8E 00 DF 2B 46 0A 99 22 54 45 |63000:...+F.."TE|
000023C0: 4C 4C 20 57 48 45 52 45 20 23 37 20 53 48 41 50 |LL WHERE #7 SHAP|
000023D0: 45 20 49 53 20 22 3A 8D 36 33 30 30 30 3A 8E 00 |E IS ":.63000:..|
000023E0: 07 2C 50 0A 99 22 52 45 4D 45 4D 42 45 52 20 54 |.,P.."REMEMBER T|
000023F0: 48 49 53 20 4E 55 4D 42 45 52 21 21 21 22 3A 8D |HIS NUMBER!!!":.|
00002400: 36 33 30 30 30 3A 8E 00 2F 2C 5A 0A 99 22 50 4F |63000:../,Z.."PO|
00002410: 4B 45 20 56 2B 33 39 2B 4E 20 26 20 4E 3D 30 2E |KE V+39+N & N=0.|
00002420: 2E 4F 4B 3F 20 22 3A 8D 36 33 30 30 30 3A 8E 00 |.OK? ":.63000:..|
00002430: 57 2C 64 0A 99 22 50 4F 4B 45 20 56 2B 33 39 2B |W,d.."POKE V+39+|
00002440: 4E 20 26 20 4E 3D 33 2E 2E 4F 4B 21 20 22 3A 8D |N & N=3..OK! ":.|
00002450: 36 33 30 30 30 3A 8E 00 7F 2C 6E 0A 99 22 2E 2E |63000:...,n.."..|
00002460: 2E 2E 2E 57 48 41 54 20 45 4C 53 45 3F 2E 2E 2E |...WHAT ELSE?...|
00002470: 2E 2E 2E 2E 20 22 3A 8D 36 33 30 30 30 3A 8E 00 |.... ":.63000:..|
00002480: A7 2C 78 0A 99 22 54 55 52 4E 20 54 48 45 4D 20 |.,x.."TURN THEM |
00002490: 41 4C 4C 20 4F 4E 21 21 21 21 21 21 21 22 3A 8D |ALL ON!!!!!!!":.|
000024A0: 36 33 30 30 30 3A 8E 00 CF 2C 82 0A 99 22 4E 4F |63000:...,..."NO|
000024B0: 57 2C 46 4F 52 20 35 30 30 20 53 54 45 50 53 20 |W,FOR 500 STEPS |
000024C0: 4F 52 20 53 4F 22 3A 8D 36 33 30 30 30 3A 8E 00 |OR SO":.63000:..|
000024D0: F7 2C 8C 0A 99 22 44 45 46 49 4E 45 20 58 2D 20 |.,..."DEFINE X- |
000024E0: 41 4E 44 20 59 2D 50 4F 53 27 4E 53 2E 22 3A 8D |AND Y-POS'NS.":.|
000024F0: 36 33 30 30 30 3A 8E 00 1F 2D 96 0A 99 22 46 4F |63000:...-..."FO|
00002500: 52 20 23 33 20 54 4F 4F 20 20 20 20 20 20 20 20 |R #3 TOO |
00002510: 20 20 20 20 20 22 3A 8D 36 33 30 30 30 3A 8E 00 | ":.63000:..|
00002520: 47 2D A0 0A 99 22 41 4E 44 20 23 37 2E 2E 2E 21 |G-..."AND #7...!|
00002530: 3F 2A 20 20 20 20 20 20 20 20 20 20 20 22 3A 8D |?* ":.|
00002540: 36 33 30 30 30 3A 8E 00 6F 2D AA 0A 99 22 4D 4F |63000:..o-..."MO|
00002550: 56 45 20 53 50 52 49 54 45 20 23 30 20 20 20 20 |VE SPRITE #0 |
00002560: 20 20 20 20 20 22 3A 8D 36 33 30 30 30 3A 8E 00 | ":.63000:..|
00002570: 97 2D B4 0A 99 22 4D 4F 56 45 20 53 50 52 49 54 |.-..."MOVE SPRIT|
00002580: 45 20 23 33 20 20 20 20 20 20 20 20 20 22 3A 8D |E #3 ":.|
00002590: 36 33 30 30 30 3A 8E 00 BF 2D BE 0A 99 22 4D 4F |63000:...-..."MO|
000025A0: 56 45 20 53 50 52 49 54 45 20 23 37 20 20 20 20 |VE SPRITE #7 |
000025B0: 20 20 20 20 20 22 3A 8D 36 33 30 30 30 3A 8E 00 | ":.63000:..|
000025C0: E7 2D C8 0A 99 22 4F 4E 20 54 4F 20 4E 45 58 54 |.-..."ON TO NEXT|
000025D0: 20 54 2E 20 20 20 20 20 20 20 20 20 20 22 3A 8D | T. ":.|
000025E0: 36 33 30 30 30 3A 8E 00 14 2E F0 0A 99 22 93 90 |63000:......."..|
000025F0: 4F 46 20 43 4F 55 52 53 45 20 57 45 20 43 4F 55 |OF COURSE WE COU|
00002600: 4C 44 20 48 41 56 45 20 54 48 45 20 53 50 52 49 |LD HAVE THE SPRI|
00002610: 54 45 53 22 00 34 2E FA 0A 99 22 11 45 41 43 48 |TES".4....".EACH|
00002620: 20 41 20 44 49 46 46 45 52 45 4E 54 20 53 48 41 | A DIFFERENT SHA|
00002630: 50 45 2E 22 00 46 2E 04 0B 99 22 11 57 45 20 43 |PE.".F....".WE C|
00002640: 4F 55 4C 44 3A 22 00 74 2E 0E 0B 99 22 11 12 46 |OULD:".t...."..F|
00002650: 4F 52 49 3D 30 54 4F 36 32 3A 52 45 41 44 20 58 |ORI=0TO62:READ X|
00002660: 3A 50 4F 4B 45 36 34 2A 42 30 2B 49 2C 58 3A 4E |:POKE64*B0+I,X:N|
00002670: 45 58 54 22 00 A2 2E 18 0B 99 22 11 12 46 4F 52 |EXT"......"..FOR|
00002680: 49 3D 30 54 4F 36 32 3A 52 45 41 44 20 58 3A 50 |I=0TO62:READ X:P|
00002690: 4F 4B 45 36 34 2A 42 33 2B 49 2C 58 3A 4E 45 58 |OKE64*B3+I,X:NEX|
000026A0: 54 22 00 D0 2E 22 0B 99 22 11 12 46 4F 52 49 3D |T"...".."..FORI=|
000026B0: 30 54 4F 36 32 3A 52 45 41 44 20 58 3A 50 4F 4B |0TO62:READ X:POK|
000026C0: 45 36 34 2A 42 37 2B 49 2C 58 3A 4E 45 58 54 22 |E64*B7+I,X:NEXT"|
000026D0: 00 FD 2E 2C 0B 99 22 11 41 4E 44 20 48 41 56 45 |...,..".AND HAVE|
000026E0: 20 42 30 2C 20 42 33 20 41 4E 44 20 42 37 20 41 | B0, B3 AND B7 A|
000026F0: 4C 4C 20 44 49 46 46 45 52 45 4E 54 22 00 2C 2F |LL DIFFERENT".,/|
00002700: 36 0B 99 22 11 54 48 45 4E 20 57 45 27 44 20 54 |6..".THEN WE'D T|
00002710: 45 4C 4C 20 54 48 45 20 43 36 34 20 57 48 45 52 |ELL THE C64 WHER|
00002720: 45 20 54 48 45 59 20 41 52 45 3A 22 00 43 2F 40 |E THEY ARE:".C/@|
00002730: 0B 99 22 11 12 50 4F 4B 45 32 30 34 30 2B 30 2C |.."..POKE2040+0,|
00002740: 42 30 22 00 59 2F 41 0B 99 22 12 50 4F 4B 45 32 |B0".Y/A..".POKE2|
00002750: 30 34 30 2B 33 2C 42 33 22 00 6F 2F 42 0B 99 22 |040+3,B3".o/B.."|
00002760: 12 50 4F 4B 45 32 30 34 30 2B 37 2C 42 37 22 00 |.POKE2040+7,B7".|
00002770: 8B 2F 45 0B 4D 53 24 B2 22 20 20 12 32 30 34 30 |./E.MS$." .2040|
00002780: 2B 4E 92 22 3A 8D 36 33 31 30 30 00 96 2F 4A 0B |+N.":.63100../J.|
00002790: 8D 36 33 30 30 30 00 C8 2F 54 0B 99 22 93 4C 45 |.63000../T..".LE|
000027A0: 54 27 53 20 50 4C 41 59 20 57 49 54 48 20 54 48 |T'S PLAY WITH TH|
000027B0: 45 20 53 50 52 49 54 45 20 43 52 45 41 54 45 44 |E SPRITE CREATED|
000027C0: 20 57 49 54 48 3A 11 22 00 F8 2F 5E 0B 99 22 12 | WITH:."../^..".|
000027D0: 20 39 39 20 42 3D 31 33 3A 4E 3D 33 20 20 20 20 | 99 B=13:N=3 |
000027E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000027F0: 20 20 20 20 20 20 20 22 00 28 30 68 0B 99 22 12 | ".(0h..".|
00002800: 31 30 30 20 46 4F 52 49 3D 30 54 4F 36 32 3A 58 |100 FORI=0TO62:X|
00002810: 3D 32 34 30 3A 50 4F 4B 45 36 34 2A 42 2B 49 2C |=240:POKE64*B+I,|
00002820: 58 3A 4E 45 58 54 20 22 00 58 30 72 0B 99 22 12 |X:NEXT ".X0r..".|
00002830: 31 31 30 20 45 54 43 2E 20 45 54 43 2E 20 45 54 |110 ETC. ETC. ET|
00002840: 43 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |C. |
00002850: 20 20 20 20 20 20 20 22 00 79 30 7C 0B 4E B2 33 | ".y0|.N.3|
00002860: 3A 42 B2 31 33 3A 54 30 B2 35 30 30 3A 54 31 B2 |:B.13:T0.500:T1.|
00002870: 35 30 30 3A 8D 34 31 30 30 00 84 30 86 0B 8D 36 |500:.4100..0...6|
00002880: 33 30 30 30 00 AE 30 8B 0B 99 22 13 11 11 11 11 |3000..0...".....|
00002890: 11 11 11 11 11 11 11 11 11 11 54 4F 20 43 48 41 |..........TO CHA|
000028A0: 4E 47 45 20 49 54 27 53 20 53 49 5A 45 22 00 E5 |NGE IT'S SIZE"..|
000028B0: 30 8C 0B 99 22 11 57 45 20 50 4F 4B 45 20 41 4E |0...".WE POKE AN|
000028C0: 4F 54 48 45 52 20 12 56 2B 53 4F 4D 45 54 48 49 |OTHER .V+SOMETHI|
000028D0: 4E 47 92 20 52 45 47 49 53 54 45 52 21 22 3A 8D |NG. REGISTER!":.|
000028E0: 36 33 30 30 30 00 0B 31 90 0B 99 22 93 57 45 27 |63000..1...".WE'|
000028F0: 4C 4C 20 45 58 50 41 4E 44 20 54 48 45 20 58 2D |LL EXPAND THE X-|
00002900: 44 49 4D 45 4E 53 49 4F 4E 3A 22 00 4C 31 9A 0B |DIMENSION:".L1..|
00002910: 99 22 12 20 20 20 20 50 4F 4B 45 20 56 2B 32 39 |.". POKE V+29|
00002920: 2C 32 5E 4E 20 20 20 20 20 20 20 20 20 20 20 20 |,2^N |
00002930: 20 20 20 20 20 20 20 20 20 20 22 3A 8D 36 33 30 | ":.630|
00002940: 30 30 3A 97 56 AA 32 39 2C 32 AE 4E 00 74 31 A4 |00:.V.29,2.N.t1.|
00002950: 0B 99 22 13 11 11 57 45 27 4C 4C 20 45 58 50 41 |.."...WE'LL EXPA|
00002960: 4E 44 20 54 48 45 20 59 2D 44 49 4D 45 4E 53 49 |ND THE Y-DIMENSI|
00002970: 4F 4E 3A 22 00 B5 31 AE 0B 99 22 12 20 20 20 20 |ON:"..1...". |
00002980: 50 4F 4B 45 20 56 2B 32 33 2C 32 5E 4E 20 20 20 |POKE V+23,2^N |
00002990: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000029A0: 20 20 20 22 3A 8D 36 33 30 30 30 3A 97 56 AA 32 | ":.63000:.V.2|
000029B0: 33 2C 32 AE 4E 00 DF 31 B8 0B 99 22 13 11 11 11 |3,2.N..1..."....|
000029C0: 11 57 45 27 4C 4C 20 53 48 52 49 4E 4B 20 54 48 |.WE'LL SHRINK TH|
000029D0: 45 20 58 2D 44 49 4D 45 4E 53 49 4F 4E 3A 22 00 |E X-DIMENSION:".|
000029E0: 1E 32 C2 0B 99 22 12 20 20 20 20 50 4F 4B 45 20 |.2...". POKE |
000029F0: 56 2B 32 39 2C 30 20 20 20 20 20 20 20 20 20 20 |V+29,0 |
00002A00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3A | ":|
00002A10: 8D 36 33 30 30 30 3A 97 56 AA 32 39 2C 30 00 4A |.63000:.V.29,0.J|
00002A20: 32 CC 0B 99 22 13 11 11 11 11 11 11 57 45 27 4C |2...".......WE'L|
00002A30: 4C 20 53 48 52 49 4E 4B 20 54 48 45 20 59 2D 44 |L SHRINK THE Y-D|
00002A40: 49 4D 45 4E 53 49 4F 4E 3A 22 00 89 32 D6 0B 99 |IMENSION:"..2...|
00002A50: 22 12 20 20 20 20 50 4F 4B 45 20 56 2B 32 33 2C |". POKE V+23,|
00002A60: 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |0 |
00002A70: 20 20 20 20 20 20 20 20 20 22 3A 8D 36 33 30 30 | ":.6300|
00002A80: 30 3A 97 56 AA 32 33 2C 30 00 9C 32 E0 0B 8D 36 |0:.V.23,0..2...6|
00002A90: 33 30 30 30 3A 97 56 AA 32 31 2C 30 00 CB 32 EA |3000:.V.21,0..2.|
00002AA0: 0B 99 22 93 57 48 41 54 20 41 42 4F 55 54 20 54 |..".WHAT ABOUT T|
00002AB0: 48 49 53 20 12 52 45 41 44 20 58 3A 50 4F 4B 45 |HIS .READ X:POKE|
00002AC0: 20 38 33 32 2B 49 2C 58 92 3F 22 00 DE 32 F4 0B | 832+I,X.?"..2..|
00002AD0: 99 22 11 52 45 41 44 20 57 48 41 54 3F 22 00 0D |.".READ WHAT?"..|
00002AE0: 33 FE 0B 99 22 11 41 20 53 50 52 49 54 45 2C 20 |3...".A SPRITE, |
00002AF0: 52 45 4D 45 4D 42 45 52 2C 20 49 53 20 32 34 20 |REMEMBER, IS 24 |
00002B00: 50 49 58 45 4C 53 20 57 49 44 45 2E 22 00 3A 33 |PIXELS WIDE.".:3|
00002B10: 08 0C 99 22 11 54 48 41 54 27 53 20 12 33 92 20 |...".THAT'S .3. |
00002B20: 42 59 54 45 53 20 57 48 49 43 48 20 54 48 45 4E |BYTES WHICH THEN|
00002B30: 20 47 49 56 45 20 54 48 45 22 00 6B 33 12 0C 99 | GIVE THE".k3...|
00002B40: 22 11 12 46 49 52 53 54 92 20 4F 46 20 32 31 20 |"..FIRST. OF 21 |
00002B50: 52 4F 57 53 20 4F 46 20 50 49 58 45 4C 20 49 4E |ROWS OF PIXEL IN|
00002B60: 46 4F 52 4D 41 54 49 4F 4E 2E 22 00 94 33 1C 0C |FORMATION."..3..|
00002B70: 99 22 11 49 46 20 54 48 45 20 33 20 42 59 54 45 |.".IF THE 3 BYTE|
00002B80: 53 20 57 45 52 45 20 32 35 35 2C 38 35 20 41 4E |S WERE 255,85 AN|
00002B90: 44 20 38 22 00 BF 33 80 0C 99 22 11 57 48 49 43 |D 8"..3...".WHIC|
00002BA0: 48 2C 49 4E 20 42 49 4E 41 52 59 20 4C 4F 4F 4B |H,IN BINARY LOOK|
00002BB0: 20 4C 49 4B 45 20 41 20 53 54 52 49 4E 47 22 00 | LIKE A STRING".|
00002BC0: DF 33 8A 0C 99 22 11 4F 46 20 31 27 53 20 41 4E |.3...".OF 1'S AN|
00002BD0: 44 20 30 27 53 2C 20 4E 41 4D 45 4C 59 3A 22 00 |D 0'S, NAMELY:".|
00002BE0: 06 34 94 0C 99 22 11 31 31 31 31 31 31 31 31 20 |.4...".11111111 |
00002BF0: 26 20 30 31 30 31 30 31 30 31 20 26 20 30 30 30 |& 01010101 & 000|
00002C00: 30 31 30 30 30 22 00 20 34 99 0C 99 22 11 4F 52 |01000". 4...".OR|
00002C10: 2C 20 53 49 44 45 20 42 59 20 53 49 44 45 3A 22 |, SIDE BY SIDE:"|
00002C20: 00 41 34 9A 0C 99 22 11 31 31 31 31 31 31 31 31 |.A4...".11111111|
00002C30: 30 31 30 31 30 31 30 31 30 30 30 30 31 30 30 30 |0101010100001000|
00002C40: 22 00 4C 34 9B 0C 8D 36 33 30 30 30 00 6D 34 9C |".L4...63000.m4.|
00002C50: 0C 99 22 93 31 31 31 31 31 31 31 31 30 31 30 31 |..".111111110101|
00002C60: 30 31 30 31 30 30 30 30 31 30 30 30 22 00 9C 34 |010100001000"..4|
00002C70: 9E 0C 99 22 11 54 48 45 4E 20 54 48 45 20 46 49 |...".THEN THE FI|
00002C80: 52 53 54 20 52 4F 57 20 4F 46 20 50 49 58 45 4C |RST ROW OF PIXEL|
00002C90: 53 20 57 4F 55 4C 44 20 42 45 3A 22 00 BD 34 A8 |S WOULD BE:"..4.|
00002CA0: 0C 99 22 11 D1 D1 D1 D1 D1 D1 D1 D1 20 D1 20 D1 |.."......... . .|
00002CB0: 20 D1 20 D1 20 20 20 20 D1 20 20 20 22 00 C8 34 | . . . "..4|
00002CC0: B2 0C 8D 36 33 30 30 30 00 E2 34 BC 0C 99 22 13 |...63000..4...".|
00002CD0: 11 11 11 11 11 11 53 45 45 21 22 3A 8D 36 33 30 |......SEE!":.630|
00002CE0: 30 30 00 0B 35 C6 0C 99 22 13 11 11 11 11 11 11 |00..5...".......|
00002CF0: 11 11 31 31 31 31 31 31 31 31 30 31 30 31 30 31 |..11111111010101|
00002D00: 30 31 30 30 30 30 31 30 30 30 22 00 2B 35 CB 0C |0100001000".+5..|
00002D10: 99 22 5E 5E 5E 5E 5E 5E 5E 5E 20 5E 20 5E 20 5E |."^^^^^^^^ ^ ^ ^|
00002D20: 20 5E 20 20 20 20 5E 20 20 20 22 00 52 35 D0 0C | ^ ^ ".R5..|
00002D30: 99 22 D1 D1 D1 D1 D1 D1 D1 D1 20 D1 20 D1 20 D1 |."........ . . .|
00002D40: 20 D1 20 20 20 20 D1 20 20 20 22 3A 8D 36 33 30 | . . ":.630|
00002D50: 30 30 00 81 35 DA 0C 99 22 13 11 11 11 11 11 11 |00..5...".......|
00002D60: 11 11 11 11 11 11 49 46 20 54 48 45 20 4E 45 58 |......IF THE NEX|
00002D70: 54 20 33 20 42 59 54 45 53 20 49 4E 20 54 48 45 |T 3 BYTES IN THE|
00002D80: 22 00 AE 35 E4 0C 99 22 42 4C 4F 43 4B 20 4F 46 |"..5..."BLOCK OF|
00002D90: 20 4D 45 4D 4F 52 59 20 57 48 49 43 48 20 48 41 | MEMORY WHICH HA|
00002DA0: 53 20 54 48 45 20 27 53 48 41 50 45 27 22 00 D1 |S THE 'SHAPE'"..|
00002DB0: 35 EE 0C 99 22 57 45 52 45 20 31 37 30 2C 30 2C |5..."WERE 170,0,|
00002DC0: 31 37 30 20 54 48 45 4E 3A 22 3A 8D 36 33 30 30 |170 THEN:":.6300|
00002DD0: 30 00 02 36 F8 0C 99 22 13 11 11 11 11 11 11 11 |0..6..."........|
00002DE0: 11 11 11 11 11 11 11 11 11 31 30 31 30 31 30 31 |.........1010101|
00002DF0: 30 30 30 30 30 30 30 30 30 31 30 31 30 31 30 31 |0000000001010101|
00002E00: 30 22 00 22 36 02 0D 99 22 D1 20 D1 20 D1 20 D1 |0"."6...". . . .|
00002E10: 20 20 20 20 20 20 20 20 20 D1 20 D1 20 D1 20 D1 | . . . .|
00002E20: 20 22 00 4A 36 07 0D 99 22 11 3C C0 31 37 30 C0 | ".J6...".<.170.|
00002E30: C0 3E 3C C0 C0 30 C0 C0 C0 3E 3C C0 31 37 30 C0 |.><..0...><.170.|
00002E40: C0 3E 22 3A 8D 36 33 30 30 30 00 82 36 0C 0D 99 |.>":.63000..6...|
00002E50: 22 93 11 4C 45 54 27 53 20 4D 41 4B 45 20 41 20 |"..LET'S MAKE A |
00002E60: 12 50 41 43 4D 41 4E 92 3A 22 3A 8D 36 33 30 30 |.PACMAN.:":.6300|
00002E70: 30 3A 99 22 93 22 3A 8D 37 30 30 30 3A 8D 36 39 |0:.".":.7000:.69|
00002E80: 30 30 00 B4 36 16 0D 8D 36 33 30 30 30 3A 99 22 |00..6...63000:."|
00002E90: 13 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00002EA0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 4E 4F 57 |.............NOW|
00002EB0: 2E 2E 2E 22 00 EF 36 20 0D 99 22 11 1D 1D 1D 1D |..."..6 ..".....|
00002EC0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00002ED0: 1D 1D 1D 1D 1D 1D 1D 49 4E 20 42 49 4E 41 52 59 |.......IN BINARY|
00002EE0: 21 22 3A 8D 36 33 30 30 30 3A 54 B2 32 30 30 00 |!":.63000:T.200.|
00002EF0: 13 37 48 0D 99 22 13 11 11 20 20 30 30 30 30 30 |.7H.."... 00000|
00002F00: 30 30 30 31 31 31 31 31 31 31 31 30 30 30 30 30 |0001111111100000|
00002F10: 30 30 30 00 20 37 49 0D 81 49 B2 31 A4 54 3A 82 |000. 7I..I.1.T:.|
00002F20: 00 41 37 52 0D 99 22 20 20 30 30 30 30 30 31 31 |.A7R.." 0000011|
00002F30: 31 31 31 31 31 31 31 31 31 31 30 30 30 30 30 30 |1111111111000000|
00002F40: 30 00 4E 37 53 0D 81 49 B2 31 A4 54 3A 82 00 6F |0.N7S..I.1.T:..o|
00002F50: 37 5C 0D 99 22 20 20 30 30 30 30 31 31 31 31 31 |7\.." 000011111|
00002F60: 31 31 31 31 31 31 31 31 31 30 30 30 30 30 30 00 |111111111000000.|
00002F70: 7C 37 5D 0D 81 49 B2 31 A4 54 3A 82 00 9D 37 66 ||7]..I.1.T:...7f|
00002F80: 0D 99 22 20 20 30 30 30 31 31 31 31 31 31 31 31 |.." 00011111111|
00002F90: 31 31 31 31 31 31 31 31 30 30 30 30 30 00 AA 37 |1111111100000..7|
00002FA0: 67 0D 81 49 B2 31 A4 54 3A 82 00 CB 37 70 0D 99 |g..I.1.T:...7p..|
00002FB0: 22 20 20 30 30 31 31 31 31 31 31 30 30 30 30 30 |" 0011111100000|
00002FC0: 31 31 31 31 31 31 31 30 30 30 30 00 D8 37 71 0D |11111110000..7q.|
00002FD0: 81 49 B2 31 A4 54 3A 82 00 F9 37 7A 0D 99 22 20 |.I.1.T:...7z.." |
00002FE0: 20 30 31 31 31 31 31 31 31 30 30 30 30 30 31 31 | 011111110000011|
00002FF0: 31 31 31 31 31 31 30 30 30 00 06 38 7B 0D 81 49 |111111000..8{..I|
00003000: B2 31 A4 54 3A 82 00 27 38 84 0D 99 22 20 20 31 |.1.T:..'8..." 1|
00003010: 31 31 31 31 31 31 31 30 31 31 31 30 31 31 31 31 |1111111011101111|
00003020: 31 31 31 30 30 30 30 00 34 38 85 0D 81 49 B2 31 |1110000.48...I.1|
00003030: A4 54 3A 82 00 55 38 8E 0D 99 22 20 20 31 31 31 |.T:..U8..." 111|
00003040: 31 31 31 31 31 30 31 31 31 30 31 31 31 31 31 31 |1111101110111111|
00003050: 30 30 30 30 30 00 62 38 8F 0D 81 49 B2 31 A4 54 |00000.b8...I.1.T|
00003060: 3A 82 00 83 38 98 0D 99 22 20 20 31 31 31 31 31 |:...8..." 11111|
00003070: 31 31 31 31 31 31 31 31 31 31 31 31 31 30 30 30 |1111111111111000|
00003080: 30 30 30 00 90 38 99 0D 81 49 B2 31 A4 54 3A 82 |000..8...I.1.T:.|
00003090: 00 B1 38 A2 0D 99 22 20 20 31 31 31 31 31 31 31 |..8..." 1111111|
000030A0: 31 31 31 31 31 31 31 31 31 31 30 30 30 30 30 30 |1111111111000000|
000030B0: 30 00 BE 38 A3 0D 81 49 B2 31 A4 54 3A 82 00 DF |0..8...I.1.T:...|
000030C0: 38 AC 0D 99 22 20 20 31 31 31 31 31 31 31 31 31 |8..." 111111111|
000030D0: 31 31 31 31 31 31 31 30 30 30 30 30 30 30 30 00 |111111100000000.|
000030E0: EC 38 AD 0D 81 49 B2 31 A4 54 3A 82 00 0D 39 B6 |.8...I.1.T:...9.|
000030F0: 0D 99 22 20 20 31 31 31 31 31 31 31 31 31 31 31 |.." 11111111111|
00003100: 31 31 31 31 31 30 30 30 30 30 30 30 30 00 1A 39 |1111100000000..9|
00003110: B7 0D 81 49 B2 31 A4 54 3A 82 00 3B 39 C0 0D 99 |...I.1.T:..;9...|
00003120: 22 20 20 30 31 31 31 31 31 31 31 31 31 31 31 31 |" 0111111111111|
00003130: 31 31 31 31 30 30 30 30 30 30 30 00 48 39 C1 0D |11110000000.H9..|
00003140: 81 49 B2 31 A4 54 3A 82 00 69 39 CA 0D 99 22 20 |.I.1.T:..i9..." |
00003150: 20 30 30 31 31 31 31 31 31 31 31 31 31 31 31 31 | 001111111111111|
00003160: 31 31 31 30 30 30 30 30 30 00 76 39 CB 0D 81 49 |111000000.v9...I|
00003170: B2 31 A4 54 3A 82 00 97 39 D4 0D 99 22 20 20 30 |.1.T:...9..." 0|
00003180: 30 30 31 31 31 31 31 31 31 31 31 31 31 31 31 31 |0011111111111111|
00003190: 31 31 30 30 30 30 30 00 A4 39 D5 0D 81 49 B2 31 |1100000..9...I.1|
000031A0: A4 54 3A 82 00 C5 39 DE 0D 99 22 20 20 30 30 30 |.T:...9..." 000|
000031B0: 30 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 |0111111111111111|
000031C0: 31 30 30 30 30 00 D2 39 DF 0D 81 49 B2 31 A4 54 |10000..9...I.1.T|
000031D0: 3A 82 00 F3 39 E8 0D 99 22 20 20 30 30 30 30 30 |:...9..." 00000|
000031E0: 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 |1111111111111111|
000031F0: 30 30 30 00 00 3A E9 0D 81 49 B2 31 A4 54 3A 82 |000..:...I.1.T:.|
00003200: 00 21 3A F2 0D 99 22 20 20 30 30 30 30 30 30 30 |.!:..." 0000000|
00003210: 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 30 |1111111111111110|
00003220: 30 00 2E 3A F3 0D 81 49 B2 31 A4 54 3A 82 00 4F |0..:...I.1.T:..O|
00003230: 3A FC 0D 99 22 20 20 30 30 30 30 30 30 30 30 30 |:..." 000000000|
00003240: 31 31 31 31 31 31 31 31 31 31 31 31 30 30 30 00 |111111111111000.|
00003250: 5C 3A FD 0D 81 49 B2 31 A4 54 3A 82 00 7D 3A 06 |\:...I.1.T:..}:.|
00003260: 0E 99 22 20 20 30 30 30 30 30 30 30 30 30 30 30 |.." 00000000000|
00003270: 31 31 31 31 31 31 30 30 30 30 30 30 30 00 8A 3A |1111110000000..:|
00003280: 07 0E 81 49 B2 31 A4 54 3A 82 00 AB 3A 10 0E 99 |...I.1.T:...:...|
00003290: 22 20 20 30 30 30 30 30 30 30 30 30 30 30 30 31 |" 0000000000001|
000032A0: 31 31 30 30 30 30 30 30 30 30 30 00 B8 3A 11 0E |11000000000..:..|
000032B0: 81 49 B2 31 A4 54 3A 82 00 EC 3A 1A 0E 8D 36 33 |.I.1.T:...:...63|
000032C0: 30 30 30 3A 99 22 13 11 1D 1D 1D 1D 1D 1D 1D 1D |000:."..........|
000032D0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000032E0: 1D 1D 1D 50 49 43 4B 20 4F 55 54 22 00 27 3B 24 |...PICK OUT".';$|
000032F0: 0E 99 22 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..".............|
00003300: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 54 |...............T|
00003310: 48 45 20 42 59 54 45 53 21 22 3A 8D 36 33 30 30 |HE BYTES!":.6300|
00003320: 30 3A 54 B2 32 30 30 00 4B 3B 2E 0E 99 22 13 11 |0:T.200.K;..."..|
00003330: 11 20 20 3C C0 C0 C0 30 C0 C0 3E 3C C0 32 35 35 |. <...0..><.255|
00003340: C0 C0 3E 3C C0 C0 C0 30 C0 C0 3E 00 58 3B 2F 0E |..><...0..>.X;/.|
00003350: 81 49 B2 31 A4 54 3A 82 00 79 3B 38 0E 99 22 20 |.I.1.T:..y;8.." |
00003360: 20 3C C0 C0 C0 37 C0 C0 3E 3C C0 32 35 35 C0 C0 | <...7..><.255..|
00003370: 3E 3C C0 31 32 38 C0 C0 3E 00 86 3B 39 0E 81 49 |><.128..>..;9..I|
00003380: B2 31 A4 54 3A 82 00 A7 3B 42 0E 99 22 20 20 3C |.1.T:...;B.." <|
00003390: C0 C0 31 35 C0 C0 3E 3C C0 32 35 35 C0 C0 3E 3C |..15..><.255..><|
000033A0: C0 31 39 32 C0 C0 3E 00 B4 3B 43 0E 81 49 B2 31 |.192..>..;C..I.1|
000033B0: A4 54 3A 82 00 D5 3B 4C 0E 99 22 20 20 3C C0 C0 |.T:...;L.." <..|
000033C0: 33 31 C0 C0 3E 3C C0 32 35 35 C0 C0 3E 3C C0 32 |31..><.255..><.2|
000033D0: 32 34 C0 C0 3E 00 E2 3B 4D 0E 81 49 B2 31 A4 54 |24..>..;M..I.1.T|
000033E0: 3A 82 00 03 3C 56 0E 99 22 20 20 3C C0 C0 36 33 |:...<V.." <..63|
000033F0: C0 C0 3E 3C C0 C0 C0 37 C0 C0 3E 3C C0 32 34 30 |..><...7..><.240|
00003400: C0 C0 3E 00 10 3C 57 0E 81 49 B2 31 A4 54 3A 82 |..>..<W..I.1.T:.|
00003410: 00 31 3C 60 0E 99 22 20 20 3C C0 31 32 37 C0 C0 |.1<`.." <.127..|
00003420: 3E 3C C0 C0 C0 37 C0 C0 3E 3C C0 32 34 38 C0 C0 |><...7..><.248..|
00003430: 3E 00 3E 3C 61 0E 81 49 B2 31 A4 54 3A 82 00 5F |>.><a..I.1.T:.._|
00003440: 3C 6A 0E 99 22 20 20 3C C0 32 35 35 C0 C0 3E 3C |<j.." <.255..><|
00003450: C0 31 31 39 C0 C0 3E 3C C0 32 34 30 C0 C0 3E 00 |.119..><.240..>.|
00003460: 6C 3C 6B 0E 81 49 B2 31 A4 54 3A 82 00 8D 3C 74 |l<k..I.1.T:...<t|
00003470: 0E 99 22 20 20 3C C0 32 35 35 C0 C0 3E 3C C0 31 |.." <.255..><.1|
00003480: 31 39 C0 C0 3E 3C C0 32 32 34 C0 C0 3E 00 9A 3C |19..><.224..>..<|
00003490: 75 0E 81 49 B2 31 A4 54 3A 82 00 BB 3C 7E 0E 99 |u..I.1.T:...<~..|
000034A0: 22 20 20 3C C0 32 35 35 C0 C0 3E 3C C0 32 35 35 |" <.255..><.255|
000034B0: C0 C0 3E 3C C0 31 39 32 C0 C0 3E 00 C8 3C 7F 0E |..><.192..>..<..|
000034C0: 81 49 B2 31 A4 54 3A 82 00 E9 3C 88 0E 99 22 20 |.I.1.T:...<..." |
000034D0: 20 3C C0 32 35 35 C0 C0 3E 3C C0 32 35 35 C0 C0 | <.255..><.255..|
000034E0: 3E 3C C0 31 32 38 C0 C0 3E 00 F6 3C 89 0E 81 49 |><.128..>..<...I|
000034F0: B2 31 A4 54 3A 82 00 17 3D 92 0E 99 22 20 20 3C |.1.T:...=..." <|
00003500: C0 32 35 35 C0 C0 3E 3C C0 32 35 35 C0 C0 3E 3C |.255..><.255..><|
00003510: C0 C0 C0 30 C0 C0 3E 00 24 3D 93 0E 81 49 B2 31 |...0..>.$=...I.1|
00003520: A4 54 3A 82 00 45 3D 9C 0E 99 22 20 20 3C C0 32 |.T:..E=..." <.2|
00003530: 35 35 C0 C0 3E 3C C0 32 35 35 C0 C0 3E 3C C0 C0 |55..><.255..><..|
00003540: C0 30 C0 C0 3E 00 52 3D 9D 0E 81 49 B2 31 A4 54 |.0..>.R=...I.1.T|
00003550: 3A 82 00 73 3D A6 0E 99 22 20 20 3C C0 31 32 37 |:..s=..." <.127|
00003560: C0 C0 3E 3C C0 32 35 35 C0 C0 3E 3C C0 31 32 38 |..><.255..><.128|
00003570: C0 C0 3E 00 80 3D A7 0E 81 49 B2 31 A4 54 3A 82 |..>..=...I.1.T:.|
00003580: 00 A1 3D B0 0E 99 22 20 20 3C C0 C0 36 33 C0 C0 |..=..." <..63..|
00003590: 3E 3C C0 32 35 35 C0 C0 3E 3C C0 31 39 32 C0 C0 |><.255..><.192..|
000035A0: 3E 00 AE 3D B1 0E 81 49 B2 31 A4 54 3A 82 00 CF |>..=...I.1.T:...|
000035B0: 3D BA 0E 99 22 20 20 3C C0 C0 33 31 C0 C0 3E 3C |=..." <..31..><|
000035C0: C0 32 35 35 C0 C0 3E 3C C0 32 32 34 C0 C0 3E 00 |.255..><.224..>.|
000035D0: DC 3D BB 0E 81 49 B2 31 A4 54 3A 82 00 FD 3D C4 |.=...I.1.T:...=.|
000035E0: 0E 99 22 20 20 3C C0 C0 31 35 C0 C0 3E 3C C0 32 |.." <..15..><.2|
000035F0: 35 35 C0 C0 3E 3C C0 32 34 30 C0 C0 3E 00 0A 3E |55..><.240..>..>|
00003600: C5 0E 81 49 B2 31 A4 54 3A 82 00 2B 3E CE 0E 99 |...I.1.T:..+>...|
00003610: 22 20 20 3C C0 C0 C0 37 C0 C0 3E 3C C0 32 35 35 |" <...7..><.255|
00003620: C0 C0 3E 3C C0 32 34 38 C0 C0 3E 00 38 3E CF 0E |..><.248..>.8>..|
00003630: 81 49 B2 31 A4 54 3A 82 00 59 3E D8 0E 99 22 20 |.I.1.T:..Y>..." |
00003640: 20 3C C0 C0 C0 31 C0 C0 3E 3C C0 32 35 35 C0 C0 | <...1..><.255..|
00003650: 3E 3C C0 32 35 32 C0 C0 3E 00 66 3E D9 0E 81 49 |><.252..>.f>...I|
00003660: B2 31 A4 54 3A 82 00 87 3E E2 0E 99 22 20 20 3C |.1.T:...>..." <|
00003670: C0 C0 C0 30 C0 C0 3E 3C C0 31 32 37 C0 C0 3E 3C |...0..><.127..><|
00003680: C0 32 34 38 C0 C0 3E 00 94 3E E3 0E 81 49 B2 31 |.248..>..>...I.1|
00003690: A4 54 3A 82 00 B5 3E EC 0E 99 22 20 20 3C C0 C0 |.T:...>..." <..|
000036A0: C0 30 C0 C0 3E 3C C0 C0 33 31 C0 C0 3E 3C C0 31 |.0..><..31..><.1|
000036B0: 32 38 C0 C0 3E 00 C2 3E ED 0E 81 49 B2 31 A4 54 |28..>..>...I.1.T|
000036C0: 3A 82 00 E3 3E F6 0E 99 22 20 20 3C C0 C0 C0 30 |:...>..." <...0|
000036D0: C0 C0 3E 3C C0 C0 31 34 C0 C0 3E 3C C0 C0 C0 30 |..><..14..><...0|
000036E0: C0 C0 3E 00 F0 3E F7 0E 81 49 B2 31 A4 54 3A 82 |..>..>...I.1.T:.|
000036F0: 00 24 3F 0A 0F 8D 36 33 30 30 30 3A 99 22 13 11 |.$?...63000:."..|
00003700: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00003710: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 4E 4F 57 2E 2E |...........NOW..|
00003720: 2E 20 20 22 00 52 3F 0B 0F 99 22 11 1D 1D 1D 1D |. ".R?...".....|
00003730: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00003740: 1D 1D 1D 1D 1D 1D 1D 50 55 54 20 54 48 45 53 45 |.......PUT THESE|
00003750: 20 22 00 80 3F 0C 0F 99 22 11 1D 1D 1D 1D 1D 1D | "..?...".......|
00003760: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00003770: 1D 1D 1D 1D 1D 4E 55 4D 42 45 52 53 20 20 20 22 |.....NUMBERS "|
00003780: 00 AE 3F 0D 0F 99 22 11 1D 1D 1D 1D 1D 1D 1D 1D |..?...".........|
00003790: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000037A0: 1D 1D 1D 49 4E 54 4F 20 44 41 54 41 20 22 00 DC |...INTO DATA "..|
000037B0: 3F 0E 0F 99 22 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |?..."...........|
000037C0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000037D0: 1D 53 54 41 54 45 4D 45 4E 54 53 22 00 0A 40 0F |.STATEMENTS"..@.|
000037E0: 0F 99 22 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..".............|
000037F0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 2E |................|
00003800: 2E 54 48 45 4E 2E 2E 20 20 22 00 38 40 10 0F 99 |.THEN.. ".8@...|
00003810: 22 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |"...............|
00003820: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 20 20 |.............. |
00003830: 52 45 41 44 20 20 20 22 00 66 40 11 0F 99 22 11 |READ ".f@...".|
00003840: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00003850: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 20 41 4E 44 20 |........... AND |
00003860: 20 20 20 20 20 22 00 94 40 12 0F 99 22 11 1D 1D | "..@..."...|
00003870: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00003880: 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 20 20 50 4F 4B 45 |.......... POKE|
00003890: 20 20 20 22 00 A4 40 14 0F 8D 36 33 30 30 30 3A | "..@...63000:|
000038A0: 99 22 93 22 00 D5 40 19 0F 99 22 11 11 31 30 30 |."."..@..."..100|
000038B0: 20 46 4F 52 49 3D 30 54 4F 36 32 3A 52 45 41 44 | FORI=0TO62:READ|
000038C0: 20 58 3A 50 4F 4B 45 38 33 32 2B 49 2C 58 3A 4E | X:POKE832+I,X:N|
000038D0: 45 58 54 20 22 00 ED 40 1E 0F 99 22 31 30 31 20 |EXT "..@..."101 |
000038E0: 44 41 54 41 20 30 2C 32 35 35 2C 30 22 00 07 41 |DATA 0,255,0"..A|
000038F0: 28 0F 99 22 31 30 32 20 44 41 54 41 20 37 2C 32 |(.."102 DATA 7,2|
00003900: 35 35 2C 31 32 38 22 00 21 41 32 0F 99 22 31 30 |55,128".!A2.."10|
00003910: 33 20 44 41 54 41 20 31 35 2C 32 35 35 2C 31 39 |3 DATA 15,255,19|
00003920: 32 00 3C 41 3C 0F 99 22 11 2E 2E 2E 20 45 54 43 |2.<A<..".... ETC|
00003930: 2E 20 45 54 43 2E 20 45 54 43 2E 22 00 54 41 46 |. ETC. ETC.".TAF|
00003940: 0F 99 22 11 31 32 31 20 44 41 54 41 20 30 2C 31 |..".121 DATA 0,1|
00003950: 34 2C 30 22 00 6E 41 50 0F 4D 53 24 B2 22 20 53 |4,0".nAP.MS$." S|
00003960: 49 4D 50 4C 45 21 22 3A 8D 36 33 31 30 30 00 9E |IMPLE!":.63100..|
00003970: 41 5A 0F 8D 36 33 30 30 30 3A 99 22 93 4C 45 54 |AZ..63000:.".LET|
00003980: 27 53 20 44 4F 20 49 54 3A 22 3A 51 24 B2 22 12 |'S DO IT:":Q$.".|
00003990: 22 3A 8D 33 39 33 31 3A 89 31 30 30 30 30 00 D3 |":.3931:.10000..|
000039A0: 41 5B 0F 99 22 11 11 22 51 24 22 31 30 30 20 46 |A[..".."Q$"100 F|
000039B0: 4F 52 49 3D 30 54 4F 36 32 3A 52 45 41 44 20 58 |ORI=0TO62:READ X|
000039C0: 3A 50 4F 4B 45 38 33 32 2B 49 2C 58 3A 4E 45 58 |:POKE832+I,X:NEX|
000039D0: 54 20 22 00 0F 42 5C 0F 99 51 24 22 32 30 30 20 |T "..B\..Q$"200 |
000039E0: 50 4F 4B 45 32 30 34 30 2B 33 2C 31 33 3A 20 52 |POKE2040+3,13: R|
000039F0: 45 4D 20 57 48 45 52 45 20 53 48 41 50 45 20 49 |EM WHERE SHAPE I|
00003A00: 53 20 20 22 3A 8B 47 47 B2 31 A7 33 39 33 34 00 |S ":.GG.1.3934.|
00003A10: 40 42 5D 0F 99 51 24 22 33 30 30 20 56 3D 35 33 |@B]..Q$"300 V=53|
00003A20: 32 34 38 3A 20 20 20 20 20 20 20 52 45 4D 20 56 |248: REM V|
00003A30: 49 44 45 4F 20 43 48 49 50 20 42 41 53 45 20 22 |IDEO CHIP BASE "|
00003A40: 00 71 42 5E 0F 99 51 24 22 34 30 30 20 50 4F 4B |.qB^..Q$"400 POK|
00003A50: 45 20 56 2B 33 39 2B 33 2C 31 30 3A 52 45 4D 20 |E V+39+3,10:REM |
00003A60: 52 45 44 20 53 50 52 49 54 45 20 23 33 20 20 20 |RED SPRITE #3 |
00003A70: 22 00 A2 42 5F 0F 99 51 24 22 35 30 30 20 58 3D |"..B_..Q$"500 X=|
00003A80: 32 35 30 3A 59 3D 32 30 30 3A 20 20 20 52 45 4D |250:Y=200: REM|
00003A90: 20 50 49 43 4B 20 41 20 50 4F 53 49 54 49 4F 4E | PICK A POSITION|
00003AA0: 20 22 00 DB 42 60 0F 99 51 24 22 36 30 30 20 50 | "..B`..Q$"600 P|
00003AB0: 4F 4B 45 20 56 2B 32 2A 33 2C 58 3A 50 4F 4B 45 |OKE V+2*3,X:POKE|
00003AC0: 20 56 2B 32 2A 33 2B 31 2C 59 20 20 20 20 20 20 | V+2*3+1,Y |
00003AD0: 20 20 22 3A 8B 47 47 B2 31 A7 8E 00 0E 43 61 0F | ":.GG.1....Ca.|
00003AE0: 99 51 24 22 37 30 30 20 50 4F 4B 45 56 2B 32 31 |.Q$"700 POKEV+21|
00003AF0: 2C 32 5E 33 3A 20 20 52 45 4D 20 45 4E 41 42 4C |,2^3: REM ENABL|
00003B00: 45 20 53 50 52 49 54 45 20 23 33 22 3A 8E 00 5A |E SPRITE #3":..Z|
00003B10: 43 64 0F 83 30 2C 32 35 35 2C 30 2C 37 2C 32 35 |Cd..0,255,0,7,25|
00003B20: 35 2C 31 32 38 2C 31 35 2C 32 35 35 2C 31 39 32 |5,128,15,255,192|
00003B30: 2C 33 31 2C 32 35 35 2C 32 32 34 2C 36 33 2C 37 |,31,255,224,63,7|
00003B40: 2C 32 34 30 2C 31 32 37 2C 37 2C 32 34 38 2C 32 |,240,127,7,248,2|
00003B50: 35 35 2C 31 31 39 2C 32 34 30 00 A3 43 65 0F 83 |55,119,240..Ce..|
00003B60: 32 35 35 2C 31 31 39 2C 32 32 34 2C 32 35 35 2C |255,119,224,255,|
00003B70: 32 35 35 2C 31 39 32 2C 32 35 35 2C 32 35 35 2C |255,192,255,255,|
00003B80: 31 32 38 2C 32 35 35 2C 32 35 35 2C 30 2C 32 35 |128,255,255,0,25|
00003B90: 35 2C 32 35 35 2C 30 2C 31 32 37 2C 32 35 35 2C |5,255,0,127,255,|
00003BA0: 31 32 38 00 E7 43 66 0F 83 36 33 2C 32 35 35 2C |128..Cf..63,255,|
00003BB0: 31 39 32 2C 33 31 2C 32 35 35 2C 32 32 34 2C 31 |192,31,255,224,1|
00003BC0: 35 2C 32 35 35 2C 32 34 30 2C 37 2C 32 35 35 2C |5,255,240,7,255,|
00003BD0: 32 34 38 2C 31 2C 32 35 35 2C 32 35 32 2C 30 2C |248,1,255,252,0,|
00003BE0: 31 32 37 2C 32 34 38 00 FC 43 67 0F 83 30 2C 33 |127,248..Cg..0,3|
00003BF0: 31 2C 31 32 38 2C 30 2C 31 34 2C 30 00 0A 44 A0 |1,128,0,14,0..D.|
00003C00: 0F 8F 20 53 50 52 49 54 45 53 00 1E 44 AA 0F 42 |.. SPRITES..D..B|
00003C10: B2 31 33 3A 8F 20 42 4C 4F 43 4B 20 31 33 00 33 |.13:. BLOCK 13.3|
00003C20: 44 B4 0F 4E B2 33 20 3A 8F 20 53 50 52 49 54 45 |D..N.3 :. SPRITE|
00003C30: 20 23 30 00 4B 44 BE 0F 54 30 B2 30 3A 54 31 B2 | #0.KD..T0.0:T1.|
00003C40: 35 30 30 3A 8D 34 31 30 30 3A 8E 00 69 44 04 10 |500:.4100:..iD..|
00003C50: 81 49 B2 30 A4 36 32 3A 58 B2 32 34 30 3A 97 36 |.I.0.62:X.240:.6|
00003C60: 34 AC 42 AA 49 2C 58 3A 82 00 8A 44 0E 10 97 32 |4.B.I,X:...D...2|
00003C70: 30 34 30 AA 4E 2C 42 3A 20 20 8F 20 57 48 45 52 |040.N,B: . WHER|
00003C80: 45 20 53 48 41 50 45 20 49 53 00 AF 44 18 10 56 |E SHAPE IS..D..V|
00003C90: B2 35 33 32 34 38 3A 20 20 20 20 20 20 20 8F 20 |.53248: . |
00003CA0: 56 49 44 45 4F 20 43 48 49 50 20 42 41 53 45 00 |VIDEO CHIP BASE.|
00003CB0: CC 44 22 10 97 20 56 AA 33 39 AA 4E 2C 31 30 3A |.D".. V.39.N,10:|
00003CC0: 8F 20 52 45 44 20 53 50 52 49 54 45 00 E6 44 27 |. RED SPRITE..D'|
00003CD0: 10 97 20 56 AA 32 AC 4E 2C 30 3A 97 20 56 AA 32 |.. V.2.N,0:. V.2|
00003CE0: AC 4E AA 31 2C 30 00 FC 44 28 10 97 20 56 AA 32 |.N.1,0..D(.. V.2|
00003CF0: 39 2C 30 3A 97 20 56 AA 32 33 2C 30 00 1C 45 2C |9,0:. V.23,0..E,|
00003D00: 10 97 56 AA 32 31 2C 32 AE 4E 3A 20 20 8F 20 45 |..V.21,2.N: . E|
00003D10: 4E 41 42 4C 45 20 53 50 52 49 54 45 00 30 45 36 |NABLE SPRITE.0E6|
00003D20: 10 81 20 54 B2 54 30 20 A4 20 54 31 20 A9 20 35 |.. T.T0 . T1 . 5|
00003D30: 00 44 45 40 10 58 B2 54 AD 32 3A 59 B2 31 30 30 |.DE@.X.T.2:Y.100|
00003D40: AA 54 AD 35 00 5E 45 4A 10 97 20 56 AA 32 AC 4E |.T.5.^EJ.. V.2.N|
00003D50: 2C 58 3A 97 20 56 AA 32 AC 4E AA 31 2C 59 00 66 |,X:. V.2.N.1,Y.f|
00003D60: 45 54 10 82 20 54 00 6C 45 5E 10 8E 00 8D 45 88 |ET.. T.lE^....E.|
00003D70: 13 99 22 93 22 3A 4D 53 24 B2 22 41 55 20 52 45 |..".":MS$."AU RE|
00003D80: 56 4F 49 52 21 22 3A 8D 36 33 31 30 30 00 C5 45 |VOIR!":.63100..E|
00003D90: 92 13 99 22 13 11 11 11 4C 4F 41 44 22 C7 28 33 |..."....LOAD".(3|
00003DA0: 34 29 22 3E 53 50 52 49 54 45 53 2D 32 22 C7 28 |4)">SPRITES-2".(|
00003DB0: 33 34 29 22 2C 38 22 3A 99 22 11 11 11 11 52 55 |34)",8":."....RU|
00003DC0: 4E 13 22 3A 80 00 EA 45 F4 1A 99 22 13 12 20 20 |N.":...E...".. |
00003DD0: 20 20 20 20 20 20 20 20 20 31 31 31 31 31 31 31 | 1111111|
00003DE0: 31 31 31 32 32 32 32 32 20 22 00 0E 46 F5 1A 99 |11122222 "..F...|
00003DF0: 22 12 20 20 31 32 33 34 35 36 37 38 39 30 31 32 |". 123456789012|
00003E00: 33 34 35 36 37 38 39 30 31 32 33 34 20 22 00 19 |345678901234 "..|
00003E10: 46 F6 1A 99 22 12 20 31 22 00 24 46 F7 1A 99 22 |F...". 1".$F..."|
00003E20: 12 20 32 22 00 2F 46 F8 1A 99 22 12 20 33 22 00 |. 2"./F...". 3".|
00003E30: 3A 46 F9 1A 99 22 12 20 34 22 00 45 46 FA 1A 99 |:F...". 4".EF...|
00003E40: 22 12 20 35 22 00 50 46 FB 1A 99 22 12 20 36 22 |". 5".PF...". 6"|
00003E50: 00 5B 46 FC 1A 99 22 12 20 37 22 00 66 46 FD 1A |.[F...". 7".fF..|
00003E60: 99 22 12 20 38 22 00 71 46 FE 1A 99 22 12 20 39 |.". 8".qF...". 9|
00003E70: 22 00 7C 46 FF 1A 99 22 12 31 30 22 00 87 46 00 |".|F...".10"..F.|
00003E80: 1B 99 22 12 31 31 22 00 92 46 01 1B 99 22 12 31 |..".11"..F...".1|
00003E90: 32 22 00 9D 46 02 1B 99 22 12 31 33 22 00 A8 46 |2"..F...".13"..F|
00003EA0: 03 1B 99 22 12 31 34 22 00 B3 46 04 1B 99 22 12 |...".14"..F...".|
00003EB0: 31 35 22 00 BE 46 05 1B 99 22 12 31 36 22 00 C9 |15"..F...".16"..|
00003EC0: 46 06 1B 99 22 12 31 37 22 00 D4 46 07 1B 99 22 |F...".17"..F..."|
00003ED0: 12 31 38 22 00 DF 46 08 1B 99 22 12 31 39 22 00 |.18"..F...".19".|
00003EE0: EA 46 09 1B 99 22 12 32 30 22 00 F5 46 0A 1B 99 |.F...".20"..F...|
00003EF0: 22 12 32 31 22 00 FB 46 0B 1B 8E 00 16 47 58 1B |".21"..F.....GX.|
00003F00: 99 22 13 11 11 20 20 20 20 20 20 20 20 20 D1 D1 |."... ..|
00003F10: D1 D1 D1 D1 D1 D1 00 30 47 59 1B 99 22 20 20 20 |.......0GY.." |
00003F20: 20 20 20 20 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 | ............|
00003F30: 00 4B 47 5A 1B 99 22 20 20 20 20 20 20 D1 D1 D1 |.KGZ.." ...|
00003F40: D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 00 67 47 5B 1B |............gG[.|
00003F50: 99 22 20 20 20 20 20 D1 D1 D1 D1 D1 D1 D1 D1 D1 |." .........|
00003F60: D1 D1 D1 D1 D1 D1 D1 00 84 47 5C 1B 99 22 20 20 |.........G\.." |
00003F70: 20 20 D1 D1 D1 D1 D1 D1 20 20 20 20 20 D1 D1 D1 | ...... ...|
00003F80: D1 D1 D1 D1 00 A2 47 5D 1B 99 22 20 20 20 D1 D1 |......G].." ..|
00003F90: D1 D1 D1 D1 D1 20 20 20 20 20 D1 D1 D1 D1 D1 D1 |..... ......|
00003FA0: D1 D1 00 BF 47 5E 1B 99 22 20 20 D1 D1 D1 D1 D1 |....G^.." .....|
00003FB0: D1 D1 D1 20 D1 D1 D1 20 D1 D1 D1 D1 D1 D1 D1 00 |... ... ........|
00003FC0: DB 47 5F 1B 99 22 20 20 D1 D1 D1 D1 D1 D1 D1 D1 |.G_.." ........|
00003FD0: 20 D1 D1 D1 20 D1 D1 D1 D1 D1 D1 00 F6 47 60 1B | ... ........G`.|
00003FE0: 99 22 20 20 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 |." ............|
00003FF0: D1 D1 D1 D1 D1 D1 00 10 48 61 1B 99 22 20 20 D1 |........Ha.." .|
00004000: D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 |................|
00004010: 00 29 48 62 1B 99 22 20 20 D1 D1 D1 D1 D1 D1 D1 |.)Hb.." .......|
00004020: D1 D1 D1 D1 D1 D1 D1 D1 D1 00 42 48 63 1B 99 22 |..........BHc.."|
00004030: 20 20 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 | ..............|
00004040: D1 D1 00 5C 48 64 1B 99 22 20 20 20 D1 D1 D1 D1 |...\Hd.." ....|
00004050: D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 00 77 48 65 |.............wHe|
00004060: 1B 99 22 20 20 20 20 D1 D1 D1 D1 D1 D1 D1 D1 D1 |.." .........|
00004070: D1 D1 D1 D1 D1 D1 D1 00 93 48 66 1B 99 22 20 20 |.........Hf.." |
00004080: 20 20 20 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 | .............|
00004090: D1 D1 D1 00 B0 48 67 1B 99 22 20 20 20 20 20 20 |.....Hg.." |
000040A0: D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 |................|
000040B0: 00 CE 48 68 1B 99 22 20 20 20 20 20 20 20 D1 D1 |..Hh.." ..|
000040C0: D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 00 ED |................|
000040D0: 48 69 1B 99 22 20 20 20 20 20 20 20 20 20 D1 D1 |Hi.." ..|
000040E0: D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 00 0B 49 |...............I|
000040F0: 6A 1B 99 22 20 20 20 20 20 20 20 20 20 20 20 D1 |j.." .|
00004100: D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 00 27 49 6B 1B |............'Ik.|
00004110: 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 D1 |." .|
00004120: D1 D1 D1 D1 D1 D1 D1 00 42 49 6C 1B 99 22 20 20 |........BIl.." |
00004130: 20 20 20 20 20 20 20 20 20 20 20 20 D1 D1 D1 D1 | ....|
00004140: D1 D1 00 48 49 6D 1B 8E 00 72 49 10 27 8D 36 33 |...HIm...rI.'.63|
00004150: 30 30 30 3A 99 22 93 42 45 54 54 45 52 20 53 54 |000:.".BETTER ST|
00004160: 49 4C 4C 2E 2E 4C 45 54 27 53 20 45 4E 41 42 4C |ILL..LET'S ENABL|
00004170: 45 22 00 9F 49 1A 27 99 22 11 53 50 52 49 54 45 |E"..I.'.".SPRITE|
00004180: 20 23 33 20 53 4F 20 57 45 20 43 41 4E 20 12 53 | #3 SO WE CAN .S|
00004190: 45 45 92 20 49 54 20 48 41 50 50 45 4E 21 22 00 |EE. IT HAPPEN!".|
000041A0: BB 49 24 27 99 22 11 57 45 27 4C 4C 20 53 45 54 |.I$'.".WE'LL SET|
000041B0: 20 12 56 3D 35 33 32 34 38 92 22 00 DC 49 2E 27 | .V=53248."..I.'|
000041C0: 99 22 11 41 4E 44 20 57 45 27 4C 4C 20 12 50 4F |.".AND WE'LL .PO|
000041D0: 4B 45 20 56 2B 32 31 2C 32 5E 33 22 00 12 4A 38 |KE V+21,2^3"..J8|
000041E0: 27 99 22 11 54 48 45 4E 20 57 45 27 4C 4C 20 52 |'.".THEN WE'LL R|
000041F0: 55 4E 20 54 48 45 20 50 52 4F 47 52 41 4D 3A 22 |UN THE PROGRAM:"|
00004200: 3A 47 47 B2 31 3A 8D 33 39 33 31 3A 51 24 B2 22 |:GG.1:.3931:Q$."|
00004210: 92 22 00 37 4A 42 27 8D 36 33 30 30 30 3A 99 22 |.".7JB'.63000:."|
00004220: 93 22 3A 8D 33 39 33 31 3A 8D 36 33 30 30 30 3A |.":.3931:.63000:|
00004230: 56 B2 35 33 32 34 38 00 50 4A 43 27 81 49 B2 30 |V.53248.PJC'.I.0|
00004240: A4 36 32 3A 97 38 33 32 AA 49 2C 32 34 30 3A 82 |.62:.832.I,240:.|
00004250: 00 7E 4A 47 27 97 56 AA 36 2C 32 35 30 3A 97 56 |.~JG'.V.6,250:.V|
00004260: AA 37 2C 32 30 30 3A 97 56 AA 32 39 2C 30 3A 97 |.7,200:.V.29,0:.|
00004270: 56 AA 32 33 2C 30 3A 97 56 AA 32 31 2C 38 00 B2 |V.23,0:.V.21,8..|
00004280: 4A 4C 27 99 22 13 11 11 11 12 31 30 30 20 46 4F |JL'.".....100 FO|
00004290: 52 49 3D 30 54 4F 36 32 3A 52 45 41 44 20 58 3A |RI=0TO62:READ X:|
000042A0: 50 4F 4B 45 38 33 32 2B 49 2C 58 3A 4E 45 58 54 |POKE832+I,X:NEXT|
000042B0: 20 22 00 CF 4A 51 27 8C 3A 81 49 B2 30 A4 36 32 | "..JQ'.:.I.0.62|
000042C0: 3A 87 20 58 3A 97 38 33 32 AA 49 2C 58 3A 82 00 |:. X:.832.I,X:..|
000042D0: 04 4B 56 27 99 22 13 11 11 11 11 12 32 30 30 20 |.KV'."......200 |
000042E0: 50 4F 4B 45 32 30 34 30 2B 33 2C 31 33 92 3A 20 |POKE2040+3,13.: |
000042F0: 54 45 4C 4C 20 57 48 45 52 45 20 53 48 41 50 45 |TELL WHERE SHAPE|
00004300: 20 49 53 22 00 1A 4B 5B 27 97 32 30 34 30 AA 33 | IS"..K['.2040.3|
00004310: 2C 31 33 3A 8D 31 30 35 30 30 00 50 4B 60 27 99 |,13:.10500.PK`'.|
00004320: 22 13 11 11 11 11 11 12 34 30 30 20 50 4F 4B 45 |".......400 POKE|
00004330: 20 56 2B 33 39 2B 33 2C 31 92 3A 20 53 50 52 49 | V+39+3,1.: SPRI|
00004340: 54 45 20 23 33 20 49 53 20 57 48 49 54 45 20 22 |TE #3 IS WHITE "|
00004350: 00 66 4B 65 27 97 20 56 AA 33 39 AA 33 2C 31 3A |.fKe'. V.39.3,1:|
00004360: 8D 31 30 35 30 30 00 9E 4B 6A 27 99 22 13 11 11 |.10500..Kj'."...|
00004370: 11 11 11 11 12 35 30 30 20 58 3D 32 30 30 3A 59 |.....500 X=200:Y|
00004380: 3D 31 35 30 92 3A 20 20 20 50 49 43 4B 20 41 20 |=150.: PICK A |
00004390: 50 4F 53 49 54 49 4F 4E 20 20 20 20 20 22 00 B5 |POSITION "..|
000043A0: 4B 6F 27 58 B2 32 30 30 3A 59 B2 31 35 30 3A 8D |Ko'X.200:Y.150:.|
000043B0: 31 30 35 30 30 00 E5 4B 74 27 99 22 13 11 11 11 |10500..Kt'."....|
000043C0: 11 11 11 11 12 36 30 30 20 50 4F 4B 45 20 56 2B |.....600 POKE V+|
000043D0: 32 2A 33 2C 58 3A 50 4F 4B 45 20 56 2B 32 2A 33 |2*3,X:POKE V+2*3|
000043E0: 2B 31 2C 59 22 00 06 4C 79 27 97 20 56 AA 32 AC |+1,Y"..Ly'. V.2.|
000043F0: 33 2C 58 3A 97 20 56 AA 32 AC 33 AA 31 2C 59 3A |3,X:. V.2.3.1,Y:|
00004400: 8D 31 30 35 30 30 00 36 4C 7E 27 99 22 93 50 49 |.10500.6L~'.".PI|
00004410: 43 4B 20 41 20 43 4F 4C 4F 55 52 20 23 20 28 30 |CK A COLOUR # (0|
00004420: 20 54 4F 20 31 35 29 22 3B 3A 85 20 43 24 3A 43 | TO 15)";:. C$:C|
00004430: B2 C5 28 43 24 29 00 4E 4C 88 27 8B 20 43 B3 30 |..(C$).NL.'. C.0|
00004440: 20 B0 20 43 B1 31 35 20 A7 31 30 31 31 30 00 8B | . C.15 .10110..|
00004450: 4C 92 27 97 56 AA 33 39 AA 33 2C 43 3A 8D 36 33 |L.'.V.39.3,C:.63|
00004460: 30 30 30 3A 97 56 AA 33 39 AA 33 2C 31 3A 99 22 |000:.V.39.3,1:."|
00004470: 13 11 57 45 20 44 49 44 20 12 4E 3D 33 3A 50 4F |..WE DID .N=3:PO|
00004480: 4B 45 56 2B 33 39 2B 4E 2C 22 43 00 96 4C 97 27 |KEV+39+N,"C..L.'|
00004490: 8D 36 33 30 30 30 00 D5 4C 9C 27 99 22 13 11 11 |.63000..L.'."...|
000044A0: 50 49 43 4B 20 41 4E 20 58 2D 50 4F 53 49 54 49 |PICK AN X-POSITI|
000044B0: 4F 4E 22 3B 3A 85 20 58 24 3A 58 25 B2 C5 28 58 |ON";:. X$:X%..(X|
000044C0: 24 29 3A 8B 58 25 B3 30 B0 58 25 B1 33 35 35 A7 |$):.X%.0.X%.355.|
000044D0: 31 30 31 34 30 00 F2 4C A1 27 8B 58 25 B1 32 35 |10140..L.'.X%.25|
000044E0: 35 A7 20 58 48 25 B2 38 3A 58 25 B2 58 25 AB 32 |5. XH%.8:X%.X%.2|
000044F0: 35 36 00 0A 4D A6 27 97 56 AA 32 AC 33 2C 58 25 |56..M.'.V.2.3,X%|
00004500: 3A 97 56 AA 31 36 2C 58 48 25 00 45 4D AB 27 99 |:.V.16,XH%.EM.'.|
00004510: 22 13 11 11 11 57 45 20 44 49 44 3A 20 12 4E 3D |"....WE DID: .N=|
00004520: 33 3A 50 4F 4B 45 56 2B 32 2A 4E 2C 22 58 25 22 |3:POKEV+2*N,"X%"|
00004530: 3A 50 4F 4B 45 56 2B 31 36 2C 22 58 48 25 3A 8D |:POKEV+16,"XH%:.|
00004540: 36 33 30 30 30 00 66 4D B0 27 97 56 AA 31 36 2C |63000.fM.'.V.16,|
00004550: 30 3A 97 56 AA 32 AC 33 2C 31 35 30 3A 97 56 AA |0:.V.2.3,150:.V.|
00004560: 33 39 AA 33 2C 31 00 9F 4D BA 27 99 22 13 11 11 |39.3,1..M.'."...|
00004570: 11 11 57 48 41 54 20 57 49 4C 4C 20 12 50 4F 4B |..WHAT WILL .POK|
00004580: 45 20 56 2B 32 39 2C 32 5E 33 92 20 44 4F 3F 22 |E V+29,2^3. DO?"|
00004590: 3A 8D 36 33 30 30 30 3A 97 56 AA 32 39 2C 38 00 |:.63000:.V.29,8.|
000045A0: D9 4D C4 27 99 22 13 11 11 11 11 11 57 48 41 54 |.M.'."......WHAT|
000045B0: 20 57 49 4C 4C 20 12 50 4F 4B 45 20 56 2B 32 33 | WILL .POKE V+23|
000045C0: 2C 32 5E 33 92 20 44 4F 3F 22 3A 8D 36 33 30 30 |,2^3. DO?":.6300|
000045D0: 30 3A 97 56 AA 32 33 2C 38 00 E4 4D 03 29 89 31 |0:.V.23,8..M.).1|
000045E0: 31 30 30 30 00 0E 4E 04 29 81 4A B2 31 A4 33 3A |1000..N.).J.1.3:|
000045F0: 99 22 13 20 20 20 20 20 22 3A 81 4B B2 31 A4 31 |.". ":.K.1.1|
00004600: 30 30 3A 82 3A 99 22 13 44 4F 4E 45 21 22 00 30 |00:.:.".DONE!".0|
00004610: 4E 0E 29 99 22 13 44 4F 4E 45 21 22 3A 81 4B B2 |N.).".DONE!":.K.|
00004620: 31 A4 31 30 30 3A 82 3A 82 3A 8D 36 33 30 30 30 |1.100:.:.:.63000|
00004630: 00 36 4E 18 29 8E 00 5E 4E F8 2A 8D 36 33 30 30 |.6N.)..^N.*.6300|
00004640: 30 3A 4D 53 24 B2 22 41 55 20 52 45 56 4F 49 52 |0:MS$."AU REVOIR|
00004650: 21 22 3A 99 22 93 22 3A 8D 36 33 31 30 30 00 8A |!":.".":.63100..|
00004660: 4E 02 2B 99 22 13 11 11 11 50 4F 4B 45 20 35 33 |N.+."....POKE 53|
00004670: 32 34 38 2B 32 31 2C 30 3A 52 45 4D 20 54 55 52 |248+21,0:REM TUR|
00004680: 4E 20 4F 46 46 21 13 22 3A 80 00 98 4E D4 30 8F |N OFF!.":...N.0.|
00004690: 20 53 50 52 49 54 45 53 00 B5 4E DE 30 81 49 B2 | SPRITES..N.0.I.|
000046A0: 30 A4 36 32 3A 58 B2 32 34 30 3A 97 38 33 32 AA |0.62:X.240:.832.|
000046B0: 49 2C 58 3A 82 00 D8 4E E8 30 97 32 30 34 30 2C |I,X:...N.0.2040,|
000046C0: 31 33 3A 97 32 30 34 30 AA 33 2C 31 33 3A 97 32 |13:.2040.3,13:.2|
000046D0: 30 34 30 AA 37 2C 31 33 00 03 4F F2 30 56 B2 35 |040.7,13..O.0V.5|
000046E0: 33 32 34 38 3A 97 20 56 AA 33 39 2C 31 30 3A 97 |3248:. V.39,10:.|
000046F0: 56 AA 33 39 AA 33 2C 31 3A 97 56 AA 33 39 AA 37 |V.39.3,1:.V.39.7|
00004700: 2C 31 34 00 15 4F FC 30 97 56 AA 32 31 2C 31 AA |,14..O.0.V.21,1.|
00004710: 38 AA 31 32 38 00 29 4F 10 31 81 20 54 B2 30 20 |8.128.)O.1. T.0 |
00004720: A4 20 35 30 30 20 A9 20 35 00 3B 4F 15 31 58 30 |. 500 . 5.;O.1X0|
00004730: B2 54 AD 32 3A 59 30 B2 54 AD 33 00 55 4F 16 31 |.T.2:Y0.T.3.UO.1|
00004740: 58 33 B2 32 35 30 AB 54 AD 32 3A 59 33 B2 32 30 |X3.250.T.2:Y3.20|
00004750: 30 AB 54 AD 33 00 7E 4F 17 31 58 37 B2 31 35 30 |0.T.3.~O.1X7.150|
00004760: AA 31 30 30 AC BF 28 54 AD 35 30 29 3A 59 37 B2 |.100..(T.50):Y7.|
00004770: 31 30 30 AA 35 30 AC BE 28 54 AD 35 30 29 00 9A |100.50..(T.50)..|
00004780: 4F 1A 31 97 20 56 AA 32 AC 30 2C 58 30 3A 97 20 |O.1. V.2.0,X0:. |
00004790: 56 AA 32 AC 30 AA 31 2C 59 30 00 B6 4F 1F 31 97 |V.2.0.1,Y0..O.1.|
000047A0: 20 56 AA 32 AC 33 2C 58 33 3A 97 20 56 AA 32 AC | V.2.3,X3:. V.2.|
000047B0: 33 AA 31 2C 59 33 00 D2 4F 20 31 97 20 56 AA 32 |3.1,Y3..O 1. V.2|
000047C0: AC 37 2C 58 37 3A 97 20 56 AA 32 AC 37 AA 31 2C |.7,X7:. V.2.7.1,|
000047D0: 59 37 00 E4 4F 24 31 82 20 54 3A 97 56 AA 32 31 |Y7..O$1. T:.V.21|
000047E0: 2C 30 3A 8E 00 F5 4F 60 EA 8F 20 49 4E 49 54 49 |,0:...O`.. INITI|
000047F0: 41 4C 49 5A 45 00 17 50 61 EA 42 54 24 B2 22 13 |ALIZE..Pa.BT$.".|
00004800: 22 3A 81 49 B2 31 A4 32 34 3A 42 54 24 B2 42 54 |":.I.1.24:BT$.BT|
00004810: 24 AA 22 11 22 3A 82 00 61 50 62 EA 50 54 24 B2 |$.".":..aPb.PT$.|
00004820: 22 1C B0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 AE 11 9D |"...............|
00004830: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D DD 1D 1D 1D 1D |................|
00004840: 1D 1D 1D 1D 1D 1D DD 11 9D 9D 9D 9D 9D 9D 9D 9D |................|
00004850: 9D 9D 9D 9D AD B2 C0 C0 C0 C0 C0 C0 C0 C0 B2 BD |................|
00004860: 22 00 AB 50 63 EA 50 54 24 B2 50 54 24 AA 22 11 |"..Pc.PT$.PT$.".|
00004870: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D CE A3 A3 |................|
00004880: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 CD 11 9D 9D 9D 9D |................|
00004890: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D A5 1E 3D 3D 3D 3D |............====|
000048A0: 3D 3D 3D 3D 3D 3D 3D 3D 90 A7 22 00 E7 50 64 EA |========.."..Pd.|
000048B0: 50 54 24 B2 50 54 24 AA 22 11 9D 9D 9D 9D 9D 9D |PT$.PT$.".......|
000048C0: 9D 9D 9D 9D 9D 9D 9D 9D D0 CF A3 A3 A3 A3 A3 A3 |................|
000048D0: A3 A3 A3 A3 D0 CF 91 91 91 91 9D 9D 9D 9D 9D 9D |................|
000048E0: 9D 9D 9D 9D 9D 9D 22 00 1A 51 65 EA 50 54 24 B2 |......"..Qe.PT$.|
000048F0: 42 54 24 AA 22 91 91 91 91 91 91 1D 1D 1D 1D 1D |BT$."...........|
00004900: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00004910: 1D 1D 1D 1D 1D 22 AA 50 54 24 00 4A 51 67 EA 4D |.....".PT$.JQg.M|
00004920: 4C 24 B2 22 13 11 11 11 11 11 11 11 11 11 1D 1D |L$."............|
00004930: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00004940: 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 00 5D 51 68 EA 57 |.........".]Qh.W|
00004950: 44 B2 34 30 3A 43 52 54 B2 31 30 32 34 00 99 51 |D.40:CRT.1024..Q|
00004960: 69 EA 57 32 B2 57 44 AD 32 3A 57 33 B2 57 44 AB |i.W2.WD.2:W3.WD.|
00004970: 31 3A 57 31 24 B2 CA 28 C4 28 57 44 29 2C 32 29 |1:W1$..(.(WD),2)|
00004980: 3A 97 35 33 32 38 31 2C 31 35 3A 97 35 33 32 38 |:.53281,15:.5328|
00004990: 30 2C 31 32 3A 99 22 90 22 00 B6 51 6A EA 56 B2 |0,12:."."..Qj.V.|
000049A0: 35 33 32 34 38 3A 81 49 B2 30 A4 31 36 3A 97 56 |53248:.I.0.16:.V|
000049B0: AA 49 2C 30 3A 82 00 DD 51 6B EA 97 56 AA 32 33 |.I,0:...Qk..V.23|
000049C0: 2C 30 3A 97 56 AA 32 39 2C 30 3A 81 49 B2 30 A4 |,0:.V.29,0:.I.0.|
000049D0: 37 3A 97 56 AA 33 39 AA 49 2C 30 3A 82 00 E3 51 |7:.V.39.I,0:...Q|
000049E0: 74 EA 8E 00 EE 51 30 F2 8D 36 33 30 30 30 00 04 |t....Q0..63000..|
000049F0: 52 31 F2 99 53 44 24 43 4C 24 3A 99 43 4C 24 3A |R1..SD$CL$:.CL$:|
00004A00: 99 43 4C 24 00 0A 52 33 F2 8E 00 45 52 18 F6 99 |.CL$..R3...ER...|
00004A10: 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |"...............|
00004A20: 11 11 11 11 11 11 11 11 11 11 90 48 49 54 20 12 |...........HIT .|
00004A30: 52 45 54 55 52 4E 92 20 54 4F 20 43 4F 4E 54 49 |RETURN. TO CONTI|
00004A40: 4E 55 45 22 3B 00 5B 52 19 F6 A1 41 24 3A 8B 41 |NUE";.[R...A$:.A|
00004A50: 24 B3 B1 22 22 A7 36 33 30 30 31 00 70 52 1A F6 |$.."".63001.pR..|
00004A60: A1 41 24 3A 8B 41 24 B2 22 22 A7 36 33 30 30 32 |.A$:.A$."".63002|
00004A70: 00 76 52 1B F6 8E 00 8A 52 7C F6 81 54 B2 31 A4 |.vR.....R|..T.1.|
00004A80: 35 3A 99 50 54 24 4D 53 24 3B 00 A0 52 7D F6 99 |5:.PT$MS$;..R}..|
00004A90: 50 54 24 22 20 20 20 20 20 20 20 20 20 20 22 3B |PT$" ";|
00004AA0: 00 AF 52 7E F6 99 50 54 24 4D 53 24 3B 3A 82 00 |..R~..PT$MS$;:..|
00004AB0: BA 52 7F F6 99 22 90 22 3A 8E 00 07 53 9C F9 53 |.R...".":...S..S|
00004AC0: 44 24 B2 22 13 11 11 11 11 11 11 11 11 11 11 11 |D$."............|
00004AD0: 11 11 11 11 11 11 11 22 3A 43 4C 24 B2 22 92 20 |.......":CL$.". |
00004AE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00004AF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00004B00: 20 20 20 20 20 92 22 00 3A 53 9D F9 53 52 24 B2 | .".:S..SR$.|
00004B10: 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |"...............|
00004B20: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00004B30: 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 00 40 53 9E F9 8E |.........".@S...|
00004B40: 00 00 00 |... |
..-...."....... P.J.PONZO*83*WATERLOO/ON
TARIO.:....".......L....60000:.G(142):."
. ..SPRITES-1"......".....
..................................."....
..". .. SPRITES AND STUFF
.. .":MS$."PONZOTUTOR".(....".........
................................":.63100
:MS$." WELCOME!".C....63100:.I.0.62:. X:
.832.I,X:.:V.53248:.2040,13:.V.21,1.....
.V.39,1:.V.1,100:A$."........
".C...B$."THIS I
S A SPRITE"......V.39,1:.V.1,100:.X.0.25
5.8:.V,X:.H(A$,8.X1);.(....I(B$,31.X2):X
2.X2.(X2.32):X1.X1.1:.T.1.10:.:..X....63
000:.I.0.15:.V.39,I:.T.1.150:.:.:.V.21,0
.....MS$." YUM YUM":.63100:."..IT IS EAS
Y TO HAVE UP TO 8 'SPRITES'"......".ON T
HE SCREEN AT ONE TIME."......".LET'S LAB
EL THE SPRITES 0,1,..7."......".PICK A N
UMBER N (0 TO 7) AND".3....".A BLOCK OF
MEMORY TO HOLD THE".Y.$..".INFORMATION O
N THE 'SHAPE' OF".L.)..".SPRITE #N."....
.MS$."NICE SHAPE":.63100:.63000...8..".N
OW A SPRITE IS MADE UP OF AN ARRAY"...B.
.".OF 'PIXELS' OR 'DOTS' ON THE SCREEN."
...L..".24 DOTS WIDE AND 21 DOTS TALL.".
2.V..".(24*21=504 DOTS IN TOTAL).".[.`..
".EACH DOT IS EITHER 'ON' OR 'OFF'"...E.
.".AND WE CAN INDICATE THIS WITH"...J.."
.A '1' OR '0' (1=.ON. & 0=.OFF.)".N.T.."
.THE 'SHAPE' INFO CAN THEN BE"...~..". S
TORED AS 504 BINARY DIGITS"......".(BITS
),EITHER '1' OR '0'.".=....".SINCE WE ST
ORE NUMBERS IN BYTES".C...."..IT WILL TA
KE 504/8=63 BYTES!".N....63000......".WE
WILL RESERVE .63. BYTES OF MEMORY".....
.".(LET'S CALL THEM 'BLOCKS')"...D..".FO
R EACH SPRITE 'SHAPE'."...N..".YOU TELL
ME THE 'BLOCK' NUMBER".*.X..".AND I'LL K
NOW WHERE TO LOOK".H....".FOR THE SPRITE
SHAPE!".N....".IN FACT IF YOU SAY .BLOC
K 90."......".I'LL GO TO MEMORY LOCATION
"......".64*90=5760 TO GET THE FIRST OF"
......".THE 63 BYTES!":MS$."63 BITES?!":
.63100:.63000......".OK..YOU PICK AN .N.
(THE SPRITE #)".>....".AND A .B. (THE B
LOCK NUMBER).".E.(..".HINT..........:B=1
1,13,14 & 15"...2..".ARE VERY NICE BLOCK
S 'CAUSE"...<..".THE 63 BYTES OF MEMORY
STARTING"...F..".AT 64*11=.704.,64*13=.8
32.,64*14=.896"...P..".AND 64*15=.960. A
RE AVAILABLE!".4.Z..".(..LET'S SAY 'RESE
RVED' FOR SPRITES).".[.D..".THEN YOU MUS
T .POKE. THE .1.'S".}.N..".AND .0.'S INT
O THE BLOCK."...S.."..100 FORI=0TO62:REA
D X:POKE64*B+I,X:NEXT":.63000.S.X..".LET
'S SAY THAT AGAIN:"......"..100 FORI=0TO
62:READ X:POKE64*B+I,X:NEXT".'....".NOW
YOU TELL THE C64 WHERE".K....".THE SPRIT
E SHAPE IS STORED.".M. ..".FOR SPRITE .N
., YOU MUST:"......"..110 POKE 2040+N,B.
:REM B=BLOCK #"......".NOW TO HAVE SPRIT
E #N DISPLAYED"......".ON THE SCREEN YOU
MUST .ENABLE"...H..".THIS SPRITE.":MS$.
" .2040+N.":.63100:.63000.@.M..".YOU'LL
ALSO WANT TO PUT IT AT".G.N..".THE RIGH
T PLACE ON THE SCREEN,"...O..".GIVE IT A
NICE COLOUR, MOVE IT"...P..".AROUND, MA
KE IT BIGGER OR SMALLER".Y.Q..".AND OTHE
R CLEVER THINGS."...R..".ALL THIS INFORM
ATION MUST GO TO".:.W..".THE .VIDEO CHIP
.!":MS$."NICE CHIP!":.63100:.63000.R....
"..THE VIDEO CHIP".Y....".THIS SEXY CHIP
HAS 47 INTERNAL"......".MEMORY LOCATION
S OR .REGISTERS..".O....".THEY START AT
.$D000. IN HEXADECIMAL"......".(NICE) AN
D .53248. IN DECIMAL"......".(NOT SO NIC
E). ANYWAY LET:".A...."..120 V=53248:REM
VIDEO CHIP BASE".A....".TO 'TURN ON' SP
RITE #N:".|...."..130 POKE V+21,2^N"....
..".YES....THAT'S 2^N.".....MS$."TURN ME
ON":.63100:.63000......".YOU SEE, THE R
EGISTER AT V+21"..."..".WHICH 'ENABLES'
SPRITES HAS 8 BITS."./.#..".WE LABEL THE
BITS 0,1,...7".I.$..".(SOUND FAMILIAR?)
".S.'..".EACH BIT CORRESPONDS TO A SPRIT
E."...(..".TO 'SEE' SPRITE #5, TURN ON T
HE"...)..".BIT #5!".L.*..".HOW? JUST .PO
KE V+21,32."...,..".NOTE..........:
2^5=32"...-.MS$." 00100000":.63
100:.63000.?.6..".FOR OUR 'SPRITE #N' WE
WILL:".Y.;.."..130 POKEV+21,2^N"...<.."
.(YOU WON'T BE SURPRISED TO SEE"...@..".
THAT ANY OTHER SPRITES WILL"...J..".DISA
PPEAR!)"...T..".IF YOU WANT SPRITE #0 .A
ND. SPRITE #3"...^.."..AND. SPRITE #7 .A
LL. 'ENABLED' OR 'VISIBLE'".;.H..".THEN
.POKEV+21,1+8+128.".D.R..".NOTE:2^0+2^3+
2^7=1+8+128 (NICE)!"...|..".YOU WANT ALL
8 SPRITES?......"..POKEV+21,255":MS$."
10001001":.63100:.63000.O....".SO FAR WE
HAVE:"......"..100 FORI=0TO62:READ X:PO
KE64*B+I,X:NEXT".0....".110 POKE2040+N,B
:REM WHERE SHAPE IS ".`.B..".120 V=53
248: REM VIDEO CHIP BASE "...L..".
130 POKEV+21,2^N:REM ENABLE SPRITE "
...V.."...AND SPRITE #N IS ON THE SCREEN
!"......".BUT WHERE AND WHAT COLOUR?!*+!
"......".THERE ARE 16 COLOURS TO CHOOSE
FROM.".1....".WE LABEL THEM 0,1,2,...15.
".V....".TO MAKE SPRITE #N COLOUR #10".|
....".(A LIGHT RED) WE POKE ANOTHER"....
..".MAGIC REGISTER IN THE VIDEO CHIP."".
X...."..POKEV+39+N,10.:SPRITE #N IS RED!
":.63000...&..".MAYBE WE SHOULD HAVE PIC
KED A".).0..".COLOUR .BEFORE. WE MADE TH
E SPRITE".Q.5..".VISIBLE! THE LAST THING
WE WANT".X.7..".TO DO IS TO DISPLAY OUR
SPRITE"...8..".BEFORE IT'S PRESENTABLE!
".Y.:..".ANYWAY, WE'LL FIX THAT UP LATER
.":MS$." PATIENCE":.63100...?..63000...D
..".HOW ABOUT THE POSITION ON THE".6.N..
".SCREEN? WELL THE C64 HAS 40 COLUMNS".\
.X..".OR 'PRINT POSITIONS'. EACH IS"...B
..".8 'DOTS' WIDE. THAT MAKES 40*8=320"
".P.C..".
DOTS HORIZONTALLY AND WE SHOULD"...L..".
BE ABLE TO 'POSITION' OUR SPRITE #N"...V
..".IN ANY OF 320 X-POSITIONS.".I....".A
LSO, THE C64 HAS 25 ROWS, EACH ".S...."
.8 DOTS HIGH AND 25*8=200 SO THERE".....
.".WILL BE 200 POSSIBLE Y-POSITIONS"....
..".FOR OUR SPRITE.":.63000......".WHERE
DO WE PUT THIS X-POSITION &"......".Y-P
OSITION INFORMATION?".2.F..".INTO ANOTHE
R .V+SOMETHING. REGISTER.".H.P..".THIS T
IME WE:".M.Z.."..POKE V+2*N,X:POKE V+2*N
+1,Y"......".AS LONG AS 'X' AND 'Y' ARE
BOTH"......".LESS THAN 256 WE'RE IN GOOD
SHAPE!".Z....".IN FACT WE COULD:"......
"..FOR T=0 TO 500 ".#....".X
=T/2:Y=T/3 ".G....".POKE
V+2*N,X:POKE V+2*N+1,Y".R....".NEXT T
":.63000... ..".HOW AB
OUT SOMETHING CUTE LIKE:"...*.."..FOR T=
0 TO 500 "...4..".X=FNX(T):Y
=FNY(T) "...>..".POKE V+2*N,X:P
OKE V+2*N+1,Y".*.H..".NEXT T
".O.R..".THEN OUR SPRITE WOULD
FOLLOW".W.\..".A CURVE GIVEN BY SOME FUN
CTIONS"...F..".FNX AND FNY, PREVIOUSLY .
DEF.INED.".E.K.MS$."DEF FNX(T)":.63100:.
63000...P..".IF YOU'D LIKE TO HAVE THE S
PRITE".. Z..".AT THE RIGHT ON THE SCREEN
, IN".9 ...".PIXEL POSITIONS 256 TO 320,
".C ...".THEN WE HAVE TO DO THE FOLLOWIN
G:".. ..."....TELL IT TO THE VIDEO CHIP!
":MS$."NICE CHAP!":.63100.. ...63000.W .
..".YET ANOTHER REGISTER, AT V+16, HAS".
.!...".8 BITS, ONE FOR EACH OF 8 SPRITES
,".$!...".AND FOR SPRITE #N WE WILL".;!J
.."..POKE V+16,2^N".B!T..".THIS TURNS ON
'BIT #N' SO THAT"..!...".SPRITE #N WILL
BE ABLE TO MOVE THRU'".M!...".X-POSITIO
NS 256 TO 320!":MS$." 256-320!":.63100:.
63000..!..."..NOTE.:POKE V+16,32 WILL AF
FECT THE".("...".X-POSITION OF SPRITE #5
BY .ADDING 256".U"...".TO THE VALUE OF
X .POKE.D INTO V+2*5".~"..."..POKE V+2*5
,50:REM X-POS'N IS 50". "..."..POKE V+16
,32:REM ADD 256".K"$..".THIS PUTS SPRITE
#5 IN X-POS'N 306".."%.MS$." .V+16.":
.63100:.63000..#)..".IF YOU WANT SPRITE
#0 .AND. SPRITE #3".H#..."..AND. SPRITE
#7 .ALL. 'AT THE RIGHT'".I#8..".THEN PIC
K AN X0,X3 & X7:"..#B.."..POKE V+2*0,X0:
REM X-POS'N OF #0"..#L.."..POKE V+2*3,X3
:REM X-POS'N OF #3"..#V.."..POKE V+2*7,X
7:REM X-POS'N OF #7"..$`.."..POKE V+16,1
+8+128:ADD 256 TO ALL!".Q$E.MS$." .V+2
*N.":.63100:.63000:.".CHOOSE BLOCK 13 &
SPRITE 3".Y$F.."AND MAKE ALL 'SHAPE' BYT
ES=.240."..$G..".. 99 B=13:N=3
".Z$J..".100 FORI=0TO62
:X=240:POKE64*B+I,X:NEXT "..%T..".110 PO
KE2040+3,B: REM WHERE SHAPE IS ".:%~..
".120 V=53248: REM VIDEO CHIP BASE
".J%...".130 POKE V+39+N,10:REM RED SPR
ITE "..%...".140 POKEV+21,2^N: REM
ENABLE SPRITE ".J%...".150 FOR T=0 TO
500 STEP 5 "..%...".160 X=
T/2:Y=180+T/5 ".*&...
".170 POKE V+2*N,X:POKE V+2*N+1,Y
".`&...".180 NEXT T
":.4000.~&..MS$.". YUM !!! .":
.63100..&..."......THAT'S FOR ONE SPRITE
..N=3":.V.21,0..&D..".LET'S HAVE 3 SPRIT
ES..#0, #3 AND #7.":.63000..'N.."..100 F
ORI=0TO62:READ X:POKE64*B+I,X:NEXT":.260
0.Q'X.."...110 POKE2040+0,B: REM #0'SHA
PE BLOCK' ":.2610..'Y.."....111 POKE2040
+3,B: REM #3'SHAPE BLOCK' ":.2620.D'Z..
".....112 POKE2040+7,B: REM #7'SHAPE BL
OCK' ":.2630..'..."......120 V=53248:
REM VIDEO CHIP BASE ":.2640.;(..."..
.....130 POKE V+39+0,10:REM #0 IS RED
":.2650.X(..."........131 POKE V+39+
3,12:REM #3 IS WHITE ":.2660..(...".
........132 POKE V+39+7,14:REM #7 IS BLU
E ":.2670..(..."..........140 POKEV
+21,1+8+128:REM ENABLE SPRITES":.2680.5)
..."...........150 FOR T=0 TO 500: TT=T/
50 ":.2690.V)..."............
160 X0=T/2:Y0=T/3 "
:.2700..)...".............161 X3=250-T/2
:Y3=200-T/3 ":.2710..)...".
.............162 X7=150+100*SIN(TT):Y7=1
00+50*COS(TT)":.2720.@*...".............
..170 POKE V+2*0,X0:POKE V+2*0+1,Y0
":.2730..*..."................171 POKE
V+2*3,X3:POKE V+2*3+1,Y3 ":.2740.K*
...".................172 POKE V+2*7,X7:P
OKE V+2*7+1,Y7 ":.2750..+..."......
............180 NEXT T
".?+...2760:.12500:MS$." WHEE
!!":.63100:.63000:.2800.G+(.."PUT DATA I
NTO BLOCK 'B'":.63000:...+2.."TELL WHERE
#0 SHAPE IS ":.63000:...+<.."TELL WHERE
#3 SHAPE IS ":.63000:...+F.."TELL WHERE
#7 SHAPE IS ":.63000:...,P.."REMEMBER T
HIS NUMBER!!!":.63000:../,Z.."POKE V+39+
N & N=0..OK? ":.63000:..W,D.."POKE V+39+
N & N=3..OK! ":.63000:..,N..".....WHAT
ELSE?....... ":.63000:...,X.."TURN THEM
ALL ON!!!!!!!":.63000:..O,..."NOW,FOR 50
0 STEPS OR SO":.63000:...,..."DEFINE X-
AND Y-POS'NS.":.63000:...-..."FOR #3 TOO
":.63000:..G- .."AND #7...!
?* ":.63000:..O-..."MOVE SPRIT
E #0 ":.63000:...-..."MOVE SPRIT
E #3 ":.63000:...-..."MOVE SPRIT
E #7 ":.63000:...-H.."ON TO NEXT
T. ":.63000:......."..OF COURS
E WE COULD HAVE THE SPRITES".4....".EACH
A DIFFERENT SHAPE.".F....".WE COULD:".T
...."..FORI=0TO62:READ X:POKE64*B0+I,X:N
EXT"......"..FORI=0TO62:READ X:POKE64*B3
+I,X:NEXT".P.".."..FORI=0TO62:READ X:POK
E64*B7+I,X:NEXT"...,..".AND HAVE B0, B3
AND B7 ALL DIFFERENT".,/6..".THEN WE'D T
ELL THE C64 WHERE THEY ARE:".C/@.."..POK
E2040+0,B0".Y/A..".POKE2040+3,B3".O/B.."
.POKE2040+7,B7"../E.MS$." .2040+N.":.63
100../J..63000.H/T..".LET'S PLAY WITH TH
E SPRITE CREATED WITH:."../^..". 99 B=13
:N=3 ".(0H..".
100 FORI=0TO62:X=240:POKE64*B+I,X:NEXT "
.X0R..".110 ETC. ETC. ETC.
".Y0|.N.3:B.13:T0.500:T1.500:.410
0..0...63000..0..."...............TO CHA
NGE IT'S SIZE"..0...".WE POKE ANOTHER .V
+SOMETHING. REGISTER!":.63000..1...".WE'
LL EXPAND THE X-DIMENSION:".L1...". P
OKE V+29,2^N ":.630
00:.V.29,2.N.T1..."...WE'LL EXPAND THE Y
-DIMENSION:"..1...". POKE V+23,2^N
":.63000:.V.23,2.N..1
...".....WE'LL SHRINK THE X-DIMENSION:".
.2B..". POKE V+29,0
":.63000:.V.29,0.J2L..".......WE'L
L SHRINK THE Y-DIMENSION:"..2V..". PO
KE V+23,0 ":.6300
0:.V.23,0..2...63000:.V.21,0.K2...".WHAT
ABOUT THIS .READ X:POKE 832+I,X.?"..2..
.".READ WHAT?"..3...".A SPRITE, REMEMBER
, IS 24 PIXELS WIDE.".:3...".THAT'S .3.
BYTES WHICH THEN GIVE THE".K3..."..FIRST
. OF 21 ROWS OF PIXEL INFORMATION."..3..
.".IF THE 3 BYTES WERE 255,85 AND 8"..3.
..".WHICH,IN BINARY LOOK LIKE A STRING".
.3...".OF 1'S AND 0'S, NAMELY:"..4...".1
1111111 & 01010101 & 00001000". 4...".OR
, SIDE BY SIDE:".A4...".1111111101010101
00001000".L4...63000.M4...".111111110101
010100001000"..4...".THEN THE FIRST ROW
OF PIXELS WOULD BE:"..4...".QQQQQQQQ Q Q
Q Q Q ".H4...63000..4...".......SE
E!":.63000..5F..".........11111111010101
0100001000".+5K.."^^^^^^^^ ^ ^ ^ ^ ^
".R5P.."QQQQQQQQ Q Q Q Q Q ":.630
00..5Z..".............IF THE NEXT 3 BYTE
S IN THE"..5..."BLOCK OF MEMORY WHICH HA
S THE 'SHAPE'".Q5..."WERE 170,0,170 THEN
:":.63000..6...".................1010101
00000000010101010"."6..."Q Q Q Q
Q Q Q Q ".J6...".<.170..><..0...><.170.
.>":.63000..6..."..LET'S MAKE A .PACMAN.
:":.63000:.".":.7000:.6900..6...63000:."
.............................NOW..."..6
.."............................IN BINARY
!":.63000:T.200..7H.."... 0000000011111
11100000000. 7I..I.1.T:..A7R.." 0000011
11111111110000000.N7S..I.1.T:..O7\.." 0
00011111111111111000000.|7]..I.1.T:...7F
.." 000111111111111111100000..7G..I.1.T
:..K7P.." 001111110000011111110000.X7Q.
.I.1.T:...7Z.." 01111111000001111111100
0..8{..I.1.T:..'8..." 11111111011101111
1110000.48...I.1.T:..U8..." 11111111011
1011111100000.B8...I.1.T:...8..." 11111
1111111111111000000..8...I.1.T:...8..."
111111111111111110000000..8...I.1.T:...
8..." 111111111111111100000000..8...I.1
.T:...9..." 111111111111111100000000..9
...I.1.T:..;9..." 011111111111111110000
000.H9A..I.1.T:..I9J.." 001111111111111
111000000.V9K..I.1.T:...9T.." 000111111
111111111100000..9U..I.1.T:..E9..." 000
011111111111111110000.R9...I.1.T:...9...
" 000001111111111111111000..:...I.1.T:.
.!:..." 000000011111111111111100..:...I
.1.T:..O:..." 000000000111111111111000.
\:...I.1.T:..}:..." 0000000000011111100
00000..:...I.1.T:...:..." 0000000000001
11000000000..:...I.1.T:...:...63000:."..
...........................PICK OUT".';$
.."............................THE BYTES
!":.63000:T.200.K;..."... <...0..><.255
..><...0..>.X;/..I.1.T:..Y;8.." <...7..
><.255..><.128..>..;9..I.1.T:...;B.." <
..15..><.255..><.192..>..;C..I.1.T:..U;L
.." <..31..><.255..><.224..>..;M..I.1.T
:...<V.." <..63..><...7..><.240..>..<W.
.I.1.T:..1<`.." <.127..><...7..><.248..
>.><A..I.1.T:.._<J.." <.255..><.119..><
.240..>.L<K..I.1.T:...<T.." <.255..><.1
19..><.224..>..<U..I.1.T:...<~.." <.255
..><.255..><.192..>.H<..I.1.T:...<..."
<.255..><.255..><.128..>..<...I.1.T:...
=..." <.255..><.255..><...0..>.$=...I.1
.T:..E=..." <.255..><.255..><...0..>.R=
...I.1.T:..S=..." <.127..><.255..><.128
..>..=...I.1.T:...=..." <..63..><.255..
><.192..>..=...I.1.T:..O=..." <..31..><
.255..><.224..>..=...I.1.T:...=D.." <..
15..><.255..><.240..>..>E..I.1.T:..+>N..
" <...7..><.255..><.248..>.8>O..I.1.T:.
.Y>X.." <...1..><.255..><.252..>.F>Y..I
.1.T:...>..." <...0..><.127..><.248..>.
.>...I.1.T:...>..." <...0..><..31..><.1
28..>.B>...I.1.T:...>..." <...0..><..14
..><...0..>..>...I.1.T:..$?...63000:."..
...........................NOW... ".R?.
.."............................PUT THESE
"..?..."............................NUM
BERS "..?...".........................
...INTO DATA "..?..."...................
.........STATEMENTS"..@...".............
.................THEN.. ".8@...".......
...................... READ ".F@...".
........................... AND "..
@..."............................. POKE
"..@...63000:.".".U@..."..100 FORI=0T
O62:READ X:POKE832+I,X:NEXT "..@..."101
DATA 0,255,0"..A(.."102 DATA 7,255,128".
!A2.."103 DATA 15,255,192.<A<..".... ETC
. ETC. ETC.".TAF..".121 DATA 0,14,0".NAP
.MS$." SIMPLE!":.63100..AZ..63000:.".LET
'S DO IT:":Q$.".":.3931:.10000.SA[..".."
Q$"100 FORI=0TO62:READ X:POKE832+I,X:NEX
T "..B\..Q$"200 POKE2040+3,13: REM WHERE
SHAPE IS ":.GG.1.3934.@B]..Q$"300 V=53
248: REM VIDEO CHIP BASE ".QB^..Q$
"400 POKE V+39+3,10:REM RED SPRITE #3
"..B_..Q$"500 X=250:Y=200: REM PICK A
POSITION "..B`..Q$"600 POKE V+2*3,X:POKE
V+2*3+1,Y ":.GG.1....CA..Q$"700
POKEV+21,2^3: REM ENABLE SPRITE #3":..Z
CD..0,255,0,7,255,128,15,255,192,31,255,
224,63,7,240,127,7,248,255,119,240..CE..
255,119,224,255,255,192,255,255,128,255,
255,0,255,255,0,127,255,128..CF..63,255,
192,31,255,224,15,255,240,7,255,248,1,25
5,252,0,127,248..CG..0,31,128,0,14,0..D
.. SPRITES..D..B.13:. BLOCK 13.3D..N.3 :
. SPRITE #0.KD..T0.0:T1.500:.4100:..ID..
.I.0.62:X.240:.64.B.I,X:...D...2040.N,B:
. WHERE SHAPE IS..D..V.53248: .
VIDEO CHIP BASE.LD".. V.39.N,10:. RED SP
RITE..D'.. V.2.N,0:. V.2.N.1,0..D(.. V.2
9,0:. V.23,0..E,..V.21,2.N: . ENABLE SP
RITE.0E6.. T.T0 . T1 . 5.DE@.X.T.2:Y.100
.T.5.^EJ.. V.2.N,X:. V.2.N.1,Y.FET.. T.L
E^....E...".":MS$."AU REVOIR!":.63100.EE
..."....LOAD"G(34)">SPRITES-2"G(34)",8":
."....RUN.":...E...".. 1111111
11122222 "..F...". 12345678901234567890
1234 "..F...". 1".$F...". 2"./F...". 3".
:F...". 4".EF...". 5".PF...". 6".[F...".
7".FF...". 8".QF...". 9".|F...".10"..F.
..".11"..F...".12"..F...".13"..F...".14"
..F...".15"..F...".16".IF...".17".TF..."
.18"..F...".19"..F...".20"..F...".21"..F
.....GX.."... QQQQQQQQ.0GY.."
QQQQQQQQQQQQ.KGZ.." QQQQQQQQQQQ
QQQ.GG[.." QQQQQQQQQQQQQQQQ..G\.."
QQQQQQ QQQQQQQ..G].." QQQQQQQ
QQQQQQQQ..G^.." QQQQQQQQ QQQ QQQQQQQ.
.G_.." QQQQQQQQ QQQ QQQQQQ..G`.." QQQQ
QQQQQQQQQQQQQQ..HA.." QQQQQQQQQQQQQQQQQ
.)HB.." QQQQQQQQQQQQQQQQ.BHC.." QQQQQQ
QQQQQQQQQQ.\HD.." QQQQQQQQQQQQQQQQ.WHE
.." QQQQQQQQQQQQQQQQ..HF.." QQQQQ
QQQQQQQQQQQ..HG.." QQQQQQQQQQQQQQQQ
.NHH.." QQQQQQQQQQQQQQQQ..HI.."
QQQQQQQQQQQQQQQ..IJ.." Q
QQQQQQQQQQQ.'IK.." QQQQQQQQ.
BIL.." QQQQQQ.HIM...RI.'.63
000:.".BETTER STILL..LET'S ENABLE"..I.'.
".SPRITE #3 SO WE CAN .SEE. IT HAPPEN!".
.I$'.".WE'LL SET .V=53248."..I.'.".AND W
E'LL .POKE V+21,2^3"..J8'.".THEN WE'LL R
UN THE PROGRAM:":GG.1:.3931:Q$.".".7JB'.
63000:.".":.3931:.63000:V.53248.PJC'.I.0
.62:.832.I,240:..~JG'.V.6,250:.V.7,200:.
V.29,0:.V.23,0:.V.21,8..JL'.".....100 FO
RI=0TO62:READ X:POKE832+I,X:NEXT ".OJQ'.
:.I.0.62:. X:.832.I,X:...KV'."......200
POKE2040+3,13.: TELL WHERE SHAPE IS"..K[
'.2040.3,13:.10500.PK`'.".......400 POKE
V+39+3,1.: SPRITE #3 IS WHITE ".FKE'. V
.39.3,1:.10500..KJ'."........500 X=200:Y
=150.: PICK A POSITION "..KO'X.200
:Y.150:.10500..KT'.".........600 POKE V+
2*3,X:POKE V+2*3+1,Y"..LY'. V.2.3,X:. V.
2.3.1,Y:.10500.6L~'.".PICK A COLOUR # (0
TO 15)";:. C$:C.E(C$).NL.'. C.0 . C.15
.10110..L.'.V.39.3,C:.63000:.V.39.3,1:."
..WE DID .N=3:POKEV+39+N,"C..L.'.63000.U
L.'."...PICK AN X-POSITION";:. X$:X%.E(X
$):.X%.0.X%.355.10140..L.'.X%.255. XH%.8
:X%.X%.256..M.'.V.2.3,X%:.V.16,XH%.EM.'.
"....WE DID: .N=3:POKEV+2*N,"X%":POKEV+1
6,"XH%:.63000.FM.'.V.16,0:.V.2.3,150:.V.
39.3,1..M.'.".....WHAT WILL .POKE V+29,2
^3. DO?":.63000:.V.29,8.YMD'."......WHAT
WILL .POKE V+23,2^3. DO?":.63000:.V.23,
8..M.).11000..N.).J.1.3:.". ":.K.1.1
00:.:.".DONE!".0N.).".DONE!":.K.1.100:.:
.:.63000.6N.)..^N.*.63000:MS$."AU REVOIR
!":.".":.63100..N.+."....POKE 53248+21,0
:REM TURN OFF!.":...NT0. SPRITES..N.0.I.
0.62:X.240:.832.I,X:..XN.0.2040,13:.2040
.3,13:.2040.7,13..O.0V.53248:. V.39,10:.
V.39.3,1:.V.39.7,14..O.0.V.21,1.8.128.)O
.1. T.0 . 500 . 5.;O.1X0.T.2:Y0.T.3.UO.1
X3.250.T.2:Y3.200.T.3.~O.1X7.150.100..(T
.50):Y7.100.50..(T.50)..O.1. V.2.0,X0:.
V.2.0.1,Y0..O.1. V.2.3,X3:. V.2.3.1,Y3.R
O 1. V.2.7,X7:. V.2.7.1,Y7..O$1. T:.V.21
,0:...O`.. INITIALIZE..PA.BT$.".":.I.1.2
4:BT$.BT$.".":..APB.PT$."...............
........................................
........"..PC.PT$.PT$."..............N..
..........M.................============
.."..PD.PT$.PT$."...............PO......
....PO................"..QE.PT$.BT$."...
.............................".PT$.JQG.M
L$."....................................
.".]QH.WD.40:CRT.1024..QI.W2.WD.2:W3.WD.
1:W1$.J(D(WD),2):.53281,15:.53280,12:.".
"..QJ.V.53248:.I.0.16:.V.I,0:...QK..V.23
,0:.V.29,0:.I.0.7:.V.39.I,0:...QT....Q0.
.63000..R1..SD$CL$:.CL$:.CL$..R3...ER...
"..........................HIT .RETURN.
TO CONTINUE";.[R...A$:.A$.."".63001.PR..
.A$:.A$."".63002.VR.....R|..T.1.5:.PT$MS
$;. R}..PT$" ";..R~..PT$MS$;:..
.R..".":...S..SD$."..................."
:CL$.".
.".:S..SR$.".......................
.................".@S......
> CLICK IMAGE PREVIEW FOR FULL MODAL