MACBASIC
FILE INFORMATION
FILENAME(S): MACBASIC
FILE TYPE(S): PRG
FILE SIZE: 5.1K
FIRST SEEN: 2025-11-30 19:47:38
APPEARS ON: 1 disk(s)
FILE HASH
752ebb155aeabb437ee33e72da5decb977d02c0fa7611854ce4412e9934e0a6d
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| KOPIDISK 11 2 | MACBASIC | PRG | Curtcool, Frank | 13 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 52 08 01 00 8F 20 20 47 4F 54 4F 20 33 30 |..R.... GOTO 30|
00000010: 30 20 4F 52 20 53 54 41 52 54 20 4F 46 20 59 4F |0 OR START OF YO|
00000020: 55 52 20 50 52 4F 47 52 41 4D 20 20 2A 2A 2A 20 |UR PROGRAM *** |
00000030: 20 43 4F 4E 56 45 52 54 20 4D 45 4D 4F 52 59 20 | CONVERT MEMORY |
00000040: 54 4F 20 42 41 53 49 43 20 44 41 54 41 20 20 2A |TO BASIC DATA *|
00000050: 2A 2A 00 69 08 02 00 97 35 33 32 38 31 2C 31 3A |**.i....53281,1:|
00000060: 97 35 33 32 38 30 2C 31 33 00 75 08 03 00 86 5A |.53280,13.u....Z|
00000070: 25 28 36 34 29 00 8D 08 04 00 99 22 93 22 3A 8D |%(64)......".":.|
00000080: 32 30 30 3A 8F 20 20 42 4F 52 44 45 52 00 B5 08 |200:. BORDER...|
00000090: 05 00 99 A6 31 29 22 11 11 1F 20 20 20 20 20 20 |....1)"... |
000000A0: 20 20 20 4F 50 54 49 4F 4E 53 20 41 56 41 49 4C | OPTIONS AVAIL|
000000B0: 41 42 4C 45 22 00 DC 08 06 00 99 A6 31 29 22 20 |ABLE".......1)" |
000000C0: 20 20 20 20 20 20 20 20 23 23 23 23 23 23 23 23 | ########|
000000D0: 23 23 23 23 23 23 23 23 23 22 3A 99 00 0E 09 07 |#########":.....|
000000E0: 00 99 A6 31 29 22 20 20 49 4E 53 54 52 55 43 54 |...1)" INSTRUCT|
000000F0: 49 4F 4E 53 20 4F 4E 20 55 53 45 2E 2E 2E 2E 2E |IONS ON USE.....|
00000100: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 31 22 3A 99 00 40 |..........1":..@|
00000110: 09 08 00 99 A6 31 29 22 20 20 53 41 56 45 20 53 |.....1)" SAVE S|
00000120: 50 52 49 54 45 53 20 41 53 20 44 41 54 41 2E 2E |PRITES AS DATA..|
00000130: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 32 22 3A 99 |............2":.|
00000140: 00 72 09 09 00 99 A6 31 29 22 20 20 53 41 56 45 |.r.....1)" SAVE|
00000150: 20 4D 41 43 48 49 4E 45 20 43 4F 44 45 20 41 53 | MACHINE CODE AS|
00000160: 20 44 41 54 41 2E 2E 2E 2E 2E 2E 2E 2E 2E 33 22 | DATA.........3"|
00000170: 3A 99 00 A4 09 0A 00 99 A6 31 29 22 20 20 44 45 |:........1)" DE|
00000180: 4C 45 54 45 20 44 41 54 41 20 53 54 41 54 45 4D |LETE DATA STATEM|
00000190: 45 4E 54 53 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |ENTS............|
000001A0: 34 22 3A 99 00 D6 09 0B 00 99 A6 31 29 22 20 20 |4":........1)" |
000001B0: 4C 49 53 54 20 53 54 41 54 45 4D 45 4E 54 53 20 |LIST STATEMENTS |
000001C0: 54 4F 20 54 41 50 45 2E 2E 2E 2E 2E 2E 2E 2E 2E |TO TAPE.........|
000001D0: 2E 2E 35 22 3A 99 00 08 0A 0C 00 99 A6 31 29 22 |..5":........1)"|
000001E0: 20 20 41 53 53 45 4D 42 4C 45 20 44 41 54 41 20 | ASSEMBLE DATA |
000001F0: 46 52 4F 4D 20 54 41 50 45 2E 2E 2E 2E 2E 2E 2E |FROM TAPE.......|
00000200: 2E 2E 2E 2E 36 22 3A 99 00 3C 0A 0D 00 99 A6 31 |....6":..<.....1|
00000210: 29 22 20 20 44 45 4C 45 54 45 20 53 54 41 54 45 |)" DELETE STATE|
00000220: 4D 45 4E 54 53 20 30 2D 32 35 35 2E 2E 2E 2E 2E |MENTS 0-255.....|
00000230: 2E 2E 2E 2E 2E 2E 37 22 3A 99 3A 99 00 67 0A 0E |......7":.:..g..|
00000240: 00 99 A6 31 29 22 20 20 20 20 20 20 20 20 20 12 |...1)" .|
00000250: 4B 45 59 20 49 4E 20 44 45 53 49 52 45 44 20 4F |KEY IN DESIRED O|
00000260: 50 54 49 4F 4E 92 22 00 79 0A 0F 00 A1 4B 24 3A |PTION.".y....K$:|
00000270: 8B 4B 24 B2 22 22 A7 31 35 00 99 0A 10 00 8B C5 |.K$."".15.......|
00000280: 28 4B 24 29 B3 B2 30 B0 C5 28 4B 24 29 B1 37 A7 |(K$)..0..(K$).7.|
00000290: 99 22 91 91 22 3A 89 31 34 00 BB 0A 11 00 91 C5 |."..":.14.......|
000002A0: 28 4B 24 29 8D 32 30 2C 34 30 2C 35 30 2C 36 30 |(K$).20,40,50,60|
000002B0: 2C 31 32 30 2C 31 33 30 2C 37 30 00 CA 0A 12 00 |,120,130,70.....|
000002C0: 8B C5 28 4B 24 29 B2 38 A7 90 00 D0 0A 13 00 80 |..(K$).8........|
000002D0: 00 08 0B 14 00 99 22 93 22 3A 8D 32 30 30 3A 99 |......".":.200:.|
000002E0: 22 11 11 11 1D 1D 1D 1D 1D 49 4E 53 54 52 55 43 |"........INSTRUC|
000002F0: 54 49 4F 4E 53 20 4F 4E 20 55 53 45 20 4F 46 20 |TIONS ON USE OF |
00000300: 55 54 49 4C 49 54 59 22 00 36 0B 15 00 99 A6 31 |UTILITY".6.....1|
00000310: 29 22 20 20 20 37 37 37 37 37 37 37 37 37 37 37 |)" 77777777777|
00000320: 37 37 37 37 37 37 37 37 37 37 37 37 37 37 37 37 |7777777777777777|
00000330: 37 37 37 37 37 22 00 67 0B 16 00 99 A6 31 29 22 |77777".g.....1)"|
00000340: 2E 53 50 52 49 54 45 53 20 41 52 45 20 53 41 56 |.SPRITES ARE SAV|
00000350: 45 44 20 41 53 20 44 41 54 41 20 53 54 41 54 45 |ED AS DATA STATE|
00000360: 4D 45 4E 54 53 2E 22 00 98 0B 17 00 99 A6 31 29 |MENTS.".......1)|
00000370: 22 20 53 50 52 49 54 45 53 20 30 2D 34 37 20 52 |" SPRITES 0-47 R|
00000380: 41 4D 20 41 44 44 52 45 53 53 20 31 32 32 38 38 |AM ADDRESS 12288|
00000390: 2D 31 35 33 36 30 20 22 00 C9 0B 18 00 99 A6 31 |-15360 ".......1|
000003A0: 29 22 2E 4F 52 20 4D 41 43 48 49 4E 45 20 43 4F |)".OR MACHINE CO|
000003B0: 44 45 20 43 41 4E 20 42 45 20 53 41 56 45 44 20 |DE CAN BE SAVED |
000003C0: 41 53 20 44 41 54 41 2E 22 00 FA 0B 19 00 99 A6 |AS DATA.".......|
000003D0: 31 29 22 2E 44 41 54 41 20 53 54 41 54 45 4D 45 |1)".DATA STATEME|
000003E0: 4E 54 53 20 43 41 4E 20 42 45 20 44 45 4C 45 54 |NTS CAN BE DELET|
000003F0: 45 44 2E 20 20 20 20 20 20 22 00 2B 0C 1A 00 99 |ED. ".+....|
00000400: A6 31 29 22 2E 54 48 45 20 52 45 53 54 20 4F 46 |.1)".THE REST OF|
00000410: 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 4D 41 | THIS PROGRAM MA|
00000420: 59 20 42 45 20 20 20 20 20 20 22 00 5C 0C 1B 00 |Y BE ".\...|
00000430: 99 A6 31 29 22 2E 44 45 4C 45 54 45 44 20 49 46 |..1)".DELETED IF|
00000440: 20 52 45 51 55 49 52 45 44 2E 54 48 49 53 20 4C | REQUIRED.THIS L|
00000450: 45 41 56 45 53 20 4F 4E 4C 59 20 22 00 8D 0C 1C |EAVES ONLY "....|
00000460: 00 99 A6 31 29 22 20 44 41 54 41 20 53 54 41 54 |...1)" DATA STAT|
00000470: 45 4D 45 4E 54 53 20 46 4F 52 20 55 53 45 52 20 |EMENTS FOR USER |
00000480: 50 52 4F 47 52 41 4D 53 20 20 20 20 22 00 C2 0C |PROGRAMS "...|
00000490: 1D 00 99 A6 31 29 22 11 11 12 20 20 20 20 20 20 |....1)"... |
000004A0: 20 20 54 4F 20 43 52 45 41 54 45 20 4E 45 57 20 | TO CREATE NEW |
000004B0: 50 52 4F 47 52 41 4D 20 20 20 20 20 20 20 20 20 |PROGRAM |
000004C0: 92 22 00 F5 0C 1E 00 99 A6 31 29 22 11 20 57 41 |.".......1)". WA|
000004D0: 49 54 20 46 4F 52 20 52 45 41 44 59 20 54 4F 20 |IT FOR READY TO |
000004E0: 53 54 4F 50 20 46 4C 41 53 48 49 4E 47 20 20 20 |STOP FLASHING |
000004F0: 20 20 20 20 22 00 26 0D 1F 00 99 A6 31 29 22 20 | ".&.....1)" |
00000500: 49 4E 20 54 48 49 53 20 4D 4F 44 45 2C 54 48 45 |IN THIS MODE,THE|
00000510: 4E 20 53 41 56 45 20 44 41 54 41 20 54 41 50 45 |N SAVE DATA TAPE|
00000520: 2E 20 20 20 20 22 00 57 0D 20 00 99 A6 31 29 22 |. ".W. ...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 20 20 20 20 22 00 8B 0D 21 00 99 A6 31 29 |M. "...!...1)|
00000560: 22 11 11 12 20 20 20 20 20 20 20 20 20 41 4E 59 |"... ANY|
00000570: 20 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 | KEY TO CONTINUE|
00000580: 20 20 20 20 20 20 20 20 20 92 22 00 9D 0D 25 00 | ."...%.|
00000590: A1 4B 24 3A 8B 4B 24 B2 22 22 A7 33 37 00 A4 0D |.K$:.K$."".37...|
000005A0: 26 00 89 34 00 CA 0D 28 00 99 22 93 11 11 11 11 |&..4...(..".....|
000005B0: 20 20 20 20 20 20 20 20 53 50 52 49 54 45 53 20 | SPRITES |
000005C0: 30 2D 34 37 22 3A 8D 32 30 30 00 06 0E 29 00 99 |0-47":.200...)..|
000005D0: A6 34 29 22 12 20 46 49 52 53 54 20 53 50 52 49 |.4)". FIRST SPRI|
000005E0: 54 45 20 4E 4F 2E 20 92 22 3B 3A 4E B2 30 3A 8D |TE NO. .";:N.0:.|
000005F0: 37 35 3A 53 39 B2 4E 3A 8B 53 39 B1 34 37 B0 53 |75:S9.N:.S9.47.S|
00000600: 39 B3 30 A7 34 31 00 45 0E 2A 00 99 A6 34 29 22 |9.0.41.E.*...4)"|
00000610: 11 11 46 4F 52 20 43 4F 4E 53 45 43 55 54 49 56 |..FOR CONSECUTIV|
00000620: 45 20 53 50 52 49 54 45 53 22 3A 99 22 1D 1D 1D |E SPRITES":."...|
00000630: 1D 12 20 20 4E 4F 2E 4F 46 20 53 50 52 49 54 45 |.. NO.OF SPRITE|
00000640: 53 20 92 22 3B 00 6C 0E 2B 00 4E B2 30 3A 8D 37 |S .";.l.+.N.0:.7|
00000650: 35 3A 53 33 B2 4E 3A 8B 28 34 38 AB 53 39 AB 53 |5:S3.N:.(48.S9.S|
00000660: 33 29 B3 30 B0 53 33 B3 31 A7 34 32 00 93 0E 2C |3).0.S3.1.42...,|
00000670: 00 99 A6 33 29 22 11 11 20 44 41 54 41 20 53 54 |...3)".. DATA ST|
00000680: 41 54 45 4D 45 4E 54 53 20 3E 20 32 39 39 22 3A |ATEMENTS > 299":|
00000690: 4E B2 30 00 C3 0E 2D 00 99 A6 34 29 22 12 20 53 |N.0...-...4)". S|
000006A0: 54 41 52 54 20 4F 46 20 44 41 54 41 20 92 22 3B |TART OF DATA .";|
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 32 38 38 AA |.44.....S.12288.|
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 B3 0F |835,S7:.80:.4...|
00000790: 32 00 99 22 93 11 11 11 11 20 20 20 20 20 20 20 |2.."..... |
000007A0: 20 52 41 4D 20 54 4F 20 44 41 54 41 20 22 3A 8D | RAM TO DATA ":.|
000007B0: 32 30 30 00 DF 0F 33 00 99 A6 34 29 22 12 53 54 |200...3...4)".ST|
000007C0: 41 52 54 20 41 44 44 52 45 53 53 20 20 20 20 92 |ART ADDRESS .|
000007D0: 22 3B 3A 4E B2 30 3A 8D 37 35 3A 52 39 B2 4E 00 |";:N.0:.75:R9.N.|
000007E0: 25 10 34 00 99 A6 33 29 22 11 11 20 43 4F 4E 53 |%.4...3)".. CONS|
000007F0: 45 43 55 54 49 56 45 20 41 44 44 52 45 53 53 45 |ECUTIVE ADDRESSE|
00000800: 53 20 20 22 3A 99 22 1D 1D 1D 1D 12 4E 4F 2E 4F |S ":.".....NO.O|
00000810: 46 20 41 44 44 52 45 53 53 45 53 20 20 92 22 3B |F ADDRESSES .";|
00000820: 20 20 20 20 20 00 36 10 35 00 4E B2 30 3A 8D 37 | .6.5.N.0:.7|
00000830: 35 3A 53 33 B2 4E 00 5D 10 36 00 99 A6 33 29 22 |5:S3.N.].6...3)"|
00000840: 11 11 20 44 41 54 41 20 53 54 41 54 45 4D 45 4E |.. DATA STATEMEN|
00000850: 54 53 20 3E 20 32 39 39 22 3A 4E B2 30 00 8D 10 |TS > 299":N.0...|
00000860: 37 00 99 A6 34 29 22 12 20 53 54 41 52 54 20 4F |7...4)". START O|
00000870: 46 20 44 41 54 41 20 92 22 3B 3A 8D 37 35 3A 44 |F DATA .";:.75:D|
00000880: 30 B2 4E 3A 8B 4E B3 33 30 30 A7 35 34 00 C8 10 |0.N:.N.300.54...|
00000890: 38 00 53 B2 52 39 3A 53 36 B2 B5 28 53 AD 32 35 |8.S.R9:S6..(S.25|
000008A0: 36 29 3A 53 37 B2 B5 28 53 AB 53 36 AC 32 35 36 |6):S7..(S.S6.256|
000008B0: 29 3A 4F 50 B2 30 3A 97 38 32 38 2C 30 3A 45 B2 |):OP.0:.828,0:E.|
000008C0: 30 3A 97 38 32 39 2C 30 00 E9 10 39 00 53 38 B2 |0:.829,0...9.S8.|
000008D0: B5 28 53 33 AD 32 35 36 29 3A 53 39 B2 B5 28 53 |.(S3.256):S9..(S|
000008E0: 33 AB 53 38 AC 32 35 36 29 00 22 11 3A 00 97 38 |3.S8.256).".:..8|
000008F0: 33 30 2C 53 38 3A 97 38 33 31 2C 53 39 3A 44 38 |30,S8:.831,S9:D8|
00000900: B2 B5 28 44 30 AD 32 35 36 29 3A 44 39 B2 B5 28 |..(D0.256):D9..(|
00000910: 44 30 AB 44 38 AC 32 35 36 29 3A 97 38 33 32 2C |D0.D8.256):.832,|
00000920: 44 38 00 45 11 3B 00 97 38 33 33 2C 44 39 3A 97 |D8.E.;..833,D9:.|
00000930: 38 33 34 2C 53 36 3A 97 38 33 35 2C 53 37 3A 8D |834,S6:.835,S7:.|
00000940: 38 30 3A 89 34 00 6B 11 3C 00 99 22 93 11 11 11 |80:.4.k.<.."....|
00000950: 11 20 20 20 20 20 20 20 20 44 45 4C 45 54 45 20 |. DELETE |
00000960: 44 41 54 41 20 22 3A 8D 32 30 30 00 A4 11 3D 00 |DATA ":.200...=.|
00000970: 99 22 1D 1D 1D 1D 12 20 53 54 41 52 54 20 44 41 |."..... START DA|
00000980: 54 41 20 3E 20 32 39 39 20 20 92 22 3B 3A 4E B2 |TA > 299 .";:N.|
00000990: 30 3A 8D 37 35 3A 44 30 B2 4E 3A 8B 4E B3 33 30 |0:.75:D0.N:.N.30|
000009A0: 30 A7 36 30 00 EC 11 3E 00 99 22 1D 1D 1D 1D 11 |0.60...>..".....|
000009B0: 11 43 4F 4E 53 45 43 55 54 49 56 45 20 53 54 41 |.CONSECUTIVE STA|
000009C0: 54 45 4D 45 4E 54 53 20 22 3A 99 22 1D 1D 1D 1D |TEMENTS ":."....|
000009D0: 12 20 4E 4F 2E 4F 46 20 53 54 41 54 45 4D 45 4E |. NO.OF STATEMEN|
000009E0: 54 53 20 92 22 3B 20 20 20 20 20 20 00 FD 11 3F |TS ."; ...?|
000009F0: 00 4E B2 30 3A 8D 37 35 3A 53 33 B2 4E 00 38 12 |.N.0:.75:S3.N.8.|
00000A00: 40 00 53 B2 30 3A 53 36 B2 B5 28 53 AD 32 35 36 |@.S.0:S6..(S.256|
00000A10: 29 3A 53 37 B2 B5 28 53 AB 53 36 AC 32 35 36 29 |):S7..(S.S6.256)|
00000A20: 3A 4F 50 B2 31 3A 97 38 32 38 2C 4F 50 3A 45 B2 |:OP.1:.828,OP:E.|
00000A30: 30 3A 97 38 32 39 2C 30 00 59 12 41 00 53 38 B2 |0:.829,0.Y.A.S8.|
00000A40: B5 28 53 33 AD 32 35 36 29 3A 53 39 B2 B5 28 53 |.(S3.256):S9..(S|
00000A50: 33 AB 53 38 AC 32 35 36 29 00 92 12 42 00 97 38 |3.S8.256)...B..8|
00000A60: 33 30 2C 53 38 3A 97 38 33 31 2C 53 39 3A 44 38 |30,S8:.831,S9:D8|
00000A70: B2 B5 28 44 30 AD 32 35 36 29 3A 44 39 B2 B5 28 |..(D0.256):D9..(|
00000A80: 44 30 AB 44 38 AC 32 35 36 29 3A 97 38 33 32 2C |D0.D8.256):.832,|
00000A90: 44 38 00 B5 12 43 00 97 38 33 33 2C 44 39 3A 97 |D8...C..833,D9:.|
00000AA0: 38 33 34 2C 53 36 3A 97 38 33 35 2C 53 37 3A 8D |834,S6:.835,S7:.|
00000AB0: 38 30 3A 89 34 00 F3 12 46 00 97 38 33 39 2C 30 |80:.4...F..839,0|
00000AC0: 3A 99 22 93 22 3A 8D 32 30 30 3A 99 22 1D 11 11 |:.".":.200:."...|
00000AD0: 20 52 45 4D 45 4D 42 45 52 20 54 48 49 53 20 4F | REMEMBER THIS O|
00000AE0: 50 54 49 4F 4E 20 44 45 4C 45 54 45 53 20 54 48 |PTION DELETES TH|
00000AF0: 49 53 22 00 1F 13 47 00 99 22 1D 20 50 52 4F 47 |IS"...G..". PROG|
00000B00: 52 41 4D 20 41 4E 44 20 4C 45 41 56 45 53 20 59 |RAM AND LEAVES Y|
00000B10: 4F 55 52 20 53 54 41 54 45 4D 45 4E 54 53 22 00 |OUR STATEMENTS".|
00000B20: 67 13 48 00 99 22 1D 20 41 53 53 45 4D 42 4C 45 |g.H..". ASSEMBLE|
00000B30: 44 20 41 42 4F 56 45 20 32 39 39 2E 11 11 11 9D |D ABOVE 299.....|
00000B40: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |................|
00000B50: 9D 12 41 4E 59 20 4B 45 59 20 54 4F 20 43 4F 4E |..ANY KEY TO CON|
00000B60: 54 49 4E 55 45 92 22 00 79 13 49 00 A1 4B 24 3A |TINUE.".y.I..K$:|
00000B70: 8B 4B 24 B2 22 22 A7 37 33 00 82 13 4A 00 89 32 |.K$."".73...J..2|
00000B80: 31 30 00 8B 13 4B 00 4E 4E B2 30 00 9D 13 4C 00 |10...K.NN.0...L.|
00000B90: A1 4B 24 3A 8B 4B 24 B2 22 22 A7 37 36 00 C5 13 |.K$:.K$."".76...|
00000BA0: 4D 00 8B 4B 24 B2 C7 28 32 30 29 A7 4E B2 30 3A |M..K$..(20).N.0:|
00000BB0: 81 55 B2 31 A4 4E 4E 3A 99 22 9D 9D 22 3B 3A 82 |.U.1.NN:."..";:.|
00000BC0: 55 3A 89 37 35 00 E2 13 4E 00 4E 4E B2 4E 4E AA |U:.75...N.NN.NN.|
00000BD0: 31 3A 99 4B 24 3B 3A 8B 4B 24 B2 C7 28 31 33 29 |1:.K$;:.K$..(13)|
00000BE0: A7 8E 00 F7 13 4F 00 4E B2 4E AC 31 30 AA C5 28 |.....O.N.N.10..(|
00000BF0: 4B 24 29 3A 89 37 36 00 13 14 50 00 8F 20 20 2A |K$):.76...P.. *|
00000C00: 2A 2A 20 4D 41 49 4E 20 52 4F 55 54 49 4E 45 20 |** MAIN ROUTINE |
00000C10: 2A 2A 2A 00 38 14 51 00 8F 20 20 2A 53 3D 53 54 |***.8.Q.. *S=ST|
00000C20: 41 52 54 20 52 41 4D 20 2A 20 44 30 3D 53 54 41 |ART RAM * D0=STA|
00000C30: 52 54 20 44 41 54 41 2A 00 79 14 52 00 53 34 B2 |RT DATA*.y.R.S4.|
00000C40: 30 3A 97 38 33 36 2C 53 34 3A 53 35 B2 30 3A 97 |0:.836,S4:S5.0:.|
00000C50: 38 33 37 2C 53 35 3A 8F 20 2A 53 33 3D 4E 4F 2E |837,S5:. *S3=NO.|
00000C60: 4F 46 20 52 41 4D 53 20 2A 20 44 31 3D 4E 4F 2E |OF RAMS * D1=NO.|
00000C70: 4F 46 20 4C 49 4E 45 53 2A 00 AF 14 53 00 4F 50 |OF LINES*...S.OP|
00000C80: B2 C2 28 38 32 38 29 3A 53 38 B2 C2 28 38 33 30 |..(828):S8..(830|
00000C90: 29 3A 53 39 B2 C2 28 38 33 31 29 3A 44 38 B2 C2 |):S9..(831):D8..|
00000CA0: 28 38 33 32 29 3A 44 39 B2 C2 28 38 33 33 29 00 |(832):D9..(833).|
00000CB0: F4 14 54 00 53 36 B2 C2 28 38 33 34 29 3A 53 37 |..T.S6..(834):S7|
00000CC0: B2 C2 28 38 33 35 29 3A 53 34 B2 C2 28 38 33 36 |..(835):S4..(836|
00000CD0: 29 3A 53 35 B2 C2 28 38 33 37 29 3A 54 B2 53 34 |):S5..(837):T.S4|
00000CE0: AC 32 35 36 AA 53 35 3A 53 33 B2 53 38 AC 32 35 |.256.S5:S3.S8.25|
00000CF0: 36 AA 53 39 00 31 15 55 00 50 B2 B5 28 54 AD 36 |6.S9.1.U.P..(T.6|
00000D00: 34 29 3A 51 B2 B5 28 54 AB 50 AC 36 34 29 3A 42 |4):Q..(T.P.64):B|
00000D10: B2 B5 28 51 AD 31 36 29 3A 52 B2 B5 28 51 AB 42 |..(Q.16):R..(Q.B|
00000D20: AC 31 36 29 3A 44 30 B2 44 38 AC 32 35 36 AA 44 |.16):D0.D8.256.D|
00000D30: 39 00 4F 15 56 00 58 B2 44 30 3A 59 B2 31 3A 56 |9.O.V.X.D0:Y.1:V|
00000D40: B2 38 33 32 3A 57 B2 38 33 33 3A 8D 32 30 35 00 |.832:W.833:.205.|
00000D50: 92 15 57 00 53 33 B2 53 38 AC 32 35 36 AA 53 39 |..W.S3.S8.256.S9|
00000D60: 3A 44 30 B2 44 38 AC 32 35 36 AA 44 39 3A 53 B2 |:D0.D8.256.D9:S.|
00000D70: 53 36 AC 32 35 36 AA 53 37 3A 58 B2 53 3A 59 B2 |S6.256.S7:X.S:Y.|
00000D80: 30 3A 56 B2 38 33 34 3A 57 B2 38 33 35 3A 8D 32 |0:V.834:W.835:.2|
00000D90: 30 35 00 AE 15 58 00 81 49 B2 30 A4 36 33 3A 5A |05...X..I.0.63:Z|
00000DA0: 25 28 49 29 B2 C2 28 53 AA 49 29 3A 82 49 00 BA |%(I)..(S.I):.I..|
00000DB0: 15 59 00 8B 42 B3 33 A7 39 31 00 EC 15 5A 00 58 |.Y..B.3.91...Z.X|
00000DC0: B2 53 3A 59 B2 36 34 3A 56 B2 38 33 34 3A 57 B2 |.S:Y.64:V.834:W.|
00000DD0: 38 33 35 3A 8D 32 30 35 3A 8F 20 20 2A 2A 2A 2A |835:.205:. ****|
00000DE0: 2A 41 44 44 20 36 34 20 54 4F 20 53 00 19 16 5B |*ADD 64 TO S...[|
00000DF0: 00 99 22 93 22 3B 3A 99 22 13 22 44 30 3B 3A 8B |..".";:."."D0;:.|
00000E00: 4F 50 B3 B1 30 A7 4F 50 B2 4F 50 AA 31 3A 97 38 |OP..0.OP.OP.1:.8|
00000E10: 32 38 2C 4F 50 3A 89 39 37 00 27 16 5C 00 99 22 |28,OP:.97.'.\.."|
00000E20: 9D 44 41 54 41 22 3B 00 64 16 5D 00 81 4A B2 30 |.DATA";.d.]..J.0|
00000E30: A4 31 34 3A 41 24 B2 C4 28 5A 25 28 4A AA 42 AC |.14:A$..(Z%(J.B.|
00000E40: 31 36 29 29 3A 41 24 B2 C9 28 41 24 2C C3 28 41 |16)):A$..(A$,.(A|
00000E50: 24 29 AB 31 29 3A 99 41 24 3B 22 2C 22 3B 3A 54 |$).1):.A$;",";:T|
00000E60: B2 54 AA 31 00 7E 16 5E 00 8B 54 B1 B2 53 33 A7 |.T.1.~.^..T..S3.|
00000E70: 3A 97 38 32 39 2C 31 3A 99 3A 89 31 31 30 00 B6 |:.829,1:.:.110..|
00000E80: 16 5F 00 82 4A 3A 54 B2 54 AA 31 3A 41 24 B2 C4 |._..J:T.T.1:A$..|
00000E90: 28 5A 25 28 42 AC 31 36 AA 31 35 29 29 3A 99 41 |(Z%(B.16.15)):.A|
00000EA0: 24 3A 8B 54 B1 B2 53 33 A7 97 38 32 39 2C 31 3A |$:.T..S3..829,1:|
00000EB0: 99 3A 89 31 31 30 00 BF 16 60 00 89 31 31 30 00 |.:.110...`..110.|
00000EC0: D5 16 61 00 8B 4F 50 B1 53 33 A7 45 B2 31 3A 97 |..a..OP.S3.E.1:.|
00000ED0: 38 32 39 2C 45 00 E0 16 62 00 99 3A 89 31 31 30 |829,E...b..:.110|
00000EE0: 00 EC 16 64 00 86 5A 25 28 36 34 29 00 01 17 65 |...d..Z%(64)...e|
00000EF0: 00 45 B2 C2 28 38 32 39 29 3A 8B 45 B2 30 A7 38 |.E..(829):.E.0.8|
00000F00: 33 00 08 17 66 00 89 34 00 25 17 6E 00 58 B2 54 |3...f..4.%.n.X.T|
00000F10: 3A 59 B2 30 3A 56 B2 38 33 36 3A 57 B2 38 33 37 |:Y.0:V.836:W.837|
00000F20: 3A 8D 32 30 35 00 37 17 6F 00 99 22 52 55 4E 20 |:.205.7.o.."RUN |
00000F30: 31 30 30 3A 22 3B 42 00 6A 17 70 00 97 36 33 31 |100:";B.j.p..631|
00000F40: 2C 31 39 3A 97 36 33 32 2C 31 33 3A 97 36 33 33 |,19:.632,13:.633|
00000F50: 2C 31 33 3A 97 36 33 34 2C 31 33 3A 97 36 33 35 |,13:.634,13:.635|
00000F60: 2C 31 33 3A 97 31 39 38 2C 35 00 70 17 71 00 80 |,13:.198,5.p.q..|
00000F70: 00 9B 17 78 00 99 22 93 11 11 11 11 1D 1D 20 20 |...x.."....... |
00000F80: 4C 49 53 54 20 50 52 4F 47 52 41 4D 20 54 4F 20 |LIST PROGRAM TO |
00000F90: 54 41 50 45 20 22 3A 8D 32 30 30 00 C9 17 79 00 |TAPE ":.200...y.|
00000FA0: 99 22 1D 1D 1D 1D 12 20 53 54 41 52 54 20 4C 49 |."..... START LI|
00000FB0: 4E 45 20 4E 4F 2E 20 20 20 92 22 3B 3A 4E B2 30 |NE NO. .";:N.0|
00000FC0: 3A 8D 37 35 3A 53 39 B2 4E 00 09 18 7A 00 99 22 |:.75:S9.N...z.."|
00000FD0: 1D 1D 1D 11 11 20 4C 49 53 54 20 50 52 4F 47 52 |..... LIST PROGR|
00000FE0: 41 4D 20 54 4F 20 4F 4E 4C 59 20 20 22 3A 99 22 |AM TO ONLY ":."|
00000FF0: 1D 1D 1D 1D 12 20 46 49 4E 41 4C 20 4C 49 4E 45 |..... FINAL LINE|
00001000: 20 4E 4F 2E 20 20 92 22 3B 00 1A 18 7B 00 4E B2 | NO. .";...{.N.|
00001010: 30 3A 8D 37 35 3A 53 33 B2 4E 00 40 18 7C 00 85 |0:.75:S3.N.@.|..|
00001020: 22 93 11 11 11 11 1D 1D 20 20 12 20 54 41 50 45 |"....... . TAPE|
00001030: 20 54 49 54 4C 45 20 20 20 20 92 22 3B 4E 46 24 | TITLE .";NF$|
00001040: 00 73 18 7D 00 99 C7 28 31 34 37 29 3A 99 22 13 |.s.}...(147):.".|
00001050: 4F 50 45 4E 31 2C 31 2C 31 2C 4E 46 24 3A 43 4D |OPEN1,1,1,NF$:CM|
00001060: 44 20 31 3A 4C 49 53 54 22 3B 53 39 3B 22 2D 22 |D 1:LIST";S9;"-"|
00001070: 3B 53 33 00 94 18 7E 00 99 22 11 11 50 52 49 4E |;S3...~.."..PRIN|
00001080: 54 23 31 3A 43 4C 4F 53 45 20 31 3A 47 4F 54 4F |T#1:CLOSE 1:GOTO|
00001090: 31 32 39 22 00 BE 18 7F 00 97 36 33 31 2C 31 39 |129"......631,19|
000010A0: 3A 81 49 39 B2 30 A4 36 3A 97 36 33 32 AA 49 39 |:.I9.0.6:.632.I9|
000010B0: 2C 31 33 3A 82 49 39 3A 97 31 39 38 2C 34 00 C4 |,13:.I9:.198,4..|
000010C0: 18 80 00 80 00 CB 18 81 00 89 34 00 F3 18 82 00 |..........4.....|
000010D0: 99 22 93 11 11 11 11 20 20 20 20 52 45 41 44 20 |."..... READ |
000010E0: 50 52 4F 47 52 41 4D 20 46 52 4F 4D 20 54 41 50 |PROGRAM FROM TAP|
000010F0: 45 20 22 00 15 19 83 00 85 22 11 11 20 20 20 20 |E "......".. |
00001100: 12 54 41 50 45 20 54 49 54 4C 45 20 20 20 20 92 |.TAPE TITLE .|
00001110: 22 3B 4E 46 24 00 32 19 84 00 9F 31 2C 31 2C 30 |";NF$.2....1,1,0|
00001120: 2C 4E 46 24 3A 4B B2 30 3A 4B 39 B2 30 3A 4B 38 |,NF$:K.0:K9.0:K8|
00001130: B2 30 00 3B 19 86 00 99 22 93 22 00 5E 19 87 00 |.0.;....".".^...|
00001140: A1 23 31 2C 59 24 3A 59 B2 C6 28 59 24 AA C7 28 |.#1,Y$:Y..(Y$..(|
00001150: 30 29 29 3A 97 32 30 30 30 30 AA 4B 2C 59 00 89 |0)):.20000.K,Y..|
00001160: 19 88 00 8B 53 54 B2 36 34 A7 A0 20 31 3A 81 4C |....ST.64.. 1:.L|
00001170: B2 31 A4 34 3A 97 32 30 30 30 30 AA 4B AA 4C 2C |.1.4:.20000.K.L,|
00001180: 30 3A 82 4C 3A 89 31 34 30 00 9D 19 8A 00 99 59 |0:.L:.140......Y|
00001190: 24 3B 3A 4B B2 4B AA 31 3A 89 31 33 35 00 A5 19 |$;:K.K.1:.135...|
000011A0: 8C 00 4B B2 30 00 AF 19 8D 00 99 22 93 22 3B 00 |..K.0......".";.|
000011B0: CC 19 8E 00 59 B2 C2 28 32 30 30 30 30 AA 4B 29 |....Y..(20000.K)|
000011C0: 3A 8B 59 B2 30 B0 59 B2 31 30 A7 32 00 09 1A 8F |:.Y.0.Y.10.2....|
000011D0: 00 59 24 B2 C7 28 59 29 3A 4B B2 4B AA 31 3A 4B |.Y$..(Y):K.K.1:K|
000011E0: 39 B2 B5 28 4B AD 32 35 36 29 3A 4B 38 B2 B5 28 |9..(K.256):K8..(|
000011F0: 4B AB 4B 39 AC 32 35 36 29 3A 97 38 32 30 2C 4B |K.K9.256):.820,K|
00001200: 39 3A 97 38 32 31 2C 4B 38 00 1B 1A 90 00 8B 59 |9:.821,K8......Y|
00001210: 24 B2 C7 28 31 33 29 A7 31 34 37 00 29 1A 91 00 |$..(13).147.)...|
00001220: 99 59 24 3B 3A 89 31 34 32 00 4B 1A 93 00 99 3A |.Y$;:.142.K....:|
00001230: 99 22 52 55 4E 20 31 35 30 3A 52 45 4D 20 50 4C |."RUN 150:REM PL|
00001240: 45 41 53 45 20 57 41 49 54 20 22 00 71 1A 94 00 |EASE WAIT ".q...|
00001250: 97 36 33 31 2C 31 39 3A 81 49 B2 30 A4 34 3A 97 |.631,19:.I.0.4:.|
00001260: 36 33 32 AA 49 2C 31 33 3A 82 3A 97 31 39 38 2C |632.I,13:.:.198,|
00001270: 35 00 77 1A 95 00 80 00 A0 1A 96 00 4B 39 B2 C2 |5.w.........K9..|
00001280: 28 38 32 30 29 3A 4B 38 B2 C2 28 38 32 31 29 3A |(820):K8..(821):|
00001290: 4B B2 4B 39 AC 32 35 36 AA 4B 38 3A 99 22 93 22 |K.K9.256.K8:."."|
000012A0: 00 A9 1A 99 00 89 31 34 32 00 EE 1A C8 00 53 30 |......142.....S0|
000012B0: B2 31 30 32 34 3A 43 30 B2 34 30 3A 42 30 B2 35 |.1024:C0.40:B0.5|
000012C0: 34 32 37 32 3A 81 43 31 B2 30 A4 33 39 3A 53 31 |4272:.C1.0.39:S1|
000012D0: B2 53 30 AA 43 31 3A 53 32 B2 53 30 AA 43 31 AA |.S0.C1:S2.S0.C1.|
000012E0: 43 30 AC 32 34 3A 8D 32 30 32 3A 82 43 31 00 21 |C0.24:.202:.C1.!|
000012F0: 1B C9 00 81 43 31 B2 31 A4 32 33 3A 53 31 B2 53 |....C1.1.23:S1.S|
00001300: 30 AA 43 30 AC 43 31 3A 53 32 B2 53 30 AA 43 30 |0.C0.C1:S2.S0.C0|
00001310: AC 43 31 AA 33 39 3A 8D 32 30 32 3A 82 43 31 3A |.C1.39:.202:.C1:|
00001320: 8E 00 49 1B CA 00 97 53 32 2C 32 31 34 3A 97 53 |..I....S2,214:.S|
00001330: 32 AA 42 30 2C 35 3A 97 53 31 2C 32 31 34 3A 97 |2.B0,5:.S1,214:.|
00001340: 53 31 AA 42 30 2C 35 3A 8E 00 7C 1B CD 00 58 B2 |S1.B0,5:..|...X.|
00001350: 58 AA 59 3A 58 38 B2 B5 28 58 AD 32 35 36 29 3A |X.Y:X8..(X.256):|
00001360: 58 39 B2 B5 28 58 AB 58 38 AC 32 35 36 29 3A 97 |X9..(X.X8.256):.|
00001370: 56 2C 58 38 3A 97 57 2C 58 39 3A 8E 00 99 1B D2 |V,X8:.W,X9:.....|
00001380: 00 49 B2 C2 28 38 33 39 29 3A 99 22 93 22 3A 8B |.I..(839):.".":.|
00001390: 49 B1 32 30 36 A7 32 31 34 00 D5 1B D3 00 99 22 |I.206.214......"|
000013A0: 93 22 49 3A 49 B2 49 AA 31 3A 97 38 33 39 2C 49 |."I:I.I.1:.839,I|
000013B0: 3A 99 22 52 55 4E 20 32 31 30 3A 52 45 4D 20 57 |:."RUN 210:REM W|
000013C0: 41 49 54 20 46 4F 52 20 43 4C 45 41 52 20 53 43 |AIT FOR CLEAR SC|
000013D0: 52 45 45 4E 22 00 08 1C D4 00 97 36 33 31 2C 31 |REEN"......631,1|
000013E0: 39 3A 97 36 33 32 2C 31 33 3A 97 36 33 33 2C 31 |9:.632,13:.633,1|
000013F0: 33 3A 97 36 33 34 2C 31 33 3A 97 36 33 35 2C 31 |3:.634,13:.635,1|
00001400: 33 3A 97 31 39 38 2C 35 00 0E 1C D5 00 80 00 34 |3:.198,5.......4|
00001410: 1C D6 00 81 49 B2 32 31 30 A4 32 31 36 3A 99 49 |....I.210.216:.I|
00001420: 3A 82 3A 99 22 50 52 49 4E 54 43 48 52 24 28 31 |:.:."PRINTCHR$(1|
00001430: 34 37 29 22 00 5B 1C D7 00 97 36 33 31 2C 31 39 |47)".[....631,19|
00001440: 3A 81 49 B2 31 A4 39 3A 97 36 33 31 AA 49 2C 31 |:.I.1.9:.631.I,1|
00001450: 33 3A 82 3A 97 31 39 38 2C 31 32 00 61 1C D8 00 |3:.:.198,12.a...|
00001460: 80 00 00 00 52 41 17 |....RA. |
..R.... GOTO 300 OR START OF YOUR PROGR
AM *** CONVERT MEMORY TO BASIC DATA *
**.I....53281,1:.53280,13.U....Z%(64)...
...".":.200:. BORDER.......1)"...
OPTIONS AVAILABLE".......1)"
#################":........1)" INSTRUCT
IONS ON USE...............1":..@.....1)"
SAVE SPRITES AS DATA..............2":.
.R.....1)" SAVE MACHINE CODE AS DATA...
......3":........1)" DELETE DATA STATEM
ENTS............4":..V.....1)" LIST STA
TEMENTS TO TAPE...........5":........1)"
ASSEMBLE DATA FROM TAPE...........6":.
.<.....1)" DELETE STATEMENTS 0-255.....
......7":.:..G.....1)" .KEY IN D
ESIRED OPTION.".Y....K$:.K$."".15......E
(K$)..0.E(K$).7.."..":.14......E(K$).20,
40,50,60,120,130,70.J....E(K$).8...P....
......".":.200:."........INSTRUCTIONS ON
USE OF UTILITY".6.....1)" 77777777777
777777777777777777777".G.....1)".SPRITES
ARE SAVED AS DATA STATEMENTS.".......1)
" SPRITES 0-47 RAM ADDRESS 12288-15360 "
.I.....1)".OR MACHINE CODE CAN BE SAVED
AS DATA.".......1)".DATA STATEMENTS CAN
BE DELETED. ".+.....1)".THE REST OF
THIS PROGRAM MAY BE ".\.....1)".DE
LETED IF REQUIRED.THIS LEAVES ONLY "....
...1)" DATA STATEMENTS FOR USER PROGRAMS
".B.....1)"... TO CREATE NEW
PROGRAM .".......1)". WAIT FOR R
EADY TO STOP FLASHING ".&.....1)"
IN THIS MODE,THEN SAVE DATA TAPE. ".W
. ...1)" LOAD NEW DATA AND KEY IN PROGRA
M. "...!...1)"... ANY KEY TO
CONTINUE ."...%..K$:.K$."".37...
&..4.J.(.."..... SPRITES 0-47":.2
00...)...4)". FIRST SPRITE NO. .";:N.0:.
75:S9.N:.S9.47.S9.0.41.E.*...4)"..FOR CO
NSECUTIVE SPRITES":."..... NO.OF SPRITE
S .";.L.+.N.0:.75:S3.N:.(48.S9.S3).0.S3.
1.42...,...3)".. DATA STATEMENTS > 299":
N.0.C.-...4)". START OF DATA .";:.75:D0.
N:.N.300.44.....S.12288.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...3)".. CONSECUTIVE
ADDRESSES ":.".....NO.OF ADDRESSES .";
.6.5.N.0:.75:S3.N.].6...3)".. DATA
STATEMENTS > 299":N.0...7...4)". START O
F DATA .";:.75:D0.N:.N.300.54.H.8.S.R9:S
6..(S.256):S7..(S.S6.256):OP.0:.828,0:E.
0:.829,0...9.S8..(S3.256):S9..(S3.S8.256
).".:..830,S8:.831,S9:D8..(D0.256):D9..(
D0.D8.256):.832,D8.E.;..833,D9:.834,S6:.
835,S7:.80:.4.K.<.."..... DELETE
DATA ":.200...=.."..... START DATA > 299
.";:N.0:.75:D0.N:.N.300.60...>..".....
.CONSECUTIVE STATEMENTS ":."..... NO.OF
STATEMENTS ."; ...?.N.0:.75:S3.N.8.
@.S.0:S6..(S.256):S7..(S.S6.256):OP.1:.8
28,OP:E.0:.829,0.Y.A.S8..(S3.256):S9..(S
3.S8.256)...B..830,S8:.831,S9:D8..(D0.25
6):D9..(D0.D8.256):.832,D8...C..833,D9:.
834,S6:.835,S7:.80:.4...F..839,0:.".":.2
00:."... REMEMBER THIS OPTION DELETES TH
IS"...G..". PROGRAM AND LEAVES YOUR STAT
EMENTS".G.H..". ASSEMBLED ABOVE 299.....
..................ANY KEY TO CONTINUE.".
Y.I..K$:.K$."".73...J..210...K.NN.0...L.
.K$:.K$."".76.E.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 ***.8.Q.. *S=START RAM * D0=STA
RT DATA*.Y.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.1.U
.P..(T.64):Q..(T.P.64):B..(Q.16):R..(Q.B
.16):D0.D8.256.D9.O.V.X.D0:Y.1:V.832:W.8
33:.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:.8
28,OP:.97.'.\..".DATA";.D.]..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.U.A..OP.S3.E.1:.829,E...
B..:.110...D..Z%(64)...E.E.B(829):.E.0.8
3...F..4.%.N.X.T:Y.0:V.836:W.837:.205.7.
O.."RUN 100:";B.J.P..631,19:.632,13:.633
,13:.634,13:.635,13:.198,5.P.Q.....X..".
...... LIST PROGRAM TO TAPE ":.200.I.Y.
."..... START LINE NO. .";:N.0:.75:S9.
N...Z.."..... LIST PROGRAM TO ONLY ":."
..... FINAL LINE NO. .";...{.N.0:.75:S3
.N.@.|.."....... . TAPE TITLE .";NF$
.S.}..G(147):.".OPEN1,1,1,NF$:CMD 1:LIST
";S9;"-";S3...~.."..PRINT#1:CLOSE 1:GOTO
129".....631,19:.I9.0.6:.632.I9,13:.I9:
.198,4.D.....K....4......"..... READ
PROGRAM FROM TAPE "......".. .TAPE TI
TLE .";NF$.2....1,1,0,NF$:K.0:K9.0:K8
.0.;....".".^....#1,Y$:Y.F(Y$.G(0)):.200
00.K,Y......ST.64. 1:.L.1.4:.20000.K.L,
0:.L:.140......Y$;:K.K.1:.135.....K.0...
...".";.L...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.K....:."RUN 150:REM PLEASE WAI
T ".Q....631,19:.I.0.4:.632.I,13:.:.198,
5.W..... ...K9.B(820):K8.B(821):K.K9.256
.K8:."."......142...H.S0.1024:C0.40:B0.5
4272:.C1.0.39:S1.S0.C1:S2.S0.C1.C0.24:.2
02:.C1.!.I..C1.1.23:S1.S0.C0.C1:S2.S0.C0
.C1.39:.202:.C1:..I.J..S2,214:.S2.B0,5:.
S1,214:.S1.B0,5:..|.M.X.X.Y:X8..(X.256):
X9..(X.X8.256):.V,X8:.W,X9:....R.I.B(839
):.".":.I.206.214.U.S.."."I:I.I.1:.839,I
:."RUN 210:REM WAIT FOR CLEAR SCREEN"...
T..631,19:.632,13:.633,13:.634,13:.635,1
3:.198,5...U...4.V..I.210.216:.I:.:."PRI
NTCHR$(147)".[.W..631,19:.I.1.9:.631.I,1
3:.:.198,12.A.X.....RA.
> CLICK IMAGE PREVIEW FOR FULL MODAL