ABACUS PASCAL E

00000000: 01 08 2B 08 00 00 8F 20  4C 49 4E 45 20 45 44 49  |..+.... LINE EDI|
00000010: 54 4F 52 20 28 43 29 31  39 38 30 20 41 42 41 43  |TOR (C)1980 ABAC|
00000020: 55 53 20 53 4F 46 54 57  41 52 45 00 47 08 0A 00  |US SOFTWARE.G...|
00000030: 86 54 24 28 35 30 30 29  3A 8F 20 42 55 46 46 45  |.T$(500):. BUFFE|
00000040: 52 20 53 50 41 43 45 00  60 08 14 00 4C 24 B2 22  |R SPACE.`...L$."|
00000050: 22 3A 8F 20 43 55 52 52  45 4E 54 20 4C 49 4E 45  |":. CURRENT LINE|
00000060: 00 77 08 1E 00 4C 4C B2  31 3A 8F 20 4C 41 53 54  |.w...LL.1:. LAST|
00000070: 20 4C 49 4E 45 20 23 00  8D 08 28 00 53 50 24 B2  | LINE #...(.SP$.|
00000080: 22 20 22 3A 44 4C 24 B2  C7 28 32 30 29 00 B2 08  |" ":DL$..(20)...|
00000090: 32 00 45 45 B2 30 3A 8F  20 44 49 53 4B 20 45 52  |2.EE.0:. DISK ER|
000000A0: 52 4F 52 20 43 48 41 4E  4E 45 4C 20 43 4C 4F 53  |ROR CHANNEL CLOS|
000000B0: 45 44 00 CB 08 3C 00 50  52 B2 30 3A 8F 20 50 52  |ED...<.PR.0:. PR|
000000C0: 49 4E 54 20 43 48 41 4E  4E 45 4C 00 EA 08 5A 00  |INT CHANNEL...Z.|
000000D0: 97 31 34 34 2C 34 39 3A  8F 20 44 49 53 41 42 4C  |.144,49:. DISABL|
000000E0: 45 20 53 54 4F 50 20 4B  45 59 00 14 09 64 00 99  |E STOP KEY...d..|
000000F0: 22 93 20 20 20 20 20 12  41 42 41 43 55 53 20 53  |".     .ABACUS S|
00000100: 4F 46 54 57 41 52 45 20  4C 49 4E 45 20 45 44 49  |OFTWARE LINE EDI|
00000110: 54 4F 52 22 00 2C 09 6E  00 99 22 11 11 20 20 20  |TOR".,.n.."..   |
00000120: 20 46 55 4E 43 54 49 4F  4E 53 3A 22 00 32 09 82  | FUNCTIONS:".2..|
00000130: 00 99 00 54 09 8C 00 99  A3 38 29 3B 22 41 29 50  |...T.....8);"A)P|
00000140: 50 45 4E 44 2D 54 4F 20  45 4E 44 20 4F 46 20 54  |PEND-TO END OF T|
00000150: 45 58 54 22 00 6D 09 96  00 99 A3 38 29 3B 22 43  |EXT".m.....8);"C|
00000160: 29 48 41 4E 47 45 2D 53  54 52 49 4E 47 00 87 09  |)HANGE-STRING...|
00000170: A0 00 99 A3 38 29 3B 22  44 29 45 4C 45 54 45 20  |....8);"D)ELETE |
00000180: 4C 49 4E 45 28 53 29 00  A1 09 AA 00 99 A3 38 29  |LINE(S).......8)|
00000190: 3B 22 46 29 49 4C 45 52  20 43 4F 4D 4D 41 4E 44  |;"F)ILER COMMAND|
000001A0: 53 00 BF 09 B4 00 99 A3  38 29 3B 22 49 29 4E 53  |S.......8);"I)NS|
000001B0: 45 52 54 20 42 45 46 4F  52 45 20 4C 49 4E 45 00  |ERT BEFORE LINE.|
000001C0: D7 09 BE 00 99 A3 38 29  3B 22 4C 29 49 53 54 20  |......8);"L)IST |
000001D0: 4C 49 4E 45 28 53 29 00  EF 09 C8 00 99 A3 38 29  |LINE(S).......8)|
000001E0: 3B 22 4D 29 45 4E 55 20  44 49 53 50 4C 41 59 00  |;"M)ENU DISPLAY.|
000001F0: 08 0A D2 00 99 A3 38 29  3B 22 50 29 52 49 4E 54  |......8);"P)RINT|
00000200: 20 4C 49 4E 45 28 53 29  00 25 0A DC 00 99 A3 38  | LINE(S).%.....8|
00000210: 29 3B 22 51 29 55 49 54  20 4C 45 41 56 45 20 45  |);"Q)UIT LEAVE E|
00000220: 44 49 54 4F 52 00 3D 0A  E6 00 99 A3 38 29 3B 22  |DITOR.=.....8);"|
00000230: 52 29 45 50 4C 41 43 45  20 4C 49 4E 45 00 5E 0A  |R)EPLACE LINE.^.|
00000240: F0 00 99 3A 99 22 20 20  20 20 45 4E 54 45 52 20  |...:."    ENTER |
00000250: 53 45 4C 45 43 54 49 4F  4E 2D 3E 20 22 3B 00 67  |SELECTION-> ";.g|
00000260: 0A FA 00 89 35 31 30 00  93 0A F4 01 99 3A 99 22  |....510......:."|
00000270: 12 45 4E 54 45 52 92 20  41 2C 43 2C 44 2C 46 2C  |.ENTER. A,C,D,F,|
00000280: 49 2C 4C 2C 50 2C 51 2C  52 2C 4D 29 45 4E 55 2D  |I,L,P,Q,R,M)ENU-|
00000290: 3E 22 3B 00 A7 0A FE 01  A1 20 41 24 3A 8B 41 24  |>";...... A$:.A$|
000002A0: B2 22 22 A7 35 31 30 00  B7 0A 08 02 4A B2 30 3A  |."".510.....J.0:|
000002B0: 81 49 B2 31 A4 31 30 00  DC 0A 12 02 8B 41 24 B2  |.I.1.10......A$.|
000002C0: CA 28 22 41 43 44 46 49  4C 52 4D 51 50 22 2C 49  |.("ACDFILRMQP",I|
000002D0: 2C 31 29 A7 4A B2 49 3A  49 B2 31 30 00 E3 0A 1C  |,1).J.I:I.10....|
000002E0: 02 82 49 00 EB 0A 26 02  99 41 24 00 F8 0A 30 02  |..I...&..A$...0.|
000002F0: 8B 4A B2 30 A7 35 30 30  00 30 0B 3A 02 91 4A 89  |.J.0.500.0.:..J.|
00000300: 31 30 30 30 2C 32 30 30  30 2C 33 30 30 30 2C 34  |1000,2000,3000,4|
00000310: 30 30 30 2C 35 30 30 30  2C 36 30 30 30 2C 37 30  |000,5000,6000,70|
00000320: 30 30 2C 31 30 30 2C 38  30 30 30 2C 39 30 30 30  |00,100,8000,9000|
00000330: 00 36 0B E8 03 99 00 55  0B ED 03 99 22 12 41 50  |.6.....U....".AP|
00000340: 50 45 4E 44 92 20 54 4F  20 45 4E 44 20 4F 46 20  |PEND. TO END OF |
00000350: 54 45 58 54 22 00 63 0B  F2 03 99 3A 99 4C 4C 22  |TEXT".c....:.LL"|
00000360: 3E 22 3B 00 7D 0B FC 03  8D 31 30 30 30 30 3A 8F  |>";.}....10000:.|
00000370: 20 47 4F 20 52 45 41 44  20 4C 49 4E 45 00 8E 0B  | GO READ LINE...|
00000380: 06 04 8B C3 28 4C 24 29  B2 30 A7 35 30 30 00 9C  |....(L$).0.500..|
00000390: 0B 10 04 54 24 28 4C 4C  29 B2 4C 24 00 A8 0B 1A  |...T$(LL).L$....|
000003A0: 04 4C 4C B2 4C 4C AA 31  00 B2 0B 24 04 89 31 30  |.LL.LL.1...$..10|
000003B0: 31 30 00 C6 0B D0 07 8F  20 43 48 41 4E 47 45 20  |10...... CHANGE |
000003C0: 53 54 52 49 4E 47 00 EC  0B DA 07 99 3A 99 22 12  |STRING......:.".|
000003D0: 43 48 41 4E 47 45 92 22  3B 3A 8D 31 36 30 30 30  |CHANGE.";:.16000|
000003E0: 3A 8F 20 47 45 54 20 52  41 4E 47 45 00 FA 0B E4  |:. GET RANGE....|
000003F0: 07 8B 48 49 B2 30 A7 35  30 30 00 28 0C E9 07 99  |..HI.0.500.(....|
00000400: 22 12 43 48 41 4E 47 45  92 20 53 54 52 49 4E 47  |".CHANGE. STRING|
00000410: 2D 3E 22 3B 3A 8D 31 30  30 30 30 3A 8F 20 47 45  |->";:.10000:. GE|
00000420: 54 20 53 54 52 49 4E 47  00 34 0C EE 07 4C B2 C3  |T STRING.4...L..|
00000430: 28 4C 24 29 00 41 0C F8  07 8B 4C B2 30 A7 35 30  |(L$).A....L.0.50|
00000440: 30 00 4F 0C 02 08 8B 4C  B3 34 A7 32 30 30 30 00  |0.O....L.4.2000.|
00000450: 6B 0C 0C 08 44 4D 24 B2  C8 28 4C 24 2C 31 29 3A  |k...DM$..(L$,1):|
00000460: 8F 20 44 45 4C 49 4D 49  54 45 52 00 82 0C 16 08  |. DELIMITER.....|
00000470: 8B C9 28 4C 24 2C 31 29  B3 B1 44 4D 24 A7 32 30  |..(L$,1)..DM$.20|
00000480: 30 30 00 93 0C 20 08 4A  B2 30 3A 81 49 B2 32 A4  |00... .J.0:.I.2.|
00000490: 4C AB 31 00 AA 0C 2A 08  8B CA 28 4C 24 2C 49 2C  |L.1...*...(L$,I,|
000004A0: 31 29 B2 44 4D 24 A7 4A  B2 49 00 B1 0C 34 08 82  |1).DM$.J.I...4..|
000004B0: 49 00 BF 0C 3E 08 8B 4A  B2 30 A7 32 30 30 30 00  |I...>..J.0.2000.|
000004C0: CD 0C 48 08 8B 4A B2 32  A7 32 30 30 30 00 E1 0C  |..H..J.2.2000...|
000004D0: 52 08 46 52 24 B2 CA 28  4C 24 2C 32 2C 4A AB 32  |R.FR$..(L$,2,J.2|
000004E0: 29 00 F9 0C 5C 08 8B 4A  AA 31 B2 4C A7 54 53 24  |)...\..J.1.L.TS$|
000004F0: B2 22 22 3A 89 32 31 36  30 00 11 0D 66 08 54 53  |."":.2160...f.TS|
00000500: 24 B2 CA 28 4C 24 2C 4A  AA 31 2C 4C AB 4A AB 31  |$..(L$,J.1,L.J.1|
00000510: 29 00 1E 0D 70 08 46 B2  C3 28 46 52 24 29 00 2B  |)...p.F..(FR$).+|
00000520: 0D 7A 08 81 49 B2 4C 4F  A4 48 49 00 45 0D 84 08  |.z..I.LO.HI.E...|
00000530: 54 B2 C3 28 54 24 28 49  29 29 3A 53 B2 31 3A 4E  |T..(T$(I)):S.1:N|
00000540: 4C 24 B2 22 22 00 54 0D  8E 08 81 4A B2 31 A4 54  |L$."".T....J.1.T|
00000550: AB 46 AA 31 00 70 0D 98  08 8B CA 28 54 24 28 49  |.F.1.p.....(T$(I|
00000560: 29 2C 4A 2C 46 29 B3 B1  46 52 24 A7 32 32 33 30  |),J,F)..FR$.2230|
00000570: 00 8F 0D A2 08 4E 4C 24  B2 4E 4C 24 AA CA 28 54  |.....NL$.NL$..(T|
00000580: 24 28 49 29 2C 53 2C 4A  AB 53 29 AA 54 53 24 00  |$(I),S,J.S).TS$.|
00000590: 9F 0D AC 08 53 B2 4A AA  46 3A 4A B2 53 AB 31 00  |....S.J.F:J.S.1.|
000005A0: A6 0D B6 08 82 4A 00 D1  0D C0 08 8B 53 B3 B1 31  |.....J......S..1|
000005B0: A7 4E 4C 24 B2 4E 4C 24  AA C9 28 54 24 28 49 29  |.NL$.NL$..(T$(I)|
000005C0: 2C 54 AB 53 AA 31 29 3A  54 24 28 49 29 B2 4E 4C  |,T.S.1):T$(I).NL|
000005D0: 24 00 D8 0D CA 08 82 49  00 E1 0D D4 08 89 35 30  |$......I......50|
000005E0: 30 00 F6 0D B8 0B 8F 20  44 45 4C 45 54 45 20 4C  |0...... DELETE L|
000005F0: 49 4E 45 28 53 29 00 1D  0E BD 0B 99 3A 99 22 12  |INE(S)......:.".|
00000600: 44 45 4C 45 54 45 92 20  22 3B 3A 8D 31 36 30 30  |DELETE. ";:.1600|
00000610: 30 3A 8F 20 47 45 54 20  52 41 4E 47 45 00 48 0E  |0:. GET RANGE.H.|
00000620: C2 0B 8B A8 44 46 A7 33  30 31 35 3A 8F 20 4E 4F  |....DF.3015:. NO|
00000630: 54 20 44 45 46 41 55 4C  54 20 4F 4E 20 45 4E 54  |T DEFAULT ON ENT|
00000640: 49 52 45 20 46 49 4C 45  00 67 0E C3 0B 99 22 12  |IRE FILE.g....".|
00000650: 44 45 4C 45 54 45 92 20  45 4E 54 49 52 45 20 46  |DELETE. ENTIRE F|
00000660: 49 4C 45 3F 20 22 3B 00  7B 0E C4 0B A1 41 24 3A  |ILE? ";.{....A$:|
00000670: 8B 41 24 B2 22 22 A7 33  30 31 32 00 8F 0E C5 0B  |.A$."".3012.....|
00000680: 99 41 24 3A 8B 41 24 B2  22 4E 22 A7 35 30 30 00  |.A$:.A$."N".500.|
00000690: A1 0E C6 0B 8B 41 24 B3  B1 22 59 22 A7 33 30 31  |.....A$.."Y".301|
000006A0: 31 00 B2 0E C7 0B 8B 48  49 B1 4C 4C AB 31 A7 35  |1......HI.LL.1.5|
000006B0: 30 30 00 CA 0E CC 0B 8B  48 49 B2 4C 4C AB 31 A7  |00......HI.LL.1.|
000006C0: 4C 4C B2 4C 4F 3A 89 35  30 30 00 D8 0E D6 0B 4A  |LL.LO:.500.....J|
000006D0: B2 48 49 AB 4C 4F AA 31  00 E9 0E E0 0B 81 49 B2  |.HI.LO.1......I.|
000006E0: 4C 4F A4 4C 4C AB 4A AB  31 00 FB 0E EA 0B 54 24  |LO.LL.J.1.....T$|
000006F0: 28 49 29 B2 54 24 28 49  AA 4A 29 00 02 0F F4 0B  |(I).T$(I.J).....|
00000700: 82 49 00 16 0F FE 0B 4C  4C B2 4C 4C AB 28 48 49  |.I.....LL.LL.(HI|
00000710: AB 4C 4F 29 AB 31 00 1F  0F 08 0C 89 35 30 30 00  |.LO).1......500.|
00000720: 2B 0F A0 0F 8F 20 46 49  4C 45 52 00 54 0F AA 0F  |+.... FILER.T...|
00000730: 99 22 11 12 46 49 4C 45  52 92 20 45 4E 54 45 52  |."..FILER. ENTER|
00000740: 20 4C 29 4F 41 44 20 4F  52 20 53 29 41 56 45 2D  | L)OAD OR S)AVE-|
00000750: 3E 20 22 3B 00 68 0F B4  0F A1 41 24 3A 8B 41 24  |> ";.h....A$:.A$|
00000760: B2 22 22 A7 34 30 32 30  00 85 0F BE 0F 8B 41 24  |."".4020......A$|
00000770: B3 B1 22 4C 22 AF 41 24  B3 B1 22 53 22 A7 99 3A  |.."L".A$.."S"..:|
00000780: 89 34 30 30 30 00 93 0F  C8 0F 99 41 24 3A 4D 24  |.4000......A$:M$|
00000790: B2 41 24 00 AF 0F D2 0F  99 22 12 45 4E 54 45 52  |.A$......".ENTER|
000007A0: 92 20 46 49 4C 45 4E 41  4D 45 2D 3E 20 22 3B 00  |. FILENAME-> ";.|
000007B0: BA 0F E6 0F 8D 31 30 30  30 30 00 CB 0F EB 0F 8B  |.....10000......|
000007C0: C3 28 4C 24 29 B2 30 A7  35 30 30 00 DE 0F EC 0F  |.(L$).0.500.....|
000007D0: 8B C3 28 4C 24 29 B1 31  32 A7 34 30 35 30 00 E9  |..(L$).12.4050..|
000007E0: 0F F0 0F 46 49 24 B2 4C  24 00 0B 10 FA 0F 99 22  |...FI$.L$......"|
000007F0: 12 45 4E 54 45 52 92 20  44 29 49 53 4B 20 4F 52  |.ENTER. D)ISK OR|
00000800: 20 54 29 41 50 45 2D 3E  20 22 3B 00 1F 10 04 10  | T)APE-> ";.....|
00000810: A1 41 24 3A 8B 41 24 B2  22 22 A7 34 31 30 30 00  |.A$:.A$."".4100.|
00000820: 27 10 0E 10 99 41 24 00  41 10 18 10 8B 41 24 B3  |'....A$.A....A$.|
00000830: B1 22 44 22 AF 41 24 B3  B1 22 54 22 A7 34 30 39  |."D".A$.."T".409|
00000840: 30 00 62 10 22 10 8B 41  24 B2 22 44 22 A7 34 31  |0.b."..A$."D".41|
00000850: 36 30 3A 8F 20 44 49 53  4B 20 52 4F 55 54 49 4E  |60:. DISK ROUTIN|
00000860: 45 53 00 73 10 2C 10 8B  4D 24 B2 22 4C 22 A7 34  |ES.s.,..M$."L".4|
00000870: 34 30 30 00 7D 10 36 10  89 34 32 30 30 00 B0 10  |400.}.6..4200...|
00000880: 40 10 44 52 24 B2 22 22  3A 8B C8 28 46 49 24 2C  |@.DR$."":..(FI$,|
00000890: 32 29 B3 B1 22 30 3A 22  AF C8 28 46 49 24 2C 32  |2).."0:"..(FI$,2|
000008A0: 29 B3 B1 22 31 3A 22 A7  44 52 24 B2 22 30 3A 22  |).."1:".DR$."0:"|
000008B0: 00 BA 10 4A 10 89 34 36  30 30 00 CA 10 68 10 8F  |...J..4600...h..|
000008C0: 20 54 41 50 45 20 53 41  56 45 00 EC 10 72 10 8B  | TAPE SAVE...r..|
000008D0: 4C 4C B2 31 A7 99 22 4E  4F 20 46 49 4C 45 20 54  |LL.1.."NO FILE T|
000008E0: 4F 20 53 41 56 45 22 3A  89 35 30 30 00 05 11 7C  |O SAVE":.500...||
000008F0: 10 9F 32 2C 31 2C 32 2C  46 49 24 AA 22 2E 53 4F  |..2,1,2,FI$.".SO|
00000900: 55 52 43 45 22 00 13 11  86 10 81 49 B2 31 A4 4C  |URCE"......I.1.L|
00000910: 4C AB 31 00 25 11 90 10  81 4A B2 31 A4 C3 28 54  |L.1.%....J.1..(T|
00000920: 24 28 49 29 29 00 3A 11  9A 10 98 32 2C CA 28 54  |$(I)).:....2,.(T|
00000930: 24 28 49 29 2C 4A 2C 31  29 3B 00 41 11 A4 10 82  |$(I),J,1);.A....|
00000940: 4A 00 50 11 AE 10 98 32  2C C7 28 32 35 35 29 3B  |J.P....2,.(255);|
00000950: 00 57 11 B8 10 82 49 00  5E 11 C2 10 A0 32 00 74  |.W....I.^....2.t|
00000960: 11 CC 10 99 A6 36 29 3B  46 49 24 3B 22 20 53 41  |.....6);FI$;" SA|
00000970: 56 45 44 22 00 7D 11 D6  10 89 35 30 30 00 8D 11  |VED".}....500...|
00000980: 30 11 8F 20 54 41 50 45  20 4C 4F 41 44 00 A6 11  |0.. TAPE LOAD...|
00000990: 3A 11 9F 32 2C 31 2C 30  2C 46 49 24 AA 22 2E 53  |:..2,1,0,FI$.".S|
000009A0: 4F 55 52 43 45 22 00 BC  11 4E 11 4C 4C B2 30 3A  |OURCE"...N.LL.0:|
000009B0: 8F 20 4C 49 4E 45 20 43  4F 55 4E 54 00 D2 11 58  |. LINE COUNT...X|
000009C0: 11 4C 4C B2 4C 4C AA 31  3A 54 24 28 4C 4C 29 B2  |.LL.LL.1:T$(LL).|
000009D0: 22 22 00 DD 11 62 11 A1  23 32 2C 41 24 00 FB 11  |""...b..#2,A$...|
000009E0: 6C 11 8B 53 54 B2 36 34  A7 34 35 30 30 3A 8F 20  |l..ST.64.4500:. |
000009F0: 45 4E 44 20 4F 46 20 46  49 4C 45 00 21 12 71 11  |END OF FILE.!.q.|
00000A00: 8B 53 54 B3 B1 30 A7 99  22 2A 2A 2A 20 4C 4F 41  |.ST..0.."*** LOA|
00000A10: 44 20 45 52 52 4F 52 20  2A 2A 2A 22 3A 89 35 30  |D ERROR ***":.50|
00000A20: 30 00 43 12 76 11 8B 41  24 B2 C7 28 32 35 35 29  |0.C.v..A$..(255)|
00000A30: A7 34 34 34 30 3A 8F 20  45 4E 44 20 4F 46 20 4C  |.4440:. END OF L|
00000A40: 49 4E 45 00 58 12 80 11  54 24 28 4C 4C 29 B2 54  |INE.X...T$(LL).T|
00000A50: 24 28 4C 4C 29 AA 41 24  00 62 12 8A 11 89 34 34  |$(LL).A$.b....44|
00000A60: 35 30 00 69 12 94 11 A0  32 00 80 12 9E 11 99 A6  |50.i....2.......|
00000A70: 36 29 3B 46 49 24 3B 22  20 4C 4F 41 44 45 44 22  |6);FI$;" LOADED"|
00000A80: 00 8C 12 A8 11 4C 4C B2  4C 4C AA 31 00 95 12 B2  |.....LL.LL.1....|
00000A90: 11 89 35 30 30 00 A5 12  F8 11 8F 20 44 49 53 4B  |..500...... DISK|
00000AA0: 20 53 41 56 45 00 B6 12  02 12 8B 4D 24 B2 22 4C  | SAVE......M$."L|
00000AB0: 22 A7 34 38 30 30 00 D8  12 0C 12 8B 4C 4C B2 31  |".4800......LL.1|
00000AC0: A7 99 22 4E 4F 20 46 49  4C 45 20 54 4F 20 53 41  |.."NO FILE TO SA|
00000AD0: 56 45 22 3A 89 35 30 30  00 FB 12 16 12 46 4C 24  |VE":.500.....FL$|
00000AE0: B2 22 40 30 22 AA 44 52  24 AA 46 49 24 AA 22 2E  |."@0".DR$.FI$.".|
00000AF0: 53 4F 55 52 43 45 2C 53  2C 57 22 00 0A 13 20 12  |SOURCE,S,W"... .|
00000B00: 9F 32 2C 38 2C 32 2C 46  4C 24 00 23 13 2A 12 8D  |.2,8,2,FL$.#.*..|
00000B10: 32 30 30 30 30 3A 8F 20  45 52 52 4F 52 20 43 48  |20000:. ERROR CH|
00000B20: 45 43 4B 00 32 13 2F 12  8B 45 31 B3 B1 30 A7 35  |ECK.2./..E1..0.5|
00000B30: 30 30 00 40 13 34 12 81  49 B2 31 A4 4C 4C AB 31  |00.@.4..I.1.LL.1|
00000B40: 00 52 13 3E 12 81 4A B2  31 A4 C3 28 54 24 28 49  |.R.>..J.1..(T$(I|
00000B50: 29 29 00 67 13 48 12 98  32 2C CA 28 54 24 28 49  |)).g.H..2,.(T$(I|
00000B60: 29 2C 4A 2C 31 29 3B 00  6E 13 52 12 82 4A 00 7D  |),J,1);.n.R..J.}|
00000B70: 13 5C 12 98 32 2C C7 28  32 35 35 29 3B 00 84 13  |.\..2,.(255);...|
00000B80: 66 12 82 49 00 8B 13 70  12 A0 32 00 A1 13 7A 12  |f..I...p..2...z.|
00000B90: 99 A6 36 29 3B 46 49 24  3B 22 20 53 41 56 45 44  |..6);FI$;" SAVED|
00000BA0: 22 00 AA 13 84 12 89 35  30 30 00 BA 13 C0 12 8F  |"......500......|
00000BB0: 20 44 49 53 4B 20 4C 4F  41 44 00 D8 13 CA 12 46  | DISK LOAD.....F|
00000BC0: 4C 24 B2 44 52 24 AA 46  49 24 AA 22 2E 53 4F 55  |L$.DR$.FI$.".SOU|
00000BD0: 52 43 45 2C 53 2C 52 22  00 E7 13 D4 12 9F 32 2C  |RCE,S,R"......2,|
00000BE0: 38 2C 32 2C 46 4C 24 00  00 14 DE 12 8D 32 30 30  |8,2,FL$......200|
00000BF0: 30 30 3A 8F 20 45 52 52  4F 52 20 43 48 45 43 4B  |00:. ERROR CHECK|
00000C00: 00 0F 14 E3 12 8B 45 31  B3 B1 30 A7 35 30 30 00  |......E1..0.500.|
00000C10: 25 14 E8 12 4C 4C B2 30  3A 8F 20 4C 49 4E 45 20  |%...LL.0:. LINE |
00000C20: 43 4F 55 4E 54 00 3B 14  F2 12 4C 4C B2 4C 4C AA  |COUNT.;...LL.LL.|
00000C30: 31 3A 54 24 28 4C 4C 29  B2 22 22 00 46 14 FC 12  |1:T$(LL)."".F...|
00000C40: A1 23 32 2C 41 24 00 64  14 06 13 8B 53 54 B2 36  |.#2,A$.d....ST.6|
00000C50: 34 A7 34 35 30 30 3A 8F  20 45 4E 44 20 4F 46 20  |4.4500:. END OF |
00000C60: 46 49 4C 45 00 7B 14 10  13 8B 53 54 B3 B1 30 A7  |FILE.{....ST..0.|
00000C70: 8D 32 30 30 30 30 3A 89  35 30 30 00 9D 14 1A 13  |.20000:.500.....|
00000C80: 8B 41 24 B2 C7 28 32 35  35 29 A7 34 38 35 30 3A  |.A$..(255).4850:|
00000C90: 8F 20 45 4E 44 20 4F 46  20 4C 49 4E 45 00 B2 14  |. END OF LINE...|
00000CA0: 24 13 54 24 28 4C 4C 29  B2 54 24 28 4C 4C 29 AA  |$.T$(LL).T$(LL).|
00000CB0: 41 24 00 BC 14 2E 13 89  34 38 36 30 00 C3 14 38  |A$......4860...8|
00000CC0: 13 A0 32 00 DA 14 42 13  99 A6 36 29 3B 46 49 24  |..2...B...6);FI$|
00000CD0: 3B 22 20 4C 4F 41 44 45  44 22 00 E6 14 4C 13 4C  |;" LOADED"...L.L|
00000CE0: 4C B2 4C 4C AA 31 00 EF  14 56 13 89 35 30 30 00  |L.LL.1...V..500.|
00000CF0: 01 15 88 13 8F 20 49 4E  53 45 52 54 20 4C 49 4E  |..... INSERT LIN|
00000D00: 45 00 2F 15 92 13 99 3A  99 22 12 49 4E 53 45 52  |E./....:.".INSER|
00000D10: 54 92 20 42 45 46 4F 52  45 20 22 3B 3A 8D 31 37  |T. BEFORE ";:.17|
00000D20: 30 30 30 3A 8F 20 47 45  54 20 4C 49 4E 45 23 00  |000:. GET LINE#.|
00000D30: 44 15 97 13 8B 4C 4F B1  4C 4C B0 4C 4F B3 31 A7  |D....LO.LL.LO.1.|
00000D40: 35 30 30 30 00 53 15 9C  13 99 3A 99 4C 4F 3B 22  |5000.S....:.LO;"|
00000D50: 3E 22 3B 00 6A 15 A6 13  8D 31 30 30 30 30 3A 8F  |>";.j....10000:.|
00000D60: 20 52 45 41 44 20 4C 49  4E 45 00 7B 15 B0 13 8B  | READ LINE.{....|
00000D70: C3 28 4C 24 29 B2 30 A7  35 30 30 00 87 15 BA 13  |.(L$).0.500.....|
00000D80: 4C 4C B2 4C 4C AA 31 00  97 15 C4 13 81 49 B2 4C  |LL.LL.1......I.L|
00000D90: 4C A4 4C 4F A9 AB 31 00  A9 15 CE 13 54 24 28 49  |L.LO..1.....T$(I|
00000DA0: 29 B2 54 24 28 49 AB 31  29 00 B0 15 D8 13 82 49  |).T$(I.1)......I|
00000DB0: 00 BE 15 E2 13 54 24 28  4C 4F 29 B2 4C 24 00 CA  |.....T$(LO).L$..|
00000DC0: 15 EC 13 4C 4F B2 4C 4F  AA 31 00 D4 15 F6 13 89  |...LO.LO.1......|
00000DD0: 35 30 32 30 00 E5 15 70  17 8F 20 4C 49 53 54 20  |5020...p.. LIST |
00000DE0: 4C 49 4E 45 53 00 0A 16  7A 17 99 3A 99 22 12 4C  |LINES...z..:.".L|
00000DF0: 49 53 54 92 20 22 3B 3A  8D 31 36 30 30 30 3A 8F  |IST. ";:.16000:.|
00000E00: 20 47 45 54 20 52 41 4E  47 45 00 18 16 84 17 8B  | GET RANGE......|
00000E10: 48 49 B2 30 A7 35 30 30  00 3E 16 8E 17 53 53 24  |HI.0.500.>...SS$|
00000E20: B2 22 4E 22 3A 99 3A 81  49 B2 4C 4F A4 48 49 3A  |."N":.:.I.LO.HI:|
00000E30: 8F 20 50 45 52 46 4F 52  4D 20 4C 49 53 54 00 4F  |. PERFORM LIST.O|
00000E40: 16 98 17 99 49 3B 22 3E  22 3B 54 24 28 49 29 00  |....I;">";T$(I).|
00000E50: 6E 16 A2 17 A1 41 24 3A  8B 41 24 B2 C7 28 31 38  |n....A$:.A$..(18|
00000E60: 29 A7 81 4A B2 31 A4 31  30 32 34 3A 82 4A 00 81  |)..J.1.1024:.J..|
00000E70: 16 AC 17 8B 41 24 B3 B1  C7 28 33 29 A7 36 31 31  |....A$...(3).611|
00000E80: 30 00 8D 16 B6 17 53 53  24 B2 22 59 22 00 AD 16  |0.....SS$."Y"...|
00000E90: C0 17 A1 41 24 3A 8B 41  24 B2 C7 28 31 33 29 A7  |...A$:.A$..(13).|
00000EA0: 53 53 24 B2 22 4E 22 3A  89 36 31 31 30 00 C1 16  |SS$."N":.6110...|
00000EB0: CA 17 8B 41 24 B3 B1 C7  28 33 32 29 A7 36 30 37  |...A$...(32).607|
00000EC0: 30 00 CB 16 D4 17 89 36  31 32 30 00 DD 16 DE 17  |0......6120.....|
00000ED0: 8B 53 53 24 B2 22 59 22  A7 36 30 37 30 00 E4 16  |.SS$."Y".6070...|
00000EE0: E8 17 82 49 00 ED 16 F2  17 89 35 30 30 00 00 17  |...I......500...|
00000EF0: 58 1B 8F 20 52 45 50 4C  41 43 45 20 4C 49 4E 45  |X.. REPLACE LINE|
00000F00: 00 28 17 62 1B 99 3A 99  22 12 52 45 50 4C 41 43  |.(.b..:.".REPLAC|
00000F10: 45 92 20 22 3B 3A 8D 31  37 30 30 30 3A 8F 20 47  |E. ";:.17000:. G|
00000F20: 45 54 20 4C 49 4E 45 23  00 3E 17 6C 1B 8B 4C 4F  |ET LINE#.>.l..LO|
00000F30: B1 B2 4C 4C B0 4C 4F B3  31 A7 37 30 30 30 00 4D  |..LL.LO.1.7000.M|
00000F40: 17 76 1B 99 3A 99 4C 4F  3B 22 3E 22 3B 00 64 17  |.v..:.LO;">";.d.|
00000F50: 80 1B 8D 31 30 30 30 30  3A 8F 20 52 45 41 44 20  |...10000:. READ |
00000F60: 4C 49 4E 45 00 75 17 8A  1B 8B C3 28 4C 24 29 B2  |LINE.u.....(L$).|
00000F70: 30 A7 35 30 30 00 83 17  94 1B 54 24 28 4C 4F 29  |0.500.....T$(LO)|
00000F80: B2 4C 24 00 8C 17 9E 1B  89 35 30 30 00 97 17 40  |.L$......500...@|
00000F90: 1F 8F 20 51 55 49 54 00  C4 17 4A 1F 99 3A 99 22  |.. QUIT...J..:."|
00000FA0: 20 20 20 20 20 12 4C 45  41 56 45 20 45 44 49 54  |     .LEAVE EDIT|
00000FB0: 4F 52 2D 41 52 45 20 59  4F 55 20 53 55 52 45 3F  |OR-ARE YOU SURE?|
00000FC0: 92 20 22 3B 00 D8 17 54  1F A1 41 24 3A 8B 41 24  |. ";...T..A$:.A$|
00000FD0: B2 22 22 A7 38 30 32 30  00 E0 17 5E 1F 99 41 24  |."".8020...^..A$|
00000FE0: 00 FA 17 68 1F 8B 41 24  B3 B1 22 59 22 AF 41 24  |...h..A$.."Y".A$|
00000FF0: B3 B1 22 4E 22 A7 38 30  30 30 00 0A 18 72 1F 8B  |.."N".8000...r..|
00001000: 41 24 B2 22 4E 22 A7 35  30 30 00 32 18 7C 1F 99  |A$."N".500.2.|..|
00001010: 3A 99 22 20 20 20 20 20  20 20 12 2A 2A 20 45 4E  |:."       .** EN|
00001020: 44 20 4C 49 4E 45 20 45  44 49 54 4F 52 20 2A 2A  |D LINE EDITOR **|
00001030: 92 22 00 50 18 86 1F 97  31 34 34 2C 34 36 3A 8F  |.".P....144,46:.|
00001040: 20 45 4E 41 42 4C 45 20  53 54 4F 50 20 4B 45 59  | ENABLE STOP KEY|
00001050: 00 56 18 90 1F 80 00 67  18 28 23 8F 20 50 52 49  |.V.....g.(#. PRI|
00001060: 4E 54 20 4C 49 4E 45 00  7D 18 32 23 8B 50 52 B2  |NT LINE.}.2#.PR.|
00001070: 30 A7 50 52 B2 34 3A 9F  50 52 2C 50 52 00 A1 18  |0.PR.4:.PR,PR...|
00001080: 3C 23 99 22 12 50 52 49  4E 54 92 20 22 3B 3A 8D  |<#.".PRINT. ";:.|
00001090: 31 36 30 30 30 3A 8F 20  47 45 54 20 52 41 4E 47  |16000:. GET RANG|
000010A0: 45 00 AF 18 46 23 8B 48  49 B2 30 A7 35 30 30 00  |E...F#.HI.0.500.|
000010B0: CC 18 50 23 81 49 B2 4C  4F A4 48 49 3A 8F 20 50  |..P#.I.LO.HI:. P|
000010C0: 45 52 46 4F 52 4D 20 50  52 49 4E 54 00 E1 18 5A  |ERFORM PRINT...Z|
000010D0: 23 98 50 52 2C 49 3B 22  3A 20 22 3B 54 24 28 49  |#.PR,I;": ";T$(I|
000010E0: 29 00 E8 18 64 23 82 49  00 F0 18 6E 23 98 50 52  |)...d#.I...n#.PR|
000010F0: 00 19 19 78 23 98 50 52  2C 22 2A 2A 2A 22 3B 4C  |...x#.PR,"***";L|
00001100: 4C AB 31 3B 22 4C 49 4E  45 53 20 49 4E 20 42 55  |L.1;"LINES IN BU|
00001110: 46 46 45 52 20 2A 2A 2A  22 00 21 19 82 23 98 50  |FFER ***".!..#.P|
00001120: 52 00 2A 19 8C 23 89 35  30 30 00 45 19 10 27 8F  |R.*..#.500.E..'.|
00001130: 20 49 4E 50 55 54 20 41  20 4C 49 4E 45 20 4F 46  | INPUT A LINE OF|
00001140: 20 54 45 58 54 00 4F 19  1A 27 4C 24 B2 22 22 00  | TEXT.O..'L$."".|
00001150: 5A 19 24 27 99 22 A4 9D  22 3B 00 6F 19 2E 27 A1  |Z.$'."..";.o..'.|
00001160: 41 24 3A 8B 41 24 B2 22  22 A7 31 30 30 33 30 00  |A$:.A$."".10030.|
00001170: 84 19 38 27 8B 41 24 B2  C7 28 31 33 29 A7 99 22  |..8'.A$..(13).."|
00001180: 20 22 3A 8E 00 99 19 42  27 8B C3 28 4C 24 29 B1  | ":....B'..(L$).|
00001190: 38 30 A7 89 31 35 30 30  30 00 B6 19 4C 27 8B 41  |80..15000...L'.A|
000011A0: 24 B1 B2 53 50 24 AF 41  24 B3 B2 C7 28 39 35 29  |$..SP$.A$...(95)|
000011B0: A7 31 30 31 30 30 00 D7  19 51 27 8B 41 24 B1 B2  |.10100...Q'.A$..|
000011C0: C7 28 31 36 31 29 AF 41  24 B3 B2 C7 28 32 32 33  |.(161).A$...(223|
000011D0: 29 A7 31 30 31 30 30 00  EB 19 56 27 8B 41 24 B3  |).10100...V'.A$.|
000011E0: B1 44 4C 24 A7 89 31 30  30 33 30 00 0E 1A 60 27  |.DL$..10030...`'|
000011F0: 8B C3 28 4C 24 29 B1 30  A7 99 41 24 3B 3A 4C 24  |..(L$).0..A$;:L$|
00001200: B2 C8 28 4C 24 2C C3 28  4C 24 29 AB 31 29 00 19  |..(L$,.(L$).1)..|
00001210: 1A 6A 27 89 31 30 30 32  30 00 32 1A 74 27 4C 24  |.j'.10020.2.t'L$|
00001220: B2 4C 24 AA 41 24 3A 99  41 24 3B 3A 89 31 30 30  |.L$.A$:.A$;:.100|
00001230: 32 30 00 49 1A 98 3A 8F  20 4C 49 4E 45 20 49 4E  |20.I..:. LINE IN|
00001240: 50 55 54 20 45 52 52 4F  52 00 69 1A A2 3A 99 3A  |PUT ERROR.i..:.:|
00001250: 99 22 12 45 52 52 4F 52  92 20 4C 49 4E 45 20 54  |.".ERROR. LINE T|
00001260: 52 55 4E 43 41 54 45 44  22 00 6F 1A AC 3A 8E 00  |RUNCATED".o..:..|
00001270: 8A 1A 80 3E 99 22 52 41  4E 47 45 28 4C 4F 57 2C  |...>."RANGE(LOW,|
00001280: 48 49 47 48 29 2D 3E 20  22 3B 00 A3 1A 8A 3E 8D  |HIGH)-> ";....>.|
00001290: 31 30 30 30 30 3A 8F 20  49 4E 50 55 54 20 52 41  |10000:. INPUT RA|
000012A0: 4E 47 45 00 C7 1A 94 3E  4C 4F B2 31 3A 48 49 B2  |NGE....>LO.1:HI.|
000012B0: 4C 4C AB 31 3A 8F 20 44  45 46 41 55 4C 54 20 4C  |LL.1:. DEFAULT L|
000012C0: 49 53 54 20 41 4C 4C 00  D3 1A 99 3E 4C B2 C3 28  |IST ALL....>L..(|
000012D0: 4C 24 29 00 EE 1A 9E 3E  44 46 B2 30 3A 8B 4C B2  |L$)....>DF.0:.L.|
000012E0: 30 A7 44 46 B2 AB 31 3A  89 31 36 31 35 30 00 FD  |0.DF..1:.16150..|
000012F0: 1A A8 3E 4A B2 30 3A 81  49 B2 31 A4 4C 00 0E 1B  |..>J.0:.I.1.L...|
00001300: B2 3E 41 24 B2 CA 28 4C  24 2C 49 2C 31 29 00 29  |.>A$..(L$,I,1).)|
00001310: 1B BC 3E 8B 41 24 B1 B2  22 30 22 AF 41 24 B3 B2  |..>.A$.."0".A$..|
00001320: 22 39 22 A7 31 36 30 39  30 00 40 1B C6 3E 8B 41  |"9".16090.@..>.A|
00001330: 24 B2 22 2D 22 A7 4A B2  49 3A 89 31 36 30 39 30  |$."-".J.I:.16090|
00001340: 00 4E 1B D0 3E 4A B2 39  39 3A 49 B2 39 39 00 55  |.N..>J.99:I.99.U|
00001350: 1B DA 3E 82 49 00 65 1B  E4 3E 8B 4A B2 39 39 A7  |..>.I.e..>.J.99.|
00001360: 31 36 30 30 30 00 7F 1B  EE 3E 8B 4A B2 30 A7 4C  |16000....>.J.0.L|
00001370: 4F B2 C5 28 4C 24 29 3A  48 49 B2 4C 4F 3A 8E 00  |O..(L$):HI.LO:..|
00001380: 98 1B F8 3E 8B 4A B1 31  A7 4C 4F B2 C5 28 C8 28  |...>.J.1.LO..(.(|
00001390: 4C 24 2C 4A AB 31 29 29  00 B1 1B 02 3F 8B 4A B3  |L$,J.1))....?.J.|
000013A0: 4C A7 48 49 B2 C5 28 C9  28 4C 24 2C 4C AB 4A 29  |L.HI..(.(L$,L.J)|
000013B0: 29 00 C2 1B 0C 3F 8B 4C  4F B1 48 49 A7 31 36 30  |)....?.LO.HI.160|
000013C0: 30 30 00 C8 1B 16 3F 8E  00 D9 1B 68 42 99 22 2D  |00....?....hB."-|
000013D0: 4C 49 4E 45 23 2D 3E 22  3B 00 F2 1B 72 42 8D 31  |LINE#->";...rB.1|
000013E0: 30 30 30 30 3A 8F 20 49  4E 50 55 54 20 4C 49 4E  |0000:. INPUT LIN|
000013F0: 45 23 00 FE 1B 7C 42 4C  B2 C3 28 4C 24 29 00 0D  |E#...|BL..(L$)..|
00001400: 1C 86 42 8B 4C B2 30 A7  31 37 30 30 30 00 15 1C  |..B.L.0.17000...|
00001410: 90 42 4A B2 30 00 20 1C  9A 42 81 49 B2 31 A4 4C  |.BJ.0. ..B.I.1.L|
00001420: 00 31 1C A4 42 41 24 B2  CA 28 4C 24 2C 49 2C 31  |.1..BA$..(L$,I,1|
00001430: 29 00 4C 1C AE 42 8B 41  24 B1 B2 22 30 22 AF 41  |).L..B.A$.."0".A|
00001440: 24 B3 B2 22 39 22 A7 31  37 30 39 30 00 59 1C B8  |$.."9".17090.Y..|
00001450: 42 4A B2 39 39 3A 49 B2  4C 00 60 1C C2 42 82 49  |BJ.99:I.L.`..B.I|
00001460: 00 70 1C CC 42 8B 4A B2  39 39 A7 31 37 30 30 30  |.p..B.J.99.17000|
00001470: 00 7D 1C D6 42 4C 4F B2  C5 28 4C 24 29 00 83 1C  |.}..BLO..(L$)...|
00001480: E0 42 8E 00 9C 1C 20 4E  8B 45 45 B2 30 A7 45 45  |.B.... N.EE.0.EE|
00001490: B2 31 35 3A 9F 45 45 2C  38 2C 45 45 00 B1 1C 2A  |.15:.EE,8,EE...*|
000014A0: 4E 84 45 45 2C 45 31 2C  45 32 24 2C 45 33 2C 45  |N.EE,E1,E2$,E3,E|
000014B0: 34 00 BD 1C 34 4E 8B 45  31 B2 30 A7 8E 00 DB 1C  |4...4N.E1.0.....|
000014C0: 3E 4E 99 45 31 3B 22 2C  22 3B 45 32 24 3B 22 2C  |>N.E1;",";E2$;",|
000014D0: 22 3B 45 33 3B 22 2C 22  3B 45 34 00 F5 1C 48 4E  |";E3;",";E4...HN|
000014E0: 99 22 2A 2A 2A 20 44 49  53 4B 20 45 52 52 4F 52  |."*** DISK ERROR|
000014F0: 20 2A 2A 2A 22 00 FC 1C  52 4E A0 32 00 02 1D 5C  | ***"...RN.2...\|
00001500: 4E 8E 00 00 00 00 2F 22  8A 48 FF 00 00           |N...../".H...   |

..+.... LINE EDITOR (C)1980 ABACUS SOFTW
ARE.G....T$(500):. BUFFER SPACE.`...L$."
":. CURRENT LINE.W...LL.1:. LAST LINE #.
..(.SP$." ":DL$.G(20)...2.EE.0:. DISK ER
ROR CHANNEL CLOSED.K.<.PR.0:. PRINT CHAN
NEL...Z..144,49:. DISABLE STOP KEY...D..
".     .ABACUS SOFTWARE LINE EDITOR".,.N
.."..    FUNCTIONS:".2.....T.....8);"A)P
PEND-TO END OF TEXT".M.....8);"C)HANGE-S
TRING... ...8);"D)ELETE LINE(S).......8)
;"F)ILER COMMANDS.......8);"I)NSERT BEFO
RE LINE.W.....8);"L)IST LINE(S)...H...8)
;"M)ENU DISPLAY...R...8);"P)RINT LINE(S)
.%.....8);"Q)UIT LEAVE EDITOR.=.....8);"
R)EPLACE LINE.^....:."    ENTER SELECTIO
N-> ";.G....510......:.".ENTER. A,C,D,F,
I,L,P,Q,R,M)ENU->";...... A$:.A$."".510.
....J.0:.I.1.10......A$.J("ACDFILRMQP",I
,1).J.I:I.10......I...&..A$...0..J.0.500
.0.:..J.1000,2000,3000,4000,5000,6000,70
00,100,8000,9000.6.....U....".APPEND. TO
 END OF TEXT".C....:.LL">";.}....10000:.
 GO READ LINE......C(L$).0.500.....T$(LL
).L$.....LL.LL.1...$..1010.F.P.. CHANGE 
STRING...Z..:.".CHANGE.";:.16000:. GET R
ANGE......HI.0.500.(....".CHANGE. STRING
->";:.10000:. GET STRING.4...L.C(L$).A..
..L.0.500.O....L.4.2000.K...DM$.H(L$,1):
. DELIMITER......I(L$,1)..DM$.2000... .J
.0:.I.2.L.1...*..J(L$,I,1).DM$.J.I...4..
I...>..J.0.2000.M.H..J.2.2000...R.FR$.J(
L$,2,J.2)...\..J.1.L.TS$."":.2160...F.TS
$.J(L$,J.1,L.J.1)...P.F.C(FR$).+.Z..I.LO
.HI.E...T.C(T$(I)):S.1:NL$."".T....J.1.T
.F.1.P....J(T$(I),J,F)..FR$.2230.....NL$
.NL$.J(T$(I),S,J.S).TS$.....S.J.F:J.S.1.
.....J.Q....S..1.NL$.NL$.I(T$(I),T.S.1):
T$(I).NL$.X.J..I...T..500...... DELETE L
INE(S)......:.".DELETE. ";:.16000:. GET 
RANGE.H.B...DF.3015:. NOT DEFAULT ON ENT
IRE FILE.G.C..".DELETE. ENTIRE FILE? ";.
{.D..A$:.A$."".3012...E..A$:.A$."N".500.
..F..A$.."Y".3011...G..HI.LL.1.500.J.L..
HI.LL.1.LL.LO:.500.X.V.J.HI.LO.1......I.
LO.LL.J.1.....T$(I).T$(I.J)......I.....L
L.LL.(HI.LO).1......500.+. .. FILER.T...
."..FILER. ENTER L)OAD OR S)AVE-> ";.H..
..A$:.A$."".4020......A$.."L".A$.."S"..:
.4000...H..A$:M$.A$...R..".ENTER. FILENA
ME-> ";......10000.K....C(L$).0.500.....
.C(L$).12.4050.....FI$.L$......".ENTER. 
D)ISK OR T)APE-> ";......A$:.A$."".4100.
'....A$.A....A$.."D".A$.."T".4090.B."..A
$."D".4160:. DISK ROUTINES.S.,..M$."L".4
400.}.6..4200...@.DR$."":.H(FI$,2).."0:"
.H(FI$,2).."1:".DR$."0:"...J..4600.J.H..
 TAPE SAVE...R..LL.1.."NO FILE TO SAVE":
.500...|..2,1,2,FI$.".SOURCE"......I.1.L
L.1.%....J.1.C(T$(I)).:....2,J(T$(I),J,1
);.A....J.P....2,G(255);.W....I.^.B. 2.T
.L...6);FI$;" SAVED".}.V..500...0.. TAPE
 LOAD...:..2,1,0,FI$.".SOURCE"...N.LL.0:
. LINE COUNT.R.X.LL.LL.1:T$(LL).""...B..
#2,A$...L..ST.64.4500:. END OF FILE.!.Q.
.ST..0.."*** LOAD ERROR ***":.500.C.V..A
$.G(255).4440:. END OF LINE.X...T$(LL).T
$(LL).A$.B....4450.I... 2.......6);FI$;"
 LOADED".....LL.LL.1......500...... DISK
 SAVE......M$."L".4800.X....LL.1.."NO FI
LE TO SAVE":.500.....FL$."@0".DR$.FI$.".
SOURCE,S,W"... ..2,8,2,FL$.#.*..20000:. 
ERROR CHECK.2./..E1..0.500.@.4..I.1.LL.1
.R.>..J.1.C(T$(I)).G.H..2,J(T$(I),J,1);.
N.R..J.}.\..2,G(255);...F..I...P. 2...Z.
..6);FI$;" SAVED"......500...... DISK LO
AD.X.J.FL$.DR$.FI$.".SOURCE,S,R"...T..2,
8,2,FL$......20000:. ERROR CHECK......E1
..0.500.%...LL.0:. LINE COUNT.;...LL.LL.
1:T$(LL)."".F....#2,A$.D....ST.64.4500:.
 END OF FILE.{....ST..0..20000:.500.....
.A$.G(255).4850:. END OF LINE...$.T$(LL)
.T$(LL).A$......4860.C.8. 2.Z.B...6);FI$
;" LOADED"...L.LL.LL.1...V..500...... IN
SERT LINE./....:.".INSERT. BEFORE ";:.17
000:. GET LINE#.D....LO.LL.LO.1.5000.S..
..:.LO;">";.J....10000:. READ LINE.{....
C(L$).0.500.....LL.LL.1...D..I.LL.LO..1.
..N.T$(I).T$(I.1)...X..I.....T$(LO).L$.J
...LO.LO.1.T....5020...P.. LIST LINES...
Z..:.".LIST. ";:.16000:. GET RANGE......
HI.0.500.>...SS$."N":.:.I.LO.HI:. PERFOR
M LIST.O....I;">";T$(I).N....A$:.A$.G(18
)..J.1.1024:.J......A$..G(3).6110.....SS
$."Y"......A$:.A$.G(13).SS$."N":.6110.A.
J..A$..G(32).6070.K.T..6120......SS$."Y"
.6070......I......500...X.. REPLACE LINE
.(.B..:.".REPLACE. ";:.17000:. GET LINE#
.>.L..LO..LL.LO.1.7000.M.V..:.LO;">";.D.
...10000:. READ LINE.U....C(L$).0.500...
..T$(LO).L$......500...@.. QUIT.D.J..:."
     .LEAVE EDITOR-ARE YOU SURE?. ";.X.T
..A$:.A$."".8020...^..A$...H..A$.."Y".A$
.."N".8000...R..A$."N".500.2.|..:."     
  .** END LINE EDITOR **.".P....144,46:.
 ENABLE STOP KEY.V.....G.(#. PRINT LINE.
}.2#.PR.0.PR.4:.PR,PR...<#.".PRINT. ";:.
16000:. GET RANGE...F#.HI.0.500.L.P#.I.L
O.HI:. PERFORM PRINT...Z#.PR,I;": ";T$(I
)...D#.I...N#.PR...X#.PR,"***";LL.1;"LIN
ES IN BUFFER ***".!..#.PR.*..#.500.E..'.
 INPUT A LINE OF TEXT.O..'L$."".Z.$'."..
";.O..'.A$:.A$."".10030...8'.A$.G(13).."
 ":....B'.C(L$).80..15000...L'.A$..SP$.A
$..G(95).10100.W.Q'.A$..G(161).A$..G(223
).10100...V'.A$..DL$..10030...`'.C(L$).0
..A$;:L$.H(L$,C(L$).1)...J'.10020.2.T'L$
.L$.A$:.A$;:.10020.I..:. LINE INPUT ERRO
R.I..:.:.".ERROR. LINE TRUNCATED".O..:..
...>."RANGE(LOW,HIGH)-> ";....>.10000:. 
INPUT RANGE.G..>LO.1:HI.LL.1:. DEFAULT L
IST ALL.S..>L.C(L$)....>DF.0:.L.0.DF..1:
.16150....>J.0:.I.1.L....>A$.J(L$,I,1).)
..>.A$.."0".A$.."9".16090.@.F>.A$."-".J.
I:.16090.N.P>J.99:I.99.U.Z>.I.E..>.J.99.
16000...>.J.0.LO.E(L$):HI.LO:.....>.J.1
.LO.E(H(L$,J.1))....?.J.L.HI.E(I(L$,L.J)
).B..?.LO.HI.16000.H..?..Y.HB."-LINE#->"
;...RB.10000:. INPUT LINE#...|BL.C(L$)..
..B.L.0.17000....BJ.0. ..B.I.1.L.1..BA$.
J(L$,I,1).L..B.A$.."0".A$.."9".17090.Y..
BJ.99:I.L.`.BB.I.P.LB.J.99.17000.}.VBLO.
E(L$)....B.... N.EE.0.EE.15:.EE,8,EE...*
N.EE,E1,E2$,E3,E4...4N.E1.0.....>N.E1;",
";E2$;",";E3;",";E4...HN."*** DISK ERROR
 ***"...RN 2...\N...../".H...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL