EDITOR
FILE INFORMATION
FILENAME(S): EDITOR
FILE TYPE(S): PRG
FILE SIZE: 10.6K
FIRST SEEN: 2025-10-19 22:49:48
APPEARS ON: 1 disk(s)
FILE HASH
14ff12169649391a6e3f146315e0eda16ccba62c6b6837434837c53639603e50
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GAMES DISK 163 | EDITOR | PRG | Radd Maxx | 19 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 28 52 28 01 00 8F 22 D0 52 4F 47 52 41 4D 4D |.(R(...".ROGRAMM|
00000010: 45 44 20 42 59 20 D2 49 43 48 41 52 44 20 C5 43 |ED BY .ICHARD .C|
00000020: 4B 45 52 54 20 31 32 2F 38 33 20 20 20 20 20 20 |KERT 12/83 |
00000030: C3 4F 50 59 52 49 47 48 54 20 31 39 38 33 20 20 |.OPYRIGHT 1983 |
00000040: 20 C4 41 56 49 44 53 4F 4E 20 26 20 C1 53 53 4F | .AVIDSON & .SSO|
00000050: 43 2E 00 7C 28 05 00 99 22 93 22 3A 97 20 35 33 |C..|(...".":. 53|
00000060: 32 38 31 2C 31 3A 97 20 35 33 32 38 30 2C 33 3A |281,1:. 53280,3:|
00000070: 20 20 20 20 20 97 36 34 36 2C 31 31 00 A0 28 0A | .646,11..(.|
00000080: 00 49 B2 30 3A 4A B2 30 3A 4B B2 30 3A 4C B2 31 |.I.0:J.0:K.0:L.1|
00000090: 3A 4D B2 30 3A 4E B2 30 3A 48 4D 24 B2 22 13 22 |:M.0:N.0:HM$."."|
000000A0: 00 B5 28 14 00 86 20 41 24 28 33 34 29 3A 48 43 |..(... A$(34):HC|
000000B0: 24 B2 22 93 22 00 D3 28 1E 00 8D 20 39 37 30 30 |$."."..(... 9700|
000000C0: 3A 8F 20 49 4E 53 45 52 54 20 44 41 54 41 20 44 |:. INSERT DATA D|
000000D0: 49 53 4B 00 F1 28 20 00 9F 33 2C 30 3A 8F 20 46 |ISK..( ..3,0:. F|
000000E0: 4F 52 20 4B 45 59 42 4F 41 52 44 20 49 4E 50 55 |OR KEYBOARD INPU|
000000F0: 54 00 0F 29 28 00 8D 20 38 30 31 30 3A 89 20 36 |T..)(.. 8010:. 6|
00000100: 30 3A 8F 20 53 43 52 45 45 4E 20 49 4E 49 54 00 |0:. SCREEN INIT.|
00000110: 2A 29 2A 00 8F 2D 2D 2D 57 41 52 4D 20 53 54 41 |*)*..---WARM STA|
00000120: 52 54 20 49 4E 49 54 2D 2D 2D 00 46 29 32 00 99 |RT INIT---.F)2..|
00000130: 20 48 43 24 3A 8D 20 39 34 30 30 3A 97 20 35 33 | HC$:. 9400:. 53|
00000140: 32 37 32 2C 32 33 00 61 29 34 00 8F 2D 2D 2D 4D |272,23.a)4..---M|
00000150: 41 49 4E 20 49 4E 50 55 54 20 4C 4F 4F 50 2D 2D |AIN INPUT LOOP--|
00000160: 2D 00 82 29 3C 00 4A B2 32 33 3A 8D 20 39 30 30 |-..)<.J.23:. 900|
00000170: 30 3A 99 20 22 20 20 CE 45 57 20 4C 49 4E 45 22 |0:. " .EW LINE"|
00000180: 3B 4C 00 9B 29 46 00 8D 20 39 38 30 30 3A 8F 20 |;L..)F.. 9800:. |
00000190: 50 52 4F 4D 50 54 20 4C 49 4E 45 00 BD 29 50 00 |PROMPT LINE..)P.|
000001A0: 4C 49 4E 45 B2 4C 3A 8D 20 39 31 30 30 3A 8F 20 |LINE.L:. 9100:. |
000001B0: 49 4E 4C 49 4E 45 2B 4E 55 4D 42 45 52 00 CB 29 |INLINE+NUMBER..)|
000001C0: 5A 00 99 20 A3 35 29 20 22 22 3B 00 D6 29 64 00 |Z.. .5) "";..)d.|
000001D0: 84 33 2C 49 4E 24 00 10 2A 6E 00 8B 20 C8 28 49 |.3,IN$..*n.. .(I|
000001E0: 4E 24 2C 31 29 B3 B1 22 2E 22 B0 C3 28 49 4E 24 |N$,1).."."..(IN$|
000001F0: 29 B3 32 A7 20 20 20 20 31 31 32 3A 8F 20 49 54 |).2. 112:. IT|
00000200: 27 53 20 4E 4F 54 20 41 20 43 4F 4D 4D 41 4E 44 |'S NOT A COMMAND|
00000210: 00 4B 2A 6F 00 8B CA 28 49 4E 24 2C 32 2C 31 29 |.K*o...(IN$,2,1)|
00000220: B2 B1 22 41 22 A7 20 8D 20 39 34 30 30 3A 20 20 |.."A". . 9400: |
00000230: 20 20 8D 20 31 36 30 3A 89 20 31 33 30 3A 49 54 | . 160:. 130:IT|
00000240: 20 49 53 20 41 20 43 4F 4D 4D AF 00 64 2A 70 00 | IS A COMM..d*p.|
00000250: 8D 20 39 32 30 30 3A 8B 20 A8 20 56 4C 49 44 20 |. 9200:. . VLID |
00000260: A7 20 36 30 00 6F 2A 72 00 8D 20 39 34 30 30 00 |. 60.o*r.. 9400.|
00000270: 8C 2A 78 00 8B 20 4C B3 32 38 20 A7 20 41 24 28 |.*x.. L.28 . A$(|
00000280: 4C 29 B2 49 4E 24 3A 4C B2 4C AA 31 00 95 2A 82 |L).IN$:L.L.1..*.|
00000290: 00 89 20 36 30 00 AC 2A 96 00 8F 2D 2D 2D 43 48 |.. 60..*...---CH|
000002A0: 41 4E 47 45 20 4D 4F 44 45 2D 2D 2D 00 CC 2A A0 |ANGE MODE---..*.|
000002B0: 00 42 24 B2 CA 28 49 4E 24 2C 32 2C 31 29 3A 8B |.B$..(IN$,2,1):.|
000002C0: 20 42 24 B2 22 22 20 A7 20 33 31 30 00 EB 2A A2 | B$."" . 310..*.|
000002D0: 00 8B 20 42 24 B1 22 C0 22 20 A7 20 42 24 B2 C7 |.. B$."." . B$..|
000002E0: 28 C6 28 42 24 29 AB 31 32 38 29 00 07 2B AA 00 |(.(B$).128)..+..|
000002F0: 8B 20 42 24 B2 22 45 22 20 A7 20 8D 20 32 32 32 |. B$."E" . . 222|
00000300: 30 3A 89 20 33 31 30 00 23 2B B4 00 8B 20 42 24 |0:. 310.#+... B$|
00000310: B2 22 50 22 20 A7 20 8D 20 32 34 30 30 3A 89 20 |."P" . . 2400:. |
00000320: 33 31 30 00 3F 2B BE 00 8B 20 42 24 B2 22 4C 22 |310.?+... B$."L"|
00000330: 20 A7 20 8D 20 32 38 30 30 3A 89 20 33 31 30 00 | . . 2800:. 310.|
00000340: 5B 2B C8 00 8B 20 42 24 B2 22 49 22 20 A7 20 8D |[+... B$."I" . .|
00000350: 20 33 30 30 30 3A 89 20 33 31 30 00 77 2B D2 00 | 3000:. 310.w+..|
00000360: 8B 20 42 24 B2 22 44 22 20 A7 20 8D 20 33 32 31 |. B$."D" . . 321|
00000370: 30 3A 89 20 33 31 30 00 93 2B DC 00 8B 20 42 24 |0:. 310..+... B$|
00000380: B2 22 53 22 20 A7 20 8D 20 34 30 38 30 3A 89 20 |."S" . . 4080:. |
00000390: 33 31 30 00 AF 2B E6 00 8B 20 42 24 B2 22 47 22 |310..+... B$."G"|
000003A0: 20 A7 20 8D 20 33 34 31 30 3A 89 20 33 31 30 00 | . . 3410:. 310.|
000003B0: CB 2B F0 00 8B 20 42 24 B2 22 43 22 20 A7 20 8D |.+... B$."C" . .|
000003C0: 20 34 34 31 30 3A 89 20 33 31 30 00 E7 2B FA 00 | 4410:. 310..+..|
000003D0: 8B 20 42 24 B2 22 51 22 20 A7 20 8D 20 31 30 30 |. B$."Q" . . 100|
000003E0: 39 30 3A 89 33 31 30 00 FD 2B 04 01 8B 20 42 24 |90:.310..+... B$|
000003F0: B2 22 48 22 20 A7 20 8D 20 39 39 30 30 00 03 2C |."H" . . 9900..,|
00000400: 36 01 8E 00 18 2C A2 08 8F 2D 2D 2D 45 44 49 54 |6....,...---EDIT|
00000410: 20 4C 49 4E 45 2D 2D 2D 00 32 2C AC 08 8D 20 39 | LINE---.2,... 9|
00000420: 33 30 30 3A 8B 20 45 4D 50 54 59 20 A7 20 32 33 |300:. EMPTY . 23|
00000430: 34 30 00 3F 2C B6 08 49 B2 C3 28 49 4E 24 29 00 |40.?,..I..(IN$).|
00000440: 59 2C C0 08 8B 20 49 B1 32 20 A7 20 45 24 B2 C9 |Y,... I.2 . E$..|
00000450: 28 49 4E 24 2C 49 AB 32 29 00 95 2C CA 08 8B 49 |(IN$,I.2)..,...I|
00000460: B3 33 A7 4A B2 49 4E 4C 49 4E 45 AB 31 3A 8D 39 |.3.J.INLINE.1:.9|
00000470: 30 30 30 3A 99 A3 45 54 29 22 22 3B 3A 85 22 C5 |000:..ET)"";:.".|
00000480: 44 49 54 20 57 48 49 43 48 20 4C 49 4E 45 20 20 |DIT WHICH LINE |
00000490: 20 22 3B 45 24 00 A7 2C D4 08 45 25 B2 C5 28 45 | ";E$..,..E%..(E|
000004A0: 24 29 3A 45 B2 45 25 00 C1 2C DE 08 8D 20 39 36 |$):E.E%..,... 96|
000004B0: 30 30 3A 8B 20 49 56 4C 49 44 20 A7 20 32 33 34 |00:. IVLID . 234|
000004C0: 30 00 CC 2C E8 08 8D 20 39 34 30 30 00 DC 2C F2 |0..,... 9400..,.|
000004D0: 08 4A B2 32 33 3A 8D 20 39 30 30 30 00 F4 2C FC |.J.23:. 9000..,.|
000004E0: 08 99 20 22 20 20 C5 44 49 54 20 4C 49 4E 45 20 |.. " .DIT LINE |
000004F0: 22 3B 45 24 00 06 2D 06 09 4C 49 4E 45 B2 45 3A |";E$..-..LINE.E:|
00000500: 8D 20 39 31 30 30 00 23 2D 08 09 4A B2 49 4E 4C |. 9100.#-..J.INL|
00000510: 49 4E 45 3A 8D 39 30 30 30 3A 99 A3 35 29 41 24 |INE:.9000:..5)A$|
00000520: 28 45 29 00 4C 2D 12 09 4A B2 49 4E 4C 49 4E 45 |(E).L-..J.INLINE|
00000530: 3A 8D 20 39 30 30 30 3A 99 A3 35 29 22 22 3B 20 |:. 9000:..5)""; |
00000540: 20 20 20 20 20 3A 84 33 2C 49 4E 24 00 67 2D 1A | :.3,IN$.g-.|
00000550: 09 8D 20 39 32 30 30 3A 8B 20 A8 20 56 4C 49 44 |.. 9200:. . VLID|
00000560: 20 A7 20 32 33 31 30 00 7C 2D 1C 09 8D 20 39 34 | . 2310.|-... 94|
00000570: 30 30 3A 41 24 28 45 29 B2 49 4E 24 00 87 2D 24 |00:A$(E).IN$..-$|
00000580: 09 8D 20 39 34 30 30 00 8D 2D 2E 09 8E 00 A7 2D |.. 9400..-.....-|
00000590: 56 09 8F 2D 2D 2D 50 52 49 4E 54 20 4F 55 54 20 |V..---PRINT OUT |
000005A0: 46 49 4C 45 2D 2D 2D 00 C1 2D 60 09 8D 20 39 33 |FILE---..-`.. 93|
000005B0: 30 30 3A 8B 20 45 4D 50 54 59 20 A7 20 32 35 34 |00:. EMPTY . 254|
000005C0: 30 00 CE 2D 6A 09 49 B2 C3 28 49 4E 24 29 00 E8 |0..-j.I..(IN$)..|
000005D0: 2D 74 09 8B 20 49 B1 32 20 A7 20 45 24 B2 C9 28 |-t.. I.2 . E$..(|
000005E0: 49 4E 24 2C 49 AB 32 29 00 FB 2D 88 09 8B 20 49 |IN$,I.2)..-... I|
000005F0: B3 33 20 A7 20 45 24 B2 22 31 22 00 0D 2E 92 09 |.3 . E$."1".....|
00000600: 45 25 B2 C5 28 45 24 29 3A 45 B2 45 25 00 27 2E |E%..(E$):E.E%.'.|
00000610: 9C 09 8D 20 39 36 30 30 3A 8B 20 49 56 4C 49 44 |... 9600:. IVLID|
00000620: 20 A7 20 32 35 34 30 00 36 2E A6 09 4A B2 32 35 | . 2540.6...J.25|
00000630: 3A 8D 39 30 30 30 00 4A 2E B0 09 99 20 A3 31 37 |:.9000.J.... .17|
00000640: 29 22 D2 C5 D4 D5 D2 CE 22 3B 00 63 2E C4 09 9F |)"......";.c....|
00000650: 34 2C 34 2C 37 3A 98 34 2C C7 28 31 33 29 4E 41 |4,4,7:.4,.(13)NA|
00000660: 4D 45 24 00 9B 2E CE 09 98 34 2C C8 28 45 4C 24 |ME$......4,.(EL$|
00000670: 2C 32 AB 28 45 B3 31 30 29 AA 28 45 B3 31 30 30 |,2.(E.10).(E.100|
00000680: 29 29 20 20 20 20 20 3B 45 3B 22 20 20 20 22 3B |)) ;E;" ";|
00000690: 41 24 28 45 29 3A 45 B2 45 AA 31 00 D1 2E D0 09 |A$(E):E.E.1.....|
000006A0: 81 20 49 B2 31 20 A4 20 35 30 3A 82 3A A1 20 41 |. I.1 . 50:.:. A|
000006B0: 24 3A 8B 20 45 B3 4C 20 20 20 20 20 20 20 20 AF |$:. E.L .|
000006C0: 20 41 24 B3 B1 20 C7 28 31 33 29 A7 20 32 35 31 | A$.. .(13). 251|
000006D0: 30 00 DE 2E D1 09 98 34 2C C7 28 31 33 29 00 E5 |0......4,.(13)..|
000006E0: 2E D2 09 A0 34 00 F0 2E EC 09 8D 20 39 34 30 30 |....4...... 9400|
000006F0: 00 F6 2E F6 09 8E 00 0F 2F E6 0A 8F 2D 2D 2D 4C |......../...---L|
00000700: 49 53 54 20 54 48 45 20 46 49 4C 45 2D 2D 2D 00 |IST THE FILE---.|
00000710: 29 2F F0 0A 8D 20 39 33 30 30 3A 8B 20 45 4D 50 |)/... 9300:. EMP|
00000720: 54 59 20 A7 20 32 39 33 30 00 45 2F FA 0A 49 B2 |TY . 2930.E/..I.|
00000730: C3 28 49 4E 24 29 3A 47 B2 AB 31 3A 45 24 B2 22 |.(IN$):G..1:E$."|
00000740: 22 3A 45 B2 31 00 73 2F 04 0B 8B 20 49 B1 32 20 |":E.1.s/... I.2 |
00000750: A7 20 45 24 B2 C9 28 49 4E 24 2C 49 AB 32 29 3A |. E$..(IN$,I.2):|
00000760: 45 25 B2 20 20 20 20 20 20 C5 28 45 24 29 3A 45 |E%. .(E$):E|
00000770: B2 45 25 00 8C 2F 0E 0B 8D 20 39 36 30 30 3A 8B |.E%../... 9600:.|
00000780: 20 49 56 4C 49 44 20 A7 20 45 B2 31 00 97 2F 18 | IVLID . E.1../.|
00000790: 0B 8D 20 39 34 32 30 00 CB 2F 22 0B 4A B2 49 4E |.. 9420../".J.IN|
000007A0: 4C 49 4E 45 AA 31 3A 8D 20 39 30 30 30 3A 41 24 |LINE.1:. 9000:A$|
000007B0: B2 C4 28 45 29 3A 41 24 20 20 20 20 20 B2 C9 28 |..(E):A$ ..(|
000007C0: 41 24 2C C3 28 41 24 29 AB 31 29 00 FE 2F 2C 0B |A$,.(A$).1)../,.|
000007D0: 99 A6 AB 28 45 B3 31 30 29 AB 28 45 B3 31 30 30 |...(E.10).(E.100|
000007E0: 29 29 41 24 3B 22 20 20 22 3B 20 20 20 20 20 20 |))A$;" "; |
000007F0: 20 41 24 28 45 29 3B 22 11 11 11 11 11 22 00 15 | A$(E);"....."..|
00000800: 30 32 0B 45 B2 45 AA 31 3A 81 20 49 B2 31 20 A4 |02.E.E.1:. I.1 .|
00000810: 20 33 35 3A 82 00 41 30 36 0B A1 20 41 24 3A 49 | 35:..A06.. A$:I|
00000820: B2 C6 28 41 24 AA C7 28 30 29 29 3A 8B 20 49 B2 |..(A$..(0)):. I.|
00000830: 33 32 20 20 20 20 20 20 20 20 A7 20 47 B2 A8 20 |32 . G.. |
00000840: 47 00 5A 30 4A 0B 8B 20 A8 20 47 20 AF 20 49 B3 |G.Z0J.. . G . I.|
00000850: B1 31 33 20 A7 20 32 38 37 30 00 73 30 54 0B 8B |.13 . 2870.s0T..|
00000860: 20 45 B3 4C 20 AF 20 49 B3 B1 31 33 20 A7 20 32 | E.L . I..13 . 2|
00000870: 38 35 30 00 79 30 68 0B 99 00 84 30 72 0B 8D 20 |850.y0h....0r.. |
00000880: 39 34 30 30 00 8A 30 7C 0B 8E 00 A1 30 AE 0B 8F |9400..0|....0...|
00000890: 2D 2D 2D 49 4E 53 45 52 54 20 4C 49 4E 45 2D 2D |---INSERT LINE--|
000008A0: 2D 00 BB 30 B8 0B 8D 20 39 33 30 30 3A 8B 20 45 |-..0... 9300:. E|
000008B0: 4D 50 54 59 20 A7 20 33 31 38 30 00 CE 30 C2 0B |MPTY . 3180..0..|
000008C0: 8B 20 4C B1 32 30 30 20 A7 20 33 31 37 30 00 DB |. L.200 . 3170..|
000008D0: 30 CC 0B 49 B2 C3 28 49 4E 24 29 00 05 31 D6 0B |0..I..(IN$)..1..|
000008E0: 8B 20 49 B1 32 20 A7 20 45 24 B2 C9 28 49 4E 24 |. I.2 . E$..(IN$|
000008F0: 2C 49 AB 32 29 3A 20 20 20 20 20 20 20 20 20 89 |,I.2): .|
00000900: 20 33 30 35 35 00 2A 31 E0 0B 4A B2 49 4E 4C 49 | 3055.*1..J.INLI|
00000910: 4E 45 AB 31 3A 8D 20 39 30 30 30 3A 99 A3 45 54 |NE.1:. 9000:..ET|
00000920: 29 20 20 20 20 20 20 22 22 3B 00 48 31 EA 0B 85 |) "";.H1...|
00000930: 20 22 C9 4E 53 45 52 54 20 57 48 49 43 48 20 4C | ".NSERT WHICH L|
00000940: 49 4E 45 20 22 3B 45 24 00 5A 31 EF 0B 45 25 B2 |INE ";E$.Z1..E%.|
00000950: C5 28 45 24 29 3A 45 B2 45 25 00 74 31 F4 0B 8D |.(E$):E.E%.t1...|
00000960: 20 39 36 30 30 3A 8B 20 49 56 4C 49 44 20 A7 20 | 9600:. IVLID . |
00000970: 33 31 38 30 00 7F 31 FE 0B 8D 20 39 34 30 30 00 |3180..1... 9400.|
00000980: AA 31 08 0C 4A B2 32 33 3A 8D 39 30 30 30 3A 99 |.1..J.23:.9000:.|
00000990: 22 20 20 C9 4E 53 45 52 54 20 4C 49 4E 45 22 20 |" .NSERT LINE" |
000009A0: 20 20 20 20 3B 45 3B 22 11 22 00 BF 31 12 0C 99 | ;E;"."..1...|
000009B0: 20 A3 31 36 29 20 22 2E 51 28 55 49 54 22 3B 00 | .16) ".Q(UIT";.|
000009C0: D8 31 1C 0C 4C 49 4E 45 B2 45 3A 8D 20 39 31 30 |.1..LINE.E:. 910|
000009D0: 30 3A 99 20 22 20 22 3B 00 E6 31 26 0C 99 20 A3 |0:. " ";..1&.. .|
000009E0: 35 29 20 22 22 3B 00 F1 31 30 0C 84 33 2C 49 4E |5) "";..10..3,IN|
000009F0: 24 00 12 32 3A 0C 8B 20 49 4E 24 B2 22 2E 51 22 |$..2:.. IN$.".Q"|
00000A00: 20 B0 20 49 4E 24 B2 22 2E D1 22 20 A7 20 33 31 | . IN$.".." . 31|
00000A10: 37 30 00 2D 32 44 0C 8D 20 39 32 30 30 3A 8B 20 |70.-2D.. 9200:. |
00000A20: A8 20 56 4C 49 44 20 A7 20 33 31 30 30 00 60 32 |. VLID . 3100.`2|
00000A30: 4E 0C 81 20 49 B2 4C AB 31 20 A4 20 45 20 A9 AB |N.. I.L.1 . E ..|
00000A40: 31 3A 41 24 28 49 AA 31 29 B2 41 24 28 49 29 20 |1:A$(I.1).A$(I) |
00000A50: 20 20 20 20 3A 82 3A 41 24 28 45 29 B2 49 4E 24 | :.:A$(E).IN$|
00000A60: 00 7F 32 58 0C 4C B2 4C AA 31 3A 45 B2 45 AA 31 |..2X.L.L.1:E.E.1|
00000A70: 3A 8B 20 4C B3 32 30 31 20 A7 20 33 30 37 30 00 |:. L.201 . 3070.|
00000A80: 8A 32 62 0C 8D 20 39 34 30 30 00 95 32 6C 0C 8D |.2b.. 9400..2l..|
00000A90: 20 39 34 30 30 00 9B 32 76 0C 8E 00 B2 32 80 0C | 9400..2v....2..|
00000AA0: 8F 2D 2D 2D 44 45 4C 45 54 45 20 4C 49 4E 45 2D |.---DELETE LINE-|
00000AB0: 2D 2D 00 CC 32 8A 0C 8D 20 39 33 30 30 3A 8B 20 |--..2... 9300:. |
00000AC0: 45 4D 50 54 59 20 A7 20 33 33 38 30 00 FD 32 9E |EMPTY . 3380..2.|
00000AD0: 0C 49 B2 C3 28 49 4E 24 29 3A 8B 20 49 B1 32 20 |.I..(IN$):. I.2 |
00000AE0: A7 20 45 24 B2 C9 28 20 20 20 20 20 20 20 49 4E |. E$..( IN|
00000AF0: 24 2C 49 AB 32 29 3A 89 20 33 32 37 30 00 13 33 |$,I.2):. 3270..3|
00000B00: A8 0C 4A B2 49 4E 4C 49 4E 45 AB 31 3A 8D 20 39 |..J.INLINE.1:. 9|
00000B10: 30 30 30 00 21 33 B2 0C 99 20 A3 45 54 29 22 22 |000.!3... .ET)""|
00000B20: 3B 00 3F 33 BC 0C 85 20 22 C4 45 4C 45 54 45 20 |;.?3... ".ELETE |
00000B30: 57 48 49 43 48 20 4C 49 4E 45 20 22 3B 45 24 00 |WHICH LINE ";E$.|
00000B40: 51 33 C6 0C 45 25 B2 C5 28 45 24 29 3A 45 B2 45 |Q3..E%..(E$):E.E|
00000B50: 25 00 6B 33 D0 0C 8D 20 39 36 30 30 3A 8B 20 49 |%.k3... 9600:. I|
00000B60: 56 4C 49 44 20 A7 20 33 33 38 30 00 76 33 DA 0C |VLID . 3380.v3..|
00000B70: 8D 20 39 34 32 30 00 94 33 E4 0C 4C 49 4E 45 B2 |. 9420..3..LINE.|
00000B80: 45 3A 8D 20 39 31 30 30 3A 99 22 20 20 22 3B 41 |E:. 9100:." ";A|
00000B90: 24 28 45 29 00 A6 33 EE 0C 8D 20 39 34 32 30 3A |$(E)..3... 9420:|
00000BA0: 8D 20 39 34 32 30 00 BA 33 F0 0C 4A B2 49 4E 4C |. 9420..3..J.INL|
00000BB0: 49 4E 45 3A 8D 20 39 30 30 30 00 D9 33 F8 0C 99 |INE:. 9000..3...|
00000BC0: 20 A3 35 29 20 22 C4 45 4C 45 54 45 20 54 48 49 | .5) ".ELETE THI|
00000BD0: 53 3F 20 28 59 2F 4E 29 22 00 E4 33 FA 0C 8D 20 |S? (Y/N)"..3... |
00000BE0: 39 34 30 30 00 22 34 02 0D A1 20 41 24 3A 8B 20 |9400."4... A$:. |
00000BF0: 41 24 B3 B1 22 59 22 20 AF 20 41 24 B3 B1 22 D9 |A$.."Y" . A$..".|
00000C00: 22 20 AF 20 20 20 20 20 20 20 41 24 B3 B1 22 4E |" . A$.."N|
00000C10: 22 20 AF 20 41 24 B3 B1 22 CE 22 20 A7 20 33 33 |" . A$.."." . 33|
00000C20: 33 30 00 3F 34 0C 0D 8B 20 41 24 B2 22 4E 22 20 |30.?4... A$."N" |
00000C30: B0 20 41 24 B2 22 CE 22 20 A7 20 33 33 38 30 00 |. A$."." . 3380.|
00000C40: 5F 34 16 0D 81 20 49 B2 45 20 A4 20 4C AB 31 3A |_4... I.E . L.1:|
00000C50: 41 24 28 49 29 B2 41 24 28 49 AA 31 29 3A 82 00 |A$(I).A$(I.1):..|
00000C60: 69 34 20 0D 4C B2 4C AB 31 00 74 34 34 0D 8D 20 |i4 .L.L.1.t44.. |
00000C70: 39 34 30 30 00 7A 34 3E 0D 8E 00 98 34 48 0D 8F |9400.z4>....4H..|
00000C80: 2D 2D 2D 47 45 54 20 46 49 4C 45 20 46 52 4F 4D |---GET FILE FROM|
00000C90: 20 44 49 53 4B 2D 2D 2D 00 B9 34 52 0D 49 B2 C3 | DISK---..4R.I..|
00000CA0: 28 49 4E 24 29 3A 45 24 B2 22 22 3A 44 53 4B 45 |(IN$):E$."":DSKE|
00000CB0: 52 B2 30 3A 44 49 52 B2 30 00 DE 34 5C 0D 8B 20 |R.0:DIR.0..4\.. |
00000CC0: 49 B1 32 20 A7 20 45 24 B2 C9 28 49 4E 24 2C 49 |I.2 . E$..(IN$,I|
00000CD0: AB 32 29 3A 89 20 20 20 20 20 33 34 35 30 00 E9 |.2):. 3450..|
00000CE0: 34 5E 0D 8D 20 39 34 30 30 00 FA 34 66 0D 4A B2 |4^.. 9400..4f.J.|
00000CF0: 49 4E 4C 3A 8D 20 39 30 30 30 00 11 35 70 0D 8D |INL:. 9000..5p..|
00000D00: 20 34 33 30 30 3A 8F 20 46 49 4C 45 20 4E 41 4D | 4300:. FILE NAM|
00000D10: 45 00 53 35 7A 0D 8B 20 45 24 B2 22 2E 44 22 B0 |E.S5z.. E$.".D".|
00000D20: 45 24 B2 22 2E C4 22 A7 20 44 49 52 B2 AB 31 3A |E$."..". DIR..1:|
00000D30: 20 20 20 20 20 20 20 20 8D 20 33 36 39 30 3A 45 | . 3690:E|
00000D40: 24 B2 22 22 3A 8B 20 44 53 4B 45 52 20 A7 20 33 |$."":. DSKER . 3|
00000D50: 35 34 38 00 64 35 7C 0D 8B 20 44 49 52 20 A7 20 |548.d5|.. DIR . |
00000D60: 33 34 33 30 00 77 35 84 0D 8B 20 45 24 B2 22 22 |3430.w5... E$.""|
00000D70: 20 A7 20 33 35 34 38 00 8F 35 8E 0D 8D 20 33 36 | . 3548..5... 36|
00000D80: 30 30 3A 8F 20 4C 4F 57 45 52 20 43 41 53 45 00 |00:. LOWER CASE.|
00000D90: A8 35 98 0D 81 20 49 B2 31 20 A4 20 4C 3A 41 24 |.5... I.1 . L:A$|
00000DA0: 28 49 29 B2 22 22 3A 82 00 B7 35 A2 0D 49 B2 B8 |(I)."":...5..I..|
00000DB0: 28 30 29 3A 4C B2 31 00 E8 35 AC 0D 9F 31 35 2C |(0):L.1..5...15,|
00000DC0: 38 2C 31 35 2C 22 49 22 3A 9F 20 32 2C 38 2C 32 |8,15,"I":. 2,8,2|
00000DD0: 2C 22 30 3A 22 AA 45 24 AA 20 20 20 20 20 22 53 |,"0:".E$. "S|
00000DE0: 2C 52 22 3A 4A B2 53 54 00 03 36 AE 0D 8B 4A B2 |,R":J.ST..6...J.|
00000DF0: 30 A7 84 32 2C 41 24 28 31 29 3A 4A B2 53 54 3A |0..2,A$(1):J.ST:|
00000E00: 4C B2 32 00 1E 36 B0 0D 8B 4A B2 30 A7 84 32 2C |L.2..6...J.0..2,|
00000E10: 41 24 28 32 29 3A 4A B2 53 54 3A 4C B2 33 00 5B |A$(2):J.ST:L.3.[|
00000E20: 36 B6 0D 8B 4A B2 30 20 A7 20 84 32 2C 41 24 3A |6...J.0 . .2,A$:|
00000E30: 84 32 2C 42 24 3A 41 24 28 4C 29 B2 41 24 AA 22 |.2,B$:A$(L).A$."|
00000E40: 20 22 AA 42 24 3A 4C B2 4C AA 31 3A 4A B2 53 54 | ".B$:L.L.1:J.ST|
00000E50: 3A 8B 4C B3 32 37 A7 33 35 31 30 00 73 36 C0 0D |:.L.27.3510.s6..|
00000E60: A0 32 3A 84 31 35 2C 41 2C 42 24 2C 43 2C 44 3A |.2:.15,A,B$,C,D:|
00000E70: A0 31 35 00 AD 36 CA 0D 8B 41 B3 B1 30 A7 4C B2 |.15..6...A..0.L.|
00000E80: 31 3A 8D 20 33 35 36 30 3A 89 20 33 35 34 38 3A |1:. 3560:. 3548:|
00000E90: 20 20 20 20 20 8F 20 54 48 45 52 45 20 57 41 53 | . THERE WAS|
00000EA0: 20 41 20 44 49 53 4B 20 45 52 52 4F 52 00 BA 36 | A DISK ERROR..6|
00000EB0: D4 0D 4E 41 4D 45 24 B2 45 24 00 C5 36 DC 0D 8D |..NAME$.E$..6...|
00000EC0: 20 39 34 30 30 00 CB 36 DD 0D 8E 00 E1 36 DE 0D | 9400..6.....6..|
00000ED0: 8F 2D 2D 2D 44 49 53 4B 20 45 52 52 4F 52 2D 2D |.---DISK ERROR--|
00000EE0: 2D 00 F5 36 E8 0D 8D 20 39 34 32 30 3A 4A B2 49 |-..6... 9420:J.I|
00000EF0: 4E 4C 49 4E 45 00 0D 37 F2 0D 8D 39 30 30 30 3A |NLINE..7...9000:|
00000F00: 99 A3 35 29 42 24 3A 8D 20 39 34 32 30 00 1D 37 |..5)B$:. 9420..7|
00000F10: F4 0D 8B 41 B2 36 32 A7 8D 33 35 38 33 00 23 37 |...A.62..3583.#7|
00000F20: F5 0D 8E 00 3D 37 FE 0D 8F 2D 2D 2D 46 49 4C 45 |....=7...---FILE|
00000F30: 20 4E 4F 54 20 46 4F 55 4E 44 2D 2D 2D 00 56 37 | NOT FOUND---.V7|
00000F40: FF 0D 8D 39 34 32 30 3A 4A B2 49 4E 4C 49 4E 45 |...9420:J.INLINE|
00000F50: 3A 8D 39 30 30 30 00 7F 37 00 0E 99 A3 35 29 22 |:.9000..7....5)"|
00000F60: C6 49 4C 45 20 4E 41 4D 45 20 54 59 50 45 44 20 |.ILE NAME TYPED |
00000F70: 49 4E 43 4F 52 52 45 43 54 4C 59 20 4F 52 22 00 |INCORRECTLY OR".|
00000F80: B6 37 01 0E 99 A3 35 29 22 C4 41 54 41 20 C4 49 |.7....5)".ATA .I|
00000F90: 53 4B 20 48 41 53 20 4E 4F 54 20 42 45 45 4E 20 |SK HAS NOT BEEN |
00000FA0: 49 4E 53 45 52 54 45 44 2E 22 3A 8D 39 34 32 30 |INSERTED.":.9420|
00000FB0: 3A 8D 39 34 32 30 00 BC 37 02 0E 8E 00 D2 37 06 |:.9420..7.....7.|
00000FC0: 0E 8F 2D 2D 2D 4C 4F 57 45 52 20 43 41 53 45 2D |..---LOWER CASE-|
00000FD0: 2D 2D 00 E2 37 10 0E 45 24 B2 C8 28 45 24 2C 31 |--..7..E$..(E$,1|
00000FE0: 35 29 00 FB 37 1A 0E 49 B2 C6 28 C9 28 45 24 2C |5)..7..I..(.(E$,|
00000FF0: 31 29 29 3A 4A B2 C3 28 45 24 29 00 35 38 24 0E |1)):J..(E$).58$.|
00001000: 8B 20 49 B2 33 32 20 B0 20 49 B2 31 36 30 20 AF |. I.32 . I.160 .|
00001010: 20 4A B1 31 20 A7 20 45 24 B2 20 20 20 20 20 20 | J.1 . E$. |
00001020: 20 C8 28 45 24 2C C3 28 45 24 29 AB 31 29 3A 89 | .(E$,.(E$).1):.|
00001030: 20 33 36 31 30 00 61 38 2E 0E 42 24 B2 22 22 3A | 3610.a8..B$."":|
00001040: 81 20 49 B2 31 20 A4 20 C3 28 45 24 29 3A 4A B2 |. I.1 . .(E$):J.|
00001050: C6 28 CA 20 20 20 20 20 28 45 24 2C 49 2C 31 29 |.(. (E$,I,1)|
00001060: 29 00 7D 38 38 0E 42 24 B2 42 24 AA C7 28 4A AA |).}88.B$.B$..(J.|
00001070: 31 32 38 AC 28 4A B1 39 30 29 29 3A 82 00 A0 38 |128.(J.90)):...8|
00001080: 42 0E 42 24 B2 C8 28 42 24 2C 31 35 29 AA 22 A0 |B.B$..(B$,15).".|
00001090: A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 22 |..............."|
000010A0: 00 B0 38 4C 0E 45 24 B2 C8 28 42 24 2C 31 36 29 |..8L.E$..(B$,16)|
000010B0: 00 B6 38 56 0E 8E 00 D0 38 60 0E 8F 2D 2D 2D 44 |..8V....8`..---D|
000010C0: 49 53 4B 20 44 49 52 45 43 54 4F 52 59 2D 2D 2D |ISK DIRECTORY---|
000010D0: 00 E1 38 6A 0E 99 20 48 43 24 3A 8D 20 39 34 30 |..8j.. HC$:. 940|
000010E0: 30 00 F1 38 74 0E 4A B2 32 35 3A 8D 20 39 30 30 |0..8t.J.25:. 900|
000010F0: 30 00 17 39 7E 0E 99 20 A3 31 34 29 20 22 2E 44 |0..9~.. .14) ".D|
00001100: 28 49 52 45 43 54 4F 52 59 22 3B 3A 99 20 20 20 |(IRECTORY";:. |
00001110: 20 20 20 48 4D 24 3B 00 35 39 88 0E 9F 20 31 35 | HM$;.59... 15|
00001120: 2C 38 2C 31 35 2C 22 49 22 3A 9F 20 31 2C 38 2C |,8,15,"I":. 1,8,|
00001130: 31 2C 22 24 22 00 55 39 92 0E 8F 20 4A 3D 31 2D |1,"$".U9... J=1-|
00001140: 38 20 43 54 52 20 20 4B 3D 54 54 41 4C 20 20 20 |8 CTR K=TTAL |
00001150: 54 3D 54 41 42 00 71 39 9C 0E 4A B2 31 3A 4B B2 |T=TAB.q9..J.1:K.|
00001160: 31 3A 54 B2 32 3A 8B 20 53 54 20 A7 20 33 39 37 |1:T.2:. ST . 397|
00001170: 30 00 77 39 9D 0E 3A 00 99 39 9E 0E 8F 20 20 20 |0.w9..:..9... |
00001180: 53 4B 49 50 20 54 48 45 20 44 49 52 45 43 54 4F |SKIP THE DIRECTO|
00001190: 52 59 20 48 45 41 44 45 52 00 B3 39 A6 0E A1 23 |RY HEADER..9...#|
000011A0: 31 2C 41 24 2C 41 24 3A 8B 20 53 54 20 A7 20 33 |1,A$,A$:. ST . 3|
000011B0: 39 37 30 00 F5 39 0A 0F 81 20 49 B2 31 20 A4 20 |970..9... I.1 . |
000011C0: 31 38 3A A1 23 31 2C 41 24 2C 41 24 2C 41 24 2C |18:.#1,A$,A$,A$,|
000011D0: 41 24 2C 41 24 2C 20 20 20 41 24 2C 41 24 2C 41 |A$,A$, A$,A$,A|
000011E0: 24 2C 41 24 2C 41 24 2C 41 24 2C 41 24 2C 41 24 |$,A$,A$,A$,A$,A$|
000011F0: 2C 41 24 3A 82 00 05 3A 14 0F 8B 20 53 54 20 A7 |,A$:...:... ST .|
00001200: 20 33 39 37 30 00 0B 3A 15 0F 3A 00 30 3A 16 0F | 3970..:..:.0:..|
00001210: 8F 20 20 47 45 54 20 46 49 4C 45 20 54 59 50 45 |. GET FILE TYPE|
00001220: 2C 20 54 52 41 43 4B 20 26 20 53 45 43 54 4F 52 |, TRACK & SECTOR|
00001230: 00 4D 3A 1E 0F A1 23 31 2C 41 24 2C 42 24 2C 42 |.M:...#1,A$,B$,B|
00001240: 24 3A 8B 20 53 54 20 A7 20 33 39 37 30 00 53 3A |$:. ST . 3970.S:|
00001250: 1F 0F 3A 00 76 3A 20 0F 8F 20 20 20 53 4B 49 50 |..:.v: .. SKIP|
00001260: 20 45 4E 54 52 59 20 49 46 20 4E 4F 54 20 53 45 | ENTRY IF NOT SE|
00001270: 51 20 46 49 4C 45 00 AE 3A 28 0F 8B 20 C6 28 41 |Q FILE..:(.. .(A|
00001280: 24 AA C7 28 30 29 29 B3 B1 31 32 39 20 A7 20 81 |$..(0))..129 . .|
00001290: 20 49 B2 20 20 20 20 20 31 20 A4 20 31 36 3A A1 | I. 1 . 16:.|
000012A0: 23 31 2C 41 24 3A 82 3A 89 20 33 39 32 30 00 B4 |#1,A$:.:. 3920..|
000012B0: 3A 29 0F 3A 00 D8 3A 2A 0F 8F 20 20 49 53 20 53 |:).:..:*.. IS S|
000012C0: 45 51 2C 20 47 45 54 20 31 36 20 43 48 41 52 53 |EQ, GET 16 CHARS|
000012D0: 20 49 4E 20 4E 41 4D 45 00 0D 3B 32 0F 49 24 B2 | IN NAME..;2.I$.|
000012E0: 22 22 3A 81 20 49 B2 31 20 A4 20 32 3A A1 23 31 |"":. I.1 . 2:.#1|
000012F0: 2C 41 24 2C 42 24 2C 43 24 2C 44 20 20 20 20 20 |,A$,B$,C$,D |
00001300: 24 2C 45 24 2C 46 24 2C 47 24 2C 48 24 00 31 3B |$,E$,F$,G$,H$.1;|
00001310: 3C 0F 49 24 B2 49 24 AA 41 24 AA 42 24 AA 43 24 |<.I$.I$.A$.B$.C$|
00001320: AA 44 24 AA 45 24 AA 46 24 AA 47 24 AA 48 24 3A |.D$.E$.F$.G$.H$:|
00001330: 82 00 44 3B 46 0F 99 20 A3 54 29 20 49 24 3A 4B |..D;F.. .T) I$:K|
00001340: B2 4B AA 31 00 4A 3B 47 0F 3A 00 61 3B 48 0F 8F |.K.1.J;G.:.a;H..|
00001350: 20 53 4B 49 50 20 42 59 54 45 53 20 31 39 2D 32 | SKIP BYTES 19-2|
00001360: 39 00 A0 3B 50 0F A1 23 31 2C 41 24 2C 41 24 2C |9..;P..#1,A$,A$,|
00001370: 41 24 2C 41 24 2C 41 24 2C 41 24 2C 41 24 2C 41 |A$,A$,A$,A$,A$,A|
00001380: 24 2C 41 24 2C 41 24 20 20 20 20 2C 41 24 3A 8B |$,A$,A$ ,A$:.|
00001390: 20 4A B3 38 20 A7 20 A1 23 31 2C 41 24 2C 41 24 | J.8 . .#1,A$,A$|
000013A0: 00 B2 3B 5A 0F 4A B2 4A AA 31 AA 38 AC 28 4A B2 |..;Z.J.J.1.8.(J.|
000013B0: 38 29 00 B8 3B 5B 0F 3A 00 DB 3B 5C 0F 8F 20 4D |8)..;[.:..;\.. M|
000013C0: 4F 56 45 20 54 4F 20 43 4F 4C 55 4D 4E 20 32 20 |OVE TO COLUMN 2 |
000013D0: 49 46 20 31 38 20 46 49 4C 45 53 00 F3 3B 64 0F |IF 18 FILES..;d.|
000013E0: 8B 20 4B B2 31 38 20 A7 20 54 B2 32 31 3A 99 20 |. K.18 . T.21:. |
000013F0: 48 4D 24 00 FE 3B 6E 0F 89 20 33 38 36 30 00 04 |HM$..;n.. 3860..|
00001400: 3C 6F 0F 3A 00 24 3C 78 0F 8F 20 4E 4F 20 4D 4F |<o.:.$<x.. NO MO|
00001410: 52 45 20 44 49 52 45 43 54 4F 52 59 20 45 4E 54 |RE DIRECTORY ENT|
00001420: 52 49 45 53 00 3E 3C 7A 0F 8F 20 43 48 45 43 4B |RIES.><z.. CHECK|
00001430: 20 45 52 52 4F 52 20 43 48 41 4E 4E 45 4C 00 56 | ERROR CHANNEL.V|
00001440: 3C 82 0F A0 31 3A 84 31 35 2C 49 2C 42 24 2C 4E |<...1:.15,I,B$,N|
00001450: 2C 4D 3A A0 31 35 00 71 3C 8C 0F 8B 20 49 B3 B1 |,M:.15.q<... I..|
00001460: 30 20 A7 20 8D 20 34 30 32 30 3A 89 20 34 30 30 |0 . . 4020:. 400|
00001470: 32 00 8C 3C 96 0F 4A B2 33 AA 4B AA 32 31 AC 28 |2..<..J.3.K.21.(|
00001480: 4B B1 32 32 29 3A 8D 20 39 30 30 30 00 BC 3C A0 |K.22):. 9000..<.|
00001490: 0F 8B 20 4B B2 31 A7 99 A3 32 29 22 CE 4F 20 44 |.. K.1...2)".O D|
000014A0: 41 54 41 20 46 49 4C 45 53 20 41 52 45 20 4F 4E |ATA FILES ARE ON|
000014B0: 20 54 48 49 53 20 44 49 53 4B 2E 22 00 D1 3C A1 | THIS DISK."..<.|
000014C0: 0F 4A B2 32 32 3A 8D 20 39 30 30 30 3A 99 20 4C |.J.22:. 9000:. L|
000014D0: 24 00 D7 3C A2 0F 8E 00 F1 3C AA 0F 8F 2D 2D 44 |$..<.....<...--D|
000014E0: 49 52 45 43 54 4F 52 59 20 45 52 52 4F 52 2D 2D |IRECTORY ERROR--|
000014F0: 2D 00 0E 3D B4 0F 4A B2 49 4E 4C 49 4E 45 3A 8D |-..=..J.INLINE:.|
00001500: 20 39 30 30 30 3A 44 53 4B 45 52 B2 AB 31 00 2C | 9000:DSKER..1.,|
00001510: 3D BE 0F 99 20 A3 36 29 20 22 C4 49 52 45 43 54 |=... .6) ".IRECT|
00001520: 4F 52 59 20 C5 52 52 4F 52 11 11 22 00 40 3D C8 |ORY .RROR..".@=.|
00001530: 0F 8D 20 39 34 32 30 3A 99 20 A3 36 29 20 42 24 |.. 9420:. .6) B$|
00001540: 00 46 3D DC 0F 8E 00 63 3D E6 0F 8F 2D 2D 2D 53 |.F=....c=...---S|
00001550: 41 56 45 20 46 49 4C 45 20 54 4F 20 44 49 53 4B |AVE FILE TO DISK|
00001560: 2D 2D 2D 00 7D 3D F0 0F 8D 20 39 33 30 30 3A 8B |---.}=... 9300:.|
00001570: 20 45 4D 50 54 59 20 A7 20 34 32 32 30 00 98 3D | EMPTY . 4220..=|
00001580: FA 0F 49 B2 C3 28 49 4E 24 29 3A 45 24 B2 22 22 |..I..(IN$):E$.""|
00001590: 3A 44 53 4B 45 52 B2 30 00 BD 3D 04 10 8B 20 49 |:DSKER.0..=... I|
000015A0: B1 32 20 A7 20 45 24 B2 C9 28 49 4E 24 2C 49 AB |.2 . E$..(IN$,I.|
000015B0: 32 29 3A 89 20 20 20 20 20 34 31 33 30 00 D8 3D |2):. 4130..=|
000015C0: 0E 10 8D 20 39 34 30 30 3A 4A B2 49 4E 4C 49 4E |... 9400:J.INLIN|
000015D0: 45 3A 8D 20 39 30 30 30 00 F1 3D 10 10 8B 20 4E |E:. 9000..=... N|
000015E0: 41 4D 45 24 B3 B1 22 22 20 A7 20 8D 20 34 32 35 |AME$.."" . . 425|
000015F0: 30 00 06 3E 18 10 8B 20 45 24 B2 22 22 20 A7 20 |0..>... E$."" . |
00001600: 8D 20 34 33 36 30 00 43 3E 22 10 8B 20 45 24 B2 |. 4360.C>".. E$.|
00001610: 22 2E 44 22 20 B0 20 45 24 B2 22 2E C4 22 20 A7 |".D" . E$.".." .|
00001620: 20 44 49 52 B2 AB 31 3A 20 20 20 20 20 20 8D 20 | DIR..1: . |
00001630: 33 36 39 30 3A 8B 20 44 53 4B 45 52 20 A7 20 34 |3690:. DSKER . 4|
00001640: 32 32 30 00 5C 3E 26 10 8B 20 44 49 52 20 A7 20 |220.\>&.. DIR . |
00001650: 45 24 B2 22 22 3A 89 20 34 31 32 30 00 6F 3E 2C |E$."":. 4120.o>,|
00001660: 10 8B 20 45 24 B2 22 22 20 A7 20 34 32 32 30 00 |.. E$."" . 4220.|
00001670: 87 3E 36 10 8D 20 33 36 30 30 3A 8F 20 4C 4F 57 |.>6.. 3600:. LOW|
00001680: 45 52 20 43 41 53 45 00 B9 3E 40 10 9F 31 35 2C |ER CASE..>@..15,|
00001690: 38 2C 31 35 2C 22 49 22 3A 9F 20 32 2C 38 2C 32 |8,15,"I":. 2,8,2|
000016A0: 2C 22 40 30 3A 22 AA 45 24 20 20 20 20 20 AA 22 |,"@0:".E$ ."|
000016B0: 53 2C 57 22 3A 4A B2 53 54 00 EE 3E 42 10 8B 4A |S,W":J.ST..>B..J|
000016C0: B2 30 A7 98 32 2C C7 28 33 34 29 41 24 28 31 29 |.0..2,.(34)A$(1)|
000016D0: 20 20 20 20 20 20 20 20 20 20 C7 28 33 34 29 3A | .(34):|
000016E0: 4A B2 53 54 3A 8B 4C B2 32 A7 34 31 37 32 00 27 |J.ST:.L.2.4172.'|
000016F0: 3F 43 10 8B 4A B2 30 A7 98 32 2C C7 28 33 34 29 |?C..J.0..2,.(34)|
00001700: 41 24 28 32 29 20 20 20 20 20 20 20 20 20 20 C7 |A$(2) .|
00001710: 28 33 34 29 3A 4A B2 53 54 3A 49 B2 33 3A 8B 4C |(34):J.ST:I.3:.L|
00001720: B2 33 A7 34 31 37 32 00 55 3F 4A 10 8B 4A B2 30 |.3.4172.U?J..J.0|
00001730: A7 8D 34 32 33 32 3A 8B 20 49 B3 4C AB 31 20 A7 |..4232:. I.L.1 .|
00001740: 49 B2 49 20 20 20 20 20 AA 31 3A 4A B2 53 54 3A |I.I .1:J.ST:|
00001750: 89 34 31 37 30 00 62 3F 4C 10 4E 41 4D 45 24 B2 |.4170.b?L.NAME$.|
00001760: 45 24 00 7A 3F 54 10 A0 32 3A 84 31 35 2C 41 2C |E$.z?T..2:.15,A,|
00001770: 42 24 2C 43 2C 44 3A A0 31 35 00 8E 3F 5E 10 8B |B$,C,D:.15..?^..|
00001780: 20 41 B3 B1 30 20 A7 20 8D 20 33 35 36 30 00 99 | A..0 . . 3560..|
00001790: 3F 7C 10 8D 20 39 34 30 30 00 9F 3F 86 10 8E 00 |?|.. 9400..?....|
000017A0: B6 3F 87 10 8F 2D 2D 50 52 49 4E 54 20 54 4F 20 |.?...--PRINT TO |
000017B0: 44 49 53 4B 2D 2D 00 CF 3F 88 10 41 24 B2 41 24 |DISK--..?..A$.A$|
000017C0: 28 49 29 3A 4A B2 C3 28 41 24 29 3A 4B B2 32 00 |(I):J..(A$):K.2.|
000017D0: F9 3F 89 10 8B CA 28 41 24 2C 4B 2C 31 29 B3 B1 |.?....(A$,K,1)..|
000017E0: 22 3D 22 AF 4B B3 4A A7 4B B2 4B AA 31 3A 20 20 |"=".K.J.K.K.1: |
000017F0: 20 20 20 89 20 34 32 33 33 00 15 40 8A 10 42 24 | . 4233..@..B$|
00001800: B2 C8 28 41 24 2C 4B 29 3A 43 24 B2 C9 28 41 24 |..(A$,K):C$..(A$|
00001810: 2C 4A AB 4B 29 00 2C 40 8B 10 4D B2 C3 28 43 24 |,J.K).,@..M..(C$|
00001820: 29 3A 44 24 B2 C9 28 43 24 2C 31 29 00 56 40 8C |):D$..(C$,1).V@.|
00001830: 10 8B 44 24 B2 22 20 22 B0 44 24 B2 22 A0 22 AF |..D$." ".D$.".".|
00001840: 4D B1 31 A7 43 24 B2 C8 28 43 24 2C 4D AB 31 29 |M.1.C$..(C$,M.1)|
00001850: 3A 89 34 32 33 35 00 6D 40 8D 10 4D B2 C3 28 43 |:.4235.m@..M..(C|
00001860: 24 29 3A 44 24 B2 C8 28 43 24 2C 31 29 00 97 40 |$):D$..(C$,1)..@|
00001870: 8E 10 8B 44 24 B2 22 20 22 B0 44 24 B2 22 A0 22 |...D$." ".D$."."|
00001880: AF 4D B1 31 A7 43 24 B2 C9 28 43 24 2C 4D AB 31 |.M.1.C$..(C$,M.1|
00001890: 29 3A 89 34 32 33 37 00 BB 40 94 10 98 32 2C C7 |):.4237..@...2,.|
000018A0: 28 33 34 29 42 24 C7 28 33 34 29 3A 98 32 2C C7 |(34)B$.(34):.2,.|
000018B0: 28 33 34 29 43 24 C7 28 33 34 29 00 C1 40 95 10 |(34)C$.(34)..@..|
000018C0: 8E 00 E0 40 99 10 8F 2D 2D 2D 53 41 56 45 20 4F |...@...---SAVE O|
000018D0: 4C 44 20 46 49 4C 45 20 4E 41 4D 45 3F 2D 2D 2D |LD FILE NAME?---|
000018E0: 00 ED 40 9A 10 41 24 B2 4E 41 4D 45 24 00 06 41 |..@..A$.NAME$..A|
000018F0: 9C 10 4A B2 C6 28 C9 28 41 24 2C 31 29 29 3A 49 |..J..(.(A$,1)):I|
00001900: B2 C3 28 41 24 29 00 3C 41 9D 10 8B 20 28 4A B2 |..(A$).<A... (J.|
00001910: 31 36 30 20 B0 20 4A B2 33 32 29 20 AF 20 49 B1 |160 . J.32) . I.|
00001920: 31 20 A7 20 41 24 B2 20 20 20 20 20 C8 28 41 24 |1 . A$. .(A$|
00001930: 2C 49 AB 31 29 3A 89 20 34 32 35 32 00 69 41 9E |,I.1):. 4252.iA.|
00001940: 10 99 20 A3 36 29 22 D3 41 56 45 20 41 53 20 22 |.. .6)".AVE AS "|
00001950: 3B 41 24 3B 22 3F 20 28 59 2F 4E 29 22 20 20 20 |;A$;"? (Y/N)" |
00001960: 20 20 3A 8D 20 39 34 30 30 00 A7 41 A4 10 A1 20 | :. 9400..A... |
00001970: 41 24 3A 8B 20 41 24 B3 B1 22 59 22 20 AF 20 41 |A$:. A$.."Y" . A|
00001980: 24 B3 B1 22 D9 22 20 AF 20 20 20 20 20 20 20 41 |$.."." . A|
00001990: 24 B3 B1 22 4E 22 20 AF 20 41 24 B3 B1 22 CE 22 |$.."N" . A$.."."|
000019A0: 20 A7 20 34 32 36 30 00 C9 41 AE 10 45 24 B2 22 | . 4260..A..E$."|
000019B0: 22 3A 8B 41 24 B2 22 59 22 B0 41 24 B2 22 D9 22 |":.A$."Y".A$."."|
000019C0: A7 45 24 B2 4E 41 4D 45 24 00 E7 41 B0 10 8B 20 |.E$.NAME$..A... |
000019D0: 41 24 B2 22 4E 22 20 B0 20 41 24 B2 22 CE 22 20 |A$."N" . A$."." |
000019E0: A7 20 8D 39 34 30 30 00 ED 41 B8 10 8E 00 06 42 |. .9400..A.....B|
000019F0: C2 10 8F 2D 2D 2D 47 45 54 20 46 49 4C 45 20 4E |...---GET FILE N|
00001A00: 41 4D 45 2D 2D 2D 00 2C 42 CC 10 4A B2 32 35 3A |AME---.,B..J.25:|
00001A10: 8D 20 39 30 30 30 3A 99 20 A3 31 34 29 20 22 2E |. 9000:. .14) ".|
00001A20: 44 28 49 52 45 43 54 4F 52 59 22 3B 00 5B 42 D6 |D(IRECTORY";.[B.|
00001A30: 10 4A B2 49 4E 4C 49 4E 45 3A 8D 39 30 30 30 3A |.J.INLINE:.9000:|
00001A40: 99 20 A3 35 AA 33 AC 20 20 20 20 20 20 20 44 49 |. .5.3. DI|
00001A50: 52 29 22 22 3B 3A 44 49 52 B2 30 00 7A 42 E0 10 |R)"";:DIR.0.zB..|
00001A60: 85 20 22 C7 45 54 20 46 49 4C 45 20 4E 41 4D 45 |. ".ET FILE NAME|
00001A70: 22 3B 45 24 3A 8D 39 34 30 30 00 B2 42 EA 10 8B |";E$:.9400..B...|
00001A80: 45 24 B3 B1 22 2E 44 22 AF 45 24 B3 B1 22 2E C4 |E$..".D".E$.."..|
00001A90: 22 AF 45 24 B3 B1 22 22 A7 20 45 24 B2 45 24 AA |".E$.."". E$.E$.|
00001AA0: 22 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 |"...............|
00001AB0: A0 22 00 B8 42 F4 10 8E 00 D2 42 FE 10 8F 2D 2D |."..B.....B...--|
00001AC0: 2D 53 41 56 45 20 46 49 4C 45 20 4E 41 4D 45 2D |-SAVE FILE NAME-|
00001AD0: 2D 2D 00 F8 42 08 11 4A B2 32 35 3A 8D 20 39 30 |--..B..J.25:. 90|
00001AE0: 30 30 3A 99 20 A3 31 34 29 20 22 2E 44 28 49 52 |00:. .14) ".D(IR|
00001AF0: 45 43 54 4F 52 59 22 3B 00 27 43 12 11 4A B2 49 |ECTORY";.'C..J.I|
00001B00: 4E 4C 49 4E 45 3A 8D 20 39 30 30 30 3A 99 A3 35 |NLINE:. 9000:..5|
00001B10: AA 33 AC 20 20 20 20 20 20 20 44 49 52 29 22 22 |.3. DIR)""|
00001B20: 3B 3A 44 49 52 B2 30 00 46 43 1C 11 85 22 D3 41 |;:DIR.0.FC...".A|
00001B30: 56 45 20 46 49 4C 45 20 4E 41 4D 45 22 3B 45 24 |VE FILE NAME";E$|
00001B40: 3A 8D 39 34 30 30 00 7E 43 1E 11 8B 45 24 B3 B1 |:.9400.~C...E$..|
00001B50: 22 2E 44 22 AF 45 24 B3 B1 22 2E C4 22 AF 45 24 |".D".E$.."..".E$|
00001B60: B3 B1 22 22 A7 20 45 24 B2 45 24 AA 22 A0 A0 A0 |.."". E$.E$."...|
00001B70: A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 22 00 84 |............."..|
00001B80: 43 26 11 8E 00 9C 43 30 11 8F 2D 2D 2D 43 4C 45 |C&....C0..---CLE|
00001B90: 41 52 20 4D 45 4D 4F 52 59 2D 2D 2D 00 B6 43 3A |AR MEMORY---..C:|
00001BA0: 11 8B 20 4C B2 31 20 A7 20 41 24 B2 22 59 22 3A |.. L.1 . A$."Y":|
00001BB0: 89 20 34 34 35 30 00 D1 43 44 11 8D 20 39 34 30 |. 4450..CD.. 940|
00001BC0: 30 3A 4A B2 49 4E 4C 49 4E 45 3A 8D 20 39 30 30 |0:J.INLINE:. 900|
00001BD0: 30 00 FD 43 4E 11 99 20 A3 35 29 20 22 C4 45 53 |0..CN.. .5) ".ES|
00001BE0: 54 52 4F 59 20 54 48 45 20 43 55 52 52 45 4E 54 |TROY THE CURRENT|
00001BF0: 20 46 49 4C 45 3F 20 28 59 2F 4E 29 22 00 3B 44 | FILE? (Y/N)".;D|
00001C00: 58 11 A1 20 41 24 3A 8B 20 41 24 B3 B1 22 59 22 |X.. A$:. A$.."Y"|
00001C10: 20 AF 20 41 24 B3 B1 22 D9 22 20 AF 20 20 20 20 | . A$.."." . |
00001C20: 20 20 20 41 24 B3 B1 22 4E 22 20 AF 20 41 24 B3 | A$.."N" . A$.|
00001C30: B1 22 CE 22 20 A7 20 34 34 34 30 00 69 44 62 11 |."." . 4440.iDb.|
00001C40: 8B 20 41 24 B3 B1 22 59 22 20 AF 20 41 24 B3 B1 |. A$.."Y" . A$..|
00001C50: 22 D9 22 20 A7 20 8D 20 20 20 20 20 20 20 39 34 |"." . . 94|
00001C60: 32 30 3A 8D 20 39 34 30 30 00 87 44 6C 11 8B 20 |20:. 9400..Dl.. |
00001C70: 41 24 B2 22 59 22 20 B0 20 41 24 B2 22 D9 22 20 |A$."Y" . A$."." |
00001C80: A7 20 8D 38 30 31 30 00 8D 44 76 11 8E 00 A4 44 |. .8010..Dv....D|
00001C90: 40 1F 8F 2D 2D 2D 53 43 52 45 45 4E 20 49 4E 49 |@..---SCREEN INI|
00001CA0: 54 2D 2D 2D 00 C5 44 4A 1F 42 24 B2 22 22 3A 4E |T---..DJ.B$."":N|
00001CB0: 41 4D 45 24 B2 22 22 3A 49 4E 4C 49 4E 45 B2 31 |AME$."":INLINE.1|
00001CC0: 39 3A 4C B2 31 00 F5 44 54 1F 45 54 B2 31 35 3A |9:L.1..DT.ET.15:|
00001CD0: 8F 20 54 41 42 20 46 4F 52 20 45 52 52 20 4D 45 |. TAB FOR ERR ME|
00001CE0: 53 53 41 47 45 20 20 20 20 20 20 20 20 20 20 20 |SSAGE |
00001CF0: 20 20 20 20 22 00 27 45 5E 1F 45 4C 24 B2 22 20 | ".'E^.EL$." |
00001D00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001D10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001D20: 20 20 20 20 20 20 22 00 58 45 68 1F 4C 24 B2 22 | ".XEh.L$."|
00001D30: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00001D40: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00001D50: C0 C0 C0 C0 C0 C0 C0 22 00 71 45 72 1F A1 20 41 |.......".qEr.. A|
00001D60: 24 3A 8B 20 41 24 B3 B1 22 22 20 A7 20 38 30 35 |$:. A$.."" . 805|
00001D70: 30 00 8D 45 7C 1F 99 48 43 24 3A 81 49 B2 31 A4 |0..E|..HC$:.I.1.|
00001D80: 33 31 3A 41 24 28 49 29 B2 22 22 3A 82 00 9D 45 |31:A$(I)."":...E|
00001D90: 86 1F 49 B2 B8 28 30 29 3A 57 43 B2 30 00 AC 45 |..I..(0):WC.0..E|
00001DA0: 90 1F 97 20 35 33 32 37 32 2C 32 33 00 D9 45 A4 |... 53272,23..E.|
00001DB0: 1F 99 20 A3 35 29 22 2A 2A 2A 20 20 20 CD 41 54 |.. .5)"*** .AT|
00001DC0: 48 20 C2 4C 41 53 54 45 52 21 20 C5 44 49 54 4F |H .LASTER! .DITO|
00001DD0: 52 20 20 20 2A 2A 2A 11 22 00 0A 46 AE 1F 99 20 |R ***."..F... |
00001DE0: 22 20 20 C3 4F 50 59 52 49 47 48 54 20 31 39 38 |" .OPYRIGHT 198|
00001DF0: 33 20 C4 41 56 49 44 53 4F 4E 20 26 20 C1 53 53 |3 .AVIDSON & .SS|
00001E00: 4F 43 49 41 54 45 53 11 11 22 00 3A 46 B8 1F 99 |OCIATES..".:F...|
00001E10: 20 22 20 20 D4 48 45 20 50 52 4F 4D 50 54 20 4C | " .HE PROMPT L|
00001E20: 49 4E 45 20 41 54 20 54 48 45 20 42 4F 54 54 4F |INE AT THE BOTTO|
00001E30: 4D 20 4F 46 20 54 48 45 11 22 00 6A 46 C2 1F 99 |M OF THE.".jF...|
00001E40: 20 22 20 20 53 43 52 45 45 4E 20 44 49 53 50 4C | " SCREEN DISPL|
00001E50: 41 59 53 20 54 48 45 20 45 44 49 54 4F 52 20 43 |AYS THE EDITOR C|
00001E60: 4F 4D 4D 41 4E 44 53 2E 11 22 00 93 46 CC 1F 99 |OMMANDS.."..F...|
00001E70: 20 22 20 20 C6 4F 52 20 48 45 4C 50 2C 20 55 53 | " .OR HELP, US|
00001E80: 45 20 54 48 45 20 2E 48 20 20 43 4F 4D 4D 41 4E |E THE .H COMMAN|
00001E90: 44 2E 22 00 A8 46 F4 1F 4A B2 32 32 3A 8D 20 39 |D."..F..J.22:. 9|
00001EA0: 30 30 30 3A 99 20 4C 24 00 AE 46 FE 1F 8E 00 C6 |000:. L$..F.....|
00001EB0: 46 1E 23 8F 2D 2D 2D 56 54 41 42 20 32 2D 32 35 |F.#.---VTAB 2-25|
00001EC0: 2D 2D 2D 2D 2D 2D 00 D8 46 28 23 97 20 32 31 34 |------..F(#. 214|
00001ED0: 2C 4A AB 32 3A 99 3A 8E 00 F0 46 82 23 8F 2D 2D |,J.2:.:...F.#.--|
00001EE0: 2D 56 54 41 42 20 26 20 4C 49 4E 45 23 2D 2D 2D |-VTAB & LINE#---|
00001EF0: 00 26 47 8C 23 4A B2 49 4E 4C 49 4E 45 3A 8D 20 |.&G.#J.INLINE:. |
00001F00: 39 30 30 30 3A 41 24 B2 C4 28 4C 49 4E 45 29 3A |9000:A$..(LINE):|
00001F10: 20 20 20 20 20 20 41 24 B2 C9 28 41 24 2C C3 28 | A$..(A$,.(|
00001F20: 41 24 29 AB 31 29 00 46 47 A0 23 99 A6 AB 28 4C |A$).1).FG.#...(L|
00001F30: 49 4E 45 B3 31 30 29 AB 28 4C 49 4E 45 B3 31 30 |INE.10).(LINE.10|
00001F40: 30 29 29 41 24 3B 00 4C 47 AA 23 8E 00 64 47 E6 |0))A$;.LG.#..dG.|
00001F50: 23 8F 2D 2D 2D 4C 45 4E 47 54 48 20 43 48 45 43 |#.---LENGTH CHEC|
00001F60: 4B 2D 2D 2D 00 81 47 F0 23 41 24 B2 C9 28 49 4E |K---..G.#A$..(IN|
00001F70: 24 2C 31 29 3A 49 B2 C6 28 41 24 AA C7 28 30 29 |$,1):I..(A$..(0)|
00001F80: 29 00 BE 47 F2 23 8B 20 28 49 B2 33 32 20 B0 20 |)..G.#. (I.32 . |
00001F90: 49 B2 31 36 30 29 20 AF C3 28 41 24 29 B1 31 A7 |I.160) ..(A$).1.|
00001FA0: 20 20 20 20 49 4E 24 B2 C8 28 49 4E 24 2C C3 28 | IN$..(IN$,.(|
00001FB0: 49 4E 24 29 AB 31 29 3A 89 20 39 32 30 30 00 EB |IN$).1):. 9200..|
00001FC0: 47 F6 23 8B 20 4C 49 4E 45 B2 31 20 B0 20 4C 49 |G.#. LINE.1 . LI|
00001FD0: 4E 45 B2 32 A7 20 49 4E 24 B2 C8 28 49 4E 24 2C |NE.2. IN$..(IN$,|
00001FE0: 32 38 29 3A 56 4C 49 44 B2 AB 31 00 20 48 FA 23 |28):VLID..1. H.#|
00001FF0: 8B 20 4C 49 4E 45 20 B1 20 32 20 A7 20 8D 20 39 |. LINE . 2 . . 9|
00002000: 32 38 32 3A 49 4E 24 B2 C8 28 49 4E 24 2C 31 38 |282:IN$..(IN$,18|
00002010: 29 3A 56 4C 49 44 B2 28 49 4E 24 B3 B1 22 22 29 |):VLID.(IN$.."")|
00002020: 00 45 48 18 24 4A B2 49 4E 4C 49 4E 45 3A 8D 20 |.EH.$J.INLINE:. |
00002030: 39 30 30 30 3A 99 A3 33 29 C8 28 45 4C 24 2C 33 |9000:..3).(EL$,3|
00002040: 36 29 22 91 22 00 52 48 22 24 99 20 A3 35 29 49 |6)".".RH"$. .5)I|
00002050: 4E 24 00 58 48 40 24 8E 00 78 48 41 24 8F 2D 2D |N$.XH@$..xHA$.--|
00002060: 2D 4C 45 47 41 4C 20 43 48 41 52 41 43 54 45 52 |-LEGAL CHARACTER|
00002070: 20 43 48 45 43 4B 2D 2D 00 9C 48 42 24 42 24 B2 | CHECK--..HB$B$.|
00002080: 22 22 3A 81 49 B2 31 A4 C3 28 49 4E 24 29 3A 43 |"":.I.1..(IN$):C|
00002090: 24 B2 CA 28 49 4E 24 2C 49 2C 31 29 00 DF 48 43 |$..(IN$,I,1)..HC|
000020A0: 24 4F 4B B2 28 43 24 B2 22 23 22 B0 43 24 B2 22 |$OK.(C$."#".C$."|
000020B0: 25 22 B0 43 24 B2 22 2B 22 B0 43 24 B2 22 2A 22 |%".C$."+".C$."*"|
000020C0: B0 43 24 B2 22 3D 22 B0 28 43 24 B1 22 2C 22 AF |.C$."=".(C$.",".|
000020D0: 43 24 B3 22 3A 22 29 B0 43 24 B2 22 20 22 29 00 |C$.":").C$." ").|
000020E0: F3 48 44 24 8B 20 4F 4B 20 A7 20 42 24 B2 42 24 |.HD$. OK . B$.B$|
000020F0: AA 43 24 00 00 49 45 24 82 3A 49 4E 24 B2 42 24 |.C$..IE$.:IN$.B$|
00002100: 00 06 49 47 24 8E 00 1D 49 4A 24 8F 2D 2D 2D 45 |..IG$...IJ$.---E|
00002110: 4D 50 54 59 20 43 48 45 43 4B 2D 2D 2D 00 2D 49 |MPTY CHECK---.-I|
00002120: 54 24 45 4D 50 54 59 B2 28 4C B2 31 29 00 67 49 |T$EMPTY.(L.1).gI|
00002130: 5E 24 8B 20 45 4D 20 A7 20 4A B2 49 4E 4C AB 31 |^$. EM . J.INL.1|
00002140: 3A 8D 20 39 30 30 30 3A 99 20 20 20 20 20 A3 45 |:. 9000:. .E|
00002150: 54 29 22 CE 4F 20 4C 49 4E 45 53 20 49 4E 20 4D |T)".O LINES IN M|
00002160: 45 4D 4F 52 59 2E 22 00 6D 49 68 24 8E 00 86 49 |EMORY.".mIh$...I|
00002170: AE 24 8F 2D 2D 2D 53 43 52 4F 4C 4C 20 53 43 52 |.$.---SCROLL SCR|
00002180: 45 45 4E 2D 2D 2D 00 B5 49 B8 24 4A B2 32 32 3A |EEN---..I.$J.22:|
00002190: 8D 39 30 30 30 3A 81 49 B2 31 A4 34 3A 99 45 4C |.9000:.I.1.4:.EL|
000021A0: 24 3A 82 3A 4A B2 32 32 3A 8D 39 30 30 30 3A 99 |$:.:J.22:.9000:.|
000021B0: 54 4C 24 3A 8E 00 CF 49 C2 24 8F 2D 2D 2D 53 43 |TL$:...I.$.---SC|
000021C0: 52 4F 4C 4C 20 4E 4F 20 4C 49 4E 45 2D 2D 2D 00 |ROLL NO LINE---.|
000021D0: F2 49 CC 24 4A B2 32 32 3A 8D 20 39 30 30 30 3A |.I.$J.22:. 9000:|
000021E0: 81 20 49 B2 31 20 A4 20 34 3A 99 45 4C 24 3A 82 |. I.1 . 4:.EL$:.|
000021F0: 3A 8E 00 10 4A 76 25 8F 2D 2D 2D 56 41 4C 49 44 |:...Jv%.---VALID|
00002200: 20 4C 49 4E 45 20 23 20 43 48 45 43 4B 2D 2D 2D | LINE # CHECK---|
00002210: 00 28 4A 80 25 49 56 4C 49 44 B2 28 45 B3 31 20 |.(J.%IVLID.(E.1 |
00002220: B0 20 45 B1 4C AB 31 29 00 68 4A 8A 25 8B 20 49 |. E.L.1).hJ.%. I|
00002230: 56 4C 49 20 A7 20 4A B2 49 4E 4C 49 4E 45 AB 31 |VLI . J.INLINE.1|
00002240: 3A 8D 20 39 30 30 30 20 20 20 20 20 3A 99 A3 45 |:. 9000 :..E|
00002250: 54 29 20 22 C9 4E 56 41 4C 49 44 20 4C 49 4E 45 |T) ".NVALID LINE|
00002260: 20 4E 55 4D 42 45 52 22 00 6E 4A 94 25 8E 00 86 | NUMBER".nJ.%...|
00002270: 4A DA 25 8F 2D 2D 2D 43 48 41 4E 47 45 20 44 49 |J.%.---CHANGE DI|
00002280: 53 4B 53 2D 2D 2D 00 A0 4A E4 25 97 35 33 32 37 |SKS---..J.%.5327|
00002290: 32 2C 32 33 3A 97 35 33 32 34 38 AA 32 31 2C 30 |2,23:.53248.21,0|
000022A0: 00 D8 4A E5 25 99 20 48 43 24 3A 99 20 A3 36 29 |..J.%. HC$:. .6)|
000022B0: 20 20 20 20 20 22 2A 20 2A 20 20 CD 41 54 48 20 | "* * .ATH |
000022C0: C2 4C 41 53 54 45 52 21 20 C5 44 49 54 4F 52 20 |.LASTER! .DITOR |
000022D0: 20 2A 20 2A 11 11 11 22 00 F4 4A E6 25 99 20 A3 | * *..."..J.%. .|
000022E0: 34 29 20 22 D0 4C 45 41 53 45 20 53 45 4C 45 43 |4) ".LEASE SELEC|
000022F0: 54 3A 11 22 00 25 4B E8 25 99 20 A3 34 29 20 22 |T:.".%K.%. .4) "|
00002300: CC 49 47 48 54 20 4F 52 20 44 41 52 4B 20 42 41 |.IGHT OR DARK BA|
00002310: 43 4B 47 52 4F 55 4E 44 3F 20 28 CC 2F 98 C4 97 |CKGROUND? (./...|
00002320: 29 11 11 11 22 00 63 4B EA 25 A1 41 24 3A 8B 41 |)...".cK.%.A$:.A|
00002330: 24 B3 B1 22 4C 22 AF 41 24 B3 B1 22 CC 22 AF 41 |$.."L".A$..".".A|
00002340: 24 B3 B1 22 44 22 20 20 20 AF 41 24 B3 B1 22 C4 |$.."D" .A$..".|
00002350: 22 AF 20 41 24 B3 B1 C7 28 31 33 29 20 A7 20 39 |". A$...(13) . 9|
00002360: 37 30 36 00 83 4B EC 25 4C 42 B2 28 41 24 B2 22 |706..K.%LB.(A$."|
00002370: CC 22 B0 41 24 B2 22 4C 22 B0 41 24 B2 C7 28 31 |.".A$."L".A$..(1|
00002380: 33 29 29 00 9A 4B ED 25 44 42 B2 28 41 24 B2 22 |3))..K.%DB.(A$."|
00002390: C4 22 B0 41 24 B2 22 44 22 29 00 C6 4B EE 25 99 |.".A$."D")..K.%.|
000023A0: 20 A3 34 29 22 D0 4C 45 41 53 45 20 52 45 4D 4F | .4)".LEASE REMO|
000023B0: 56 45 20 54 48 45 20 D0 52 4F 47 52 41 4D 20 C4 |VE THE .ROGRAM .|
000023C0: 49 53 4B 2E 11 22 00 EF 4B F8 25 99 20 A3 34 29 |ISK.."..K.%. .4)|
000023D0: 20 22 D0 4C 45 41 53 45 20 49 4E 53 45 52 54 20 | ".LEASE INSERT |
000023E0: 54 48 45 20 C4 41 54 41 20 C4 49 53 4B 2E 22 00 |THE .ATA .ISK.".|
000023F0: FF 4B 02 26 4A B2 32 34 3A 8D 20 39 30 30 30 00 |.K.&J.24:. 9000.|
00002400: 27 4C 0C 26 99 20 A3 37 29 20 22 D0 52 45 53 53 |'L.&. .7) ".RESS|
00002410: 20 D3 50 41 43 45 20 C2 41 52 20 54 4F 20 C3 4F | .PACE .AR TO .O|
00002420: 4E 54 49 4E 55 45 22 00 40 4C 16 26 A1 20 41 24 |NTINUE".@L.&. A$|
00002430: 3A 8B 20 41 24 B3 B1 22 22 20 A7 20 39 37 35 30 |:. A$.."" . 9750|
00002440: 00 5A 4C 20 26 A1 20 41 24 3A 8B 20 41 24 B3 B1 |.ZL &. A$:. A$..|
00002450: 22 20 22 20 A7 20 39 37 36 30 00 96 4C 22 26 99 |" " . 9760..L"&.|
00002460: 20 22 93 22 3A 97 35 33 32 38 30 2C AB 33 AC 4C | ".":.53280,.3.L|
00002470: 42 AB 36 AC 44 42 3A 97 35 33 32 38 31 2C AB 4C |B.6.DB:.53281,.L|
00002480: 42 AB 31 31 AC 44 42 3A 97 36 34 36 2C AB 44 42 |B.11.DB:.646,.DB|
00002490: AB 31 31 AC 4C 42 00 9C 4C 2A 26 8E 00 B8 4C 3E |.11.LB..L*&...L>|
000024A0: 26 8F 2D 2D 2D 4D 41 49 4E 20 50 52 4F 4D 50 54 |&.---MAIN PROMPT|
000024B0: 20 4C 49 4E 45 2D 2D 2D 00 C8 4C 48 26 4A B2 32 | LINE---..LH&J.2|
000024C0: 35 3A 8D 20 39 30 30 30 00 F9 4C 52 26 99 20 22 |5:. 9000..LR&. "|
000024D0: 20 2E 45 20 20 2E 4C 20 20 2E 44 20 20 2E 49 20 | .E .L .D .I |
000024E0: 20 2E 53 20 20 2E 47 20 20 2E 50 20 20 2E 43 20 | .S .G .P .C |
000024F0: 20 2E 51 20 20 2E 48 22 3B 00 FF 4C 5C 26 8E 00 | .Q .H";..L\&..|
00002500: 16 4D A2 26 8F 2D 2D 2D 48 45 4C 50 20 53 43 52 |.M.&.---HELP SCR|
00002510: 45 45 4E 2D 2D 2D 00 20 4D AC 26 99 20 48 43 24 |EEN---. M.&. HC$|
00002520: 00 4C 4D B6 26 99 20 22 20 20 D4 48 45 20 43 4F |.LM.&. " .HE CO|
00002530: 4D 4D 41 4E 44 53 20 49 4E 20 54 48 49 53 20 45 |MMANDS IN THIS E|
00002540: 44 49 54 4F 52 20 41 52 45 3A 11 22 00 67 4D C0 |DITOR ARE:.".gM.|
00002550: 26 99 20 22 20 20 2E 45 20 20 20 45 44 49 54 20 |&. " .E EDIT |
00002560: 41 20 4C 49 4E 45 22 00 84 4D CA 26 99 20 22 20 |A LINE"..M.&. " |
00002570: 20 2E 4C 20 20 20 4C 49 53 54 20 54 48 45 20 46 | .L LIST THE F|
00002580: 49 4C 45 22 00 A1 4D D4 26 99 20 22 20 20 2E 44 |ILE"..M.&. " .D|
00002590: 20 20 20 44 45 4C 45 54 45 20 41 20 4C 49 4E 45 | DELETE A LINE|
000025A0: 22 00 BD 4D DE 26 99 20 22 20 20 2E 49 20 20 20 |"..M.&. " .I |
000025B0: 49 4E 53 45 52 54 20 4C 49 4E 45 53 22 00 DE 4D |INSERT LINES"..M|
000025C0: FC 26 99 20 22 20 20 2E 53 20 20 20 53 41 56 45 |.&. " .S SAVE|
000025D0: 20 46 49 4C 45 20 54 4F 20 44 49 53 4B 22 00 00 | FILE TO DISK"..|
000025E0: 4E 06 27 99 20 22 20 20 2E 47 20 20 20 47 45 54 |N.'. " .G GET|
000025F0: 20 46 49 4C 45 20 46 52 4F 4D 20 44 49 53 4B 22 | FILE FROM DISK"|
00002600: 00 25 4E 08 27 99 20 22 20 20 2E 50 20 20 20 50 |.%N.'. " .P P|
00002610: 52 49 4E 54 20 46 49 4C 45 20 4F 4E 20 50 52 49 |RINT FILE ON PRI|
00002620: 4E 54 45 52 22 00 4D 4E 10 27 99 22 20 20 2E 43 |NTER".MN.'." .C|
00002630: 20 20 20 43 4C 45 41 52 20 45 44 49 54 4F 52 20 | CLEAR EDITOR |
00002640: 46 4F 52 20 4E 45 57 20 46 49 4C 45 22 00 6B 4E |FOR NEW FILE".kN|
00002650: 1A 27 99 22 20 20 2E 51 20 20 20 51 55 49 54 20 |.'." .Q QUIT |
00002660: 54 48 45 20 45 44 49 54 4F 52 22 00 86 4E 24 27 |THE EDITOR"..N$'|
00002670: 99 22 20 20 2E 48 20 20 20 48 45 4C 50 20 53 43 |." .H HELP SC|
00002680: 52 45 45 4E 11 22 00 A0 4E 2E 27 99 22 20 20 CD |REEN."..N.'." .|
00002690: 41 58 49 4D 55 4D 20 4C 45 4E 47 54 48 53 3A 22 |AXIMUM LENGTHS:"|
000026A0: 00 C4 4E 2F 27 99 22 20 20 4C 49 4E 45 53 20 31 |..N/'." LINES 1|
000026B0: 2D 32 20 20 20 32 38 20 43 48 41 52 41 43 54 45 |-2 28 CHARACTE|
000026C0: 52 53 2E 22 00 E8 4E 30 27 99 22 20 20 4C 49 4E |RS."..N0'." LIN|
000026D0: 45 53 20 33 2D 32 37 20 20 31 38 20 43 48 41 52 |ES 3-27 18 CHAR|
000026E0: 41 43 54 45 52 53 2E 22 00 FD 4E 4C 27 4A B2 32 |ACTERS."..NL'J.2|
000026F0: 32 3A 8D 20 39 30 30 30 3A 99 20 4C 24 00 03 4F |2:. 9000:. L$..O|
00002700: 56 27 8E 00 1A 4F 60 27 8F 2D 2D 2D 51 55 49 54 |V'...O`'.---QUIT|
00002710: 20 45 44 49 54 4F 52 2D 2D 2D 00 24 4F 6A 27 99 | EDITOR---.$Oj'.|
00002720: 20 48 43 24 00 41 4F 74 27 99 22 20 20 D9 4F 55 | HC$.AOt'." .OU|
00002730: 52 20 43 48 4F 49 43 45 53 20 41 52 45 3A 11 11 |R CHOICES ARE:..|
00002740: 22 00 64 4F 7E 27 99 22 20 20 31 3E 20 D2 45 54 |".dO~'." 1> .ET|
00002750: 55 52 4E 20 54 4F 20 54 48 45 20 45 44 49 54 4F |URN TO THE EDITO|
00002760: 52 11 11 22 00 94 4F 88 27 99 22 20 20 32 3E 20 |R.."..O.'." 2> |
00002770: D3 41 56 45 20 46 49 4C 45 20 28 49 46 20 59 4F |.AVE FILE (IF YO|
00002780: 55 20 48 41 56 45 4E 27 54 20 41 4C 52 45 41 44 |U HAVEN'T ALREAD|
00002790: 59 29 11 22 00 B6 4F 92 27 99 22 20 20 20 20 20 |Y)."..O.'." |
000027A0: 41 4E 44 20 51 55 49 54 20 54 48 45 20 45 44 49 |AND QUIT THE EDI|
000027B0: 54 4F 52 11 11 22 00 D4 4F 9C 27 99 22 20 20 33 |TOR.."..O.'." 3|
000027C0: 3E 20 D1 55 49 54 20 54 48 45 20 45 44 49 54 4F |> .UIT THE EDITO|
000027D0: 52 11 11 22 00 F2 4F A6 27 99 22 20 20 D9 4F 55 |R.."..O.'." .OU|
000027E0: 52 20 43 48 4F 49 43 45 3F 20 28 31 2D 33 29 11 |R CHOICE? (1-3).|
000027F0: 11 22 00 0C 50 A8 27 A1 20 41 24 3A 8B 20 41 24 |."..P.'. A$:. A$|
00002800: B3 B1 22 22 20 A7 20 31 30 31 35 32 00 37 50 B0 |.."" . 10152.7P.|
00002810: 27 A1 20 41 24 3A 8B 20 41 24 B3 22 31 22 20 B0 |'. A$:. A$."1" .|
00002820: 20 41 24 B1 22 33 22 20 A7 20 20 20 20 20 20 20 | A$."3" . |
00002830: 20 20 31 30 31 36 30 00 51 50 BA 27 49 B2 C5 28 | 10160.QP.'I..(|
00002840: 41 24 29 3A 8B 20 49 B2 31 20 A7 20 31 30 32 37 |A$):. I.1 . 1027|
00002850: 30 00 85 50 C4 27 8B 20 49 B2 32 20 A7 20 8D 20 |0..P.'. I.2 . . |
00002860: 34 30 38 30 3A 8B 20 45 4D 50 54 59 20 20 20 20 |4080:. EMPTY |
00002870: 20 20 20 20 20 A7 20 81 20 49 B2 31 20 A4 20 32 | . . I.1 . 2|
00002880: 30 30 30 3A 82 00 9A 50 CE 27 48 43 24 B2 22 93 |000:...P.'HC$.".|
00002890: 22 3A 20 20 20 99 20 48 43 24 00 C3 50 D8 27 99 |": . HC$..P.'.|
000028A0: 20 22 20 20 20 20 D4 4F 20 52 45 2D 45 4E 54 45 | " .O RE-ENTE|
000028B0: 52 20 54 48 45 20 45 44 49 54 4F 52 20 57 49 54 |R THE EDITOR WIT|
000028C0: 48 11 22 00 FD 50 E2 27 99 20 22 20 20 20 20 59 |H."..P.'. " Y|
000028D0: 4F 55 52 20 46 49 4C 45 20 49 4E 54 41 43 54 2C |OUR FILE INTACT,|
000028E0: 20 54 59 50 45 20 47 4F 54 4F 20 35 30 22 3A 99 | TYPE GOTO 50":.|
000028F0: A3 32 37 29 22 A3 A3 A3 A3 A3 A3 A3 22 00 29 51 |.27)".......".)Q|
00002900: E3 27 99 20 22 20 20 20 20 41 4E 44 20 50 52 45 |.'. " AND PRE|
00002910: 53 53 20 D2 C5 D4 D5 D2 CE 2E 22 3A 99 A3 31 34 |SS .......":..14|
00002920: 29 22 A3 A3 A3 A3 A3 A3 22 00 54 51 EC 27 99 20 |)"......".TQ.'. |
00002930: 22 20 20 20 20 11 11 D4 4F 20 52 55 4E 20 CD 41 |" ...O RUN .A|
00002940: 54 48 20 C2 4C 41 53 54 45 52 2C 20 49 4E 53 45 |TH .LASTER, INSE|
00002950: 52 54 11 22 00 7B 51 F6 27 99 20 22 20 20 20 20 |RT.".{Q.'. " |
00002960: 54 48 45 20 50 52 4F 47 52 41 4D 20 44 49 53 4B |THE PROGRAM DISK|
00002970: 20 41 4E 44 20 54 59 50 45 11 22 00 B8 51 00 28 | AND TYPE."..Q.(|
00002980: 99 20 22 20 20 20 20 4C 4F 41 44 20 22 3B C7 28 |. " LOAD ";.(|
00002990: 33 34 29 3B 22 4D 41 54 48 20 42 4C 41 53 54 45 |34);"MATH BLASTE|
000029A0: 52 22 3B C7 28 33 34 29 3B 22 2C 38 20 20 41 4E |R";.(34);",8 AN|
000029B0: 44 20 50 52 45 53 53 22 00 D8 51 01 28 99 A3 34 |D PRESS"..Q.(..4|
000029C0: 29 22 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |)"..............|
000029D0: A3 A3 A3 A3 A3 A3 A3 22 00 0F 52 02 28 99 20 22 |......."..R.(. "|
000029E0: 20 20 20 20 D2 C5 D4 D5 D2 CE 2E 20 20 D7 48 45 | ....... .HE|
000029F0: 4E 20 54 48 45 20 50 52 4F 47 52 41 4D 20 48 41 |N THE PROGRAM HA|
00002A00: 53 22 3A 99 A3 34 29 22 A3 A3 A3 A3 A3 A3 22 00 |S":..4)"......".|
00002A10: 37 52 0A 28 99 20 22 20 20 20 20 4C 4F 41 44 45 |7R.(. " LOADE|
00002A20: 44 2C 20 20 54 59 50 45 20 52 55 4E 20 41 4E 44 |D, TYPE RUN AND|
00002A30: 20 50 52 45 53 53 22 00 46 52 10 28 99 A3 31 38 | PRESS".FR.(..18|
00002A40: 29 22 A3 A3 A3 22 00 67 52 11 28 99 20 22 20 20 |)"...".gR.(. " |
00002A50: 20 20 D2 C5 D4 D5 D2 CE 2E 22 3A 99 A3 34 29 22 | .......":..4)"|
00002A60: A3 A3 A3 A3 A3 A3 22 00 6D 52 14 28 80 00 83 52 |......".mR.(...R|
00002A70: 1E 28 99 20 48 43 24 3A 4A B2 32 32 3A 8D 20 39 |.(. HC$:J.22:. 9|
00002A80: 30 30 30 00 8C 52 28 28 99 20 4C 24 00 92 52 32 |000..R((. L$..R2|
00002A90: 28 8E 00 00 00 |(.... |
.(R(..."PROGRAMMED BY RICHARD ECKERT 12/
83 COPYRIGHT 1983 DAVIDSON & ASSO
C..|(...".":. 53281,1:. 53280,3: .64
6,11. (..I.0:J.0:K.0:L.1:M.0:N.0:HM$."."
..(... A$(34):HC$.".".S(... 9700:. INSER
T DATA DISK..( ..3,0:. FOR KEYBOARD INPU
T..)(.. 8010:. 60:. SCREEN INIT.*)*..---
WARM START INIT---.F)2.. HC$:. 9400:. 53
272,23.A)4..---MAIN INPUT LOOP---..)<.J.
23:. 9000:. " NEW LINE";L..)F.. 9800:.
PROMPT LINE..)P.LINE.L:. 9100:. INLINE+N
UMBER.K)Z.. .5) "";.V)D..3,IN$..*N.. H(I
N$,1)..".".C(IN$).2. 112:. IT'S NOT A
COMMAND.K*O..J(IN$,2,1).."A". . 9400:
. 160:. 130:IT IS A COMM..D*P.. 9200:.
. VLID . 60.O*R.. 9400..*X.. L.28 . A$(
L).IN$:L.L.1..*... 60..*...---CHANGE MOD
E---.L* .B$.J(IN$,2,1):. B$."" . 310..*.
.. B$."." . B$.G(F(B$).128)..+... B$."E"
. . 2220:. 310.#+... B$."P" . . 2400:.
310.?+... B$."L" . . 2800:. 310.[+H.. B$
."I" . . 3000:. 310.W+R.. B$."D" . . 321
0:. 310..+... B$."S" . . 4080:. 310..+..
. B$."G" . . 3410:. 310.K+... B$."C" . .
4410:. 310..+... B$."Q" . . 10090:.310.
.+... B$."H" . . 9900..,6....,...---EDIT
LINE---.2,... 9300:. EMPTY . 2340.?,..I
.C(IN$).Y,... I.2 . E$.I(IN$,I.2)..,J..I
.3.J.INLINE.1:.9000:..ET)"";:."EDIT WHIC
H LINE ";E$..,T.E%.E(E$):E.E%.A,... 96
00:. IVLID . 2340.L,... 9400..,..J.23:.
9000..,... " EDIT LINE ";E$..-..LINE.E:
. 9100.#-..J.INLINE:.9000:..5)A$(E).L-..
J.INLINE:. 9000:..5)""; :.3,IN$.G-.
.. 9200:. . VLID . 2310.|-... 9400:A$(E)
.IN$..-$.. 9400..-.....-V..---PRINT OUT
FILE---.A-`.. 9300:. EMPTY . 2540.N-J.I.
C(IN$)..-T.. I.2 . E$.I(IN$,I.2)..-... I
.3 . E$."1".....E%.E(E$):E.E%.'.... 9600
:. IVLID . 2540.6...J.25:.9000.J.... .17
)"RETURN";.C.D..4,4,7:.4,G(13)NAME$...N.
.4,H(EL$,2.(E.10).(E.100)) ;E;" ";
A$(E):E.E.1.Q.P.. I.1 . 50:.:. A$:. E.L
. A$.. G(13). 2510...Q..4,G(13)..
.R. 4...... 9400......../...---LIST THE
FILE---.)/... 9300:. EMPTY . 2930.E/..I.
C(IN$):G..1:E$."":E.1.S/... I.2 . E$.I(I
N$,I.2):E%. E(E$):E.E%../... 9600:.
IVLID . E.1../... 9420.K/".J.INLINE.1:.
9000:A$.D(E):A$ .I(A$,C(A$).1)../,.
...(E.10).(E.100))A$;" "; A$(E);"
....."..02.E.E.1:. I.1 . 35:..A06.. A$:I
.F(A$.G(0)):. I.32 . G.. G.Z0J..
. G . I..13 . 2870.S0T.. E.L . I..13 . 2
850.Y0H....0R.. 9400..0|....0...---INSER
T LINE---..0... 9300:. EMPTY . 3180.N0B.
. L.200 . 3170..0L.I.C(IN$)..1V.. I.2 .
E$.I(IN$,I.2): . 3055.*1..J.INLI
NE.1:. 9000:..ET) "";.H1... "INSERT
WHICH LINE ";E$.Z1..E%.E(E$):E.E%.T1...
9600:. IVLID . 3180.1... 9400..1..J.23
:.9000:." INSERT LINE" ;E;"."..1...
.16) ".Q(UIT";.X1..LINE.E:. 9100:. " ";
..1&.. .5) "";..10..3,IN$..2:.. IN$.".Q"
. IN$.".Q" . 3170.-2D.. 9200:. . VLID .
3100.`2N.. I.L.1 . E ..1:A$(I.1).A$(I)
:.:A$(E).IN$.2X.L.L.1:E.E.1:. L.201
. 3070..2B.. 9400..2L.. 9400..2V....2..
.---DELETE LINE---.L2... 9300:. EMPTY .
3380..2..I.C(IN$):. I.2 . E$.I( IN
$,I.2):. 3270..3..J.INLINE.1:. 9000.!3..
. .ET)"";.?3... "DELETE WHICH LINE ";E$.
Q3F.E%.E(E$):E.E%.K3P.. 9600:. IVLID . 3
380.V3Z.. 9420..3..LINE.E:. 9100:." ";A
$(E)..3... 9420:. 9420..3..J.INLINE:. 90
00.Y3... .5) "DELETE THIS? (Y/N)"..3...
9400."4... A$:. A$.."Y" . A$.."Y" .
A$.."N" . A$.."N" . 3330.?4... A$."N"
. A$."N" . 3380._4... I.E . L.1:A$(I).A$
(I.1):..I4 .L.L.1.T44.. 9400.Z4>....4H..
---GET FILE FROM DISK---..4R.I.C(IN$):E$
."":DSKER.0:DIR.0..4\.. I.2 . E$.I(IN$,I
.2):. 3450..4^.. 9400..4F.J.INL:. 90
00..5P.. 4300:. FILE NAME.S5Z.. E$.".D".
E$.".D". DIR..1: . 3690:E$."":. D
SKER . 3548.D5|.. DIR . 3430.W5... E$.""
. 3548..5... 3600:. LOWER CASE..5... I.
1 . L:A$(I)."":...5..I..(0):L.1..5...15,
8,15,"I":. 2,8,2,"0:".E$. "S,R":J.ST
..6...J.0..2,A$(1):J.ST:L.2..6...J.0..2,
A$(2):J.ST:L.3.[6...J.0 . .2,A$:.2,B$:A$
(L).A$." ".B$:L.L.1:J.ST:.L.27.3510.S6..
2:.15,A,B$,C,D: 15..6J..A..0.L.1:. 3560
:. 3548: . THERE WAS A DISK ERROR..6
T.NAME$.E$.E6... 9400.K6.....6...---DISK
ERROR---..6... 9420:J.INLINE..7...9000:
..5)B$:. 9420..7...A.62..3583.#7....=7..
.---FILE NOT FOUND---.V7...9420:J.INLINE
:.9000.7....5)"FILE NAME TYPED INCORREC
TLY OR"..7....5)"DATA DISK HAS NOT BEEN
INSERTED.":.9420:.9420..7....R7...---LOW
ER CASE---..7..E$.H(E$,15)..7..I.F(I(E$,
1)):J.C(E$).58$.. I.32 . I.160 . J.1 . E
$. H(E$,C(E$).1):. 3610.A8..B$."":
. I.1 . C(E$):J.F(J (E$,I,1)).}88.B$
.B$.G(J.128.(J.90)):.. 8B.B$.H(B$,15)."
"..8L.E$.H(B$,16)..8V...P
8`..---DISK DIRECTORY---..8J.. HC$:. 940
0..8T.J.25:. 9000..9~.. .14) ".D(IRECTOR
Y";:. HM$;.59... 15,8,15,"I":. 1,8,
1,"$".U9... J=1-8 CTR K=TTAL T=TAB.Q9
..J.1:K.1:T.2:. ST . 3970.W9..:..9...
SKIP THE DIRECTORY HEADER..9...#1,A$,A$:
. ST . 3970..9... I.1 . 18:.#1,A$,A$,A$,
A$,A$, A$,A$,A$,A$,A$,A$,A$,A$,A$:...:
... ST . 3970..:..:.0:... GET FILE TYPE
, TRACK & SECTOR.M:...#1,A$,B$,B$:. ST .
3970.S:..:.V: .. SKIP ENTRY IF NOT SE
Q FILE..:(.. F(A$.G(0))..129 . . I.
1 . 16:.#1,A$:.:. 3920..:).:.X:*.. IS S
EQ, GET 16 CHARS IN NAME..;2.I$."":. I.1
. 2:.#1,A$,B$,C$,D $,E$,F$,G$,H$.1;
<.I$.I$.A$.B$.C$.D$.E$.F$.G$.H$:..D;F..
.T) I$:K.K.1.J;G.:.A;H.. SKIP BYTES 19-2
9. ;P..#1,A$,A$,A$,A$,A$,A$,A$,A$,A$,A$
,A$:. J.8 . .#1,A$,A$..;Z.J.J.1.8.(J.
8)..;[.:..;\.. MOVE TO COLUMN 2 IF 18 FI
LES..;D.. K.18 . T.21:. HM$..;N.. 3860..
<O.:.$<X.. NO MORE DIRECTORY ENTRIES.><Z
.. CHECK ERROR CHANNEL.V<.. 1:.15,I,B$,N
,M: 15.Q<... I..0 . . 4020:. 4002..<..J.
3.K.21.(K.22):. 9000..< .. K.1...2)"NO D
ATA FILES ARE ON THIS DISK.".Q<..J.22:.
9000:. L$.W<.....<...--DIRECTORY ERROR--
-..=..J.INLINE:. 9000:DSKER..1.,=... .6)
"DIRECTORY ERROR..".@=H.. 9420:. .6) B$
.F=....C=...---SAVE FILE TO DISK---.}=..
. 9300:. EMPTY . 4220..=..I.C(IN$):E$.""
:DSKER.0..=... I.2 . E$.I(IN$,I.2):.
4130.X=... 9400:J.INLINE:. 9000..=... N
AME$.."" . . 4250..>... E$."" . . 4360.C
>".. E$.".D" . E$.".D" . DIR..1: .
3690:. DSKER . 4220.\>&.. DIR . E$."":.
4120.O>,.. E$."" . 4220..>6.. 3600:. LOW
ER CASE..>@..15,8,15,"I":. 2,8,2,"@0:".E
$ ."S,W":J.ST..>B..J.0..2,G(34)A$(1)
G(34):J.ST:.L.2.4172.'?C..J.0.
.2,G(34)A$(2) G(34):J.ST:I.3:.L
.3.4172.U?J..J.0..4232:. I.L.1 .I.I
.1:J.ST:.4170.B?L.NAME$.E$.Z?T. 2:.15,A,
B$,C,D: 15..?^.. A..0 . . 3560..?|.. 940
0..?.....?...--PRINT TO DISK--.O?..A$.A$
(I):J.C(A$):K.2..?...J(A$,K,1).."=".K.J.
K.K.1: . 4233..@..B$.H(A$,K):C$.I(A$
,J.K).,@..M.C(C$):D$.I(C$,1).V@...D$." "
.D$." ".M.1.C$.H(C$,M.1):.4235.M@..M.C(C
$):D$.H(C$,1)..@...D$." ".D$." ".M.1.C$.
I(C$,M.1):.4237..@...2,G(34)B$G(34):.2,G
(34)C$G(34).A@.....@...---SAVE OLD FILE
NAME?---..@..A$.NAME$..A..J.F(I(A$,1)):I
.C(A$).<A... (J.160 . J.32) . I.1 . A$.
H(A$,I.1):. 4252.IA... .6)"SAVE AS "
;A$;"? (Y/N)" :. 9400..A... A$:. A$.
."Y" . A$.."Y" . A$.."N" . A$.."N"
. 4260.IA..E$."":.A$."Y".A$."Y".E$.NAME
$..A... A$."N" . A$."N" . .9400..A.....B
B..---GET FILE NAME---.,BL.J.25:. 9000:.
.14) ".D(IRECTORY";.[BV.J.INLINE:.9000:
. .5.3. DIR)"";:DIR.0.ZB... "GET F
ILE NAME";E$:.9400..B...E$..".D".E$..".D
".E$.."". E$.E$." "..B...
.RB...---SAVE FILE NAME---..B..J.25:. 90
00:. .14) ".D(IRECTORY";.'C..J.INLINE:.
9000:..5.3. DIR)"";:DIR.0.FC..."SA
VE FILE NAME";E$:.9400.~C...E$..".D".E$.
.".D".E$.."". E$.E$." "..
C&....C0..---CLEAR MEMORY---..C:.. L.1 .
A$."Y":. 4450.QCD.. 9400:J.INLINE:. 900
0..CN.. .5) "DESTROY THE CURRENT FILE? (
Y/N)".;DX.. A$:. A$.."Y" . A$.."Y" .
A$.."N" . A$.."N" . 4440.IDB.. A$.."Y
" . A$.."Y" . . 9420:. 9400..DL..
A$."Y" . A$."Y" . .8010..DV....D@..---SC
REEN INIT---.EDJ.B$."":NAME$."":INLINE.1
9:L.1..DT.ET.15:. TAB FOR ERR MESSAGE
".'E^.EL$."
".XEH.L$."........
...............................".QER.. A
$:. A$.."" . 8050..E|..HC$:.I.1.31:A$(I)
."":...E..I..(0):WC.0..E... 53272,23.YE.
.. .5)"*** MATH BLASTER! EDITOR ***.
"..F... " COPYRIGHT 1983 DAVIDSON & ASS
OCIATES..".:F... " THE PROMPT LINE AT T
HE BOTTOM OF THE.".JFB.. " SCREEN DISPL
AYS THE EDITOR COMMANDS.."..FL.. " FOR
HELP, USE THE .H COMMAND."..F..J.22:. 9
000:. L$..F....FF.#.---VTAB 2-25------.X
F(#. 214,J.2:.:...F.#.---VTAB & LINE#---
.&G.#J.INLINE:. 9000:A$.D(LINE): A$
.I(A$,C(A$).1).FG #...(LINE.10).(LINE.10
0))A$;.LG.#..DG.#.---LENGTH CHECK---..G.
#A$.I(IN$,1):I.F(A$.G(0))..G.#. (I.32 .
I.160) .C(A$).1. IN$.H(IN$,C(IN$).1):
. 9200..G.#. LINE.1 . LINE.2. IN$.H(IN$,
28):VLID..1. H.#. LINE . 2 . . 9282:IN$.
H(IN$,18):VLID.(IN$.."").EH.$J.INLINE:.
9000:..3)H(EL$,36)".".RH"$. .5)IN$.XH@$.
.XHA$.---LEGAL CHARACTER CHECK--..HB$B$.
"":.I.1.C(IN$):C$.J(IN$,I,1)..HC$OK.(C$.
"#".C$."%".C$."+".C$."*".C$."=".(C$.",".
C$.":").C$." ")..HD$. OK . B$.B$.C$..IE$
.:IN$.B$..IG$...IJ$.---EMPTY CHECK---.-I
T$EMPTY.(L.1).GI^$. EM . J.INL.1:. 9000:
. .ET)"NO LINES IN MEMORY.".MIH$...I
.$.---SCROLL SCREEN---..I.$J.22:.9000:.I
.1.4:.EL$:.:J.22:.9000:.TL$:..OIB$.---SC
ROLL NO LINE---..IL$J.22:. 9000:. I.1 .
4:.EL$:.:...JV%.---VALID LINE # CHECK---
.(J.%IVLID.(E.1 . E.L.1).HJ.%. IVLI . J.
INLINE.1:. 9000 :..ET) "INVALID LINE
NUMBER".NJ.%...JZ%.---CHANGE DISKS---.
J.%.53272,23:.53248.21,0.XJ.%. HC$:. .6)
"* * MATH BLASTER! EDITOR * *..."
..J.%. .4) "PLEASE SELECT:.".%K.%. .4) "
LIGHT OR DARK BACKGROUND? (L/.D.)...".CK
.%.A$:.A$.."L".A$.."L".A$.."D" .A$.."D
". A$..G(13) . 9706..K.%LB.(A$."L".A$."L
".A$.G(13))..K.%DB.(A$."D".A$."D").FK.%.
.4)"PLEASE REMOVE THE PROGRAM DISK.."..
K.%. .4) "PLEASE INSERT THE DATA DISK.".
.K.&J.24:. 9000.'L.&. .7) "PRESS SPACE B
AR TO CONTINUE".@L.&. A$:. A$.."" . 9750
.ZL &. A$:. A$.." " . 9760..L"&. ".":.53
280,.3.LB.6.DB:.53281,.LB.11.DB:.646,.DB
.11.LB..L*&...L>&.---MAIN PROMPT LINE---
.HLH&J.25:. 9000..LR&. " .E .L .D .I
.S .G .P .C .Q .H";..L\&...M.&.---
HELP SCREEN---. M.&. HC$.LM.&. " THE CO
MMANDS IN THIS EDITOR ARE:.".GM.&. " .E
EDIT A LINE"..MJ&. " .L LIST THE F
ILE"..MT&. " .D DELETE A LINE"..M.&.
" .I INSERT LINES"..M.&. " .S SAVE
FILE TO DISK"..N.'. " .G GET FILE FR
OM DISK".%N.'. " .P PRINT FILE ON PRI
NTER".MN.'." .C CLEAR EDITOR FOR NEW
FILE".KN.'." .Q QUIT THE EDITOR"..N$'
." .H HELP SCREEN.". N.'." MAXIMUM L
ENGTHS:".DN/'." LINES 1-2 28 CHARACTE
RS."..N0'." LINES 3-27 18 CHARACTERS."
..NL'J.22:. 9000:. L$..OV'...O`'.---QUIT
EDITOR---.$OJ'. HC$.AOT'." YOUR CHOICE
S ARE:..".DO~'." 1> RETURN TO THE EDITO
R.."..O.'." 2> SAVE FILE (IF YOU HAVEN'
T ALREADY)."..O.'." AND QUIT THE EDI
TOR..".TO.'." 3> QUIT THE EDITOR.."..O.
'." YOUR CHOICE? (1-3).."..P.'. A$:. A$
.."" . 10152.7P.'. A$:. A$."1" . A$."3"
. 10160.QP.'I.E(A$):. I.1 . 1027
0..PD'. I.2 . . 4080:. EMPTY . .
I.1 . 2000:...PN'HC$.".": . HC$.CPX'.
" TO RE-ENTER THE EDITOR WITH."..P.'
. " YOUR FILE INTACT, TYPE GOTO 50":.
.27)".......".)Q.'. " AND PRESS RETUR
N.":..14)"......".TQ.'. " ..TO RUN MA
TH BLASTER, INSERT.".{Q.'. " THE PROG
RAM DISK AND TYPE."..Q.(. " LOAD ";G(
34);"MATH BLASTER";G(34);",8 AND PRESS"
.XQ.(..4)"....................."..R.(. "
RETURN. WHEN THE PROGRAM HAS":..4)"
......".7R.(. " LOADED, TYPE RUN AND
PRESS".FR.(..18)"...".GR.(. " RETURN
.":..4)"......".MR.(...R.(. HC$:J.22:. 9
000..R((. L$..R2(....
> CLICK IMAGE PREVIEW FOR FULL MODAL