PASCAB EDITOR
FILE INFORMATION
FILENAME(S): PASCAB EDITOR
FILE TYPE(S): PRG
FILE SIZE: 5.3K
FIRST SEEN: 2025-11-30 21:11:58
APPEARS ON: 1 disk(s)
FILE HASH
f42393f326b938189db1383480eab4d47bef41a1d413e103169b00d4d9743c8d
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PASCAL C64 | PASCAB EDITOR | PRG | DuncanTwain | 19 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
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 |N.... |
..+.... 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....
> CLICK IMAGE PREVIEW FOR FULL MODAL