BASIC EDITOR
FILE INFORMATION
FILENAME(S): BASIC EDITOR
FILE TYPE(S): PRG
FILE SIZE: 9.8K
FIRST SEEN: 2025-12-01 01:08:03
APPEARS ON: 1 disk(s)
FILE HASH
7edfe235f2adee0db718d9243349ee10e5449af9d36a21df86c26031cd1215fb
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 0107B | BASIC EDITOR | PRG | hedning, Kaevlinge | 22 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 24 08 0A 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..$.... ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 00 47 08 14 00 8F 20 2A 2A 20 20 42 |****.G.... ** B|
00000030: 41 53 49 43 20 45 44 49 54 4F 52 20 20 56 45 52 |ASIC EDITOR VER|
00000040: 31 2E 30 20 20 2A 2A 00 6A 08 1E 00 8F 20 2A 2A |1.0 **.j.... **|
00000050: 20 42 59 20 50 2E 46 2E 48 41 59 45 53 20 20 28 | BY P.F.HAYES (|
00000060: 43 29 20 31 39 38 38 20 2A 2A 00 8D 08 28 00 8F |C) 1988 **...(..|
00000070: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
00000080: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 CE 08 |*************...|
00000090: 32 00 99 22 93 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 11 |2.."............|
000000A0: 11 11 11 11 11 11 11 11 11 49 4E 49 54 49 41 4C |.........INITIAL|
000000B0: 49 53 49 4E 47 20 50 52 4F 47 52 41 4D 22 3A 8D |ISING PROGRAM":.|
000000C0: 20 32 39 30 30 3A 9C 3A 8D 20 31 37 32 30 00 D9 | 2900:.:. 1720..|
000000D0: 08 3C 00 8D 20 31 37 37 30 00 0C 09 46 00 99 22 |.<.. 1770...F.."|
000000E0: 93 9E 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..**************|
000000F0: 42 41 53 49 43 20 45 44 49 54 4F 52 2A 2A 2A 2A |BASIC EDITOR****|
00000100: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 9A 22 00 2D 09 50 |**********.".-.P|
00000110: 00 99 22 20 20 20 20 20 20 31 29 20 45 58 49 54 |.." 1) EXIT|
00000120: 20 46 52 4F 4D 20 45 44 49 54 4F 52 22 00 53 09 | FROM EDITOR".S.|
00000130: 5A 00 99 22 20 20 20 20 20 20 32 29 20 52 45 2D |Z.." 2) RE-|
00000140: 49 4E 49 54 49 41 4C 49 53 45 20 50 52 4F 47 52 |INITIALISE PROGR|
00000150: 41 4D 22 00 6D 09 64 00 99 22 20 20 20 20 20 20 |AM".m.d.." |
00000160: 33 29 20 4C 4F 41 44 20 46 49 4C 45 22 00 8B 09 |3) LOAD FILE"...|
00000170: 6E 00 99 22 20 20 20 20 20 20 34 29 20 49 4E 50 |n.." 4) INP|
00000180: 55 54 20 4C 49 4E 45 28 53 29 22 00 A8 09 78 00 |UT LINE(S)"...x.|
00000190: 99 22 20 20 20 20 20 20 35 29 20 4C 49 53 54 20 |." 5) LIST |
000001A0: 4C 49 4E 45 28 53 29 22 00 C7 09 82 00 99 22 20 |LINE(S)"......" |
000001B0: 20 20 20 20 20 36 29 20 44 45 4C 45 54 45 20 4C | 6) DELETE L|
000001C0: 49 4E 45 28 53 29 22 00 E1 09 8C 00 99 22 20 20 |INE(S)"......" |
000001D0: 20 20 20 20 37 29 20 45 44 49 54 20 46 49 4C 45 | 7) EDIT FILE|
000001E0: 22 00 03 0A 96 00 99 22 20 20 20 20 20 20 38 29 |"......" 8)|
000001F0: 20 4D 45 52 47 45 2F 41 50 50 45 4E 44 20 46 49 | MERGE/APPEND FI|
00000200: 4C 45 22 00 25 0A A0 00 99 22 20 20 20 20 20 20 |LE".%...." |
00000210: 39 29 20 53 41 56 45 20 46 49 4C 45 20 4C 49 4E |9) SAVE FILE LIN|
00000220: 45 28 53 29 22 00 4A 0A AA 00 99 22 20 20 20 20 |E(S)".J...." |
00000230: 20 31 30 29 20 43 48 41 4E 47 45 20 44 45 56 49 | 10) CHANGE DEVI|
00000240: 43 45 20 4E 55 4D 42 45 52 22 00 6C 0A B4 00 99 |CE NUMBER".l....|
00000250: 22 20 20 20 20 20 31 31 29 20 53 45 41 52 43 48 |" 11) SEARCH|
00000260: 20 46 4F 52 20 53 54 52 49 4E 47 22 00 87 0A BE | FOR STRING"....|
00000270: 00 99 22 20 20 20 20 20 31 32 29 20 44 49 52 45 |.." 12) DIRE|
00000280: 43 54 4F 52 59 11 22 00 A3 0A C8 00 85 22 43 4F |CTORY."......"CO|
00000290: 4D 4D 41 4E 44 20 28 31 2D 31 32 29 20 3D 20 22 |MMAND (1-12) = "|
000002A0: 3B 43 4D 00 B7 0A D2 00 8B 20 43 4D B2 31 20 A7 |;CM...... CM.1 .|
000002B0: 20 89 20 32 38 32 30 00 FB 0A DC 00 8B 20 43 4D | . 2820...... CM|
000002C0: B2 32 20 B0 20 43 4D B2 33 20 A7 20 85 22 45 52 |.2 . CM.3 . ."ER|
000002D0: 41 53 45 53 20 43 55 52 52 45 4E 54 20 46 49 4C |ASES CURRENT FIL|
000002E0: 45 3A 43 4F 4E 54 49 4E 55 45 20 28 59 2F 4E 29 |E:CONTINUE (Y/N)|
000002F0: 20 20 20 4E 9D 9D 9D 22 3B 54 24 00 21 0B E6 00 | N...";T$.!...|
00000300: 8B 20 43 4D B2 32 20 AF 20 54 24 B2 22 59 22 20 |. CM.2 . T$."Y" |
00000310: A7 20 9C 3A 8D 20 31 37 32 30 3A 8D 20 31 37 37 |. .:. 1720:. 177|
00000320: 30 00 53 0B F0 00 8B 20 43 4D B2 33 20 AF 20 54 |0.S.... CM.3 . T|
00000330: 24 B2 22 59 22 20 A7 20 9C 3A 43 4D B2 33 3A 8D |$."Y" . .:CM.3:.|
00000340: 20 31 37 32 30 3A 8D 20 31 37 37 30 3A 8D 20 31 | 1720:. 1770:. 1|
00000350: 33 36 30 00 94 0B FA 00 8B 20 43 4D B1 33 20 A7 |360...... CM.3 .|
00000360: 20 91 20 43 4D AB 33 20 8D 20 32 38 30 2C 38 33 | . CM.3 . 280,83|
00000370: 30 2C 31 31 33 30 2C 31 38 35 30 2C 31 32 38 30 |0,1130,1850,1280|
00000380: 2C 31 34 38 30 2C 31 36 38 30 2C 32 35 31 30 2C |,1480,1680,2510,|
00000390: 32 36 38 30 00 9D 0B 04 01 89 20 37 30 00 BD 0B |2680...... 70...|
000003A0: 0E 01 8F 20 2A 2A 2A 49 4E 50 55 54 20 42 41 53 |... ***INPUT BAS|
000003B0: 49 43 20 4C 49 4E 45 28 53 29 2A 2A 2A 00 E8 0B |IC LINE(S)***...|
000003C0: 18 01 85 22 41 55 54 4F 20 4C 49 4E 45 20 4E 55 |..."AUTO LINE NU|
000003D0: 4D 42 45 52 49 4E 47 20 28 59 2F 4E 29 20 20 20 |MBERING (Y/N) |
000003E0: 4E 9D 9D 9D 22 3B 54 24 00 FB 0B 22 01 8B 20 54 |N...";T$...".. T|
000003F0: 24 B2 22 59 22 20 A7 20 34 30 30 00 0A 0C 2C 01 |$."Y" . 400...,.|
00000400: 99 22 93 22 3A 9F 20 32 2C 30 00 28 0C 36 01 85 |.".":. 2,0.(.6..|
00000410: 40 32 2C 49 50 24 3A 8B 20 49 50 24 B2 C7 28 39 |@2,IP$:. IP$..(9|
00000420: 35 29 20 A7 20 33 37 30 00 48 0C 40 01 8B 20 C3 |5) . 370.H.@.. .|
00000430: 28 49 50 24 29 B1 38 30 20 A7 20 49 50 24 B2 C8 |(IP$).80 . IP$..|
00000440: 28 49 50 24 2C 38 30 29 00 60 0C 4A 01 8D 20 35 |(IP$,80).`.J.. 5|
00000450: 30 30 3A 8B 20 4C 4E B2 AB 31 20 A7 20 33 37 30 |00:. LN..1 . 370|
00000460: 00 9E 0C 54 01 8B 20 4C 4E B3 31 20 B0 20 4C 4E |...T.. LN.1 . LN|
00000470: B1 36 35 35 33 34 20 A7 20 99 22 49 4E 56 41 4C |.65534 . ."INVAL|
00000480: 49 44 20 4C 49 4E 45 20 4E 55 4D 42 45 52 3A 52 |ID LINE NUMBER:R|
00000490: 45 2D 45 4E 54 45 52 22 3A 89 20 33 31 30 00 B9 |E-ENTER":. 310..|
000004A0: 0C 5E 01 8D 20 35 35 30 3A 8B 20 C3 28 49 50 24 |.^.. 550:. .(IP$|
000004B0: 29 B2 30 20 A7 20 33 38 30 00 D5 0C 68 01 8D 20 |).0 . 380...h.. |
000004C0: 35 38 30 3A 8B 20 A8 20 45 52 52 20 A7 20 99 3A |580:. . ERR . .:|
000004D0: 89 20 33 31 30 00 DF 0C 72 01 A0 20 32 3A 8E 00 |. 310...r.. 2:..|
000004E0: FA 0C 7C 01 8D 20 37 35 30 3A 8B 20 A8 20 45 52 |..|.. 750:. . ER|
000004F0: 52 20 A7 20 8D 20 31 31 39 30 00 06 0D 86 01 99 |R . . 1190......|
00000500: 3A 89 20 33 31 30 00 44 0D 90 01 85 22 53 54 41 |:. 310.D...."STA|
00000510: 52 54 20 4C 49 4E 45 20 4E 55 4D 42 45 52 20 3D |RT LINE NUMBER =|
00000520: 20 22 3B 42 4C 3A 85 22 4C 49 4E 45 20 4E 55 4D | ";BL:."LINE NUM|
00000530: 42 45 52 20 49 4E 43 52 45 4D 45 4E 54 20 3D 20 |BER INCREMENT = |
00000540: 22 3B 49 4C 00 58 0D 9A 01 99 22 93 22 3A 9F 20 |";IL.X....".":. |
00000550: 32 2C 30 3A 53 49 B2 30 00 92 0D A4 01 41 4C 24 |2,0:SI.0.....AL$|
00000560: B2 CA 28 C4 28 42 4C AA 53 49 29 2C 32 29 3A 99 |..(.(BL.SI),2):.|
00000570: 41 4C 24 3B 22 20 22 3B 3A 85 40 32 2C 49 50 24 |AL$;" ";:.@2,IP$|
00000580: 3A 8B 20 49 50 24 B2 C7 28 39 35 29 20 A7 20 34 |:. IP$..(95) . 4|
00000590: 38 30 00 BE 0D AE 01 49 50 24 B2 41 4C 24 AA 49 |80.....IP$.AL$.I|
000005A0: 50 24 3A 8B 20 C3 28 49 50 24 29 B1 38 30 20 A7 |P$:. .(IP$).80 .|
000005B0: 20 49 50 24 B2 C8 28 49 50 24 2C 38 30 29 00 D6 | IP$..(IP$,80)..|
000005C0: 0D B8 01 8D 20 35 30 30 3A 8B 20 4C 4E B2 AB 31 |.... 500:. LN..1|
000005D0: 20 A7 20 34 38 30 00 14 0E C2 01 8B 20 4C 4E B3 | . 480...... LN.|
000005E0: 31 20 B0 20 4C 4E B1 36 35 35 33 34 20 A7 20 99 |1 . LN.65534 . .|
000005F0: 22 49 4E 56 41 4C 49 44 20 4C 49 4E 45 20 4E 55 |"INVALID LINE NU|
00000600: 4D 42 45 52 3A 52 45 2D 45 4E 54 45 52 22 3A 89 |MBER:RE-ENTER":.|
00000610: 20 34 32 30 00 33 0E CC 01 8D 20 35 35 30 3A 8B | 420.3.... 550:.|
00000620: 20 C3 28 49 50 24 29 B2 30 20 A7 20 99 3A 89 20 | .(IP$).0 . .:. |
00000630: 34 32 30 00 58 0E D6 01 8D 20 35 38 30 3A 8B 20 |420.X.... 580:. |
00000640: A8 20 45 52 52 20 A7 20 53 49 B2 53 49 AA 49 4C |. ERR . SI.SI.IL|
00000650: 3A 99 3A 89 20 34 32 30 00 62 0E E0 01 A0 20 32 |:.:. 420.b.... 2|
00000660: 3A 8E 00 82 0E EA 01 8F 20 2A 2A 2A 45 58 54 52 |:....... ***EXTR|
00000670: 41 43 54 20 4C 49 4E 45 20 4E 55 4D 42 45 52 2A |ACT LINE NUMBER*|
00000680: 2A 2A 00 B6 0E F4 01 4C 4E B2 AB 31 3A 8B 20 C3 |**.....LN..1:. .|
00000690: 28 49 50 24 29 B2 30 20 B0 20 49 50 24 B3 22 30 |(IP$).0 . IP$."0|
000006A0: 22 20 B0 20 C8 28 49 50 24 2C 31 29 B1 22 39 22 |" . .(IP$,1)."9"|
000006B0: 20 A7 20 35 33 30 00 F3 0E FE 01 81 20 54 B2 31 | . 530...... T.1|
000006C0: 20 A4 20 C3 28 49 50 24 29 3A 8B 20 CA 28 49 50 | . .(IP$):. .(IP|
000006D0: 24 2C 54 2C 31 29 B3 B2 22 39 22 20 AF 20 CA 28 |$,T,1).."9" . .(|
000006E0: 49 50 24 2C 54 2C 31 29 B1 B2 22 30 22 20 A7 20 |IP$,T,1).."0" . |
000006F0: 82 20 54 00 15 0F 08 02 4C 4E B2 C5 28 C8 28 49 |. T.....LN..(.(I|
00000700: 50 24 2C 54 AB 31 29 29 3A 49 50 24 B2 CA 28 49 |P$,T.1)):IP$..(I|
00000710: 50 24 2C 54 29 00 1B 0F 12 02 8E 00 39 0F 1C 02 |P$,T).......9...|
00000720: 8F 20 2A 2A 2A 45 58 54 52 41 43 54 20 4C 49 4E |. ***EXTRACT LIN|
00000730: 45 20 54 45 58 54 2A 2A 2A 00 63 0F 26 02 81 20 |E TEXT***.c.&.. |
00000740: 54 B2 31 20 A4 20 C3 28 49 50 24 29 3A 8B 20 CA |T.1 . .(IP$):. .|
00000750: 28 49 50 24 2C 54 2C 31 29 B2 22 20 22 20 A7 20 |(IP$,T,1)." " . |
00000760: 82 20 54 00 76 0F 30 02 49 50 24 B2 CA 28 49 50 |. T.v.0.IP$..(IP|
00000770: 24 2C 54 29 3A 8E 00 9C 0F 3A 02 8F 20 2A 2A 2A |$,T):....:.. ***|
00000780: 49 4E 53 45 52 54 20 4C 49 4E 45 20 49 4E 20 46 |INSERT LINE IN F|
00000790: 49 4C 45 20 41 52 52 41 59 2A 2A 2A 00 B8 0F 44 |ILE ARRAY***...D|
000007A0: 02 8B 20 4C 4E B3 31 20 B0 20 4C 4E B1 36 35 35 |.. LN.1 . LN.655|
000007B0: 33 34 20 A7 20 37 32 30 00 C2 0F 4E 02 8D 20 37 |34 . 720...N.. 7|
000007C0: 35 30 00 CC 0F 58 02 54 54 B2 49 4D 00 E6 0F 62 |50...X.TT.IM...b|
000007D0: 02 8B 20 A8 20 45 52 52 20 A7 20 54 54 B2 4D 41 |.. . ERR . TT.MA|
000007E0: 3A 89 20 36 36 30 00 FB 0F 6C 02 8B 20 C3 28 45 |:. 660...l.. .(E|
000007F0: 4D 24 29 B2 30 20 A7 20 36 34 30 00 27 10 76 02 |M$).0 . 640.'.v.|
00000800: 54 54 B2 A5 45 31 28 54 54 29 3A 45 4D 24 B2 CA |TT..E1(TT):EM$..|
00000810: 28 45 4D 24 2C 33 29 3A 49 4D B2 49 4D AB 31 3A |(EM$,3):IM.IM.1:|
00000820: 56 41 B2 56 41 AB 31 00 4D 10 80 02 4B 4B 24 B2 |VA.VA.1.M...KK$.|
00000830: C7 28 54 54 AD 32 35 36 29 AA C7 28 54 54 AB 32 |.(TT.256)..(TT.2|
00000840: 35 36 AC B5 28 54 54 AD 32 35 36 29 29 00 81 10 |56..(TT.256))...|
00000850: 8A 02 4D 52 24 28 51 51 29 B2 C8 28 4D 52 24 28 |..MR$(QQ)..(MR$(|
00000860: 51 51 29 2C 32 AC 4C 4D AB 32 29 AA 4B 4B 24 AA |QQ),2.LM.2).KK$.|
00000870: CA 28 4D 52 24 28 51 51 29 2C 32 AC 4C 4D AB 31 |.(MR$(QQ),2.LM.1|
00000880: 29 00 AE 10 94 02 54 31 B2 A5 45 32 28 4C 4E 29 |).....T1..E2(LN)|
00000890: 3A 41 24 28 54 54 29 B2 C7 28 4C 4E AB 54 31 AC |:A$(TT)..(LN.T1.|
000008A0: 32 35 36 29 AA C7 28 54 31 29 AA 49 50 24 00 C0 |256)..(T1).IP$..|
000008B0: 10 9E 02 8B 20 A8 20 45 52 52 20 A7 20 37 33 30 |.... . ERR . 730|
000008C0: 00 E5 10 A8 02 81 20 49 B2 30 20 A4 20 36 3A 8B |...... I.0 . 6:.|
000008D0: 20 C3 28 4D 52 24 28 49 29 29 B3 B2 32 35 30 20 | .(MR$(I))..250 |
000008E0: A7 20 37 31 30 00 07 11 B2 02 4D 52 24 28 49 AA |. 710.....MR$(I.|
000008F0: 31 29 B2 C9 28 4D 52 24 28 49 29 2C 32 29 AA 4D |1)..(MR$(I),2).M|
00000900: 52 24 28 49 AA 31 29 00 3D 11 BC 02 4D 52 24 28 |R$(I.1).=...MR$(|
00000910: 49 29 B2 C8 28 4D 52 24 28 49 29 2C C3 28 4D 52 |I)..(MR$(I),.(MR|
00000920: 24 28 49 29 29 AB 32 29 3A 8B 20 C2 28 31 35 32 |$(I)).2):. .(152|
00000930: 29 B3 B1 30 20 A7 20 54 B2 B8 28 30 29 00 4D 11 |)..0 . T..(0).M.|
00000940: C6 02 82 20 49 3A 49 4D B2 49 4D AA 31 00 5B 11 |... I:IM.IM.1.[.|
00000950: D0 02 45 52 52 B2 46 41 4C 53 45 00 61 11 DA 02 |..ERR.FALSE.a...|
00000960: 8E 00 8C 11 E4 02 8F 20 2A 2A 2A 46 49 4E 44 20 |....... ***FIND |
00000970: 4C 49 4E 45 20 4E 55 4D 42 45 52 20 49 4E 20 46 |LINE NUMBER IN F|
00000980: 49 4C 45 20 41 52 52 41 59 2A 2A 2A 00 C2 11 EE |ILE ARRAY***....|
00000990: 02 54 54 B2 49 4D AB 56 41 3A 50 57 B2 A5 46 35 |.TT.IM.VA:PW..F5|
000009A0: 28 54 54 29 3A 4D 4D B2 A5 46 36 28 50 57 29 3A |(TT):MM..F6(PW):|
000009B0: 81 20 42 56 B2 50 57 AB 31 20 A4 20 30 20 A9 20 |. BV.PW.1 . 0 . |
000009C0: AB 31 00 FD 11 F8 02 51 51 B2 A5 46 31 28 4D 4D |.1.....QQ..F1(MM|
000009D0: 29 3A 4C 4D B2 A5 46 32 28 4D 4D 29 3A 4D 41 B2 |):LM..F2(MM):MA.|
000009E0: A5 46 33 28 51 51 29 3A 54 31 B2 A5 46 34 28 4D |.F3(QQ):T1..F4(M|
000009F0: 41 29 3A 4D 4D B2 A5 46 37 28 4D 4D 29 00 15 12 |A):MM..F7(MM)...|
00000A00: 02 03 8B 20 4D 4D B1 54 54 AB 31 20 A7 20 4D 4D |... MM.TT.1 . MM|
00000A10: B2 54 54 AB 31 00 1E 12 0C 03 82 20 42 56 00 5D |.TT.1...... BV.]|
00000A20: 12 16 03 51 51 B2 A5 46 31 28 4D 4D 29 3A 4C 4D |...QQ..F1(MM):LM|
00000A30: B2 A5 46 32 28 4D 4D 29 3A 4D 41 B2 A5 46 33 28 |..F2(MM):MA..F3(|
00000A40: 51 51 29 3A 54 31 B2 A5 46 34 28 4D 41 29 3A 8B |QQ):T1..F4(MA):.|
00000A50: 20 54 31 B1 B2 4C 4E 20 A7 20 38 31 30 00 6F 12 | T1..LN . 810.o.|
00000A60: 20 03 4D 4D B2 4D 4D AA 31 3A 89 20 37 39 30 00 | .MM.MM.1:. 790.|
00000A70: 82 12 2A 03 45 52 52 B2 A8 28 54 31 B2 4C 4E 29 |..*.ERR..(T1.LN)|
00000A80: 3A 8E 00 99 12 34 03 8F 20 2A 2A 2A 4C 49 53 54 |:....4.. ***LIST|
00000A90: 20 4C 49 4E 45 53 2A 2A 2A 00 AF 12 3E 03 8D 20 | LINES***...>.. |
00000AA0: 39 33 30 3A 8B 20 45 52 52 20 A7 20 39 31 30 00 |930:. ERR . 910.|
00000AB0: BA 12 48 03 89 20 32 38 32 30 00 DF 12 52 03 99 |..H.. 2820...R..|
00000AC0: 22 93 22 3A 8D 20 31 30 34 30 3A 8B 20 46 4D B3 |".":. 1040:. FM.|
00000AD0: 53 4D 20 B0 20 46 4D B2 30 20 A7 20 39 31 30 00 |SM . FM.0 . 910.|
00000AE0: F9 12 5C 03 8B 20 44 45 56 B2 34 20 A7 20 9F 20 |..\.. DEV.4 . . |
00000AF0: 32 2C 44 45 56 3A 9D 20 32 00 37 13 66 03 81 20 |2,DEV:. 2.7.f.. |
00000B00: 4D 4D B2 53 4D 20 A4 20 46 4D 3A 51 51 B2 A5 46 |MM.SM . FM:QQ..F|
00000B10: 31 28 4D 4D 29 3A 4C 4D B2 A5 46 32 28 4D 4D 29 |1(MM):LM..F2(MM)|
00000B20: 3A 4D 41 B2 A5 46 33 28 51 51 29 3A 8D 20 31 30 |:MA..F3(QQ):. 10|
00000B30: 39 30 3A 82 20 4D 4D 00 53 13 70 03 8B 20 44 45 |90:. MM.S.p.. DE|
00000B40: 56 B2 34 20 A7 20 98 32 3A A0 20 32 3A 8D 20 31 |V.4 . .2:. 2:. 1|
00000B50: 36 38 30 00 89 13 7A 03 8B 20 C2 28 31 35 32 29 |680...z.. .(152)|
00000B60: B2 30 20 A7 20 99 22 11 1D 1D 1D 1D 1D 1D 1D 1D |.0 . .".........|
00000B70: 3C 20 52 45 54 55 52 4E 20 46 4F 52 20 4D 41 49 |< RETURN FOR MAI|
00000B80: 4E 20 4D 45 4E 55 20 3E 22 00 AC 13 84 03 8B 20 |N MENU >"...... |
00000B90: C2 28 31 35 32 29 B2 30 20 A7 20 A1 54 24 3A 8B |.(152).0 . .T$:.|
00000BA0: 20 54 24 B2 22 22 20 A7 20 39 30 30 00 B2 13 8E | T$."" . 900....|
00000BB0: 03 8E 00 D6 13 98 03 8F 20 2A 2A 2A 49 4E 50 55 |........ ***INPU|
00000BC0: 54 20 4C 49 4E 45 20 4E 55 4D 42 45 52 20 52 41 |T LINE NUMBER RA|
00000BD0: 4E 47 45 2A 2A 2A 00 02 14 A2 03 99 22 45 4E 54 |NGE***......"ENT|
00000BE0: 45 52 20 4C 49 4E 45 20 4E 55 4D 42 45 52 20 52 |ER LINE NUMBER R|
00000BF0: 41 4E 47 45 20 28 45 47 20 31 30 30 2D 35 30 30 |ANGE (EG 100-500|
00000C00: 29 22 00 2C 14 AC 03 49 50 24 B2 22 22 3A 85 22 |)".,...IP$."":."|
00000C10: 46 49 52 53 54 20 4C 49 4E 45 2D 4C 41 53 54 20 |FIRST LINE-LAST |
00000C20: 4C 49 4E 45 20 3D 20 22 3B 49 50 24 00 48 14 B6 |LINE = ";IP$.H..|
00000C30: 03 53 4C B2 31 3A 46 4C B2 36 35 35 33 34 3A 45 |.SL.1:FL.65534:E|
00000C40: 52 52 B2 46 41 4C 53 45 00 5E 14 C0 03 8B 20 C3 |RR.FALSE.^.... .|
00000C50: 28 49 50 24 29 B2 30 20 A7 20 31 30 32 30 00 7E |(IP$).0 . 1020.~|
00000C60: 14 CA 03 8D 20 35 30 30 3A 8B 20 4C 4E B1 B2 30 |.... 500:. LN..0|
00000C70: 20 A7 20 53 4C B2 4C 4E 3A 89 20 39 39 30 00 9A | . SL.LN:. 990..|
00000C80: 14 D4 03 8B 20 4C 4E B1 AB 31 20 A7 20 46 4C B2 |.... LN..1 . FL.|
00000C90: AB 4C 4E 3A 89 20 31 30 32 30 00 BE 14 DE 03 8D |.LN:. 1020......|
00000CA0: 20 35 35 30 3A 8B 20 C3 28 49 50 24 29 B2 30 20 | 550:. .(IP$).0 |
00000CB0: A7 20 46 4C B2 53 4C 3A 89 20 31 30 32 30 00 D5 |. FL.SL:. 1020..|
00000CC0: 14 E8 03 49 50 24 B2 CA 28 49 50 24 2C 32 29 3A |...IP$..(IP$,2):|
00000CD0: 8D 20 35 35 30 00 F2 14 F2 03 8B 20 C3 28 49 50 |. 550...... .(IP|
00000CE0: 24 29 B1 30 20 A7 20 8D 20 35 30 30 3A 46 4C B2 |$).0 . . 500:FL.|
00000CF0: 4C 4E 00 24 15 FC 03 45 52 52 B2 53 4C B3 31 20 |LN.$...ERR.SL.1 |
00000D00: B0 20 53 4C B1 36 35 35 33 34 20 B0 20 46 4C B3 |. SL.65534 . FL.|
00000D10: 31 20 B0 20 46 4C B1 36 35 35 33 34 20 B0 20 45 |1 . FL.65534 . E|
00000D20: 52 52 3A 8E 00 4A 15 06 04 8F 20 2A 2A 2A 4C 49 |RR:..J.... ***LI|
00000D30: 4E 45 20 4E 55 4D 42 45 52 20 52 41 4E 47 45 20 |NE NUMBER RANGE |
00000D40: 4D 41 52 4B 45 52 53 2A 2A 2A 00 60 15 10 04 4C |MARKERS***.`...L|
00000D50: 4E B2 53 4C 3A 8D 20 37 35 30 3A 53 4D B2 4D 4D |N.SL:. 750:SM.MM|
00000D60: 00 76 15 1A 04 4C 4E B2 46 4C 3A 8D 20 37 35 30 |.v...LN.FL:. 750|
00000D70: 3A 46 4D B2 4D 4D 00 8A 15 24 04 8B 20 45 52 52 |:FM.MM...$.. ERR|
00000D80: 20 A7 20 46 4D B2 46 4D AB 31 00 90 15 2E 04 8E | . FM.FM.1......|
00000D90: 00 B4 15 38 04 8F 20 2A 2A 2A 4C 49 53 54 20 4C |...8.. ***LIST L|
00000DA0: 49 4E 45 53 20 4D 41 52 4B 45 44 20 42 59 20 4D |INES MARKED BY M|
00000DB0: 41 2A 2A 2A 00 E1 15 42 04 54 50 24 B2 C4 28 A5 |A***...B.TP$..(.|
00000DC0: 46 34 28 4D 41 29 29 3A 99 CA 28 54 50 24 2C 32 |F4(MA)):..(TP$,2|
00000DD0: 29 3B 22 20 22 3B CA 28 41 24 28 4D 41 29 2C 33 |);" ";.(A$(MA),3|
00000DE0: 29 00 04 16 4C 04 8B 20 C2 28 31 35 32 29 B2 30 |)...L.. .(152).0|
00000DF0: 20 A7 20 92 20 31 39 38 2C 31 2C 31 3A 97 20 31 | . . 198,1,1:. 1|
00000E00: 39 38 2C 30 00 0A 16 56 04 8E 00 25 16 60 04 8F |98,0...V...%.`..|
00000E10: 20 2A 2A 2A 44 45 4C 45 54 45 20 4C 49 4E 45 28 | ***DELETE LINE(|
00000E20: 53 29 2A 2A 2A 00 3C 16 6A 04 8D 20 39 33 30 3A |S)***.<.j.. 930:|
00000E30: 8B 20 45 52 52 20 A7 20 31 31 37 30 00 47 16 74 |. ERR . 1170.G.t|
00000E40: 04 89 20 32 38 32 30 00 61 16 7E 04 8D 20 31 30 |.. 2820.a.~.. 10|
00000E50: 34 30 3A 8B 20 46 4D B3 53 4D 20 A7 20 31 31 37 |40:. FM.SM . 117|
00000E60: 30 00 A1 16 88 04 81 20 4D 4D B2 46 4D A4 53 4D |0...... MM.FM.SM|
00000E70: 20 A9 20 AB 31 3A 51 51 B2 A5 46 31 28 4D 4D 29 | . .1:QQ..F1(MM)|
00000E80: 3A 4C 4D B2 A5 46 32 28 4D 4D 29 3A 4D 41 B2 A5 |:LM..F2(MM):MA..|
00000E90: 46 33 28 51 51 29 3A 8D 20 31 31 39 30 3A 82 4D |F3(QQ):. 1190:.M|
00000EA0: 4D 00 A7 16 92 04 8E 00 CC 16 9C 04 8F 20 2A 2A |M............ **|
00000EB0: 2A 44 45 4C 45 54 45 20 4C 49 4E 45 20 4D 41 52 |*DELETE LINE MAR|
00000EC0: 4B 45 44 20 42 59 20 4D 41 2A 2A 2A 00 FC 16 A6 |KED BY MA***....|
00000ED0: 04 4D 52 24 28 51 51 29 B2 C8 28 4D 52 24 28 51 |.MR$(QQ)..(MR$(Q|
00000EE0: 51 29 2C 32 AC 4C 4D AB 32 29 AA CA 28 4D 52 24 |Q),2.LM.2)..(MR$|
00000EF0: 28 51 51 29 2C 32 AC 4C 4D AA 31 29 00 0A 17 B0 |(QQ),2.LM.1)....|
00000F00: 04 81 20 49 B2 30 20 A4 20 36 00 36 17 BA 04 8B |.. I.0 . 6.6....|
00000F10: 20 C3 28 4D 52 24 28 49 29 29 B1 B2 32 35 30 20 | .(MR$(I))..250 |
00000F20: B0 20 C3 28 4D 52 24 28 49 AA 31 29 29 B2 30 20 |. .(MR$(I.1)).0 |
00000F30: A7 20 31 32 33 30 00 6D 17 C4 04 4D 52 24 28 49 |. 1230.m...MR$(I|
00000F40: 29 B2 4D 52 24 28 49 29 AA C8 28 4D 52 24 28 49 |).MR$(I)..(MR$(I|
00000F50: AA 31 29 2C 32 29 3A 4D 52 24 28 49 AA 31 29 B2 |.1),2):MR$(I.1).|
00000F60: CA 28 4D 52 24 28 49 AA 31 29 2C 33 29 00 87 17 |.(MR$(I.1),3)...|
00000F70: CE 04 82 20 49 3A 56 41 B2 56 41 AA 31 3A 41 24 |... I:VA.VA.1:A$|
00000F80: 28 4D 41 29 B2 22 22 00 9F 17 D8 04 8B 20 C3 28 |(MA).""...... .(|
00000F90: 45 4D 24 29 B1 32 35 30 20 A7 20 31 32 36 30 00 |EM$).250 . 1260.|
00000FA0: C9 17 E2 04 45 4D 24 B2 C7 28 4D 41 AD 32 35 36 |....EM$..(MA.256|
00000FB0: 29 AA C7 28 4D 41 AB 32 35 36 AC B5 28 4D 41 AD |)..(MA.256..(MA.|
00000FC0: 32 35 36 29 29 AA 45 4D 24 00 CF 17 EC 04 8E 00 |256)).EM$.......|
00000FD0: F2 17 F6 04 8F 20 2A 2A 2A 4D 45 52 47 45 20 46 |..... ***MERGE F|
00000FE0: 49 4C 45 20 46 52 4F 4D 20 44 45 56 49 43 45 2A |ILE FROM DEVICE*|
00000FF0: 2A 2A 00 16 18 00 05 8D 20 31 36 33 30 3A 8B 20 |**...... 1630:. |
00001000: 44 45 56 B2 38 20 A7 20 54 4E 24 B2 54 4E 24 AA |DEV.8 . TN$.TN$.|
00001010: 22 2C 53 2C 52 22 00 30 18 0A 05 8B 20 44 45 56 |",S,R".0.... DEV|
00001020: B3 B1 31 20 AF 20 44 45 56 B3 B1 38 20 A7 20 8E |..1 . DEV..8 . .|
00001030: 00 3B 18 14 05 89 20 32 38 32 30 00 4D 18 1E 05 |.;.... 2820.M...|
00001040: 9F 20 32 2C 44 45 56 2C 30 2C 54 4E 24 00 73 18 |. 2,DEV,0,TN$.s.|
00001050: 28 05 85 40 32 2C 49 50 24 3A 8D 20 35 30 30 3A |(..@2,IP$:. 500:|
00001060: 8B 20 4C 4E B2 AB 31 20 B0 20 53 54 20 A7 20 31 |. LN..1 . ST . 1|
00001070: 33 34 30 00 8A 18 32 05 8D 20 35 35 30 3A 8D 20 |340...2.. 550:. |
00001080: 35 38 30 3A 89 20 31 33 32 30 00 94 18 3C 05 A0 |580:. 1320...<..|
00001090: 20 32 3A 8E 00 B6 18 46 05 8F 20 2A 2A 2A 4C 4F | 2:....F.. ***LO|
000010A0: 41 44 20 46 49 4C 45 20 46 52 4F 4D 20 44 45 56 |AD FILE FROM DEV|
000010B0: 49 43 45 2A 2A 2A 00 DA 18 50 05 8D 20 31 36 33 |ICE***...P.. 163|
000010C0: 30 3A 8B 20 44 45 56 B2 38 20 A7 20 54 4E 24 B2 |0:. DEV.8 . TN$.|
000010D0: 54 4E 24 AA 22 2C 53 2C 52 22 00 F4 18 5A 05 8B |TN$.",S,R"...Z..|
000010E0: 20 44 45 56 B3 B1 31 20 AF 20 44 45 56 B3 B1 38 | DEV..1 . DEV..8|
000010F0: 20 A7 20 8E 00 FF 18 64 05 89 20 32 38 32 30 00 | . ....d.. 2820.|
00001100: 11 19 6E 05 9F 20 32 2C 44 45 56 2C 30 2C 54 4E |..n.. 2,DEV,0,TN|
00001110: 24 00 37 19 78 05 85 40 32 2C 49 50 24 3A 8D 20 |$.7.x..@2,IP$:. |
00001120: 35 30 30 3A 8B 20 4C 4E B2 AB 31 20 B0 20 53 54 |500:. LN..1 . ST|
00001130: 20 A7 20 31 34 36 30 00 47 19 82 05 8D 20 35 35 | . 1460.G.... 55|
00001140: 30 3A 8D 20 35 38 30 00 6D 19 8C 05 85 40 32 2C |0:. 580.m....@2,|
00001150: 49 50 24 3A 8D 20 35 30 30 3A 8B 20 4C 4E B2 AB |IP$:. 500:. LN..|
00001160: 31 20 B0 20 53 54 20 A7 20 31 34 36 30 00 95 19 |1 . ST . 1460...|
00001170: 96 05 8D 20 35 35 30 3A 4D 4D B2 4D 4D AA 31 3A |... 550:MM.MM.1:|
00001180: 51 51 B2 A5 46 31 28 4D 4D 29 3A 4C 4D B2 A5 46 |QQ..F1(MM):LM..F|
00001190: 32 28 4D 4D 29 00 B2 19 A0 05 8B 20 4C 4E B3 31 |2(MM)...... LN.1|
000011A0: 20 B0 20 4C 4E B1 36 35 35 33 34 20 A7 20 31 34 | . LN.65534 . 14|
000011B0: 32 30 00 CA 19 AA 05 45 52 52 B2 AB 31 3A 8D 20 |20.....ERR..1:. |
000011C0: 36 30 30 3A 89 20 31 34 32 30 00 D4 19 B4 05 A0 |600:. 1420......|
000011D0: 20 32 3A 8E 00 F4 19 BE 05 8F 20 2A 2A 2A 53 41 | 2:....... ***SA|
000011E0: 56 45 20 46 49 4C 45 20 54 4F 20 44 45 56 49 43 |VE FILE TO DEVIC|
000011F0: 45 2A 2A 2A 00 1E 1A C8 05 8D 20 31 36 33 30 3A |E***...... 1630:|
00001200: 8D 20 39 33 30 3A 8B 20 44 45 56 B3 B1 31 20 AF |. 930:. DEV..1 .|
00001210: 20 44 45 56 B3 B1 38 20 A7 20 31 36 31 30 00 54 | DEV..8 . 1610.T|
00001220: 1A D2 05 8B 20 45 52 52 20 A7 20 99 22 49 4E 56 |.... ERR . ."INV|
00001230: 41 4C 49 44 20 4C 49 4E 45 53 3A 52 45 2D 45 4E |ALID LINES:RE-EN|
00001240: 54 45 52 20 43 4F 4D 4D 41 4E 44 53 22 3A 89 20 |TER COMMANDS":. |
00001250: 31 34 38 30 00 7A 1A DC 05 8D 20 31 30 34 30 3A |1480.z.... 1040:|
00001260: 45 52 52 B2 28 46 4C B3 53 4C 29 3A 8B 20 45 52 |ERR.(FL.SL):. ER|
00001270: 52 20 A7 20 89 20 31 34 39 30 00 8E 1A E6 05 8B |R . . 1490......|
00001280: 20 44 45 56 B3 B1 38 20 A7 20 31 35 38 30 00 AC | DEV..8 . 1580..|
00001290: 1A F0 05 99 22 45 4E 54 45 52 20 46 49 4C 45 20 |...."ENTER FILE |
000012A0: 4F 50 45 52 41 54 49 4F 4E 20 3A 22 00 DD 1A FA |OPERATION :"....|
000012B0: 05 85 22 12 43 92 52 45 41 54 45 2C 12 4F 92 56 |..".C.REATE,.O.V|
000012C0: 45 52 57 52 49 54 45 2C 12 41 92 50 50 45 4E 44 |ERWRITE,.A.PPEND|
000012D0: 20 28 43 2F 4F 2F 41 29 20 22 3B 54 24 00 02 1B | (C/O/A) ";T$...|
000012E0: 04 06 8B 20 54 24 B2 22 43 22 20 A7 20 54 4E 24 |... T$."C" . TN$|
000012F0: B2 54 4E 24 AA 22 2C 53 2C 57 22 3A 89 20 31 35 |.TN$.",S,W":. 15|
00001300: 38 30 00 2D 1B 0E 06 8B 20 54 24 B2 22 4F 22 20 |80.-.... T$."O" |
00001310: A7 20 54 4E 24 B2 22 40 30 3A 22 AA 54 4E 24 AA |. TN$."@0:".TN$.|
00001320: 22 2C 53 2C 57 22 3A 89 20 31 35 38 30 00 52 1B |",S,W":. 1580.R.|
00001330: 18 06 8B 20 54 24 B2 22 41 22 20 A7 20 54 4E 24 |... T$."A" . TN$|
00001340: B2 54 4E 24 AA 22 2C 53 2C 41 22 3A 89 20 31 35 |.TN$.",S,A":. 15|
00001350: 38 30 00 5D 1B 22 06 89 20 31 35 31 30 00 68 1B |80.].".. 1510.h.|
00001360: 2C 06 89 20 32 38 32 30 00 84 1B 36 06 9F 20 32 |,.. 2820...6.. 2|
00001370: 2C 44 45 56 2C 32 2C 54 4E 24 3A 9D 20 32 3A 8D |,DEV,2,TN$:. 2:.|
00001380: 20 38 37 30 00 8F 1B 40 06 98 32 3A A0 20 32 00 | 870...@..2:. 2.|
00001390: 95 1B 4A 06 8E 00 B1 1B 54 06 8F 20 2A 2A 2A 49 |..J.....T.. ***I|
000013A0: 4E 50 55 54 20 46 49 4C 45 20 4E 41 4D 45 2A 2A |NPUT FILE NAME**|
000013B0: 2A 00 D2 1B 5E 06 54 4E 24 B2 22 22 3A 8D 20 31 |*...^.TN$."":. 1|
000013C0: 36 38 30 3A 8B 20 44 45 56 B2 34 20 A7 20 31 36 |680:. DEV.4 . 16|
000013D0: 36 30 00 F4 1B 68 06 85 22 46 49 4C 45 20 4E 41 |60...h.."FILE NA|
000013E0: 4D 45 20 3D 20 22 3B 54 4E 24 3A 4C 54 B2 C3 28 |ME = ";TN$:LT..(|
000013F0: 54 4E 24 29 00 26 1C 72 06 8B 20 4C 54 B1 31 36 |TN$).&.r.. LT.16|
00001400: 20 B0 20 4C 54 B3 31 20 A7 20 99 22 11 46 49 4C | . LT.1 . .".FIL|
00001410: 45 20 4E 41 4D 45 20 49 4E 56 41 4C 49 44 22 3A |E NAME INVALID":|
00001420: 89 20 31 36 34 30 00 2C 1C 7C 06 8E 00 4D 1C 86 |. 1640.,.|...M..|
00001430: 06 8F 20 2A 2A 2A 43 48 41 4E 47 45 20 44 45 56 |.. ***CHANGE DEV|
00001440: 49 43 45 20 4E 55 4D 42 45 52 2A 2A 2A 00 6E 1C |ICE NUMBER***.n.|
00001450: 90 06 99 22 28 50 52 49 4E 54 45 52 3D 34 3A 44 |..."(PRINTER=4:D|
00001460: 49 53 43 3D 38 3A 54 41 50 45 3D 31 29 22 00 7D |ISC=8:TAPE=1)".}|
00001470: 1C 9A 06 99 20 A6 32 31 29 20 44 45 56 00 A0 1C |.... .21) DEV...|
00001480: A4 06 85 22 91 4E 45 57 20 44 45 56 49 43 45 20 |...".NEW DEVICE |
00001490: 4E 55 4D 42 45 52 20 3D 20 22 3B 44 45 56 3A 8E |NUMBER = ";DEV:.|
000014A0: 00 D2 1C AE 06 8F 20 2A 2A 2A 49 4E 49 54 49 41 |...... ***INITIA|
000014B0: 4C 49 53 45 20 50 52 4F 47 52 41 4D 20 26 20 44 |LISE PROGRAM & D|
000014C0: 45 46 49 4E 45 20 46 55 4E 43 54 49 4F 4E 53 2A |EFINE FUNCTIONS*|
000014D0: 2A 2A 00 F8 1C B8 06 86 20 4D 52 24 28 37 29 2C |**...... MR$(7),|
000014E0: 41 24 28 33 30 30 29 2C 46 53 28 35 30 29 3A 49 |A$(300),FS(50):I|
000014F0: 4D B2 32 3A 56 41 B2 30 00 17 1D C2 06 4D 52 24 |M.2:VA.0.....MR$|
00001500: 28 30 29 B2 C7 28 30 29 AA C7 28 30 29 AA C7 28 |(0)..(0)..(0)..(|
00001510: 30 29 AA C7 28 31 29 00 3F 1D CC 06 41 24 28 30 |0)..(1).?...A$(0|
00001520: 29 B2 C7 28 30 29 AA C7 28 30 29 3A 41 24 28 31 |)..(0)..(0):A$(1|
00001530: 29 B2 C7 28 32 35 35 29 AA C7 28 32 35 35 29 00 |)..(255)..(255).|
00001540: 60 1D D6 06 43 50 24 B2 22 11 11 11 11 11 11 11 |`...CP$.".......|
00001550: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 22 |..............."|
00001560: 00 9D 1D E0 06 4F 24 B2 22 20 20 20 20 20 20 20 |.....O$." |
00001570: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001580: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001590: 20 22 3A 4F 24 B2 4F 24 AA 4F 24 3A 8E 00 CD 1D | ":O$.O$.O$:....|
000015A0: EA 06 96 20 A5 46 31 28 4D 4D 29 B2 B5 28 28 4D |... .F1(MM)..((M|
000015B0: 4D AB 31 29 AD 31 32 35 29 3A 96 20 A5 46 32 28 |M.1).125):. .F2(|
000015C0: 4D 4D 29 B2 4D 4D AB 31 32 35 AC 51 51 00 07 1E |MM).MM.125.QQ...|
000015D0: F4 06 96 20 A5 46 33 28 51 51 29 B2 32 35 36 AC |... .F3(QQ).256.|
000015E0: C6 28 CA 28 4D 52 24 28 51 51 29 2C 32 AC 4C 4D |.(.(MR$(QQ),2.LM|
000015F0: AB 31 29 29 AA C6 28 CA 28 4D 52 24 28 51 51 29 |.1))..(.(MR$(QQ)|
00001600: 2C 32 AC 4C 4D 29 29 00 3B 1E FE 06 96 20 A5 46 |,2.LM)).;.... .F|
00001610: 34 28 4D 41 29 B2 C6 28 CA 28 41 24 28 4D 41 29 |4(MA)..(.(A$(MA)|
00001620: 2C 31 2C 31 29 29 AA 32 35 36 AC C6 28 CA 28 41 |,1,1)).256..(.(A|
00001630: 24 28 4D 41 29 2C 32 2C 31 29 29 00 5A 1E 08 07 |$(MA),2,1)).Z...|
00001640: 96 20 A5 46 35 28 54 54 29 B2 B5 28 BC 28 54 54 |. .F5(TT)..(.(TT|
00001650: 29 AD 2E 36 39 33 31 34 37 29 00 91 1E 12 07 96 |)..693147)......|
00001660: 20 A5 46 36 28 50 57 29 B2 32 AE 50 57 3A 96 20 | .F6(PW).2.PW:. |
00001670: A5 46 37 28 4D 4D 29 B2 4D 4D AA 32 AE 42 56 AC |.F7(MM).MM.2.BV.|
00001680: 28 28 4C 4E B3 54 31 29 AB 28 4C 4E B1 54 31 29 |((LN.T1).(LN.T1)|
00001690: 29 00 CC 1E 1C 07 96 20 A5 46 38 28 50 29 B2 31 |)...... .F8(P).1|
000016A0: 30 32 34 AA 4C 52 AC 34 30 AA 50 3A 96 20 A5 45 |024.LR.40.P:. .E|
000016B0: 31 28 54 54 29 B2 32 35 36 AC C6 28 45 4D 24 29 |1(TT).256..(EM$)|
000016C0: AA C6 28 CA 28 45 4D 24 2C 32 29 29 00 E6 1E 26 |..(.(EM$,2))...&|
000016D0: 07 96 20 A5 45 32 28 4C 4E 29 B2 B5 28 4C 4E AD |.. .E2(LN)..(LN.|
000016E0: 32 35 36 29 3A 8E 00 FC 1E 30 07 8F 20 2A 2A 2A |256):....0.. ***|
000016F0: 45 44 49 54 20 46 49 4C 45 2A 2A 2A 00 3F 1F 3A |EDIT FILE***.?.:|
00001700: 07 50 B2 30 3A 4C 52 B2 31 3A 4C 50 B2 31 3A 41 |.P.0:LR.1:LP.1:A|
00001710: 49 B2 30 3A 54 46 B2 30 3A 4E 53 B2 31 31 3A 54 |I.0:TF.0:NS.11:T|
00001720: 50 24 B2 22 22 3A 46 51 B2 30 3A 8B 20 54 48 B2 |P$."":FQ.0:. TH.|
00001730: 31 20 A7 20 54 48 B2 30 3A 89 20 31 39 33 30 00 |1 . TH.0:. 1930.|
00001740: 58 1F 44 07 8B 20 54 43 B2 31 20 A7 20 54 43 B2 |X.D.. TC.1 . TC.|
00001750: 30 3A 89 20 31 39 33 30 00 80 1F 4E 07 85 22 45 |0:. 1930...N.."E|
00001760: 44 49 54 20 46 52 4F 4D 20 4C 49 4E 45 4E 55 4D |DIT FROM LINENUM|
00001770: 42 45 52 20 3D 20 22 3B 4C 4E 3A 4C 54 B2 4C 4E |BER = ";LN:LT.LN|
00001780: 00 B0 1F 58 07 8D 20 37 35 30 3A 8B 20 45 52 52 |...X.. 750:. ERR|
00001790: 20 AF 20 54 46 B2 30 20 B0 20 4C 4E B3 31 20 B0 | . TF.0 . LN.1 .|
000017A0: 20 4C 4E B1 36 35 35 33 34 20 A7 20 31 39 30 30 | LN.65534 . 1900|
000017B0: 00 BB 1F 62 07 89 20 31 39 33 30 00 E7 1F 6C 07 |...b.. 1930...l.|
000017C0: 85 22 49 4E 56 41 4C 49 44 20 4C 49 4E 45 3A 12 |."INVALID LINE:.|
000017D0: 52 92 45 2D 45 4E 54 45 52 20 4F 52 20 12 45 92 |R.E-ENTER OR .E.|
000017E0: 58 49 54 22 3B 54 24 00 F8 1F 76 07 8B 20 54 24 |XIT";T$...v.. T$|
000017F0: B2 22 45 22 20 A7 20 8E 00 03 20 80 07 89 20 31 |."E" . ... ... 1|
00001800: 38 37 30 00 23 20 8A 07 8B 20 4E 53 B1 49 4D AB |870.# ... NS.IM.|
00001810: 4D 4D AB 56 41 20 A7 20 4E 53 B2 49 4D AB 4D 4D |MM.VA . NS.IM.MM|
00001820: AB 56 41 00 41 20 94 07 8B 20 4E 53 B2 30 20 AF |.VA.A ... NS.0 .|
00001830: 20 28 49 4D AB 56 41 29 B1 32 20 A7 20 32 34 32 | (IM.VA).2 . 242|
00001840: 30 00 50 20 9E 07 8B 20 4E 53 B2 30 20 A7 20 8E |0.P ... NS.0 . .|
00001850: 00 91 20 A8 07 50 54 B2 4D 4D 3A 51 51 B2 A5 46 |.. ..PT.MM:QQ..F|
00001860: 31 28 4D 4D 29 3A 4C 4D B2 A5 46 32 28 4D 4D 29 |1(MM):LM..F2(MM)|
00001870: 3A 4D 41 B2 A5 46 33 28 51 51 29 3A 4C 54 B2 C5 |:MA..F3(QQ):LT..|
00001880: 28 C4 28 A5 46 34 28 4D 41 29 29 29 3A 99 22 93 |(.(.F4(MA))):.".|
00001890: 22 00 A1 20 B2 07 81 20 50 52 B2 31 20 A4 20 4E |".. ... PR.1 . N|
000018A0: 53 00 C6 20 BC 07 51 51 B2 A5 46 31 28 4D 4D 29 |S.. ..QQ..F1(MM)|
000018B0: 3A 4C 4D B2 A5 46 32 28 4D 4D 29 3A 4D 41 B2 A5 |:LM..F2(MM):MA..|
000018C0: 46 33 28 51 51 29 00 D9 20 C6 07 54 50 24 B2 C4 |F3(QQ).. ..TP$..|
000018D0: 28 A5 46 34 28 4D 41 29 29 00 FA 20 D0 07 54 50 |(.F4(MA)).. ..TP|
000018E0: 24 B2 CA 28 54 50 24 2C 32 29 AA 22 20 22 AA CA |$..(TP$,2)." "..|
000018F0: 28 41 24 28 4D 41 29 2C 33 29 00 20 21 DA 07 43 |(A$(MA),3). !..C|
00001900: 44 24 B2 C8 28 43 50 24 2C 4C 52 AB 28 32 AC B5 |D$..(CP$,LR.(2..|
00001910: 28 4C 52 AD 32 29 AB 4C 52 B3 B1 30 29 AB 31 29 |(LR.2).LR..0).1)|
00001920: 00 39 21 E4 07 99 22 13 22 3B 43 44 24 3B 4F 24 |.9!...".";CD$;O$|
00001930: 3B 22 91 91 22 3B 54 50 24 00 52 21 EE 07 4D 4D |;"..";TP$.R!..MM|
00001940: B2 4D 4D AA 31 3A 4C 52 B2 4C 52 AA 32 3A 82 20 |.MM.1:LR.LR.2:. |
00001950: 50 52 00 6A 21 F8 07 4C 52 B2 4C 50 AA 32 AC 28 |PR.j!..LR.LP.2.(|
00001960: 4C 50 B2 4E 53 AC 32 AA 31 29 00 9E 21 02 08 41 |LP.NS.2.1)..!..A|
00001970: 43 B2 41 49 3A 41 49 B2 50 54 AA B5 28 28 4C 52 |C.AI:AI.PT..((LR|
00001980: AA 31 29 AD 32 29 AB 31 3A 8B 20 41 49 B2 41 43 |.1).2).1:. AI.AC|
00001990: 20 AF 20 54 46 B2 30 20 A7 20 32 30 39 30 00 C5 | . TF.0 . 2090..|
000019A0: 21 0C 08 51 51 B2 B5 28 28 41 49 AB 31 29 AD 31 |!..QQ..((AI.1).1|
000019B0: 32 35 29 3A 4C 4D B2 41 49 AB 31 32 35 AC 51 51 |25):LM.AI.125.QQ|
000019C0: 3A 54 46 B2 30 00 E3 21 16 08 4D 41 B2 A5 46 33 |:TF.0..!..MA..F3|
000019D0: 28 51 51 29 3A 54 50 24 B2 C4 28 A5 46 34 28 4D |(QQ):TP$..(.F4(M|
000019E0: 41 29 29 00 04 22 20 08 54 50 24 B2 CA 28 54 50 |A)).." .TP$..(TP|
000019F0: 24 2C 32 29 AA 22 20 22 AA CA 28 41 24 28 4D 41 |$,2)." "..(A$(MA|
00001A00: 29 2C 33 29 00 2A 22 2A 08 43 44 24 B2 C8 28 43 |),3).*"*.CD$..(C|
00001A10: 50 24 2C 4C 52 AB 28 32 AC B5 28 4C 52 AD 32 29 |P$,LR.(2..(LR.2)|
00001A20: AB 4C 52 B3 B1 30 29 AB 31 29 00 43 22 34 08 99 |.LR..0).1).C"4..|
00001A30: 22 13 22 3B 43 44 24 3B 4F 24 3B 22 91 91 22 3B |".";CD$;O$;"..";|
00001A40: 54 50 24 00 73 22 3E 08 43 48 B2 C2 28 A5 46 38 |TP$.s">.CH..(.F8|
00001A50: 28 50 29 29 3A 97 20 35 34 32 37 32 AA A5 46 38 |(P)):. 54272..F8|
00001A60: 28 50 29 2C 31 34 3A 97 20 A5 46 38 28 50 29 2C |(P),14:. .F8(P),|
00001A70: 31 36 30 00 93 22 48 08 81 20 4E 55 B2 31 20 A4 |160.."H.. NU.1 .|
00001A80: 20 35 3A 82 20 4E 55 3A 97 20 A5 46 38 28 50 29 | 5:. NU:. .F8(P)|
00001A90: 2C 43 48 00 AD 22 52 08 A1 20 53 43 24 3A 8B 20 |,CH.."R.. SC$:. |
00001AA0: 53 43 24 B2 22 22 20 A7 20 32 31 31 30 00 CA 22 |SC$."" . 2110.."|
00001AB0: 5C 08 8B 20 53 43 24 B2 C7 28 33 34 29 20 A7 20 |\.. SC$..(34) . |
00001AC0: 46 51 B2 AB 28 46 51 B2 30 29 00 E1 22 66 08 8B |FQ..(FQ.0).."f..|
00001AD0: 20 53 43 24 B2 C7 28 31 33 29 20 A7 20 32 34 34 | SC$..(13) . 244|
00001AE0: 30 00 F6 22 70 08 8B 20 53 43 24 B2 C7 28 31 34 |0.."p.. SC$..(14|
00001AF0: 31 29 20 A7 20 8E 00 11 23 7A 08 8B 20 53 43 24 |1) . ...#z.. SC$|
00001B00: B2 C7 28 31 39 29 20 AF 20 46 51 B2 30 20 A7 20 |..(19) . FQ.0 . |
00001B10: 8E 00 2D 23 84 08 8B 20 53 43 24 B2 C7 28 31 34 |..-#... SC$..(14|
00001B20: 37 29 20 AF 20 46 51 B2 30 20 A7 20 8E 00 45 23 |7) . FQ.0 . ..E#|
00001B30: 8E 08 8B 20 53 43 24 B2 C7 28 31 33 33 29 20 A7 |... SC$..(133) .|
00001B40: 20 32 34 30 30 00 5D 23 98 08 8B 20 53 43 24 B2 | 2400.]#... SC$.|
00001B50: C7 28 31 33 37 29 20 A7 20 32 34 32 30 00 80 23 |.(137) . 2420..#|
00001B60: A2 08 8B 20 53 43 24 B2 C7 28 31 33 34 29 20 A7 |... SC$..(134) .|
00001B70: 20 50 B2 30 3A 4C 52 B2 31 3A 89 20 32 30 35 30 | P.0:LR.1:. 2050|
00001B80: 00 A8 23 AC 08 8B 20 53 43 24 B2 C7 28 31 33 38 |..#... SC$..(138|
00001B90: 29 20 A7 20 50 B2 30 3A 4C 52 B2 4E 53 AC 32 AB |) . P.0:LR.NS.2.|
00001BA0: 31 3A 89 20 32 30 35 30 00 C6 23 B6 08 8B 20 53 |1:. 2050..#... S|
00001BB0: 43 24 B2 C7 28 31 33 35 29 20 A7 20 50 B2 30 3A |C$..(135) . P.0:|
00001BC0: 89 20 32 31 31 30 00 EB 23 C0 08 8B 20 53 43 24 |. 2110..#... SC$|
00001BD0: B2 C7 28 31 33 39 29 20 A7 20 50 B2 C3 28 54 50 |..(139) . P..(TP|
00001BE0: 24 29 AB 31 3A 89 20 32 31 31 30 00 00 24 CA 08 |$).1:. 2110..$..|
00001BF0: 8B 20 53 43 24 B2 C7 28 31 33 36 29 20 A7 20 8E |. SC$..(136) . .|
00001C00: 00 1F 24 D4 08 8B 20 53 43 24 B2 C7 28 31 34 30 |..$... SC$..(140|
00001C10: 29 20 A7 20 99 22 93 22 3A 89 20 31 38 35 30 00 |) . .".":. 1850.|
00001C20: 57 24 DE 08 8B 20 50 B1 30 20 AF 20 53 43 24 B2 |W$... P.0 . SC$.|
00001C30: C7 28 32 30 29 20 A7 20 54 50 24 B2 C8 28 54 50 |.(20) . TP$..(TP|
00001C40: 24 2C 50 AB 31 29 AA CA 28 54 50 24 2C 50 AA 31 |$,P.1)..(TP$,P.1|
00001C50: 29 3A 50 B2 50 AB 31 00 6E 24 E8 08 8B 20 53 43 |):P.P.1.n$... SC|
00001C60: 24 B2 C7 28 32 30 29 20 A7 20 32 30 35 30 00 A7 |$..(20) . 2050..|
00001C70: 24 F2 08 8B 20 53 43 24 B2 22 91 22 20 AF 20 50 |$... SC$."." . P|
00001C80: B3 B2 33 39 20 AF 20 46 51 B2 30 20 A7 20 4C 52 |..39 . FQ.0 . LR|
00001C90: B2 4C 52 AA 32 AC 28 4C 52 B1 31 29 3A 50 B2 30 |.LR.2.(LR.1):P.0|
00001CA0: 3A 89 20 32 30 35 30 00 D3 24 FC 08 8B 20 53 43 |:. 2050..$... SC|
00001CB0: 24 B2 22 91 22 20 AF 20 50 B1 33 39 20 AF 20 46 |$."." . P.39 . F|
00001CC0: 51 B2 30 20 A7 20 50 B2 50 AB 34 30 3A 89 20 32 |Q.0 . P.P.40:. 2|
00001CD0: 31 31 30 00 0A 25 06 09 8B 20 53 43 24 B2 22 11 |110..%... SC$.".|
00001CE0: 22 20 AF 20 50 B3 B2 33 39 20 AF 20 C3 28 54 50 |" . P..39 . .(TP|
00001CF0: 24 29 B1 34 30 20 AF 20 46 51 B2 30 20 A7 20 50 |$).40 . FQ.0 . P|
00001D00: B2 34 30 3A 89 20 32 31 31 30 00 40 25 10 09 8B |.40:. 2110.@%...|
00001D10: 20 53 43 24 B2 22 11 22 20 AF 20 46 51 B2 30 20 | SC$."." . FQ.0 |
00001D20: A7 20 4C 52 B2 4C 52 AB 32 AC 28 4C 52 B3 4E 53 |. LR.LR.2.(LR.NS|
00001D30: AC 32 AB 31 29 3A 50 B2 30 3A 89 20 32 30 35 30 |.2.1):P.0:. 2050|
00001D40: 00 57 25 1A 09 8B 20 C3 28 54 50 24 29 B2 38 30 |.W%... .(TP$).80|
00001D50: 20 A7 20 32 33 37 30 00 8D 25 24 09 8B 20 53 43 | . 2370..%$.. SC|
00001D60: 24 B2 C7 28 31 34 38 29 20 A7 20 54 50 24 B2 C8 |$..(148) . TP$..|
00001D70: 28 54 50 24 2C 50 29 AA 22 20 22 AA CA 28 54 50 |(TP$,P)." "..(TP|
00001D80: 24 2C 50 AA 31 29 3A 89 20 32 30 35 30 00 CA 25 |$,P.1):. 2050..%|
00001D90: 2E 09 8B 20 46 51 B2 31 20 A7 20 54 50 24 B2 C8 |... FQ.1 . TP$..|
00001DA0: 28 54 50 24 2C 50 29 AA 53 43 24 AA CA 28 54 50 |(TP$,P).SC$..(TP|
00001DB0: 24 2C 50 AA 32 29 3A 50 B2 50 AB 31 AC 28 50 B3 |$,P.2):P.P.1.(P.|
00001DC0: 37 39 29 3A 89 20 32 30 35 30 00 10 26 38 09 8B |79):. 2050..&8..|
00001DD0: 53 43 24 B3 B1 22 9D 22 AF 53 43 24 B3 B1 22 1D |SC$..".".SC$..".|
00001DE0: 22 A7 54 50 24 B2 C8 28 54 50 24 2C 50 29 AA 53 |".TP$..(TP$,P).S|
00001DF0: 43 24 AA CA 28 54 50 24 2C 50 AA 32 29 3A 50 B2 |C$..(TP$,P.2):P.|
00001E00: 50 AB 31 AC 28 50 B3 37 39 29 3A 89 32 30 35 30 |P.1.(P.79):.2050|
00001E10: 00 2C 26 42 09 8B 20 53 43 24 B2 22 9D 22 20 AF |.,&B.. SC$."." .|
00001E20: 20 50 B1 30 20 A7 20 50 B2 50 AB 31 00 4F 26 4C | P.0 . P.P.1.O&L|
00001E30: 09 8B 20 53 43 24 B2 22 1D 22 20 AF 20 50 B3 C3 |.. SC$."." . P..|
00001E40: 28 54 50 24 29 AB 31 20 A7 20 50 B2 50 AA 31 00 |(TP$).1 . P.P.1.|
00001E50: 5A 26 56 09 89 20 32 31 31 30 00 7F 26 60 09 4D |Z&V.. 2110..&`.M|
00001E60: 4D B2 50 54 AA 31 31 3A 8B 20 4D 4D B1 49 4D AB |M.PT.11:. MM.IM.|
00001E70: 56 41 20 A7 20 4D 4D B2 49 4D AB 56 41 AB 31 00 |VA . MM.IM.VA.1.|
00001E80: 8F 26 6A 09 54 48 B2 31 3A 89 20 31 38 35 30 00 |.&j.TH.1:. 1850.|
00001E90: AA 26 74 09 4D 4D B2 50 54 AB 31 31 3A 8B 20 4D |.&t.MM.PT.11:. M|
00001EA0: 4D B3 32 20 A7 20 4D 4D B2 32 00 BA 26 7E 09 54 |M.2 . MM.2..&~.T|
00001EB0: 43 B2 31 3A 89 20 31 38 35 30 00 D0 26 88 09 49 |C.1:. 1850..&..I|
00001EC0: 50 24 B2 C8 28 54 50 24 2C C3 28 54 50 24 29 29 |P$..(TP$,.(TP$))|
00001ED0: 00 FB 26 92 09 8D 20 35 30 30 3A 8B 20 4C 4E B3 |..&... 500:. LN.|
00001EE0: 31 20 B0 20 4C 4E B1 36 35 35 33 34 20 B0 20 4C |1 . LN.65534 . L|
00001EF0: 4E B2 AB 31 20 A7 20 32 34 39 30 00 17 27 9C 09 |N..1 . 2490..'..|
00001F00: 8D 20 35 35 30 3A 8B 20 C3 28 49 50 24 29 B2 30 |. 550:. .(IP$).0|
00001F10: 20 A7 20 32 34 38 30 00 28 27 A6 09 8D 20 35 38 | . 2480.('... 58|
00001F20: 30 3A 89 20 32 34 39 30 00 43 27 B0 09 8D 20 37 |0:. 2490.C'... 7|
00001F30: 35 30 3A 8B 20 A8 20 45 52 52 20 A7 20 8D 20 31 |50:. . ERR . . 1|
00001F40: 31 39 30 00 73 27 BA 09 54 46 B2 31 3A 50 B2 30 |190.s'..TF.1:P.0|
00001F50: 3A 4C 50 B2 4C 52 3A 4C 4E B2 4C 54 3A 4C 52 B2 |:LP.LR:LN.LT:LR.|
00001F60: 31 3A 4E 53 B2 31 31 3A 46 51 B2 30 3A 89 20 31 |1:NS.11:FQ.0:. 1|
00001F70: 38 38 30 00 8E 27 C4 09 8F 20 2A 2A 2A 53 45 41 |880..'... ***SEA|
00001F80: 52 43 48 20 52 4F 55 54 49 4E 45 2A 2A 2A 00 C0 |RCH ROUTINE***..|
00001F90: 27 CE 09 85 22 49 4E 50 55 54 20 53 45 41 52 43 |'..."INPUT SEARC|
00001FA0: 48 20 53 54 52 49 4E 47 20 3D 20 22 3B 54 47 24 |H STRING = ";TG$|
00001FB0: 3A 8D 20 39 33 30 3A 8B 20 45 52 52 20 A7 20 8E |:. 930:. ERR . .|
00001FC0: 00 DE 27 D8 09 8D 20 31 30 34 30 3A 8B 20 46 4D |..'... 1040:. FM|
00001FD0: B3 53 4D 20 B0 20 46 4D B2 30 20 A7 20 8E 00 E9 |.SM . FM.0 . ...|
00001FE0: 27 E2 09 89 20 32 38 32 30 00 10 28 EC 09 99 22 |'... 2820..(..."|
00001FF0: 93 4C 49 4E 45 53 20 46 4F 55 4E 44 3D 20 20 20 |.LINES FOUND= |
00002000: 20 4C 49 4E 45 53 20 53 43 41 4E 4E 45 44 3D 22 | LINES SCANNED="|
00002010: 00 46 28 F6 09 4B B2 30 3A 81 20 4D 4D B2 53 4D |.F(..K.0:. MM.SM|
00002020: 20 A4 20 46 4D 3A 51 51 B2 A5 46 31 28 4D 4D 29 | . FM:QQ..F1(MM)|
00002030: 3A 4C 4D B2 A5 46 32 28 4D 4D 29 3A 4D 41 B2 A5 |:LM..F2(MM):MA..|
00002040: 46 33 28 51 51 29 00 65 28 00 0A 81 20 49 B2 31 |F3(QQ).e(... I.1|
00002050: 20 A4 20 C3 28 41 24 28 4D 41 29 29 AB C3 28 54 | . .(A$(MA))..(T|
00002060: 47 24 29 AA 31 00 9A 28 0A 0A 8B 20 CA 28 41 24 |G$).1..(... .(A$|
00002070: 28 4D 41 29 2C 49 2C C3 28 54 47 24 29 29 B2 54 |(MA),I,.(TG$)).T|
00002080: 47 24 20 A7 20 4B B2 4B AA 31 3A 46 53 28 4B 29 |G$ . K.K.1:FS(K)|
00002090: B2 4D 41 3A 89 20 32 35 39 30 00 A2 28 14 0A 82 |.MA:. 2590..(...|
000020A0: 20 49 00 E0 28 1E 0A 8B 20 4B B1 34 39 20 A7 20 | I..(... K.49 . |
000020B0: 99 22 13 11 11 53 45 41 52 43 48 20 54 45 52 4D |."...SEARCH TERM|
000020C0: 49 4E 41 54 49 4E 47 2D 41 52 52 41 59 20 46 53 |INATING-ARRAY FS|
000020D0: 28 4B 29 20 46 55 4C 4C 22 3A 89 20 32 36 32 30 |(K) FULL":. 2620|
000020E0: 00 18 29 28 0A 99 22 13 1D 1D 1D 1D 1D 1D 1D 1D |..)(..".........|
000020F0: 1D 1D 1D 1D 22 3B 4B 3B 22 1D 1D 1D 1D 1D 1D 1D |....";K;".......|
00002100: 1D 1D 1D 1D 1D 1D 1D 1D 22 3B 4D 4D AB 53 4D AA |........";MM.SM.|
00002110: 31 3A 82 20 4D 4D 3A 99 00 36 29 32 0A 8F 20 2A |1:. MM:..6)2.. *|
00002120: 2A 2A 4C 49 53 54 20 53 45 41 52 43 48 20 4C 49 |**LIST SEARCH LI|
00002130: 4E 45 53 2A 2A 2A 00 47 29 3C 0A 8B 20 4B B2 30 |NES***.G)<.. K.0|
00002140: 20 A7 20 32 36 36 30 00 85 29 46 0A 81 20 49 B2 | . 2660..)F.. I.|
00002150: 31 A4 4B 3A 4D 41 B2 46 53 28 49 29 3A 54 50 24 |1.K:MA.FS(I):TP$|
00002160: B2 C4 28 A5 46 34 28 4D 41 29 29 3A 99 CA 28 54 |..(.F4(MA)):..(T|
00002170: 50 24 2C 32 29 3B 22 20 22 3B CA 28 41 24 28 4D |P$,2);" ";.(A$(M|
00002180: 41 29 2C 33 29 00 A8 29 50 0A 8B 20 C2 28 31 35 |A),3)..)P.. .(15|
00002190: 32 29 B2 30 20 A7 20 92 20 31 39 38 2C 31 2C 31 |2).0 . . 198,1,1|
000021A0: 3A 97 20 31 39 38 2C 30 00 B0 29 5A 0A 82 20 49 |:. 198,0..)Z.. I|
000021B0: 00 BA 29 64 0A 89 20 38 39 30 00 D5 29 6E 0A 8F |..)d.. 890..)n..|
000021C0: 20 2A 2A 2A 4C 49 53 54 20 44 49 52 45 43 54 4F | ***LIST DIRECTO|
000021D0: 52 59 2A 2A 2A 00 F5 29 78 0A 99 22 93 22 3A 9F |RY***..)x..".":.|
000021E0: 20 31 2C 38 2C 30 2C 22 24 30 22 3A A1 23 31 2C | 1,8,0,"$0":.#1,|
000021F0: 42 24 2C 44 24 00 11 2A 82 0A A1 23 31 2C 42 24 |B$,D$..*...#1,B$|
00002200: 2C 44 24 3A A1 23 31 2C 42 24 2C 44 24 3A 42 B2 |,D$:.#1,B$,D$:B.|
00002210: 30 00 28 2A 8C 0A 8B 20 42 24 B3 B1 22 22 20 A7 |0.(*... B$.."" .|
00002220: 20 42 B2 C6 28 42 24 29 00 45 2A 96 0A 8B 20 44 | B..(B$).E*... D|
00002230: 24 B3 B1 22 22 20 A7 20 42 B2 42 AA C6 28 44 24 |$.."" . B.B..(D$|
00002240: 29 AC 32 35 36 00 60 2A A0 0A 99 22 12 22 CA 28 |).256.`*...".".(|
00002250: C4 28 42 29 2C 32 29 3B A3 35 29 3B 22 92 22 3B |.(B),2);.5);".";|
00002260: 00 7A 2A AA 0A A1 23 31 2C 44 24 3A 8B 20 53 54 |.z*...#1,D$:. ST|
00002270: B3 B1 30 20 A7 20 32 38 31 30 00 91 2A B4 0A 8B |..0 . 2810..*...|
00002280: 20 44 24 B3 B1 C7 28 33 34 29 20 A7 20 32 37 33 | D$...(34) . 273|
00002290: 30 00 B7 2A BE 0A A1 23 31 2C 44 24 3A 8B 20 44 |0..*...#1,D$:. D|
000022A0: 24 20 B3 B1 C7 28 33 34 29 20 A7 20 99 44 24 3B |$ ...(34) . .D$;|
000022B0: 3A 89 20 32 37 35 30 00 D4 2A C8 0A A1 23 31 2C |:. 2750..*...#1,|
000022C0: 44 24 3A 8B 20 44 24 B2 C7 28 33 32 29 20 A7 20 |D$:. D$..(32) . |
000022D0: 32 37 36 30 00 E6 2A D2 0A 99 20 A3 31 38 29 3B |2760..*... .18);|
000022E0: 3A 43 24 B2 22 22 00 0A 2B DC 0A 43 24 B2 43 24 |:C$.""..+..C$.C$|
000022F0: AA 44 24 3A A1 23 31 2C 44 24 3A 8B 20 44 24 B3 |.D$:.#1,D$:. D$.|
00002300: B1 22 22 20 A7 20 32 37 38 30 00 1E 2B E6 0A 99 |."" . 2780..+...|
00002310: A3 32 32 29 22 12 22 C8 28 43 24 2C 33 29 00 30 |.22)".".(C$,3).0|
00002320: 2B F0 0A 8B 20 53 54 B2 30 20 A7 20 32 36 39 30 |+... ST.0 . 2690|
00002330: 00 4D 2B FA 0A 99 22 42 4C 4F 43 4B 53 20 46 52 |.M+..."BLOCKS FR|
00002340: 45 45 22 3A A0 20 31 3A 89 20 38 39 30 00 6E 2B |EE":. 1:. 890.n+|
00002350: 04 0B 8F 20 2A 2A 2A 43 4F 4E 46 49 52 4D 41 54 |... ***CONFIRMAT|
00002360: 49 4F 4E 20 52 4F 55 54 49 4E 45 2A 2A 2A 00 95 |ION ROUTINE***..|
00002370: 2B 0E 0B 85 22 49 53 20 41 42 4F 56 45 20 43 4F |+..."IS ABOVE CO|
00002380: 52 52 45 43 54 20 28 59 2F 4E 29 20 20 59 9D 9D |RRECT (Y/N) Y..|
00002390: 9D 22 3B 54 24 00 DD 2B 18 0B 8B 54 24 B2 22 59 |.";T$..+...T$."Y|
000023A0: 22 A7 20 91 43 4D 89 20 32 38 37 30 2C 32 38 37 |". .CM. 2870,287|
000023B0: 30 2C 31 33 39 30 2C 32 38 37 30 2C 38 35 30 2C |0,1390,2870,850,|
000023C0: 31 31 35 30 2C 32 38 37 30 2C 31 33 31 30 2C 31 |1150,2870,1310,1|
000023D0: 35 39 30 2C 32 38 37 30 2C 32 35 34 30 00 22 2C |590,2870,2540.",|
000023E0: 22 0B 8B 54 24 B2 22 4E 22 A7 20 91 43 4D 89 20 |"..T$."N". .CM. |
000023F0: 37 30 2C 37 30 2C 32 38 38 30 2C 32 38 38 30 2C |70,70,2880,2880,|
00002400: 32 38 38 30 2C 32 38 38 30 2C 32 38 38 30 2C 32 |2880,2880,2880,2|
00002410: 38 38 30 2C 32 38 38 30 2C 32 38 38 30 2C 32 38 |880,2880,2880,28|
00002420: 38 30 00 2D 2C 2C 0B 89 20 32 38 33 30 00 35 2C |80.-,,.. 2830.5,|
00002430: 36 0B 9C 3A 80 00 3B 2C 40 0B 8E 00 56 2C 4A 0B |6..:..;,@...V,J.|
00002440: 8F 20 2A 2A 2A 49 4E 50 55 54 40 20 52 4F 55 54 |. ***INPUT@ ROUT|
00002450: 49 4E 45 2A 2A 2A 00 6B 2C 54 0B 41 44 B2 34 39 |INE***.k,T.AD.49|
00002460: 31 35 32 3A 4C 4E B2 32 39 36 30 00 9F 2C 5E 0B |152:LN.2960..,^.|
00002470: 87 20 56 4C 3A 8B 20 56 4C B3 32 35 36 20 A7 20 |. VL:. VL.256 . |
00002480: 97 20 41 44 2C 56 4C 3A 53 55 B2 53 55 AA 56 4C |. AD,VL:SU.SU.VL|
00002490: 3A 41 44 B2 41 44 AA 31 3A 89 20 32 39 31 30 00 |:AD.AD.1:. 2910.|
000024A0: C2 2C 68 0B 8B 20 53 55 B2 56 4C 20 A7 20 53 55 |.,h.. SU.VL . SU|
000024B0: B2 30 3A 4C 4E B2 4C 4E AA 31 30 3A 89 20 32 39 |.0:LN.LN.10:. 29|
000024C0: 31 30 00 D6 2C 72 0B 8B 20 56 4C B2 39 39 39 20 |10..,r.. VL.999 |
000024D0: A7 20 32 39 35 30 00 F8 2C 7C 0B 99 22 93 11 11 |. 2950..,|.."...|
000024E0: 44 41 54 41 20 45 52 52 4F 52 20 49 4E 20 4C 49 |DATA ERROR IN LI|
000024F0: 4E 45 22 3B 4C 4E 3A 90 00 06 2D 86 0B 9E 20 34 |NE";LN:...-... 4|
00002500: 39 31 35 32 3A 8E 00 2B 2D 90 0B 83 20 31 36 39 |9152:..+-... 169|
00002510: 2C 31 31 2C 31 36 30 2C 31 39 32 2C 31 34 31 2C |,11,160,192,141,|
00002520: 38 2C 33 2C 31 34 30 2C 38 32 34 00 4D 2D 9A 0B |8,3,140,824.M-..|
00002530: 83 20 39 2C 33 2C 39 36 2C 33 32 2C 31 31 35 2C |. 9,3,96,32,115,|
00002540: 30 2C 32 30 31 2C 31 33 33 2C 35 38 39 00 71 2D |0,201,133,589.q-|
00002550: A4 0B 83 20 32 34 30 2C 36 2C 33 32 2C 31 32 31 |... 240,6,32,121|
00002560: 2C 30 2C 37 36 2C 32 33 31 2C 31 36 37 2C 38 37 |,0,76,231,167,87|
00002570: 33 00 94 2D AE 0B 83 20 33 32 2C 31 31 35 2C 30 |3..-... 32,115,0|
00002580: 2C 32 30 31 2C 36 34 2C 32 34 30 2C 36 2C 33 32 |,201,64,240,6,32|
00002590: 2C 36 39 30 00 BD 2D B8 0B 83 20 31 39 31 2C 31 |,690..-... 191,1|
000025A0: 37 31 2C 37 36 2C 31 37 34 2C 31 36 37 2C 33 32 |71,76,174,167,32|
000025B0: 2C 31 35 35 2C 31 38 33 2C 31 31 34 39 00 E2 2D |,155,183,1149..-|
000025C0: C2 0B 83 20 33 32 2C 33 30 2C 32 32 35 2C 33 32 |... 32,30,225,32|
000025D0: 2C 32 35 33 2C 31 37 34 2C 31 36 30 2C 30 2C 39 |,253,174,160,0,9|
000025E0: 30 36 00 09 2E CC 0B 83 20 33 32 2C 31 38 33 2C |06...... 32,183,|
000025F0: 32 35 35 2C 34 31 2C 31 30 30 2C 32 30 38 2C 32 |255,41,100,208,2|
00002600: 30 2C 31 33 32 2C 39 37 31 00 32 2E D6 0B 83 20 |0,132,971.2.... |
00002610: 32 35 32 2C 33 32 2C 31 38 2C 32 32 35 2C 31 36 |252,32,18,225,16|
00002620: 34 2C 32 35 32 2C 31 35 33 2C 31 36 30 2C 31 32 |4,252,153,160,12|
00002630: 35 36 00 5C 2E E0 0B 83 20 31 39 32 2C 32 30 30 |56.\.... 192,200|
00002640: 2C 32 30 31 2C 31 33 2C 32 30 38 2C 32 33 34 2C |,201,13,208,234,|
00002650: 31 33 36 2C 31 39 32 2C 31 33 37 36 00 84 2E EA |136,192,1376....|
00002660: 0B 83 20 30 2C 32 34 30 2C 32 32 37 2C 31 33 32 |.. 0,240,227,132|
00002670: 2C 32 35 31 2C 33 32 2C 31 33 39 2C 31 37 36 2C |,251,32,139,176,|
00002680: 31 31 39 37 00 AB 2E F4 0B 83 20 31 33 33 2C 37 |1197...... 133,7|
00002690: 33 2C 31 33 32 2C 37 34 2C 33 32 2C 31 36 33 2C |3,132,74,32,163,|
000026A0: 31 38 32 2C 31 36 35 2C 39 35 34 00 D2 2E FE 0B |182,165,954.....|
000026B0: 83 20 32 35 31 2C 33 32 2C 31 31 37 2C 31 38 30 |. 251,32,117,180|
000026C0: 2C 31 36 30 2C 32 2C 31 38 35 2C 39 37 2C 31 30 |,160,2,185,97,10|
000026D0: 32 34 00 F9 2E 08 0C 83 20 30 2C 31 34 35 2C 37 |24...... 0,145,7|
000026E0: 33 2C 31 33 36 2C 31 36 2C 32 34 38 2C 31 36 34 |3,136,16,248,164|
000026F0: 2C 32 35 31 2C 31 30 33 33 00 20 2F 12 0C 83 20 |,251,1033. /... |
00002700: 31 39 32 2C 30 2C 32 34 30 2C 39 2C 31 33 36 2C |192,0,240,9,136,|
00002710: 31 38 35 2C 31 36 30 2C 31 39 32 2C 31 31 31 34 |185,160,192,1114|
00002720: 00 48 2F 1C 0C 83 20 31 34 35 2C 39 38 2C 31 33 |.H/... 145,98,13|
00002730: 36 2C 31 36 2C 32 34 38 2C 33 32 2C 32 30 34 2C |6,16,248,32,204,|
00002740: 32 35 35 2C 31 31 33 34 00 61 2F 26 0C 83 20 37 |255,1134.a/&.. 7|
00002750: 36 2C 31 37 34 2C 31 36 37 2C 34 31 37 2C 39 39 |6,174,167,417,99|
00002760: 39 00 00 00 FF |9.... |
..$.... ****************************.G..
.. ** BASIC EDITOR VER1.0 **.J.... **
BY P.F.HAYES (C) 1988 **...(.. *******
*********************.N.2.."............
.........INITIALISING PROGRAM":. 2900:.:
. 1720.Y.<.. 1770...F.."..**************
BASIC EDITOR**************.".-.P.."
1) EXIT FROM EDITOR".S.Z.." 2) RE-
INITIALISE PROGRAM".M.D.." 3) LOAD
FILE"...N.." 4) INPUT LINE(S)"...X.
." 5) LIST LINE(S)".G...." 6)
DELETE LINE(S)"......" 7) EDIT FILE
"......" 8) MERGE/APPEND FILE".%. .
." 9) SAVE FILE LINE(S)".J...."
10) CHANGE DEVICE NUMBER".L...." 11
) SEARCH FOR STRING"......" 12) DIRE
CTORY."...H.."COMMAND (1-12) = ";CM...R.
. CM.1 . . 2820...... CM.2 . CM.3 . ."ER
ASES CURRENT FILE:CONTINUE (Y/N) N..."
;T$.!.... CM.2 . T$."Y" . .:. 1720:. 177
0.S.... CM.3 . T$."Y" . .:CM.3:. 1720:.
1770:. 1360...... CM.3 . . CM.3 . 280,83
0,1130,1850,1280,1480,1680,2510,2680....
.. 70...... ***INPUT BASIC LINE(S)***...
..."AUTO LINE NUMBERING (Y/N) N...";T$
...".. T$."Y" . 400...,..".":. 2,0.(.6..
@2,IP$:. IP$.G(95) . 370.H.@.. C(IP$).80
. IP$.H(IP$,80).`.J.. 500:. LN..1 . 370
...T.. LN.1 . LN.65534 . ."INVALID LINE
NUMBER:RE-ENTER":. 310...^.. 550:. C(IP$
).0 . 380.U.H.. 580:. . ERR . .:. 310...
R. 2:....|.. 750:. . ERR . . 1190......
:. 310.D...."START LINE NUMBER = ";BL:."
LINE NUMBER INCREMENT = ";IL.X....".":.
2,0:SI.0.....AL$.J(D(BL.SI),2):.AL$;" ";
:.@2,IP$:. IP$.G(95) . 480.....IP$.AL$.I
P$:. C(IP$).80 . IP$.H(IP$,80).V.... 500
:. LN..1 . 480...B.. LN.1 . LN.65534 . .
"INVALID LINE NUMBER:RE-ENTER":. 420.3.L
.. 550:. C(IP$).0 . .:. 420.X.V.. 580:.
. ERR . SI.SI.IL:.:. 420.B... 2:.......
***EXTRACT LINE NUMBER***.....LN..1:. C
(IP$).0 . IP$."0" . H(IP$,1)."9" . 530..
.... T.1 . C(IP$):. J(IP$,T,1).."9" . J(
IP$,T,1).."0" . . T.....LN.E(H(IP$,T.1))
:IP$.J(IP$,T).......9.... ***EXTRACT LIN
E TEXT***.C.&.. T.1 . C(IP$):. J(IP$,T,1
)." " . . T.V.0.IP$.J(IP$,T):....:.. ***
INSERT LINE IN FILE ARRAY***...D.. LN.1
. LN.65534 . 720.B.N.. 750.L.X.TT.IM...B
.. . ERR . TT.MA:. 660...L.. C(EM$).0 .
640.'.V.TT..E1(TT):EM$.J(EM$,3):IM.IM.1:
VA.VA.1.M...KK$.G(TT.256).G(TT.256..(TT.
256)).....MR$(QQ).H(MR$(QQ),2.LM.2).KK$.
J(MR$(QQ),2.LM.1).....T1..E2(LN):A$(TT).
G(LN.T1.256).G(T1).IP$...... . ERR . 730
...... I.0 . 6:. C(MR$(I))..250 . 710...
..MR$(I.1).I(MR$(I),2).MR$(I.1).=...MR$(
I).H(MR$(I),C(MR$(I)).2):. B(152)..0 . T
..(0).M.F.. I:IM.IM.1.[.P.ERR.FALSE.A.Z.
....... ***FIND LINE NUMBER IN FILE ARRA
Y***.B...TT.IM.VA:PW..F5(TT):MM..F6(PW):
. BV.PW.1 . 0 . .1.....QQ..F1(MM):LM..F2
(MM):MA..F3(QQ):T1..F4(MA):MM..F7(MM)...
... MM.TT.1 . MM.TT.1...... BV.]...QQ..F
1(MM):LM..F2(MM):MA..F3(QQ):T1..F4(MA):.
T1..LN . 810.O. .MM.MM.1:. 790...*.ERR.
.(T1.LN):....4.. ***LIST LINES***...>..
930:. ERR . 910...H.. 2820...R..".":. 10
40:. FM.SM . FM.0 . 910...\.. DEV.4 . .
2,DEV:. 2.7.F.. MM.SM . FM:QQ..F1(MM):LM
..F2(MM):MA..F3(QQ):. 1090:. MM.S.P.. DE
V.4 . .2: 2:. 1680...Z.. B(152).0 . .".
........< RETURN FOR MAIN MENU >"......
B(152).0 . .T$:. T$."" . 900.......V....
***INPUT LINE NUMBER RANGE***......"ENT
ER LINE NUMBER RANGE (EG 100-500)".,...I
P$."":."FIRST LINE-LAST LINE = ";IP$.H..
.SL.1:FL.65534:ERR.FALSE.^.... C(IP$).0
. 1020.~.J.. 500:. LN..0 . SL.LN:. 990..
.T.. LN..1 . FL..LN:. 1020...... 550:. C
(IP$).0 . FL.SL:. 1020.U...IP$.J(IP$,2):
. 550...... C(IP$).0 . . 500:FL.LN.$...E
RR.SL.1 . SL.65534 . FL.1 . FL.65534 . E
RR:..J.... ***LINE NUMBER RANGE MARKERS*
**.`...LN.SL:. 750:SM.MM.V...LN.FL:. 750
:FM.MM...$.. ERR . FM.FM.1.........8.. *
**LIST LINES MARKED BY MA***...B.TP$.D(.
F4(MA)):.J(TP$,2);" ";J(A$(MA),3)...L..
B(152).0 . . 198,1,1:. 198,0...V...%.`..
***DELETE LINE(S)***.<.J.. 930:. ERR .
1170.G.T.. 2820.A.~.. 1040:. FM.SM . 117
0...... MM.FM.SM . .1:QQ..F1(MM):LM..F2(
MM):MA..F3(QQ):. 1190:.MM.......L.... **
*DELETE LINE MARKED BY MA***.....MR$(QQ)
.H(MR$(QQ),2.LM.2).J(MR$(QQ),2.LM.1)....
.. I.0 . 6.6.... C(MR$(I))..250 . C(MR$(
I.1)).0 . 1230.M.D.MR$(I).MR$(I).H(MR$(I
.1),2):MR$(I.1).J(MR$(I.1),3)...N.. I:VA
.VA.1:A$(MA).""...X.. C(EM$).250 . 1260.
I...EM$.G(MA.256).G(MA.256..(MA.256)).EM
$.O.......... ***MERGE FILE FROM DEVICE*
**...... 1630:. DEV.8 . TN$.TN$.",S,R".0
.... DEV..1 . DEV..8 . ..;.... 2820.M...
. 2,DEV,0,TN$.S.(..@2,IP$:. 500:. LN..1
. ST . 1340...2.. 550:. 580:. 1320...<.
2:....F.. ***LOAD FILE FROM DEVICE***.Z
.P.. 1630:. DEV.8 . TN$.TN$.",S,R"...Z..
DEV..1 . DEV..8 . ....D.. 2820...N.. 2,
DEV,0,TN$.7.X..@2,IP$:. 500:. LN..1 . ST
. 1460.G.... 550:. 580.M....@2,IP$:. 50
0:. LN..1 . ST . 1460...... 550:MM.MM.1:
QQ..F1(MM):LM..F2(MM)... .. LN.1 . LN.65
534 . 1420.J...ERR..1:. 600:. 1420.T...
2:....... ***SAVE FILE TO DEVICE***...H
.. 1630:. 930:. DEV..1 . DEV..8 . 1610.T
.R.. ERR . ."INVALID LINES:RE-ENTER COMM
ANDS":. 1480.Z.... 1040:ERR.(FL.SL):. ER
R . . 1490...... DEV..8 . 1580......"ENT
ER FILE OPERATION :"......".C.REATE,.O.V
ERWRITE,.A.PPEND (C/O/A) ";T$...... T$."
C" . TN$.TN$.",S,W":. 1580.-.... T$."O"
. TN$."@0:".TN$.",S,W":. 1580.R.... T$."
A" . TN$.TN$.",S,A":. 1580.].".. 1510.H.
,.. 2820...6.. 2,DEV,2,TN$:. 2:. 870...@
..2: 2...J.....T.. ***INPUT FILE NAME**
*.R.^.TN$."":. 1680:. DEV.4 . 1660...H..
"FILE NAME = ";TN$:LT.C(TN$).&.R.. LT.16
. LT.1 . .".FILE NAME INVALID":. 1640.,
.|...M.... ***CHANGE DEVICE NUMBER***.N.
..."(PRINTER=4:DISC=8:TAPE=1)".}.... .21
) DEV. ....".NEW DEVICE NUMBER = ";DEV:.
.R.... ***INITIALISE PROGRAM & DEFINE FU
NCTIONS***...... MR$(7),A$(300),FS(50):I
M.2:VA.0...B.MR$(0).G(0).G(0).G(0).G(1).
?.L.A$(0).G(0).G(0):A$(1).G(255).G(255).
`.V.CP$."......................".....O$.
"
":O$.O$.O$:..M.... .F1(MM)..((MM.1).125
):. .F2(MM).MM.125.QQ...... .F3(QQ).256.
F(J(MR$(QQ),2.LM.1)).F(J(MR$(QQ),2.LM)).
;.... .F4(MA).F(J(A$(MA),1,1)).256.F(J(A
$(MA),2,1)).Z.... .F5(TT)..(.(TT)..69314
7)...... .F6(PW).2.PW:. .F7(MM).MM.2.BV.
((LN.T1).(LN.T1)).L.... .F8(P).1024.LR.4
0.P:. .E1(TT).256.F(EM$).F(J(EM$,2))...&
.. .E2(LN)..(LN.256):....0.. ***EDIT FIL
E***.?.:.P.0:LR.1:LP.1:AI.0:TF.0:NS.11:T
P$."":FQ.0:. TH.1 . TH.0:. 1930.X.D.. TC
.1 . TC.0:. 1930...N.."EDIT FROM LINENUM
BER = ";LN:LT.LN...X.. 750:. ERR . TF.0
. LN.1 . LN.65534 . 1900...B.. 1930...L.
."INVALID LINE:.R.E-ENTER OR .E.XIT";T$.
..V.. T$."E" . ... ... 1870.# ... NS.IM.
MM.VA . NS.IM.MM.VA.A ... NS.0 . (IM.VA)
.2 . 2420.P ... NS.0 . ... ..PT.MM:QQ..F
1(MM):LM..F2(MM):MA..F3(QQ):LT.E(D(.F4(M
A))):.".".. ... PR.1 . NS.F ..QQ..F1(MM)
:LM..F2(MM):MA..F3(QQ).Y F.TP$.D(.F4(MA)
).. P.TP$.J(TP$,2)." ".J(A$(MA),3). !Z.C
D$.H(CP$,LR.(2..(LR.2).LR..0).1).9!...".
";CD$;O$;"..";TP$.R!..MM.MM.1:LR.LR.2:.
PR.J!..LR.LP.2.(LP.NS.2.1)..!..AC.AI:AI.
PT..((LR.1).2).1:. AI.AC . TF.0 . 2090.E
!..QQ..((AI.1).125):LM.AI.125.QQ:TF.0..!
..MA..F3(QQ):TP$.D(.F4(MA)).." .TP$.J(TP
$,2)." ".J(A$(MA),3).*"*.CD$.H(CP$,LR.(2
..(LR.2).LR..0).1).C"4..".";CD$;O$;"..";
TP$.S">.CH.B(.F8(P)):. 54272..F8(P),14:.
.F8(P),160.."H.. NU.1 . 5:. NU:. .F8(P)
,CH.."R.. SC$:. SC$."" . 2110.J"\.. SC$.
G(34) . FQ..(FQ.0).."F.. SC$.G(13) . 244
0.."P.. SC$.G(141) . ...#Z.. SC$.G(19) .
FQ.0 . ..-#... SC$.G(147) . FQ.0 . ..E#
... SC$.G(133) . 2400.]#... SC$.G(137) .
2420..#... SC$.G(134) . P.0:LR.1:. 2050
..#... SC$.G(138) . P.0:LR.NS.2.1:. 2050
.F#... SC$.G(135) . P.0:. 2110..#... SC$
.G(139) . P.C(TP$).1:. 2110..$J.. SC$.G(
136) . ...$T.. SC$.G(140) . .".":. 1850.
W$... P.0 . SC$.G(20) . TP$.H(TP$,P.1).J
(TP$,P.1):P.P.1.N$... SC$.G(20) . 2050..
$... SC$."." . P..39 . FQ.0 . LR.LR.2.(L
R.1):P.0:. 2050.S$... SC$."." . P.39 . F
Q.0 . P.P.40:. 2110..%... SC$."." . P..3
9 . C(TP$).40 . FQ.0 . P.40:. 2110.@%...
SC$."." . FQ.0 . LR.LR.2.(LR.NS.2.1):P.
0:. 2050.W%... C(TP$).80 . 2370..%$.. SC
$.G(148) . TP$.H(TP$,P)." ".J(TP$,P.1):.
2050.J%... FQ.1 . TP$.H(TP$,P).SC$.J(TP
$,P.2):P.P.1.(P.79):. 2050..&8..SC$.."."
.SC$..".".TP$.H(TP$,P).SC$.J(TP$,P.2):P.
P.1.(P.79):.2050.,&B.. SC$."." . P.0 . P
.P.1.O&L.. SC$."." . P.C(TP$).1 . P.P.1.
Z&V.. 2110.&`.MM.PT.11:. MM.IM.VA . MM.
IM.VA.1..&J.TH.1:. 1850..&T.MM.PT.11:. M
M.2 . MM.2..&~.TC.1:. 1850.P&..IP$.H(TP$
,C(TP$))..&... 500:. LN.1 . LN.65534 . L
N..1 . 2490..'... 550:. C(IP$).0 . 2480.
('... 580:. 2490.C'... 750:. . ERR . . 1
190.S'..TF.1:P.0:LP.LR:LN.LT:LR.1:NS.11:
FQ.0:. 1880..'D.. ***SEARCH ROUTINE***..
'N.."INPUT SEARCH STRING = ";TG$:. 930:.
ERR . ...'X.. 1040:. FM.SM . FM.0 . ...
'... 2820..(...".LINES FOUND= LINES S
CANNED=".F(..K.0:. MM.SM . FM:QQ..F1(MM)
:LM..F2(MM):MA..F3(QQ).E(... I.1 . C(A$(
MA)).C(TG$).1..(... J(A$(MA),I,C(TG$)).T
G$ . K.K.1:FS(K).MA:. 2590..(... I..(...
K.49 . ."...SEARCH TERMINATING-ARRAY FS
(K) FULL":. 2620..)(..".............";K;
"...............";MM.SM.1:. MM:..6)2.. *
**LIST SEARCH LINES***.G)<.. K.0 . 2660.
.)F.. I.1.K:MA.FS(I):TP$.D(.F4(MA)):.J(T
P$,2);" ";J(A$(MA),3)..)P.. B(152).0 . .
198,1,1:. 198,0..)Z.. I..)D.. 890.U)N..
***LIST DIRECTORY***..)X..".":. 1,8,0,"
$0":.#1,B$,D$..*...#1,B$,D$:.#1,B$,D$:B.
0.(*... B$.."" . B.F(B$).E*... D$.."" .
B.B.F(D$).256.`* .."."J(D(B),2);.5);".";
.Z*...#1,D$:. ST..0 . 2810..*... D$..G(3
4) . 2730..*...#1,D$:. D$ ..G(34) . .D$;
:. 2750.T*H..#1,D$:. D$.G(32) . 2760..*R
.. .18);:C$.""..+..C$.C$.D$:.#1,D$:. D$.
."" . 2780..+....22)"."H(C$,3).0+... ST.
0 . 2690.M+..."BLOCKS FREE": 1:. 890.N+
... ***CONFIRMATION ROUTINE***..+..."IS
ABOVE CORRECT (Y/N) Y...";T$..+...T$."Y
". .CM. 2870,2870,1390,2870,850,1150,287
0,1310,1590,2870,2540.","..T$."N". .CM.
70,70,2880,2880,2880,2880,2880,2880,2880
,2880,2880.-,,.. 2830.5,6..:..;,@...V,J.
. ***INPUT@ ROUTINE***.K,T.AD.49152:LN.2
960..,^.. VL:. VL.256 . . AD,VL:SU.SU.VL
:AD.AD.1:. 2910.B,H.. SU.VL . SU.0:LN.LN
.10:. 2910.V,R.. VL.999 . 2950..,|.."...
DATA ERROR IN LINE";LN:...-... 49152:..+
-... 169,11,160,192,141,8,3,140,824.M-..
. 9,3,96,32,115,0,201,133,589.Q-... 240,
6,32,121,0,76,231,167,873..-... 32,115,0
,201,64,240,6,32,690..-... 191,171,76,17
4,167,32,155,183,1149..-B.. 32,30,225,32
,253,174,160,0,906...L.. 32,183,255,41,1
00,208,20,132,971.2.V.. 252,32,18,225,16
4,252,153,160,1256.\.... 192,200,201,13,
208,234,136,192,1376...... 0,240,227,132
,251,32,139,176,1197...... 133,73,132,74
,32,163,182,165,954.R.... 251,32,117,180
,160,2,185,97,1024...... 0,145,73,136,16
,248,164,251,1033. /... 192,0,240,9,136,
185,160,192,1114.H/... 145,98,136,16,248
,32,204,255,1134.A/&.. 76,174,167,417,99
9....
> CLICK IMAGE PREVIEW FOR FULL MODAL