MAC BASIC
FILE INFORMATION
FILENAME(S): MAC BASIC
FILE TYPE(S): PRG
FILE SIZE: 7K
FIRST SEEN: 2025-12-02 02:14:53
APPEARS ON: 1 disk(s)
FILE HASH
f349005f541fc99de56bddca6bc683a0ef8bbf098d0daa75970e849a0bf03da6
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PANS TAAL 08 | MAC BASIC | PRG | The BAM Archive | 7 | 19 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 4F 08 01 00 8F 47 CF 33 30 30 20 4F 52 20 |..O....G.300 OR |
00000010: 53 54 41 52 54 20 4F 46 20 59 4F 55 52 20 50 52 |START OF YOUR PR|
00000020: 4F 47 52 41 4D 20 27 4D 41 43 42 41 53 49 43 27 |OGRAM 'MACBASIC'|
00000030: 20 2A 43 4F 4E 56 45 52 54 20 4D 45 4D 4F 52 59 | *CONVERT MEMORY|
00000040: 20 54 4F 20 42 41 53 49 43 20 44 41 54 41 2A 00 | TO BASIC DATA*.|
00000050: 66 08 02 00 97 35 33 32 38 31 2C 31 3A 97 35 33 |f....53281,1:.53|
00000060: 32 38 30 2C 31 33 00 72 08 03 00 86 5A 25 28 36 |280,13.r....Z%(6|
00000070: 34 29 00 AE 08 04 00 99 22 20 20 20 20 20 20 20 |4)......" |
00000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 93 22 | ."|
000000A0: 3A 8D 32 30 30 3A 8F 20 42 4F 52 44 45 52 00 D6 |:.200:. BORDER..|
000000B0: 08 05 00 99 A6 31 29 22 11 11 1F 20 20 20 20 20 |.....1)"... |
000000C0: 20 20 20 20 4F 50 54 49 4F 4E 53 20 41 56 41 49 | OPTIONS AVAI|
000000D0: 4C 41 42 4C 45 22 00 01 09 06 00 99 A6 31 29 22 |LABLE".......1)"|
000000E0: 20 20 20 20 20 20 20 20 20 23 23 23 23 23 23 23 | #######|
000000F0: 23 23 23 23 23 23 23 23 23 23 22 3A 99 22 20 11 |##########":." .|
00000100: 22 00 31 09 07 00 99 A6 31 29 22 20 20 49 4E 53 |".1.....1)" INS|
00000110: 54 52 55 43 54 49 4F 4E 53 20 4F 4E 20 55 53 45 |TRUCTIONS ON USE|
00000120: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 31 22 3A |.............1":|
00000130: 99 00 61 09 08 00 99 A6 31 29 22 20 20 53 41 56 |..a.....1)" SAV|
00000140: 45 20 53 50 52 49 54 45 53 20 41 53 20 44 41 54 |E SPRITES AS DAT|
00000150: 41 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 32 22 3A |A............2":|
00000160: 99 00 91 09 09 00 99 A6 31 29 22 20 20 53 41 56 |........1)" SAV|
00000170: 45 20 4D 41 43 48 49 4E 45 20 43 4F 44 45 20 41 |E MACHINE CODE A|
00000180: 53 20 44 41 54 41 2E 2E 2E 2E 2E 2E 2E 33 22 3A |S DATA.......3":|
00000190: 99 00 C1 09 0A 00 99 A6 31 29 22 20 20 44 45 4C |........1)" DEL|
000001A0: 45 54 45 20 44 41 54 41 20 53 54 41 54 45 4D 45 |ETE DATA STATEME|
000001B0: 4E 54 53 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 34 22 3A |NTS..........4":|
000001C0: 99 00 F1 09 0B 00 99 A6 31 29 22 20 20 4C 49 53 |........1)" LIS|
000001D0: 54 20 53 54 41 54 45 4D 45 4E 54 53 20 54 4F 20 |T STATEMENTS TO |
000001E0: 54 41 50 45 2E 2E 2E 2E 2E 2E 2E 2E 2E 35 22 3A |TAPE.........5":|
000001F0: 99 00 21 0A 0C 00 99 A6 31 29 22 20 20 41 53 53 |..!.....1)" ASS|
00000200: 45 4D 42 4C 45 20 44 41 54 41 20 46 52 4F 4D 20 |EMBLE DATA FROM |
00000210: 54 41 50 45 2E 2E 2E 2E 2E 2E 2E 2E 2E 36 22 3A |TAPE.........6":|
00000220: 99 00 51 0A 0D 00 99 A6 31 29 22 20 20 44 45 4C |..Q.....1)" DEL|
00000230: 45 54 45 20 53 54 41 54 45 4D 45 4E 54 53 20 30 |ETE STATEMENTS 0|
00000240: 2D 32 35 35 2E 2E 2E 2E 2E 2E 2E 2E 2E 37 22 3A |-255.........7":|
00000250: 99 00 7B 0A 0E 00 99 A6 31 29 22 20 20 20 20 20 |..{.....1)" |
00000260: 20 20 20 12 4B 45 59 20 49 4E 20 44 45 53 49 52 | .KEY IN DESIR|
00000270: 45 44 20 4F 50 54 49 4F 4E 12 22 00 8D 0A 0F 00 |ED OPTION.".....|
00000280: A1 4B 24 3A 8B 4B 24 B2 22 22 A7 31 35 00 AD 0A |.K$:.K$."".15...|
00000290: 10 00 8B C5 28 4B 24 29 B3 B2 30 B0 C5 28 4B 24 |....(K$)..0..(K$|
000002A0: 29 B1 37 A7 99 22 91 91 22 3A 89 31 34 00 CF 0A |).7.."..":.14...|
000002B0: 11 00 91 C5 28 4B 24 29 8D 32 30 2C 34 30 2C 35 |....(K$).20,40,5|
000002C0: 30 2C 36 30 2C 31 32 30 2C 31 33 30 2C 37 30 00 |0,60,120,130,70.|
000002D0: DE 0A 12 00 8B C5 28 4B 24 29 B2 38 A7 90 00 E4 |......(K$).8....|
000002E0: 0A 13 00 80 00 19 0B 14 00 99 22 93 22 3A 8D 32 |..........".":.2|
000002F0: 30 30 3A 99 22 11 1D 1D 20 20 49 4E 53 54 52 55 |00:."... INSTRU|
00000300: 43 54 49 4F 4E 53 20 4F 4E 20 55 53 45 20 4F 46 |CTIONS ON USE OF|
00000310: 20 55 54 49 4C 49 54 59 22 00 43 0B 15 00 99 A6 | UTILITY".C.....|
00000320: 31 29 22 20 20 20 20 20 2A 2A 2A 2A 2A 2A 2A 2A |1)" ********|
00000330: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000340: 2A 2A 22 00 77 0B 16 00 99 A6 31 29 22 11 11 11 |**".w.....1)"...|
00000350: 2E 53 50 52 49 54 45 53 20 41 52 45 20 53 41 56 |.SPRITES ARE SAV|
00000360: 45 44 20 41 53 20 44 41 54 41 20 53 54 41 54 45 |ED AS DATA STATE|
00000370: 4D 45 4E 54 53 2E 22 00 A8 0B 17 00 99 A6 31 29 |MENTS.".......1)|
00000380: 22 2E 53 50 52 49 54 45 53 20 30 2D 34 37 20 52 |".SPRITES 0-47 R|
00000390: 41 4D 20 41 44 44 52 45 53 53 20 31 32 32 38 38 |AM ADDRESS 12288|
000003A0: 2D 31 35 33 36 30 2E 22 00 D9 0B 18 00 99 A6 31 |-15360.".......1|
000003B0: 29 22 2E 4F 52 20 4D 41 43 48 49 4E 45 20 43 4F |)".OR MACHINE CO|
000003C0: 44 45 20 43 41 4E 20 42 45 20 53 41 56 45 44 20 |DE CAN BE SAVED |
000003D0: 41 53 20 44 41 54 41 2E 22 00 0A 0C 19 00 99 A6 |AS DATA.".......|
000003E0: 31 29 22 2E 44 41 54 41 20 53 54 41 54 45 4D 45 |1)".DATA STATEME|
000003F0: 4E 54 53 20 43 41 4E 20 41 4C 53 4F 20 42 45 20 |NTS CAN ALSO BE |
00000400: 44 45 4C 45 54 45 44 20 2E 22 00 3B 0C 1A 00 99 |DELETED .".;....|
00000410: A6 31 29 22 2E 54 48 45 20 52 45 53 54 20 4F 46 |.1)".THE REST OF|
00000420: 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 4D 41 | THIS PROGRAM MA|
00000430: 59 20 45 56 45 4E 20 42 45 2E 22 00 6C 0C 1B 00 |Y EVEN BE.".l...|
00000440: 99 A6 31 29 22 2E 44 45 4C 45 54 45 44 20 49 46 |..1)".DELETED IF|
00000450: 20 52 45 51 55 49 52 45 44 2E 54 48 49 53 20 4C | REQUIRED.THIS L|
00000460: 45 41 56 45 53 20 4F 4E 4C 59 2E 22 00 9D 0C 1C |EAVES ONLY."....|
00000470: 00 99 A6 31 29 22 2E 44 41 54 41 20 53 54 41 54 |...1)".DATA STAT|
00000480: 45 4D 45 4E 54 53 20 46 4F 52 20 55 53 45 52 20 |EMENTS FOR USER |
00000490: 50 52 4F 47 52 41 4D 4D 49 4E 47 2E 22 00 CC 0C |PROGRAMMING."...|
000004A0: 1D 00 99 A6 31 29 22 20 20 20 20 20 20 20 11 11 |....1)" ..|
000004B0: 12 20 20 54 4F 20 43 52 45 41 54 45 20 4E 45 57 |. TO CREATE NEW|
000004C0: 20 50 52 4F 47 52 41 4D 20 20 92 22 00 F9 0C 1E | PROGRAM ."....|
000004D0: 00 99 A6 31 29 22 20 11 57 41 49 54 20 46 4F 52 |...1)" .WAIT FOR|
000004E0: 20 52 45 41 44 59 20 54 4F 20 53 54 4F 50 20 46 | READY TO STOP F|
000004F0: 4C 41 53 48 49 4E 47 20 22 00 26 0D 1F 00 99 A6 |LASHING ".&.....|
00000500: 31 29 22 20 49 4E 20 54 48 49 53 20 4D 4F 44 45 |1)" IN THIS MODE|
00000510: 2C 54 48 45 4E 20 53 41 56 45 20 44 41 54 41 20 |,THEN SAVE DATA |
00000520: 54 41 50 45 2E 22 00 53 0D 20 00 99 A6 31 29 22 |TAPE.".S. ...1)"|
00000530: 20 4C 4F 41 44 20 4E 45 57 20 44 41 54 41 20 41 | LOAD NEW DATA A|
00000540: 4E 44 20 4B 45 59 20 49 4E 20 50 52 4F 47 52 41 |ND KEY IN PROGRA|
00000550: 4D 2E 22 00 7E 0D 21 00 99 A6 31 29 22 20 20 20 |M.".~.!...1)" |
00000560: 20 20 20 20 20 20 11 12 20 41 4E 59 20 4B 45 59 | .. ANY KEY|
00000570: 20 54 4F 20 43 4F 4E 54 49 4E 55 45 92 22 00 90 | TO CONTINUE."..|
00000580: 0D 25 00 A1 4B 24 3A 8B 4B 24 B2 22 22 A7 33 37 |.%..K$:.K$."".37|
00000590: 00 97 0D 26 00 89 34 00 B8 0D 28 00 99 22 93 11 |...&..4...(.."..|
000005A0: 11 11 20 20 20 20 53 50 52 49 54 45 53 20 30 2D |.. SPRITES 0-|
000005B0: 34 37 22 3A 8D 32 30 30 00 F6 0D 29 00 99 A6 34 |47":.200...)...4|
000005C0: 29 22 12 46 49 52 53 54 20 53 50 52 49 54 45 20 |)".FIRST SPRITE |
000005D0: 4E 4F 2E 20 20 92 9D 9D 22 3B 3A 4E B2 30 3A 8D |NO. ...";:N.0:.|
000005E0: 37 35 3A 53 39 B2 4E 3A 8B 53 39 B1 34 37 B0 53 |75:S9.N:.S9.47.S|
000005F0: 39 B3 30 A7 34 31 00 38 0E 2A 00 99 A6 31 29 22 |9.0.41.8.*...1)"|
00000600: 11 11 20 20 20 46 4F 52 20 43 4F 4E 53 45 43 55 |.. FOR CONSECU|
00000610: 54 49 56 45 20 53 50 52 49 54 45 53 22 3A 99 A6 |TIVE SPRITES":..|
00000620: 34 29 22 12 4E 4F 2E 4F 46 20 53 50 52 49 54 45 |4)".NO.OF SPRITE|
00000630: 20 20 20 92 9D 9D 22 3B 00 5F 0E 2B 00 4E B2 30 | ...";._.+.N.0|
00000640: 3A 8D 37 35 3A 53 33 B2 4E 3A 8B 28 34 38 AB 53 |:.75:S3.N:.(48.S|
00000650: 39 AB 53 33 29 B3 30 B0 53 33 B3 31 A7 34 32 00 |9.S3).0.S3.1.42.|
00000660: 88 0E 2C 00 99 A6 31 29 22 11 11 20 20 20 44 41 |..,...1)".. DA|
00000670: 54 41 20 53 54 41 54 45 4D 45 4E 54 53 20 3E 20 |TA STATEMENTS > |
00000680: 32 39 39 22 3A 4E B2 30 00 C3 0E 2D 00 99 A6 31 |299":N.0...-...1|
00000690: 29 22 20 20 20 12 53 54 41 52 54 20 4F 46 20 44 |)" .START OF D|
000006A0: 41 54 41 20 20 20 20 20 20 92 9D 9D 9D 9D 22 3B |ATA .....";|
000006B0: 3A 8D 37 35 3A 44 30 B2 4E 3A 8B 4E B3 33 30 30 |:.75:D0.N:.N.300|
000006C0: A7 34 34 00 05 0F 2E 00 53 B2 31 32 37 38 38 AA |.44.....S.12788.|
000006D0: 36 34 AC 53 39 3A 53 36 B2 B5 28 53 AD 32 35 36 |64.S9:S6..(S.256|
000006E0: 29 3A 53 37 B2 B5 28 53 AB 53 36 AC 32 35 36 29 |):S7..(S.S6.256)|
000006F0: 3A 53 33 B2 53 33 AC 36 34 3A 4F 50 B2 30 3A 97 |:S3.S3.64:OP.0:.|
00000700: 38 32 38 2C 30 00 31 0F 2F 00 45 B2 30 3A 97 38 |828,0.1./.E.0:.8|
00000710: 32 39 2C 30 3A 53 38 B2 B5 28 53 33 AD 32 35 36 |29,0:S8..(S3.256|
00000720: 29 3A 53 39 B2 B5 28 53 33 AB 53 38 AC 32 35 36 |):S9..(S3.S8.256|
00000730: 29 00 6A 0F 30 00 97 38 33 30 2C 53 38 3A 97 38 |).j.0..830,S8:.8|
00000740: 33 31 2C 53 39 3A 44 38 B2 B5 28 44 30 AD 32 35 |31,S9:D8..(D0.25|
00000750: 36 29 3A 44 39 B2 B5 28 44 30 AB 44 38 AC 32 35 |6):D9..(D0.D8.25|
00000760: 36 29 3A 97 38 33 32 2C 44 38 00 8D 0F 31 00 97 |6):.832,D8...1..|
00000770: 38 33 33 2C 44 39 3A 97 38 33 34 2C 53 36 3A 97 |833,D9:.834,S6:.|
00000780: 38 33 35 2C 53 37 3A 8D 38 30 3A 89 34 00 AE 0F |835,S7:.80:.4...|
00000790: 32 00 99 22 93 11 11 11 20 20 20 20 52 41 4D 20 |2..".... RAM |
000007A0: 54 4F 20 44 41 54 41 20 22 3A 8D 32 30 30 00 E1 |TO DATA ":.200..|
000007B0: 0F 33 00 99 A6 34 29 22 12 53 54 41 52 54 20 41 |.3...4)".START A|
000007C0: 44 44 52 45 53 53 20 20 20 20 20 20 92 9D 9D 9D |DDRESS ....|
000007D0: 9D 9D 22 3B 3A 4E B2 30 3A 8D 37 35 3A 52 39 B2 |..";:N.0:.75:R9.|
000007E0: 4E 00 2C 10 34 00 99 A6 31 29 22 11 11 20 20 20 |N.,.4...1)".. |
000007F0: 43 4F 4E 53 45 43 55 54 49 56 45 20 41 44 44 52 |CONSECUTIVE ADDR|
00000800: 45 53 53 45 53 20 20 22 3A 99 A6 34 29 22 12 4E |ESSES ":..4)".N|
00000810: 4F 2E 4F 46 20 41 44 44 52 45 53 53 45 53 20 20 |O.OF ADDRESSES |
00000820: 20 20 20 20 92 9D 9D 9D 9D 9D 22 3B 00 3D 10 35 | ......";.=.5|
00000830: 00 4E B2 30 3A 8D 37 35 3A 53 33 B2 4E 00 66 10 |.N.0:.75:S3.N.f.|
00000840: 36 00 99 A6 31 29 22 11 11 20 20 20 44 41 54 41 |6...1)".. DATA|
00000850: 20 53 54 41 54 45 4D 45 4E 54 53 20 3E 20 32 39 | STATEMENTS > 29|
00000860: 39 22 3A 4E B2 30 00 9E 10 37 00 99 A6 31 29 22 |9":N.0...7...1)"|
00000870: 20 20 20 12 53 54 41 52 54 20 4F 46 20 44 41 54 | .START OF DAT|
00000880: 41 20 20 20 20 92 9D 9D 9D 22 3B 3A 8D 37 35 3A |A ....";:.75:|
00000890: 44 30 B2 4E 3A 8B 4E B3 33 30 30 A7 35 34 00 D9 |D0.N:.N.300.54..|
000008A0: 10 38 00 53 B2 52 39 3A 53 36 B2 B5 28 53 AD 32 |.8.S.R9:S6..(S.2|
000008B0: 35 36 29 3A 53 37 B2 B5 28 53 AB 53 36 AC 32 35 |56):S7..(S.S6.25|
000008C0: 36 29 3A 4F 50 B2 30 3A 97 38 32 38 2C 30 3A 45 |6):OP.0:.828,0:E|
000008D0: B2 30 3A 97 38 32 39 2C 30 00 FA 10 39 00 53 38 |.0:.829,0...9.S8|
000008E0: B2 B5 28 53 33 AD 32 35 36 29 3A 53 39 B2 B5 28 |..(S3.256):S9..(|
000008F0: 53 33 AB 53 38 AC 32 35 36 29 00 33 11 3A 00 97 |S3.S8.256).3.:..|
00000900: 38 33 30 2C 53 38 3A 97 38 33 31 2C 53 39 3A 44 |830,S8:.831,S9:D|
00000910: 38 B2 B5 28 44 30 AD 32 35 36 29 3A 44 39 B2 B5 |8..(D0.256):D9..|
00000920: 28 44 30 AB 44 38 AC 32 35 36 29 3A 97 38 33 32 |(D0.D8.256):.832|
00000930: 2C 44 38 00 56 11 3B 00 97 38 33 33 2C 44 39 3A |,D8.V.;..833,D9:|
00000940: 97 38 33 34 2C 53 36 3A 97 38 33 35 2C 53 37 3A |.834,S6:.835,S7:|
00000950: 8D 38 30 3A 89 34 00 78 11 3C 00 99 22 93 11 11 |.80:.4.x.<.."...|
00000960: 11 11 20 20 20 20 44 45 4C 45 54 45 20 44 41 54 |.. DELETE DAT|
00000970: 41 20 22 3A 8D 32 30 30 00 AB 11 3D 00 99 A6 34 |A ":.200...=...4|
00000980: 29 22 12 53 54 41 52 54 20 44 41 54 41 3E 32 39 |)".START DATA>29|
00000990: 39 92 22 3B 3A 4E B2 30 3A 8D 37 35 3A 44 30 B2 |9.";:N.0:.75:D0.|
000009A0: 4E 3A 8B 4E B3 33 30 30 A7 36 30 00 F0 11 3E 00 |N:.N.300.60...>.|
000009B0: 99 A6 31 29 22 11 11 20 43 4F 4E 53 45 43 55 54 |..1)".. CONSECUT|
000009C0: 49 56 45 20 53 54 41 54 45 4D 45 4E 54 53 A0 22 |IVE STATEMENTS."|
000009D0: 3A 99 A6 34 29 22 20 20 20 20 20 12 4E 4F 2C 4F |:..4)" .NO,O|
000009E0: 46 20 53 54 41 54 45 4D 45 4E 54 53 92 20 22 3B |F STATEMENTS. ";|
000009F0: 00 01 12 3F 00 4E B2 30 3A 8D 37 35 3A 53 33 B2 |...?.N.0:.75:S3.|
00000A00: 4E 00 3C 12 40 00 53 B2 30 3A 53 36 B2 B5 28 53 |N.<.@.S.0:S6..(S|
00000A10: AD 32 35 36 29 3A 53 37 B2 B5 28 53 AB 53 36 AC |.256):S7..(S.S6.|
00000A20: 32 35 36 29 3A 4F 50 B2 31 3A 97 38 32 38 2C 4F |256):OP.1:.828,O|
00000A30: 50 3A 45 B2 30 3A 97 38 32 39 2C 30 00 5D 12 41 |P:E.0:.829,0.].A|
00000A40: 00 53 38 B2 B5 28 53 33 AD 32 35 36 29 3A 53 39 |.S8..(S3.256):S9|
00000A50: B2 B5 28 53 33 AB 53 38 AC 32 35 36 29 00 96 12 |..(S3.S8.256)...|
00000A60: 42 00 97 38 33 30 2C 53 38 3A 97 38 33 31 2C 53 |B..830,S8:.831,S|
00000A70: 39 3A 44 38 B2 B5 28 44 30 AD 32 35 36 29 3A 44 |9:D8..(D0.256):D|
00000A80: 39 B2 B5 28 44 30 AB 44 38 AC 32 35 36 29 3A 97 |9..(D0.D8.256):.|
00000A90: 38 33 32 2C 44 38 00 B9 12 43 00 97 38 33 33 2C |832,D8...C..833,|
00000AA0: 44 39 3A 97 38 33 34 2C 53 36 3A 97 38 33 35 2C |D9:.834,S6:.835,|
00000AB0: 53 37 3A 8D 38 30 3A 89 34 00 F9 12 46 00 97 38 |S7:.80:.4...F..8|
00000AC0: 33 39 2C 30 3A 99 22 93 22 3A 8D 32 30 30 3A 99 |39,0:.".":.200:.|
00000AD0: A6 31 29 22 11 11 20 52 45 4D 45 4D 42 45 52 20 |.1)".. REMEMBER |
00000AE0: 54 48 49 53 20 4F 50 54 49 4F 4E 20 44 45 4C 45 |THIS OPTION DELE|
00000AF0: 54 45 53 20 54 48 49 53 22 00 27 13 47 00 99 A6 |TES THIS".'.G...|
00000B00: 31 29 22 20 50 52 4F 47 52 41 4D 20 41 4E 44 20 |1)" PROGRAM AND |
00000B10: 4C 45 41 56 45 53 20 59 4F 55 52 20 53 54 41 54 |LEAVES YOUR STAT|
00000B20: 45 4D 45 4E 54 53 22 00 71 13 48 00 99 A6 31 29 |EMENTS".q.H...1)|
00000B30: 22 20 41 53 53 45 4D 42 4C 45 44 20 41 42 4F 56 |" ASSEMBLED ABOV|
00000B40: 45 20 32 39 39 2E 11 11 11 9D 9D 9D 9D 9D 9D 9D |E 299...........|
00000B50: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 12 41 4E 59 20 |............ANY |
00000B60: 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 92 |KEY TO CONTINUE.|
00000B70: 22 00 83 13 49 00 A1 4B 24 3A 8B 4B 24 B2 22 22 |"...I..K$:.K$.""|
00000B80: A7 37 33 00 8C 13 4A 00 89 32 31 30 00 95 13 4B |.73...J..210...K|
00000B90: 00 4E 4E B2 30 00 A7 13 4C 00 A1 4B 24 3A 8B 4B |.NN.0...L..K$:.K|
00000BA0: 24 B2 22 22 A7 37 36 00 CF 13 4D 00 8B 4B 24 B2 |$."".76...M..K$.|
00000BB0: C7 28 32 30 29 A7 4E B2 30 3A 81 55 B2 31 A4 4E |.(20).N.0:.U.1.N|
00000BC0: 4E 3A 99 22 9D 9D 22 3B 3A 82 55 3A 89 37 35 00 |N:."..";:.U:.75.|
00000BD0: EC 13 4E 00 4E 4E B2 4E 4E AA 31 3A 99 4B 24 3B |..N.NN.NN.1:.K$;|
00000BE0: 3A 8B 4B 24 B2 C7 28 31 33 29 A7 8E 00 01 14 4F |:.K$..(13).....O|
00000BF0: 00 4E B2 4E AC 31 30 AA C5 28 4B 24 29 3A 89 37 |.N.N.10..(K$):.7|
00000C00: 36 00 19 14 50 00 8F 2A 2A 2A 4D 41 49 4E 20 52 |6...P..***MAIN R|
00000C10: 4F 55 54 49 4E 45 2A 2A 2A 00 3C 14 51 00 8F 2A |OUTINE***.<.Q..*|
00000C20: 53 3D 53 54 41 52 54 20 52 41 4D 2A 20 2A 44 4F |S=START RAM* *DO|
00000C30: 3D 53 54 41 52 54 20 44 41 54 41 2A 00 7C 14 52 |=START DATA*.|.R|
00000C40: 00 53 34 B2 30 3A 97 38 33 36 2C 53 34 3A 53 35 |.S4.0:.836,S4:S5|
00000C50: B2 30 3A 97 38 33 37 2C 53 35 3A 8F 2A 53 33 3D |.0:.837,S5:.*S3=|
00000C60: 4E 4F 20 4F 46 20 52 41 4D 53 2A 20 2A 44 31 3D |NO OF RAMS* *D1=|
00000C70: 4E 4F 20 4F 46 20 4C 49 4E 45 53 2A 00 B2 14 53 |NO OF LINES*...S|
00000C80: 00 4F 50 B2 C2 28 38 32 38 29 3A 53 38 B2 C2 28 |.OP..(828):S8..(|
00000C90: 38 33 30 29 3A 53 39 B2 C2 28 38 33 31 29 3A 44 |830):S9..(831):D|
00000CA0: 38 B2 C2 28 38 33 32 29 3A 44 39 B2 C2 28 38 33 |8..(832):D9..(83|
00000CB0: 33 29 00 F7 14 54 00 53 36 B2 C2 28 38 33 34 29 |3)...T.S6..(834)|
00000CC0: 3A 53 37 B2 C2 28 38 33 35 29 3A 53 34 B2 C2 28 |:S7..(835):S4..(|
00000CD0: 38 33 36 29 3A 53 35 B2 C2 28 38 33 37 29 3A 54 |836):S5..(837):T|
00000CE0: B2 53 34 AC 32 35 36 AA 53 35 3A 53 33 B2 53 38 |.S4.256.S5:S3.S8|
00000CF0: AC 32 35 36 AA 53 39 00 34 15 55 00 50 B2 B5 28 |.256.S9.4.U.P..(|
00000D00: 54 AD 36 34 29 3A 51 B2 B5 28 54 AB 50 AC 36 34 |T.64):Q..(T.P.64|
00000D10: 29 3A 42 B2 B5 28 51 AD 31 36 29 3A 52 B2 B5 28 |):B..(Q.16):R..(|
00000D20: 51 AB 42 AC 31 36 29 3A 44 30 B2 44 38 AC 32 35 |Q.B.16):D0.D8.25|
00000D30: 36 AA 44 39 00 52 15 56 00 58 B2 44 30 3A 59 B2 |6.D9.R.V.X.D0:Y.|
00000D40: 31 3A 56 B2 38 33 32 3A 57 B2 38 33 33 3A 8D 32 |1:V.832:W.833:.2|
00000D50: 30 35 00 95 15 57 00 53 33 B2 53 38 AC 32 35 36 |05...W.S3.S8.256|
00000D60: AA 53 39 3A 44 30 B2 44 38 AC 32 35 36 AA 44 39 |.S9:D0.D8.256.D9|
00000D70: 3A 53 B2 53 36 AC 32 35 36 AA 53 37 3A 58 B2 53 |:S.S6.256.S7:X.S|
00000D80: 3A 59 B2 30 3A 56 B2 38 33 34 3A 57 B2 38 33 35 |:Y.0:V.834:W.835|
00000D90: 3A 8D 32 30 35 00 B1 15 58 00 81 49 B2 30 A4 36 |:.205...X..I.0.6|
00000DA0: 33 3A 5A 25 28 49 29 B2 C2 28 53 AA 49 29 3A 82 |3:Z%(I)..(S.I):.|
00000DB0: 49 00 BD 15 59 00 8B 42 B3 33 A7 39 31 00 EB 15 |I...Y..B.3.91...|
00000DC0: 5A 00 58 B2 53 3A 59 B2 36 34 3A 56 B2 38 33 34 |Z.X.S:Y.64:V.834|
00000DD0: 3A 57 B2 38 33 35 3A 8D 32 30 35 3A 8F 20 2A 41 |:W.835:.205:. *A|
00000DE0: 44 44 20 36 34 20 54 4F 20 53 2A 00 18 16 5B 00 |DD 64 TO S*...[.|
00000DF0: 99 22 93 22 3B 3A 99 22 13 22 44 30 3B 3A 8B 4F |.".";:."."D0;:.O|
00000E00: 50 B3 B1 30 A7 4F 50 B2 4F 50 AA 31 3A 97 38 32 |P..0.OP.OP.1:.82|
00000E10: 38 2C 4F 50 3A 89 39 37 00 26 16 5C 00 99 22 9D |8,OP:.97.&.\..".|
00000E20: 44 41 54 41 22 3B 00 63 16 5D 00 81 4A B2 30 A4 |DATA";.c.]..J.0.|
00000E30: 31 34 3A 41 24 B2 C4 28 5A 25 28 4A AA 42 AC 31 |14:A$..(Z%(J.B.1|
00000E40: 36 29 29 3A 41 24 B2 C9 28 41 24 2C C3 28 41 24 |6)):A$..(A$,.(A$|
00000E50: 29 AB 31 29 3A 99 41 24 3B 22 2C 22 3B 3A 54 B2 |).1):.A$;",";:T.|
00000E60: 54 AA 31 00 7C 16 5E 00 8B 54 B1 B2 53 33 A7 97 |T.1.|.^..T..S3..|
00000E70: 38 32 39 2C 31 3A 99 3A 89 31 31 30 00 B4 16 5F |829,1:.:.110..._|
00000E80: 00 82 4A 3A 54 B2 54 AA 31 3A 41 24 B2 C4 28 5A |..J:T.T.1:A$..(Z|
00000E90: 25 28 42 AC 31 36 AA 31 35 29 29 3A 99 41 24 3A |%(B.16.15)):.A$:|
00000EA0: 8B 54 B1 B2 53 33 A7 97 38 32 39 2C 31 3A 99 3A |.T..S3..829,1:.:|
00000EB0: 89 31 31 30 00 BD 16 60 00 89 31 31 30 00 EB 16 |.110...`..110...|
00000EC0: 61 00 8B 4F 50 B1 53 33 A7 45 B2 31 3A 97 38 32 |a..OP.S3.E.1:.82|
00000ED0: 39 2C 45 20 20 20 20 20 20 20 20 20 20 20 20 20 |9,E |
00000EE0: 20 20 20 39 38 99 3A 89 31 31 30 00 F7 16 64 00 | 98.:.110...d.|
00000EF0: 86 5A 25 28 36 34 29 00 0C 17 65 00 45 B2 C2 28 |.Z%(64)...e.E..(|
00000F00: 38 32 39 29 3A 8B 45 B2 30 A7 38 33 00 13 17 66 |829):.E.0.83...f|
00000F10: 00 89 34 00 30 17 6E 00 58 B2 54 3A 59 B2 30 3A |..4.0.n.X.T:Y.0:|
00000F20: 56 B2 38 33 36 3A 57 B2 38 33 37 3A 8D 32 30 35 |V.836:W.837:.205|
00000F30: 00 42 17 6F 00 99 22 52 55 4E 20 31 30 30 3A 22 |.B.o.."RUN 100:"|
00000F40: 3B 42 00 75 17 70 00 97 36 33 31 2C 31 39 3A 97 |;B.u.p..631,19:.|
00000F50: 36 33 32 2C 31 33 3A 97 36 33 33 2C 31 33 3A 97 |632,13:.633,13:.|
00000F60: 36 33 34 2C 31 33 3A 97 36 33 35 2C 31 33 3A 97 |634,13:.635,13:.|
00000F70: 31 39 38 2C 35 00 7B 17 71 00 80 00 A3 17 78 00 |198,5.{.q.....x.|
00000F80: 99 22 93 11 11 11 20 20 4C 49 53 54 20 50 52 4F |.".... LIST PRO|
00000F90: 47 52 41 4D 20 54 4F 20 54 41 50 45 20 22 3A 8D |GRAM TO TAPE ":.|
00000FA0: 32 30 30 00 CE 17 79 00 99 A6 34 29 22 12 53 54 |200...y...4)".ST|
00000FB0: 41 52 54 20 4C 49 4E 45 20 4E 4F 2E 20 20 92 22 |ART LINE NO. ."|
00000FC0: 3B 3A 4E B2 30 3A 8D 37 35 3A 53 39 B2 4E 00 0C |;:N.0:.75:S9.N..|
00000FD0: 18 7A 00 99 A6 31 29 22 11 11 20 4C 49 53 54 20 |.z...1)".. LIST |
00000FE0: 50 52 4F 47 52 41 4D 20 54 4F 20 4F 4E 4C 59 20 |PROGRAM TO ONLY |
00000FF0: 20 22 3A 99 A6 34 29 22 12 46 49 4E 41 4C 20 4C | ":..4)".FINAL L|
00001000: 49 4E 45 20 4E 4F 2E 20 20 92 22 3B 00 1D 18 7B |INE NO. .";...{|
00001010: 00 4E B2 30 3A 8D 37 35 3A 53 33 B2 4E 00 3D 18 |.N.0:.75:S3.N.=.|
00001020: 7C 00 85 22 93 11 11 11 11 12 54 41 50 45 20 54 ||.."......TAPE T|
00001030: 49 54 4C 45 20 20 20 92 22 3B 4E 46 24 00 6F 18 |ITLE .";NF$.o.|
00001040: 7D 00 99 C7 28 31 34 37 29 3A 99 22 13 4F 50 45 |}...(147):.".OPE|
00001050: 4E 31 2C 31 2C 31 2C 4E 46 24 3A 43 4D 44 31 3A |N1,1,1,NF$:CMD1:|
00001060: 4C 49 53 54 22 3B 53 39 3B 22 2D 22 3B 53 33 00 |LIST";S9;"-";S3.|
00001070: 8F 18 7E 00 99 22 11 11 50 52 49 4E 54 23 31 3A |..~.."..PRINT#1:|
00001080: 43 4C 4F 53 45 31 3A 47 4F 54 4F 31 32 39 22 00 |CLOSE1:GOTO129".|
00001090: B9 18 7F 00 97 36 33 31 2C 31 39 3A 81 49 39 B2 |.....631,19:.I9.|
000010A0: 30 A4 36 3A 97 36 33 32 AA 49 39 2C 31 33 3A 82 |0.6:.632.I9,13:.|
000010B0: 49 39 3A 97 31 39 38 2C 34 00 BF 18 80 00 80 00 |I9:.198,4.......|
000010C0: C6 18 81 00 89 34 00 EC 18 82 00 99 22 93 11 11 |.....4......"...|
000010D0: 11 11 20 20 52 45 41 44 20 50 52 4F 47 52 41 4D |.. READ PROGRAM|
000010E0: 20 46 52 4F 4D 20 54 41 50 45 A0 22 00 0B 19 83 | FROM TAPE."....|
000010F0: 00 85 22 11 11 20 20 12 54 41 50 45 20 54 49 54 |..".. .TAPE TIT|
00001100: 4C 45 20 20 20 92 22 3B 4E 46 24 00 28 19 84 00 |LE .";NF$.(...|
00001110: 9F 31 2C 31 2C 30 2C 4E 46 24 3A 4B B2 30 3A 4B |.1,1,0,NF$:K.0:K|
00001120: 39 B2 30 3A 4B 38 B2 30 00 32 19 86 00 99 22 93 |9.0:K8.0.2....".|
00001130: 13 22 00 55 19 87 00 A1 23 31 2C 59 24 3A 59 B2 |.".U....#1,Y$:Y.|
00001140: C6 28 59 24 AA C7 28 30 29 29 3A 97 32 30 30 30 |.(Y$..(0)):.2000|
00001150: 30 AA 4B 2C 59 00 7F 19 88 00 8B 53 54 B2 36 34 |0.K,Y......ST.64|
00001160: A7 A0 31 3A 81 4C B2 31 A4 34 3A 97 32 30 30 30 |..1:.L.1.4:.2000|
00001170: 30 AA 4B AA 4C 2C 30 3A 82 4C 3A 89 31 34 30 00 |0.K.L,0:.L:.140.|
00001180: 93 19 8A 00 99 59 24 3B 3A 4B B2 4B AA 31 3A 89 |.....Y$;:K.K.1:.|
00001190: 31 33 35 00 9B 19 8C 00 4B B2 30 00 A6 19 8D 00 |135.....K.0.....|
000011A0: 99 22 93 13 22 3B 00 C3 19 8E 00 59 B2 C2 28 32 |."..";.....Y..(2|
000011B0: 30 30 30 30 AA 4B 29 3A 8B 59 B2 30 B0 59 B2 31 |0000.K):.Y.0.Y.1|
000011C0: 30 A7 32 00 00 1A 8F 00 59 24 B2 C7 28 59 29 3A |0.2.....Y$..(Y):|
000011D0: 4B B2 4B AA 31 3A 4B 39 B2 B5 28 4B AD 32 35 36 |K.K.1:K9..(K.256|
000011E0: 29 3A 4B 38 B2 B5 28 4B AB 4B 39 AC 32 35 36 29 |):K8..(K.K9.256)|
000011F0: 3A 97 38 32 30 2C 4B 39 3A 97 38 32 31 2C 4B 38 |:.820,K9:.821,K8|
00001200: 00 12 1A 90 00 8B 59 24 B2 C7 28 31 33 29 A7 31 |......Y$..(13).1|
00001210: 34 37 00 20 1A 91 00 99 59 24 3B 3A 89 31 34 32 |47. ....Y$;:.142|
00001220: 00 42 1A 93 00 99 3A 99 22 52 55 4E 20 31 35 30 |.B....:."RUN 150|
00001230: 3A 52 45 4D 20 50 4C 45 41 53 45 20 57 41 49 54 |:REM PLEASE WAIT|
00001240: A0 22 00 68 1A 94 00 97 36 33 31 2C 31 39 3A 81 |.".h....631,19:.|
00001250: 49 B2 30 A4 34 3A 97 36 33 32 AA 49 2C 31 33 3A |I.0.4:.632.I,13:|
00001260: 82 3A 97 31 39 38 2C 35 00 6E 1A 95 00 80 00 97 |.:.198,5.n......|
00001270: 1A 96 00 4B 39 B2 C2 28 38 32 30 29 3A 4B 38 B2 |...K9..(820):K8.|
00001280: C2 28 38 32 31 29 3A 4B B2 4B 39 AC 32 35 36 AA |.(821):K.K9.256.|
00001290: 4B 38 3A 99 22 93 22 00 A0 1A 99 00 89 31 34 32 |K8:."."......142|
000012A0: 00 E5 1A C8 00 53 30 B2 31 30 32 34 3A 43 30 B2 |.....S0.1024:C0.|
000012B0: 34 30 3A 42 30 B2 35 34 32 37 32 3A 81 43 31 B2 |40:B0.54272:.C1.|
000012C0: 30 A4 33 39 3A 53 31 B2 53 30 AA 43 31 3A 53 32 |0.39:S1.S0.C1:S2|
000012D0: B2 53 30 AA 43 31 AA 43 30 AC 32 34 3A 8D 32 30 |.S0.C1.C0.24:.20|
000012E0: 32 3A 82 43 31 00 18 1B C9 00 81 43 31 B2 31 A4 |2:.C1......C1.1.|
000012F0: 32 33 3A 53 31 B2 53 30 AA 43 30 AC 43 31 3A 53 |23:S1.S0.C0.C1:S|
00001300: 32 B2 53 30 AA 43 30 AC 43 31 AA 33 39 3A 8D 32 |2.S0.C0.C1.39:.2|
00001310: 30 32 3A 82 43 31 3A 8E 00 40 1B CA 00 97 53 32 |02:.C1:..@....S2|
00001320: 2C 32 31 34 3A 97 53 32 AA 42 30 2C 35 3A 97 53 |,214:.S2.B0,5:.S|
00001330: 31 2C 32 31 34 3A 97 53 31 AA 42 30 2C 35 3A 8E |1,214:.S1.B0,5:.|
00001340: 00 73 1B CD 00 58 B2 58 AA 59 3A 58 38 B2 B5 28 |.s...X.X.Y:X8..(|
00001350: 58 AD 32 35 36 29 3A 58 39 B2 B5 28 58 AB 58 38 |X.256):X9..(X.X8|
00001360: AC 32 35 36 29 3A 97 56 2C 58 38 3A 97 57 2C 58 |.256):.V,X8:.W,X|
00001370: 39 3A 8E 00 90 1B D2 00 49 B2 C2 28 38 33 39 29 |9:......I..(839)|
00001380: 3A 99 22 93 22 3A 8B 49 B1 32 30 36 A7 32 31 34 |:.".":.I.206.214|
00001390: 00 CC 1B D3 00 99 22 93 22 49 3A 49 B2 49 AA 31 |......"."I:I.I.1|
000013A0: 3A 97 38 33 39 2C 49 3A 99 22 52 55 4E 20 32 31 |:.839,I:."RUN 21|
000013B0: 30 3A 52 45 4D 20 57 41 49 54 20 46 4F 52 20 43 |0:REM WAIT FOR C|
000013C0: 4C 45 41 52 20 53 43 52 45 45 4E 22 00 FF 1B D4 |LEAR SCREEN"....|
000013D0: 00 97 36 33 31 2C 31 39 3A 97 36 33 32 2C 31 33 |..631,19:.632,13|
000013E0: 3A 97 36 33 33 2C 31 33 3A 97 36 33 34 2C 31 33 |:.633,13:.634,13|
000013F0: 3A 97 36 33 35 2C 31 33 3A 97 31 39 38 2C 35 00 |:.635,13:.198,5.|
00001400: 05 1C D5 00 80 00 2C 1C D6 00 81 49 B2 32 31 30 |......,....I.210|
00001410: A4 32 31 36 3A 99 49 3A 82 3A 99 22 50 52 49 4E |.216:.I:.:."PRIN|
00001420: 54 20 43 48 52 24 28 31 34 37 29 22 00 53 1C D7 |T CHR$(147)".S..|
00001430: 00 97 36 33 31 2C 31 39 3A 81 49 B2 31 A4 39 3A |..631,19:.I.1.9:|
00001440: 97 36 33 31 AA 49 2C 31 33 3A 82 3A 97 31 39 38 |.631.I,13:.:.198|
00001450: 2C 31 32 00 59 1C D8 00 80 00 92 1C 4D 01 83 32 |,12.Y.......M..2|
00001460: 35 35 2C 30 2C 32 35 35 2C 32 35 35 2C 32 35 35 |55,0,255,255,255|
00001470: 2C 30 2C 32 35 35 2C 30 2C 32 35 35 2C 30 2C 32 |,0,255,0,255,0,2|
00001480: 35 35 2C 39 36 2C 32 35 35 2C 30 2C 32 35 35 2C |55,96,255,0,255,|
00001490: 20 30 00 C8 1C 4E 01 83 32 35 35 2C 30 2C 32 35 | 0...N..255,0,25|
000014A0: 35 2C 30 2C 32 35 35 2C 30 2C 32 35 35 2C 30 2C |5,0,255,0,255,0,|
000014B0: 32 35 35 2C 30 2C 32 35 35 2C 30 2C 32 35 35 2C |255,0,255,0,255,|
000014C0: 30 2C 32 35 35 2C 20 30 00 FE 1C 4F 01 83 32 35 |0,255, 0...O..25|
000014D0: 35 2C 30 2C 32 35 35 2C 30 2C 32 35 35 2C 30 2C |5,0,255,0,255,0,|
000014E0: 32 35 35 2C 30 2C 32 35 35 2C 30 2C 32 35 35 2C |255,0,255,0,255,|
000014F0: 30 2C 32 35 35 2C 30 2C 32 35 35 2C 20 30 00 36 |0,255,0,255, 0.6|
00001500: 1D 50 01 83 32 35 35 2C 30 2C 32 35 35 2C 32 35 |.P..255,0,255,25|
00001510: 35 2C 32 35 35 2C 30 2C 32 35 35 2C 30 2C 32 35 |5,255,0,255,0,25|
00001520: 35 2C 30 2C 32 35 35 2C 30 2C 32 35 35 2C 30 2C |5,0,255,0,255,0,|
00001530: 32 35 35 2C 20 30 00 6D 1D 51 01 83 32 35 35 2C |255, 0.m.Q..255,|
00001540: 30 2C 32 35 35 2C 30 2C 32 35 35 2C 30 2C 32 35 |0,255,0,255,0,25|
00001550: 35 2C 39 33 2C 32 35 35 2C 30 2C 32 35 35 2C 30 |5,93,255,0,255,0|
00001560: 2C 32 35 35 2C 30 2C 32 35 35 2C 20 30 00 A3 1D |,255,0,255, 0...|
00001570: 52 01 83 32 35 35 2C 30 2C 32 35 35 2C 30 2C 32 |R..255,0,255,0,2|
00001580: 35 35 2C 30 2C 32 35 35 2C 30 2C 32 35 35 2C 30 |55,0,255,0,255,0|
00001590: 2C 32 35 35 2C 30 2C 32 35 35 2C 30 2C 32 35 35 |,255,0,255,0,255|
000015A0: 2C 20 30 00 D9 1D 53 01 83 32 35 35 2C 38 2C 32 |, 0...S..255,8,2|
000015B0: 35 35 2C 30 2C 32 35 35 2C 30 2C 32 35 35 2C 30 |55,0,255,0,255,0|
000015C0: 2C 32 35 35 2C 30 2C 32 35 35 2C 30 2C 32 35 35 |,255,0,255,0,255|
000015D0: 2C 30 2C 32 35 35 2C 20 30 00 0F 1E 54 01 83 32 |,0,255, 0...T..2|
000015E0: 35 35 2C 30 2C 32 35 35 2C 30 2C 32 35 35 2C 30 |55,0,255,0,255,0|
000015F0: 2C 32 35 35 2C 30 2C 32 35 35 2C 30 2C 32 35 35 |,255,0,255,0,255|
00001600: 2C 30 2C 32 35 35 2C 30 2C 32 35 35 2C 20 30 00 |,0,255,0,255, 0.|
00001610: 48 1E 55 01 83 32 35 35 2C 30 2C 32 35 35 2C 31 |H.U..255,0,255,1|
00001620: 38 2C 32 35 35 2C 32 35 35 2C 32 35 35 2C 30 2C |8,255,255,255,0,|
00001630: 32 35 35 2C 30 2C 32 32 33 2C 30 2C 32 35 35 2C |255,0,223,0,255,|
00001640: 30 2C 32 35 35 2C 20 30 00 7E 1E 56 01 83 32 35 |0,255, 0.~.V..25|
00001650: 35 2C 30 2C 32 35 35 2C 30 2C 32 35 35 2C 30 2C |5,0,255,0,255,0,|
00001660: 32 35 35 2C 30 2C 32 35 35 2C 30 2C 32 35 35 2C |255,0,255,0,255,|
00001670: 30 2C 32 35 35 2C 30 2C 32 35 35 2C 20 30 00 B6 |0,255,0,255, 0..|
00001680: 1E 57 01 83 32 35 35 2C 30 2C 32 35 35 2C 32 35 |.W..255,0,255,25|
00001690: 35 2C 32 35 35 2C 30 2C 32 35 35 2C 30 2C 32 35 |5,255,0,255,0,25|
000016A0: 35 2C 30 2C 32 35 35 2C 30 2C 32 35 35 2C 30 2C |5,0,255,0,255,0,|
000016B0: 32 35 35 2C 20 30 00 EC 1E 58 01 83 32 35 35 2C |255, 0...X..255,|
000016C0: 30 2C 32 35 35 2C 30 2C 32 35 35 2C 30 2C 32 35 |0,255,0,255,0,25|
000016D0: 35 2C 30 2C 32 35 35 2C 30 2C 32 35 35 2C 30 2C |5,0,255,0,255,0,|
000016E0: 32 35 35 2C 30 2C 32 35 35 2C 20 30 00 22 1F 59 |255,0,255, 0.".Y|
000016F0: 01 83 32 35 35 2C 30 2C 32 35 35 2C 30 2C 32 35 |..255,0,255,0,25|
00001700: 35 2C 30 2C 32 35 35 2C 30 2C 32 35 35 2C 30 2C |5,0,255,0,255,0,|
00001710: 32 35 35 2C 30 2C 32 35 35 2C 30 2C 32 35 35 2C |255,0,255,0,255,|
00001720: 20 30 00 59 1F 5A 01 83 32 35 35 2C 30 2C 32 35 | 0.Y.Z..255,0,25|
00001730: 35 2C 31 36 2C 32 35 35 2C 30 2C 32 35 35 2C 30 |5,16,255,0,255,0|
00001740: 2C 32 35 35 2C 30 2C 32 35 35 2C 30 2C 32 35 35 |,255,0,255,0,255|
00001750: 2C 30 2C 32 35 35 2C 20 30 00 90 1F 5B 01 83 32 |,0,255, 0...[..2|
00001760: 35 35 2C 30 2C 32 35 35 2C 36 34 2C 32 35 35 2C |55,0,255,64,255,|
00001770: 30 2C 32 35 35 2C 30 2C 31 32 37 2C 30 2C 32 35 |0,255,0,127,0,25|
00001780: 35 2C 30 2C 32 35 35 2C 30 2C 32 35 35 2C 20 30 |5,0,255,0,255, 0|
00001790: 00 C7 1F 5C 01 83 32 35 35 2C 30 2C 32 35 35 2C |...\..255,0,255,|
000017A0: 33 32 2C 32 35 35 2C 30 2C 32 35 35 2C 30 2C 32 |32,255,0,255,0,2|
000017B0: 35 35 2C 30 2C 32 35 35 2C 30 2C 32 35 35 2C 30 |55,0,255,0,255,0|
000017C0: 2C 32 35 35 2C 20 30 00 00 20 5D 01 83 32 35 35 |,255, 0.. ]..255|
000017D0: 2C 30 2C 32 35 35 2C 32 35 35 2C 32 35 35 2C 30 |,0,255,255,255,0|
000017E0: 2C 32 35 35 2C 30 2C 32 35 35 2C 30 2C 32 35 35 |,255,0,255,0,255|
000017F0: 2C 39 36 2C 32 35 35 2C 30 2C 32 35 35 2C 20 30 |,96,255,0,255, 0|
00001800: 00 36 20 5E 01 83 32 35 35 2C 30 2C 32 35 35 2C |.6 ^..255,0,255,|
00001810: 30 2C 32 35 35 2C 30 2C 32 35 35 2C 30 2C 32 35 |0,255,0,255,0,25|
00001820: 35 2C 30 2C 32 35 35 2C 30 2C 32 35 35 2C 30 2C |5,0,255,0,255,0,|
00001830: 32 35 35 2C 20 30 00 6C 20 5F 01 83 32 35 35 2C |255, 0.l _..255,|
00001840: 30 2C 32 35 35 2C 30 2C 32 35 35 2C 30 2C 32 35 |0,255,0,255,0,25|
00001850: 35 2C 30 2C 32 35 35 2C 30 2C 32 35 35 2C 30 2C |5,0,255,0,255,0,|
00001860: 32 35 35 2C 30 2C 32 35 35 2C 20 30 00 A4 20 60 |255,0,255, 0.. `|
00001870: 01 83 32 35 35 2C 30 2C 32 35 35 2C 32 32 33 2C |..255,0,255,223,|
00001880: 32 35 35 2C 30 2C 32 35 35 2C 30 2C 32 35 35 2C |255,0,255,0,255,|
00001890: 30 2C 32 35 35 2C 30 2C 32 35 35 2C 30 2C 32 35 |0,255,0,255,0,25|
000018A0: 35 2C 20 30 00 DB 20 61 01 83 32 35 35 2C 30 2C |5, 0.. a..255,0,|
000018B0: 32 35 35 2C 30 2C 32 35 35 2C 30 2C 32 35 35 2C |255,0,255,0,255,|
000018C0: 39 33 2C 32 35 35 2C 30 2C 32 35 35 2C 30 2C 32 |93,255,0,255,0,2|
000018D0: 35 35 2C 30 2C 32 35 35 2C 20 30 00 11 21 62 01 |55,0,255, 0..!b.|
000018E0: 83 32 35 35 2C 30 2C 32 35 35 2C 30 2C 32 35 35 |.255,0,255,0,255|
000018F0: 2C 30 2C 32 35 35 2C 30 2C 32 35 35 2C 30 2C 32 |,0,255,0,255,0,2|
00001900: 35 35 2C 30 2C 32 35 35 2C 30 2C 32 35 35 2C 20 |55,0,255,0,255, |
00001910: 30 00 47 21 63 01 83 32 35 35 2C 30 2C 32 35 35 |0.G!c..255,0,255|
00001920: 2C 30 2C 32 35 35 2C 30 2C 32 35 35 2C 30 2C 32 |,0,255,0,255,0,2|
00001930: 35 35 2C 30 2C 32 35 35 2C 30 2C 32 35 35 2C 30 |55,0,255,0,255,0|
00001940: 2C 32 35 35 2C 20 30 00 7D 21 64 01 83 32 35 35 |,255, 0.}!d..255|
00001950: 2C 30 2C 32 35 35 2C 30 2C 32 35 35 2C 30 2C 32 |,0,255,0,255,0,2|
00001960: 35 35 2C 30 2C 32 35 35 2C 30 2C 32 35 35 2C 30 |55,0,255,0,255,0|
00001970: 2C 32 35 35 2C 30 2C 32 35 35 2C 20 30 00 B4 21 |,255,0,255, 0..!|
00001980: 65 01 83 32 35 35 2C 30 2C 32 35 35 2C 32 2C 32 |e..255,0,255,2,2|
00001990: 35 35 2C 32 32 33 2C 32 35 35 2C 30 2C 32 35 35 |55,223,255,0,255|
000019A0: 2C 30 2C 39 35 2C 30 2C 32 35 35 2C 30 2C 32 35 |,0,95,0,255,0,25|
000019B0: 35 2C 20 30 00 E5 21 BC 01 83 34 37 2C 36 33 2C |5, 0..!...47,63,|
000019C0: 30 2C 31 37 30 2C 31 37 37 2C 31 34 35 2C 31 37 |0,170,177,145,17|
000019D0: 39 2C 30 2C 35 38 2C 30 2C 30 2C 30 2C 30 2C 30 |9,0,58,0,0,0,0,0|
000019E0: 2C 30 2C 20 30 00 14 22 BD 01 83 30 2C 36 34 2C |,0, 0.."...0,64,|
000019F0: 30 2C 30 2C 32 30 2C 30 2C 32 35 2C 32 32 2C 30 |0,0,20,0,25,22,0|
00001A00: 2C 31 30 2C 31 31 38 2C 31 36 33 2C 30 2C 30 2C |,10,118,163,0,0,|
00001A10: 30 2C 20 30 00 45 22 BE 01 83 30 2C 30 2C 31 30 |0, 0.E"...0,0,10|
00001A20: 37 2C 33 35 2C 32 34 32 2C 31 2C 36 34 2C 30 2C |7,35,242,1,64,0,|
00001A30: 32 2C 30 2C 30 2C 31 2C 38 2C 31 39 33 2C 33 34 |2,0,0,1,8,193,34|
00001A40: 2C 20 31 31 32 00 7C 22 BF 01 83 33 35 2C 34 32 |, 112.|"...35,42|
00001A50: 2C 33 36 2C 30 2C 31 36 30 2C 31 39 33 2C 31 35 |,36,0,160,193,15|
00001A60: 39 2C 30 2C 31 36 30 2C 38 38 2C 30 2C 31 31 33 |9,0,160,88,0,113|
00001A70: 2C 30 2C 31 36 35 2C 32 31 2C 20 30 00 AC 22 C0 |,0,165,21, 0..".|
00001A80: 01 83 30 2C 30 2C 38 2C 31 2C 32 2C 37 33 2C 30 |..0,0,8,1,2,73,0|
00001A90: 2C 32 31 31 2C 33 35 2C 32 34 31 2C 33 35 2C 32 |,211,35,241,35,2|
00001AA0: 35 35 2C 31 39 2C 30 2C 30 2C 20 30 00 DA 22 C1 |55,19,0,0, 0..".|
00001AB0: 01 83 32 35 2C 30 2C 30 2C 33 2C 37 36 2C 31 33 |..25,0,0,3,76,13|
00001AC0: 2C 31 38 34 2C 30 2C 31 35 2C 33 36 2C 31 2C 33 |,184,0,15,36,1,3|
00001AD0: 35 2C 30 2C 30 2C 30 2C 20 31 00 0A 23 C2 01 83 |5,0,0,0, 1..#...|
00001AE0: 33 36 2C 31 33 35 2C 30 2C 30 2C 30 2C 31 30 31 |36,135,0,0,0,101|
00001AF0: 2C 30 2C 30 2C 30 2C 31 33 35 2C 31 32 38 2C 30 |,0,0,0,135,128,0|
00001B00: 2C 30 2C 30 2C 30 2C 20 36 30 00 45 23 C3 01 83 |,0,0,0, 60.E#...|
00001B10: 30 2C 30 2C 30 2C 32 33 30 2C 31 32 32 2C 32 30 |0,0,0,230,122,20|
00001B20: 38 2C 32 2C 32 33 30 2C 31 32 33 2C 31 37 33 2C |8,2,230,123,173,|
00001B30: 31 37 38 2C 32 31 2C 32 30 31 2C 35 38 2C 31 37 |178,21,201,58,17|
00001B40: 36 2C 20 31 30 00 83 23 C4 01 83 32 30 31 2C 33 |6, 10..#...201,3|
00001B50: 32 2C 32 34 30 2C 32 33 39 2C 35 36 2C 32 33 33 |2,240,239,56,233|
00001B60: 2C 34 38 2C 35 36 2C 32 33 33 2C 32 30 38 2C 39 |,48,56,233,208,9|
00001B70: 36 2C 31 32 38 2C 37 39 2C 31 39 39 2C 38 32 2C |6,128,79,199,82,|
00001B80: 20 38 38 00 BA 23 67 2B 83 33 32 2C 32 35 35 2C | 88..#g+.32,255,|
00001B90: 30 2C 32 35 35 2C 30 2C 32 35 35 2C 30 2C 32 35 |0,255,0,255,0,25|
00001BA0: 35 2C 30 2C 32 35 35 2C 30 2C 32 35 35 2C 30 2C |5,0,255,0,255,0,|
00001BB0: 32 35 35 2C 30 2C 20 32 35 35 00 F3 23 68 2B 83 |255,0, 255..#h+.|
00001BC0: 32 35 35 2C 32 35 35 2C 30 2C 32 35 35 2C 30 2C |255,255,0,255,0,|
00001BD0: 32 35 35 2C 30 2C 32 35 35 2C 39 36 2C 32 35 35 |255,0,255,96,255|
00001BE0: 2C 30 2C 32 35 35 2C 30 2C 32 35 35 2C 30 2C 20 |,0,255,0,255,0, |
00001BF0: 32 35 35 00 29 24 69 2B 83 30 2C 32 35 35 2C 30 |255.)$i+.0,255,0|
00001C00: 2C 32 35 35 2C 30 2C 32 35 35 2C 30 2C 32 35 35 |,255,0,255,0,255|
00001C10: 2C 30 2C 32 35 35 2C 30 2C 32 35 35 2C 30 2C 32 |,0,255,0,255,0,2|
00001C20: 35 35 2C 30 2C 20 32 35 35 00 00 00 30 32 |55,0, 255...02 |
..O....GO300 OR START OF YOUR PROGRAM 'M
ACBASIC' *CONVERT MEMORY TO BASIC DATA*.
F....53281,1:.53280,13.R....Z%(64)......
" ."
:.200:. BORDER.V.....1)"... OPTI
ONS AVAILABLE".......1)" #######
##########":." .".1.....1)" INSTRUCTION
S ON USE.............1":..A.....1)" SAV
E SPRITES AS DATA............2":........
1)" SAVE MACHINE CODE AS DATA.......3":
..A.....1)" DELETE DATA STATEMENTS.....
.....4":........1)" LIST STATEMENTS TO
TAPE.........5":..!.....1)" ASSEMBLE DA
TA FROM TAPE.........6":..Q.....1)" DEL
ETE STATEMENTS 0-255.........7":..{.....
1)" .KEY IN DESIRED OPTION.".....
.K$:.K$."".15......E(K$)..0.E(K$).7.."..
":.14.O....E(K$).20,40,50,60,120,130,70.
.....E(K$).8..............".":.200:."...
INSTRUCTIONS ON USE OF UTILITY".C.....
1)" **************************".W...
..1)"....SPRITES ARE SAVED AS DATA STATE
MENTS.".......1)".SPRITES 0-47 RAM ADDRE
SS 12288-15360.".Y.....1)".OR MACHINE CO
DE CAN BE SAVED AS DATA.".......1)".DATA
STATEMENTS CAN ALSO BE DELETED .".;....
.1)".THE REST OF THIS PROGRAM MAY EVEN B
E.".L.....1)".DELETED IF REQUIRED.THIS L
EAVES ONLY.".......1)".DATA STATEMENTS F
OR USER PROGRAMMING.".L.....1)" ..
. TO CREATE NEW PROGRAM .".......1)" .
WAIT FOR READY TO STOP FLASHING ".&.....
1)" IN THIS MODE,THEN SAVE DATA TAPE.".S
. ...1)" LOAD NEW DATA AND KEY IN PROGRA
M.".~.!...1)" .. ANY KEY TO CONT
INUE."...%..K$:.K$."".37...&..4...(.."..
.. SPRITES 0-47":.200...)...4)".FIRST
SPRITE NO. ...";:N.0:.75:S9.N:.S9.47.S
9.0.41.8.*...1)".. FOR CONSECUTIVE SPR
ITES":..4)".NO.OF SPRITE ...";._.+.N.0
:.75:S3.N:.(48.S9.S3).0.S3.1.42...,...1)
".. DATA STATEMENTS > 299":N.0.C.-...1
)" .START OF DATA .....";:.75:D0.
N:.N.300.44.....S.12788.64.S9:S6..(S.256
):S7..(S.S6.256):S3.S3.64:OP.0:.828,0.1.
/.E.0:.829,0:S8..(S3.256):S9..(S3.S8.256
).J.0..830,S8:.831,S9:D8..(D0.256):D9..(
D0.D8.256):.832,D8...1..833,D9:.834,S6:.
835,S7:.80:.4...2..".... RAM TO DATA
":.200...3...4)".START ADDRESS ....
..";:N.0:.75:R9.N.,.4...1)".. CONSECUT
IVE ADDRESSES ":..4)".NO.OF ADDRESSES
......";.=.5.N.0:.75:S3.N.F.6...1)".
. DATA STATEMENTS > 299":N.0...7...1)"
.START OF DATA ....";:.75:D0.N:.N.
300.54.Y.8.S.R9:S6..(S.256):S7..(S.S6.25
6):OP.0:.828,0:E.0:.829,0...9.S8..(S3.25
6):S9..(S3.S8.256).3.:..830,S8:.831,S9:D
8..(D0.256):D9..(D0.D8.256):.832,D8.V.;.
.833,D9:.834,S6:.835,S7:.80:.4.X.<.."...
.. DELETE DATA ":.200...=...4)".START
DATA>299.";:N.0:.75:D0.N:.N.300.60...>.
..1)".. CONSECUTIVE STATEMENTS ":..4)"
.NO,OF STATEMENTS. ";...?.N.0:.75:S3.
N.<.@.S.0:S6..(S.256):S7..(S.S6.256):OP.
1:.828,OP:E.0:.829,0.].A.S8..(S3.256):S9
..(S3.S8.256)...B..830,S8:.831,S9:D8..(D
0.256):D9..(D0.D8.256):.832,D8...C..833,
D9:.834,S6:.835,S7:.80:.4...F..839,0:.".
":.200:..1)".. REMEMBER THIS OPTION DELE
TES THIS".'.G...1)" PROGRAM AND LEAVES Y
OUR STATEMENTS".Q.H...1)" ASSEMBLED ABOV
E 299.......................ANY KEY TO C
ONTINUE."...I..K$:.K$."".73...J..210...K
.NN.0...L..K$:.K$."".76.O.M..K$.G(20).N.
0:.U.1.NN:."..";:.U:.75...N.NN.NN.1:.K$;
:.K$.G(13).....O.N.N.10.E(K$):.76...P..*
**MAIN ROUTINE***.<.Q..*S=START RAM* *DO
=START DATA*.|.R.S4.0:.836,S4:S5.0:.837,
S5:.*S3=NO OF RAMS* *D1=NO OF LINES*...S
.OP.B(828):S8.B(830):S9.B(831):D8.B(832)
:D9.B(833)...T.S6.B(834):S7.B(835):S4.B(
836):S5.B(837):T.S4.256.S5:S3.S8.256.S9.
4.U.P..(T.64):Q..(T.P.64):B..(Q.16):R..(
Q.B.16):D0.D8.256.D9.R.V.X.D0:Y.1:V.832:
W.833:.205...W.S3.S8.256.S9:D0.D8.256.D9
:S.S6.256.S7:X.S:Y.0:V.834:W.835:.205...
X..I.0.63:Z%(I).B(S.I):.I...Y..B.3.91...
Z.X.S:Y.64:V.834:W.835:.205:. *ADD 64 TO
S*...[..".";:."."D0;:.OP..0.OP.OP.1:.82
8,OP:.97.&.\..".DATA";.C.]..J.0.14:A$.D(
Z%(J.B.16)):A$.I(A$,C(A$).1):.A$;",";:T.
T.1.|.^..T..S3..829,1:.:.110..._..J:T.T.
1:A$.D(Z%(B.16.15)):.A$:.T..S3..829,1:.:
.110...`..110...A..OP.S3.E.1:.829,E
98.:.110...D..Z%(64)...E.E.B(
829):.E.0.83...F..4.0.N.X.T:Y.0:V.836:W.
837:.205.B.O.."RUN 100:";B.U.P..631,19:.
632,13:.633,13:.634,13:.635,13:.198,5.{.
Q.....X..".... LIST PROGRAM TO TAPE ":.
200.N.Y...4)".START LINE NO. .";:N.0:.7
5:S9.N...Z...1)".. LIST PROGRAM TO ONLY
":..4)".FINAL LINE NO. .";...{.N.0:.75
:S3.N.=.|.."......TAPE TITLE .";NF$.O.
}..G(147):.".OPEN1,1,1,NF$:CMD1:LIST";S9
;"-";S3...~.."..PRINT#1:CLOSE1:GOTO129".
....631,19:.I9.0.6:.632.I9,13:.I9:.198,
4.......F....4......"..... READ PROGRAM
FROM TAPE "......".. .TAPE TITLE .";
NF$.(....1,1,0,NF$:K.0:K9.0:K8.0.2....".
.".U....#1,Y$:Y.F(Y$.G(0)):.20000.K,Y..
...ST.64. 1:.L.1.4:.20000.K.L,0:.L:.140.
.....Y$;:K.K.1:.135.....K.0......"..";.C
...Y.B(20000.K):.Y.0.Y.10.2.....Y$.G(Y):
K.K.1:K9..(K.256):K8..(K.K9.256):.820,K9
:.821,K8......Y$.G(13).147. ....Y$;:.142
.B....:."RUN 150:REM PLEASE WAIT ".H....
631,19:.I.0.4:.632.I,13:.:.198,5.N......
...K9.B(820):K8.B(821):K.K9.256.K8:.".".
....142...H.S0.1024:C0.40:B0.54272:.C1.
0.39:S1.S0.C1:S2.S0.C1.C0.24:.202:.C1...
I..C1.1.23:S1.S0.C0.C1:S2.S0.C0.C1.39:.2
02:.C1:..@.J..S2,214:.S2.B0,5:.S1,214:.S
1.B0,5:..S.M.X.X.Y:X8..(X.256):X9..(X.X8
.256):.V,X8:.W,X9:....R.I.B(839):.".":.I
.206.214.L.S.."."I:I.I.1:.839,I:."RUN 21
0:REM WAIT FOR CLEAR SCREEN"...T..631,19
:.632,13:.633,13:.634,13:.635,13:.198,5.
..U...,.V..I.210.216:.I:.:."PRINT CHR$(1
47)".S.W..631,19:.I.1.9:.631.I,13:.:.198
,12.Y.X.....M..255,0,255,255,255,0,255,0
,255,0,255,96,255,0,255, 0.H.N..255,0,25
5,0,255,0,255,0,255,0,255,0,255,0,255, 0
...O..255,0,255,0,255,0,255,0,255,0,255,
0,255,0,255, 0.6.P..255,0,255,255,255,0,
255,0,255,0,255,0,255,0,255, 0.M.Q..255,
0,255,0,255,0,255,93,255,0,255,0,255,0,2
55, 0...R..255,0,255,0,255,0,255,0,255,0
,255,0,255,0,255, 0.Y.S..255,8,255,0,255
,0,255,0,255,0,255,0,255,0,255, 0...T..2
55,0,255,0,255,0,255,0,255,0,255,0,255,0
,255, 0.H.U..255,0,255,18,255,255,255,0,
255,0,223,0,255,0,255, 0.~.V..255,0,255,
0,255,0,255,0,255,0,255,0,255,0,255, 0..
.W..255,0,255,255,255,0,255,0,255,0,255,
0,255,0,255, 0...X..255,0,255,0,255,0,25
5,0,255,0,255,0,255,0,255, 0.".Y..255,0,
255,0,255,0,255,0,255,0,255,0,255,0,255,
0.Y.Z..255,0,255,16,255,0,255,0,255,0,2
55,0,255,0,255, 0...[..255,0,255,64,255,
0,255,0,127,0,255,0,255,0,255, 0.G.\..25
5,0,255,32,255,0,255,0,255,0,255,0,255,0
,255, 0.. ]..255,0,255,255,255,0,255,0,2
55,0,255,96,255,0,255, 0.6 ^..255,0,255,
0,255,0,255,0,255,0,255,0,255,0,255, 0.L
_..255,0,255,0,255,0,255,0,255,0,255,0,
255,0,255, 0.. `..255,0,255,223,255,0,25
5,0,255,0,255,0,255,0,255, 0.. A..255,0,
255,0,255,0,255,93,255,0,255,0,255,0,255
, 0..!B..255,0,255,0,255,0,255,0,255,0,2
55,0,255,0,255, 0.G!C..255,0,255,0,255,0
,255,0,255,0,255,0,255,0,255, 0.}!D..255
,0,255,0,255,0,255,0,255,0,255,0,255,0,2
55, 0..!E..255,0,255,2,255,223,255,0,255
,0,95,0,255,0,255, 0..!...47,63,0,170,17
7,145,179,0,58,0,0,0,0,0,0, 0.."...0,64,
0,0,20,0,25,22,0,10,118,163,0,0,0, 0.E".
..0,0,107,35,242,1,64,0,2,0,0,1,8,193,34
, 112.|"...35,42,36,0,160,193,159,0,160,
88,0,113,0,165,21, 0.."...0,0,8,1,2,73,0
,211,35,241,35,255,19,0,0, 0.Z"A..25,0,0
,3,76,13,184,0,15,36,1,35,0,0,0, 1..#B..
36,135,0,0,0,101,0,0,0,135,128,0,0,0,0,
60.E#C..0,0,0,230,122,208,2,230,123,173,
178,21,201,58,176, 10..#D..201,32,240,23
9,56,233,48,56,233,208,96,128,79,199,82,
88..#G+.32,255,0,255,0,255,0,255,0,255,
0,255,0,255,0, 255..#H+.255,255,0,255,0,
255,0,255,96,255,0,255,0,255,0, 255.)$I+
.0,255,0,255,0,255,0,255,0,255,0,255,0,2
55,0, 255...02
> CLICK IMAGE PREVIEW FOR FULL MODAL