SEQ FILE MGR
FILE INFORMATION
FILENAME(S): SEQ FILE MGR
FILE TYPE(S): PRG
FILE SIZE: 8.9K
FIRST SEEN: 2025-10-19 22:48:40
APPEARS ON: 1 disk(s)
FILE HASH
c9e297e87e6f0648ddbc286f44c8ecbbe81d1f6b5b73d553b79f8d46089cfaf4
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| QL APPLICATIONS | SEQ FILE MGR | PRG | Radd Maxx | 14 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 51 08 01 00 99 C7 28 31 34 29 22 93 11 20 |..Q.....(14)".. |
00000010: 20 20 20 20 20 20 20 D3 45 51 55 45 4E 54 49 41 | .EQUENTIA|
00000020: 4C 20 C6 49 4C 45 20 CD 41 4E 41 47 45 52 2D 22 |L .ILE .ANAGER-"|
00000030: 3A 99 22 20 20 20 20 20 20 20 20 20 20 31 39 38 |:." 198|
00000040: 37 20 28 43 29 20 CD 49 43 4B 20 C3 4F 52 57 49 |7 (C) .ICK .ORWI|
00000050: 4E 00 75 08 02 00 81 58 B2 35 31 37 34 34 A4 35 |N.u....X.51744.5|
00000060: 32 32 32 33 3A 87 41 3A 97 58 2C 41 3A 82 3A 9E |2223:.A:.X,A:.:.|
00000070: 35 31 37 34 34 00 B1 08 03 00 83 31 36 39 2C 35 |51744......169,5|
00000080: 35 2C 31 33 33 2C 31 2C 31 36 39 2C 31 36 30 2C |5,133,1,169,160,|
00000090: 31 33 33 2C 33 2C 31 36 30 2C 30 2C 31 33 32 2C |133,3,160,0,132,|
000000A0: 32 2C 31 37 37 2C 32 2C 31 34 35 2C 32 2C 31 33 |2,177,2,145,2,13|
000000B0: 36 00 F1 08 04 00 83 32 30 38 2C 32 34 39 2C 32 |6......208,249,2|
000000C0: 33 30 2C 33 2C 31 36 35 2C 33 2C 32 30 31 2C 31 |30,3,165,3,201,1|
000000D0: 39 32 2C 32 30 38 2C 32 34 31 2C 31 36 39 2C 35 |92,208,241,169,5|
000000E0: 34 2C 31 33 33 2C 31 2C 31 36 39 2C 35 2C 31 34 |4,133,1,169,5,14|
000000F0: 31 00 34 09 05 00 83 31 34 33 2C 31 38 33 2C 31 |1.4....143,183,1|
00000100: 36 39 2C 33 33 2C 31 34 31 2C 31 32 35 2C 31 36 |69,33,141,125,16|
00000110: 33 2C 31 36 32 2C 32 2C 31 38 39 2C 38 35 2C 32 |3,162,2,189,85,2|
00000120: 30 32 2C 31 35 37 2C 33 38 2C 31 38 31 2C 32 30 |02,157,38,181,20|
00000130: 32 2C 31 36 00 77 09 06 00 83 32 34 37 2C 39 36 |2,16.w....247,96|
00000140: 2C 37 36 2C 38 38 2C 32 30 32 2C 31 36 39 2C 30 |,76,88,202,169,0|
00000150: 2C 31 34 31 2C 32 33 38 2C 32 30 33 2C 31 36 39 |,141,238,203,169|
00000160: 2C 31 35 2C 31 33 33 2C 32 35 30 2C 31 36 39 2C |,15,133,250,169,|
00000170: 32 32 34 2C 31 33 33 00 B9 09 07 00 83 32 34 39 |224,133......249|
00000180: 2C 31 36 35 2C 35 32 2C 31 34 31 2C 32 33 39 2C |,165,52,141,239,|
00000190: 32 30 33 2C 35 36 2C 32 32 39 2C 35 30 2C 32 30 |203,56,229,50,20|
000001A0: 31 2C 31 39 2C 31 34 34 2C 32 32 2C 32 33 33 2C |1,19,144,22,233,|
000001B0: 33 2C 31 33 33 2C 32 35 30 00 F9 09 08 00 83 31 |3,133,250......1|
000001C0: 36 35 2C 35 30 2C 31 30 35 2C 30 2C 31 33 33 2C |65,50,105,0,133,|
000001D0: 32 34 39 2C 31 36 35 2C 35 36 2C 32 32 39 2C 35 |249,165,56,229,5|
000001E0: 32 2C 31 30 35 2C 31 2C 31 39 37 2C 32 35 30 2C |2,105,1,197,250,|
000001F0: 31 37 36 2C 32 2C 31 33 33 00 3B 0A 09 00 83 32 |176,2,133.;....2|
00000200: 35 30 2C 31 36 35 2C 35 36 2C 31 34 31 2C 32 34 |50,165,56,141,24|
00000210: 31 2C 32 30 33 2C 31 36 35 2C 35 35 2C 31 34 31 |1,203,165,55,141|
00000220: 2C 32 34 30 2C 32 30 33 2C 31 33 33 2C 35 31 2C |,240,203,133,51,|
00000230: 32 34 2C 32 34 30 2C 31 2C 35 36 00 7C 0A 0A 00 |24,240,1,56.|...|
00000240: 83 31 37 33 2C 32 34 31 2C 32 30 33 2C 31 33 33 |.173,241,203,133|
00000250: 2C 35 32 2C 32 33 33 2C 30 2C 31 33 33 2C 32 35 |,52,233,0,133,25|
00000260: 31 2C 31 30 35 2C 30 2C 31 33 33 2C 32 35 32 2C |1,105,0,133,252,|
00000270: 31 36 35 2C 35 30 2C 31 30 35 2C 31 00 BC 0A 0B |165,50,105,1....|
00000280: 00 83 31 33 33 2C 32 35 34 2C 31 36 35 2C 34 35 |..133,254,165,45|
00000290: 2C 32 33 33 2C 36 2C 31 33 33 2C 39 35 2C 31 36 |,233,6,133,95,16|
000002A0: 35 2C 34 36 2C 32 33 33 2C 30 2C 31 33 33 2C 39 |5,46,233,0,133,9|
000002B0: 36 2C 31 36 35 2C 34 37 2C 31 33 33 00 03 0B 0C |6,165,47,133....|
000002C0: 00 83 32 35 33 2C 31 36 35 2C 32 35 31 2C 32 30 |..253,165,251,20|
000002D0: 35 2C 32 33 39 2C 32 30 33 2C 31 34 34 2C 35 36 |5,239,203,144,56|
000002E0: 2C 32 32 39 2C 32 35 30 2C 31 33 33 2C 32 34 38 |,229,250,133,248|
000002F0: 2C 31 36 35 2C 35 32 2C 32 32 39 2C 32 35 31 2C |,165,52,229,251,|
00000300: 32 32 39 00 45 0B 0D 00 83 32 34 38 2C 37 33 2C |229.E....248,73,|
00000310: 32 35 35 2C 31 30 35 2C 32 2C 31 39 37 2C 32 34 |255,105,2,197,24|
00000320: 38 2C 31 34 34 2C 32 2C 31 36 35 2C 32 34 38 2C |8,144,2,165,248,|
00000330: 32 30 35 2C 32 33 39 2C 32 30 33 2C 31 37 36 2C |205,239,203,176,|
00000340: 35 2C 31 37 33 00 86 0B 0E 00 83 32 33 39 2C 32 |5,173......239,2|
00000350: 30 33 2C 32 33 33 2C 30 2C 31 33 33 2C 32 35 31 |03,233,0,133,251|
00000360: 2C 33 32 2C 31 33 37 2C 32 30 33 2C 31 36 36 2C |,32,137,203,166,|
00000370: 34 38 2C 33 32 2C 32 35 30 2C 32 30 32 2C 31 37 |48,32,250,202,17|
00000380: 36 2C 39 2C 33 32 00 C8 0B 0F 00 83 34 36 2C 32 |6,9,32......46,2|
00000390: 30 33 2C 31 36 35 2C 32 35 31 2C 31 33 33 2C 32 |03,165,251,133,2|
000003A0: 35 32 2C 31 34 34 2C 31 38 32 2C 31 36 32 2C 31 |52,144,182,162,1|
000003B0: 36 2C 37 36 2C 35 38 2C 31 36 34 2C 39 36 2C 32 |6,76,58,164,96,2|
000003C0: 34 2C 31 36 35 2C 39 35 00 05 0C 10 00 83 31 30 |4,165,95......10|
000003D0: 35 2C 37 2C 31 33 33 2C 39 35 2C 31 34 34 2C 32 |5,7,133,95,144,2|
000003E0: 2C 32 33 30 2C 39 36 2C 36 39 2C 34 37 2C 32 30 |,230,96,69,47,20|
000003F0: 38 2C 34 2C 32 32 38 2C 39 36 2C 32 34 30 2C 33 |8,4,228,96,240,3|
00000400: 31 2C 31 36 30 00 43 0C 11 00 83 30 2C 31 37 37 |1,160.C....0,177|
00000410: 2C 39 35 2C 32 30 30 2C 38 31 2C 39 35 2C 31 36 |,95,200,81,95,16|
00000420: 2C 32 32 38 2C 31 37 37 2C 39 35 2C 31 36 2C 32 |,228,177,95,16,2|
00000430: 32 34 2C 31 36 30 2C 34 2C 31 37 37 2C 39 35 2C |24,160,4,177,95,|
00000440: 31 39 37 00 88 0C 12 00 83 32 35 31 2C 31 34 34 |197......251,144|
00000450: 2C 32 31 37 2C 31 39 37 2C 32 35 32 2C 31 37 36 |,217,197,252,176|
00000460: 2C 32 31 32 2C 33 32 2C 31 36 39 2C 32 30 33 2C |,212,32,169,203,|
00000470: 31 34 34 2C 32 30 38 2C 39 36 2C 32 34 2C 39 36 |144,208,96,24,96|
00000480: 2C 31 36 35 2C 32 35 33 00 C7 0C 13 00 83 31 33 |,165,253......13|
00000490: 33 2C 39 35 2C 31 33 34 2C 39 36 2C 36 39 2C 34 |3,95,134,96,69,4|
000004A0: 39 2C 32 30 38 2C 34 2C 32 32 38 2C 35 30 2C 31 |9,208,4,228,50,1|
000004B0: 37 36 2C 32 34 30 2C 31 36 30 2C 32 2C 31 37 37 |76,240,160,2,177|
000004C0: 2C 39 35 2C 31 30 31 00 07 0D 14 00 83 39 35 2C |,95,101......95,|
000004D0: 31 33 33 2C 32 35 33 2C 32 30 30 2C 31 37 37 2C |133,253,200,177,|
000004E0: 39 35 2C 31 30 31 2C 39 36 2C 31 37 30 2C 31 36 |95,101,96,170,16|
000004F0: 30 2C 30 2C 31 37 37 2C 39 35 2C 32 30 30 2C 38 |0,0,177,95,200,8|
00000500: 31 2C 39 35 2C 31 36 00 45 0D 15 00 83 32 31 39 |1,95,16.E....219|
00000510: 2C 31 36 30 2C 34 2C 31 37 37 2C 39 35 2C 31 30 |,160,4,177,95,10|
00000520: 2C 31 30 35 2C 35 2C 31 30 31 2C 39 35 2C 31 33 |,105,5,101,95,13|
00000530: 33 2C 39 35 2C 31 34 34 2C 32 2C 32 33 30 2C 39 |3,95,144,2,230,9|
00000540: 36 2C 31 36 30 00 84 0D 16 00 83 32 2C 31 37 37 |6,160......2,177|
00000550: 2C 39 35 2C 31 39 37 2C 32 35 31 2C 31 34 34 2C |,95,197,251,144,|
00000560: 31 31 2C 31 39 37 2C 32 35 32 2C 31 37 36 2C 36 |11,197,252,176,6|
00000570: 2C 33 32 2C 31 36 39 2C 32 30 33 2C 31 34 34 2C |,32,169,203,144,|
00000580: 32 2C 39 36 00 C4 0D 17 00 83 32 34 2C 31 36 39 |2,96......24,169|
00000590: 2C 33 2C 31 30 31 2C 39 35 2C 31 33 33 2C 39 35 |,3,101,95,133,95|
000005A0: 2C 31 34 34 2C 32 2C 32 33 30 2C 39 36 2C 31 39 |,144,2,230,96,19|
000005B0: 37 2C 32 35 33 2C 32 30 38 2C 32 32 33 2C 32 32 |7,253,208,223,22|
000005C0: 38 2C 39 36 00 08 0E 18 00 83 32 30 38 2C 32 31 |8,96......208,21|
000005D0: 39 2C 32 34 30 2C 31 36 35 2C 31 36 35 2C 32 34 |9,240,165,165,24|
000005E0: 38 2C 31 33 33 2C 37 39 2C 31 36 35 2C 32 34 39 |8,133,79,165,249|
000005F0: 2C 31 33 33 2C 38 39 2C 31 36 30 2C 30 2C 31 33 |,133,89,160,0,13|
00000600: 32 2C 37 38 2C 31 33 32 00 4C 0E 19 00 83 38 38 |2,78,132.L....88|
00000610: 2C 31 36 36 2C 32 35 30 2C 32 33 32 2C 31 37 37 |,166,250,232,177|
00000620: 2C 37 38 2C 31 34 35 2C 38 38 2C 32 30 30 2C 32 |,78,145,88,200,2|
00000630: 30 38 2C 32 34 39 2C 32 33 30 2C 38 39 2C 32 33 |08,249,230,89,23|
00000640: 30 2C 37 39 2C 32 30 32 2C 32 30 38 00 8D 0E 1A |0,79,202,208....|
00000650: 00 83 32 34 32 2C 39 36 2C 37 32 2C 31 32 30 2C |..242,96,72,120,|
00000660: 31 36 39 2C 35 33 2C 31 33 33 2C 31 2C 31 30 34 |169,53,133,1,104|
00000670: 2C 31 39 37 2C 32 34 38 2C 31 34 34 2C 35 2C 32 |,197,248,144,5,2|
00000680: 32 39 2C 32 34 38 2C 32 34 2C 31 30 31 00 DA 0E |29,248,24,101...|
00000690: 1B 00 83 32 34 39 2C 31 33 33 2C 37 39 2C 31 33 |...249,133,79,13|
000006A0: 36 2C 31 37 37 2C 39 35 2C 31 33 33 2C 37 38 2C |6,177,95,133,78,|
000006B0: 31 33 36 2C 35 36 2C 31 36 35 2C 35 31 2C 32 34 |136,56,165,51,24|
000006C0: 31 2C 39 35 2C 31 33 33 2C 35 31 2C 32 30 30 2C |1,95,133,51,200,|
000006D0: 31 34 35 2C 39 35 2C 31 36 35 00 25 0F 1C 00 83 |145,95,165.%....|
000006E0: 35 32 2C 32 33 33 2C 30 2C 31 33 33 2C 35 32 2C |52,233,0,133,52,|
000006F0: 32 30 30 2C 31 34 35 2C 39 35 2C 31 33 36 2C 31 |200,145,95,136,1|
00000700: 33 36 2C 31 37 37 2C 39 35 2C 32 34 30 2C 39 2C |36,177,95,240,9,|
00000710: 31 36 38 2C 31 33 36 2C 31 37 37 2C 37 38 2C 31 |168,136,177,78,1|
00000720: 34 35 2C 35 31 00 6D 0F 1D 00 83 31 35 32 2C 32 |45,51.m....152,2|
00000730: 30 38 2C 32 34 38 2C 31 36 39 2C 35 34 2C 31 33 |08,248,169,54,13|
00000740: 33 2C 31 2C 38 38 2C 32 34 2C 31 36 35 2C 32 35 |3,1,88,24,165,25|
00000750: 34 2C 32 32 39 2C 35 32 2C 39 36 2C 2C 2C 2C 2C |4,229,52,96,,,,,|
00000760: 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 00 9D 0F |,,,,,,,,,,,,,...|
00000770: 1E 00 99 22 20 20 20 20 20 20 20 20 20 20 20 20 |..." |
00000780: 20 20 20 D3 48 41 52 45 57 41 52 45 22 3A 81 58 | .HAREWARE":.X|
00000790: B2 31 A4 34 30 3A 99 22 2D 22 3B 3A 82 00 E6 0F |.1.40:."-";:....|
000007A0: 1F 00 99 22 11 11 11 20 20 31 29 20 20 D2 45 41 |..."... 1) .EA|
000007B0: 44 20 53 45 51 55 45 4E 54 49 41 4C 20 46 49 4C |D SEQUENTIAL FIL|
000007C0: 45 2E 22 3A 99 22 11 20 20 32 29 20 20 D3 45 4E |E.":.". 2) .EN|
000007D0: 44 20 53 45 51 20 46 49 4C 45 20 54 4F 20 50 52 |D SEQ FILE TO PR|
000007E0: 49 4E 54 45 52 2E 00 11 10 20 00 99 22 11 20 20 |INTER.... ..". |
000007F0: 33 29 20 20 C1 50 50 45 4E 44 20 41 20 53 45 51 |3) .PPEND A SEQ|
00000800: 20 46 49 4C 45 20 54 4F 20 41 4E 4F 54 48 45 52 | FILE TO ANOTHER|
00000810: 2E 00 39 10 21 00 99 22 11 20 20 34 29 20 20 C5 |..9.!..". 4) .|
00000820: 44 49 54 20 41 4E 20 45 58 49 53 54 49 4E 47 20 |DIT AN EXISTING |
00000830: 53 45 51 20 46 49 4C 45 2E 00 56 10 22 00 99 22 |SEQ FILE..V.".."|
00000840: 11 20 20 35 29 20 20 D2 45 41 44 20 44 49 52 45 |. 5) .EAD DIRE|
00000850: 43 54 4F 52 59 2E 00 72 10 23 00 99 22 11 20 20 |CTORY..r.#..". |
00000860: 36 29 20 20 C5 58 49 54 20 54 4F 20 42 41 53 49 |6) .XIT TO BASI|
00000870: 43 2E 00 94 10 24 00 85 22 11 11 11 20 20 D9 4F |C....$.."... .O|
00000880: 55 52 20 43 48 4F 49 43 45 20 28 31 2D 36 29 22 |UR CHOICE (1-6)"|
00000890: 3B 49 4E 24 00 AE 10 28 00 8B 20 C5 28 49 4E 24 |;IN$...(.. .(IN$|
000008A0: 29 B3 30 B0 C5 28 49 4E 24 29 B1 36 A7 8A 00 D2 |).0..(IN$).6....|
000008B0: 10 2D 00 91 C5 28 49 4E 24 29 89 31 30 30 2C 32 |.-...(IN$).100,2|
000008C0: 30 30 2C 33 30 30 2C 34 30 30 2C 37 30 30 2C 38 |00,300,400,700,8|
000008D0: 30 30 00 FE 10 64 00 85 22 93 11 D3 45 51 20 46 |00...d.."...EQ F|
000008E0: 49 4C 45 20 54 4F 20 52 45 41 44 22 3B 53 24 3A |ILE TO READ";S$:|
000008F0: 9F 32 2C 38 2C 32 2C 53 24 AA 22 2C 53 22 00 2D |.2,8,2,S$.",S".-|
00000900: 11 66 00 99 22 93 11 20 20 20 D3 50 41 43 45 3D |.f..".. .PACE=|
00000910: 50 41 55 53 45 2F 52 45 53 55 4D 45 20 20 20 20 |PAUSE/RESUME |
00000920: 20 D2 45 54 55 52 4E 3D 51 55 49 54 11 00 6A 11 | .ETURN=QUIT..j.|
00000930: 68 00 99 22 20 20 20 5F 20 3D 4A 4D 50 20 32 35 |h.." _ =JMP 25|
00000940: 35 20 42 59 54 45 53 20 20 20 5E 20 3D 4A 4D 50 |5 BYTES ^ =JMP|
00000950: 20 35 30 20 4C 49 4E 45 53 22 3A 81 58 B2 31 A4 | 50 LINES":.X.1.|
00000960: 34 30 3A 99 22 2D 22 3B 3A 82 00 73 11 6A 00 8D |40:."-";:..s.j..|
00000970: 31 34 36 00 8B 11 6C 00 A1 23 32 2C 41 24 3A 99 |146...l..#2,A$:.|
00000980: 41 24 3B 3A 8B 53 54 A7 31 34 32 00 9E 11 6E 00 |A$;:.ST.142...n.|
00000990: A1 42 24 3A 8B 42 24 B2 22 22 A7 31 30 38 00 B0 |.B$:.B$."".108..|
000009A0: 11 70 00 8B 42 24 B2 C7 28 31 33 29 A7 31 32 36 |.p..B$..(13).126|
000009B0: 00 C0 11 72 00 8B 42 24 B2 22 20 22 A7 31 32 32 |...r..B$." ".122|
000009C0: 00 D0 11 74 00 8B 42 24 B2 22 5F 22 A7 31 32 38 |...t..B$."_".128|
000009D0: 00 EC 11 76 00 8B 42 24 B2 22 5E 22 A7 3A 43 54 |...v..B$."^".:CT|
000009E0: B2 30 3A 46 4C B2 30 3A 89 31 33 30 00 F5 11 78 |.0:FL.0:.130...x|
000009F0: 00 89 31 30 38 00 14 12 7A 00 81 58 B2 31 A4 36 |..108...z..X.1.6|
00000A00: 30 30 30 30 3A A1 43 24 3A 8B 43 24 B2 22 20 22 |0000:.C$:.C$." "|
00000A10: A7 31 30 38 00 1F 12 7C 00 82 3A 89 31 32 32 00 |.108...|..:.122.|
00000A20: 31 12 7E 00 98 32 3A A0 32 3A 97 31 2C 35 35 3A |1.~..2:.2:.1,55:|
00000A30: 8A 00 52 12 80 00 81 58 B2 31 A4 32 35 35 3A A1 |..R....X.1.255:.|
00000A40: 23 32 2C 44 24 3A 99 22 13 22 58 3A 82 3A 89 31 |#2,D$:."."X:.:.1|
00000A50: 30 32 00 76 12 82 00 81 58 B2 31 A4 32 35 36 3A |02.v....X.1.256:|
00000A60: A1 23 32 2C 45 24 3A 8B 45 24 B2 C7 28 31 33 29 |.#2,E$:.E$..(13)|
00000A70: A7 58 B2 32 35 36 00 8A 12 84 00 8B 45 24 B2 22 |.X.256......E$."|
00000A80: 47 22 A7 46 4C B2 46 4C AA 31 00 99 12 86 00 8B |G".FL.FL.1......|
00000A90: 46 4C B2 31 30 A7 31 34 32 00 9F 12 88 00 82 00 |FL.10.142.......|
00000AA0: BD 12 8A 00 43 54 B2 43 54 AA 31 3A 99 22 13 22 |....CT.CT.1:."."|
00000AB0: 43 54 3A 8B 43 54 B2 35 30 A7 31 30 32 00 C6 12 |CT:.CT.50.102...|
00000AC0: 8C 00 89 31 33 30 00 07 13 8E 00 9F 31 35 2C 38 |...130......15,8|
00000AD0: 2C 31 35 2C 22 49 30 22 3A A0 31 35 3A 99 3A 99 |,15,"I0":.15:.:.|
00000AE0: 22 11 20 20 20 20 C5 4E 44 20 4F 46 20 46 49 4C |". .ND OF FIL|
00000AF0: 45 2E 2E 2E 20 D0 52 45 53 53 20 D3 50 41 43 45 |E... .RESS .PACE|
00000B00: 42 41 52 2E 2E 2E 22 00 1A 13 8F 00 A1 41 24 3A |BAR..."......A$:|
00000B10: 8B 41 24 B2 22 22 A7 31 34 33 00 2D 13 90 00 8B |.A$."".143.-....|
00000B20: 41 24 B3 B1 C7 28 33 32 29 A7 31 34 33 00 36 13 |A$...(32).143.6.|
00000B30: 91 00 89 31 32 36 00 6C 13 92 00 97 38 38 2C 30 |...126.l....88,0|
00000B40: 3A 97 38 39 2C 31 39 32 3A 97 39 30 2C 30 3A 97 |:.89,192:.90,0:.|
00000B50: 39 31 2C 31 39 32 3A 97 37 38 31 2C 33 33 3A 97 |91,192:.781,33:.|
00000B60: 37 38 32 2C 30 3A 9E 34 31 39 36 34 00 A6 13 94 |782,0:.41964....|
00000B70: 00 97 38 38 2C 32 35 34 3A 97 38 39 2C 32 35 35 |..88,254:.89,255|
00000B80: 3A 97 39 30 2C 32 35 34 3A 97 39 31 2C 32 35 35 |:.90,254:.91,255|
00000B90: 3A 97 37 38 31 2C 33 33 3A 97 37 38 32 2C 30 3A |:.781,33:.782,0:|
00000BA0: 9E 34 31 39 36 34 00 BB 13 96 00 97 35 39 36 33 |.41964......5963|
00000BB0: 39 2C 34 3A 97 31 2C 35 33 3A 8E 00 F7 13 C8 00 |9,4:.1,53:......|
00000BC0: 99 22 93 11 20 D3 45 51 55 45 4E 54 49 41 4C 20 |.".. .EQUENTIAL |
00000BD0: C6 49 4C 45 20 D0 52 49 4E 54 45 52 2E 22 3A 99 |.ILE .RINTER.":.|
00000BE0: 22 11 20 D4 55 52 4E 20 4F 4E 20 50 52 49 4E 54 |". .URN ON PRINT|
00000BF0: 45 52 20 4E 4F 57 2E 00 25 14 CA 00 99 22 11 20 |ER NOW..%....". |
00000C00: D0 52 45 53 53 20 12 C1 92 20 54 4F 20 41 42 4F |.RESS ... TO ABO|
00000C10: 52 54 2C 20 4F 52 20 41 4E 59 20 4F 54 48 45 52 |RT, OR ANY OTHER|
00000C20: 20 4B 45 59 22 00 3A 14 CC 00 99 22 20 54 4F 20 | KEY".:...." TO |
00000C30: 43 4F 4E 54 49 4E 55 45 2E 22 00 51 14 CE 00 A1 |CONTINUE.".Q....|
00000C40: 20 49 4E 24 3A 8B 20 49 4E 24 B2 22 22 A7 32 30 | IN$:. IN$."".20|
00000C50: 36 00 61 14 D0 00 8B 20 49 4E 24 B2 22 41 22 A7 |6.a.... IN$."A".|
00000C60: 8A 00 7E 14 D2 00 9F 31 35 2C 38 2C 31 35 3A 9F |..~....15,8,15:.|
00000C70: 33 2C 34 2C 37 3A 97 38 30 38 2C 32 33 34 00 9C |3,4,7:.808,234..|
00000C80: 14 D4 00 85 22 93 11 D3 45 51 20 46 49 4C 45 20 |...."...EQ FILE |
00000C90: 54 4F 20 50 52 49 4E 54 22 3B 53 24 00 B6 14 D6 |TO PRINT";S$....|
00000CA0: 00 9F 32 2C 38 2C 32 2C 53 24 AA 22 2C 53 2C 52 |..2,8,2,S$.",S,R|
00000CB0: 22 3A 8D 32 33 36 00 E4 14 D8 00 99 22 93 20 20 |":.236......". |
00000CC0: 20 D3 50 41 43 45 3D 50 41 55 53 45 2F 52 45 53 | .PACE=PAUSE/RES|
00000CD0: 55 4D 45 20 20 20 20 20 D2 45 54 55 52 4E 3D 51 |UME .ETURN=Q|
00000CE0: 55 49 54 11 00 07 15 DA 00 A1 23 32 2C 41 24 3A |UIT.......#2,A$:|
00000CF0: 44 44 B2 53 54 3A 98 33 2C 41 24 3B 3A 8B 44 44 |DD.ST:.3,A$;:.DD|
00000D00: B2 36 34 A7 32 35 30 00 1A 15 DC 00 A1 42 24 3A |.64.250......B$:|
00000D10: 8B 42 24 B2 22 22 A7 32 31 38 00 2C 15 DE 00 8B |.B$."".218.,....|
00000D20: 42 24 B2 C7 28 31 33 29 A7 32 33 32 00 3C 15 E0 |B$..(13).232.<..|
00000D30: 00 8B 42 24 B2 22 20 22 A7 32 32 38 00 45 15 E2 |..B$." ".228.E..|
00000D40: 00 89 32 31 38 00 64 15 E4 00 81 58 B2 31 A4 36 |..218.d....X.1.6|
00000D50: 30 30 30 30 3A A1 43 24 3A 8B 43 24 B2 22 20 22 |0000:.C$:.C$." "|
00000D60: A7 32 31 38 00 6A 15 E6 00 82 00 89 15 E8 00 97 |.218.j..........|
00000D70: 38 30 38 2C 32 33 37 3A 98 32 3A A0 32 3A 98 33 |808,237:.2:.2:.3|
00000D80: 3A A0 33 3A A0 31 35 3A 8A 00 A0 15 EA 00 8F 20 |:.3:.15:....... |
00000D90: 44 49 53 4B 20 45 52 52 4F 52 20 43 48 45 43 4B |DISK ERROR CHECK|
00000DA0: 00 B3 15 EC 00 84 31 35 2C 45 2C 45 24 2C 45 31 |......15,E,E$,E1|
00000DB0: 2C 45 32 00 BE 15 EE 00 8B 45 B2 30 A7 8E 00 EE |,E2......E.0....|
00000DC0: 15 F0 00 45 45 24 B2 CA 28 C4 28 45 29 2C 32 29 |...EE$..(.(E),2)|
00000DD0: 3A 45 31 24 B2 CA 28 C4 28 45 31 29 2C 32 29 3A |:E1$..(.(E1),2):|
00000DE0: 45 32 24 B2 CA 28 C4 28 45 32 29 2C 32 29 00 FA |E2$..(.(E2),2)..|
00000DF0: 15 F2 00 8B 45 B2 36 33 A7 8E 00 2F 16 F4 00 99 |....E.63.../....|
00000E00: 3A 99 22 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 3B |:."...........";|
00000E10: 45 45 24 3B 22 2C 22 3B 45 24 3B 22 2C 22 3B 45 |EE$;",";E$;",";E|
00000E20: 31 24 3B 22 2C 22 3B 45 32 24 3A 89 32 33 32 00 |1$;",";E2$:.232.|
00000E30: 66 16 FA 00 97 38 30 38 2C 32 33 37 3A 98 32 3A |f....808,237:.2:|
00000E40: A0 32 3A 98 33 3A A0 33 3A A0 31 35 3A 99 22 93 |.2:.3:.3:.15:.".|
00000E50: 11 11 20 20 D0 52 49 4E 54 49 4E 47 20 43 4F 4D |.. .RINTING COM|
00000E60: 50 4C 45 54 45 21 00 92 16 FC 00 85 22 11 20 20 |PLETE!......". |
00000E70: D0 52 49 4E 54 20 41 4E 4F 54 48 45 52 20 46 49 |.RINT ANOTHER FI|
00000E80: 4C 45 20 28 59 2F 4E 29 20 20 59 9D 9D 9D 22 3B |LE (Y/N) Y...";|
00000E90: 41 24 00 A0 16 FE 00 8B 41 24 B2 22 4E 22 A7 8A |A$......A$."N"..|
00000EA0: 00 A9 16 00 01 89 32 30 30 00 E3 16 2C 01 99 22 |......200...,.."|
00000EB0: 93 11 11 22 A3 31 32 29 22 C1 50 50 45 4E 44 20 |...".12)".PPEND |
00000EC0: D3 45 51 20 C6 49 4C 45 53 22 3A 99 A3 31 32 29 |.EQ .ILES":..12)|
00000ED0: 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |"---------------|
00000EE0: 2D 11 11 00 0B 17 2E 01 99 22 20 20 C2 45 4C 4F |-........" .ELO|
00000EF0: 57 2C 20 45 4E 54 45 52 20 54 57 4F 20 46 49 4C |W, ENTER TWO FIL|
00000F00: 45 4E 41 4D 45 53 2E 20 D4 48 45 00 36 17 30 01 |ENAMES. .HE.6.0.|
00000F10: 99 22 20 20 46 49 52 53 54 20 4E 41 4D 45 20 49 |." FIRST NAME I|
00000F20: 53 20 54 48 45 20 46 49 4C 45 20 59 4F 55 20 57 |S THE FILE YOU W|
00000F30: 41 4E 54 20 54 4F 00 80 17 32 01 99 22 20 20 41 |ANT TO...2.." A|
00000F40: 44 44 20 28 41 50 50 45 4E 44 29 20 54 4F 20 54 |DD (APPEND) TO T|
00000F50: 48 45 20 53 45 43 4F 4E 44 20 46 49 4C 45 2E 20 |HE SECOND FILE. |
00000F60: D4 59 50 45 20 20 20 42 4F 54 48 20 46 49 4C 45 |.YPE BOTH FILE|
00000F70: 4E 41 4D 45 53 20 43 4F 52 52 45 43 54 4C 59 2C |NAMES CORRECTLY,|
00000F80: 00 BF 17 34 01 99 22 20 20 41 4E 44 20 45 4E 53 |...4.." AND ENS|
00000F90: 55 52 45 20 54 48 45 59 20 41 52 45 20 42 4F 54 |URE THEY ARE BOT|
00000FA0: 48 20 4C 4F 43 41 54 45 44 20 4F 4E 20 20 20 20 |H LOCATED ON |
00000FB0: 20 54 48 45 20 53 41 4D 45 20 44 49 53 4B 2E 00 | THE SAME DISK..|
00000FC0: 04 18 36 01 99 22 11 11 20 20 C6 31 20 3D 20 C4 |..6..".. .1 = .|
00000FD0: 49 52 45 43 54 4F 52 59 22 3A 99 22 20 20 C6 33 |IRECTORY":." .3|
00000FE0: 20 3D 20 D2 45 54 55 52 4E 20 54 4F 20 CD 41 49 | = .ETURN TO .AI|
00000FF0: 4E 22 3A 99 22 20 20 C6 35 20 3D 20 C3 4F 4E 54 |N":." .5 = .ONT|
00001000: 49 4E 55 45 00 17 18 38 01 A1 41 24 3A 8B 41 24 |INUE...8..A$:.A$|
00001010: B2 22 22 A7 33 31 32 00 38 18 3A 01 8B 41 24 B3 |."".312.8.:..A$.|
00001020: B1 22 85 22 AF 41 24 B3 B1 22 86 22 AF 41 24 B3 |.".".A$..".".A$.|
00001030: B1 22 87 22 A7 33 31 32 00 4E 18 3C 01 8B 41 24 |.".".312.N.<..A$|
00001040: B2 22 85 22 A7 41 50 B2 31 3A 89 37 30 30 00 5C |.".".AP.1:.700.\|
00001050: 18 3E 01 8B 41 24 B2 22 86 22 A7 8A 00 7B 18 40 |.>..A$."."...{.@|
00001060: 01 99 22 91 91 91 22 3B 3A 81 58 B2 31 A4 31 30 |.."...";:.X.1.10|
00001070: 30 3A 99 22 20 22 3B 3A 82 3A 99 00 9A 18 41 01 |0:." ";:.:....A.|
00001080: 85 22 91 91 91 20 20 C6 49 52 53 54 20 46 49 4C |."... .IRST FIL|
00001090: 45 4E 41 4D 45 22 3B 52 44 24 00 B8 18 42 01 85 |ENAME";RD$...B..|
000010A0: 22 91 20 20 D3 45 43 4F 4E 44 20 46 49 4C 45 4E |". .ECOND FILEN|
000010B0: 41 4D 45 22 3B 57 52 24 00 00 19 43 01 99 22 11 |AME";WR$...C..".|
000010C0: 20 20 C1 50 50 45 4E 44 20 27 22 52 44 24 22 27 | .PPEND '"RD$"'|
000010D0: 20 54 4F 20 27 22 57 52 24 22 27 22 3A 85 22 20 | TO '"WR$"'":." |
000010E0: 20 C9 53 20 54 48 49 53 20 43 4F 52 52 45 43 54 | .S THIS CORRECT|
000010F0: 20 28 59 2F 4E 29 20 20 59 9D 9D 9D 22 3B 41 24 | (Y/N) Y...";A$|
00001100: 00 22 19 44 01 8B 41 24 B3 B1 22 59 22 AF 41 24 |.".D..A$.."Y".A$|
00001110: B3 B1 22 4E 22 A7 99 22 91 91 91 91 22 3A 89 33 |.."N".."....":.3|
00001120: 32 33 00 32 19 45 01 8B 41 24 B2 22 4E 22 A7 33 |23.2.E..A$."N".3|
00001130: 30 30 00 3F 19 46 01 9F 31 35 2C 38 2C 31 35 00 |00.?.F..15,8,15.|
00001140: 83 19 47 01 9F 32 2C 38 2C 32 2C 22 30 3A 22 AA |..G..2,8,2,"0:".|
00001150: 52 44 24 AA 22 2C 53 2C 52 22 3A 8F 20 20 20 20 |RD$.",S,R":. |
00001160: 20 20 20 20 20 20 20 2A 2A 2A 20 52 45 41 44 20 | *** READ |
00001170: 46 52 4F 4D 20 54 48 49 53 20 46 49 4C 45 2E 20 |FROM THIS FILE. |
00001180: 2A 2A 2A 00 C4 19 48 01 8D 33 37 35 3A 8B C5 28 |***...H..375:..(|
00001190: 41 24 29 B1 31 39 A7 99 22 93 11 11 20 20 C6 49 |A$).19.."... .I|
000011A0: 4C 45 20 23 31 20 4E 4F 54 20 46 4F 55 4E 44 2E |LE #1 NOT FOUND.|
000011B0: 2E 2E 22 3A 81 58 B2 31 A4 32 30 30 30 3A 82 3A |..":.X.1.2000:.:|
000011C0: 89 33 35 30 00 10 1A 49 01 9F 33 2C 38 2C 33 2C |.350...I..3,8,3,|
000011D0: 22 30 3A 22 AA 57 52 24 AA 22 2C 41 22 3A 8F 20 |"0:".WR$.",A":. |
000011E0: 20 20 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 20 | *** |
000011F0: 41 50 50 45 4E 44 20 28 57 52 49 54 45 29 20 54 |APPEND (WRITE) T|
00001200: 4F 20 54 48 49 53 20 46 49 4C 45 2E 20 2A 2A 2A |O THIS FILE. ***|
00001210: 00 51 1A 4A 01 8D 33 37 35 3A 8B C5 28 41 24 29 |.Q.J..375:..(A$)|
00001220: B1 31 39 A7 99 22 93 11 11 20 20 C6 49 4C 45 20 |.19.."... .ILE |
00001230: 23 32 20 4E 4F 54 20 46 4F 55 4E 44 2E 2E 2E 22 |#2 NOT FOUND..."|
00001240: 3A 81 58 B2 31 A4 32 30 30 30 3A 82 3A 89 33 35 |:.X.1.2000:.:.35|
00001250: 30 00 5C 1A 4C 01 A1 23 32 2C 41 24 00 89 1A 4F |0.\.L..#2,A$...O|
00001260: 01 8B 53 54 B1 31 39 A7 20 98 33 2C 41 24 3A A0 |..ST.19. .3,A$:.|
00001270: 33 3A 98 32 3A A0 32 3A 98 31 35 2C 22 49 30 22 |3:.2:.2:.15,"I0"|
00001280: 3A A0 31 35 3A 89 33 35 35 00 94 1A 54 01 98 33 |:.15:.355...T..3|
00001290: 2C 41 24 3B 00 9D 1A 59 01 89 33 33 32 00 C2 1A |,A$;...Y..332...|
000012A0: 5E 01 A0 33 3A A0 32 3A A0 31 35 3A 9F 31 35 2C |^..3:.2:.15:.15,|
000012B0: 38 2C 31 35 2C 22 49 30 22 3A A0 31 35 3A 89 33 |8,15,"I0":.15:.3|
000012C0: 30 30 00 06 1B 63 01 99 22 93 11 11 20 20 CA 4F |00...c.."... .O|
000012D0: 42 20 43 4F 4D 50 4C 45 54 45 21 22 3A 85 22 11 |B COMPLETE!":.".|
000012E0: 20 20 CD 4F 52 45 20 46 49 4C 45 53 20 54 4F 20 | .ORE FILES TO |
000012F0: 41 50 50 45 4E 44 20 28 59 2F 4E 29 20 20 59 9D |APPEND (Y/N) Y.|
00001300: 9D 9D 22 3B 41 24 00 1F 1B 68 01 8B 41 24 B3 B1 |..";A$...h..A$..|
00001310: 22 59 22 AF 41 24 B3 B1 22 4E 22 A7 33 35 35 00 |"Y".A$.."N".355.|
00001320: 2D 1B 6D 01 8B 41 24 B2 22 4E 22 A7 8A 00 36 1B |-.m..A$."N"...6.|
00001330: 72 01 89 33 30 30 00 4C 1B 77 01 84 31 35 2C 41 |r..300.L.w..15,A|
00001340: 24 2C 42 24 2C 43 24 2C 44 24 3A 8E 00 70 1B 90 |$,B$,C$,D$:..p..|
00001350: 01 5A 24 B2 C7 28 32 30 29 3A 41 B2 33 30 30 30 |.Z$..(20):A.3000|
00001360: 3A 8B C2 28 35 36 29 B3 36 34 A7 41 B2 31 30 30 |:..(56).64.A.100|
00001370: 00 AA 1B 92 01 86 41 24 28 41 29 3A 99 22 93 05 |......A$(A):."..|
00001380: 22 C7 28 31 34 29 C7 28 38 29 3B 3A 9F 31 2C 30 |".(14).(8);:.1,0|
00001390: 2C 30 3A 56 B2 32 30 33 3A 8B C2 28 37 37 31 29 |,0:V.203:..(771)|
000013A0: B2 31 36 34 A7 56 B2 32 31 32 00 DD 1B 94 01 4C |.164.V.212.....L|
000013B0: 49 24 B2 22 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |I$."............|
000013C0: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
000013D0: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 22 00 0D 1C |............"...|
000013E0: 96 01 99 22 20 20 20 20 20 20 20 20 D3 45 51 55 |..." .EQU|
000013F0: 45 4E 54 49 41 4C 20 C6 49 4C 45 20 C5 44 49 54 |ENTIAL .ILE .DIT|
00001400: 4F 52 22 3A 99 4C 49 24 22 11 11 11 22 00 54 1C |OR":.LI$"...".T.|
00001410: 98 01 99 22 C5 4E 54 45 52 20 54 48 45 20 4E 41 |...".NTER THE NA|
00001420: 4D 45 20 4F 46 20 54 48 45 20 46 49 4C 45 20 59 |ME OF THE FILE Y|
00001430: 4F 55 20 57 49 53 48 20 54 4F 20 20 45 44 49 54 |OU WISH TO EDIT|
00001440: 20 41 4E 44 20 50 52 45 53 53 20 D2 C5 D4 D5 D2 | AND PRESS .....|
00001450: CE 11 11 22 00 78 1C 9A 01 99 22 3E 22 3B 3A 84 |...".x....">";:.|
00001460: 31 2C 46 49 24 3A 99 22 11 22 3A 46 49 24 B2 C8 |1,FI$:.".":FI$..|
00001470: 28 46 49 24 2C 31 36 29 00 B8 1C 9C 01 99 22 46 |(FI$,16)......"F|
00001480: 49 4C 45 4E 41 4D 45 20 49 53 20 22 C7 28 33 34 |ILENAME IS ".(34|
00001490: 29 46 49 24 C7 28 33 34 29 3A 99 22 11 C9 53 20 |)FI$.(34):."..S |
000014A0: 54 48 49 53 20 43 4F 52 52 45 43 54 3F 20 28 59 |THIS CORRECT? (Y|
000014B0: 2F 4E 29 20 59 9D 22 3B 00 D7 1C 9E 01 84 31 2C |/N) Y.";......1,|
000014C0: 41 24 3A 99 3A 8B C3 28 41 24 29 B2 30 A7 99 22 |A$:.:..(A$).0.."|
000014D0: 91 22 3A 89 34 31 34 00 F5 1C A0 01 41 24 B2 C8 |.":.414.....A$..|
000014E0: 28 41 24 2C 31 29 3A 8B 41 24 B2 22 59 22 A7 99 |(A$,1):.A$."Y"..|
000014F0: 3A 89 34 32 30 00 FE 1C A2 01 8A 34 30 30 00 2F |:.420......400./|
00001500: 1D A4 01 99 22 C4 49 53 4B 20 C4 52 49 56 45 20 |....".ISK .RIVE |
00001510: 23 20 28 38 2D 31 30 29 20 38 9D 22 3B 3A 84 31 |# (8-10) 8.";:.1|
00001520: 2C 41 24 3A 44 52 B2 B5 28 C5 28 41 24 29 29 00 |,A$:DR..(.(A$)).|
00001530: 57 1D A6 01 8B 44 52 B3 38 B0 44 52 B1 31 30 A7 |W....DR.8.DR.10.|
00001540: 99 3A 99 A6 32 32 29 22 91 20 20 20 20 20 20 20 |.:..22)". |
00001550: 91 22 3A 89 34 32 30 00 7C 1D A8 01 99 22 93 20 |.":.420.|....". |
00001560: 20 D2 45 41 44 49 4E 47 20 22 C7 28 33 34 29 46 | .EADING ".(34)F|
00001570: 49 24 C7 28 33 34 29 3A 99 4C 49 24 00 9F 1D AA |I$.(34):.LI$....|
00001580: 01 46 32 24 B2 46 49 24 AA 22 2C 53 2C 52 22 3A |.F2$.FI$.",S,R":|
00001590: 4C 4E B2 31 3A 99 22 20 20 31 20 3A 20 22 3B 00 |LN.1:." 1 : ";.|
000015A0: B6 1D AC 01 9F 38 2C 44 52 2C 38 2C 46 32 24 3A |.....8,DR,8,F2$:|
000015B0: A1 23 38 2C 41 24 00 E2 1D AE 01 8B 53 54 B3 B1 |.#8,A$......ST..|
000015C0: 30 A7 99 22 C6 49 4C 45 20 CE 4F 54 20 C6 4F 55 |0..".ILE .OT .OU|
000015D0: 4E 44 22 3A 8D 36 33 30 3A 8D 36 32 38 3A 8A 34 |ND":.630:.628:.4|
000015E0: 30 30 00 EB 1D B0 01 89 34 33 36 00 F6 1D B2 01 |00......436.....|
000015F0: A1 23 38 2C 41 24 00 16 1E B4 01 8B 41 24 B3 B1 |.#8,A$......A$..|
00001600: C7 28 31 33 29 A7 41 24 28 4C 4E 29 B2 41 24 28 |.(13).A$(LN).A$(|
00001610: 4C 4E 29 AA 41 24 00 47 1E B6 01 8B 20 C3 28 41 |LN).A$.G.... .(A|
00001620: 24 28 4C 4E 29 29 B2 32 35 33 A7 41 24 28 4C 4E |$(LN)).253.A$(LN|
00001630: 29 B2 41 24 28 4C 4E 29 AA C7 28 31 33 29 3A 41 |).A$(LN)..(13):A|
00001640: 24 B2 C7 28 31 33 29 00 5C 1E B8 01 8B 53 54 B3 |$..(13).\....ST.|
00001650: B1 30 A7 8D 36 33 30 3A 89 34 35 32 00 6E 1E BA |.0..630:.452.n..|
00001660: 01 8B 41 24 B2 C7 28 31 33 29 A7 34 34 36 00 7C |..A$..(13).446.||
00001670: 1E BC 01 99 41 24 3B 3A 89 34 33 34 00 93 1E BE |....A$;:.434....|
00001680: 01 42 24 B2 22 22 3A 8B 4C 4E B3 39 A7 42 24 B2 |.B$."":.LN.9.B$.|
00001690: 22 20 22 00 B8 1E C0 01 99 3A 4C 4E B2 4C 4E AA |" "......:LN.LN.|
000016A0: 31 3A 99 42 24 3B 4C 4E 22 3A 20 22 3B 3A 8B 53 |1:.B$;LN": ";:.S|
000016B0: 54 B3 B1 30 A7 34 35 32 00 C1 1E C2 01 89 34 33 |T..0.452......43|
000016C0: 34 00 E1 1E C4 01 A0 38 3A 99 22 93 22 A6 31 33 |4......8:.".".13|
000016D0: 29 22 CD 41 49 4E 20 CD 45 4E 55 22 3A 99 4C 49 |)".AIN .ENU":.LI|
000016E0: 24 00 1C 1F C6 01 99 22 5B 31 5D 20 CC 49 53 54 |$......"[1] .IST|
000016F0: 20 C6 49 4C 45 22 3A 99 22 11 5B 32 5D 20 C5 44 | .ILE":.".[2] .D|
00001700: 49 54 20 CC 49 4E 45 22 3A 99 22 11 5B 33 5D 20 |IT .INE":.".[3] |
00001710: C9 4E 53 45 52 54 20 CC 49 4E 45 22 00 4B 1F C8 |.NSERT .INE".K..|
00001720: 01 99 22 11 5B 34 5D 20 C4 45 4C 45 54 45 20 CC |..".[4] .ELETE .|
00001730: 49 4E 45 22 3A 99 22 11 5B 35 5D 20 D2 45 2D D2 |INE":.".[5] .E-.|
00001740: 55 4E 20 D0 52 4F 47 52 41 4D 22 00 90 1F CA 01 |UN .ROGRAM".....|
00001750: 99 22 11 5B 36 5D 20 D2 45 2D D3 41 56 45 20 C6 |.".[6] .E-.AVE .|
00001760: 49 4C 45 20 41 46 54 45 52 20 C5 44 49 54 49 4E |ILE AFTER .DITIN|
00001770: 47 22 3A 99 22 11 5B 37 5D 20 D0 52 49 4E 54 20 |G":.".[7] .RINT |
00001780: C6 49 4C 45 20 54 4F 20 D0 52 49 4E 54 45 52 22 |.ILE TO .RINTER"|
00001790: 00 AA 1F CC 01 99 22 11 5B 38 5D 20 C5 58 49 54 |......".[8] .XIT|
000017A0: 20 C5 44 49 54 4F 52 11 11 22 00 D5 1F CE 01 99 | .DITOR.."......|
000017B0: 22 C5 4E 54 45 52 20 59 4F 55 52 20 43 48 4F 49 |".NTER YOUR CHOI|
000017C0: 43 45 20 41 4E 44 20 50 52 45 53 53 20 D2 C5 D4 |CE AND PRESS ...|
000017D0: D5 D2 CE 11 22 00 FD 1F D0 01 99 22 3E 22 3B 3A |...."......">";:|
000017E0: 84 31 2C 41 24 3A 41 B2 B5 28 C5 28 41 24 29 29 |.1,A$:A..(.(A$))|
000017F0: 3A 8B 41 B3 31 B0 41 B1 38 A7 34 35 32 00 24 20 |:.A.1.A.8.452.$ |
00001800: D2 01 91 41 89 34 36 38 2C 35 30 34 2C 35 32 30 |...A.468,504,520|
00001810: 2C 35 34 30 2C 35 36 30 2C 35 36 36 2C 35 37 38 |,540,560,566,578|
00001820: 2C 36 30 30 00 41 20 D4 01 99 22 93 22 A6 31 33 |,600.A ...".".13|
00001830: 29 22 CC 49 53 54 20 C6 49 4C 45 22 3A 99 4C 49 |)".IST .ILE":.LI|
00001840: 24 00 6F 20 D6 01 99 22 D0 52 45 53 53 20 28 C1 |$.o ...".RESS (.|
00001850: 29 20 54 4F 20 41 42 4F 52 54 20 4F 52 20 28 D3 |) TO ABORT OR (.|
00001860: D0 C1 C3 C5 29 20 54 4F 20 50 41 55 53 45 22 00 |....) TO PAUSE".|
00001870: A1 20 D8 01 99 22 11 28 12 D7 92 29 49 54 48 20 |. ...".(...)ITH |
00001880: 4F 52 20 D7 49 54 48 28 12 CF 92 29 55 54 20 4C |OR .ITH(...)UT L|
00001890: 49 4E 45 20 4E 55 4D 42 45 52 53 3F 20 57 9D 22 |INE NUMBERS? W."|
000018A0: 3B 00 CB 20 DA 01 84 31 2C 41 24 3A 41 24 B2 C8 |;.. ...1,A$:A$..|
000018B0: 28 41 24 2C 31 29 3A 8B 41 24 B3 B1 22 57 22 AF |(A$,1):.A$.."W".|
000018C0: 41 24 B3 B1 22 4F 22 A7 34 37 34 00 ED 20 DC 01 |A$.."O".474.. ..|
000018D0: 8D 31 34 36 3A 99 22 11 22 3A 81 52 B2 31 A4 4C |.146:.".":.R.1.L|
000018E0: 4E 3A 8B 41 24 B2 22 4F 22 A7 34 38 32 00 04 21 |N:.A$."O".482..!|
000018F0: DE 01 42 24 B2 22 22 3A 8B 52 B3 31 30 A7 42 24 |..B$."":.R.10.B$|
00001900: B2 22 20 22 00 13 21 E0 01 99 42 24 3B 52 22 3A |." "..!...B$;R":|
00001910: 20 22 3B 00 1E 21 E2 01 99 41 24 28 52 29 00 34 | ";..!...A$(R).4|
00001920: 21 E6 01 A1 43 24 3A 8B 43 24 B2 22 22 A7 82 3A |!...C$:.C$.""..:|
00001930: 89 34 39 38 00 58 21 E8 01 8B 43 24 B2 22 41 22 |.498.X!...C$."A"|
00001940: A7 99 3A 99 22 11 12 2A 20 C1 42 4F 52 54 45 44 |..:."..* .BORTED|
00001950: 20 2A 22 3A 89 34 39 38 00 69 21 EA 01 8B 43 24 | *":.498.i!...C$|
00001960: B3 B1 22 20 22 A7 34 38 36 00 7C 21 EC 01 99 22 |.." ".486.|!..."|
00001970: 12 2A 20 D0 41 55 53 45 44 20 2A 22 00 8F 21 EE |.* .AUSED *"..!.|
00001980: 01 A1 43 24 3A 8B 43 24 B2 22 22 A7 34 39 34 00 |..C$:.C$."".494.|
00001990: AE 21 F0 01 99 22 91 20 20 20 20 20 20 20 20 20 |.!...". |
000019A0: 20 20 22 3A 99 22 91 22 3B 3A 89 34 38 36 00 D4 | ":.".";:.486..|
000019B0: 21 F2 01 99 22 11 20 20 D0 52 45 53 53 20 41 4E |!...". .RESS AN|
000019C0: 59 20 4B 45 59 20 46 4F 52 20 CD 41 49 4E 20 CD |Y KEY FOR .AIN .|
000019D0: 45 4E 55 22 00 E7 21 F4 01 A1 43 24 3A 8B 43 24 |ENU"..!...C$:.C$|
000019E0: B2 22 22 A7 35 30 30 00 F6 21 F6 01 97 31 2C 35 |."".500..!...1,5|
000019F0: 35 3A 89 34 35 32 00 34 22 F8 01 99 22 93 22 A6 |5:.452.4"...".".|
00001A00: 31 33 29 22 C5 44 49 54 20 CC 49 4E 45 22 3A 99 |13)".DIT .INE":.|
00001A10: 4C 49 24 3A 99 22 11 D7 48 49 43 48 20 4C 49 4E |LI$:."..HICH LIN|
00001A20: 45 20 4E 55 4D 42 45 52 20 54 4F 20 45 44 49 54 |E NUMBER TO EDIT|
00001A30: 3F 20 22 3B 00 4B 22 FA 01 84 31 2C 41 24 3A 41 |? ";.K"...1,A$:A|
00001A40: B2 B5 28 C5 28 41 24 29 29 3A 99 00 5E 22 FC 01 |..(.(A$)):..^"..|
00001A50: 8B 41 B1 30 AF 41 B3 B2 4C 4E A7 35 31 32 00 80 |.A.0.A..LN.512..|
00001A60: 22 FE 01 99 22 11 C2 41 44 20 4C 49 4E 45 20 4E |"..."..AD LINE N|
00001A70: 55 4D 42 45 52 22 3A 8D 36 33 30 3A 89 35 30 34 |UMBER":.630:.504|
00001A80: 00 B0 22 00 02 99 22 11 20 22 41 24 28 41 29 3A |.."...". "A$(A):|
00001A90: 99 22 11 D2 45 54 59 50 45 20 4C 49 4E 45 20 4F |."..ETYPE LINE O|
00001AA0: 52 20 50 52 45 53 53 20 D2 C5 D4 D5 D2 CE 11 22 |R PRESS ......."|
00001AB0: 00 C1 22 02 02 99 22 3E 22 3B 3A 8D 36 30 38 3A |.."...">";:.608:|
00001AC0: 99 00 EC 22 04 02 8B 54 24 B2 C7 28 31 33 29 AF |..."...T$..(13).|
00001AD0: 50 B2 30 A7 99 22 11 D5 4E 2D 43 48 41 4E 47 45 |P.0.."..N-CHANGE|
00001AE0: 44 22 3A 8D 36 33 30 3A 89 34 35 32 00 0F 23 06 |D":.630:.452..#.|
00001AF0: 02 99 22 11 C3 48 41 4E 47 45 44 22 3A 8D 36 33 |.."..HANGED":.63|
00001B00: 30 3A 41 24 28 41 29 B2 41 24 3A 89 34 35 32 00 |0:A$(A).A$:.452.|
00001B10: 30 23 08 02 99 22 93 22 A6 31 33 29 22 C9 4E 53 |0#...".".13)".NS|
00001B20: 45 52 54 20 41 20 4C 49 4E 45 22 3A 99 4C 49 24 |ERT A LINE":.LI$|
00001B30: 00 5D 23 0A 02 99 22 11 11 D7 48 45 52 45 20 53 |.]#..."...HERE S|
00001B40: 48 4F 55 4C 44 20 54 48 45 20 4C 49 4E 45 20 42 |HOULD THE LINE B|
00001B50: 45 20 49 4E 53 45 52 54 45 44 3F 11 22 00 7A 23 |E INSERTED?.".z#|
00001B60: 0C 02 99 22 3E 22 3B 3A 84 31 2C 41 24 3A 41 B2 |...">";:.1,A$:A.|
00001B70: B5 28 C5 28 41 24 29 29 3A 99 00 8D 23 0E 02 8B |.(.(A$)):...#...|
00001B80: 41 B1 30 AF 41 B3 B2 4C 4E A7 35 33 30 00 B0 23 |A.0.A..LN.530..#|
00001B90: 10 02 99 3A 99 22 C2 41 44 20 4C 49 4E 45 20 4E |...:.".AD LINE N|
00001BA0: 55 4D 42 45 52 22 3A 8D 36 33 30 3A 89 35 32 30 |UMBER":.630:.520|
00001BB0: 00 F9 23 12 02 99 22 11 D7 48 41 54 20 57 4F 55 |..#..."..HAT WOU|
00001BC0: 4C 44 20 59 4F 55 20 4C 49 4B 45 20 54 48 41 54 |LD YOU LIKE THAT|
00001BD0: 20 4C 49 4E 45 20 54 4F 20 42 45 3F 20 20 20 20 | LINE TO BE? |
00001BE0: 28 50 52 45 53 53 20 D2 C5 D4 D5 D2 CE 20 54 4F |(PRESS ...... TO|
00001BF0: 20 41 42 4F 52 54 29 11 22 00 08 24 14 02 99 22 | ABORT)."..$..."|
00001C00: 3E 22 3B 3A 8D 36 30 38 00 1E 24 16 02 8B 54 24 |>";:.608..$...T$|
00001C10: B2 C7 28 31 33 29 AF 50 B2 30 A7 34 35 32 00 45 |..(13).P.0.452.E|
00001C20: 24 18 02 81 52 B2 4C 4E A4 41 A9 AB 31 3A 41 24 |$...R.LN.A..1:A$|
00001C30: 28 52 AA 31 29 B2 41 24 28 52 29 3A 82 3A 4C 4E |(R.1).A$(R):.:LN|
00001C40: B2 4C 4E AA 31 00 67 24 1A 02 99 3A 99 22 11 C4 |.LN.1.g$...:."..|
00001C50: 4F 4E 45 22 3A 8D 36 33 30 3A 41 24 28 41 29 B2 |ONE":.630:A$(A).|
00001C60: 41 24 3A 89 34 35 32 00 86 24 1C 02 99 22 93 22 |A$:.452..$..."."|
00001C70: A6 31 33 29 22 C4 45 4C 45 54 45 20 CC 49 4E 45 |.13)".ELETE .INE|
00001C80: 22 3A 99 4C 49 24 00 B4 24 1E 02 99 22 11 D7 48 |":.LI$..$..."..H|
00001C90: 49 43 48 20 4C 49 4E 45 20 57 4F 55 4C 44 20 59 |ICH LINE WOULD Y|
00001CA0: 4F 55 20 4C 49 4B 45 20 54 4F 20 44 45 4C 45 54 |OU LIKE TO DELET|
00001CB0: 45 3F 11 22 00 CF 24 20 02 99 22 3E 22 3B 3A 84 |E?."..$ ..">";:.|
00001CC0: 31 2C 41 24 3A 41 B2 B5 28 C5 28 41 24 29 29 00 |1,A$:A..(.(A$)).|
00001CD0: E1 24 22 02 8B 41 B3 31 B0 41 B1 4C 4E A7 35 34 |.$"..A.1.A.LN.54|
00001CE0: 30 00 10 25 24 02 99 3A 99 3A 99 41 24 28 41 29 |0..%$..:.:.A$(A)|
00001CF0: 3A 99 22 11 C4 45 4C 45 54 45 20 54 48 49 53 20 |:."..ELETE THIS |
00001D00: 4C 49 4E 45 20 28 59 2F 4E 29 3F 20 59 9D 22 3B |LINE (Y/N)? Y.";|
00001D10: 00 27 25 26 02 84 31 2C 41 24 3A 41 24 B2 C8 28 |.'%&..1,A$:A$..(|
00001D20: 41 24 2C 31 29 3A 99 00 37 25 28 02 8B 41 24 B2 |A$,1):..7%(..A$.|
00001D30: 22 59 22 A7 35 35 36 00 55 25 2A 02 99 22 11 CE |"Y".556.U%*.."..|
00001D40: 4F 54 20 C4 45 4C 45 54 45 44 22 3A 8D 36 33 30 |OT .ELETED":.630|
00001D50: 3A 89 34 35 32 00 85 25 2C 02 81 52 B2 41 A4 4C |:.452..%,..R.A.L|
00001D60: 4E 3A 41 24 28 52 29 B2 41 24 28 52 AA 31 29 3A |N:A$(R).A$(R.1):|
00001D70: 82 3A 4C 4E B2 4C 4E AB 31 3A 99 22 11 C4 45 4C |.:LN.LN.1:."..EL|
00001D80: 45 54 45 44 22 00 93 25 2E 02 8D 36 33 30 3A 89 |ETED"..%...630:.|
00001D90: 34 35 32 00 C6 25 30 02 99 3A 99 22 11 C1 52 45 |452..%0..:."..RE|
00001DA0: 20 59 4F 55 20 53 55 52 45 20 28 59 2F 4E 29 3F | YOU SURE (Y/N)?|
00001DB0: 20 59 9D 22 3B 3A 84 31 2C 41 24 3A 41 24 B2 C8 | Y.";:.1,A$:A$..|
00001DC0: 28 41 24 2C 31 29 00 D7 25 32 02 8B 41 24 B2 22 |(A$,1)..%2..A$."|
00001DD0: 59 22 A7 8A 34 30 30 00 E0 25 34 02 89 34 35 32 |Y"..400..%4..452|
00001DE0: 00 00 26 36 02 99 22 93 22 A6 31 32 29 22 D2 45 |..&6..".".12)".E|
00001DF0: 2D D3 41 56 45 20 C6 49 4C 45 22 3A 99 4C 49 24 |-.AVE .ILE":.LI$|
00001E00: 00 3E 26 38 02 99 22 11 C5 4E 54 45 52 20 54 48 |.>&8.."..NTER TH|
00001E10: 45 20 46 49 4C 45 20 4E 41 4D 45 22 3A 99 22 28 |E FILE NAME":."(|
00001E20: 27 2A 27 20 46 4F 52 20 53 41 4D 45 20 4E 41 4D |'*' FOR SAME NAM|
00001E30: 45 20 41 53 20 42 45 46 4F 52 45 29 11 22 00 66 |E AS BEFORE).".f|
00001E40: 26 3A 02 46 33 24 B2 46 49 24 3A 99 22 3E 22 3B |&:.F3$.FI$:.">";|
00001E50: 3A 84 31 2C 41 24 3A 8B 41 24 B3 B1 22 2A 22 A7 |:.1,A$:.A$.."*".|
00001E60: 46 33 24 B2 41 24 00 A2 26 3C 02 9F 31 35 2C 44 |F3$.A$..&<..15,D|
00001E70: 52 2C 31 35 2C 22 53 30 3A 22 AA 46 33 24 3A A0 |R,15,"S0:".F3$:.|
00001E80: 31 35 3A 46 34 24 B2 22 30 3A 22 AA 46 33 24 AA |15:F4$."0:".F3$.|
00001E90: 22 2C 53 2C 57 22 3A 9F 38 2C 44 52 2C 38 2C 46 |",S,W":.8,DR,8,F|
00001EA0: 34 24 00 CD 26 3E 02 99 22 11 11 22 3A 81 52 B2 |4$..&>.."..":.R.|
00001EB0: 31 A4 4C 4E 3A 99 22 CC 49 4E 45 3A 20 22 52 22 |1.LN:.".INE: "R"|
00001EC0: 91 22 3A 98 38 2C 41 24 28 52 29 3A 82 00 EA 26 |.":.8,A$(R):...&|
00001ED0: 40 02 A0 38 3A 99 3A 99 3A 99 22 C4 4F 4E 45 22 |@..8:.:.:.".ONE"|
00001EE0: 3A 8D 36 33 30 3A 89 34 35 32 00 0B 27 42 02 99 |:.630:.452..'B..|
00001EF0: 22 93 22 A6 31 33 29 22 D0 52 49 4E 54 49 4E 47 |".".13)".RINTING|
00001F00: 20 C6 49 4C 45 22 3A 99 4C 49 24 00 3B 27 44 02 | .ILE":.LI$.;'D.|
00001F10: 99 22 11 C8 4F 57 20 4D 41 4E 59 20 4C 49 4E 45 |."..OW MANY LINE|
00001F20: 53 20 50 45 52 20 50 41 47 45 20 44 4F 45 53 20 |S PER PAGE DOES |
00001F30: 59 4F 55 52 20 50 41 50 45 52 22 00 63 27 46 02 |YOUR PAPER".c'F.|
00001F40: 99 22 48 41 56 45 3F 20 28 30 20 3D 20 C3 4F 4E |."HAVE? (0 = .ON|
00001F50: 54 49 4E 55 4F 55 53 20 50 52 49 4E 54 49 4E 47 |TINUOUS PRINTING|
00001F60: 29 11 22 00 8C 27 48 02 99 22 3E 22 3B 3A 84 31 |)."..'H..">";:.1|
00001F70: 2C 4C 50 3A 4C 4C B2 30 3A 8B 4C 50 B3 30 B0 4C |,LP:LL.0:.LP.0.L|
00001F80: 50 B3 B1 B5 28 4C 50 29 A7 35 37 38 00 BE 27 4A |P...(LP).578..'J|
00001F90: 02 99 3A 99 3A 99 22 D0 52 45 53 53 20 28 D3 50 |..:.:.".RESS (.P|
00001FA0: 41 43 45 29 20 54 4F 20 50 52 49 4E 54 20 4F 52 |ACE) TO PRINT OR|
00001FB0: 20 27 C1 27 20 54 4F 20 41 42 4F 52 54 22 00 D2 | '.' TO ABORT"..|
00001FC0: 27 4C 02 A1 41 24 3A 8B 41 24 B2 22 41 22 A7 34 |'L..A$:.A$."A".4|
00001FD0: 35 32 00 E2 27 4E 02 8B 41 24 B2 22 20 22 A7 35 |52..'N..A$." ".5|
00001FE0: 39 34 00 EB 27 50 02 89 35 38 38 00 13 28 52 02 |94..'P..588..(R.|
00001FF0: 9F 39 2C 34 2C 37 3A 81 52 B2 31 A4 35 3A 98 39 |.9,4,7:.R.1.5:.9|
00002000: 3A 82 3A 81 52 B2 31 A4 4C 4E 3A 98 39 2C 41 24 |:.:.R.1.LN:.9,A$|
00002010: 28 52 29 00 3B 28 54 02 4C 4C B2 4C 4C AA 31 3A |(R).;(T.LL.LL.1:|
00002020: 8B 4C 4C B2 4C 50 AB 31 30 A7 81 54 B2 31 A4 31 |.LL.LP.10..T.1.1|
00002030: 30 3A 98 39 3A 82 3A 4C 4C B2 30 00 4C 28 56 02 |0:.9:.:LL.0.L(V.|
00002040: 82 3A 98 39 3A A0 39 3A 89 34 35 32 00 6E 28 58 |.:.9:.9:.452.n(X|
00002050: 02 99 3A 99 22 11 C1 52 45 20 59 4F 55 20 53 55 |..:."..RE YOU SU|
00002060: 52 45 20 28 59 2F 4E 29 3F 20 59 9D 22 3B 00 92 |RE (Y/N)? Y.";..|
00002070: 28 5A 02 84 31 2C 41 24 3A 41 24 B2 C8 28 41 24 |(Z..1,A$:A$..(A$|
00002080: 2C 31 29 3A 8B 41 24 B2 22 59 22 A7 99 22 93 22 |,1):.A$."Y".."."|
00002090: 3A 8A 00 9B 28 5C 02 89 34 35 32 00 AE 28 5E 02 |:...(\..452..(^.|
000020A0: 8F 20 52 45 54 55 52 4E 20 41 53 20 41 24 00 BC |. RETURN AS A$..|
000020B0: 28 60 02 50 B2 30 3A 41 24 B2 22 22 00 CF 28 62 |(`.P.0:A$.""..(b|
000020C0: 02 99 C7 28 31 36 36 29 C7 28 31 35 37 29 3B 00 |...(166).(157);.|
000020D0: F3 28 64 02 A1 54 24 3A 8B 54 24 B2 22 22 B0 28 |.(d..T$:.T$."".(|
000020E0: 54 24 B2 C7 28 32 34 29 AF 41 24 B2 22 22 29 A7 |T$..(24).A$."").|
000020F0: 36 31 32 00 03 29 66 02 99 22 20 22 C7 28 31 35 |612..)f.." ".(15|
00002100: 37 29 3B 00 37 29 68 02 8B 54 24 B2 5A 24 AF C3 |7);.7)h..T$.Z$..|
00002110: 28 41 24 29 B1 30 A7 41 24 B2 C8 28 41 24 2C C3 |(A$).0.A$..(A$,.|
00002120: 28 41 24 29 AB 31 29 3A 99 54 24 3B 3A 50 B2 50 |(A$).1):.T$;:P.P|
00002130: AB 31 3A 89 36 31 30 00 5C 29 6A 02 8B 54 24 B2 |.1:.610.\)j..T$.|
00002140: C7 28 32 34 29 A7 81 5A B2 31 A4 C3 28 41 24 29 |.(24)..Z.1..(A$)|
00002150: 3A 99 5A 24 3B 3A 82 3A 89 36 30 38 00 70 29 6C |:.Z$;:.:.608.p)l|
00002160: 02 8B 54 24 B2 C7 28 31 33 29 A7 99 54 24 3A 8E |..T$..(13)..T$:.|
00002170: 00 88 29 6E 02 8B 28 C6 28 54 24 29 AF 31 32 37 |..)n..(.(T$).127|
00002180: 29 B3 33 32 A7 36 31 30 00 97 29 70 02 8B 50 B1 |).32.610..)p..P.|
00002190: 32 35 33 A7 36 31 30 00 B9 29 72 02 99 54 24 3B |253.610..)r..T$;|
000021A0: 3A 41 24 B2 41 24 AA 54 24 3A 97 56 2C 30 3A 50 |:A$.A$.T$:.V,0:P|
000021B0: B2 50 AA 31 3A 89 36 31 30 00 DC 29 74 02 9F 31 |.P.1:.610..)t..1|
000021C0: 35 2C 38 2C 31 35 3A 84 31 35 2C 41 24 2C 42 24 |5,8,15:.15,A$,B$|
000021D0: 2C 43 24 2C 44 24 3A A0 31 35 3A 8E 00 EE 29 76 |,C$,D$:.15:...)v|
000021E0: 02 81 52 B2 31 A4 31 30 30 30 3A 82 3A 8E 00 0B |..R.1.1000:.:...|
000021F0: 2A BC 02 8F 20 2A 2A 2A 20 52 45 41 44 20 44 49 |*... *** READ DI|
00002200: 52 45 43 54 4F 52 59 20 2A 2A 2A 00 2E 2A C1 02 |RECTORY ***..*..|
00002210: 99 22 93 22 3A 9F 38 2C 38 2C 30 2C 22 24 30 22 |.".":.8,8,0,"$0"|
00002220: 3A 4E 24 B2 C7 28 30 29 3A 58 24 B2 4E 24 00 48 |:N$..(0):X$.N$.H|
00002230: 2A C6 02 A1 23 38 2C 41 24 2C 41 24 2C 41 24 2C |*...#8,A$,A$,A$,|
00002240: 41 24 2C 41 24 2C 41 24 00 5F 2A CB 02 A1 23 38 |A$,A$,A$._*...#8|
00002250: 2C 41 24 3A 8B 20 41 24 B2 22 22 A7 37 32 35 00 |,A$:. A$."".725.|
00002260: 71 2A D0 02 58 24 B2 58 24 AA 41 24 3A 89 37 31 |q*..X$.X$.A$:.71|
00002270: 35 00 7E 2A D5 02 99 22 11 20 20 22 58 24 00 98 |5.~*...". "X$..|
00002280: 2A DA 02 A1 23 38 2C 41 24 2C 41 24 3A 8B 20 41 |*...#8,A$,A$:. A|
00002290: 24 B2 22 22 A7 37 35 30 00 C2 2A DF 02 A1 23 38 |$."".750..*...#8|
000022A0: 2C 41 24 2C 42 24 3A 42 24 B2 C4 28 C6 28 41 24 |,A$,B$:B$..(.(A$|
000022B0: AA 4E 24 29 AA C6 28 42 24 AA 4E 24 29 AC 32 35 |.N$)..(B$.N$).25|
000022C0: 36 29 00 E5 2A E4 02 A1 23 38 2C 41 24 3A 8B 20 |6)..*...#8,A$:. |
000022D0: 41 24 B2 22 22 A7 20 99 42 24 3A 42 24 B2 22 22 |A$."". .B$:B$.""|
000022E0: 3A 89 37 33 30 00 F7 2A E9 02 42 24 B2 42 24 AA |:.730..*..B$.B$.|
000022F0: 41 24 3A 89 37 34 30 00 1F 2B EE 02 A0 38 3A 99 |A$:.740..+...8:.|
00002300: 22 11 20 D0 52 45 53 53 20 4B 45 59 20 54 4F 20 |". .RESS KEY TO |
00002310: 52 45 54 55 52 4E 20 54 4F 20 4D 45 4E 55 2E 00 |RETURN TO MENU..|
00002320: 32 2B F3 02 A1 41 24 3A 8B 41 24 B2 22 22 A7 37 |2+...A$:.A$."".7|
00002330: 35 35 00 44 2B F8 02 8B 41 50 A7 41 50 B2 30 3A |55.D+...AP.AP.0:|
00002340: 89 33 30 30 00 4A 2B FD 02 8A 00 6C 2B 20 03 81 |.300.J+....l+ ..|
00002350: 54 B2 31 A4 31 35 3A A0 54 3A 82 3A 97 35 33 32 |T.1.15:.T:.:.532|
00002360: 37 32 2C 32 31 3A 99 22 93 22 3A 80 00 00 00 |72,21:.".":.... |
..Q....G(14)".. SEQUENTIAL FILE M
ANAGER-":." 1987 (C) MICK CORWI
N.U....X.51744.52223:.A:.X,A:.:.51744...
...169,55,133,1,169,160,133,3,160,0,132,
2,177,2,145,2,136......208,249,230,3,165
,3,201,192,208,241,169,54,133,1,169,5,14
1.4....143,183,169,33,141,125,163,162,2,
189,85,202,157,38,181,202,16.W....247,96
,76,88,202,169,0,141,238,203,169,15,133,
250,169,224,133......249,165,52,141,239,
203,56,229,50,201,19,144,22,233,3,133,25
0......165,50,105,0,133,249,165,56,229,5
2,105,1,197,250,176,2,133.;....250,165,5
6,141,241,203,165,55,141,240,203,133,51,
24,240,1,56.|....173,241,203,133,52,233,
0,133,251,105,0,133,252,165,50,105,1....
..133,254,165,45,233,6,133,95,165,46,233
,0,133,96,165,47,133......253,165,251,20
5,239,203,144,56,229,250,133,248,165,52,
229,251,229.E....248,73,255,105,2,197,24
8,144,2,165,248,205,239,203,176,5,173...
...239,203,233,0,133,251,32,137,203,166,
48,32,250,202,176,9,32.H....46,203,165,2
51,133,252,144,182,162,16,76,58,164,96,2
4,165,95......105,7,133,95,144,2,230,96,
69,47,208,4,228,96,240,31,160.C....0,177
,95,200,81,95,16,228,177,95,16,224,160,4
,177,95,197......251,144,217,197,252,176
,212,32,169,203,144,208,96,24,96,165,253
.G....133,95,134,96,69,49,208,4,228,50,1
76,240,160,2,177,95,101......95,133,253,
200,177,95,101,96,170,160,0,177,95,200,8
1,95,16.E....219,160,4,177,95,10,105,5,1
01,95,133,95,144,2,230,96,160......2,177
,95,197,251,144,11,197,252,176,6,32,169,
203,144,2,96.D....24,169,3,101,95,133,95
,144,2,230,96,197,253,208,223,228,96....
..208,219,240,165,165,248,133,79,165,249
,133,89,160,0,132,78,132.L....88,166,250
,232,177,78,145,88,200,208,249,230,89,23
0,79,202,208......242,96,72,120,169,53,1
33,1,104,197,248,144,5,229,248,24,101.Z.
...249,133,79,136,177,95,133,78,136,56,1
65,51,241,95,133,51,200,145,95,165.%....
52,233,0,133,52,200,145,95,136,136,177,9
5,240,9,168,136,177,78,145,51.M....152,2
08,248,169,54,133,1,88,24,165,254,229,52
,96,,,,,,,,,,,,,,,,,,......"
SHAREWARE":.X.1.40:."-";:......."...
1) READ SEQUENTIAL FILE.":.". 2) SEN
D SEQ FILE TO PRINTER.... ..". 3) APPE
ND A SEQ FILE TO ANOTHER..9.!..". 4) E
DIT AN EXISTING SEQ FILE..V."..". 5) R
EAD DIRECTORY..R.#..". 6) EXIT TO BASI
C....$.."... YOUR CHOICE (1-6)";IN$...(
.. E(IN$).0.E(IN$).6...R.-..E(IN$).100,2
00,300,400,700,800...D.."..SEQ FILE TO R
EAD";S$:.2,8,2,S$.",S".-.F..".. SPACE=
PAUSE/RESUME RETURN=QUIT..J.H.." _
=JMP 255 BYTES ^ =JMP 50 LINES":.X.1.
40:."-";:..S.J..146...L..#2,A$:.A$;:.ST.
142...N..B$:.B$."".108...P..B$.G(13).126
...R..B$." ".122.P.T..B$."_".128...V..B$
."^".:CT.0:FL.0:.130...X..108...Z..X.1.6
0000:.C$:.C$." ".108...|..:.122.1.~..2:
2:.1,55:..R....X.1.255:.#2,D$:."."X:.:.1
02.V....X.1.256:.#2,E$:.E$.G(13).X.256..
....E$."G".FL.FL.1......FL.10.142.......
....CT.CT.1:."."CT:.CT.50.102.F....130..
....15,8,15,"I0": 15:.:.". END OF FIL
E... PRESS SPACEBAR..."......A$:.A$."".1
43.-....A$..G(32).143.6....126.L....88,0
:.89,192:.90,0:.91,192:.781,33:.782,0:.4
1964......88,254:.89,255:.90,254:.91,255
:.781,33:.782,0:.41964......59639,4:.1,5
3:....H..".. SEQUENTIAL FILE PRINTER.":.
". TURN ON PRINTER NOW..%.J..". PRESS .A
. TO ABORT, OR ANY OTHER KEY".:.L.." TO
CONTINUE.".Q.N.. IN$:. IN$."".206.A.P..
IN$."A"...~.R..15,8,15:.3,4,7:.808,234..
.T.."..SEQ FILE TO PRINT";S$...V..2,8,2,
S$.",S,R":.236...X..". SPACE=PAUSE/RES
UME RETURN=QUIT....Z..#2,A$:DD.ST:.3
,A$;:.DD.64.250......B$:.B$."".218.,....
B$.G(13).232.<....B$." ".228.E....218.D.
...X.1.60000:.C$:.C$." ".218.J..........
808,237:.2: 2:.3: 3: 15:.. .... DISK ERR
OR CHECK......15,E,E$,E1,E2......E.0....
...EE$.J(D(E),2):E1$.J(D(E1),2):E2$.J(D(
E2),2)......E.63.../....:."...........";
EE$;",";E$;",";E1$;",";E2$:.232.F....808
,237:.2: 2:.3: 3: 15:."... PRINTING COM
PLETE!......". PRINT ANOTHER FILE (Y/N)
Y...";A$. ....A$."N"........200...,.."
...".12)"APPEND SEQ FILES":..12)"-------
---------........" BELOW, ENTER TWO FIL
ENAMES. THE.6.0.." FIRST NAME IS THE FI
LE YOU WANT TO...2.." ADD (APPEND) TO T
HE SECOND FILE. TYPE BOTH FILENAMES CO
RRECTLY,...4.." AND ENSURE THEY ARE BOT
H LOCATED ON THE SAME DISK....6.."..
F1 = DIRECTORY":." F3 = RETURN TO MAI
N":." F5 = CONTINUE...8..A$:.A$."".312.
8.:..A$..".".A$..".".A$..".".312.N.<..A$
.".".AP.1:.700.\.>..A$."."...{.@.."...";
:.X.1.100:." ";:.:....A.."... FIRST FIL
ENAME";RD$...B..". SECOND FILENAME";WR$
...C..". APPEND '"RD$"' TO '"WR$"'":."
IS THIS CORRECT (Y/N) Y...";A$.".D..A$
.."Y".A$.."N".."....":.323.2.E..A$."N".3
00.?.F..15,8,15...G..2,8,2,"0:".RD$.",S,
R":. *** READ FROM THIS FILE.
***.D.H..375:.E(A$).19.."... FILE #1 NO
T FOUND...":.X.1.2000:.:.350...I..3,8,3,
"0:".WR$.",A":. *** APPEND (
WRITE) TO THIS FILE. ***.Q.J..375:.E(A$)
.19.."... FILE #2 NOT FOUND...":.X.1.20
00:.:.350.\.L..#2,A$...O..ST.19. .3,A$:
3:.2: 2:.15,"I0": 15:.355...T..3,A$;...Y
..332.B.^. 3: 2: 15:.15,8,15,"I0": 15:.3
00...C.."... JOB COMPLETE!":.". MORE F
ILES TO APPEND (Y/N) Y...";A$...H..A$..
"Y".A$.."N".355.-.M..A$."N"...6.R..300.L
.W..15,A$,B$,C$,D$:..P...Z$.G(20):A.3000
:.B(56).64.A.100......A$(A):.".."G(14)G(
8);:.1,0,0:V.203:.B(771).164.V.212.....L
I$."....................................
...."......" SEQUENTIAL FILE EDIT
OR":.LI$"...".T...."ENTER THE NAME OF TH
E FILE YOU WISH TO EDIT AND PRESS RETUR
N..".X....">";:.1,FI$:.".":FI$.H(FI$,16)
......"FILENAME IS "G(34)FI$G(34):.".IS
THIS CORRECT? (Y/N) Y.";.W....1,A$:.:.C(
A$).0..".":.414... .A$.H(A$,1):.A$."Y"..
:.420......400./...."DISK DRIVE # (8-10)
8.";:.1,A$:DR..(E(A$)).W....DR.8.DR.10.
.:..22)". .":.420.|....". READING
"G(34)FI$G(34):.LI$.....F2$.FI$.",S,R":
LN.1:." 1 : ";......8,DR,8,F2$:.#8,A$..
....ST..0.."FILE NOT FOUND":.630:.628:.4
00......436......#8,A$......A$..G(13).A$
(LN).A$(LN).A$.G.... C(A$(LN)).253.A$(LN
).A$(LN).G(13):A$.G(13).\....ST..0..630:
.452.N....A$.G(13).446.|....A$;:.434....
.B$."":.LN.9.B$." "......:LN.LN.1:.B$;LN
": ";:.ST..0.452.A.B..434...D. 8:.".".13
)"MAIN MENU":.LI$...F.."[1] LIST FILE":.
".[2] EDIT LINE":.".[3] INSERT LINE".K.H
..".[4] DELETE LINE":.".[5] RE-RUN PROGR
AM"...J..".[6] RE-SAVE FILE AFTER EDITIN
G":.".[7] PRINT FILE TO PRINTER"...L..".
[8] EXIT EDITOR..".U.N.."ENTER YOUR CHOI
CE AND PRESS RETURN."...P..">";:.1,A$:A.
.(E(A$)):.A.1.A.8.452.$ R..A.468,504,520
,540,560,566,578,600.A T..".".13)"LIST F
ILE":.LI$.O V.."PRESS (A) TO ABORT OR (S
PACE) TO PAUSE".. X..".(.W.)ITH OR WITH(
.O.)UT LINE NUMBERS? W.";.K Z..1,A$:A$.H
(A$,1):.A$.."W".A$.."O".474.. ...146:.".
":.R.1.LN:.A$."O".482..!..B$."":.R.10.B$
." "..!...B$;R": ";..!...A$(R).4!...C$:.
C$.""..:.498.X!...C$."A"..:."..* ABORTED
*":.498.I!...C$.." ".486.|!...".* PAUSE
D *"..!...C$:.C$."".494..!...".
":.".";:.486.T!...". PRESS ANY KEY FO
R MAIN MENU"..!...C$:.C$."".500..!...1,5
5:.452.4"...".".13)"EDIT LINE":.LI$:.".W
HICH LINE NUMBER TO EDIT? ";.K"...1,A$:A
..(E(A$)):..^"...A.0.A..LN.512.."...".BA
D LINE NUMBER":.630:.504.."...". "A$(A):
.".RETYPE LINE OR PRESS RETURN.".A"...">
";:.608:..."...T$.G(13).P.0..".UN-CHANGE
D":.630:.452..#...".CHANGED":.630:A$(A).
A$:.452.0#...".".13)"INSERT A LINE":.LI$
.]#..."..WHERE SHOULD THE LINE BE INSERT
ED?.".Z#...">";:.1,A$:A..(E(A$)):...#...
A.0.A..LN.530..#...:."BAD LINE NUMBER":.
630:.520..#...".WHAT WOULD YOU LIKE THAT
LINE TO BE? (PRESS RETURN TO ABORT).
"..$...">";:.608..$...T$.G(13).P.0.452.E
$...R.LN.A..1:A$(R.1).A$(R):.:LN.LN.1.G$
...:.".DONE":.630:A$(A).A$:.452..$..."."
.13)"DELETE LINE":.LI$..$...".WHICH LINE
WOULD YOU LIKE TO DELETE?.".O$ ..">";:.
1,A$:A..(E(A$))..$"..A.1.A.LN.540..%$..:
.:.A$(A):.".DELETE THIS LINE (Y/N)? Y.";
.'%&..1,A$:A$.H(A$,1):..7%(..A$."Y".556.
U%*..".NOT DELETED":.630:.452..%,..R.A.L
N:A$(R).A$(R.1):.:LN.LN.1:.".DELETED"..%
...630:.452.F%0..:.".ARE YOU SURE (Y/N)?
Y.";:.1,A$:A$.H(A$,1).W%2..A$."Y"..400.
.%4..452..&6..".".12)"RE-SAVE FILE":.LI$
.>&8..".ENTER THE FILE NAME":."('*' FOR
SAME NAME AS BEFORE).".F&:.F3$.FI$:.">";
:.1,A$:.A$.."*".F3$.A$..&<..15,DR,15,"S0
:".F3$: 15:F4$."0:".F3$.",S,W":.8,DR,8,F
4$.M&>.."..":.R.1.LN:."LINE: "R".":.8,A$
(R):...&@. 8:.:.:."DONE":.630:.452..'B..
".".13)"PRINTING FILE":.LI$.;'D..".HOW M
ANY LINES PER PAGE DOES YOUR PAPER".C'F.
."HAVE? (0 = CONTINUOUS PRINTING)."..'H.
.">";:.1,LP:LL.0:.LP.0.LP...(LP).578..'J
..:.:."PRESS (SPACE) TO PRINT OR 'A' TO
ABORT".R'L..A$:.A$."A".452..'N..A$." ".5
94..'P..588..(R..9,4,7:.R.1.5:.9:.:.R.1.
LN:.9,A$(R).;(T.LL.LL.1:.LL.LP.10..T.1.1
0:.9:.:LL.0.L(V..:.9: 9:.452.N(X..:.".AR
E YOU SURE (Y/N)? Y.";..(Z..1,A$:A$.H(A$
,1):.A$."Y"..".":...(\..452..(^.. RETURN
AS A$..(`.P.0:A$."".O(B..G(166)G(157);.
.(D..T$:.T$."".(T$.G(24).A$."").612..)F.
." "G(157);.7)H..T$.Z$.C(A$).0.A$.H(A$,C
(A$).1):.T$;:P.P.1:.610.\)J..T$.G(24)..Z
.1.C(A$):.Z$;:.:.608.P)L..T$.G(13)..T$:.
..)N..(F(T$).127).32.610..)P..P.253.610.
.)R..T$;:A$.A$.T$:.V,0:P.P.1:.610..)T..1
5,8,15:.15,A$,B$,C$,D$: 15:...)V..R.1.10
00:.:...*... *** READ DIRECTORY ***..*A.
.".":.8,8,0,"$0":N$.G(0):X$.N$.H*F..#8,A
$,A$,A$,A$,A$,A$._*K..#8,A$:. A$."".725.
Q*P.X$.X$.A$:.715.~*U..". "X$..*Z..#8,A
$,A$:. A$."".750.B*...#8,A$,B$:B$.D(F(A$
.N$).F(B$.N$).256)..*...#8,A$:. A$."". .
B$:B$."":.730..*..B$.B$.A$:.740..+.. 8:.
". PRESS KEY TO RETURN TO MENU..2+...A$:
.A$."".755.D+...AP.AP.0:.300.J+....L+ ..
T.1.15: T:.:.53272,21:.".":....
> CLICK IMAGE PREVIEW FOR FULL MODAL