MACBASIC
FILE INFORMATION
FILENAME(S): MACBASIC
FILE TYPE(S): PRG
FILE SIZE: 4.9K
FIRST SEEN: 2025-11-30 21:05:15
APPEARS ON: 2 disk(s)
FILE HASH
0bbba4bdccad735a356c8bd60106cb1e2377cfb78fa0a984185468ad44442d91
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TOOLS BREER | MACBASIC | PRG | DuncanTwain | 5 | 7 | DOWNLOAD FILE |
| TOOLS BREER | MACBASIC | PRG | DuncanTwain | 5 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 4C 08 01 00 8F 20 47 4F 54 4F 33 30 30 20 |..L.... GOTO300 |
00000010: 4F 52 20 53 54 41 52 54 20 4F 46 20 59 4F 55 52 |OR START OF YOUR|
00000020: 20 50 52 4F 47 52 41 4D 20 20 2A 2A 20 43 4F 4E | PROGRAM ** CON|
00000030: 56 45 52 54 20 4D 45 4D 4F 52 59 20 54 4F 20 42 |VERT MEMORY TO B|
00000040: 41 53 49 43 20 44 41 54 41 20 2A 2A 00 63 08 02 |ASIC DATA **.c..|
00000050: 00 97 35 33 32 38 31 2C 31 3A 97 35 33 32 38 30 |..53281,1:.53280|
00000060: 2C 31 33 00 6F 08 03 00 86 5A 25 28 36 34 29 00 |,13.o....Z%(64).|
00000070: 86 08 04 00 99 22 93 22 3A 8D 32 30 30 3A 8F 20 |.....".":.200:. |
00000080: 42 4F 52 44 45 52 00 AC 08 05 00 99 22 1D 11 11 |BORDER......"...|
00000090: 1F 20 20 20 20 20 20 20 20 20 4F 50 54 49 4F 4E |. OPTION|
000000A0: 53 20 41 56 41 49 4C 41 42 4C 45 22 00 D3 08 06 |S AVAILABLE"....|
000000B0: 00 99 22 1D 20 20 20 20 20 20 20 20 20 2A 2A 2A |..". ***|
000000C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 3A 99 |*************":.|
000000D0: 22 11 22 00 FE 08 07 00 99 22 1D 49 4E 53 54 52 |"."......".INSTR|
000000E0: 55 43 54 49 4F 4E 53 20 4F 4E 20 55 53 45 2E 2E |UCTIONS ON USE..|
000000F0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 31 22 3A 99 00 29 |..........1":..)|
00000100: 09 08 00 99 22 1D 53 41 56 45 20 53 50 52 49 54 |....".SAVE SPRIT|
00000110: 45 53 20 41 53 20 44 41 54 41 2E 2E 2E 2E 2E 2E |ES AS DATA......|
00000120: 2E 2E 2E 2E 2E 32 22 3A 99 00 54 09 09 00 99 22 |.....2":..T...."|
00000130: 1D 53 41 56 45 20 4D 41 43 48 49 4E 45 2D 43 4F |.SAVE MACHINE-CO|
00000140: 44 45 20 41 53 20 44 41 54 41 2E 2E 2E 2E 2E 2E |DE AS DATA......|
00000150: 33 22 3A 99 00 7F 09 0A 00 99 22 1D 44 45 4C 45 |3":.......".DELE|
00000160: 54 45 20 44 41 54 41 20 53 54 41 54 45 4D 45 4E |TE DATA STATEMEN|
00000170: 54 53 2E 2E 2E 2E 2E 2E 2E 2E 2E 34 22 3A 99 00 |TS.........4":..|
00000180: AA 09 0B 00 99 22 1D 4C 49 53 54 20 53 54 41 54 |.....".LIST STAT|
00000190: 45 4D 45 4E 54 53 20 54 4F 20 54 41 50 45 2E 2E |EMENTS TO TAPE..|
000001A0: 2E 2E 2E 2E 2E 2E 35 22 3A 99 00 D5 09 0C 00 99 |......5":.......|
000001B0: 22 1D 41 53 53 45 4D 42 4C 45 20 44 41 54 41 20 |".ASSEMBLE DATA |
000001C0: 46 52 4F 4D 20 54 41 50 45 2E 2E 2E 2E 2E 2E 2E |FROM TAPE.......|
000001D0: 2E 36 22 3A 99 00 02 0A 0D 00 99 22 1D 44 45 4C |.6":.......".DEL|
000001E0: 45 54 45 20 53 54 41 54 45 4D 45 4E 54 53 20 30 |ETE STATEMENTS 0|
000001F0: 2D 32 35 35 2E 2E 2E 2E 2E 2E 2E 2E 37 22 3A 99 |-255........7":.|
00000200: 3A 99 00 28 0A 0E 00 99 22 1D 20 20 12 20 20 4B |:..(....". . K|
00000210: 45 59 20 49 4E 20 44 45 53 49 52 45 44 20 4F 50 |EY IN DESIRED OP|
00000220: 54 49 4F 4E 20 20 92 22 00 3A 0A 0F 00 A1 4B 24 |TION .".:....K$|
00000230: 3A 8B 4B 24 B2 22 22 A7 31 35 00 5A 0A 10 00 8B |:.K$."".15.Z....|
00000240: C5 28 4B 24 29 B3 B2 30 B0 C5 28 4B 24 29 B1 37 |.(K$)..0..(K$).7|
00000250: A7 99 22 91 91 22 3A 89 31 34 00 7C 0A 11 00 91 |.."..":.14.|....|
00000260: C5 28 4B 24 29 8D 32 30 2C 34 30 2C 35 30 2C 36 |.(K$).20,40,50,6|
00000270: 30 2C 31 32 30 2C 31 33 30 2C 37 30 00 8B 0A 12 |0,120,130,70....|
00000280: 00 8B C5 28 4B 24 29 B2 38 A7 90 00 91 0A 13 00 |...(K$).8.......|
00000290: 80 00 C8 0A 14 00 99 22 93 22 3A 8D 32 30 30 3A |.......".":.200:|
000002A0: 99 22 1D 11 11 11 1D 1D 1D 49 4E 53 54 52 55 43 |.".......INSTRUC|
000002B0: 54 49 4F 4E 53 20 4F 4E 20 55 53 45 20 4F 46 20 |TIONS ON USE OF |
000002C0: 55 54 49 4C 49 54 59 22 00 F5 0A 15 00 99 22 1D |UTILITY"......".|
000002D0: 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | **************|
000002E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000002F0: 2A 2A 2A 2A 22 00 23 0B 16 00 99 22 1D 53 50 52 |****".#....".SPR|
00000300: 49 54 45 53 20 41 52 45 20 53 41 56 45 44 20 41 |ITES ARE SAVED A|
00000310: 53 20 44 41 54 41 20 53 54 41 54 45 4D 45 4E 54 |S DATA STATEMENT|
00000320: 53 2E 22 00 4F 0B 17 00 99 22 1D 53 50 52 49 54 |S.".O....".SPRIT|
00000330: 45 53 20 30 2D 34 37 20 52 41 4D 20 41 44 52 45 |ES 0-47 RAM ADRE|
00000340: 53 53 20 31 32 32 38 38 2D 31 35 33 36 30 22 00 |SS 12288-15360".|
00000350: 7D 0B 18 00 99 22 1D 4F 52 20 4D 41 43 48 49 4E |}....".OR MACHIN|
00000360: 45 20 43 4F 44 45 20 43 41 4E 20 42 45 20 53 41 |E CODE CAN BE SA|
00000370: 56 45 44 20 41 53 20 44 41 54 41 2E 22 00 A5 0B |VED AS DATA."...|
00000380: 19 00 99 22 1D 44 41 54 41 20 53 54 41 54 45 4D |...".DATA STATEM|
00000390: 45 4E 54 53 20 43 41 4E 20 42 45 20 44 45 4C 45 |ENTS CAN BE DELE|
000003A0: 54 45 44 2E 22 00 CD 0B 1A 00 99 22 1D 54 48 45 |TED."......".THE|
000003B0: 20 52 45 53 54 20 4F 46 20 54 48 49 53 20 50 52 | REST OF THIS PR|
000003C0: 4F 47 52 41 4D 20 4D 41 59 20 42 45 22 00 FB 0B |OGRAM MAY BE"...|
000003D0: 1B 00 99 22 1D 44 45 4C 45 54 45 44 20 49 46 20 |...".DELETED IF |
000003E0: 52 45 51 55 49 52 45 44 2E 20 54 48 49 53 20 4C |REQUIRED. THIS L|
000003F0: 45 41 56 45 53 20 4F 4E 4C 59 22 00 25 0C 1C 00 |EAVES ONLY".%...|
00000400: 99 22 1D 44 41 54 41 20 53 54 41 54 45 4D 45 4E |.".DATA STATEMEN|
00000410: 54 53 20 46 4F 52 20 55 53 45 52 20 50 52 4F 47 |TS FOR USER PROG|
00000420: 52 41 4D 53 22 00 4B 0C 1D 00 99 22 1D 11 11 12 |RAMS".K...."....|
00000430: 20 20 54 4F 20 43 52 45 41 54 45 20 4E 45 57 20 | TO CREATE NEW |
00000440: 50 52 4F 47 52 41 4D 20 20 92 22 00 76 0C 1E 00 |PROGRAM .".v...|
00000450: 99 22 1D 11 57 41 49 54 20 46 4F 52 20 52 45 41 |."..WAIT FOR REA|
00000460: 44 59 20 54 4F 20 53 54 4F 50 20 46 4C 41 53 48 |DY TO STOP FLASH|
00000470: 49 4E 47 20 20 22 00 A1 0C 1F 00 99 22 1D 49 4E |ING "......".IN|
00000480: 20 54 48 49 53 20 4D 4F 44 45 2C 20 54 48 45 4E | THIS MODE, THEN|
00000490: 20 53 41 56 45 20 44 41 54 41 20 54 41 50 45 2E | SAVE DATA TAPE.|
000004A0: 22 00 CB 0C 20 00 99 22 1D 4C 4F 41 44 20 4E 45 |"... ..".LOAD NE|
000004B0: 57 20 44 41 54 41 20 41 4E 44 20 4B 45 59 20 49 |W DATA AND KEY I|
000004C0: 4E 20 50 52 4F 47 52 41 4D 2E 22 00 F1 0C 21 00 |N PROGRAM."...!.|
000004D0: 99 22 1D 11 11 20 20 12 20 20 41 4E 59 20 4B 45 |."... . ANY KE|
000004E0: 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 20 20 92 |Y TO CONTINUE .|
000004F0: 22 00 03 0D 25 00 A1 4B 24 3A 8B 4B 24 B2 22 22 |"...%..K$:.K$.""|
00000500: A7 33 37 00 0A 0D 26 00 89 34 00 30 0D 28 00 99 |.37...&..4.0.(..|
00000510: 22 93 1D 11 11 11 11 20 20 20 20 20 20 20 53 50 |"...... SP|
00000520: 52 49 54 45 53 20 30 2D 34 37 22 3A 8D 32 30 30 |RITES 0-47":.200|
00000530: 00 6E 0D 29 00 99 22 1D 20 20 12 20 20 46 49 52 |.n.)..". . FIR|
00000540: 53 54 20 53 50 52 49 54 45 20 4E 4F 2E 20 20 92 |ST SPRITE NO. .|
00000550: 22 3B 3A 4E B2 30 3A 8D 37 35 3A 53 39 B2 4E 3A |";:N.0:.75:S9.N:|
00000560: 8B 53 39 B1 34 37 B0 53 39 B3 30 A7 34 31 00 AD |.S9.47.S9.0.41..|
00000570: 0D 2A 00 99 22 1D 11 11 20 46 4F 52 20 43 4F 4E |.*.."... FOR CON|
00000580: 53 45 43 55 54 49 56 45 20 53 50 52 49 54 45 53 |SECUTIVE SPRITES|
00000590: 22 3A 99 22 1D 20 20 12 20 20 4E 4F 2E 20 4F 46 |":.". . NO. OF|
000005A0: 20 53 50 52 49 54 45 53 20 20 92 22 3B 00 D4 0D | SPRITES .";...|
000005B0: 2B 00 4E B2 30 3A 8D 37 35 3A 53 33 B2 4E 3A 8B |+.N.0:.75:S3.N:.|
000005C0: 28 34 38 AB 53 39 AB 53 33 29 B3 30 B0 53 33 B3 |(48.S9.S3).0.S3.|
000005D0: 31 A7 34 32 00 F9 0D 2C 00 99 22 1D 11 11 20 44 |1.42...,.."... D|
000005E0: 41 54 41 20 53 54 41 54 45 4D 45 4E 54 53 20 3E |ATA STATEMENTS >|
000005F0: 20 32 39 39 22 3A 4E B2 30 00 2B 0E 2D 00 99 22 | 299":N.0.+.-.."|
00000600: 1D 20 20 12 20 20 53 54 41 52 54 20 4F 46 20 44 |. . START OF D|
00000610: 41 54 41 20 20 92 22 3B 3A 8D 37 35 3A 44 30 B2 |ATA .";:.75:D0.|
00000620: 4E 3A 8B 4E B3 33 30 30 A7 34 34 00 6D 0E 2E 00 |N:.N.300.44.m...|
00000630: 53 B2 31 32 32 38 38 AA 36 34 AC 53 39 3A 53 36 |S.12288.64.S9:S6|
00000640: B2 B5 28 53 AD 32 35 36 29 3A 53 37 B2 B5 28 53 |..(S.256):S7..(S|
00000650: AB 53 36 AC 32 35 36 29 3A 53 33 B2 53 33 AC 36 |.S6.256):S3.S3.6|
00000660: 34 3A 4F 50 B2 30 3A 97 38 32 38 2C 30 00 99 0E |4:OP.0:.828,0...|
00000670: 2F 00 45 B2 30 3A 97 38 32 39 2C 30 3A 53 38 B2 |/.E.0:.829,0:S8.|
00000680: B5 28 53 33 AD 32 35 36 29 3A 53 39 B2 B5 28 53 |.(S3.256):S9..(S|
00000690: 33 AB 53 38 AC 32 35 36 29 00 D2 0E 30 00 97 38 |3.S8.256)...0..8|
000006A0: 33 30 2C 53 38 3A 97 38 33 31 2C 53 39 3A 44 38 |30,S8:.831,S9:D8|
000006B0: B2 B5 28 44 30 AD 32 35 36 29 3A 44 39 B2 B5 28 |..(D0.256):D9..(|
000006C0: 44 30 AB 44 38 AC 32 35 36 29 3A 97 38 33 32 2C |D0.D8.256):.832,|
000006D0: 44 38 00 F5 0E 31 00 97 38 33 33 2C 44 39 3A 97 |D8...1..833,D9:.|
000006E0: 38 33 34 2C 53 36 3A 97 38 33 35 2C 53 37 3A 8D |834,S6:.835,S7:.|
000006F0: 38 30 3A 89 34 00 1A 0F 32 00 99 22 93 1D 11 11 |80:.4...2.."....|
00000700: 11 11 20 20 20 20 20 20 20 52 41 4D 20 54 4F 20 |.. RAM TO |
00000710: 44 41 54 41 22 3A 8D 32 30 30 00 46 0F 33 00 99 |DATA":.200.F.3..|
00000720: 22 1D 20 20 12 20 20 53 54 41 52 54 20 41 44 44 |". . START ADD|
00000730: 52 45 53 53 20 20 92 22 3B 3A 4E B2 30 3A 8D 37 |RESS .";:N.0:.7|
00000740: 35 3A 52 39 B2 4E 00 87 0F 34 00 99 22 1D 11 11 |5:R9.N...4.."...|
00000750: 20 43 4F 4E 53 45 43 55 54 49 56 45 20 41 44 44 | CONSECUTIVE ADD|
00000760: 52 45 53 53 45 53 20 20 22 3A 99 22 1D 20 20 12 |RESSES ":.". .|
00000770: 20 20 4E 4F 2E 20 4F 46 20 41 44 44 52 45 53 53 | NO. OF ADDRESS|
00000780: 45 53 20 20 92 22 3B 00 98 0F 35 00 4E B2 30 3A |ES .";...5.N.0:|
00000790: 8D 37 35 3A 53 33 B2 4E 00 BD 0F 36 00 99 22 1D |.75:S3.N...6..".|
000007A0: 11 11 20 44 41 54 41 20 53 54 41 54 45 4D 45 4E |.. DATA STATEMEN|
000007B0: 54 53 20 3E 20 32 39 39 22 3A 4E B2 30 00 EF 0F |TS > 299":N.0...|
000007C0: 37 00 99 22 1D 20 20 12 20 20 53 54 41 52 54 20 |7..". . START |
000007D0: 4F 46 20 44 41 54 41 20 20 92 22 3B 3A 8D 37 35 |OF DATA .";:.75|
000007E0: 3A 44 30 B2 4E 3A 8B 4E B3 33 30 30 A7 35 34 00 |:D0.N:.N.300.54.|
000007F0: 2A 10 38 00 53 B2 52 39 3A 53 36 B2 B5 28 53 AD |*.8.S.R9:S6..(S.|
00000800: 32 35 36 29 3A 53 37 B2 B5 28 53 AB 53 36 AC 32 |256):S7..(S.S6.2|
00000810: 35 36 29 3A 4F 50 B2 30 3A 97 38 32 38 2C 30 3A |56):OP.0:.828,0:|
00000820: 45 B2 30 3A 97 38 32 39 2C 30 00 4B 10 39 00 53 |E.0:.829,0.K.9.S|
00000830: 38 B2 B5 28 53 33 AD 32 35 36 29 3A 53 39 B2 B5 |8..(S3.256):S9..|
00000840: 28 53 33 AB 53 38 AC 32 35 36 29 00 84 10 3A 00 |(S3.S8.256)...:.|
00000850: 97 38 33 30 2C 53 38 3A 97 38 33 31 2C 53 39 3A |.830,S8:.831,S9:|
00000860: 44 38 B2 B5 28 44 30 AD 32 35 36 29 3A 44 39 B2 |D8..(D0.256):D9.|
00000870: B5 28 44 30 AB 44 38 AC 32 35 36 29 3A 97 38 33 |.(D0.D8.256):.83|
00000880: 32 2C 44 38 00 A7 10 3B 00 97 38 33 33 2C 44 39 |2,D8...;..833,D9|
00000890: 3A 97 38 33 34 2C 53 36 3A 97 38 33 35 2C 53 37 |:.834,S6:.835,S7|
000008A0: 3A 8D 38 30 3A 89 34 00 CC 10 3C 00 99 22 93 1D |:.80:.4...<.."..|
000008B0: 11 11 11 11 20 20 20 20 20 20 20 44 45 4C 45 54 |.... DELET|
000008C0: 45 20 44 41 54 41 22 3A 8D 32 30 30 00 05 11 3D |E DATA":.200...=|
000008D0: 00 99 22 1D 20 20 12 20 20 53 54 41 52 54 20 44 |..". . START D|
000008E0: 41 54 41 20 3E 20 32 39 39 20 20 92 22 3B 3A 4E |ATA > 299 .";:N|
000008F0: B2 30 3A 8D 37 35 3A 44 30 B2 4E 3A 8B 4E B3 33 |.0:.75:D0.N:.N.3|
00000900: 30 30 A7 36 30 00 47 11 3E 00 99 22 1D 11 11 20 |00.60.G.>.."... |
00000910: 43 4F 4E 53 45 43 55 54 49 56 45 20 53 54 41 54 |CONSECUTIVE STAT|
00000920: 45 4D 45 4E 54 53 20 22 3A 99 22 1D 20 20 12 20 |EMENTS ":.". . |
00000930: 20 4E 4F 2E 20 4F 46 20 53 54 41 54 45 4D 45 4E | NO. OF STATEMEN|
00000940: 54 53 20 20 92 22 3B 00 58 11 3F 00 4E B2 30 3A |TS .";.X.?.N.0:|
00000950: 8D 37 35 3A 53 33 B2 4E 00 93 11 40 00 53 B2 30 |.75:S3.N...@.S.0|
00000960: 3A 53 36 B2 B5 28 53 AD 32 35 36 29 3A 53 37 B2 |:S6..(S.256):S7.|
00000970: B5 28 53 AB 53 36 AC 32 35 36 29 3A 4F 50 B2 31 |.(S.S6.256):OP.1|
00000980: 3A 97 38 32 38 2C 4F 50 3A 45 B2 30 3A 97 38 32 |:.828,OP:E.0:.82|
00000990: 39 2C 30 00 B4 11 41 00 53 38 B2 B5 28 53 33 AD |9,0...A.S8..(S3.|
000009A0: 32 35 36 29 3A 53 39 B2 B5 28 53 33 AB 53 38 AC |256):S9..(S3.S8.|
000009B0: 32 35 36 29 00 ED 11 42 00 97 38 33 30 2C 53 38 |256)...B..830,S8|
000009C0: 3A 97 38 33 31 2C 53 39 3A 44 38 B2 B5 28 44 30 |:.831,S9:D8..(D0|
000009D0: AD 32 35 36 29 3A 44 39 B2 B5 28 44 30 AB 44 38 |.256):D9..(D0.D8|
000009E0: AC 32 35 36 29 3A 97 38 33 32 2C 44 38 00 10 12 |.256):.832,D8...|
000009F0: 43 00 97 38 33 33 2C 44 39 3A 97 38 33 34 2C 53 |C..833,D9:.834,S|
00000A00: 36 3A 97 38 33 35 2C 53 37 3A 8D 38 30 3A 89 34 |6:.835,S7:.80:.4|
00000A10: 00 4D 12 46 00 97 38 33 39 2C 30 3A 99 22 93 22 |.M.F..839,0:."."|
00000A20: 3A 8D 32 30 30 3A 99 22 1D 11 11 52 45 4D 45 4D |:.200:."...REMEM|
00000A30: 42 45 52 20 54 48 49 53 20 4F 50 54 49 4F 4E 20 |BER THIS OPTION |
00000A40: 44 45 4C 45 54 45 53 20 54 48 49 53 22 00 78 12 |DELETES THIS".x.|
00000A50: 47 00 99 22 1D 50 52 4F 47 52 41 4D 20 41 4E 44 |G..".PROGRAM AND|
00000A60: 20 4C 45 41 56 45 53 20 59 4F 55 52 20 53 54 41 | LEAVES YOUR STA|
00000A70: 54 45 4D 45 4E 54 53 22 00 B4 12 48 00 99 22 1D |TEMENTS"...H..".|
00000A80: 41 53 53 45 4D 42 4C 45 44 20 41 42 4F 56 45 20 |ASSEMBLED ABOVE |
00000A90: 32 39 39 2E 22 3A 99 21 22 1D 12 20 20 41 4E 59 |299.":.!".. ANY|
00000AA0: 20 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 | KEY TO CONTINUE|
00000AB0: 20 20 92 22 00 C6 12 49 00 A1 4B 24 3A 8B 4B 24 | ."...I..K$:.K$|
00000AC0: B2 22 22 A7 37 33 00 CF 12 4A 00 89 32 31 30 00 |."".73...J..210.|
00000AD0: D8 12 4B 00 4E 4E B2 30 00 EA 12 4C 00 A1 4B 24 |..K.NN.0...L..K$|
00000AE0: 3A 8B 4B 24 B2 22 22 A7 37 36 00 12 13 4D 00 8B |:.K$."".76...M..|
00000AF0: 4B 24 B2 C7 28 32 30 29 A7 4E B2 30 3A 81 55 B2 |K$..(20).N.0:.U.|
00000B00: 31 A4 4E 4E 3A 99 22 9D 9D 22 3B 3A 82 55 3A 89 |1.NN:."..";:.U:.|
00000B10: 37 35 00 2F 13 4E 00 4E 4E B2 4E 4E AA 31 3A 99 |75./.N.NN.NN.1:.|
00000B20: 4B 24 3B 3A 8B 4B 24 B2 C7 28 31 33 29 A7 8E 00 |K$;:.K$..(13)...|
00000B30: 44 13 4F 00 4E B2 4E AC 31 30 AA C5 28 4B 24 29 |D.O.N.N.10..(K$)|
00000B40: 3A 89 37 36 00 5C 13 50 00 8F 2A 2A 2A 4D 41 49 |:.76.\.P..***MAI|
00000B50: 4E 20 52 4F 55 54 49 4E 45 2A 2A 2A 00 7F 13 51 |N ROUTINE***...Q|
00000B60: 00 8F 2A 53 3D 53 54 41 52 54 20 52 41 4D 2A 2A |..*S=START RAM**|
00000B70: 44 30 3D 53 54 41 52 54 20 44 41 54 41 2A 2A 00 |D0=START DATA**.|
00000B80: C4 13 52 00 53 34 B2 30 3A 97 38 33 36 2C 53 34 |..R.S4.0:.836,S4|
00000B90: 3A 53 35 B2 30 3A 97 38 33 37 2C 53 35 3A 8F 2A |:S5.0:.837,S5:.*|
00000BA0: 2A 2A 53 33 3D 4E 4F 2E 20 4F 46 20 52 41 4D 53 |**S3=NO. OF RAMS|
00000BB0: 2A 2A 44 31 3D 4E 4F 2E 20 4F 46 20 4C 49 4E 45 |**D1=NO. OF LINE|
00000BC0: 53 2A 2A 2A 00 FA 13 53 00 4F 50 B2 C2 28 38 32 |S***...S.OP..(82|
00000BD0: 38 29 3A 53 38 B2 C2 28 38 33 30 29 3A 53 39 B2 |8):S8..(830):S9.|
00000BE0: C2 28 38 33 31 29 3A 44 38 B2 C2 28 38 33 32 29 |.(831):D8..(832)|
00000BF0: 3A 44 39 B2 C2 28 38 33 33 29 00 3F 14 54 00 53 |:D9..(833).?.T.S|
00000C00: 36 B2 C2 28 38 33 34 29 3A 53 37 B2 C2 28 38 33 |6..(834):S7..(83|
00000C10: 35 29 3A 53 34 B2 C2 28 38 33 36 29 3A 53 35 B2 |5):S4..(836):S5.|
00000C20: C2 28 38 33 37 29 3A 54 B2 53 34 AC 32 35 36 AA |.(837):T.S4.256.|
00000C30: 53 35 3A 53 33 B2 53 38 AC 32 35 36 AA 53 39 00 |S5:S3.S8.256.S9.|
00000C40: 7C 14 55 00 50 B2 B5 28 54 AD 36 34 29 3A 51 B2 ||.U.P..(T.64):Q.|
00000C50: B5 28 54 AB 50 AC 36 34 29 3A 42 B2 B5 28 51 AD |.(T.P.64):B..(Q.|
00000C60: 31 36 29 3A 52 B2 B5 28 51 AB 42 AC 31 36 29 3A |16):R..(Q.B.16):|
00000C70: 44 30 B2 44 38 AC 32 35 36 AA 44 39 00 9A 14 56 |D0.D8.256.D9...V|
00000C80: 00 58 B2 44 30 3A 59 B2 31 3A 56 B2 38 33 32 3A |.X.D0:Y.1:V.832:|
00000C90: 57 B2 38 33 33 3A 8D 32 30 35 00 DD 14 57 00 53 |W.833:.205...W.S|
00000CA0: 33 B2 53 38 AC 32 35 36 AA 53 39 3A 44 30 B2 44 |3.S8.256.S9:D0.D|
00000CB0: 38 AC 32 35 36 AA 44 39 3A 53 B2 53 36 AC 32 35 |8.256.D9:S.S6.25|
00000CC0: 36 AA 53 37 3A 58 B2 53 3A 59 B2 30 3A 56 B2 38 |6.S7:X.S:Y.0:V.8|
00000CD0: 33 34 3A 57 B2 38 33 35 3A 8D 32 30 35 00 F9 14 |34:W.835:.205...|
00000CE0: 58 00 81 49 B2 30 A4 36 33 3A 5A 25 28 49 29 B2 |X..I.0.63:Z%(I).|
00000CF0: C2 28 53 AA 49 29 3A 82 49 00 05 15 59 00 8B 42 |.(S.I):.I...Y..B|
00000D00: B3 33 A7 39 31 00 34 15 5A 00 58 B2 53 3A 59 B2 |.3.91.4.Z.X.S:Y.|
00000D10: 36 34 3A 56 B2 38 33 34 3A 57 B2 38 33 35 3A 8D |64:V.834:W.835:.|
00000D20: 32 30 35 3A 8F 2A 2A 41 44 44 20 36 34 20 54 4F |205:.**ADD 64 TO|
00000D30: 20 53 2A 2A 00 61 15 5B 00 99 22 93 22 3B 3A 99 | S**.a.[..".";:.|
00000D40: 22 13 22 44 30 3B 3A 8B 4F 50 B3 B1 30 A7 4F 50 |"."D0;:.OP..0.OP|
00000D50: B2 4F 50 AA 31 3A 97 38 32 38 2C 4F 50 3A 89 39 |.OP.1:.828,OP:.9|
00000D60: 37 00 6F 15 5C 00 99 22 9D 44 41 54 41 22 3B 00 |7.o.\..".DATA";.|
00000D70: AC 15 5D 00 81 4A B2 30 A4 31 34 3A 41 24 B2 C4 |..]..J.0.14:A$..|
00000D80: 28 5A 25 28 4A AA 42 AC 31 36 29 29 3A 41 24 B2 |(Z%(J.B.16)):A$.|
00000D90: C9 28 41 24 2C C3 28 41 24 29 AB 31 29 3A 99 41 |.(A$,.(A$).1):.A|
00000DA0: 24 3B 22 2C 22 3B 3A 54 B2 54 AA 31 00 C5 15 5E |$;",";:T.T.1...^|
00000DB0: 00 8B 54 B1 B2 53 33 A7 97 38 32 39 2C 31 3A 99 |..T..S3..829,1:.|
00000DC0: 3A 89 31 31 30 00 FD 15 5F 00 82 4A 3A 54 B2 54 |:.110..._..J:T.T|
00000DD0: AA 31 3A 41 24 B2 C4 28 5A 25 28 42 AC 31 36 AA |.1:A$..(Z%(B.16.|
00000DE0: 31 35 29 29 3A 99 41 24 3A 8B 54 B1 B2 53 33 A7 |15)):.A$:.T..S3.|
00000DF0: 97 38 32 39 2C 31 3A 99 3A 89 31 31 30 00 06 16 |.829,1:.:.110...|
00000E00: 60 00 89 31 31 30 00 1C 16 61 00 8B 4F 50 B1 53 |`..110...a..OP.S|
00000E10: 33 A7 45 B2 31 3A 97 38 32 39 2C 45 00 27 16 62 |3.E.1:.829,E.'.b|
00000E20: 00 99 3A 89 31 31 30 00 33 16 64 00 86 5A 25 28 |..:.110.3.d..Z%(|
00000E30: 36 34 29 00 48 16 65 00 45 B2 C2 28 38 32 39 29 |64).H.e.E..(829)|
00000E40: 3A 8B 45 B2 30 A7 38 33 00 4F 16 66 00 89 34 00 |:.E.0.83.O.f..4.|
00000E50: 6C 16 6E 00 58 B2 54 3A 59 B2 30 3A 56 B2 38 33 |l.n.X.T:Y.0:V.83|
00000E60: 36 3A 57 B2 38 33 37 3A 8D 32 30 35 00 7E 16 6F |6:W.837:.205.~.o|
00000E70: 00 99 22 52 55 4E 20 31 30 30 3A 22 3B 42 00 B1 |.."RUN 100:";B..|
00000E80: 16 70 00 97 36 33 31 2C 31 39 3A 97 36 33 32 2C |.p..631,19:.632,|
00000E90: 31 33 3A 97 36 33 33 2C 31 33 3A 97 36 33 34 2C |13:.633,13:.634,|
00000EA0: 31 33 3A 97 36 33 35 2C 31 33 3A 97 31 39 38 2C |13:.635,13:.198,|
00000EB0: 35 00 B7 16 71 00 80 00 E0 16 78 00 99 22 93 1D |5...q.....x.."..|
00000EC0: 11 11 11 11 20 20 4C 49 53 54 20 50 52 4F 47 52 |.... LIST PROGR|
00000ED0: 41 4D 20 54 4F 20 54 41 50 45 22 3A 8D 32 30 30 |AM TO TAPE":.200|
00000EE0: 00 0D 17 79 00 99 22 1D 20 20 12 20 20 53 54 41 |...y..". . STA|
00000EF0: 52 54 20 4C 49 4E 45 20 4E 4F 2E 20 20 92 22 3B |RT LINE NO. .";|
00000F00: 3A 4E B2 30 3A 8D 37 35 3A 53 39 B2 4E 00 4A 17 |:N.0:.75:S9.N.J.|
00000F10: 7A 00 99 22 1D 11 11 20 4C 49 53 54 20 50 52 4F |z.."... LIST PRO|
00000F20: 47 52 41 4D 20 54 4F 20 4F 4E 4C 59 20 20 22 3A |GRAM TO ONLY ":|
00000F30: 99 22 1D 20 20 12 20 20 46 49 4E 41 4C 20 4C 49 |.". . FINAL LI|
00000F40: 4E 45 20 4E 4F 2E 20 20 92 22 00 5B 17 7B 00 4E |NE NO. .".[.{.N|
00000F50: B2 30 3A 8D 37 35 3A 53 33 B2 4E 00 7E 17 7C 00 |.0:.75:S3.N.~.|.|
00000F60: 85 22 93 1D 11 11 11 11 20 20 12 20 20 54 41 50 |."...... . TAP|
00000F70: 45 54 49 54 4C 45 20 20 92 22 3B 4E 46 24 00 B1 |ETITLE .";NF$..|
00000F80: 17 7D 00 99 C7 28 31 34 37 29 3A 99 22 13 4F 50 |.}...(147):.".OP|
00000F90: 45 4E 31 2C 31 2C 31 2C 4E 46 24 3A 43 4D 44 20 |EN1,1,1,NF$:CMD |
00000FA0: 31 3A 4C 49 53 54 22 3B 53 39 3B 22 2D 22 3B 53 |1:LIST";S9;"-";S|
00000FB0: 33 00 D2 17 7E 00 99 22 11 11 50 52 49 4E 54 23 |3...~.."..PRINT#|
00000FC0: 31 3A 43 4C 4F 53 45 20 31 3A 47 4F 54 4F 31 32 |1:CLOSE 1:GOTO12|
00000FD0: 39 22 00 FC 17 7F 00 97 36 33 31 2C 31 39 3A 81 |9"......631,19:.|
00000FE0: 49 39 B2 30 A4 36 3A 97 36 33 32 AA 49 39 2C 31 |I9.0.6:.632.I9,1|
00000FF0: 33 3A 82 49 39 3A 97 31 39 38 2C 34 00 02 18 80 |3:.I9:.198,4....|
00001000: 00 80 00 09 18 81 00 89 34 00 2F 18 82 00 99 22 |........4./...."|
00001010: 93 1D 11 11 11 11 20 20 52 45 41 44 20 50 52 4F |...... READ PRO|
00001020: 47 52 41 4D 20 46 52 4F 4D 20 54 41 50 45 22 00 |GRAM FROM TAPE".|
00001030: 4F 18 83 00 85 22 1D 11 11 20 20 12 20 20 54 41 |O...."... . TA|
00001040: 50 45 54 49 54 4C 45 20 20 92 22 3B 4E 46 24 00 |PETITLE .";NF$.|
00001050: 6C 18 84 00 9F 31 2C 31 2C 30 2C 4E 46 24 3A 4B |l....1,1,0,NF$:K|
00001060: B2 4F 3A 4B 39 B2 30 3A 4B 38 B2 30 00 76 18 86 |.O:K9.0:K8.0.v..|
00001070: 00 99 22 93 22 3B 00 99 18 87 00 A1 23 31 2C 59 |..".";......#1,Y|
00001080: 24 3A 59 B2 C6 28 59 24 AA C7 28 30 29 29 3A 97 |$:Y..(Y$..(0)):.|
00001090: 32 30 30 30 30 AA 4B 2C 59 00 C4 18 88 00 8B 53 |20000.K,Y......S|
000010A0: 54 B2 36 34 A7 A0 20 31 3A 81 4C B2 31 A4 34 3A |T.64.. 1:.L.1.4:|
000010B0: 97 32 30 30 30 30 AA 4B AA 4C 2C 30 3A 82 4C 3A |.20000.K.L,0:.L:|
000010C0: 89 31 34 30 00 D8 18 8A 00 99 59 24 3B 3A 4B B2 |.140......Y$;:K.|
000010D0: 4B AA 31 3A 89 31 33 35 00 E0 18 8C 00 4B B2 30 |K.1:.135.....K.0|
000010E0: 00 EA 18 8D 00 99 22 93 22 3B 00 07 19 8E 00 59 |......".";.....Y|
000010F0: B2 C2 28 32 30 30 30 30 AA 4B 29 3A 8B 59 B2 30 |..(20000.K):.Y.0|
00001100: B0 59 B2 31 30 A7 32 00 44 19 8F 00 59 24 B2 C7 |.Y.10.2.D...Y$..|
00001110: 28 59 29 3A 4B B2 4B AA 31 3A 4B 39 B2 B5 28 4B |(Y):K.K.1:K9..(K|
00001120: AD 32 35 36 29 3A 4B 38 B2 B5 28 4B AB 4B 39 AC |.256):K8..(K.K9.|
00001130: 32 35 36 29 3A 97 38 32 30 2C 4B 39 3A 97 38 32 |256):.820,K9:.82|
00001140: 31 2C 4B 38 00 56 19 90 00 8B 59 24 B2 C7 28 31 |1,K8.V....Y$..(1|
00001150: 33 29 A7 31 34 37 00 64 19 91 00 99 59 24 3B 3A |3).147.d....Y$;:|
00001160: 89 31 34 32 00 86 19 93 00 99 3A 99 22 52 55 4E |.142......:."RUN|
00001170: 20 31 35 30 3A 52 45 4D 20 50 4C 45 41 53 45 20 | 150:REM PLEASE |
00001180: 57 41 49 54 20 22 00 AC 19 94 00 97 36 33 31 2C |WAIT "......631,|
00001190: 31 39 3A 81 49 B2 30 A4 34 3A 97 36 33 32 AA 49 |19:.I.0.4:.632.I|
000011A0: 2C 31 33 3A 82 3A 97 31 39 38 2C 35 00 B2 19 95 |,13:.:.198,5....|
000011B0: 00 80 00 DB 19 96 00 4B 39 B2 C2 28 38 32 30 29 |.......K9..(820)|
000011C0: 3A 4B 38 B2 C2 28 38 32 31 29 3A 4B B2 4B 39 AC |:K8..(821):K.K9.|
000011D0: 32 35 36 AA 4B 38 3A 99 22 93 22 00 E4 19 99 00 |256.K8:.".".....|
000011E0: 89 31 34 32 00 29 1A C8 00 53 30 B2 31 30 32 34 |.142.)...S0.1024|
000011F0: 3A 43 30 B2 34 30 3A 42 30 B2 35 34 32 37 32 3A |:C0.40:B0.54272:|
00001200: 81 43 31 B2 30 A4 33 39 3A 53 31 B2 53 30 AA 43 |.C1.0.39:S1.S0.C|
00001210: 31 3A 53 32 B2 53 30 AA 43 31 AA 43 30 AC 32 34 |1:S2.S0.C1.C0.24|
00001220: 3A 8D 32 30 32 3A 82 43 31 00 5C 1A C9 00 81 43 |:.202:.C1.\....C|
00001230: 31 B2 31 A4 32 33 3A 53 31 B2 53 30 AA 43 30 AC |1.1.23:S1.S0.C0.|
00001240: 43 31 3A 53 32 B2 53 30 AA 43 30 AC 43 31 AA 33 |C1:S2.S0.C0.C1.3|
00001250: 39 3A 8D 32 30 32 3A 82 43 31 3A 8E 00 84 1A CA |9:.202:.C1:.....|
00001260: 00 97 53 32 2C 32 31 34 3A 97 53 32 AA 42 30 2C |..S2,214:.S2.B0,|
00001270: 35 3A 97 53 31 2C 32 31 34 3A 97 53 31 AA 42 30 |5:.S1,214:.S1.B0|
00001280: 2C 35 3A 8E 00 C5 1A CD 00 58 B2 58 AA 59 3A 58 |,5:......X.X.Y:X|
00001290: 38 B2 B5 28 58 AD 32 35 36 29 3A 58 39 B2 B5 28 |8..(X.256):X9..(|
000012A0: 58 AB 58 38 AC 32 35 36 29 3A 97 56 2C 58 38 3A |X.X8.256):.V,X8:|
000012B0: 97 57 2C 58 39 3A 8E 20 20 20 20 20 20 20 20 20 |.W,X9:. |
000012C0: 20 20 20 20 20 00 E2 1A D2 00 49 B2 C2 28 38 33 | .....I..(83|
000012D0: 39 29 3A 99 22 93 22 3A 8B 49 B1 32 30 36 A7 32 |9):.".":.I.206.2|
000012E0: 31 34 00 1E 1B D3 00 99 22 93 22 49 3A 49 B2 49 |14......"."I:I.I|
000012F0: AA 31 3A 97 38 33 39 2C 49 3A 99 22 52 55 4E 20 |.1:.839,I:."RUN |
00001300: 32 31 30 3A 52 45 4D 20 57 41 49 54 20 46 4F 52 |210:REM WAIT FOR|
00001310: 20 43 4C 45 41 52 20 53 43 52 45 45 4E 22 00 51 | CLEAR SCREEN".Q|
00001320: 1B D4 00 97 36 33 31 2C 31 39 3A 97 36 33 32 2C |....631,19:.632,|
00001330: 31 33 3A 97 36 33 33 2C 31 33 3A 97 36 33 34 2C |13:.633,13:.634,|
00001340: 31 33 3A 97 36 33 35 2C 31 33 3A 97 31 39 38 2C |13:.635,13:.198,|
00001350: 35 00 57 1B D5 00 80 00 7D 1B D6 00 81 49 B2 32 |5.W.....}....I.2|
00001360: 31 30 A4 32 31 36 3A 99 49 3A 82 3A 99 22 50 52 |10.216:.I:.:."PR|
00001370: 49 4E 54 43 48 52 24 28 31 34 37 29 22 00 A4 1B |INTCHR$(147)"...|
00001380: D7 00 97 36 33 31 2C 31 39 3A 81 49 B2 31 A4 39 |...631,19:.I.1.9|
00001390: 3A 97 36 33 31 AA 49 2C 31 33 3A 82 3A 97 31 39 |:.631.I,13:.:.19|
000013A0: 38 2C 31 32 00 AA 1B D8 00 80 00 00 00 |8,12......... |
..L.... GOTO300 OR START OF YOUR PROGRAM
** CONVERT MEMORY TO BASIC DATA **.C..
..53281,1:.53280,13.O....Z%(64)......"."
:.200:. BORDER......".... OPTION
S AVAILABLE".S....". ***********
*****":."."......".INSTRUCTIONS ON USE..
..........1":..)....".SAVE SPRITES AS DA
TA...........2":..T....".SAVE MACHINE-CO
DE AS DATA......3":......".DELETE DATA
STATEMENTS.........4":.......".LIST STAT
EMENTS TO TAPE........5":..U....".ASSEMB
LE DATA FROM TAPE........6":.......".DEL
ETE STATEMENTS 0-255........7":.:..(....
". . KEY IN DESIRED OPTION .".:....K$
:.K$."".15.Z....E(K$)..0.E(K$).7.."..":.
14.|....E(K$).20,40,50,60,120,130,70....
..E(K$).8.........H....".":.200:."......
.INSTRUCTIONS ON USE OF UTILITY"......".
**********************************".#.
...".SPRITES ARE SAVED AS DATA STATEMENT
S.".O....".SPRITES 0-47 RAM ADRESS 12288
-15360".}....".OR MACHINE CODE CAN BE SA
VED AS DATA."......".DATA STATEMENTS CAN
BE DELETED.".M....".THE REST OF THIS PR
OGRAM MAY BE"......".DELETED IF REQUIRED
. THIS LEAVES ONLY".%....".DATA STATEMEN
TS FOR USER PROGRAMS".K....".... TO CRE
ATE NEW PROGRAM .".V...."..WAIT FOR REA
DY TO STOP FLASHING "......".IN THIS MO
DE, THEN SAVE DATA TAPE.".K. ..".LOAD NE
W DATA AND KEY IN PROGRAM."...!.."... .
ANY KEY TO CONTINUE ."...%..K$:.K$.""
.37...&..4.0.(.."...... SPRITES 0-
47":.200.N.)..". . FIRST SPRITE NO. .
";:N.0:.75:S9.N:.S9.47.S9.0.41...*.."...
FOR CONSECUTIVE SPRITES":.". . NO. OF
SPRITES .";.T.+.N.0:.75:S3.N:.(48.S9.S
3).0.S3.1.42...,.."... DATA STATEMENTS >
299":N.0.+.-..". . START OF DATA .";
:.75:D0.N:.N.300.44.M...S.12288.64.S9:S6
..(S.256):S7..(S.S6.256):S3.S3.64:OP.0:.
828,0.../.E.0:.829,0:S8..(S3.256):S9..(S
3.S8.256).R.0..830,S8:.831,S9:D8..(D0.25
6):D9..(D0.D8.256):.832,D8...1..833,D9:.
834,S6:.835,S7:.80:.4...2.."......
RAM TO DATA":.200.F.3..". . START ADD
RESS .";:N.0:.75:R9.N...4.."... CONSECU
TIVE ADDRESSES ":.". . NO. OF ADDRESS
ES .";...5.N.0:.75:S3.N...6.."... DATA
STATEMENTS > 299":N.0...7..". . START
OF DATA .";:.75:D0.N:.N.300.54.*.8.S.R9
:S6..(S.256):S7..(S.S6.256):OP.0:.828,0:
E.0:.829,0.K.9.S8..(S3.256):S9..(S3.S8.2
56)...:..830,S8:.831,S9:D8..(D0.256):D9.
.(D0.D8.256):.832,D8...;..833,D9:.834,S6
:.835,S7:.80:.4.L.<.."...... DELET
E DATA":.200...=..". . START DATA > 29
9 .";:N.0:.75:D0.N:.N.300.60.G.>.."...
CONSECUTIVE STATEMENTS ":.". . NO. OF
STATEMENTS .";.X.?.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..(D0.256):D9
..(D0.D8.256):.832,D8...C..833,D9:.834,S
6:.835,S7:.80:.4.M.F..839,0:.".":.200:."
...REMEMBER THIS OPTION DELETES THIS".X.
G..".PROGRAM AND LEAVES YOUR STATEMENTS"
...H..".ASSEMBLED ABOVE 299.":.!".. ANY
KEY TO CONTINUE .".F.I..K$:.K$."".73.O
.J..210.X.K.NN.0...L..K$:.K$."".76...M..
K$.G(20).N.0:.U.1.NN:."..";:.U:.75./.N.N
N.NN.1:.K$;:.K$.G(13)...D.O.N.N.10.E(K$)
:.76.\.P..***MAIN ROUTINE***..Q..*S=STA
RT RAM**D0=START DATA**.D.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.|.U.P..(T.64):Q..(T.P.64
):B..(Q.16):R..(Q.B.16):D0.D8.256.D9...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.8
34:W.835:.205...X..I.0.63:Z%(I).B(S.I):.
I...Y..B.3.91.4.Z.X.S:Y.64:V.834:W.835:.
205:.**ADD 64 TO S**.A.[..".";:."."D0;:.
OP..0.OP.OP.1:.828,OP:.97.O.\..".DATA";.
..]..J.0.14:A$.D(Z%(J.B.16)):A$.I(A$,C(A
$).1):.A$;",";:T.T.1.E.^..T..S3..829,1:.
:.110..._..J:T.T.1:A$.D(Z%(B.16.15)):.A$
:.T..S3..829,1:.:.110...`..110...A..OP.S
3.E.1:.829,E.'.B..:.110.3.D..Z%(64).H.E.
E.B(829):.E.0.83.O.F..4.L.N.X.T:Y.0:V.83
6:W.837:.205.~.O.."RUN 100:";B...P..631,
19:.632,13:.633,13:.634,13:.635,13:.198,
5...Q.....X.."...... LIST PROGRAM TO TA
PE":.200...Y..". . START LINE NO. .";
:N.0:.75:S9.N.J.Z.."... LIST PROGRAM TO
ONLY ":.". . FINAL LINE NO. .".[.{.N
.0:.75:S3.N.~.|.."...... . TAPETITLE
.";NF$...}..G(147):.".OPEN1,1,1,NF$:CMD
1:LIST";S9;"-";S3.R.~.."..PRINT#1:CLOSE
1:GOTO129".....631,19:.I9.0.6:.632.I9,1
3:.I9:.198,4............4./...."......
READ PROGRAM FROM TAPE".O...."... . TA
PETITLE .";NF$.L....1,1,0,NF$:K.O:K9.0:
K8.0.V....".";......#1,Y$:Y.F(Y$.G(0)):.
20000.K,Y.D....ST.64. 1:.L.1.4:.20000.K
.L,0:.L:.140.X....Y$;:K.K.1:.135.....K.0
......".";.....Y.B(20000.K):.Y.0.Y.10.2.
D...Y$.G(Y):K.K.1:K9..(K.256):K8..(K.K9.
256):.820,K9:.821,K8.V....Y$.G(13).147.D
....Y$;:.142......:."RUN 150:REM PLEASE
WAIT "......631,19:.I.0.4:.632.I,13:.:.1
98,5...........K9.B(820):K8.B(821):K.K9.
256.K8:."."......142.).H.S0.1024:C0.40:B
0.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:.202:.C1:....J..S2,214:.S2.B0,
5:.S1,214:.S1.B0,5:..E.M.X.X.Y:X8..(X.25
6):X9..(X.X8.256):.V,X8:.W,X9:.
...R.I.B(839):.".":.I.206.214...S..
"."I:I.I.1:.839,I:."RUN 210:REM WAIT FOR
CLEAR SCREEN".Q.T..631,19:.632,13:.633,
13:.634,13:.635,13:.198,5.W.U...}.V..I.2
10.216:.I:.:."PRINTCHR$(147)"...W..631,1
9:.I.1.9:.631.I,13:.:.198,12...X.....
> CLICK IMAGE PREVIEW FOR FULL MODAL