SPRITES TUT NO 1
FILE INFORMATION
FILENAME(S): SPRITES TUT NO 1
FILE TYPE(S): PRG
FILE SIZE: 18.8K
FIRST SEEN: 2025-11-30 21:15:26
APPEARS ON: 1 disk(s)
FILE HASH
aeca5f18fd575d36d07784cef1000d75bab40a497947905eac666afefac73dd2
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| VERVOLG PONZO | SPRITES TUT NO 1 | PRG | DuncanTwain | 17 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 21 08 00 00 8F 22 14 14 14 14 14 14 14 20 |..!...."....... |
00000010: 50 4F 4E 5A 4F 2A 38 32 2A 57 41 54 45 52 4C 4F |PONZO*82*WATERLO|
00000020: 4F 00 2E 08 01 00 8F 22 14 14 14 14 14 14 00 48 |O......".......H|
00000030: 08 58 02 97 20 56 AA 32 AC 33 2C 58 3A 97 20 56 |.X.. V.2.3,X:. V|
00000040: AA 32 AC 33 AA 31 2C 59 00 72 08 E8 03 8D 36 30 |.2.3.1,Y.r....60|
00000050: 30 30 30 3A 99 22 93 20 20 20 20 20 20 20 20 20 |000:.". |
00000060: 20 20 20 20 20 12 9F 53 50 52 49 54 45 53 2D 31 | ..SPRITES-1|
00000070: 9F 22 00 A1 08 E9 03 99 22 B0 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 C0 C0 C0 C0 C0 AE |................|
000000A0: 22 00 E5 08 EA 03 99 22 DD 20 12 9F 20 20 20 20 |"......". .. |
000000B0: 20 20 20 20 20 20 53 50 52 49 54 45 53 20 41 4E | SPRITES AN|
000000C0: 44 20 53 54 55 46 46 20 20 20 20 20 20 20 20 05 |D STUFF .|
000000D0: 92 20 DD 22 3A 4D 53 24 B2 22 20 57 45 4C 43 4F |. .":MS$." WELCO|
000000E0: 4D 45 21 20 22 00 1B 09 EB 03 99 22 AD C0 C0 C0 |ME! "......"....|
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 C0 C0 |................|
00000110: C0 C0 BD 22 3A 8D 36 33 31 30 30 00 4F 09 EC 03 |...":.63100.O...|
00000120: 81 49 B2 30 A4 36 32 3A 87 20 58 3A 97 38 33 32 |.I.0.62:. X:.832|
00000130: AA 49 2C 58 3A 82 3A 56 B2 35 33 32 34 38 3A 97 |.I,X:.:V.53248:.|
00000140: 32 30 34 30 2C 31 33 3A 97 56 AA 32 31 2C 31 00 |2040,13:.V.21,1.|
00000150: 95 09 ED 03 97 56 AA 33 39 2C 31 3A 97 56 AA 31 |.....V.39,1:.V.1|
00000160: 2C 31 30 30 3A 41 24 B2 22 13 11 11 11 11 11 11 |,100:A$.".......|
00000170: 11 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
00000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000190: 20 20 20 20 22 00 AF 09 EE 03 42 24 B2 22 54 48 | ".....B$."TH|
000001A0: 49 53 20 49 53 20 41 20 53 50 52 49 54 45 22 00 |IS IS A SPRITE".|
000001B0: E1 09 EF 03 97 56 AA 33 39 2C 31 3A 97 56 AA 31 |.....V.39,1:.V.1|
000001C0: 2C 31 30 30 3A 81 58 B2 30 A4 32 35 35 A9 38 3A |,100:.X.0.255.8:|
000001D0: 97 56 2C 58 3A 99 C8 28 41 24 2C 38 AA 58 31 29 |.V,X:..(A$,8.X1)|
000001E0: 3B 00 14 0A F0 03 99 C9 28 42 24 2C 33 31 AB 58 |;.......(B$,31.X|
000001F0: 32 29 3A 58 32 B2 58 32 AB 28 58 32 B3 33 32 29 |2):X2.X2.(X2.32)|
00000200: 3A 58 31 B2 58 31 AA 31 3A 81 54 B2 31 A4 31 30 |:X1.X1.1:.T.1.10|
00000210: 3A 82 3A 82 00 43 0A F1 03 8D 36 33 30 30 30 3A |:.:..C....63000:|
00000220: 81 49 B2 30 A4 31 35 3A 97 56 AA 33 39 2C 49 3A |.I.0.15:.V.39,I:|
00000230: 81 54 B2 31 A4 35 30 3A 82 3A 82 3A 97 56 AA 32 |.T.1.50:.:.:.V.2|
00000240: 31 2C 30 00 87 0A F2 03 4D 53 24 B2 22 20 59 55 |1,0.....MS$." YU|
00000250: 4D 20 59 55 4D 22 3A 8D 36 33 31 30 30 3A 99 22 |M YUM":.63100:."|
00000260: 93 11 49 54 20 49 53 20 45 41 53 59 20 54 4F 20 |..IT IS EASY TO |
00000270: 48 41 56 45 20 55 50 20 54 4F 20 38 20 27 53 50 |HAVE UP TO 8 'SP|
00000280: 52 49 54 45 53 27 22 00 AA 0A FC 03 99 22 11 4F |RITES'"......".O|
00000290: 4E 20 54 48 45 20 53 43 52 45 45 4E 20 41 54 20 |N THE SCREEN AT |
000002A0: 4F 4E 45 20 54 49 4D 45 2E 22 00 D3 0A 06 04 99 |ONE TIME."......|
000002B0: 22 11 4C 45 54 27 53 20 4C 41 42 45 4C 20 54 48 |".LET'S LABEL TH|
000002C0: 45 20 53 50 52 49 54 45 53 20 30 2C 31 2C 2E 2E |E SPRITES 0,1,..|
000002D0: 37 2E 22 00 F8 0A 10 04 99 22 11 50 49 43 4B 20 |7."......".PICK |
000002E0: 41 20 4E 55 4D 42 45 52 20 4E 20 28 30 20 54 4F |A NUMBER N (0 TO|
000002F0: 20 37 29 20 41 4E 44 22 00 1E 0B 1A 04 99 22 11 | 7) AND"......".|
00000300: 41 20 42 4C 4F 43 4B 20 4F 46 20 4D 45 4D 4F 52 |A BLOCK OF MEMOR|
00000310: 59 20 54 4F 20 48 4F 4C 44 20 54 48 45 22 00 44 |Y TO HOLD THE".D|
00000320: 0B 24 04 99 22 11 49 4E 46 4F 52 4D 41 54 49 4F |.$..".INFORMATIO|
00000330: 4E 20 4F 4E 20 54 48 45 20 27 53 48 41 50 45 27 |N ON THE 'SHAPE'|
00000340: 20 4F 46 22 00 57 0B 29 04 99 22 11 53 50 52 49 | OF".W.)..".SPRI|
00000350: 54 45 20 23 4E 2E 22 00 7A 0B 2E 04 4D 53 24 B2 |TE #N.".z...MS$.|
00000360: 22 4E 49 43 45 20 53 48 41 50 45 22 3A 8D 36 33 |"NICE SHAPE":.63|
00000370: 31 30 30 3A 8D 36 33 30 30 30 00 A6 0B 38 04 99 |100:.63000...8..|
00000380: 22 93 4E 4F 57 20 41 20 53 50 52 49 54 45 20 49 |".NOW A SPRITE I|
00000390: 53 20 4D 41 44 45 20 55 50 20 4F 46 20 41 4E 20 |S MADE UP OF AN |
000003A0: 41 52 52 41 59 22 00 D3 0B 42 04 99 22 11 4F 46 |ARRAY"...B..".OF|
000003B0: 20 27 50 49 58 45 4C 53 27 20 4F 52 20 27 44 4F | 'PIXELS' OR 'DO|
000003C0: 54 53 27 20 4F 4E 20 54 48 45 20 53 43 52 45 45 |TS' ON THE SCREE|
000003D0: 4E 2E 22 00 FA 0B 4C 04 99 22 11 32 34 20 44 4F |N."...L..".24 DO|
000003E0: 54 53 20 57 49 44 45 20 41 4E 44 20 32 31 20 44 |TS WIDE AND 21 D|
000003F0: 4F 54 53 20 54 41 4C 4C 2E 22 00 1D 0C 56 04 99 |OTS TALL."...V..|
00000400: 22 11 28 32 34 2A 32 31 3D 35 30 34 20 44 4F 54 |".(24*21=504 DOT|
00000410: 53 20 49 4E 20 54 4F 54 41 4C 29 2E 22 00 46 0C |S IN TOTAL).".F.|
00000420: 60 04 99 22 11 45 41 43 48 20 44 4F 54 20 49 53 |`..".EACH DOT IS|
00000430: 20 45 49 54 48 45 52 20 27 4F 4E 27 20 4F 52 20 | EITHER 'ON' OR |
00000440: 27 4F 46 46 27 22 00 6C 0C 65 04 99 22 11 41 4E |'OFF'".l.e..".AN|
00000450: 44 20 57 45 20 43 41 4E 20 49 4E 44 49 43 41 54 |D WE CAN INDICAT|
00000460: 45 20 54 48 49 53 20 57 49 54 48 22 00 94 0C 6A |E THIS WITH"...j|
00000470: 04 99 22 11 41 20 27 31 27 20 4F 52 20 27 30 27 |..".A '1' OR '0'|
00000480: 20 28 31 3D 12 4F 4E 92 20 26 20 30 3D 12 4F 46 | (1=.ON. & 0=.OF|
00000490: 46 92 29 22 00 B9 0C 74 04 99 22 11 54 48 45 20 |F.)"...t..".THE |
000004A0: 27 53 48 41 50 45 27 20 49 4E 46 4F 20 43 41 4E |'SHAPE' INFO CAN|
000004B0: 20 54 48 45 4E 20 42 45 22 00 DE 0C 7E 04 99 22 | THEN BE"...~.."|
000004C0: 11 20 53 54 4F 52 45 44 20 41 53 20 35 30 34 20 |. STORED AS 504 |
000004D0: 42 49 4E 41 52 59 20 44 49 47 49 54 53 22 00 00 |BINARY DIGITS"..|
000004E0: 0D 83 04 99 22 11 28 42 49 54 53 29 2C 45 49 54 |....".(BITS),EIT|
000004F0: 48 45 52 20 27 31 27 20 4F 52 20 27 30 27 2E 22 |HER '1' OR '0'."|
00000500: 00 28 0D 88 04 99 22 11 53 49 4E 43 45 20 57 45 |.(....".SINCE WE|
00000510: 20 53 54 4F 52 45 20 4E 55 4D 42 45 52 53 20 49 | STORE NUMBERS I|
00000520: 4E 20 42 59 54 45 53 22 00 4E 0D 92 04 99 22 11 |N BYTES".N....".|
00000530: 12 49 54 20 57 49 4C 4C 20 54 41 4B 45 20 35 30 |.IT WILL TAKE 50|
00000540: 34 2F 38 3D 36 33 20 42 59 54 45 53 21 22 00 59 |4/8=63 BYTES!".Y|
00000550: 0D 9C 04 8D 36 33 30 30 30 00 86 0D B0 04 99 22 |....63000......"|
00000560: 93 57 45 20 57 49 4C 4C 20 52 45 53 45 52 56 45 |.WE WILL RESERVE|
00000570: 20 12 36 33 92 20 42 59 54 45 53 20 4F 46 20 4D | .63. BYTES OF M|
00000580: 45 4D 4F 52 59 22 00 A9 0D BA 04 99 22 11 28 4C |EMORY"......".(L|
00000590: 45 54 27 53 20 43 41 4C 4C 20 54 48 45 4D 20 27 |ET'S CALL THEM '|
000005A0: 42 4C 4F 43 4B 53 27 29 22 00 CA 0D C4 04 99 22 |BLOCKS')"......"|
000005B0: 11 46 4F 52 20 45 41 43 48 20 53 50 52 49 54 45 |.FOR EACH SPRITE|
000005C0: 20 27 53 48 41 50 45 27 2E 22 00 F1 0D CE 04 99 | 'SHAPE'."......|
000005D0: 22 11 59 4F 55 20 54 45 4C 4C 20 4D 45 20 54 48 |".YOU TELL ME TH|
000005E0: 45 20 27 42 4C 4F 43 4B 27 20 4E 55 4D 42 45 52 |E 'BLOCK' NUMBER|
000005F0: 22 00 15 0E D8 04 99 22 11 41 4E 44 20 49 27 4C |"......".AND I'L|
00000600: 4C 20 4B 4E 4F 57 20 57 48 45 52 45 20 54 4F 20 |L KNOW WHERE TO |
00000610: 4C 4F 4F 4B 22 00 33 0E E2 04 99 22 11 46 4F 52 |LOOK".3....".FOR|
00000620: 20 54 48 45 20 53 50 52 49 54 45 20 53 48 41 50 | THE SPRITE SHAP|
00000630: 45 21 22 00 59 0E EC 04 99 22 11 49 4E 20 46 41 |E!".Y....".IN FA|
00000640: 43 54 20 49 46 20 59 4F 55 20 53 41 59 20 12 42 |CT IF YOU SAY .B|
00000650: 4C 4F 43 4B 20 39 30 92 22 00 7C 0E F6 04 99 22 |LOCK 90.".|...."|
00000660: 11 49 27 4C 4C 20 47 4F 20 54 4F 20 4D 45 4D 4F |.I'LL GO TO MEMO|
00000670: 52 59 20 4C 4F 43 41 54 49 4F 4E 22 00 A3 0E 00 |RY LOCATION"....|
00000680: 05 99 22 11 36 34 2A 39 30 3D 35 37 36 30 20 54 |..".64*90=5760 T|
00000690: 4F 20 47 45 54 20 54 48 45 20 46 49 52 53 54 20 |O GET THE FIRST |
000006A0: 4F 46 22 00 D8 0E 0A 05 99 22 11 54 48 45 20 36 |OF"......".THE 6|
000006B0: 33 20 42 59 54 45 53 21 22 3A 4D 53 24 B2 22 36 |3 BYTES!":MS$."6|
000006C0: 33 20 42 49 54 45 53 3F 21 22 3A 8D 36 33 31 30 |3 BITES?!":.6310|
000006D0: 30 3A 8D 36 33 30 30 30 00 03 0F 14 05 99 22 93 |0:.63000......".|
000006E0: 4F 4B 2E 2E 59 4F 55 20 50 49 43 4B 20 41 4E 20 |OK..YOU PICK AN |
000006F0: 12 4E 92 20 28 54 48 45 20 53 50 52 49 54 45 20 |.N. (THE SPRITE |
00000700: 23 29 22 00 29 0F 1E 05 99 22 11 41 4E 44 20 41 |#)".)....".AND A|
00000710: 20 12 42 92 20 28 54 48 45 20 42 4C 4F 43 4B 20 | .B. (THE BLOCK |
00000720: 4E 55 4D 42 45 52 29 2E 22 00 50 0F 28 05 99 22 |NUMBER).".P.(.."|
00000730: 11 48 49 4E 54 11 9D 9D 9D 9D B8 B8 B8 B8 91 3A |.HINT..........:|
00000740: 42 3D 31 31 2C 31 33 2C 31 34 20 26 20 31 35 22 |B=11,13,14 & 15"|
00000750: 00 74 0F 32 05 99 22 11 41 52 45 20 56 45 52 59 |.t.2..".ARE VERY|
00000760: 20 4E 49 43 45 20 42 4C 4F 43 4B 53 20 27 43 41 | NICE BLOCKS 'CA|
00000770: 55 53 45 22 00 9C 0F 3C 05 99 22 11 54 48 45 20 |USE"...<..".THE |
00000780: 36 33 20 42 59 54 45 53 20 4F 46 20 4D 45 4D 4F |63 BYTES OF MEMO|
00000790: 52 59 20 53 54 41 52 54 49 4E 47 22 00 CA 0F 46 |RY STARTING"...F|
000007A0: 05 99 22 11 41 54 20 36 34 2A 31 31 3D 12 37 30 |..".AT 64*11=.70|
000007B0: 34 92 2C 36 34 2A 31 33 3D 12 38 33 32 92 2C 36 |4.,64*13=.832.,6|
000007C0: 34 2A 31 34 3D 12 38 39 36 22 00 F1 0F 50 05 99 |4*14=.896"...P..|
000007D0: 22 11 41 4E 44 20 36 34 2A 31 35 3D 12 39 36 30 |".AND 64*15=.960|
000007E0: 92 20 41 52 45 20 41 56 41 49 4C 41 42 4C 45 21 |. ARE AVAILABLE!|
000007F0: 22 00 1F 10 5A 05 99 22 11 28 2E 2E 4C 45 54 27 |"...Z..".(..LET'|
00000800: 53 20 53 41 59 20 27 52 45 53 45 52 56 45 44 27 |S SAY 'RESERVED'|
00000810: 20 46 4F 52 20 53 50 52 49 54 45 53 29 2E 22 00 | FOR SPRITES).".|
00000820: 46 10 64 05 99 22 11 54 48 45 4E 20 59 4F 55 20 |F.d..".THEN YOU |
00000830: 4D 55 53 54 20 12 50 4F 4B 45 92 20 54 48 45 20 |MUST .POKE. THE |
00000840: 12 31 92 27 53 22 00 68 10 6E 05 99 22 11 41 4E |.1.'S".h.n..".AN|
00000850: 44 20 12 30 92 27 53 20 49 4E 54 4F 20 54 48 45 |D .0.'S INTO THE|
00000860: 20 42 4C 4F 43 4B 2E 22 00 A0 10 73 05 99 22 11 | BLOCK."...s..".|
00000870: 12 31 30 30 20 46 4F 52 49 3D 30 54 4F 36 32 3A |.100 FORI=0TO62:|
00000880: 52 45 41 44 20 58 3A 50 4F 4B 45 36 34 2A 42 2B |READ X:POKE64*B+|
00000890: 49 2C 58 3A 4E 45 58 54 22 3A 8D 36 33 30 30 30 |I,X:NEXT":.63000|
000008A0: 00 BE 10 78 05 99 22 93 4C 45 54 27 53 20 53 41 |...x..".LET'S SA|
000008B0: 59 20 54 48 41 54 20 41 47 41 49 4E 3A 22 00 EF |Y THAT AGAIN:"..|
000008C0: 10 82 05 99 22 11 12 31 30 30 20 46 4F 52 49 3D |...."..100 FORI=|
000008D0: 30 54 4F 36 32 3A 52 45 41 44 20 58 3A 50 4F 4B |0TO62:READ X:POK|
000008E0: 45 36 34 2A 42 2B 49 2C 58 3A 4E 45 58 54 22 00 |E64*B+I,X:NEXT".|
000008F0: 12 11 8C 05 99 22 11 4E 4F 57 20 59 4F 55 20 54 |.....".NOW YOU T|
00000900: 45 4C 4C 20 54 48 45 20 43 36 34 20 57 48 45 52 |ELL THE C64 WHER|
00000910: 45 22 00 36 11 96 05 99 22 11 54 48 45 20 53 50 |E".6....".THE SP|
00000920: 52 49 54 45 20 53 48 41 50 45 20 49 53 20 53 54 |RITE SHAPE IS ST|
00000930: 4F 52 45 44 2E 22 00 58 11 A0 05 99 22 11 46 4F |ORED.".X....".FO|
00000940: 52 20 53 50 52 49 54 45 20 12 4E 92 2C 20 59 4F |R SPRITE .N., YO|
00000950: 55 20 4D 55 53 54 3A 22 00 82 11 AA 05 99 22 11 |U MUST:"......".|
00000960: 12 31 31 30 20 50 4F 4B 45 20 32 30 34 30 2B 4E |.110 POKE 2040+N|
00000970: 2C 42 92 3A 52 45 4D 20 42 3D 42 4C 4F 43 4B 20 |,B.:REM B=BLOCK |
00000980: 23 22 00 AA 11 B4 05 99 22 11 4E 4F 57 20 54 4F |#"......".NOW TO|
00000990: 20 48 41 56 45 20 53 50 52 49 54 45 20 23 4E 20 | HAVE SPRITE #N |
000009A0: 44 49 53 50 4C 41 59 45 44 22 00 D1 11 BE 05 99 |DISPLAYED"......|
000009B0: 22 11 4F 4E 20 54 48 45 20 53 43 52 45 45 4E 20 |".ON THE SCREEN |
000009C0: 59 4F 55 20 4D 55 53 54 20 12 45 4E 41 42 4C 45 |YOU MUST .ENABLE|
000009D0: 22 00 05 12 C8 05 99 22 11 54 48 49 53 20 53 50 |"......".THIS SP|
000009E0: 52 49 54 45 2E 22 3A 4D 53 24 B2 22 20 20 12 32 |RITE.":MS$." .2|
000009F0: 30 34 30 2B 4E 92 22 3A 8D 36 33 31 30 30 3A 8D |040+N.":.63100:.|
00000A00: 36 33 30 30 30 00 2B 12 CD 05 99 22 93 59 4F 55 |63000.+....".YOU|
00000A10: 27 4C 4C 20 41 4C 53 4F 20 57 41 4E 54 20 54 4F |'LL ALSO WANT TO|
00000A20: 20 50 55 54 20 49 54 20 41 54 22 00 52 12 CE 05 | PUT IT AT".R...|
00000A30: 99 22 11 54 48 45 20 52 49 47 48 54 20 50 4C 41 |.".THE RIGHT PLA|
00000A40: 43 45 20 4F 4E 20 54 48 45 20 53 43 52 45 45 4E |CE ON THE SCREEN|
00000A50: 2C 22 00 79 12 CF 05 99 22 11 47 49 56 45 20 49 |,".y....".GIVE I|
00000A60: 54 20 41 20 4E 49 43 45 20 43 4F 4C 4F 55 52 2C |T A NICE COLOUR,|
00000A70: 20 4D 4F 56 45 20 49 54 22 00 A3 12 D0 05 99 22 | MOVE IT"......"|
00000A80: 11 41 52 4F 55 4E 44 2C 20 4D 41 4B 45 20 49 54 |.AROUND, MAKE IT|
00000A90: 20 42 49 47 47 45 52 20 4F 52 20 53 4D 41 4C 4C | BIGGER OR SMALL|
00000AA0: 45 52 22 00 C4 12 D1 05 99 22 11 41 4E 44 20 4F |ER"......".AND O|
00000AB0: 54 48 45 52 20 43 4C 45 56 45 52 20 54 48 49 4E |THER CLEVER THIN|
00000AC0: 47 53 2E 22 00 EC 12 D2 05 99 22 11 41 4C 4C 20 |GS."......".ALL |
00000AD0: 54 48 49 53 20 49 4E 46 4F 52 4D 41 54 49 4F 4E |THIS INFORMATION|
00000AE0: 20 4D 55 53 54 20 47 4F 20 54 4F 22 00 25 13 D7 | MUST GO TO".%..|
00000AF0: 05 99 22 11 54 48 45 20 12 56 49 44 45 4F 20 43 |..".THE .VIDEO C|
00000B00: 48 49 50 92 21 22 3A 4D 53 24 B2 22 4E 49 43 45 |HIP.!":MS$."NICE|
00000B10: 20 43 48 49 50 21 22 3A 8D 36 33 31 30 30 3A 8D | CHIP!":.63100:.|
00000B20: 36 33 30 30 30 00 3D 13 DC 05 99 22 93 12 54 48 |63000.=...."..TH|
00000B30: 45 20 56 49 44 45 4F 20 43 48 49 50 22 00 64 13 |E VIDEO CHIP".d.|
00000B40: DD 05 99 22 11 54 48 49 53 20 53 45 58 59 20 43 |...".THIS SEXY C|
00000B50: 48 49 50 20 48 41 53 20 34 37 20 49 4E 54 45 52 |HIP HAS 47 INTER|
00000B60: 4E 41 4C 22 00 8D 13 DE 05 99 22 11 4D 45 4D 4F |NAL"......".MEMO|
00000B70: 52 59 20 4C 4F 43 41 54 49 4F 4E 53 20 4F 52 20 |RY LOCATIONS OR |
00000B80: 12 52 45 47 49 53 54 45 52 53 92 2E 22 00 BA 13 |.REGISTERS.."...|
00000B90: E1 05 99 22 11 54 48 45 59 20 53 54 41 52 54 20 |...".THEY START |
00000BA0: 41 54 20 12 24 44 30 30 30 92 20 49 4E 20 48 45 |AT .$D000. IN HE|
00000BB0: 58 41 44 45 43 49 4D 41 4C 22 00 E0 13 E6 05 99 |XADECIMAL"......|
00000BC0: 22 11 28 4E 49 43 45 29 20 41 4E 44 20 12 35 33 |".(NICE) AND .53|
00000BD0: 32 34 38 92 20 49 4E 20 44 45 43 49 4D 41 4C 22 |248. IN DECIMAL"|
00000BE0: 00 03 14 F0 05 99 22 11 28 4E 4F 54 20 53 4F 20 |......".(NOT SO |
00000BF0: 4E 49 43 45 29 2E 20 41 4E 59 57 41 59 20 4C 45 |NICE). ANYWAY LE|
00000C00: 54 3A 22 00 2C 14 FA 05 99 22 11 12 31 32 30 20 |T:".,...."..120 |
00000C10: 56 3D 35 33 32 34 38 3A 52 45 4D 20 56 49 44 45 |V=53248:REM VIDE|
00000C20: 4F 20 43 48 49 50 20 42 41 53 45 22 00 4C 14 04 |O CHIP BASE".L..|
00000C30: 06 99 22 11 54 4F 20 27 54 55 52 4E 20 4F 4E 27 |..".TO 'TURN ON'|
00000C40: 20 53 50 52 49 54 45 20 23 4E 3A 22 00 67 14 0E | SPRITE #N:".g..|
00000C50: 06 99 22 11 12 31 33 30 20 50 4F 4B 45 20 56 2B |.."..130 POKE V+|
00000C60: 32 31 2C 32 5E 4E 22 00 82 14 18 06 99 22 11 59 |21,2^N"......".Y|
00000C70: 45 53 2E 2E 2E 2E 54 48 41 54 27 53 20 32 5E 4E |ES....THAT'S 2^N|
00000C80: 2E 22 00 A5 14 19 06 4D 53 24 B2 22 54 55 52 4E |.".....MS$."TURN|
00000C90: 20 4D 45 20 4F 4E 22 3A 8D 36 33 31 30 30 3A 8D | ME ON":.63100:.|
00000CA0: 36 33 30 30 30 00 CB 14 1D 06 99 22 93 59 4F 55 |63000......".YOU|
00000CB0: 20 53 45 45 2C 20 54 48 45 20 52 45 47 49 53 54 | SEE, THE REGIST|
00000CC0: 45 52 20 41 54 20 56 2B 32 31 22 00 F7 14 22 06 |ER AT V+21"...".|
00000CD0: 99 22 11 57 48 49 43 48 20 27 45 4E 41 42 4C 45 |.".WHICH 'ENABLE|
00000CE0: 53 27 20 53 50 52 49 54 45 53 20 48 41 53 20 38 |S' SPRITES HAS 8|
00000CF0: 20 42 49 54 53 2E 22 00 1A 15 23 06 99 22 11 57 | BITS."...#..".W|
00000D00: 45 20 4C 41 42 45 4C 20 54 48 45 20 42 49 54 53 |E LABEL THE BITS|
00000D10: 20 30 2C 31 2C 2E 2E 2E 37 22 00 34 15 24 06 99 | 0,1,...7".4.$..|
00000D20: 22 11 28 53 4F 55 4E 44 20 46 41 4D 49 4C 49 41 |".(SOUND FAMILIA|
00000D30: 52 3F 29 22 00 5E 15 27 06 99 22 11 45 41 43 48 |R?)".^.'..".EACH|
00000D40: 20 42 49 54 20 43 4F 52 52 45 53 50 4F 4E 44 53 | BIT CORRESPONDS|
00000D50: 20 54 4F 20 41 20 53 50 52 49 54 45 2E 22 00 86 | TO A SPRITE."..|
00000D60: 15 28 06 99 22 11 54 4F 20 27 53 45 45 27 20 53 |.(..".TO 'SEE' S|
00000D70: 50 52 49 54 45 20 23 35 2C 20 54 55 52 4E 20 4F |PRITE #5, TURN O|
00000D80: 4E 20 54 48 45 22 00 96 15 29 06 99 22 11 42 49 |N THE"...)..".BI|
00000D90: 54 20 23 35 21 22 00 B7 15 2A 06 99 22 11 48 4F |T #5!"...*..".HO|
00000DA0: 57 3F 20 4A 55 53 54 20 12 50 4F 4B 45 20 56 2B |W? JUST .POKE V+|
00000DB0: 32 31 2C 33 32 92 22 00 E3 15 2C 06 99 22 11 4E |21,32."...,..".N|
00000DC0: 4F 54 45 11 9D 9D 9D 9D B8 B8 B8 B8 91 3A 20 20 |OTE..........: |
00000DD0: 20 20 20 20 20 20 20 20 20 20 20 20 32 5E 35 3D | 2^5=|
00000DE0: 33 32 22 00 05 16 2D 06 4D 53 24 B2 22 20 30 30 |32"...-.MS$." 00|
00000DF0: 31 30 30 30 30 30 22 3A 8D 36 33 31 30 30 3A 8D |100000":.63100:.|
00000E00: 36 33 30 30 30 00 2A 16 36 06 99 22 93 46 4F 52 |63000.*.6..".FOR|
00000E10: 20 4F 55 52 20 27 53 50 52 49 54 45 20 23 4E 27 | OUR 'SPRITE #N'|
00000E20: 20 57 45 20 57 49 4C 4C 3A 22 00 44 16 3B 06 99 | WE WILL:".D.;..|
00000E30: 22 11 12 31 33 30 20 50 4F 4B 45 56 2B 32 31 2C |"..130 POKEV+21,|
00000E40: 32 5E 4E 22 00 6B 16 3C 06 99 22 11 28 59 4F 55 |2^N".k.<..".(YOU|
00000E50: 20 57 4F 4E 27 54 20 42 45 20 53 55 52 50 52 49 | WON'T BE SURPRI|
00000E60: 53 45 44 20 54 4F 20 53 45 45 22 00 8F 16 40 06 |SED TO SEE"...@.|
00000E70: 99 22 11 54 48 41 54 20 41 4E 59 20 4F 54 48 45 |.".THAT ANY OTHE|
00000E80: 52 20 53 50 52 49 54 45 53 20 57 49 4C 4C 22 00 |R SPRITES WILL".|
00000E90: A3 16 4A 06 99 22 11 44 49 53 41 50 50 45 41 52 |..J..".DISAPPEAR|
00000EA0: 21 29 22 00 D1 16 54 06 99 22 11 49 46 20 59 4F |!)"...T..".IF YO|
00000EB0: 55 20 57 41 4E 54 20 53 50 52 49 54 45 20 23 30 |U WANT SPRITE #0|
00000EC0: 20 12 41 4E 44 92 20 53 50 52 49 54 45 20 23 33 | .AND. SPRITE #3|
00000ED0: 22 00 07 17 5E 06 99 22 11 12 41 4E 44 92 20 53 |"...^.."..AND. S|
00000EE0: 50 52 49 54 45 20 23 37 20 12 41 4C 4C 92 20 27 |PRITE #7 .ALL. '|
00000EF0: 45 4E 41 42 4C 45 44 27 20 4F 52 20 27 56 49 53 |ENABLED' OR 'VIS|
00000F00: 49 42 4C 45 27 2C 22 00 27 17 68 06 99 22 11 54 |IBLE',".'.h..".T|
00000F10: 48 45 4E 20 12 50 4F 4B 45 56 2B 32 31 2C 31 2B |HEN .POKEV+21,1+|
00000F20: 38 2B 31 32 38 92 22 00 50 17 72 06 99 22 11 4E |8+128.".P.r..".N|
00000F30: 4F 54 45 3A 32 5E 30 2B 32 5E 33 2B 32 5E 37 3D |OTE:2^0+2^3+2^7=|
00000F40: 31 2B 38 2B 31 32 38 20 28 4E 49 43 45 29 21 22 |1+8+128 (NICE)!"|
00000F50: 00 6F 17 7C 06 99 22 11 59 4F 55 20 57 41 4E 54 |.o.|..".YOU WANT|
00000F60: 20 41 4C 4C 20 38 20 53 50 52 49 54 45 53 3F 00 | ALL 8 SPRITES?.|
00000F70: A3 17 86 06 99 22 11 12 50 4F 4B 45 56 2B 32 31 |....."..POKEV+21|
00000F80: 2C 32 35 35 22 3A 4D 53 24 B2 22 20 31 30 30 30 |,255":MS$." 1000|
00000F90: 31 30 30 31 22 3A 8D 36 33 31 30 30 3A 8D 36 33 |1001":.63100:.63|
00000FA0: 30 30 30 00 BB 17 A4 06 99 22 93 53 4F 20 46 41 |000......".SO FA|
00000FB0: 52 20 57 45 20 48 41 56 45 3A 22 00 EC 17 AE 06 |R WE HAVE:".....|
00000FC0: 99 22 11 12 31 30 30 20 46 4F 52 49 3D 30 54 4F |."..100 FORI=0TO|
00000FD0: 36 32 3A 52 45 41 44 20 58 3A 50 4F 4B 45 36 34 |62:READ X:POKE64|
00000FE0: 2A 42 2B 49 2C 58 3A 4E 45 58 54 22 00 1C 18 B8 |*B+I,X:NEXT"....|
00000FF0: 06 99 22 12 31 31 30 20 50 4F 4B 45 32 30 34 30 |..".110 POKE2040|
00001000: 2B 4E 2C 42 3A 52 45 4D 20 57 48 45 52 45 20 53 |+N,B:REM WHERE S|
00001010: 48 41 50 45 20 49 53 20 20 20 20 22 00 4C 18 C2 |HAPE IS ".L..|
00001020: 06 99 22 12 31 32 30 20 56 3D 35 33 32 34 38 3A |..".120 V=53248:|
00001030: 20 20 20 20 20 52 45 4D 20 56 49 44 45 4F 20 43 | REM VIDEO C|
00001040: 48 49 50 20 42 41 53 45 20 20 20 22 00 7C 18 CC |HIP BASE ".|..|
00001050: 06 99 22 12 31 33 30 20 50 4F 4B 45 56 2B 32 31 |..".130 POKEV+21|
00001060: 2C 32 5E 4E 3A 52 45 4D 20 45 4E 41 42 4C 45 20 |,2^N:REM ENABLE |
00001070: 53 50 52 49 54 45 20 20 20 20 20 22 00 A6 18 D6 |SPRITE "....|
00001080: 06 99 22 11 2E 2E 41 4E 44 20 53 50 52 49 54 45 |.."...AND SPRITE|
00001090: 20 23 4E 20 49 53 20 4F 4E 20 54 48 45 20 53 43 | #N IS ON THE SC|
000010A0: 52 45 45 4E 21 22 00 CD 18 E0 06 99 22 11 42 55 |REEN!"......".BU|
000010B0: 54 20 57 48 45 52 45 20 41 4E 44 20 57 48 41 54 |T WHERE AND WHAT|
000010C0: 20 43 4F 4C 4F 55 52 3F 21 2A 2B 21 22 00 FA 18 | COLOUR?!*+!"...|
000010D0: EA 06 99 22 11 54 48 45 52 45 20 41 52 45 20 31 |...".THERE ARE 1|
000010E0: 35 20 43 4F 4C 4F 55 52 53 20 54 4F 20 43 48 4F |5 COLOURS TO CHO|
000010F0: 4F 53 45 20 46 52 4F 4D 2E 22 00 1D 19 F4 06 99 |OSE FROM."......|
00001100: 22 11 57 45 20 4C 41 42 45 4C 20 54 48 45 4D 20 |".WE LABEL THEM |
00001110: 30 2C 31 2C 32 2C 2E 2E 2E 31 35 2E 22 00 42 19 |0,1,2,...15.".B.|
00001120: FE 06 99 22 11 54 4F 20 4D 41 4B 45 20 53 50 52 |...".TO MAKE SPR|
00001130: 49 54 45 20 23 4E 20 43 4F 4C 4F 55 52 20 23 31 |ITE #N COLOUR #1|
00001140: 30 22 00 68 19 08 07 99 22 11 28 41 20 4C 49 47 |0".h....".(A LIG|
00001150: 48 54 20 52 45 44 29 20 57 45 20 50 4F 4B 45 20 |HT RED) WE POKE |
00001160: 41 4E 4F 54 48 45 52 22 00 93 19 12 07 99 22 11 |ANOTHER"......".|
00001170: 4D 41 47 49 43 20 52 45 47 49 53 54 45 52 20 49 |MAGIC REGISTER I|
00001180: 4E 20 54 48 45 20 56 49 44 45 4F 20 43 48 49 50 |N THE VIDEO CHIP|
00001190: 2E 22 22 00 C4 19 1C 07 99 22 11 12 50 4F 4B 45 |.""......"..POKE|
000011A0: 56 2B 33 39 2B 4E 2C 31 30 92 3A 53 50 52 49 54 |V+39+N,10.:SPRIT|
000011B0: 45 20 23 4E 20 49 53 20 52 45 44 21 22 3A 8D 36 |E #N IS RED!":.6|
000011C0: 33 30 30 30 00 EA 19 26 07 99 22 93 4D 41 59 42 |3000...&..".MAYB|
000011D0: 45 20 57 45 20 53 48 4F 55 4C 44 20 48 41 56 45 |E WE SHOULD HAVE|
000011E0: 20 50 49 43 4B 45 44 20 41 22 00 15 1A 30 07 99 | PICKED A"...0..|
000011F0: 22 11 43 4F 4C 4F 55 52 20 12 42 45 46 4F 52 45 |".COLOUR .BEFORE|
00001200: 92 20 57 45 20 4D 41 44 45 20 54 48 45 20 53 50 |. WE MADE THE SP|
00001210: 52 49 54 45 22 00 3D 1A 35 07 99 22 11 56 49 53 |RITE".=.5..".VIS|
00001220: 49 42 4C 45 21 20 54 48 45 20 4C 41 53 54 20 54 |IBLE! THE LAST T|
00001230: 48 49 4E 47 20 57 45 20 57 41 4E 54 22 00 64 1A |HING WE WANT".d.|
00001240: 37 07 99 22 11 54 4F 20 44 4F 20 49 53 20 54 4F |7..".TO DO IS TO|
00001250: 20 44 49 53 50 4C 41 59 20 4F 55 52 20 53 50 52 | DISPLAY OUR SPR|
00001260: 49 54 45 22 00 85 1A 38 07 99 22 11 42 45 46 4F |ITE"...8..".BEFO|
00001270: 52 45 20 49 54 27 53 20 50 52 45 53 45 4E 54 41 |RE IT'S PRESENTA|
00001280: 42 4C 45 21 22 00 C5 1A 3A 07 99 22 11 41 4E 59 |BLE!"...:..".ANY|
00001290: 57 41 59 2C 20 57 45 27 4C 4C 20 46 49 58 20 54 |WAY, WE'LL FIX T|
000012A0: 48 41 54 20 55 50 20 4C 41 54 45 52 2E 22 3A 4D |HAT UP LATER.":M|
000012B0: 53 24 B2 22 20 50 41 54 49 45 4E 43 45 22 3A 8D |S$." PATIENCE":.|
000012C0: 36 33 31 30 30 00 D0 1A 3F 07 8D 36 33 30 30 30 |63100...?..63000|
000012D0: 00 F6 1A 44 07 99 22 93 48 4F 57 20 41 42 4F 55 |...D..".HOW ABOU|
000012E0: 54 20 54 48 45 20 50 4F 53 49 54 49 4F 4E 20 4F |T THE POSITION O|
000012F0: 4E 20 54 48 45 22 00 22 1B 4E 07 99 22 11 53 43 |N THE".".N..".SC|
00001300: 52 45 45 4E 3F 20 57 45 4C 4C 20 54 48 45 20 43 |REEN? WELL THE C|
00001310: 36 34 20 48 41 53 20 34 30 20 43 4F 4C 55 4D 4E |64 HAS 40 COLUMN|
00001320: 53 22 00 48 1B 58 07 99 22 11 4F 52 20 27 50 52 |S".H.X..".OR 'PR|
00001330: 49 4E 54 20 50 4F 53 49 54 49 4F 4E 53 27 2E 20 |INT POSITIONS'. |
00001340: 45 41 43 48 20 49 53 22 00 94 1B 62 07 99 22 11 |EACH IS"...b..".|
00001350: 38 20 27 44 4F 54 53 27 20 57 49 44 45 2E 20 54 |8 'DOTS' WIDE. T|
00001360: 48 41 54 20 4D 41 4B 45 53 20 34 30 2A 38 3D 33 |HAT MAKES 40*8=3|
00001370: 32 30 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |20" |
00001380: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001390: 20 20 20 22 00 BC 1B 63 07 99 22 11 44 4F 54 53 | "...c..".DOTS|
000013A0: 20 48 4F 52 49 5A 4F 4E 54 41 4C 4C 59 20 41 4E | HORIZONTALLY AN|
000013B0: 44 20 57 45 20 53 48 4F 55 4C 44 22 00 E8 1B 6C |D WE SHOULD"...l|
000013C0: 07 99 22 11 42 45 20 41 42 4C 45 20 54 4F 20 27 |..".BE ABLE TO '|
000013D0: 50 4F 53 49 54 49 4F 4E 27 20 4F 55 52 20 53 50 |POSITION' OUR SP|
000013E0: 52 49 54 45 20 23 4E 22 00 0B 1C 76 07 99 22 11 |RITE #N"...v..".|
000013F0: 49 4E 20 41 4E 59 20 4F 46 20 33 32 30 20 58 2D |IN ANY OF 320 X-|
00001400: 50 4F 53 49 54 49 4F 4E 53 2E 22 00 35 1C 80 07 |POSITIONS.".5...|
00001410: 99 22 11 41 4C 53 4F 2C 20 54 48 45 20 43 36 34 |.".ALSO, THE C64|
00001420: 20 48 41 53 20 20 32 35 20 52 4F 57 53 2C 20 45 | HAS 25 ROWS, E|
00001430: 41 43 48 20 22 00 5F 1C 8A 07 99 22 11 38 20 44 |ACH "._....".8 D|
00001440: 4F 54 53 20 48 49 47 48 20 41 4E 44 20 32 35 2A |OTS HIGH AND 25*|
00001450: 38 3D 32 30 30 20 53 4F 20 54 48 45 52 45 22 00 |8=200 SO THERE".|
00001460: 88 1C 9E 07 99 22 11 57 49 4C 4C 20 42 45 20 32 |.....".WILL BE 2|
00001470: 30 30 20 50 4F 53 53 49 42 4C 45 20 59 2D 50 4F |00 POSSIBLE Y-PO|
00001480: 53 49 54 49 4F 4E 53 22 00 A7 1C A8 07 99 22 11 |SITIONS"......".|
00001490: 46 4F 52 20 4F 55 52 20 53 50 52 49 54 45 2E 22 |FOR OUR SPRITE."|
000014A0: 3A 8D 36 33 30 30 30 00 D1 1C B2 07 99 22 93 57 |:.63000......".W|
000014B0: 48 45 52 45 20 44 4F 20 57 45 20 50 55 54 20 54 |HERE DO WE PUT T|
000014C0: 48 49 53 20 58 2D 50 4F 53 49 54 49 4F 4E 20 26 |HIS X-POSITION &|
000014D0: 22 00 F1 1C BC 07 99 22 11 59 2D 50 4F 53 49 54 |"......".Y-POSIT|
000014E0: 49 4F 4E 20 49 4E 46 4F 52 4D 41 54 49 4F 4E 3F |ION INFORMATION?|
000014F0: 22 00 1E 1D C6 07 99 22 11 49 4E 54 4F 20 41 4E |"......".INTO AN|
00001500: 4F 54 48 45 52 20 12 56 2B 53 4F 4D 45 54 48 49 |OTHER .V+SOMETHI|
00001510: 4E 47 92 20 52 45 47 49 53 54 45 52 2E 22 00 34 |NG. REGISTER.".4|
00001520: 1D D0 07 99 22 11 54 48 49 53 20 54 49 4D 45 20 |....".THIS TIME |
00001530: 57 45 3A 22 00 59 1D DA 07 99 22 11 12 50 4F 4B |WE:".Y...."..POK|
00001540: 45 20 56 2B 32 2A 4E 2C 58 3A 50 4F 4B 45 20 56 |E V+2*N,X:POKE V|
00001550: 2B 32 2A 4E 2B 31 2C 59 22 00 81 1D E4 07 99 22 |+2*N+1,Y"......"|
00001560: 11 41 53 20 4C 4F 4E 47 20 41 53 20 27 58 27 20 |.AS LONG AS 'X' |
00001570: 41 4E 44 20 27 59 27 20 41 52 45 20 42 4F 54 48 |AND 'Y' ARE BOTH|
00001580: 22 00 AC 1D E9 07 99 22 11 4C 45 53 53 20 54 48 |"......".LESS TH|
00001590: 41 4E 20 32 35 36 20 57 45 27 52 45 20 49 4E 20 |AN 256 WE'RE IN |
000015A0: 47 4F 4F 44 20 53 48 41 50 45 21 22 00 C6 1D F8 |GOOD SHAPE!"....|
000015B0: 07 99 22 11 49 4E 20 46 41 43 54 20 57 45 20 43 |..".IN FACT WE C|
000015C0: 4F 55 4C 44 3A 22 00 EB 1D 02 08 99 22 11 12 46 |OULD:"......"..F|
000015D0: 4F 52 20 54 3D 30 20 54 4F 20 35 30 30 20 20 20 |OR T=0 TO 500 |
000015E0: 20 20 20 20 20 20 20 20 20 20 22 00 0F 1E 0C 08 | ".....|
000015F0: 99 22 12 58 3D 54 2F 32 3A 59 3D 54 2F 33 20 20 |.".X=T/2:Y=T/3 |
00001600: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".|
00001610: 33 1E 12 08 99 22 12 50 4F 4B 45 20 56 2B 32 2A |3....".POKE V+2*|
00001620: 4E 2C 58 3A 50 4F 4B 45 20 56 2B 32 2A 4E 2B 31 |N,X:POKE V+2*N+1|
00001630: 2C 59 22 00 5E 1E 16 08 99 22 12 4E 45 58 54 20 |,Y".^....".NEXT |
00001640: 54 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |T |
00001650: 20 20 20 20 20 20 22 3A 8D 36 33 30 30 30 00 85 | ":.63000..|
00001660: 1E 20 08 99 22 93 48 4F 57 20 41 42 4F 55 54 20 |. ..".HOW ABOUT |
00001670: 53 4F 4D 45 54 48 49 4E 47 20 43 55 54 45 20 4C |SOMETHING CUTE L|
00001680: 49 4B 45 3A 22 00 AA 1E 2A 08 99 22 11 12 46 4F |IKE:"...*.."..FO|
00001690: 52 20 54 3D 30 20 54 4F 20 35 30 30 20 20 20 20 |R T=0 TO 500 |
000016A0: 20 20 20 20 20 20 20 20 20 22 00 CE 1E 34 08 99 | "...4..|
000016B0: 22 12 58 3D 46 4E 58 28 54 29 3A 59 3D 46 4E 59 |".X=FNX(T):Y=FNY|
000016C0: 28 54 29 20 20 20 20 20 20 20 20 20 20 22 00 F2 |(T) "..|
000016D0: 1E 3E 08 99 22 12 50 4F 4B 45 20 56 2B 32 2A 4E |.>..".POKE V+2*N|
000016E0: 2C 58 3A 50 4F 4B 45 20 56 2B 32 2A 4E 2B 31 2C |,X:POKE V+2*N+1,|
000016F0: 59 22 00 16 1F 48 08 99 22 12 4E 45 58 54 20 54 |Y"...H..".NEXT T|
00001700: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001710: 20 20 20 20 20 22 00 3B 1F 52 08 99 22 11 54 48 | ".;.R..".TH|
00001720: 45 4E 20 4F 55 52 20 53 50 52 49 54 45 20 57 4F |EN OUR SPRITE WO|
00001730: 55 4C 44 20 46 4F 4C 4C 4F 57 22 00 63 1F 5C 08 |ULD FOLLOW".c.\.|
00001740: 99 22 11 41 20 43 55 52 56 45 20 47 49 56 45 4E |.".A CURVE GIVEN|
00001750: 20 42 59 20 53 4F 4D 45 20 46 55 4E 43 54 49 4F | BY SOME FUNCTIO|
00001760: 4E 53 22 00 8E 1F 66 08 99 22 11 46 4E 58 20 41 |NS"...f..".FNX A|
00001770: 4E 44 20 46 4E 59 2C 20 50 52 45 56 49 4F 55 53 |ND FNY, PREVIOUS|
00001780: 4C 59 20 12 44 45 46 92 49 4E 45 44 2E 22 00 B1 |LY .DEF.INED."..|
00001790: 1F 6B 08 4D 53 24 B2 22 44 45 46 20 46 4E 58 28 |.k.MS$."DEF FNX(|
000017A0: 58 29 22 3A 8D 36 33 31 30 30 3A 8D 36 33 30 30 |X)":.63100:.6300|
000017B0: 30 00 DA 1F 70 08 99 22 93 49 46 20 59 4F 55 27 |0...p..".IF YOU'|
000017C0: 44 20 4C 49 4B 45 20 54 4F 20 48 41 56 45 20 54 |D LIKE TO HAVE T|
000017D0: 48 45 20 53 50 52 49 54 45 22 00 01 20 7A 08 99 |HE SPRITE".. z..|
000017E0: 22 11 41 54 20 54 48 45 20 52 49 47 48 54 20 4F |".AT THE RIGHT O|
000017F0: 4E 20 54 48 45 20 53 43 52 45 45 4E 2C 20 49 4E |N THE SCREEN, IN|
00001800: 22 00 25 20 84 08 99 22 11 50 49 58 45 4C 20 50 |".% ...".PIXEL P|
00001810: 4F 53 49 54 49 4F 4E 53 20 32 35 36 20 54 4F 20 |OSITIONS 256 TO |
00001820: 33 32 30 2C 22 00 4F 20 8E 08 99 22 11 54 48 45 |320,".O ...".THE|
00001830: 4E 20 57 45 20 48 41 56 45 20 54 4F 20 44 4F 20 |N WE HAVE TO DO |
00001840: 54 48 45 20 46 4F 4C 4C 4F 57 49 4E 47 3A 22 00 |THE FOLLOWING:".|
00001850: 8D 20 A2 08 99 22 11 11 11 12 54 45 4C 4C 20 49 |. ..."....TELL I|
00001860: 54 20 54 4F 20 54 48 45 20 56 49 44 45 4F 20 43 |T TO THE VIDEO C|
00001870: 48 49 50 21 22 3A 4D 53 24 B2 22 4E 49 43 45 20 |HIP!":MS$."NICE |
00001880: 43 48 41 50 21 22 3A 8D 36 33 31 30 30 00 98 20 |CHAP!":.63100.. |
00001890: A7 08 8D 36 33 30 30 30 00 C3 20 AC 08 99 22 93 |...63000.. ...".|
000018A0: 59 45 54 20 41 4E 4F 54 48 45 52 20 52 45 47 49 |YET ANOTHER REGI|
000018B0: 53 54 45 52 2C 20 41 54 20 56 2B 31 36 2C 20 48 |STER, AT V+16, H|
000018C0: 41 53 22 00 EE 20 B6 08 99 22 11 38 20 42 49 54 |AS".. ...".8 BIT|
000018D0: 53 2C 20 4F 4E 45 20 46 4F 52 20 45 41 43 48 20 |S, ONE FOR EACH |
000018E0: 4F 46 20 38 20 53 50 52 49 54 45 53 2C 22 00 10 |OF 8 SPRITES,"..|
000018F0: 21 C0 08 99 22 11 41 4E 44 20 46 4F 52 20 53 50 |!...".AND FOR SP|
00001900: 52 49 54 45 20 23 4E 20 57 45 20 57 49 4C 4C 22 |RITE #N WE WILL"|
00001910: 00 27 21 CA 08 99 22 11 12 50 4F 4B 45 20 56 2B |.'!..."..POKE V+|
00001920: 31 36 2C 32 5E 4E 22 00 4E 21 D4 08 99 22 11 54 |16,2^N".N!...".T|
00001930: 48 49 53 20 54 55 52 4E 53 20 4F 4E 20 27 42 49 |HIS TURNS ON 'BI|
00001940: 54 20 23 4E 27 20 53 4F 20 54 48 41 54 22 00 7B |T #N' SO THAT".{|
00001950: 21 DE 08 99 22 11 53 50 52 49 54 45 20 23 4E 20 |!...".SPRITE #N |
00001960: 57 49 4C 4C 20 42 45 20 41 42 4C 45 20 54 4F 20 |WILL BE ABLE TO |
00001970: 4D 4F 56 45 20 54 48 52 55 27 22 00 B9 21 E8 08 |MOVE THRU'"..!..|
00001980: 99 22 11 58 2D 50 4F 53 49 54 49 4F 4E 53 20 32 |.".X-POSITIONS 2|
00001990: 35 36 20 54 4F 20 33 32 30 21 22 3A 4D 53 24 B2 |56 TO 320!":MS$.|
000019A0: 22 20 32 35 36 2D 33 32 30 21 22 3A 8D 36 33 31 |" 256-320!":.631|
000019B0: 30 30 3A 8D 36 33 30 30 30 00 E5 21 F2 08 99 22 |00:.63000..!..."|
000019C0: 93 12 4E 4F 54 45 92 3A 50 4F 4B 45 20 56 2B 31 |..NOTE.:POKE V+1|
000019D0: 36 2C 33 32 20 57 49 4C 4C 20 41 46 46 45 43 54 |6,32 WILL AFFECT|
000019E0: 20 54 48 45 22 00 14 22 FC 08 99 22 11 58 2D 50 | THE".."...".X-P|
000019F0: 4F 53 49 54 49 4F 4E 20 4F 46 20 53 50 52 49 54 |OSITION OF SPRIT|
00001A00: 45 20 23 35 20 42 59 20 12 41 44 44 49 4E 47 20 |E #5 BY .ADDING |
00001A10: 32 35 36 22 00 41 22 06 09 99 22 11 54 4F 20 54 |256".A"...".TO T|
00001A20: 48 45 20 56 41 4C 55 45 20 4F 46 20 58 20 12 50 |HE VALUE OF X .P|
00001A30: 4F 4B 45 92 44 20 49 4E 54 4F 20 56 2B 32 2A 35 |OKE.D INTO V+2*5|
00001A40: 22 00 6A 22 10 09 99 22 11 12 50 4F 4B 45 20 56 |".j"..."..POKE V|
00001A50: 2B 32 2A 35 2C 35 30 3A 52 45 4D 20 58 2D 50 4F |+2*5,50:REM X-PO|
00001A60: 53 27 4E 20 49 53 20 35 30 22 00 8C 22 1A 09 99 |S'N IS 50".."...|
00001A70: 22 11 12 50 4F 4B 45 20 56 2B 31 36 2C 33 32 3A |"..POKE V+16,32:|
00001A80: 52 45 4D 20 41 44 44 20 32 35 36 22 00 B7 22 24 |REM ADD 256".."$|
00001A90: 09 99 22 11 54 48 49 53 20 50 55 54 53 20 53 50 |..".THIS PUTS SP|
00001AA0: 52 49 54 45 20 23 35 20 49 4E 20 58 2D 50 4F 53 |RITE #5 IN X-POS|
00001AB0: 27 4E 20 33 30 36 22 00 D9 22 25 09 4D 53 24 B2 |'N 306".."%.MS$.|
00001AC0: 22 20 20 20 12 56 2B 31 36 92 22 3A 8D 36 33 31 |" .V+16.":.631|
00001AD0: 30 30 3A 8D 36 33 30 30 30 00 07 23 29 09 99 22 |00:.63000..#).."|
00001AE0: 93 49 46 20 59 4F 55 20 57 41 4E 54 20 53 50 52 |.IF YOU WANT SPR|
00001AF0: 49 54 45 20 23 30 20 12 41 4E 44 92 20 53 50 52 |ITE #0 .AND. SPR|
00001B00: 49 54 45 20 23 33 22 00 34 23 2E 09 99 22 11 12 |ITE #3".4#..."..|
00001B10: 41 4E 44 92 20 53 50 52 49 54 45 20 23 37 20 12 |AND. SPRITE #7 .|
00001B20: 41 4C 4C 92 20 27 41 54 20 54 48 45 20 52 49 47 |ALL. 'AT THE RIG|
00001B30: 48 54 27 22 00 55 23 38 09 99 22 11 54 48 45 4E |HT'".U#8..".THEN|
00001B40: 20 50 49 43 4B 20 41 4E 20 58 30 2C 58 33 20 26 | PICK AN X0,X3 &|
00001B50: 20 58 37 3A 22 00 7E 23 42 09 99 22 11 12 50 4F | X7:".~#B.."..PO|
00001B60: 4B 45 20 56 2B 32 2A 30 2C 58 30 3A 52 45 4D 20 |KE V+2*0,X0:REM |
00001B70: 58 2D 50 4F 53 27 4E 20 4F 46 20 23 30 22 00 A7 |X-POS'N OF #0"..|
00001B80: 23 4C 09 99 22 11 12 50 4F 4B 45 20 56 2B 32 2A |#L.."..POKE V+2*|
00001B90: 33 2C 58 33 3A 52 45 4D 20 58 2D 50 4F 53 27 4E |3,X3:REM X-POS'N|
00001BA0: 20 4F 46 20 23 33 22 00 D0 23 56 09 99 22 11 12 | OF #3"..#V.."..|
00001BB0: 50 4F 4B 45 20 56 2B 32 2A 37 2C 58 37 3A 52 45 |POKE V+2*7,X7:RE|
00001BC0: 4D 20 58 2D 50 4F 53 27 4E 20 4F 46 20 23 37 22 |M X-POS'N OF #7"|
00001BD0: 00 FB 23 60 09 99 22 11 12 50 4F 4B 45 20 56 2B |..#`.."..POKE V+|
00001BE0: 31 36 2C 31 2B 38 2B 31 32 38 3A 41 44 44 20 32 |16,1+8+128:ADD 2|
00001BF0: 35 36 20 54 4F 20 41 4C 4C 21 22 00 3D 24 65 09 |56 TO ALL!".=$e.|
00001C00: 4D 53 24 B2 22 20 20 20 12 56 2B 32 2A 4E 92 22 |MS$." .V+2*N."|
00001C10: 3A 8D 36 33 31 30 30 3A 8D 36 33 30 30 30 3A 99 |:.63100:.63000:.|
00001C20: 22 93 43 48 4F 4F 53 45 20 42 4C 4F 43 4B 20 31 |".CHOOSE BLOCK 1|
00001C30: 33 20 26 20 53 50 52 49 54 45 20 33 22 00 65 24 |3 & SPRITE 3".e$|
00001C40: 66 09 99 22 41 4E 44 20 4D 41 4B 45 20 41 4C 4C |f.."AND MAKE ALL|
00001C50: 20 27 53 48 41 50 45 27 20 42 59 54 45 53 3D 12 | 'SHAPE' BYTES=.|
00001C60: 32 34 30 92 22 00 96 24 67 09 99 22 11 12 20 39 |240."..$g..".. 9|
00001C70: 39 20 42 3D 31 33 3A 4E 3D 33 20 20 20 20 20 20 |9 B=13:N=3 |
00001C80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001C90: 20 20 20 20 20 22 00 C6 24 6A 09 99 22 12 31 30 | "..$j..".10|
00001CA0: 30 20 46 4F 52 49 3D 30 54 4F 36 32 3A 58 3D 32 |0 FORI=0TO62:X=2|
00001CB0: 34 30 3A 50 4F 4B 45 36 34 2A 42 2B 49 2C 58 3A |40:POKE64*B+I,X:|
00001CC0: 4E 45 58 54 20 22 00 F6 24 74 09 99 22 12 31 31 |NEXT "..$t..".11|
00001CD0: 30 20 50 4F 4B 45 32 30 34 30 2B 33 2C 42 3A 20 |0 POKE2040+3,B: |
00001CE0: 20 52 45 4D 20 57 48 45 52 45 20 53 48 41 50 45 | REM WHERE SHAPE|
00001CF0: 20 49 53 20 20 22 00 26 25 7E 09 99 22 12 31 32 | IS ".&%~..".12|
00001D00: 30 20 56 3D 35 33 32 34 38 3A 20 20 20 20 20 20 |0 V=53248: |
00001D10: 20 52 45 4D 20 56 49 44 45 4F 20 43 48 49 50 20 | REM VIDEO CHIP |
00001D20: 42 41 53 45 20 22 00 56 25 88 09 99 22 12 31 33 |BASE ".V%...".13|
00001D30: 30 20 50 4F 4B 45 20 56 2B 33 39 2B 4E 2C 31 30 |0 POKE V+39+N,10|
00001D40: 3A 52 45 4D 20 52 45 44 20 53 50 52 49 54 45 20 |:REM RED SPRITE |
00001D50: 20 20 20 20 20 22 00 86 25 92 09 99 22 12 31 34 | "..%...".14|
00001D60: 30 20 50 4F 4B 45 56 2B 32 31 2C 32 5E 4E 3A 20 |0 POKEV+21,2^N: |
00001D70: 20 52 45 4D 20 45 4E 41 42 4C 45 20 53 50 52 49 | REM ENABLE SPRI|
00001D80: 54 45 20 20 20 22 00 B6 25 9C 09 99 22 12 31 35 |TE "..%...".15|
00001D90: 30 20 46 4F 52 20 54 3D 30 20 54 4F 20 35 30 30 |0 FOR T=0 TO 500|
00001DA0: 20 53 54 45 50 20 35 20 20 20 20 20 20 20 20 20 | STEP 5 |
00001DB0: 20 20 20 20 20 22 00 E6 25 A6 09 99 22 12 31 36 | "..%...".16|
00001DC0: 30 20 58 3D 54 2F 32 3A 59 3D 31 38 30 2B 54 2F |0 X=T/2:Y=180+T/|
00001DD0: 35 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |5 |
00001DE0: 20 20 20 20 20 22 00 16 26 AB 09 99 22 12 31 37 | "..&...".17|
00001DF0: 30 20 50 4F 4B 45 20 56 2B 32 2A 4E 2C 58 3A 50 |0 POKE V+2*N,X:P|
00001E00: 4F 4B 45 20 56 2B 32 2A 4E 2B 31 2C 59 20 20 20 |OKE V+2*N+1,Y |
00001E10: 20 20 20 20 20 22 00 4C 26 B0 09 99 22 12 31 38 | ".L&...".18|
00001E20: 30 20 4E 45 58 54 20 54 20 20 20 20 20 20 20 20 |0 NEXT T |
00001E30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001E40: 20 20 20 20 20 22 3A 8D 34 30 30 30 00 6A 26 B5 | ":.4000.j&.|
00001E50: 09 4D 53 24 B2 22 12 20 59 55 4D 20 21 21 21 20 |.MS$.". YUM !!! |
00001E60: 20 92 22 3A 8D 36 33 31 30 30 00 9A 26 BA 09 99 | .":.63100..&...|
00001E70: 22 91 91 91 91 91 91 54 48 41 54 27 53 20 46 4F |"......THAT'S FO|
00001E80: 52 20 4F 4E 45 20 53 50 52 49 54 45 2E 2E 4E 3D |R ONE SPRITE..N=|
00001E90: 33 22 3A 97 56 AA 32 31 2C 30 00 CE 26 C4 09 99 |3":.V.21,0..&...|
00001EA0: 22 11 4C 45 54 27 53 20 48 41 56 45 20 33 20 53 |".LET'S HAVE 3 S|
00001EB0: 50 52 49 54 45 53 2E 2E 23 30 2C 20 23 33 20 41 |PRITES..#0, #3 A|
00001EC0: 4E 44 20 23 37 2E 22 3A 8D 36 33 30 30 30 00 06 |ND #7.":.63000..|
00001ED0: 27 CE 09 99 22 93 12 9F 31 30 30 20 46 4F 52 49 |'..."...100 FORI|
00001EE0: 3D 30 54 4F 36 32 3A 52 45 41 44 20 58 3A 50 4F |=0TO62:READ X:PO|
00001EF0: 4B 45 36 34 2A 42 2B 49 2C 58 3A 4E 45 58 54 22 |KE64*B+I,X:NEXT"|
00001F00: 3A 8D 32 36 30 30 00 3E 27 D8 09 99 22 13 11 12 |:.2600.>'..."...|
00001F10: 31 31 30 20 50 4F 4B 45 32 30 34 30 2B 30 2C 42 |110 POKE2040+0,B|
00001F20: 3A 20 20 52 45 4D 20 23 30 27 53 48 41 50 45 20 |: REM #0'SHAPE |
00001F30: 42 4C 4F 43 4B 27 20 22 3A 8D 32 36 31 30 00 77 |BLOCK' ":.2610.w|
00001F40: 27 D9 09 99 22 13 11 11 12 31 31 31 20 50 4F 4B |'..."....111 POK|
00001F50: 45 32 30 34 30 2B 33 2C 42 3A 20 20 52 45 4D 20 |E2040+3,B: REM |
00001F60: 23 33 27 53 48 41 50 45 20 42 4C 4F 43 4B 27 20 |#3'SHAPE BLOCK' |
00001F70: 22 3A 8D 32 36 32 30 00 B1 27 DA 09 99 22 13 11 |":.2620..'..."..|
00001F80: 11 11 12 31 31 32 20 50 4F 4B 45 32 30 34 30 2B |...112 POKE2040+|
00001F90: 37 2C 42 3A 20 20 52 45 4D 20 23 37 27 53 48 41 |7,B: REM #7'SHA|
00001FA0: 50 45 20 42 4C 4F 43 4B 27 20 22 3A 8D 32 36 33 |PE BLOCK' ":.263|
00001FB0: 30 00 EC 27 E2 09 99 22 13 11 11 11 11 12 31 32 |0..'..."......12|
00001FC0: 30 20 56 3D 35 33 32 34 38 3A 20 20 20 20 20 20 |0 V=53248: |
00001FD0: 20 52 45 4D 20 56 49 44 45 4F 20 43 48 49 50 20 | REM VIDEO CHIP |
00001FE0: 42 41 53 45 20 22 3A 8D 32 36 34 30 00 28 28 EC |BASE ":.2640.((.|
00001FF0: 09 99 22 13 11 11 11 11 11 12 31 33 30 20 50 4F |..".......130 PO|
00002000: 4B 45 20 56 2B 33 39 2B 30 2C 31 30 3A 52 45 4D |KE V+39+0,10:REM|
00002010: 20 23 30 20 49 53 20 52 45 44 20 20 20 20 20 20 | #0 IS RED |
00002020: 20 22 3A 8D 32 36 35 30 00 65 28 ED 09 99 22 13 | ":.2650.e(...".|
00002030: 11 11 11 11 11 11 12 31 33 31 20 50 4F 4B 45 20 |.......131 POKE |
00002040: 56 2B 33 39 2B 33 2C 31 32 3A 52 45 4D 20 23 33 |V+39+3,12:REM #3|
00002050: 20 49 53 20 57 48 49 54 45 20 20 20 20 20 22 3A | IS WHITE ":|
00002060: 8D 32 36 36 30 00 A3 28 EE 09 99 22 13 11 11 11 |.2660..(..."....|
00002070: 11 11 11 11 12 31 33 32 20 50 4F 4B 45 20 56 2B |.....132 POKE V+|
00002080: 33 39 2B 37 2C 31 34 3A 52 45 4D 20 23 37 20 49 |39+7,14:REM #7 I|
00002090: 53 20 42 4C 55 45 20 20 20 20 20 20 22 3A 8D 32 |S BLUE ":.2|
000020A0: 36 37 30 00 E2 28 F6 09 99 22 13 11 11 11 11 11 |670..(..."......|
000020B0: 11 11 11 12 31 34 30 20 50 4F 4B 45 56 2B 32 31 |....140 POKEV+21|
000020C0: 2C 31 2B 38 2B 31 32 38 3A 52 45 4D 20 45 4E 41 |,1+8+128:REM ENA|
000020D0: 42 4C 45 20 53 50 52 49 54 45 53 22 3A 8D 32 36 |BLE SPRITES":.26|
000020E0: 38 30 00 22 29 00 0A 99 22 13 11 11 11 11 11 11 |80.")...".......|
000020F0: 11 11 11 12 31 35 30 20 46 4F 52 20 54 3D 30 20 |....150 FOR T=0 |
00002100: 54 4F 20 35 30 30 3A 20 54 54 3D 54 2F 35 30 20 |TO 500: TT=T/50 |
00002110: 20 20 20 20 20 20 20 20 20 20 20 22 3A 8D 32 36 | ":.26|
00002120: 39 30 00 63 29 05 0A 99 22 13 11 11 11 11 11 11 |90.c)...".......|
00002130: 11 11 11 11 12 31 36 30 20 58 30 3D 54 2F 32 3A |.....160 X0=T/2:|
00002140: 59 30 3D 54 2F 33 20 20 20 20 20 20 20 20 20 20 |Y0=T/3 |
00002150: 20 20 20 20 20 20 20 20 20 20 20 20 22 3A 8D 32 | ":.2|
00002160: 37 30 30 00 A5 29 06 0A 99 22 13 11 11 11 11 11 |700..)..."......|
00002170: 11 11 11 11 11 11 12 31 36 31 20 58 33 3D 32 35 |.......161 X3=25|
00002180: 30 2D 54 2F 32 3A 59 33 3D 32 30 30 2D 54 2F 33 |0-T/2:Y3=200-T/3|
00002190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3A | ":|
000021A0: 8D 32 37 31 30 00 E9 29 07 0A 99 22 13 11 11 11 |.2710..)..."....|
000021B0: 11 11 11 11 11 11 11 11 11 12 31 36 32 20 58 37 |..........162 X7|
000021C0: 3D 31 35 30 2B 31 30 30 2A 53 49 4E 28 54 54 29 |=150+100*SIN(TT)|
000021D0: 3A 59 37 3D 31 30 30 2B 35 30 2A 43 4F 53 28 54 |:Y7=100+50*COS(T|
000021E0: 54 29 22 3A 8D 32 37 32 30 00 2D 2A 0A 0A 99 22 |T)":.2720.-*..."|
000021F0: 13 11 11 11 11 11 11 11 11 11 11 11 11 11 12 31 |...............1|
00002200: 37 30 20 50 4F 4B 45 20 56 2B 32 2A 30 2C 58 30 |70 POKE V+2*0,X0|
00002210: 3A 50 4F 4B 45 20 56 2B 32 2A 30 2B 31 2C 59 30 |:POKE V+2*0+1,Y0|
00002220: 20 20 20 20 20 20 22 3A 8D 32 37 33 30 00 72 2A | ":.2730.r*|
00002230: 0F 0A 99 22 13 11 11 11 11 11 11 11 11 11 11 11 |..."............|
00002240: 11 11 11 12 31 37 31 20 50 4F 4B 45 20 56 2B 32 |....171 POKE V+2|
00002250: 2A 33 2C 58 33 3A 50 4F 4B 45 20 56 2B 32 2A 33 |*3,X3:POKE V+2*3|
00002260: 2B 31 2C 59 33 20 20 20 20 20 20 22 3A 8D 32 37 |+1,Y3 ":.27|
00002270: 34 30 00 B8 2A 10 0A 99 22 13 11 11 11 11 11 11 |40..*...".......|
00002280: 11 11 11 11 11 11 11 11 11 12 31 37 32 20 50 4F |..........172 PO|
00002290: 4B 45 20 56 2B 32 2A 37 2C 58 37 3A 50 4F 4B 45 |KE V+2*7,X7:POKE|
000022A0: 20 56 2B 32 2A 37 2B 31 2C 59 37 20 20 20 20 20 | V+2*7+1,Y7 |
000022B0: 20 22 3A 8D 32 37 35 30 00 F9 2A 14 0A 99 22 13 | ":.2750..*...".|
000022C0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000022D0: 12 31 38 30 20 4E 45 58 54 20 54 20 20 20 20 20 |.180 NEXT T |
000022E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000022F0: 20 20 20 20 20 20 20 20 22 00 2C 2B 1E 0A 8D 32 | ".,+...2|
00002300: 37 36 30 3A 8D 31 32 35 30 30 3A 4D 53 24 B2 22 |760:.12500:MS$."|
00002310: 20 57 48 45 45 21 21 22 3A 8D 36 33 31 30 30 3A | WHEE!!":.63100:|
00002320: 8D 36 33 30 30 30 3A 89 32 38 30 30 00 54 2B 28 |.63000:.2800.T+(|
00002330: 0A 99 22 50 55 54 20 44 41 54 41 20 49 4E 54 4F |.."PUT DATA INTO|
00002340: 20 42 4C 4F 43 4B 20 27 42 27 22 3A 8D 36 33 30 | BLOCK 'B'":.630|
00002350: 30 30 3A 8E 00 7C 2B 32 0A 99 22 54 45 4C 4C 20 |00:..|+2.."TELL |
00002360: 57 48 45 52 45 20 23 30 20 53 48 41 50 45 20 49 |WHERE #0 SHAPE I|
00002370: 53 20 22 3A 8D 36 33 30 30 30 3A 8E 00 A4 2B 3C |S ":.63000:...+<|
00002380: 0A 99 22 54 45 4C 4C 20 57 48 45 52 45 20 23 33 |.."TELL WHERE #3|
00002390: 20 53 48 41 50 45 20 49 53 20 22 3A 8D 36 33 30 | SHAPE IS ":.630|
000023A0: 30 30 3A 8E 00 CC 2B 46 0A 99 22 54 45 4C 4C 20 |00:...+F.."TELL |
000023B0: 57 48 45 52 45 20 23 37 20 53 48 41 50 45 20 49 |WHERE #7 SHAPE I|
000023C0: 53 20 22 3A 8D 36 33 30 30 30 3A 8E 00 F4 2B 50 |S ":.63000:...+P|
000023D0: 0A 99 22 52 45 4D 45 4D 42 45 52 20 54 48 49 53 |.."REMEMBER THIS|
000023E0: 20 4E 55 4D 42 45 52 21 21 21 22 3A 8D 36 33 30 | NUMBER!!!":.630|
000023F0: 30 30 3A 8E 00 1C 2C 5A 0A 99 22 50 4F 4B 45 20 |00:...,Z.."POKE |
00002400: 56 2B 33 39 2B 4E 20 26 20 4E 3D 30 2E 2E 4F 4B |V+39+N & N=0..OK|
00002410: 3F 20 22 3A 8D 36 33 30 30 30 3A 8E 00 44 2C 64 |? ":.63000:..D,d|
00002420: 0A 99 22 50 4F 4B 45 20 56 2B 33 39 2B 4E 20 26 |.."POKE V+39+N &|
00002430: 20 4E 3D 33 2E 2E 4F 4B 21 20 22 3A 8D 36 33 30 | N=3..OK! ":.630|
00002440: 30 30 3A 8E 00 6C 2C 6E 0A 99 22 2E 2E 2E 2E 2E |00:..l,n..".....|
00002450: 57 48 41 54 20 45 4C 53 45 3F 2E 2E 2E 2E 2E 2E |WHAT ELSE?......|
00002460: 2E 20 22 3A 8D 36 33 30 30 30 3A 8E 00 94 2C 78 |. ":.63000:...,x|
00002470: 0A 99 22 54 55 52 4E 20 54 48 45 4D 20 41 4C 4C |.."TURN THEM ALL|
00002480: 20 4F 4E 21 21 21 21 21 21 21 22 3A 8D 36 33 30 | ON!!!!!!!":.630|
00002490: 30 30 3A 8E 00 BC 2C 82 0A 99 22 4E 4F 57 2C 46 |00:...,..."NOW,F|
000024A0: 4F 52 20 35 30 30 20 53 54 45 50 53 20 4F 52 20 |OR 500 STEPS OR |
000024B0: 53 4F 22 3A 8D 36 33 30 30 30 3A 8E 00 E4 2C 8C |SO":.63000:...,.|
000024C0: 0A 99 22 44 45 46 49 4E 45 20 58 2D 20 41 4E 44 |.."DEFINE X- AND|
000024D0: 20 59 2D 50 4F 53 27 4E 53 2E 22 3A 8D 36 33 30 | Y-POS'NS.":.630|
000024E0: 30 30 3A 8E 00 0C 2D 96 0A 99 22 46 4F 52 20 23 |00:...-..."FOR #|
000024F0: 33 20 54 4F 4F 20 20 20 20 20 20 20 20 20 20 20 |3 TOO |
00002500: 20 20 22 3A 8D 36 33 30 30 30 3A 8E 00 34 2D A0 | ":.63000:..4-.|
00002510: 0A 99 22 41 4E 44 20 23 37 2E 2E 2E 21 3F 2A 20 |.."AND #7...!?* |
00002520: 20 20 20 20 20 20 20 20 20 20 22 3A 8D 36 33 30 | ":.630|
00002530: 30 30 3A 8E 00 5C 2D AA 0A 99 22 4D 4F 56 45 20 |00:..\-..."MOVE |
00002540: 53 50 52 49 54 45 20 23 30 20 20 20 20 20 20 20 |SPRITE #0 |
00002550: 20 20 22 3A 8D 36 33 30 30 30 3A 8E 00 84 2D B4 | ":.63000:...-.|
00002560: 0A 99 22 4D 4F 56 45 20 53 50 52 49 54 45 20 23 |.."MOVE SPRITE #|
00002570: 33 20 20 20 20 20 20 20 20 20 22 3A 8D 36 33 30 |3 ":.630|
00002580: 30 30 3A 8E 00 AC 2D BE 0A 99 22 4D 4F 56 45 20 |00:...-..."MOVE |
00002590: 53 50 52 49 54 45 20 23 37 20 20 20 20 20 20 20 |SPRITE #7 |
000025A0: 20 20 22 3A 8D 36 33 30 30 30 3A 8E 00 D4 2D C8 | ":.63000:...-.|
000025B0: 0A 99 22 4F 4E 20 54 4F 20 4E 45 58 54 20 54 2E |.."ON TO NEXT T.|
000025C0: 20 20 20 20 20 20 20 20 20 20 22 3A 8D 36 33 30 | ":.630|
000025D0: 30 30 3A 8E 00 01 2E F0 0A 99 22 93 05 4F 46 20 |00:......."..OF |
000025E0: 43 4F 55 52 53 45 20 57 45 20 43 4F 55 4C 44 20 |COURSE WE COULD |
000025F0: 48 41 56 45 20 54 48 45 20 53 50 52 49 54 45 53 |HAVE THE SPRITES|
00002600: 22 00 21 2E FA 0A 99 22 11 45 41 43 48 20 41 20 |".!....".EACH A |
00002610: 44 49 46 46 45 52 45 4E 54 20 53 48 41 50 45 2E |DIFFERENT SHAPE.|
00002620: 22 00 33 2E 04 0B 99 22 11 57 45 20 43 4F 55 4C |".3....".WE COUL|
00002630: 44 3A 22 00 61 2E 0E 0B 99 22 11 12 46 4F 52 49 |D:".a...."..FORI|
00002640: 3D 30 54 4F 36 32 3A 52 45 41 44 20 58 3A 50 4F |=0TO62:READ X:PO|
00002650: 4B 45 36 34 2A 42 30 2B 49 2C 58 3A 4E 45 58 54 |KE64*B0+I,X:NEXT|
00002660: 22 00 8F 2E 18 0B 99 22 11 12 46 4F 52 49 3D 30 |"......"..FORI=0|
00002670: 54 4F 36 32 3A 52 45 41 44 20 58 3A 50 4F 4B 45 |TO62:READ X:POKE|
00002680: 36 34 2A 42 33 2B 49 2C 58 3A 4E 45 58 54 22 00 |64*B3+I,X:NEXT".|
00002690: BD 2E 22 0B 99 22 11 12 46 4F 52 49 3D 30 54 4F |..".."..FORI=0TO|
000026A0: 36 32 3A 52 45 41 44 20 58 3A 50 4F 4B 45 36 34 |62:READ X:POKE64|
000026B0: 2A 42 37 2B 49 2C 58 3A 4E 45 58 54 22 00 EA 2E |*B7+I,X:NEXT"...|
000026C0: 2C 0B 99 22 11 41 4E 44 20 48 41 56 45 20 42 30 |,..".AND HAVE B0|
000026D0: 2C 20 42 33 20 41 4E 44 20 42 37 20 41 4C 4C 20 |, B3 AND B7 ALL |
000026E0: 44 49 46 46 45 52 45 4E 54 22 00 19 2F 36 0B 99 |DIFFERENT"../6..|
000026F0: 22 11 54 48 45 4E 20 57 45 27 44 20 54 45 4C 4C |".THEN WE'D TELL|
00002700: 20 54 48 45 20 43 36 34 20 57 48 45 52 45 20 54 | THE C64 WHERE T|
00002710: 48 45 59 20 41 52 45 3A 22 00 30 2F 40 0B 99 22 |HEY ARE:".0/@.."|
00002720: 11 12 50 4F 4B 45 32 30 34 30 2B 30 2C 42 30 22 |..POKE2040+0,B0"|
00002730: 00 46 2F 41 0B 99 22 12 50 4F 4B 45 32 30 34 30 |.F/A..".POKE2040|
00002740: 2B 33 2C 42 33 22 00 5C 2F 42 0B 99 22 12 50 4F |+3,B3".\/B..".PO|
00002750: 4B 45 32 30 34 30 2B 37 2C 42 37 22 00 78 2F 45 |KE2040+7,B7".x/E|
00002760: 0B 4D 53 24 B2 22 20 20 12 32 30 34 30 2B 4E 92 |.MS$." .2040+N.|
00002770: 22 3A 8D 36 33 31 30 30 00 83 2F 4A 0B 8D 36 33 |":.63100../J..63|
00002780: 30 30 30 00 B5 2F 54 0B 99 22 93 4C 45 54 27 53 |000../T..".LET'S|
00002790: 20 50 4C 41 59 20 57 49 54 48 20 54 48 45 20 53 | PLAY WITH THE S|
000027A0: 50 52 49 54 45 20 43 52 45 41 54 45 44 20 57 49 |PRITE CREATED WI|
000027B0: 54 48 3A 11 22 00 E5 2F 5E 0B 99 22 12 20 39 39 |TH:."../^..". 99|
000027C0: 20 42 3D 31 33 3A 4E 3D 33 20 20 20 20 20 20 20 | B=13:N=3 |
000027D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000027E0: 20 20 20 20 22 00 15 30 68 0B 99 22 12 31 30 30 | "..0h..".100|
000027F0: 20 46 4F 52 49 3D 30 54 4F 36 32 3A 58 3D 32 34 | FORI=0TO62:X=24|
00002800: 30 3A 50 4F 4B 45 36 34 2A 42 2B 49 2C 58 3A 4E |0:POKE64*B+I,X:N|
00002810: 45 58 54 20 22 00 45 30 72 0B 99 22 12 31 31 30 |EXT ".E0r..".110|
00002820: 20 45 54 43 2E 20 45 54 43 2E 20 45 54 43 2E 20 | ETC. ETC. ETC. |
00002830: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002840: 20 20 20 20 22 00 66 30 7C 0B 4E B2 33 3A 42 B2 | ".f0|.N.3:B.|
00002850: 31 33 3A 54 30 B2 35 30 30 3A 54 31 B2 35 30 30 |13:T0.500:T1.500|
00002860: 3A 8D 34 31 30 30 00 71 30 86 0B 8D 36 33 30 30 |:.4100.q0...6300|
00002870: 30 00 9B 30 8B 0B 99 22 13 11 11 11 11 11 11 11 |0..0..."........|
00002880: 11 11 11 11 11 11 11 54 4F 20 43 48 41 4E 47 45 |.......TO CHANGE|
00002890: 20 49 54 27 53 20 53 49 5A 45 22 00 D2 30 8C 0B | IT'S SIZE"..0..|
000028A0: 99 22 11 57 45 20 50 4F 4B 45 20 41 4E 4F 54 48 |.".WE POKE ANOTH|
000028B0: 45 52 20 12 56 2B 53 4F 4D 45 54 48 49 4E 47 92 |ER .V+SOMETHING.|
000028C0: 20 52 45 47 49 53 54 45 52 21 22 3A 8D 36 33 30 | REGISTER!":.630|
000028D0: 30 30 00 F8 30 90 0B 99 22 93 57 45 27 4C 4C 20 |00..0...".WE'LL |
000028E0: 45 58 50 41 4E 44 20 54 48 45 20 58 2D 44 49 4D |EXPAND THE X-DIM|
000028F0: 45 4E 53 49 4F 4E 3A 22 00 39 31 9A 0B 99 22 12 |ENSION:".91...".|
00002900: 20 20 20 20 50 4F 4B 45 20 56 2B 32 39 2C 32 5E | POKE V+29,2^|
00002910: 4E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |N |
00002920: 20 20 20 20 20 20 20 22 3A 8D 36 33 30 30 30 3A | ":.63000:|
00002930: 97 56 AA 32 39 2C 32 AE 4E 00 61 31 A4 0B 99 22 |.V.29,2.N.a1..."|
00002940: 13 11 11 57 45 27 4C 4C 20 45 58 50 41 4E 44 20 |...WE'LL EXPAND |
00002950: 54 48 45 20 59 2D 44 49 4D 45 4E 53 49 4F 4E 3A |THE Y-DIMENSION:|
00002960: 22 00 A2 31 AE 0B 99 22 12 20 20 20 20 50 4F 4B |"..1...". POK|
00002970: 45 20 56 2B 32 33 2C 32 5E 4E 20 20 20 20 20 20 |E V+23,2^N |
00002980: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002990: 22 3A 8D 36 33 30 30 30 3A 97 56 AA 32 33 2C 32 |":.63000:.V.23,2|
000029A0: AE 4E 00 CC 31 B8 0B 99 22 13 11 11 11 11 57 45 |.N..1...".....WE|
000029B0: 27 4C 4C 20 53 48 52 49 4E 4B 20 54 48 45 20 58 |'LL SHRINK THE X|
000029C0: 2D 44 49 4D 45 4E 53 49 4F 4E 3A 22 00 0B 32 C2 |-DIMENSION:"..2.|
000029D0: 0B 99 22 12 20 20 20 20 50 4F 4B 45 20 56 2B 32 |..". POKE V+2|
000029E0: 39 2C 30 20 20 20 20 20 20 20 20 20 20 20 20 20 |9,0 |
000029F0: 20 20 20 20 20 20 20 20 20 20 20 22 3A 8D 36 33 | ":.63|
00002A00: 30 30 30 3A 97 56 AA 32 39 2C 30 00 37 32 CC 0B |000:.V.29,0.72..|
00002A10: 99 22 13 11 11 11 11 11 11 57 45 27 4C 4C 20 53 |.".......WE'LL S|
00002A20: 48 52 49 4E 4B 20 54 48 45 20 59 2D 44 49 4D 45 |HRINK THE Y-DIME|
00002A30: 4E 53 49 4F 4E 3A 22 00 76 32 D6 0B 99 22 12 20 |NSION:".v2...". |
00002A40: 20 20 20 50 4F 4B 45 20 56 2B 32 33 2C 30 20 20 | POKE V+23,0 |
00002A50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002A60: 20 20 20 20 20 20 22 3A 8D 36 33 30 30 30 3A 97 | ":.63000:.|
00002A70: 56 AA 32 33 2C 30 00 89 32 E0 0B 8D 36 33 30 30 |V.23,0..2...6300|
00002A80: 30 3A 97 56 AA 32 31 2C 30 00 B8 32 EA 0B 99 22 |0:.V.21,0..2..."|
00002A90: 93 57 48 41 54 20 41 42 4F 55 54 20 54 48 49 53 |.WHAT ABOUT THIS|
00002AA0: 20 12 52 45 41 44 20 58 3A 50 4F 4B 45 20 38 33 | .READ X:POKE 83|
00002AB0: 32 2B 49 2C 58 92 3F 22 00 CB 32 F4 0B 99 22 11 |2+I,X.?"..2...".|
00002AC0: 52 45 41 44 20 57 48 41 54 3F 22 00 FA 32 FE 0B |READ WHAT?"..2..|
00002AD0: 99 22 11 41 20 53 50 52 49 54 45 2C 20 52 45 4D |.".A SPRITE, REM|
00002AE0: 45 4D 42 45 52 2C 20 49 53 20 32 34 20 50 49 58 |EMBER, IS 24 PIX|
00002AF0: 45 4C 53 20 57 49 44 45 2E 22 00 27 33 08 0C 99 |ELS WIDE.".'3...|
00002B00: 22 11 54 48 41 54 27 53 20 12 33 92 20 42 59 54 |".THAT'S .3. BYT|
00002B10: 45 53 20 57 48 49 43 48 20 54 48 45 4E 20 47 49 |ES WHICH THEN GI|
00002B20: 56 45 20 54 48 45 22 00 58 33 12 0C 99 22 11 12 |VE THE".X3..."..|
00002B30: 46 49 52 53 54 92 20 4F 46 20 32 31 20 52 4F 57 |FIRST. OF 21 ROW|
00002B40: 53 20 4F 46 20 50 49 58 45 4C 20 49 4E 46 4F 52 |S OF PIXEL INFOR|
00002B50: 4D 41 54 49 4F 4E 2E 22 00 81 33 1C 0C 99 22 11 |MATION."..3...".|
00002B60: 49 46 20 54 48 45 20 33 20 42 59 54 45 53 20 57 |IF THE 3 BYTES W|
00002B70: 45 52 45 20 32 35 35 2C 38 35 20 41 4E 44 20 38 |ERE 255,85 AND 8|
00002B80: 22 00 AC 33 80 0C 99 22 11 57 48 49 43 48 2C 49 |"..3...".WHICH,I|
00002B90: 4E 20 42 49 4E 41 52 59 20 4C 4F 4F 4B 20 4C 49 |N BINARY LOOK LI|
00002BA0: 4B 45 20 41 20 53 54 52 49 4E 47 22 00 CC 33 8A |KE A STRING"..3.|
00002BB0: 0C 99 22 11 4F 46 20 31 27 53 20 41 4E 44 20 30 |..".OF 1'S AND 0|
00002BC0: 27 53 2C 20 4E 41 4D 45 4C 59 3A 22 00 F3 33 94 |'S, NAMELY:"..3.|
00002BD0: 0C 99 22 11 31 31 31 31 31 31 31 31 20 26 20 30 |..".11111111 & 0|
00002BE0: 31 30 31 30 31 30 31 20 26 20 30 30 30 30 31 30 |1010101 & 000010|
00002BF0: 30 30 22 00 0D 34 99 0C 99 22 11 4F 52 2C 20 53 |00"..4...".OR, S|
00002C00: 49 44 45 20 42 59 20 53 49 44 45 3A 22 00 2E 34 |IDE BY SIDE:"..4|
00002C10: 9A 0C 99 22 11 31 31 31 31 31 31 31 31 30 31 30 |...".11111111010|
00002C20: 31 30 31 30 31 30 30 30 30 31 30 30 30 22 00 39 |1010100001000".9|
00002C30: 34 9B 0C 8D 36 33 30 30 30 00 5A 34 9C 0C 99 22 |4...63000.Z4..."|
00002C40: 93 31 31 31 31 31 31 31 31 30 31 30 31 30 31 30 |.111111110101010|
00002C50: 31 30 30 30 30 31 30 30 30 22 00 89 34 9E 0C 99 |100001000"..4...|
00002C60: 22 11 54 48 45 4E 20 54 48 45 20 46 49 52 53 54 |".THEN THE FIRST|
00002C70: 20 52 4F 57 20 4F 46 20 50 49 58 45 4C 53 20 57 | ROW OF PIXELS W|
00002C80: 4F 55 4C 44 20 42 45 3A 22 00 AA 34 A8 0C 99 22 |OULD BE:"..4..."|
00002C90: 11 D1 D1 D1 D1 D1 D1 D1 D1 20 D1 20 D1 20 D1 20 |......... . . . |
00002CA0: D1 20 20 20 20 D1 20 20 20 22 00 B5 34 B2 0C 8D |. . "..4...|
00002CB0: 36 33 30 30 30 00 CF 34 BC 0C 99 22 13 11 11 11 |63000..4..."....|
00002CC0: 11 11 11 53 45 45 21 22 3A 8D 36 33 30 30 30 00 |...SEE!":.63000.|
00002CD0: F8 34 C6 0C 99 22 13 11 11 11 11 11 11 11 11 31 |.4...".........1|
00002CE0: 31 31 31 31 31 31 31 30 31 30 31 30 31 30 31 30 |1111111010101010|
00002CF0: 30 30 30 31 30 30 30 22 00 18 35 CB 0C 99 22 5E |0001000"..5..."^|
00002D00: 5E 5E 5E 5E 5E 5E 5E 20 5E 20 5E 20 5E 20 5E 20 |^^^^^^^ ^ ^ ^ ^ |
00002D10: 20 20 20 5E 20 20 20 22 00 3F 35 D0 0C 99 22 D1 | ^ ".?5...".|
00002D20: D1 D1 D1 D1 D1 D1 D1 20 D1 20 D1 20 D1 20 D1 20 |....... . . . . |
00002D30: 20 20 20 D1 20 20 20 22 3A 8D 36 33 30 30 30 00 | . ":.63000.|
00002D40: 6E 35 DA 0C 99 22 13 11 11 11 11 11 11 11 11 11 |n5..."..........|
00002D50: 11 11 11 49 46 20 54 48 45 20 4E 45 58 54 20 33 |...IF THE NEXT 3|
00002D60: 20 42 59 54 45 53 20 49 4E 20 54 48 45 22 00 9B | BYTES IN THE"..|
00002D70: 35 E4 0C 99 22 42 4C 4F 43 4B 20 4F 46 20 4D 45 |5..."BLOCK OF ME|
00002D80: 4D 4F 52 59 20 57 48 49 43 48 20 48 41 53 20 54 |MORY WHICH HAS T|
00002D90: 48 45 20 27 53 48 41 50 45 27 22 00 BE 35 EE 0C |HE 'SHAPE'"..5..|
00002DA0: 99 22 57 45 52 45 20 31 37 30 2C 30 2C 31 37 30 |."WERE 170,0,170|
00002DB0: 20 54 48 45 4E 3A 22 3A 8D 36 33 30 30 30 00 EF | THEN:":.63000..|
00002DC0: 35 F8 0C 99 22 13 11 11 11 11 11 11 11 11 11 11 |5..."...........|
00002DD0: 11 11 11 11 11 11 31 30 31 30 31 30 31 30 30 30 |......1010101000|
00002DE0: 30 30 30 30 30 30 31 30 31 30 31 30 31 30 22 00 |00000010101010".|
00002DF0: 0F 36 02 0D 99 22 D1 20 D1 20 D1 20 D1 20 20 20 |.6...". . . . |
00002E00: 20 20 20 20 20 20 D1 20 D1 20 D1 20 D1 20 22 00 | . . . . ".|
00002E10: 37 36 07 0D 99 22 11 3C C0 31 37 30 C0 C0 3E 3C |76...".<.170..><|
00002E20: C0 C0 30 C0 C0 C0 3E 3C C0 31 37 30 C0 C0 3E 22 |..0...><.170..>"|
00002E30: 3A 8D 36 33 30 30 30 00 6F 36 0C 0D 99 22 93 11 |:.63000.o6..."..|
00002E40: 4C 45 54 27 53 20 4D 41 4B 45 20 41 20 12 50 41 |LET'S MAKE A .PA|
00002E50: 43 4D 41 4E 92 3A 22 3A 8D 36 33 30 30 30 3A 99 |CMAN.:":.63000:.|
00002E60: 22 93 22 3A 8D 37 30 30 30 3A 8D 36 39 30 30 00 |".":.7000:.6900.|
00002E70: A1 36 16 0D 8D 36 33 30 30 30 3A 99 22 13 11 1D |.6...63000:."...|
00002E80: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00002E90: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 4E 4F 57 2E 2E 2E |..........NOW...|
00002EA0: 22 00 DC 36 20 0D 99 22 11 1D 1D 1D 1D 1D 1D 1D |"..6 .."........|
00002EB0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00002EC0: 1D 1D 1D 1D 49 4E 20 42 49 4E 41 52 59 21 22 3A |....IN BINARY!":|
00002ED0: 8D 36 33 30 30 30 3A 54 B2 32 30 30 00 00 37 48 |.63000:T.200..7H|
00002EE0: 0D 99 22 13 11 11 20 20 30 30 30 30 30 30 30 30 |.."... 00000000|
00002EF0: 31 31 31 31 31 31 31 31 30 30 30 30 30 30 30 30 |1111111100000000|
00002F00: 00 0D 37 49 0D 81 49 B2 31 A4 54 3A 82 00 2E 37 |..7I..I.1.T:...7|
00002F10: 52 0D 99 22 20 20 30 30 30 30 30 31 31 31 31 31 |R.." 0000011111|
00002F20: 31 31 31 31 31 31 31 30 30 30 30 30 30 30 00 3B |11111110000000.;|
00002F30: 37 53 0D 81 49 B2 31 A4 54 3A 82 00 5C 37 5C 0D |7S..I.1.T:..\7\.|
00002F40: 99 22 20 20 30 30 30 30 31 31 31 31 31 31 31 31 |." 000011111111|
00002F50: 31 31 31 31 31 31 30 30 30 30 30 30 00 69 37 5D |111111000000.i7]|
00002F60: 0D 81 49 B2 31 A4 54 3A 82 00 8A 37 66 0D 99 22 |..I.1.T:...7f.."|
00002F70: 20 20 30 30 30 31 31 31 31 31 31 31 31 31 31 31 | 00011111111111|
00002F80: 31 31 31 31 31 30 30 30 30 30 00 97 37 67 0D 81 |1111100000..7g..|
00002F90: 49 B2 31 A4 54 3A 82 00 B8 37 70 0D 99 22 20 20 |I.1.T:...7p.." |
00002FA0: 30 30 31 31 31 31 31 31 30 30 30 30 30 31 31 31 |0011111100000111|
00002FB0: 31 31 31 31 30 30 30 30 00 C5 37 71 0D 81 49 B2 |11110000..7q..I.|
00002FC0: 31 A4 54 3A 82 00 E6 37 7A 0D 99 22 20 20 30 31 |1.T:...7z.." 01|
00002FD0: 31 31 31 31 31 31 30 30 30 30 30 31 31 31 31 31 |1111110000011111|
00002FE0: 31 31 31 30 30 30 00 F3 37 7B 0D 81 49 B2 31 A4 |111000..7{..I.1.|
00002FF0: 54 3A 82 00 14 38 84 0D 99 22 20 20 31 31 31 31 |T:...8..." 1111|
00003000: 31 31 31 31 30 31 31 31 30 31 31 31 31 31 31 31 |1111011101111111|
00003010: 30 30 30 30 00 21 38 85 0D 81 49 B2 31 A4 54 3A |0000.!8...I.1.T:|
00003020: 82 00 42 38 8E 0D 99 22 20 20 31 31 31 31 31 31 |..B8..." 111111|
00003030: 31 31 30 31 31 31 30 31 31 31 31 31 31 30 30 30 |1101110111111000|
00003040: 30 30 00 4F 38 8F 0D 81 49 B2 31 A4 54 3A 82 00 |00.O8...I.1.T:..|
00003050: 70 38 98 0D 99 22 20 20 31 31 31 31 31 31 31 31 |p8..." 11111111|
00003060: 31 31 31 31 31 31 31 31 31 31 30 30 30 30 30 30 |1111111111000000|
00003070: 00 7D 38 99 0D 81 49 B2 31 A4 54 3A 82 00 9E 38 |.}8...I.1.T:...8|
00003080: A2 0D 99 22 20 20 31 31 31 31 31 31 31 31 31 31 |..." 1111111111|
00003090: 31 31 31 31 31 31 31 30 30 30 30 30 30 30 00 AB |11111110000000..|
000030A0: 38 A3 0D 81 49 B2 31 A4 54 3A 82 00 CC 38 AC 0D |8...I.1.T:...8..|
000030B0: 99 22 20 20 31 31 31 31 31 31 31 31 31 31 31 31 |." 111111111111|
000030C0: 31 31 31 31 30 30 30 30 30 30 30 30 00 D9 38 AD |111100000000..8.|
000030D0: 0D 81 49 B2 31 A4 54 3A 82 00 FA 38 B6 0D 99 22 |..I.1.T:...8..."|
000030E0: 20 20 31 31 31 31 31 31 31 31 31 31 31 31 31 31 | 11111111111111|
000030F0: 31 31 30 30 30 30 30 30 30 30 00 07 39 B7 0D 81 |1100000000..9...|
00003100: 49 B2 31 A4 54 3A 82 00 28 39 C0 0D 99 22 20 20 |I.1.T:..(9..." |
00003110: 30 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 |0111111111111111|
00003120: 31 30 30 30 30 30 30 30 00 35 39 C1 0D 81 49 B2 |10000000.59...I.|
00003130: 31 A4 54 3A 82 00 56 39 CA 0D 99 22 20 20 30 30 |1.T:..V9..." 00|
00003140: 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 |1111111111111111|
00003150: 30 30 30 30 30 30 00 63 39 CB 0D 81 49 B2 31 A4 |000000.c9...I.1.|
00003160: 54 3A 82 00 84 39 D4 0D 99 22 20 20 30 30 30 31 |T:...9..." 0001|
00003170: 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 30 |1111111111111110|
00003180: 30 30 30 30 00 91 39 D5 0D 81 49 B2 31 A4 54 3A |0000..9...I.1.T:|
00003190: 82 00 B2 39 DE 0D 99 22 20 20 30 30 30 30 31 31 |...9..." 000011|
000031A0: 31 31 31 31 31 31 31 31 31 31 31 31 31 31 30 30 |1111111111111100|
000031B0: 30 30 00 BF 39 DF 0D 81 49 B2 31 A4 54 3A 82 00 |00..9...I.1.T:..|
000031C0: E0 39 E8 0D 99 22 20 20 30 30 30 30 30 31 31 31 |.9..." 00000111|
000031D0: 31 31 31 31 31 31 31 31 31 31 31 31 31 30 30 30 |1111111111111000|
000031E0: 00 ED 39 E9 0D 81 49 B2 31 A4 54 3A 82 00 0E 3A |..9...I.1.T:...:|
000031F0: F2 0D 99 22 20 20 30 30 30 30 30 30 30 31 31 31 |..." 0000000111|
00003200: 31 31 31 31 31 31 31 31 31 31 31 31 30 30 00 1B |11111111111100..|
00003210: 3A F3 0D 81 49 B2 31 A4 54 3A 82 00 3C 3A FC 0D |:...I.1.T:..<:..|
00003220: 99 22 20 20 30 30 30 30 30 30 30 30 30 31 31 31 |." 000000000111|
00003230: 31 31 31 31 31 31 31 31 31 30 30 30 00 49 3A FD |111111111000.I:.|
00003240: 0D 81 49 B2 31 A4 54 3A 82 00 6A 3A 06 0E 99 22 |..I.1.T:..j:..."|
00003250: 20 20 30 30 30 30 30 30 30 30 30 30 30 31 31 31 | 00000000000111|
00003260: 31 31 31 30 30 30 30 30 30 30 00 77 3A 07 0E 81 |1110000000.w:...|
00003270: 49 B2 31 A4 54 3A 82 00 98 3A 10 0E 99 22 20 20 |I.1.T:...:..." |
00003280: 30 30 30 30 30 30 30 30 30 30 30 30 31 31 31 30 |0000000000001110|
00003290: 30 30 30 30 30 30 30 30 00 A5 3A 11 0E 81 49 B2 |00000000..:...I.|
000032A0: 31 A4 54 3A 82 00 D9 3A 1A 0E 8D 36 33 30 30 30 |1.T:...:...63000|
000032B0: 3A 99 22 13 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |:.".............|
000032C0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000032D0: 50 49 43 4B 20 4F 55 54 22 00 14 3B 24 0E 99 22 |PICK OUT"..;$.."|
000032E0: 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000032F0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 54 48 45 20 |............THE |
00003300: 42 59 54 45 53 21 22 3A 8D 36 33 30 30 30 3A 54 |BYTES!":.63000:T|
00003310: B2 32 30 30 00 38 3B 2E 0E 99 22 13 11 11 20 20 |.200.8;..."... |
00003320: 3C C0 C0 C0 30 C0 C0 3E 3C C0 32 35 35 C0 C0 3E |<...0..><.255..>|
00003330: 3C C0 C0 C0 30 C0 C0 3E 00 45 3B 2F 0E 81 49 B2 |<...0..>.E;/..I.|
00003340: 31 A4 54 3A 82 00 66 3B 38 0E 99 22 20 20 3C C0 |1.T:..f;8.." <.|
00003350: C0 C0 37 C0 C0 3E 3C C0 32 35 35 C0 C0 3E 3C C0 |..7..><.255..><.|
00003360: 31 32 38 C0 C0 3E 00 73 3B 39 0E 81 49 B2 31 A4 |128..>.s;9..I.1.|
00003370: 54 3A 82 00 94 3B 42 0E 99 22 20 20 3C C0 C0 31 |T:...;B.." <..1|
00003380: 35 C0 C0 3E 3C C0 32 35 35 C0 C0 3E 3C C0 31 39 |5..><.255..><.19|
00003390: 32 C0 C0 3E 00 A1 3B 43 0E 81 49 B2 31 A4 54 3A |2..>..;C..I.1.T:|
000033A0: 82 00 C2 3B 4C 0E 99 22 20 20 3C C0 C0 33 31 C0 |...;L.." <..31.|
000033B0: C0 3E 3C C0 32 35 35 C0 C0 3E 3C C0 32 32 34 C0 |.><.255..><.224.|
000033C0: C0 3E 00 CF 3B 4D 0E 81 49 B2 31 A4 54 3A 82 00 |.>..;M..I.1.T:..|
000033D0: F0 3B 56 0E 99 22 20 20 3C C0 C0 36 33 C0 C0 3E |.;V.." <..63..>|
000033E0: 3C C0 C0 C0 37 C0 C0 3E 3C C0 32 34 30 C0 C0 3E |<...7..><.240..>|
000033F0: 00 FD 3B 57 0E 81 49 B2 31 A4 54 3A 82 00 1E 3C |..;W..I.1.T:...<|
00003400: 60 0E 99 22 20 20 3C C0 31 32 37 C0 C0 3E 3C C0 |`.." <.127..><.|
00003410: C0 C0 37 C0 C0 3E 3C C0 32 34 38 C0 C0 3E 00 2B |..7..><.248..>.+|
00003420: 3C 61 0E 81 49 B2 31 A4 54 3A 82 00 4C 3C 6A 0E |<a..I.1.T:..L<j.|
00003430: 99 22 20 20 3C C0 32 35 35 C0 C0 3E 3C C0 31 31 |." <.255..><.11|
00003440: 39 C0 C0 3E 3C C0 32 34 30 C0 C0 3E 00 59 3C 6B |9..><.240..>.Y<k|
00003450: 0E 81 49 B2 31 A4 54 3A 82 00 7A 3C 74 0E 99 22 |..I.1.T:..z<t.."|
00003460: 20 20 3C C0 32 35 35 C0 C0 3E 3C C0 31 31 39 C0 | <.255..><.119.|
00003470: C0 3E 3C C0 32 32 34 C0 C0 3E 00 87 3C 75 0E 81 |.><.224..>..<u..|
00003480: 49 B2 31 A4 54 3A 82 00 A8 3C 7E 0E 99 22 20 20 |I.1.T:...<~.." |
00003490: 3C C0 32 35 35 C0 C0 3E 3C C0 32 35 35 C0 C0 3E |<.255..><.255..>|
000034A0: 3C C0 31 39 32 C0 C0 3E 00 B5 3C 7F 0E 81 49 B2 |<.192..>..<...I.|
000034B0: 31 A4 54 3A 82 00 D6 3C 88 0E 99 22 20 20 3C C0 |1.T:...<..." <.|
000034C0: 32 35 35 C0 C0 3E 3C C0 32 35 35 C0 C0 3E 3C C0 |255..><.255..><.|
000034D0: 31 32 38 C0 C0 3E 00 E3 3C 89 0E 81 49 B2 31 A4 |128..>..<...I.1.|
000034E0: 54 3A 82 00 04 3D 92 0E 99 22 20 20 3C C0 32 35 |T:...=..." <.25|
000034F0: 35 C0 C0 3E 3C C0 32 35 35 C0 C0 3E 3C C0 C0 C0 |5..><.255..><...|
00003500: 30 C0 C0 3E 00 11 3D 93 0E 81 49 B2 31 A4 54 3A |0..>..=...I.1.T:|
00003510: 82 00 32 3D 9C 0E 99 22 20 20 3C C0 32 35 35 C0 |..2=..." <.255.|
00003520: C0 3E 3C C0 32 35 35 C0 C0 3E 3C C0 C0 C0 30 C0 |.><.255..><...0.|
00003530: C0 3E 00 3F 3D 9D 0E 81 49 B2 31 A4 54 3A 82 00 |.>.?=...I.1.T:..|
00003540: 60 3D A6 0E 99 22 20 20 3C C0 31 32 37 C0 C0 3E |`=..." <.127..>|
00003550: 3C C0 32 35 35 C0 C0 3E 3C C0 31 32 38 C0 C0 3E |<.255..><.128..>|
00003560: 00 6D 3D A7 0E 81 49 B2 31 A4 54 3A 82 00 8E 3D |.m=...I.1.T:...=|
00003570: B0 0E 99 22 20 20 3C C0 C0 36 33 C0 C0 3E 3C C0 |..." <..63..><.|
00003580: 32 35 35 C0 C0 3E 3C C0 31 39 32 C0 C0 3E 00 9B |255..><.192..>..|
00003590: 3D B1 0E 81 49 B2 31 A4 54 3A 82 00 BC 3D BA 0E |=...I.1.T:...=..|
000035A0: 99 22 20 20 3C C0 C0 33 31 C0 C0 3E 3C C0 32 35 |." <..31..><.25|
000035B0: 35 C0 C0 3E 3C C0 32 32 34 C0 C0 3E 00 C9 3D BB |5..><.224..>..=.|
000035C0: 0E 81 49 B2 31 A4 54 3A 82 00 EA 3D C4 0E 99 22 |..I.1.T:...=..."|
000035D0: 20 20 3C C0 C0 31 35 C0 C0 3E 3C C0 32 35 35 C0 | <..15..><.255.|
000035E0: C0 3E 3C C0 32 34 30 C0 C0 3E 00 F7 3D C5 0E 81 |.><.240..>..=...|
000035F0: 49 B2 31 A4 54 3A 82 00 18 3E CE 0E 99 22 20 20 |I.1.T:...>..." |
00003600: 3C C0 C0 C0 37 C0 C0 3E 3C C0 32 35 35 C0 C0 3E |<...7..><.255..>|
00003610: 3C C0 32 34 38 C0 C0 3E 00 25 3E CF 0E 81 49 B2 |<.248..>.%>...I.|
00003620: 31 A4 54 3A 82 00 46 3E D8 0E 99 22 20 20 3C C0 |1.T:..F>..." <.|
00003630: C0 C0 31 C0 C0 3E 3C C0 32 35 35 C0 C0 3E 3C C0 |..1..><.255..><.|
00003640: 32 35 32 C0 C0 3E 00 53 3E D9 0E 81 49 B2 31 A4 |252..>.S>...I.1.|
00003650: 54 3A 82 00 74 3E E2 0E 99 22 20 20 3C C0 C0 C0 |T:..t>..." <...|
00003660: 30 C0 C0 3E 3C C0 31 32 37 C0 C0 3E 3C C0 32 34 |0..><.127..><.24|
00003670: 38 C0 C0 3E 00 81 3E E3 0E 81 49 B2 31 A4 54 3A |8..>..>...I.1.T:|
00003680: 82 00 A2 3E EC 0E 99 22 20 20 3C C0 C0 C0 30 C0 |...>..." <...0.|
00003690: C0 3E 3C C0 C0 33 31 C0 C0 3E 3C C0 31 32 38 C0 |.><..31..><.128.|
000036A0: C0 3E 00 AF 3E ED 0E 81 49 B2 31 A4 54 3A 82 00 |.>..>...I.1.T:..|
000036B0: D0 3E F6 0E 99 22 20 20 3C C0 C0 C0 30 C0 C0 3E |.>..." <...0..>|
000036C0: 3C C0 C0 31 34 C0 C0 3E 3C C0 C0 C0 30 C0 C0 3E |<..14..><...0..>|
000036D0: 00 DD 3E F7 0E 81 49 B2 31 A4 54 3A 82 00 11 3F |..>...I.1.T:...?|
000036E0: 0A 0F 8D 36 33 30 30 30 3A 99 22 13 11 1D 1D 1D |...63000:.".....|
000036F0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00003700: 1D 1D 1D 1D 1D 1D 1D 1D 4E 4F 57 2E 2E 2E 20 20 |........NOW... |
00003710: 22 00 3F 3F 0B 0F 99 22 11 1D 1D 1D 1D 1D 1D 1D |".??..."........|
00003720: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00003730: 1D 1D 1D 1D 50 55 54 20 54 48 45 53 45 20 22 00 |....PUT THESE ".|
00003740: 6D 3F 0C 0F 99 22 11 1D 1D 1D 1D 1D 1D 1D 1D 1D |m?..."..........|
00003750: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00003760: 1D 1D 4E 55 4D 42 45 52 53 20 20 20 22 00 9B 3F |..NUMBERS "..?|
00003770: 0D 0F 99 22 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..."............|
00003780: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00003790: 49 4E 54 4F 20 44 41 54 41 20 22 00 C9 3F 0E 0F |INTO DATA "..?..|
000037A0: 99 22 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |."..............|
000037B0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 53 54 |..............ST|
000037C0: 41 54 45 4D 45 4E 54 53 22 00 F7 3F 0F 0F 99 22 |ATEMENTS"..?..."|
000037D0: 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000037E0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 2E 2E 54 48 |..............TH|
000037F0: 45 4E 2E 2E 20 20 22 00 25 40 10 0F 99 22 11 1D |EN.. ".%@..."..|
00003800: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00003810: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 20 20 52 45 41 |........... REA|
00003820: 44 20 20 20 22 00 53 40 11 0F 99 22 11 1D 1D 1D |D ".S@..."....|
00003830: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00003840: 1D 1D 1D 1D 1D 1D 1D 1D 20 41 4E 44 20 20 20 20 |........ AND |
00003850: 20 20 22 00 81 40 12 0F 99 22 11 1D 1D 1D 1D 1D | "..@..."......|
00003860: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00003870: 1D 1D 1D 1D 1D 1D 12 20 20 50 4F 4B 45 20 20 20 |....... POKE |
00003880: 22 00 91 40 14 0F 8D 36 33 30 30 30 3A 99 22 93 |"..@...63000:.".|
00003890: 22 00 C2 40 19 0F 99 22 11 11 31 30 30 20 46 4F |"..@..."..100 FO|
000038A0: 52 49 3D 30 54 4F 36 32 3A 52 45 41 44 20 58 3A |RI=0TO62:READ X:|
000038B0: 50 4F 4B 45 38 33 32 2B 49 2C 58 3A 4E 45 58 54 |POKE832+I,X:NEXT|
000038C0: 20 22 00 DA 40 1E 0F 99 22 31 30 31 20 44 41 54 | "..@..."101 DAT|
000038D0: 41 20 30 2C 32 35 35 2C 30 22 00 F4 40 28 0F 99 |A 0,255,0"..@(..|
000038E0: 22 31 30 32 20 44 41 54 41 20 37 2C 32 35 35 2C |"102 DATA 7,255,|
000038F0: 31 32 38 22 00 0E 41 32 0F 99 22 31 30 33 20 44 |128"..A2.."103 D|
00003900: 41 54 41 20 31 35 2C 32 35 35 2C 31 39 32 00 29 |ATA 15,255,192.)|
00003910: 41 3C 0F 99 22 11 2E 2E 2E 20 45 54 43 2E 20 45 |A<..".... ETC. E|
00003920: 54 43 2E 20 45 54 43 2E 22 00 41 41 46 0F 99 22 |TC. ETC.".AAF.."|
00003930: 11 31 32 31 20 44 41 54 41 20 30 2C 31 34 2C 30 |.121 DATA 0,14,0|
00003940: 22 00 5B 41 50 0F 4D 53 24 B2 22 20 53 49 4D 50 |".[AP.MS$." SIMP|
00003950: 4C 45 21 22 3A 8D 36 33 31 30 30 00 8B 41 5A 0F |LE!":.63100..AZ.|
00003960: 8D 36 33 30 30 30 3A 99 22 93 4C 45 54 27 53 20 |.63000:.".LET'S |
00003970: 44 4F 20 49 54 3A 22 3A 51 24 B2 22 12 22 3A 8D |DO IT:":Q$.".":.|
00003980: 33 39 33 31 3A 89 31 30 30 30 30 00 C0 41 5B 0F |3931:.10000..A[.|
00003990: 99 22 11 11 22 51 24 22 31 30 30 20 46 4F 52 49 |.".."Q$"100 FORI|
000039A0: 3D 30 54 4F 36 32 3A 52 45 41 44 20 58 3A 50 4F |=0TO62:READ X:PO|
000039B0: 4B 45 38 33 32 2B 49 2C 58 3A 4E 45 58 54 20 22 |KE832+I,X:NEXT "|
000039C0: 00 FC 41 5C 0F 99 51 24 22 32 30 30 20 50 4F 4B |..A\..Q$"200 POK|
000039D0: 45 32 30 34 30 2B 33 2C 31 33 3A 20 52 45 4D 20 |E2040+3,13: REM |
000039E0: 57 48 45 52 45 20 53 48 41 50 45 20 49 53 20 20 |WHERE SHAPE IS |
000039F0: 22 3A 8B 47 47 B2 31 A7 33 39 33 34 00 2D 42 5D |":.GG.1.3934.-B]|
00003A00: 0F 99 51 24 22 33 30 30 20 56 3D 35 33 32 34 38 |..Q$"300 V=53248|
00003A10: 3A 20 20 20 20 20 20 20 52 45 4D 20 56 49 44 45 |: REM VIDE|
00003A20: 4F 20 43 48 49 50 20 42 41 53 45 20 22 00 5E 42 |O CHIP BASE ".^B|
00003A30: 5E 0F 99 51 24 22 34 30 30 20 50 4F 4B 45 20 56 |^..Q$"400 POKE V|
00003A40: 2B 33 39 2B 33 2C 31 30 3A 52 45 4D 20 52 45 44 |+39+3,10:REM RED|
00003A50: 20 53 50 52 49 54 45 20 23 33 20 20 20 22 00 8F | SPRITE #3 "..|
00003A60: 42 5F 0F 99 51 24 22 35 30 30 20 58 3D 32 35 30 |B_..Q$"500 X=250|
00003A70: 3A 59 3D 32 30 30 3A 20 20 20 52 45 4D 20 50 49 |:Y=200: REM PI|
00003A80: 43 4B 20 41 20 50 4F 53 49 54 49 4F 4E 20 22 00 |CK A POSITION ".|
00003A90: C8 42 60 0F 99 51 24 22 36 30 30 20 50 4F 4B 45 |.B`..Q$"600 POKE|
00003AA0: 20 56 2B 32 2A 33 2C 58 3A 50 4F 4B 45 20 56 2B | V+2*3,X:POKE V+|
00003AB0: 32 2A 33 2B 31 2C 59 20 20 20 20 20 20 20 20 22 |2*3+1,Y "|
00003AC0: 3A 8B 47 47 B2 31 A7 8E 00 FB 42 61 0F 99 51 24 |:.GG.1....Ba..Q$|
00003AD0: 22 37 30 30 20 50 4F 4B 45 56 2B 32 31 2C 32 5E |"700 POKEV+21,2^|
00003AE0: 33 3A 20 20 52 45 4D 20 45 4E 41 42 4C 45 20 53 |3: REM ENABLE S|
00003AF0: 50 52 49 54 45 20 23 33 22 3A 8E 00 47 43 64 0F |PRITE #3":..GCd.|
00003B00: 83 30 2C 32 35 35 2C 30 2C 37 2C 32 35 35 2C 31 |.0,255,0,7,255,1|
00003B10: 32 38 2C 31 35 2C 32 35 35 2C 31 39 32 2C 33 31 |28,15,255,192,31|
00003B20: 2C 32 35 35 2C 32 32 34 2C 36 33 2C 37 2C 32 34 |,255,224,63,7,24|
00003B30: 30 2C 31 32 37 2C 37 2C 32 34 38 2C 32 35 35 2C |0,127,7,248,255,|
00003B40: 31 31 39 2C 32 34 30 00 90 43 65 0F 83 32 35 35 |119,240..Ce..255|
00003B50: 2C 31 31 39 2C 32 32 34 2C 32 35 35 2C 32 35 35 |,119,224,255,255|
00003B60: 2C 31 39 32 2C 32 35 35 2C 32 35 35 2C 31 32 38 |,192,255,255,128|
00003B70: 2C 32 35 35 2C 32 35 35 2C 30 2C 32 35 35 2C 32 |,255,255,0,255,2|
00003B80: 35 35 2C 30 2C 31 32 37 2C 32 35 35 2C 31 32 38 |55,0,127,255,128|
00003B90: 00 D4 43 66 0F 83 36 33 2C 32 35 35 2C 31 39 32 |..Cf..63,255,192|
00003BA0: 2C 33 31 2C 32 35 35 2C 32 32 34 2C 31 35 2C 32 |,31,255,224,15,2|
00003BB0: 35 35 2C 32 34 30 2C 37 2C 32 35 35 2C 32 34 38 |55,240,7,255,248|
00003BC0: 2C 31 2C 32 35 35 2C 32 35 32 2C 30 2C 31 32 37 |,1,255,252,0,127|
00003BD0: 2C 32 34 38 00 E9 43 67 0F 83 30 2C 33 31 2C 31 |,248..Cg..0,31,1|
00003BE0: 32 38 2C 30 2C 31 34 2C 30 00 F7 43 A0 0F 8F 20 |28,0,14,0..C... |
00003BF0: 53 50 52 49 54 45 53 00 0B 44 AA 0F 42 B2 31 33 |SPRITES..D..B.13|
00003C00: 3A 8F 20 42 4C 4F 43 4B 20 31 33 00 20 44 B4 0F |:. BLOCK 13. D..|
00003C10: 4E B2 33 20 3A 8F 20 53 50 52 49 54 45 20 23 30 |N.3 :. SPRITE #0|
00003C20: 00 38 44 BE 0F 54 30 B2 30 3A 54 31 B2 35 30 30 |.8D..T0.0:T1.500|
00003C30: 3A 8D 34 31 30 30 3A 8E 00 56 44 04 10 81 49 B2 |:.4100:..VD...I.|
00003C40: 30 A4 36 32 3A 58 B2 32 34 30 3A 97 36 34 AC 42 |0.62:X.240:.64.B|
00003C50: AA 49 2C 58 3A 82 00 77 44 0E 10 97 32 30 34 30 |.I,X:..wD...2040|
00003C60: AA 4E 2C 42 3A 20 20 8F 20 57 48 45 52 45 20 53 |.N,B: . WHERE S|
00003C70: 48 41 50 45 20 49 53 00 9C 44 18 10 56 B2 35 33 |HAPE IS..D..V.53|
00003C80: 32 34 38 3A 20 20 20 20 20 20 20 8F 20 56 49 44 |248: . VID|
00003C90: 45 4F 20 43 48 49 50 20 42 41 53 45 00 B9 44 22 |EO CHIP BASE..D"|
00003CA0: 10 97 20 56 AA 33 39 AA 4E 2C 31 30 3A 8F 20 52 |.. V.39.N,10:. R|
00003CB0: 45 44 20 53 50 52 49 54 45 00 D3 44 27 10 97 20 |ED SPRITE..D'.. |
00003CC0: 56 AA 32 AC 4E 2C 30 3A 97 20 56 AA 32 AC 4E AA |V.2.N,0:. V.2.N.|
00003CD0: 31 2C 30 00 E9 44 28 10 97 20 56 AA 32 39 2C 30 |1,0..D(.. V.29,0|
00003CE0: 3A 97 20 56 AA 32 33 2C 30 00 09 45 2C 10 97 56 |:. V.23,0..E,..V|
00003CF0: AA 32 31 2C 32 AE 4E 3A 20 20 8F 20 45 4E 41 42 |.21,2.N: . ENAB|
00003D00: 4C 45 20 53 50 52 49 54 45 00 1D 45 36 10 81 20 |LE SPRITE..E6.. |
00003D10: 54 B2 54 30 20 A4 20 54 31 20 A9 20 35 00 31 45 |T.T0 . T1 . 5.1E|
00003D20: 40 10 58 B2 54 AD 32 3A 59 B2 31 30 30 AA 54 AD |@.X.T.2:Y.100.T.|
00003D30: 35 00 4B 45 4A 10 97 20 56 AA 32 AC 4E 2C 58 3A |5.KEJ.. V.2.N,X:|
00003D40: 97 20 56 AA 32 AC 4E AA 31 2C 59 00 53 45 54 10 |. V.2.N.1,Y.SET.|
00003D50: 82 20 54 00 59 45 5E 10 8E 00 7A 45 88 13 99 22 |. T.YE^...zE..."|
00003D60: 93 22 3A 4D 53 24 B2 22 41 55 20 52 45 56 4F 49 |.":MS$."AU REVOI|
00003D70: 52 21 22 3A 8D 36 33 31 30 30 00 B2 45 92 13 99 |R!":.63100..E...|
00003D80: 22 13 11 11 11 4C 4F 41 44 22 C7 28 33 34 29 22 |"....LOAD".(34)"|
00003D90: 3E 53 50 52 49 54 45 53 2D 32 22 C7 28 33 34 29 |>SPRITES-2".(34)|
00003DA0: 22 2C 38 22 3A 99 22 11 11 11 11 52 55 4E 13 22 |",8":."....RUN."|
00003DB0: 3A 80 00 D7 45 F4 1A 99 22 13 12 20 20 20 20 20 |:...E...".. |
00003DC0: 20 20 20 20 20 20 31 31 31 31 31 31 31 31 31 31 | 1111111111|
00003DD0: 32 32 32 32 32 20 22 00 FB 45 F5 1A 99 22 12 20 |22222 "..E...". |
00003DE0: 20 31 32 33 34 35 36 37 38 39 30 31 32 33 34 35 | 123456789012345|
00003DF0: 36 37 38 39 30 31 32 33 34 20 22 00 06 46 F6 1A |678901234 "..F..|
00003E00: 99 22 12 20 31 22 00 11 46 F7 1A 99 22 12 20 32 |.". 1"..F...". 2|
00003E10: 22 00 1C 46 F8 1A 99 22 12 20 33 22 00 27 46 F9 |"..F...". 3".'F.|
00003E20: 1A 99 22 12 20 34 22 00 32 46 FA 1A 99 22 12 20 |..". 4".2F...". |
00003E30: 35 22 00 3D 46 FB 1A 99 22 12 20 36 22 00 48 46 |5".=F...". 6".HF|
00003E40: FC 1A 99 22 12 20 37 22 00 53 46 FD 1A 99 22 12 |...". 7".SF...".|
00003E50: 20 38 22 00 5E 46 FE 1A 99 22 12 20 39 22 00 69 | 8".^F...". 9".i|
00003E60: 46 FF 1A 99 22 12 31 30 22 00 74 46 00 1B 99 22 |F...".10".tF..."|
00003E70: 12 31 31 22 00 7F 46 01 1B 99 22 12 31 32 22 00 |.11"..F...".12".|
00003E80: 8A 46 02 1B 99 22 12 31 33 22 00 95 46 03 1B 99 |.F...".13"..F...|
00003E90: 22 12 31 34 22 00 A0 46 04 1B 99 22 12 31 35 22 |".14"..F...".15"|
00003EA0: 00 AB 46 05 1B 99 22 12 31 36 22 00 B6 46 06 1B |..F...".16"..F..|
00003EB0: 99 22 12 31 37 22 00 C1 46 07 1B 99 22 12 31 38 |.".17"..F...".18|
00003EC0: 22 00 CC 46 08 1B 99 22 12 31 39 22 00 D7 46 09 |"..F...".19"..F.|
00003ED0: 1B 99 22 12 32 30 22 00 E2 46 0A 1B 99 22 12 32 |..".20"..F...".2|
00003EE0: 31 22 00 E8 46 0B 1B 8E 00 03 47 58 1B 99 22 13 |1"..F.....GX..".|
00003EF0: 11 11 20 20 20 20 20 20 20 20 20 D1 D1 D1 D1 D1 |.. .....|
00003F00: D1 D1 D1 00 1D 47 59 1B 99 22 20 20 20 20 20 20 |.....GY.." |
00003F10: 20 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 00 38 47 | .............8G|
00003F20: 5A 1B 99 22 20 20 20 20 20 20 D1 D1 D1 D1 D1 D1 |Z.." ......|
00003F30: D1 D1 D1 D1 D1 D1 D1 D1 00 54 47 5B 1B 99 22 20 |.........TG[.." |
00003F40: 20 20 20 20 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 | ............|
00003F50: D1 D1 D1 D1 00 71 47 5C 1B 99 22 20 20 20 20 D1 |.....qG\.." .|
00003F60: D1 D1 D1 D1 D1 20 20 20 20 20 D1 D1 D1 D1 D1 D1 |..... ......|
00003F70: D1 00 8F 47 5D 1B 99 22 20 20 20 D1 D1 D1 D1 D1 |...G].." .....|
00003F80: D1 D1 20 20 20 20 20 D1 D1 D1 D1 D1 D1 D1 D1 00 |.. .........|
00003F90: AC 47 5E 1B 99 22 20 20 D1 D1 D1 D1 D1 D1 D1 D1 |.G^.." ........|
00003FA0: 20 D1 D1 D1 20 D1 D1 D1 D1 D1 D1 D1 00 C8 47 5F | ... .........G_|
00003FB0: 1B 99 22 20 20 D1 D1 D1 D1 D1 D1 D1 D1 20 D1 D1 |.." ........ ..|
00003FC0: D1 20 D1 D1 D1 D1 D1 D1 00 E3 47 60 1B 99 22 20 |. ........G`.." |
00003FD0: 20 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 | ...............|
00003FE0: D1 D1 D1 00 FD 47 61 1B 99 22 20 20 D1 D1 D1 D1 |.....Ga.." ....|
00003FF0: D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 00 16 48 |...............H|
00004000: 62 1B 99 22 20 20 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 |b.." ..........|
00004010: D1 D1 D1 D1 D1 D1 00 2F 48 63 1B 99 22 20 20 D1 |......./Hc.." .|
00004020: D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 00 |................|
00004030: 49 48 64 1B 99 22 20 20 20 D1 D1 D1 D1 D1 D1 D1 |IHd.." .......|
00004040: D1 D1 D1 D1 D1 D1 D1 D1 D1 00 64 48 65 1B 99 22 |..........dHe.."|
00004050: 20 20 20 20 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 | ............|
00004060: D1 D1 D1 D1 00 80 48 66 1B 99 22 20 20 20 20 20 |......Hf.." |
00004070: D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 |................|
00004080: 00 9D 48 67 1B 99 22 20 20 20 20 20 20 D1 D1 D1 |..Hg.." ...|
00004090: D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 00 BB 48 |...............H|
000040A0: 68 1B 99 22 20 20 20 20 20 20 20 D1 D1 D1 D1 D1 |h.." .....|
000040B0: D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 00 DA 48 69 1B |.............Hi.|
000040C0: 99 22 20 20 20 20 20 20 20 20 20 D1 D1 D1 D1 D1 |." .....|
000040D0: D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 00 F8 48 6A 1B 99 |............Hj..|
000040E0: 22 20 20 20 20 20 20 20 20 20 20 20 D1 D1 D1 D1 |" ....|
000040F0: D1 D1 D1 D1 D1 D1 D1 D1 00 14 49 6B 1B 99 22 20 |..........Ik.." |
00004100: 20 20 20 20 20 20 20 20 20 20 20 20 D1 D1 D1 D1 | ....|
00004110: D1 D1 D1 D1 00 2F 49 6C 1B 99 22 20 20 20 20 20 |...../Il.." |
00004120: 20 20 20 20 20 20 20 20 20 D1 D1 D1 D1 D1 D1 00 | .......|
00004130: 35 49 6D 1B 8E 00 5F 49 10 27 8D 36 33 30 30 30 |5Im..._I.'.63000|
00004140: 3A 99 22 93 42 45 54 54 45 52 20 53 54 49 4C 4C |:.".BETTER STILL|
00004150: 2E 2E 4C 45 54 27 53 20 45 4E 41 42 4C 45 22 00 |..LET'S ENABLE".|
00004160: 8C 49 1A 27 99 22 11 53 50 52 49 54 45 20 23 33 |.I.'.".SPRITE #3|
00004170: 20 53 4F 20 57 45 20 43 41 4E 20 12 53 45 45 92 | SO WE CAN .SEE.|
00004180: 20 49 54 20 48 41 50 50 45 4E 21 22 00 A8 49 24 | IT HAPPEN!"..I$|
00004190: 27 99 22 11 57 45 27 4C 4C 20 53 45 54 20 12 56 |'.".WE'LL SET .V|
000041A0: 3D 35 33 32 34 38 92 22 00 C9 49 2E 27 99 22 11 |=53248."..I.'.".|
000041B0: 41 4E 44 20 57 45 27 4C 4C 20 12 50 4F 4B 45 20 |AND WE'LL .POKE |
000041C0: 56 2B 32 31 2C 32 5E 33 22 00 FF 49 38 27 99 22 |V+21,2^3"..I8'."|
000041D0: 11 54 48 45 4E 20 57 45 27 4C 4C 20 52 55 4E 20 |.THEN WE'LL RUN |
000041E0: 54 48 45 20 50 52 4F 47 52 41 4D 3A 22 3A 47 47 |THE PROGRAM:":GG|
000041F0: B2 31 3A 8D 33 39 33 31 3A 51 24 B2 22 92 22 00 |.1:.3931:Q$.".".|
00004200: 24 4A 42 27 8D 36 33 30 30 30 3A 99 22 93 22 3A |$JB'.63000:.".":|
00004210: 8D 33 39 33 31 3A 8D 36 33 30 30 30 3A 56 B2 35 |.3931:.63000:V.5|
00004220: 33 32 34 38 00 3D 4A 43 27 81 49 B2 30 A4 36 32 |3248.=JC'.I.0.62|
00004230: 3A 97 38 33 32 AA 49 2C 32 34 30 3A 82 00 6B 4A |:.832.I,240:..kJ|
00004240: 47 27 97 56 AA 36 2C 32 35 30 3A 97 56 AA 37 2C |G'.V.6,250:.V.7,|
00004250: 32 30 30 3A 97 56 AA 32 39 2C 30 3A 97 56 AA 32 |200:.V.29,0:.V.2|
00004260: 33 2C 30 3A 97 56 AA 32 31 2C 38 00 9F 4A 4C 27 |3,0:.V.21,8..JL'|
00004270: 99 22 13 11 11 11 12 31 30 30 20 46 4F 52 49 3D |.".....100 FORI=|
00004280: 30 54 4F 36 32 3A 52 45 41 44 20 58 3A 50 4F 4B |0TO62:READ X:POK|
00004290: 45 38 33 32 2B 49 2C 58 3A 4E 45 58 54 20 22 00 |E832+I,X:NEXT ".|
000042A0: BC 4A 51 27 8C 3A 81 49 B2 30 A4 36 32 3A 87 20 |.JQ'.:.I.0.62:. |
000042B0: 58 3A 97 38 33 32 AA 49 2C 58 3A 82 00 F1 4A 56 |X:.832.I,X:...JV|
000042C0: 27 99 22 13 11 11 11 11 12 32 30 30 20 50 4F 4B |'."......200 POK|
000042D0: 45 32 30 34 30 2B 33 2C 31 33 92 3A 20 54 45 4C |E2040+3,13.: TEL|
000042E0: 4C 20 57 48 45 52 45 20 53 48 41 50 45 20 49 53 |L WHERE SHAPE IS|
000042F0: 22 00 07 4B 5B 27 97 32 30 34 30 AA 33 2C 31 33 |"..K['.2040.3,13|
00004300: 3A 8D 31 30 35 30 30 00 3D 4B 60 27 99 22 13 11 |:.10500.=K`'."..|
00004310: 11 11 11 11 12 34 30 30 20 50 4F 4B 45 20 56 2B |.....400 POKE V+|
00004320: 33 39 2B 33 2C 31 92 3A 20 53 50 52 49 54 45 20 |39+3,1.: SPRITE |
00004330: 23 33 20 49 53 20 57 48 49 54 45 20 22 00 53 4B |#3 IS WHITE ".SK|
00004340: 65 27 97 20 56 AA 33 39 AA 33 2C 31 3A 8D 31 30 |e'. V.39.3,1:.10|
00004350: 35 30 30 00 8B 4B 6A 27 99 22 13 11 11 11 11 11 |500..Kj'."......|
00004360: 11 12 35 30 30 20 58 3D 32 30 30 3A 59 3D 31 35 |..500 X=200:Y=15|
00004370: 30 92 3A 20 20 20 50 49 43 4B 20 41 20 50 4F 53 |0.: PICK A POS|
00004380: 49 54 49 4F 4E 20 20 20 20 20 22 00 A2 4B 6F 27 |ITION "..Ko'|
00004390: 58 B2 32 30 30 3A 59 B2 31 35 30 3A 8D 31 30 35 |X.200:Y.150:.105|
000043A0: 30 30 00 D2 4B 74 27 99 22 13 11 11 11 11 11 11 |00..Kt'.".......|
000043B0: 11 12 36 30 30 20 50 4F 4B 45 20 56 2B 32 2A 33 |..600 POKE V+2*3|
000043C0: 2C 58 3A 50 4F 4B 45 20 56 2B 32 2A 33 2B 31 2C |,X:POKE V+2*3+1,|
000043D0: 59 22 00 F3 4B 79 27 97 20 56 AA 32 AC 33 2C 58 |Y"..Ky'. V.2.3,X|
000043E0: 3A 97 20 56 AA 32 AC 33 AA 31 2C 59 3A 8D 31 30 |:. V.2.3.1,Y:.10|
000043F0: 35 30 30 00 23 4C 7E 27 99 22 93 50 49 43 4B 20 |500.#L~'.".PICK |
00004400: 41 20 43 4F 4C 4F 55 52 20 23 20 28 30 20 54 4F |A COLOUR # (0 TO|
00004410: 20 31 35 29 22 3B 3A 85 20 43 24 3A 43 B2 C5 28 | 15)";:. C$:C..(|
00004420: 43 24 29 00 3B 4C 88 27 8B 20 43 B3 30 20 B0 20 |C$).;L.'. C.0 . |
00004430: 43 B1 31 35 20 A7 31 30 31 31 30 00 79 4C 92 27 |C.15 .10110.yL.'|
00004440: 97 56 AA 33 39 AA 33 2C 43 3A 8D 36 33 30 30 30 |.V.39.3,C:.63000|
00004450: 3A 97 56 AA 33 39 AA 33 2C 31 3A 99 22 13 11 57 |:.V.39.3,1:."..W|
00004460: 45 20 44 49 44 20 12 4E 3D 33 3A 50 4F 4B 45 20 |E DID .N=3:POKE |
00004470: 56 2B 33 39 2B 4E 2C 22 43 00 84 4C 97 27 8D 36 |V+39+N,"C..L.'.6|
00004480: 33 30 30 30 00 C3 4C 9C 27 99 22 13 11 11 50 49 |3000..L.'."...PI|
00004490: 43 4B 20 41 4E 20 58 2D 50 4F 53 49 54 49 4F 4E |CK AN X-POSITION|
000044A0: 22 3B 3A 85 20 58 24 3A 58 25 B2 C5 28 58 24 29 |";:. X$:X%..(X$)|
000044B0: 3A 8B 58 25 B3 30 B0 58 25 B1 33 35 35 A7 31 30 |:.X%.0.X%.355.10|
000044C0: 31 34 30 00 E0 4C A1 27 8B 58 25 B1 32 35 35 A7 |140..L.'.X%.255.|
000044D0: 20 58 48 25 B2 38 3A 58 25 B2 58 25 AB 32 35 36 | XH%.8:X%.X%.256|
000044E0: 00 F8 4C A6 27 97 56 AA 32 AC 33 2C 58 25 3A 97 |..L.'.V.2.3,X%:.|
000044F0: 56 AA 31 36 2C 58 48 25 00 35 4D AB 27 99 22 13 |V.16,XH%.5M.'.".|
00004500: 11 11 11 57 45 20 44 49 44 3A 20 12 4E 3D 33 3A |...WE DID: .N=3:|
00004510: 50 4F 4B 45 20 56 2B 32 2A 4E 2C 22 58 25 22 20 |POKE V+2*N,"X%" |
00004520: 50 4F 4B 45 20 56 2B 31 36 2C 22 58 48 25 3A 8D |POKE V+16,"XH%:.|
00004530: 36 33 30 30 30 00 56 4D B0 27 97 56 AA 31 36 2C |63000.VM.'.V.16,|
00004540: 30 3A 97 56 AA 32 AC 33 2C 31 35 30 3A 97 56 AA |0:.V.2.3,150:.V.|
00004550: 33 39 AA 33 2C 31 00 8F 4D BA 27 99 22 13 11 11 |39.3,1..M.'."...|
00004560: 11 11 57 48 41 54 20 57 49 4C 4C 20 12 50 4F 4B |..WHAT WILL .POK|
00004570: 45 20 56 2B 32 39 2C 32 5E 33 92 20 44 4F 3F 22 |E V+29,2^3. DO?"|
00004580: 3A 8D 36 33 30 30 30 3A 97 56 AA 32 39 2C 38 00 |:.63000:.V.29,8.|
00004590: C9 4D C4 27 99 22 13 11 11 11 11 11 57 48 41 54 |.M.'."......WHAT|
000045A0: 20 57 49 4C 4C 20 12 50 4F 4B 45 20 56 2B 32 33 | WILL .POKE V+23|
000045B0: 2C 32 5E 33 92 20 44 4F 3F 22 3A 8D 36 33 30 30 |,2^3. DO?":.6300|
000045C0: 30 3A 97 56 AA 32 33 2C 38 00 D4 4D 03 29 89 31 |0:.V.23,8..M.).1|
000045D0: 31 30 30 30 00 FE 4D 04 29 81 4A B2 31 A4 33 3A |1000..M.).J.1.3:|
000045E0: 99 22 13 20 20 20 20 20 22 3A 81 4B B2 31 A4 31 |.". ":.K.1.1|
000045F0: 30 30 3A 82 3A 99 22 13 44 4F 4E 45 21 22 00 20 |00:.:.".DONE!". |
00004600: 4E 0E 29 99 22 13 44 4F 4E 45 21 22 3A 81 4B B2 |N.).".DONE!":.K.|
00004610: 31 A4 31 30 30 3A 82 3A 82 3A 8D 36 33 30 30 30 |1.100:.:.:.63000|
00004620: 00 26 4E 18 29 8E 00 4E 4E F8 2A 8D 36 33 30 30 |.&N.)..NN.*.6300|
00004630: 30 3A 4D 53 24 B2 22 41 55 20 52 45 56 4F 49 52 |0:MS$."AU REVOIR|
00004640: 21 22 3A 99 22 93 22 3A 8D 36 33 31 30 30 00 7A |!":.".":.63100.z|
00004650: 4E 02 2B 99 22 13 11 11 11 50 4F 4B 45 20 35 33 |N.+."....POKE 53|
00004660: 32 34 38 2B 32 31 2C 30 3A 52 45 4D 20 54 55 52 |248+21,0:REM TUR|
00004670: 4E 20 4F 46 46 21 13 22 3A 80 00 88 4E D4 30 8F |N OFF!.":...N.0.|
00004680: 20 53 50 52 49 54 45 53 00 A5 4E DE 30 81 49 B2 | SPRITES..N.0.I.|
00004690: 30 A4 36 32 3A 58 B2 32 34 30 3A 97 38 33 32 AA |0.62:X.240:.832.|
000046A0: 49 2C 58 3A 82 00 C8 4E E8 30 97 32 30 34 30 2C |I,X:...N.0.2040,|
000046B0: 31 33 3A 97 32 30 34 30 AA 33 2C 31 33 3A 97 32 |13:.2040.3,13:.2|
000046C0: 30 34 30 AA 37 2C 31 33 00 F3 4E F2 30 56 B2 35 |040.7,13..N.0V.5|
000046D0: 33 32 34 38 3A 97 20 56 AA 33 39 2C 31 30 3A 97 |3248:. V.39,10:.|
000046E0: 56 AA 33 39 AA 33 2C 31 3A 97 56 AA 33 39 AA 37 |V.39.3,1:.V.39.7|
000046F0: 2C 31 34 00 05 4F FC 30 97 56 AA 32 31 2C 31 AA |,14..O.0.V.21,1.|
00004700: 38 AA 31 32 38 00 19 4F 10 31 81 20 54 B2 30 20 |8.128..O.1. T.0 |
00004710: A4 20 35 30 30 20 A9 20 35 00 2B 4F 15 31 58 30 |. 500 . 5.+O.1X0|
00004720: B2 54 AD 32 3A 59 30 B2 54 AD 33 00 45 4F 16 31 |.T.2:Y0.T.3.EO.1|
00004730: 58 33 B2 32 35 30 AB 54 AD 32 3A 59 33 B2 32 30 |X3.250.T.2:Y3.20|
00004740: 30 AB 54 AD 33 00 6E 4F 17 31 58 37 B2 31 35 30 |0.T.3.nO.1X7.150|
00004750: AA 31 30 30 AC BF 28 54 AD 35 30 29 3A 59 37 B2 |.100..(T.50):Y7.|
00004760: 31 30 30 AA 35 30 AC BE 28 54 AD 35 30 29 00 8A |100.50..(T.50)..|
00004770: 4F 1A 31 97 20 56 AA 32 AC 30 2C 58 30 3A 97 20 |O.1. V.2.0,X0:. |
00004780: 56 AA 32 AC 30 AA 31 2C 59 30 00 A6 4F 1F 31 97 |V.2.0.1,Y0..O.1.|
00004790: 20 56 AA 32 AC 33 2C 58 33 3A 97 20 56 AA 32 AC | V.2.3,X3:. V.2.|
000047A0: 33 AA 31 2C 59 33 00 C2 4F 20 31 97 20 56 AA 32 |3.1,Y3..O 1. V.2|
000047B0: AC 37 2C 58 37 3A 97 20 56 AA 32 AC 37 AA 31 2C |.7,X7:. V.2.7.1,|
000047C0: 59 37 00 D4 4F 24 31 82 20 54 3A 97 56 AA 32 31 |Y7..O$1. T:.V.21|
000047D0: 2C 30 3A 8E 00 E5 4F 60 EA 8F 20 49 4E 49 54 49 |,0:...O`.. INITI|
000047E0: 41 4C 49 5A 45 00 07 50 61 EA 42 54 24 B2 22 13 |ALIZE..Pa.BT$.".|
000047F0: 22 3A 81 49 B2 31 A4 32 34 3A 42 54 24 B2 42 54 |":.I.1.24:BT$.BT|
00004800: 24 AA 22 11 22 3A 82 00 51 50 62 EA 50 54 24 B2 |$.".":..QPb.PT$.|
00004810: 22 9E B0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 AE 11 9D |"...............|
00004820: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D DD 1D 1D 1D 1D |................|
00004830: 1D 1D 1D 1D 1D 1D DD 11 9D 9D 9D 9D 9D 9D 9D 9D |................|
00004840: 9D 9D 9D 9D AD B2 C0 C0 C0 C0 C0 C0 C0 C0 B2 BD |................|
00004850: 22 00 99 50 63 EA 50 54 24 B2 50 54 24 AA 22 11 |"..Pc.PT$.PT$.".|
00004860: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D CE A3 A3 |................|
00004870: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 CD 11 9D 9D 9D 9D |................|
00004880: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D A5 3D 3D 3D 3D 3D |...........=====|
00004890: 3D 3D 3D 3D 3D 3D 3D A7 22 00 D5 50 64 EA 50 54 |=======."..Pd.PT|
000048A0: 24 B2 50 54 24 AA 22 11 9D 9D 9D 9D 9D 9D 9D 9D |$.PT$.".........|
000048B0: 9D 9D 9D 9D 9D 9D D0 CF A3 A3 A3 A3 A3 A3 A3 A3 |................|
000048C0: A3 A3 D0 CF 91 91 91 91 9D 9D 9D 9D 9D 9D 9D 9D |................|
000048D0: 9D 9D 9D 9D 22 00 0C 51 65 EA 50 54 24 B2 42 54 |...."..Qe.PT$.BT|
000048E0: 24 AA 22 91 91 91 91 91 91 1D 1D 1D 1D 1D 1D 1D |$.".............|
000048F0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00004900: 1D 1D 1D 22 AA 50 54 24 AA 22 9F 22 00 3C 51 67 |...".PT$.".".<Qg|
00004910: EA 4D 4C 24 B2 22 13 11 11 11 11 11 11 11 11 11 |.ML$."..........|
00004920: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00004930: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 00 4F 51 68 |...........".OQh|
00004940: EA 57 44 B2 34 30 3A 43 52 54 B2 31 30 32 34 00 |.WD.40:CRT.1024.|
00004950: 89 51 69 EA 57 32 B2 57 44 AD 32 3A 57 33 B2 57 |.Qi.W2.WD.2:W3.W|
00004960: 44 AB 31 3A 57 31 24 B2 CA 28 C4 28 57 44 29 2C |D.1:W1$..(.(WD),|
00004970: 32 29 3A 97 35 33 32 38 31 2C 36 3A 97 35 33 32 |2):.53281,6:.532|
00004980: 38 30 2C 36 3A 99 22 05 22 00 A6 51 6A EA 56 B2 |80,6:."."..Qj.V.|
00004990: 35 33 32 34 38 3A 81 49 B2 30 A4 31 36 3A 97 56 |53248:.I.0.16:.V|
000049A0: AA 49 2C 30 3A 82 00 CD 51 6B EA 97 56 AA 32 33 |.I,0:...Qk..V.23|
000049B0: 2C 30 3A 97 56 AA 32 39 2C 30 3A 81 49 B2 30 A4 |,0:.V.29,0:.I.0.|
000049C0: 37 3A 97 56 AA 33 39 AA 49 2C 30 3A 82 00 D3 51 |7:.V.39.I,0:...Q|
000049D0: 74 EA 8E 00 DE 51 30 F2 8D 36 33 30 30 30 00 F4 |t....Q0..63000..|
000049E0: 51 31 F2 99 53 44 24 43 4C 24 3A 99 43 4C 24 3A |Q1..SD$CL$:.CL$:|
000049F0: 99 43 4C 24 00 FA 51 33 F2 8E 00 34 52 18 F6 99 |.CL$..Q3...4R...|
00004A00: 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |"...............|
00004A10: 11 11 11 11 11 11 11 11 11 11 48 49 54 20 12 52 |..........HIT .R|
00004A20: 45 54 55 52 4E 92 20 54 4F 20 43 4F 4E 54 49 4E |ETURN. TO CONTIN|
00004A30: 55 45 22 3B 00 4A 52 19 F6 A1 41 24 3A 8B 41 24 |UE";.JR...A$:.A$|
00004A40: B3 B1 22 22 A7 36 33 30 30 31 00 5F 52 1A F6 A1 |.."".63001._R...|
00004A50: 41 24 3A 8B 41 24 B2 22 22 A7 36 33 30 30 32 00 |A$:.A$."".63002.|
00004A60: 65 52 1B F6 8E 00 79 52 7C F6 81 54 B2 31 A4 35 |eR....yR|..T.1.5|
00004A70: 3A 99 50 54 24 4D 53 24 3B 00 8F 52 7D F6 99 50 |:.PT$MS$;..R}..P|
00004A80: 54 24 22 20 20 20 20 20 20 20 20 20 20 22 3B 00 |T$" ";.|
00004A90: 9E 52 7E F6 99 50 54 24 4D 53 24 3B 3A 82 00 A9 |.R~..PT$MS$;:...|
00004AA0: 52 7F F6 99 22 05 22 3A 8E 00 F6 52 9C F9 53 44 |R...".":...R..SD|
00004AB0: 24 B2 22 13 11 11 11 11 11 11 11 11 11 11 11 11 |$.".............|
00004AC0: 11 11 11 11 11 11 22 3A 43 4C 24 B2 22 92 20 20 |......":CL$.". |
00004AD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00004AE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00004AF0: 20 20 20 20 92 22 00 29 53 9D F9 53 52 24 B2 22 | .".)S..SR$."|
00004B00: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00004B10: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00004B20: 1D 1D 1D 1D 1D 1D 1D 1D 22 00 2F 53 9E F9 8E 00 |........"./S....|
00004B30: 00 00 |.. |
..!...."....... PONZO*82*WATERLOO......"
.......H.X.. V.2.3,X:. V.2.3.1,Y.R....60
000:.". ..SPRITES-1."......
".......................................
"......". .. SPRITES AND STUFF
.. .":MS$." WELCOME! "......"....
...................................":.63
100.O....I.0.62:. X:.832.I,X:.:V.53248:.
2040,13:.V.21,1......V.39,1:.V.1,100:A$.
"........
".....B$."THIS IS A SPRITE"......V.3
9,1:.V.1,100:.X.0.255.8:.V,X:.H(A$,8.X1)
;......I(B$,31.X2):X2.X2.(X2.32):X1.X1.1
:.T.1.10:.:..C....63000:.I.0.15:.V.39,I:
.T.1.50:.:.:.V.21,0.....MS$." YUM YUM":.
63100:."..IT IS EASY TO HAVE UP TO 8 'SP
RITES'"......".ON THE SCREEN AT ONE TIME
.".S....".LET'S LABEL THE SPRITES 0,1,..
7."......".PICK A NUMBER N (0 TO 7) AND"
......".A BLOCK OF MEMORY TO HOLD THE".D
.$..".INFORMATION ON THE 'SHAPE' OF".W.)
..".SPRITE #N.".Z...MS$."NICE SHAPE":.63
100:.63000...8..".NOW A SPRITE IS MADE U
P OF AN ARRAY".S.B..".OF 'PIXELS' OR 'DO
TS' ON THE SCREEN."...L..".24 DOTS WIDE
AND 21 DOTS TALL."...V..".(24*21=504 DOT
S IN TOTAL).".F.`..".EACH DOT IS EITHER
'ON' OR 'OFF'".L.E..".AND WE CAN INDICAT
E THIS WITH"...J..".A '1' OR '0' (1=.ON.
& 0=.OFF.)"...T..".THE 'SHAPE' INFO CAN
THEN BE"...~..". STORED AS 504 BINARY D
IGITS"......".(BITS),EITHER '1' OR '0'."
.(....".SINCE WE STORE NUMBERS IN BYTES"
.N...."..IT WILL TAKE 504/8=63 BYTES!".Y
....63000......".WE WILL RESERVE .63. BY
TES OF MEMORY"......".(LET'S CALL THEM '
BLOCKS')".J.D..".FOR EACH SPRITE 'SHAPE'
."...N..".YOU TELL ME THE 'BLOCK' NUMBER
"...X..".AND I'LL KNOW WHERE TO LOOK".3.
...".FOR THE SPRITE SHAPE!".Y....".IN FA
CT IF YOU SAY .BLOCK 90.".|....".I'LL GO
TO MEMORY LOCATION"......".64*90=5760 T
O GET THE FIRST OF".X....".THE 63 BYTES!
":MS$."63 BITES?!":.63100:.63000......".
OK..YOU PICK AN .N. (THE SPRITE #)".)...
.".AND A .B. (THE BLOCK NUMBER).".P.(.."
.HINT..........:B=11,13,14 & 15".T.2..".
ARE VERY NICE BLOCKS 'CAUSE"...<..".THE
63 BYTES OF MEMORY STARTING".J.F..".AT 6
4*11=.704.,64*13=.832.,64*14=.896"...P..
".AND 64*15=.960. ARE AVAILABLE!"...Z.."
.(..LET'S SAY 'RESERVED' FOR SPRITES).".
F.D..".THEN YOU MUST .POKE. THE .1.'S".H
.N..".AND .0.'S INTO THE BLOCK.". .S..".
.100 FORI=0TO62:READ X:POKE64*B+I,X:NEXT
":.63000...X..".LET'S SAY THAT AGAIN:"..
...."..100 FORI=0TO62:READ X:POKE64*B+I,
X:NEXT"......".NOW YOU TELL THE C64 WHER
E".6....".THE SPRITE SHAPE IS STORED.".X
. ..".FOR SPRITE .N., YOU MUST:"......".
.110 POKE 2040+N,B.:REM B=BLOCK #"......
".NOW TO HAVE SPRITE #N DISPLAYED".Q....
".ON THE SCREEN YOU MUST .ENABLE"...H.."
.THIS SPRITE.":MS$." .2040+N.":.63100:.
63000.+.M..".YOU'LL ALSO WANT TO PUT IT
AT".R.N..".THE RIGHT PLACE ON THE SCREEN
,".Y.O..".GIVE IT A NICE COLOUR, MOVE IT
"...P..".AROUND, MAKE IT BIGGER OR SMALL
ER".D.Q..".AND OTHER CLEVER THINGS."...R
..".ALL THIS INFORMATION MUST GO TO".%.W
..".THE .VIDEO CHIP.!":MS$."NICE CHIP!":
.63100:.63000.=...."..THE VIDEO CHIP".D.
...".THIS SEXY CHIP HAS 47 INTERNAL"....
..".MEMORY LOCATIONS OR .REGISTERS.."...
...".THEY START AT .$D000. IN HEXADECIMA
L"......".(NICE) AND .53248. IN DECIMAL"
......".(NOT SO NICE). ANYWAY LET:".,...
."..120 V=53248:REM VIDEO CHIP BASE".L..
..".TO 'TURN ON' SPRITE #N:".G...."..130
POKE V+21,2^N"......".YES....THAT'S 2^N
.".....MS$."TURN ME ON":.63100:.63000.K.
...".YOU SEE, THE REGISTER AT V+21"...".
.".WHICH 'ENABLES' SPRITES HAS 8 BITS.".
..#..".WE LABEL THE BITS 0,1,...7".4.$..
".(SOUND FAMILIAR?)".^.'..".EACH BIT COR
RESPONDS TO A SPRITE."...(..".TO 'SEE' S
PRITE #5, TURN ON THE"...)..".BIT #5!"..
.*..".HOW? JUST .POKE V+21,32."...,..".N
OTE..........: 2^5=32"...-.
MS$." 00100000":.63100:.63000.*.6..".FOR
OUR 'SPRITE #N' WE WILL:".D.;.."..130 P
OKEV+21,2^N".K.<..".(YOU WON'T BE SURPRI
SED TO SEE"...@..".THAT ANY OTHER SPRITE
S WILL"...J..".DISAPPEAR!)".Q.T..".IF YO
U WANT SPRITE #0 .AND. SPRITE #3"...^.."
..AND. SPRITE #7 .ALL. 'ENABLED' OR 'VIS
IBLE',".'.H..".THEN .POKEV+21,1+8+128.".
P.R..".NOTE:2^0+2^3+2^7=1+8+128 (NICE)!"
.O.|..".YOU WANT ALL 8 SPRITES?......"..
POKEV+21,255":MS$." 10001001":.63100:.63
000......".SO FAR WE HAVE:"......"..100
FORI=0TO62:READ X:POKE64*B+I,X:NEXT"....
..".110 POKE2040+N,B:REM WHERE SHAPE IS
".L.B..".120 V=53248: REM VIDEO C
HIP BASE ".|.L..".130 POKEV+21,2^N:REM
ENABLE SPRITE "...V.."...AND SPRITE
#N IS ON THE SCREEN!".M....".BUT WHERE
AND WHAT COLOUR?!*+!"......".THERE ARE 1
5 COLOURS TO CHOOSE FROM."......".WE LAB
EL THEM 0,1,2,...15.".B....".TO MAKE SPR
ITE #N COLOUR #10".H....".(A LIGHT RED)
WE POKE ANOTHER"......".MAGIC REGISTER I
N THE VIDEO CHIP."".D...."..POKEV+39+N,1
0.:SPRITE #N IS RED!":.63000...&..".MAYB
E WE SHOULD HAVE PICKED A"...0..".COLOUR
.BEFORE. WE MADE THE SPRITE".=.5..".VIS
IBLE! THE LAST THING WE WANT".D.7..".TO
DO IS TO DISPLAY OUR SPRITE"...8..".BEFO
RE IT'S PRESENTABLE!".E.:..".ANYWAY, WE'
LL FIX THAT UP LATER.":MS$." PATIENCE":.
63100.P.?..63000...D..".HOW ABOUT THE PO
SITION ON THE".".N..".SCREEN? WELL THE C
64 HAS 40 COLUMNS".H.X..".OR 'PRINT POSI
TIONS'. EACH IS"...B..".8 'DOTS' WIDE. T
HAT MAKES 40*8=320"
"...C..".DOTS HORIZONTALLY AN
D WE SHOULD"...L..".BE ABLE TO 'POSITION
' OUR SPRITE #N"...V..".IN ANY OF 320 X-
POSITIONS.".5....".ALSO, THE C64 HAS 25
ROWS, EACH "._....".8 DOTS HIGH AND 25*
8=200 SO THERE"......".WILL BE 200 POSSI
BLE Y-POSITIONS"......".FOR OUR SPRITE."
:.63000.Q....".WHERE DO WE PUT THIS X-PO
SITION &"......".Y-POSITION INFORMATION?
"...F..".INTO ANOTHER .V+SOMETHING. REGI
STER.".4.P..".THIS TIME WE:".Y.Z.."..POK
E V+2*N,X:POKE V+2*N+1,Y"......".AS LONG
AS 'X' AND 'Y' ARE BOTH"......".LESS TH
AN 256 WE'RE IN GOOD SHAPE!".F....".IN F
ACT WE COULD:"......"..FOR T=0 TO 500
"......".X=T/2:Y=T/3
".3....".POKE V+2*N,X:POKE V+2*N+1
,Y".^....".NEXT T ":
.63000... ..".HOW ABOUT SOMETHING CUTE L
IKE:"...*.."..FOR T=0 TO 500
".N.4..".X=FNX(T):Y=FNY(T) "..
.>..".POKE V+2*N,X:POKE V+2*N+1,Y"...H..
".NEXT T ".;.R..".TH
EN OUR SPRITE WOULD FOLLOW".C.\..".A CUR
VE GIVEN BY SOME FUNCTIONS"...F..".FNX A
ND FNY, PREVIOUSLY .DEF.INED."...K.MS$."
DEF FNX(X)":.63100:.63000.Z.P..".IF YOU'
D LIKE TO HAVE THE SPRITE".. Z..".AT THE
RIGHT ON THE SCREEN, IN".% ...".PIXEL P
OSITIONS 256 TO 320,".O ...".THEN WE HAV
E TO DO THE FOLLOWING:".. ..."....TELL I
T TO THE VIDEO CHIP!":MS$."NICE CHAP!":.
63100.. ...63000.C ...".YET ANOTHER REGI
STER, AT V+16, HAS".. ...".8 BITS, ONE F
OR EACH OF 8 SPRITES,"..!...".AND FOR SP
RITE #N WE WILL".'!J.."..POKE V+16,2^N".
N!T..".THIS TURNS ON 'BIT #N' SO THAT".{
!...".SPRITE #N WILL BE ABLE TO MOVE THR
U'"..!...".X-POSITIONS 256 TO 320!":MS$.
" 256-320!":.63100:.63000..!..."..NOTE.:
POKE V+16,32 WILL AFFECT THE".."...".X-P
OSITION OF SPRITE #5 BY .ADDING 256".A".
..".TO THE VALUE OF X .POKE.D INTO V+2*5
".J"..."..POKE V+2*5,50:REM X-POS'N IS 5
0".."..."..POKE V+16,32:REM ADD 256".."$
..".THIS PUTS SPRITE #5 IN X-POS'N 306".
Y"%.MS$." .V+16.":.63100:.63000..#).."
.IF YOU WANT SPRITE #0 .AND. SPRITE #3".
4#..."..AND. SPRITE #7 .ALL. 'AT THE RIG
HT'".U#8..".THEN PICK 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".
P#V.."..POKE V+2*7,X7:REM X-POS'N OF #7"
..#`.."..POKE V+16,1+8+128:ADD 256 TO AL
L!".=$E.MS$." .V+2*N.":.63100:.63000:.
".CHOOSE BLOCK 13 & SPRITE 3".E$F.."AND
MAKE ALL 'SHAPE' BYTES=.240."..$G..".. 9
9 B=13:N=3 ".F
$J..".100 FORI=0TO62:X=240:POKE64*B+I,X:
NEXT "..$T..".110 POKE2040+3,B: REM WHE
RE SHAPE IS ".&%~..".120 V=53248:
REM VIDEO CHIP BASE ".V%...".130 POKE V
+39+N,10:REM RED SPRITE "..%...".14
0 POKEV+21,2^N: REM ENABLE SPRITE "..
%...".150 FOR T=0 TO 500 STEP 5
"..%...".160 X=T/2:Y=180+T/5
"..&...".170 POKE V+2*N,X:P
OKE V+2*N+1,Y ".L&...".180 NEXT T
":.4000.J&.
.MS$.". YUM !!! .":.63100..&..."......T
HAT'S FOR ONE SPRITE..N=3":.V.21,0.N&D..
".LET'S HAVE 3 SPRITES..#0, #3 AND #7.":
.63000..'N.."...100 FORI=0TO62:READ X:PO
KE64*B+I,X:NEXT":.2600.>'X.."...110 POKE
2040+0,B: REM #0'SHAPE BLOCK' ":.2610.W
'Y.."....111 POKE2040+3,B: REM #3'SHAPE
BLOCK' ":.2620..'Z..".....112 POKE2040+
7,B: REM #7'SHAPE BLOCK' ":.2630..'..."
......120 V=53248: REM VIDEO CHIP
BASE ":.2640.((...".......130 POKE V+39+
0,10:REM #0 IS RED ":.2650.E(...".
.......131 POKE V+39+3,12:REM #3 IS WHIT
E ":.2660..(...".........132 POKE V+
39+7,14:REM #7 IS BLUE ":.2670..(..
."..........140 POKEV+21,1+8+128:REM ENA
BLE SPRITES":.2680.")..."...........150
FOR T=0 TO 500: TT=T/50 ":.26
90.C)..."............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=100+50*COS(TT)":.272
0.-*..."...............170 POKE V+2*0,X0
:POKE V+2*0+1,Y0 ":.2730.R*..."....
............171 POKE V+2*3,X3:POKE V+2*3
+1,Y3 ":.2740..*..."...............
..172 POKE V+2*7,X7:POKE V+2*7+1,Y7
":.2750..*..."..................180 NEX
T T ".,+...2
760:.12500:MS$." WHEE!!":.63100:.63000:.
2800.T+(.."PUT DATA INTO BLOCK 'B'":.630
00:..|+2.."TELL WHERE #0 SHAPE IS ":.630
00:...+<.."TELL WHERE #3 SHAPE IS ":.630
00:..L+F.."TELL WHERE #7 SHAPE IS ":.630
00:...+P.."REMEMBER THIS NUMBER!!!":.630
00:...,Z.."POKE V+39+N & N=0..OK? ":.630
00:..D,D.."POKE V+39+N & N=3..OK! ":.630
00:..L,N..".....WHAT ELSE?....... ":.630
00:...,X.."TURN THEM ALL ON!!!!!!!":.630
00:...,..."NOW,FOR 500 STEPS OR SO":.630
00:...,..."DEFINE X- AND Y-POS'NS.":.630
00:...-..."FOR #3 TOO ":.630
00:..4- .."AND #7...!?* ":.630
00:..\-..."MOVE SPRITE #0 ":.630
00:...-..."MOVE SPRITE #3 ":.630
00:...-..."MOVE SPRITE #7 ":.630
00:..T-H.."ON TO NEXT T. ":.630
00:......."..OF COURSE WE COULD HAVE THE
SPRITES".!....".EACH A DIFFERENT SHAPE.
".3....".WE COULD:".A...."..FORI=0TO62:R
EAD X:POKE64*B0+I,X:NEXT"......"..FORI=0
TO62:READ X:POKE64*B3+I,X:NEXT"...".."..
FORI=0TO62:READ X:POKE64*B7+I,X:NEXT"...
,..".AND HAVE B0, B3 AND B7 ALL DIFFEREN
T"../6..".THEN WE'D TELL THE C64 WHERE T
HEY ARE:".0/@.."..POKE2040+0,B0".F/A..".
POKE2040+3,B3".\/B..".POKE2040+7,B7".X/E
.MS$." .2040+N.":.63100../J..63000../T.
.".LET'S PLAY WITH THE SPRITE CREATED WI
TH:."../^..". 99 B=13:N=3
"..0H..".100 FORI=0TO62:X=24
0:POKE64*B+I,X:NEXT ".E0R..".110 ETC. ET
C. ETC. ".F0|.N.3:B.
13:T0.500:T1.500:.4100.Q0...63000..0..."
...............TO CHANGE IT'S SIZE".R0..
.".WE POKE ANOTHER .V+SOMETHING. REGISTE
R!":.63000..0...".WE'LL EXPAND THE X-DIM
ENSION:".91...". POKE V+29,2^N
":.63000:.V.29,2.N.A1..."
...WE'LL EXPAND THE Y-DIMENSION:"..1..."
. POKE V+23,2^N
":.63000:.V.23,2.N.L1...".....WE'LL SHRI
NK THE X-DIMENSION:"..2B..". POKE V+2
9,0 ":.63000:.V.2
9,0.72L..".......WE'LL SHRINK THE Y-DIME
NSION:".V2V..". POKE V+23,0
":.63000:.V.23,0..2...6300
0:.V.21,0..2...".WHAT ABOUT THIS .READ X
:POKE 832+I,X.?".K2...".READ WHAT?"..2..
.".A SPRITE, REMEMBER, IS 24 PIXELS WIDE
.".'3...".THAT'S .3. BYTES WHICH THEN GI
VE THE".X3..."..FIRST. OF 21 ROWS OF PIX
EL INFORMATION."..3...".IF THE 3 BYTES W
ERE 255,85 AND 8"..3...".WHICH,IN BINARY
LOOK LIKE A STRING".L3...".OF 1'S AND 0
'S, NAMELY:"..3...".11111111 & 01010101
& 00001000"..4...".OR, SIDE BY SIDE:"..4
...".111111110101010100001000".94...6300
0.Z4...".111111110101010100001000"..4...
".THEN THE FIRST ROW OF PIXELS WOULD BE:
"..4...".QQQQQQQQ Q Q Q Q Q "..4...
63000.O4...".......SEE!":.63000..4F.."..
.......111111110101010100001000"..5K.."^
^^^^^^^ ^ ^ ^ ^ ^ ".?5P.."QQQQQQQQ
Q Q Q Q Q ":.63000.N5Z.."..........
...IF THE NEXT 3 BYTES IN THE"..5..."BLO
CK OF MEMORY WHICH HAS THE 'SHAPE'"..5..
."WERE 170,0,170 THEN:":.63000..5..."...
..............101010100000000010101010".
.6..."Q Q Q Q Q Q Q Q ".76...".<
.170..><..0...><.170..>":.63000.O6..."..
LET'S MAKE A .PACMAN.:":.63000:.".":.700
0:.6900..6...63000:."...................
..........NOW..."..6 .."................
............IN BINARY!":.63000:T.200..7H
.."... 000000001111111100000000..7I..I.
1.T:...7R.." 000001111111111110000000.;
7S..I.1.T:..\7\.." 00001111111111111100
0000.I7]..I.1.T:...7F.." 00011111111111
1111100000..7G..I.1.T:...7P.." 00111111
0000011111110000.E7Q..I.1.T:...7Z.." 01
1111110000011111111000..7{..I.1.T:...8..
." 111111110111011111110000.!8...I.1.T:
..B8..." 111111110111011111100000.O8...
I.1.T:..P8..." 111111111111111111000000
.}8...I.1.T:...8..." 111111111111111110
000000..8...I.1.T:..L8..." 111111111111
111100000000.Y8...I.1.T:...8..." 111111
111111111100000000..9...I.1.T:..(9..."
011111111111111110000000.59A..I.1.T:..V9
J.." 001111111111111111000000.C9K..I.1.
T:...9T.." 000111111111111111100000..9U
..I.1.T:...9..." 0000111111111111111100
00..9...I.1.T:...9..." 0000011111111111
11111000..9...I.1.T:...:..." 0000000111
11111111111100..:...I.1.T:..<:..." 0000
00000111111111111000.I:...I.1.T:..J:..."
000000000001111110000000.W:...I.1.T:..
.:..." 000000000000111000000000..:...I.
1.T:..Y:...63000:.".....................
........PICK OUT"..;$.."................
............THE BYTES!":.63000:T.200.8;.
.."... <...0..><.255..><...0..>.E;/..I.
1.T:..F;8.." <...7..><.255..><.128..>.S
;9..I.1.T:...;B.." <..15..><.255..><.19
2..>..;C..I.1.T:..B;L.." <..31..><.255.
.><.224..>.O;M..I.1.T:...;V.." <..63..>
<...7..><.240..>..;W..I.1.T:...<`.." <.
127..><...7..><.248..>.+<A..I.1.T:..L<J.
." <.255..><.119..><.240..>.Y<K..I.1.T:
..Z<T.." <.255..><.119..><.224..>..<U..
I.1.T:...<~.." <.255..><.255..><.192..>
..<..I.1.T:..V<..." <.255..><.255..><.
128..>..<...I.1.T:...=..." <.255..><.25
5..><...0..>..=...I.1.T:..2=..." <.255.
.><.255..><...0..>.?=...I.1.T:..`=..."
<.127..><.255..><.128..>.M=...I.1.T:...=
..." <..63..><.255..><.192..>..=...I.1.
T:...=..." <..31..><.255..><.224..>.I=.
..I.1.T:...=D.." <..15..><.255..><.240.
.>..=E..I.1.T:...>N.." <...7..><.255..>
<.248..>.%>O..I.1.T:..F>X.." <...1..><.
255..><.252..>.S>Y..I.1.T:..T>..." <...
0..><.127..><.248..>..>...I.1.T:...>..."
<...0..><..31..><.128..>..>...I.1.T:..
P>..." <...0..><..14..><...0..>..>...I.
1.T:...?...63000:.".....................
........NOW... ".??..."................
............PUT THESE ".M?..."..........
..................NUMBERS "..?..."....
........................INTO DATA ".I?..
."............................STATEMENTS
"..?..."..............................TH
EN.. ".%@..."..........................
... READ ".S@..."....................
........ AND "..@..."..............
............... POKE "..@...63000:.".
".B@..."..100 FORI=0TO62:READ X:POKE832+
I,X:NEXT ".Z@..."101 DATA 0,255,0"..@(..
"102 DATA 7,255,128"..A2.."103 DATA 15,2
55,192.)A<..".... ETC. ETC. ETC.".AAF.."
.121 DATA 0,14,0".[AP.MS$." SIMPLE!":.63
100..AZ..63000:.".LET'S DO IT:":Q$.".":.
3931:.10000..A[..".."Q$"100 FORI=0TO62:R
EAD X:POKE832+I,X:NEXT "..A\..Q$"200 POK
E2040+3,13: REM WHERE SHAPE IS ":.GG.1.
3934.-B]..Q$"300 V=53248: REM VIDE
O CHIP BASE ".^B^..Q$"400 POKE V+39+3,10
:REM RED SPRITE #3 "..B_..Q$"500 X=250
:Y=200: REM PICK A POSITION ".HB`..Q$"
600 POKE V+2*3,X:POKE V+2*3+1,Y "
:.GG.1....BA..Q$"700 POKEV+21,2^3: REM
ENABLE SPRITE #3":..GCD..0,255,0,7,255,1
28,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.TCF..63,255,192,31,255,224,15,2
55,240,7,255,248,1,255,252,0,127,248..CG
..0,31,128,0,14,0..C .. SPRITES..D..B.13
:. BLOCK 13. D..N.3 :. SPRITE #0.8D..T0.
0:T1.500:.4100:..VD...I.0.62:X.240:.64.B
.I,X:..WD...2040.N,B: . WHERE SHAPE IS.
.D..V.53248: . VIDEO CHIP BASE..D"
.. V.39.N,10:. RED SPRITE.SD'.. V.2.N,0:
. V.2.N.1,0..D(.. V.29,0:. V.23,0..E,..V
.21,2.N: . ENABLE SPRITE..E6.. T.T0 . T
1 . 5.1E@.X.T.2:Y.100.T.5.KEJ.. V.2.N,X:
. V.2.N.1,Y.SET.. T.YE^...ZE...".":MS$."
AU REVOIR!":.63100..E..."....LOAD"G(34)"
>SPRITES-2"G(34)",8":."....RUN.":..WE...
".. 111111111122222 "..E...".
123456789012345678901234 "..F...". 1"..
F...". 2"..F...". 3".'F...". 4".2F...".
5".=F...". 6".HF...". 7".SF...". 8".^F..
.". 9".IF...".10".TF...".11".F...".12".
.F...".13"..F...".14". F...".15"..F...".
16"..F...".17".AF...".18".LF...".19".WF.
..".20"..F...".21"..F.....GX.."...
QQQQQQQQ..GY.." QQQQQQQQQQQQ.8G
Z.." QQQQQQQQQQQQQQ.TG[.." QQQQ
QQQQQQQQQQQQ.QG\.." QQQQQQ QQQQQQ
Q..G].." QQQQQQQ QQQQQQQQ..G^.."
QQQQQQQQ QQQ QQQQQQQ.HG_.." QQQQQQQQ QQ
Q QQQQQQ..G`.." QQQQQQQQQQQQQQQQQQ..GA.
." QQQQQQQQQQQQQQQQQ..HB.." QQQQQQQQQQ
QQQQQQ./HC.." QQQQQQQQQQQQQQQQ.IHD.."
QQQQQQQQQQQQQQQQ.DHE.." QQQQQQQQQQQQ
QQQQ..HF.." QQQQQQQQQQQQQQQQ..HG.."
QQQQQQQQQQQQQQQQ..HH.." QQQQQ
QQQQQQQQQQQ.ZHI.." QQQQQQQQQQQQQ
QQ..HJ.." QQQQQQQQQQQQ..IK.."
QQQQQQQQ./IL.."
QQQQQQ.5IM..._I.'.63000:.".BETTER STILL
..LET'S ENABLE"..I.'.".SPRITE #3 SO WE C
AN .SEE. IT HAPPEN!"..I$'.".WE'LL SET .V
=53248.".II.'.".AND WE'LL .POKE V+21,2^3
"..I8'.".THEN WE'LL RUN THE PROGRAM:":GG
.1:.3931:Q$.".".$JB'.63000:.".":.3931:.6
3000:V.53248.=JC'.I.0.62:.832.I,240:..KJ
G'.V.6,250:.V.7,200:.V.29,0:.V.23,0:.V.2
1,8..JL'.".....100 FORI=0TO62:READ X:POK
E832+I,X:NEXT "..JQ'.:.I.0.62:. X:.832.I
,X:...JV'."......200 POKE2040+3,13.: TEL
L WHERE SHAPE IS"..K['.2040.3,13:.10500.
=K`'.".......400 POKE V+39+3,1.: SPRITE
#3 IS WHITE ".SKE'. V.39.3,1:.10500..KJ'
."........500 X=200:Y=150.: PICK A POS
ITION "..KO'X.200:Y.150:.10500.RKT'.
".........600 POKE V+2*3,X:POKE V+2*3+1,
Y"..KY'. V.2.3,X:. V.2.3.1,Y:.10500.#L~'
.".PICK A COLOUR # (0 TO 15)";:. C$:C.E(
C$).;L.'. C.0 . C.15 .10110.YL.'.V.39.3,
C:.63000:.V.39.3,1:."..WE DID .N=3:POKE
V+39+N,"C..L.'.63000.CL.'."...PICK AN X-
POSITION";:. X$:X%.E(X$):.X%.0.X%.355.10
140..L.'.X%.255. XH%.8:X%.X%.256..L.'.V.
2.3,X%:.V.16,XH%.5M.'."....WE DID: .N=3:
POKE V+2*N,"X%" POKE V+16,"XH%:.63000.VM
.'.V.16,0:.V.2.3,150:.V.39.3,1..M.'."...
..WHAT WILL .POKE V+29,2^3. DO?":.63000:
.V.29,8.IMD'."......WHAT WILL .POKE V+23
,2^3. DO?":.63000:.V.23,8.TM.).11000..M.
).J.1.3:.". ":.K.1.100:.:.".DONE!".
N.).".DONE!":.K.1.100:.:.:.63000.&N.)..N
N.*.63000:MS$."AU REVOIR!":.".":.63100.Z
N.+."....POKE 53248+21,0:REM TURN OFF!."
:...NT0. SPRITES..N.0.I.0.62:X.240:.832.
I,X:..HN.0.2040,13:.2040.3,13:.2040.7,13
..N.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.EO.1X3.250.T.2:Y3.20
0.T.3.NO.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.BO 1. V.2.7,X7:.
V.2.7.1,Y7.TO$1. T:.V.21,0:...O`.. INITI
ALIZE..PA.BT$.".":.I.1.24:BT$.BT$.".":..
QPB.PT$."...............................
................................"..PC.PT
$.PT$."..............N............M.....
...........============.".UPD.PT$.PT$.".
..............PO..........PO............
...."..QE.PT$.BT$.".....................
...........".PT$.".".<QG.ML$."..........
...........................".OQH.WD.40:C
RT.1024..QI.W2.WD.2:W3.WD.1:W1$.J(D(WD),
2):.53281,6:.53280,6:."."..QJ.V.53248:.I
.0.16:.V.I,0:..MQK..V.23,0:.V.29,0:.I.0.
7:.V.39.I,0:..SQT....Q0..63000..Q1..SD$C
L$:.CL$:.CL$..Q3...4R..."...............
..........HIT .RETURN. TO CONTINUE";.JR.
..A$:.A$.."".63001._R...A$:.A$."".63002.
ER....YR|..T.1.5:.PT$MS$;..R}..PT$"
";..R~..PT$MS$;:...R..".":...R..SD
$."...................":CL$.".
.".)S..SR$."
........................................
"./S......
> CLICK IMAGE PREVIEW FOR FULL MODAL