SEQ FILE EDITOR
FILE INFORMATION
FILENAME(S): SEQ FILE EDITOR
FILE TYPE(S): PRG
FILE SIZE: 3.6K
FIRST SEEN: 2025-10-19 22:48:37
APPEARS ON: 1 disk(s)
FILE HASH
3970fbac8b591e9fa0a6c969eda129f689ee0154f23136d0214b0855641240ca
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GAZETTE SPEC 88 | SEQ FILE EDITOR | PRG | Radd Maxx | 5 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 25 08 0A 00 5A 24 B2 C7 28 32 30 29 3A 41 |..%...Z$..(20):A|
00000010: B2 33 30 30 30 3A 8B C2 28 35 36 29 B3 36 34 A7 |.3000:..(56).64.|
00000020: 41 B2 31 30 30 00 5E 08 14 00 86 41 24 28 41 29 |A.100.^....A$(A)|
00000030: 3A 99 22 93 22 C7 28 31 34 29 C7 28 38 29 3B 3A |:.".".(14).(8);:|
00000040: 9F 31 2C 30 2C 30 3A 56 B2 32 30 33 3A 8B C2 28 |.1,0,0:V.203:..(|
00000050: 37 37 31 29 B2 31 36 34 A7 56 B2 32 31 32 00 91 |771).164.V.212..|
00000060: 08 1E 00 4C 49 24 B2 22 A3 A3 A3 A3 A3 A3 A3 A3 |...LI$."........|
00000070: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
00000080: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
00000090: 22 00 C2 08 28 00 99 22 90 20 20 20 20 20 20 20 |"...(..". |
000000A0: 20 D3 45 51 55 45 4E 54 49 41 4C 20 C6 49 4C 45 | .EQUENTIAL .ILE|
000000B0: 20 C5 44 49 54 4F 52 22 3A 99 4C 49 24 22 11 11 | .DITOR":.LI$"..|
000000C0: 11 22 00 09 09 32 00 99 22 C5 4E 54 45 52 20 54 |."...2..".NTER T|
000000D0: 48 45 20 4E 41 4D 45 20 4F 46 20 54 48 45 20 46 |HE NAME OF THE F|
000000E0: 49 4C 45 20 59 4F 55 20 57 49 53 48 20 54 4F 20 |ILE YOU WISH TO |
000000F0: 20 45 44 49 54 20 41 4E 44 20 50 52 45 53 53 20 | EDIT AND PRESS |
00000100: D2 C5 D4 D5 D2 CE 11 11 22 00 2D 09 3C 00 99 22 |........".-.<.."|
00000110: 3E 22 3B 3A 84 31 2C 46 49 24 3A 99 22 11 22 3A |>";:.1,FI$:.".":|
00000120: 46 49 24 B2 C8 28 46 49 24 2C 31 36 29 00 6D 09 |FI$..(FI$,16).m.|
00000130: 46 00 99 22 46 49 4C 45 4E 41 4D 45 20 49 53 20 |F.."FILENAME IS |
00000140: 22 C7 28 33 34 29 46 49 24 C7 28 33 34 29 3A 99 |".(34)FI$.(34):.|
00000150: 22 11 C9 53 20 54 48 49 53 20 43 4F 52 52 45 43 |"..S THIS CORREC|
00000160: 54 3F 20 28 59 2F 4E 29 20 59 9D 22 3B 00 8B 09 |T? (Y/N) Y.";...|
00000170: 50 00 84 31 2C 41 24 3A 99 3A 8B C3 28 41 24 29 |P..1,A$:.:..(A$)|
00000180: B2 30 A7 99 22 91 22 3A 89 38 30 00 A9 09 5A 00 |.0..".":.80...Z.|
00000190: 41 24 B2 C8 28 41 24 2C 31 29 3A 8B 41 24 B2 22 |A$..(A$,1):.A$."|
000001A0: 59 22 A7 99 3A 89 31 31 30 00 AF 09 64 00 8A 00 |Y"..:.110...d...|
000001B0: E0 09 6E 00 99 22 C4 49 53 4B 20 C4 52 49 56 45 |..n..".ISK .RIVE|
000001C0: 20 23 20 28 38 2D 31 30 29 20 38 9D 22 3B 3A 84 | # (8-10) 8.";:.|
000001D0: 31 2C 41 24 3A 44 52 B2 B5 28 C5 28 41 24 29 29 |1,A$:DR..(.(A$))|
000001E0: 00 08 0A 78 00 8B 44 52 B3 38 B0 44 52 B1 31 30 |...x..DR.8.DR.10|
000001F0: A7 99 3A 99 A6 32 32 29 22 91 20 20 20 20 20 20 |..:..22)". |
00000200: 20 91 22 3A 89 31 31 30 00 2D 0A 82 00 99 22 93 | .":.110.-....".|
00000210: 20 20 D2 45 41 44 49 4E 47 20 22 C7 28 33 34 29 | .EADING ".(34)|
00000220: 46 49 24 C7 28 33 34 29 3A 99 4C 49 24 00 50 0A |FI$.(34):.LI$.P.|
00000230: 8C 00 46 32 24 B2 46 49 24 AA 22 2C 53 2C 52 22 |..F2$.FI$.",S,R"|
00000240: 3A 4C 4E B2 31 3A 99 22 20 20 31 20 3A 20 22 3B |:LN.1:." 1 : ";|
00000250: 00 67 0A 96 00 9F 38 2C 44 52 2C 38 2C 46 32 24 |.g....8,DR,8,F2$|
00000260: 3A A1 23 38 2C 41 24 00 92 0A A0 00 8B 53 54 B3 |:.#8,A$......ST.|
00000270: B1 30 A7 99 22 C6 49 4C 45 20 CE 4F 54 20 C6 4F |.0..".ILE .OT .O|
00000280: 55 4E 44 22 3A 8D 31 31 35 30 3A 8D 31 31 34 30 |UND":.1150:.1140|
00000290: 3A 8A 00 9B 0A AA 00 89 31 39 30 00 A6 0A B4 00 |:.......190.....|
000002A0: A1 23 38 2C 41 24 00 C6 0A BE 00 8B 41 24 B3 B1 |.#8,A$......A$..|
000002B0: C7 28 31 33 29 A7 41 24 28 4C 4E 29 B2 41 24 28 |.(13).A$(LN).A$(|
000002C0: 4C 4E 29 AA 41 24 00 DC 0A C8 00 8B 53 54 B3 B1 |LN).A$......ST..|
000002D0: 30 A7 8D 31 31 35 30 3A 89 32 36 30 00 EE 0A D2 |0..1150:.260....|
000002E0: 00 8B 41 24 B2 C7 28 31 33 29 A7 32 33 30 00 FC |..A$..(13).230..|
000002F0: 0A DC 00 99 41 24 3B 3A 89 31 38 30 00 13 0B E6 |....A$;:.180....|
00000300: 00 42 24 B2 22 22 3A 8B 4C 4E B3 39 A7 42 24 B2 |.B$."":.LN.9.B$.|
00000310: 22 20 22 00 38 0B F0 00 99 3A 4C 4E B2 4C 4E AA |" ".8....:LN.LN.|
00000320: 31 3A 99 42 24 3B 4C 4E 22 3A 20 22 3B 3A 8B 53 |1:.B$;LN": ";:.S|
00000330: 54 B3 B1 30 A7 32 36 30 00 41 0B FA 00 89 31 38 |T..0.260.A....18|
00000340: 30 00 61 0B 04 01 A0 38 3A 99 22 93 22 A6 31 33 |0.a....8:.".".13|
00000350: 29 22 CD 41 49 4E 20 CD 45 4E 55 22 3A 99 4C 49 |)".AIN .ENU":.LI|
00000360: 24 00 9C 0B 0E 01 99 22 5B 31 5D 20 CC 49 53 54 |$......"[1] .IST|
00000370: 20 C6 49 4C 45 22 3A 99 22 11 5B 32 5D 20 C5 44 | .ILE":.".[2] .D|
00000380: 49 54 20 CC 49 4E 45 22 3A 99 22 11 5B 33 5D 20 |IT .INE":.".[3] |
00000390: C9 4E 53 45 52 54 20 CC 49 4E 45 22 00 CB 0B 18 |.NSERT .INE"....|
000003A0: 01 99 22 11 5B 34 5D 20 C4 45 4C 45 54 45 20 CC |..".[4] .ELETE .|
000003B0: 49 4E 45 22 3A 99 22 11 5B 35 5D 20 D2 45 2D D2 |INE":.".[5] .E-.|
000003C0: 55 4E 20 D0 52 4F 47 52 41 4D 22 00 10 0C 22 01 |UN .ROGRAM"...".|
000003D0: 99 22 11 5B 36 5D 20 D2 45 2D D3 41 56 45 20 C6 |.".[6] .E-.AVE .|
000003E0: 49 4C 45 20 41 46 54 45 52 20 C5 44 49 54 49 4E |ILE AFTER .DITIN|
000003F0: 47 22 3A 99 22 11 5B 37 5D 20 D0 52 49 4E 54 20 |G":.".[7] .RINT |
00000400: C6 49 4C 45 20 54 4F 20 D0 52 49 4E 54 45 52 22 |.ILE TO .RINTER"|
00000410: 00 2B 0C 2C 01 99 22 11 5B 38 5D 20 C5 58 49 54 |.+.,..".[8] .XIT|
00000420: 20 D0 52 4F 47 52 41 4D 11 11 22 00 56 0C 36 01 | .ROGRAM..".V.6.|
00000430: 99 22 C5 4E 54 45 52 20 59 4F 55 52 20 43 48 4F |.".NTER YOUR CHO|
00000440: 49 43 45 20 41 4E 44 20 50 52 45 53 53 20 D2 C5 |ICE AND PRESS ..|
00000450: D4 D5 D2 CE 11 22 00 7E 0C 40 01 99 22 3E 22 3B |.....".~.@..">";|
00000460: 3A 84 31 2C 41 24 3A 41 B2 B5 28 C5 28 41 24 29 |:.1,A$:A..(.(A$)|
00000470: 29 3A 8B 41 B3 31 B0 41 B1 38 A7 32 36 30 00 A6 |):.A.1.A.8.260..|
00000480: 0C 4A 01 91 41 89 33 34 30 2C 35 32 30 2C 36 30 |.J..A.340,520,60|
00000490: 30 2C 37 30 30 2C 38 30 30 2C 38 33 30 2C 38 39 |0,700,800,830,89|
000004A0: 30 2C 31 30 30 30 00 C3 0C 54 01 99 22 93 22 A6 |0,1000...T..".".|
000004B0: 31 33 29 22 CC 49 53 54 20 C6 49 4C 45 22 3A 99 |13)".IST .ILE":.|
000004C0: 4C 49 24 00 F1 0C 5E 01 99 22 D0 52 45 53 53 20 |LI$...^..".RESS |
000004D0: 28 C1 29 20 54 4F 20 41 42 4F 52 54 20 4F 52 20 |(.) TO ABORT OR |
000004E0: 28 D3 D0 C1 C3 C5 29 20 54 4F 20 50 41 55 53 45 |(.....) TO PAUSE|
000004F0: 22 00 23 0D 68 01 99 22 11 28 12 D7 92 29 49 54 |".#.h..".(...)IT|
00000500: 48 20 4F 52 20 D7 49 54 48 28 12 CF 92 29 55 54 |H OR .ITH(...)UT|
00000510: 20 4C 49 4E 45 20 4E 55 4D 42 45 52 53 3F 20 57 | LINE NUMBERS? W|
00000520: 9D 22 3B 00 4D 0D 72 01 84 31 2C 41 24 3A 41 24 |.";.M.r..1,A$:A$|
00000530: B2 C8 28 41 24 2C 31 29 3A 8B 41 24 B3 B1 22 57 |..(A$,1):.A$.."W|
00000540: 22 AF 41 24 B3 B1 22 4F 22 A7 33 37 30 00 6A 0D |".A$.."O".370.j.|
00000550: 7C 01 99 22 11 22 3A 81 52 B2 31 A4 4C 4E 3A 8B ||..".":.R.1.LN:.|
00000560: 41 24 B2 22 4F 22 A7 34 31 30 00 81 0D 86 01 42 |A$."O".410.....B|
00000570: 24 B2 22 22 3A 8B 52 B3 31 30 A7 42 24 B2 22 20 |$."":.R.10.B$." |
00000580: 22 00 90 0D 90 01 99 42 24 3B 52 22 3A 20 22 3B |"......B$;R": ";|
00000590: 00 9B 0D 9A 01 99 41 24 28 52 29 00 AA 0D A4 01 |......A$(R).....|
000005A0: 81 54 B2 31 A4 31 30 30 3A 82 00 C0 0D AE 01 A1 |.T.1.100:.......|
000005B0: 43 24 3A 8B 43 24 B2 22 22 A7 82 3A 89 34 39 30 |C$:.C$.""..:.490|
000005C0: 00 E4 0D B8 01 8B 43 24 B2 22 41 22 A7 99 3A 99 |......C$."A"..:.|
000005D0: 22 11 12 2A 20 C1 42 4F 52 54 45 44 20 2A 22 3A |"..* .BORTED *":|
000005E0: 89 34 39 30 00 F5 0D C2 01 8B 43 24 B3 B1 22 20 |.490......C$.." |
000005F0: 22 A7 34 33 30 00 08 0E CC 01 99 22 12 2A 20 D0 |".430......".* .|
00000600: 41 55 53 45 44 20 2A 22 00 1B 0E D6 01 A1 43 24 |AUSED *"......C$|
00000610: 3A 8B 43 24 B2 22 22 A7 34 37 30 00 3A 0E E0 01 |:.C$."".470.:...|
00000620: 99 22 91 20 20 20 20 20 20 20 20 20 20 20 22 3A |.". ":|
00000630: 99 22 91 22 3B 3A 89 34 33 30 00 60 0E EA 01 99 |.".";:.430.`....|
00000640: 22 11 20 20 D0 52 45 53 53 20 41 4E 59 20 4B 45 |". .RESS ANY KE|
00000650: 59 20 46 4F 52 20 CD 41 49 4E 20 CD 45 4E 55 22 |Y FOR .AIN .ENU"|
00000660: 00 73 0E F4 01 A1 43 24 3A 8B 43 24 B2 22 22 A7 |.s....C$:.C$."".|
00000670: 35 30 30 00 7C 0E FE 01 89 32 36 30 00 BA 0E 08 |500.|....260....|
00000680: 02 99 22 93 22 A6 31 33 29 22 C5 44 49 54 20 CC |..".".13)".DIT .|
00000690: 49 4E 45 22 3A 99 4C 49 24 3A 99 22 11 D7 48 49 |INE":.LI$:."..HI|
000006A0: 43 48 20 4C 49 4E 45 20 4E 55 4D 42 45 52 20 54 |CH LINE NUMBER T|
000006B0: 4F 20 45 44 49 54 3F 20 22 3B 00 D1 0E 12 02 84 |O EDIT? ";......|
000006C0: 31 2C 41 24 3A 41 B2 B5 28 C5 28 41 24 29 29 3A |1,A$:A..(.(A$)):|
000006D0: 99 00 E4 0E 1C 02 8B 41 B1 30 AF 41 B3 B2 4C 4E |.......A.0.A..LN|
000006E0: A7 35 36 30 00 07 0F 26 02 99 22 11 C2 41 44 20 |.560...&.."..AD |
000006F0: 4C 49 4E 45 20 4E 55 4D 42 45 52 22 3A 8D 31 31 |LINE NUMBER":.11|
00000700: 35 30 3A 89 35 32 30 00 37 0F 30 02 99 22 11 20 |50:.520.7.0..". |
00000710: 22 41 24 28 41 29 3A 99 22 11 D2 45 54 59 50 45 |"A$(A):."..ETYPE|
00000720: 20 4C 49 4E 45 20 4F 52 20 50 52 45 53 53 20 D2 | LINE OR PRESS .|
00000730: C5 D4 D5 D2 CE 11 22 00 49 0F 3A 02 99 22 3E 22 |......".I.:..">"|
00000740: 3B 3A 8D 31 30 34 30 3A 99 00 75 0F 44 02 8B 54 |;:.1040:..u.D..T|
00000750: 24 B2 C7 28 31 33 29 AF 50 B2 30 A7 99 22 11 D5 |$..(13).P.0.."..|
00000760: 4E 2D 43 48 41 4E 47 45 44 22 3A 8D 31 31 35 30 |N-CHANGED":.1150|
00000770: 3A 89 32 36 30 00 99 0F 4E 02 99 22 11 C3 48 41 |:.260...N.."..HA|
00000780: 4E 47 45 44 22 3A 8D 31 31 35 30 3A 41 24 28 41 |NGED":.1150:A$(A|
00000790: 29 B2 41 24 3A 89 32 36 30 00 BA 0F 58 02 99 22 |).A$:.260...X.."|
000007A0: 93 22 A6 31 33 29 22 C9 4E 53 45 52 54 20 41 20 |.".13)".NSERT A |
000007B0: 4C 49 4E 45 22 3A 99 4C 49 24 00 E7 0F 62 02 99 |LINE":.LI$...b..|
000007C0: 22 11 11 D7 48 45 52 45 20 53 48 4F 55 4C 44 20 |"...HERE SHOULD |
000007D0: 54 48 45 20 4C 49 4E 45 20 42 45 20 49 4E 53 45 |THE LINE BE INSE|
000007E0: 52 54 45 44 3F 11 22 00 04 10 6C 02 99 22 3E 22 |RTED?."...l..">"|
000007F0: 3B 3A 84 31 2C 41 24 3A 41 B2 B5 28 C5 28 41 24 |;:.1,A$:A..(.(A$|
00000800: 29 29 3A 99 00 17 10 76 02 8B 41 B1 30 AF 41 B3 |)):....v..A.0.A.|
00000810: B2 4C 4E A7 36 35 30 00 3B 10 80 02 99 3A 99 22 |.LN.650.;....:."|
00000820: C2 41 44 20 4C 49 4E 45 20 4E 55 4D 42 45 52 22 |.AD LINE NUMBER"|
00000830: 3A 8D 31 31 35 30 3A 89 36 30 30 00 84 10 8A 02 |:.1150:.600.....|
00000840: 99 22 11 D7 48 41 54 20 57 4F 55 4C 44 20 59 4F |."..HAT WOULD YO|
00000850: 55 20 4C 49 4B 45 20 54 48 41 54 20 4C 49 4E 45 |U LIKE THAT LINE|
00000860: 20 54 4F 20 42 45 3F 20 20 20 20 28 50 52 45 53 | TO BE? (PRES|
00000870: 53 20 D2 C5 D4 D5 D2 CE 20 54 4F 20 41 42 4F 52 |S ...... TO ABOR|
00000880: 54 29 11 22 00 94 10 94 02 99 22 3E 22 3B 3A 8D |T)."......">";:.|
00000890: 31 30 34 30 00 AA 10 9E 02 8B 54 24 B2 C7 28 31 |1040......T$..(1|
000008A0: 33 29 AF 50 B2 30 A7 32 36 30 00 D1 10 A8 02 81 |3).P.0.260......|
000008B0: 52 B2 4C 4E A4 41 A9 AB 31 3A 41 24 28 52 AA 31 |R.LN.A..1:A$(R.1|
000008C0: 29 B2 41 24 28 52 29 3A 82 3A 4C 4E B2 4C 4E AA |).A$(R):.:LN.LN.|
000008D0: 31 00 F4 10 B2 02 99 3A 99 22 11 C4 4F 4E 45 22 |1......:."..ONE"|
000008E0: 3A 8D 31 31 35 30 3A 41 24 28 41 29 B2 41 24 3A |:.1150:A$(A).A$:|
000008F0: 89 32 36 30 00 13 11 BC 02 99 22 93 22 A6 31 33 |.260......".".13|
00000900: 29 22 C4 45 4C 45 54 45 20 CC 49 4E 45 22 3A 99 |)".ELETE .INE":.|
00000910: 4C 49 24 00 41 11 C6 02 99 22 11 D7 48 49 43 48 |LI$.A...."..HICH|
00000920: 20 4C 49 4E 45 20 57 4F 55 4C 44 20 59 4F 55 20 | LINE WOULD YOU |
00000930: 4C 49 4B 45 20 54 4F 20 44 45 4C 45 54 45 3F 11 |LIKE TO DELETE?.|
00000940: 22 00 5C 11 D0 02 99 22 3E 22 3B 3A 84 31 2C 41 |".\....">";:.1,A|
00000950: 24 3A 41 B2 B5 28 C5 28 41 24 29 29 00 6E 11 DA |$:A..(.(A$)).n..|
00000960: 02 8B 41 B3 31 B0 41 B1 4C 4E A7 37 30 30 00 9D |..A.1.A.LN.700..|
00000970: 11 E4 02 99 3A 99 3A 99 41 24 28 41 29 3A 99 22 |....:.:.A$(A):."|
00000980: 11 C4 45 4C 45 54 45 20 54 48 49 53 20 4C 49 4E |..ELETE THIS LIN|
00000990: 45 20 28 59 2F 4E 29 3F 20 59 9D 22 3B 00 B4 11 |E (Y/N)? Y.";...|
000009A0: EE 02 84 31 2C 41 24 3A 41 24 B2 C8 28 41 24 2C |...1,A$:A$..(A$,|
000009B0: 31 29 3A 99 00 C4 11 F8 02 8B 41 24 B2 22 59 22 |1):.......A$."Y"|
000009C0: A7 37 38 30 00 E3 11 02 03 99 22 11 CE 4F 54 20 |.780......"..OT |
000009D0: C4 45 4C 45 54 45 44 22 3A 8D 31 31 35 30 3A 89 |.ELETED":.1150:.|
000009E0: 32 36 30 00 13 12 0C 03 81 52 B2 41 A4 4C 4E 3A |260......R.A.LN:|
000009F0: 41 24 28 52 29 B2 41 24 28 52 AA 31 29 3A 82 3A |A$(R).A$(R.1):.:|
00000A00: 4C 4E B2 4C 4E AB 31 3A 99 22 11 C4 45 4C 45 54 |LN.LN.1:."..ELET|
00000A10: 45 44 22 00 22 12 16 03 8D 31 31 35 30 3A 89 32 |ED"."....1150:.2|
00000A20: 36 30 00 55 12 20 03 99 3A 99 22 11 C1 52 45 20 |60.U. ..:."..RE |
00000A30: 59 4F 55 20 53 55 52 45 20 28 59 2F 4E 29 3F 20 |YOU SURE (Y/N)? |
00000A40: 59 9D 22 3B 3A 84 31 2C 41 24 3A 41 24 B2 C8 28 |Y.";:.1,A$:A$..(|
00000A50: 41 24 2C 31 29 00 63 12 2A 03 8B 41 24 B2 22 59 |A$,1).c.*..A$."Y|
00000A60: 22 A7 8A 00 6C 12 34 03 89 32 36 30 00 8C 12 3E |"...l.4..260...>|
00000A70: 03 99 22 93 22 A6 31 32 29 22 D2 45 2D D3 41 56 |..".".12)".E-.AV|
00000A80: 45 20 C6 49 4C 45 22 3A 99 4C 49 24 00 CA 12 48 |E .ILE":.LI$...H|
00000A90: 03 99 22 11 C5 4E 54 45 52 20 54 48 45 20 46 49 |.."..NTER THE FI|
00000AA0: 4C 45 20 4E 41 4D 45 22 3A 99 22 28 27 2A 27 20 |LE NAME":."('*' |
00000AB0: 46 4F 52 20 53 41 4D 45 20 4E 41 4D 45 20 41 53 |FOR SAME NAME AS|
00000AC0: 20 42 45 46 4F 52 45 29 11 22 00 F2 12 52 03 46 | BEFORE)."...R.F|
00000AD0: 33 24 B2 46 49 24 3A 99 22 3E 22 3B 3A 84 31 2C |3$.FI$:.">";:.1,|
00000AE0: 41 24 3A 8B 41 24 B3 B1 22 2A 22 A7 46 33 24 B2 |A$:.A$.."*".F3$.|
00000AF0: 41 24 00 2E 13 5C 03 9F 31 35 2C 44 52 2C 31 35 |A$...\..15,DR,15|
00000B00: 2C 22 53 30 3A 22 AA 46 33 24 3A A0 31 35 3A 46 |,"S0:".F3$:.15:F|
00000B10: 34 24 B2 22 30 3A 22 AA 46 33 24 AA 22 2C 53 2C |4$."0:".F3$.",S,|
00000B20: 57 22 3A 9F 38 2C 44 52 2C 38 2C 46 34 24 00 59 |W":.8,DR,8,F4$.Y|
00000B30: 13 66 03 99 22 11 11 22 3A 81 52 B2 31 A4 4C 4E |.f.."..":.R.1.LN|
00000B40: 3A 99 22 CC 49 4E 45 3A 20 22 52 22 91 22 3A 98 |:.".INE: "R".":.|
00000B50: 38 2C 41 24 28 52 29 3A 82 00 77 13 70 03 A0 38 |8,A$(R):..w.p..8|
00000B60: 3A 99 3A 99 3A 99 22 C4 4F 4E 45 22 3A 8D 31 31 |:.:.:.".ONE":.11|
00000B70: 35 30 3A 89 32 36 30 00 98 13 7A 03 99 22 93 22 |50:.260...z.."."|
00000B80: A6 31 33 29 22 D0 52 49 4E 54 49 4E 47 20 C6 49 |.13)".RINTING .I|
00000B90: 4C 45 22 3A 99 4C 49 24 00 C8 13 84 03 99 22 11 |LE":.LI$......".|
00000BA0: C8 4F 57 20 4D 41 4E 59 20 4C 49 4E 45 53 20 50 |.OW MANY LINES P|
00000BB0: 45 52 20 50 41 47 45 20 44 4F 45 53 20 59 4F 55 |ER PAGE DOES YOU|
00000BC0: 52 20 50 41 50 45 52 22 00 F0 13 8E 03 99 22 48 |R PAPER"......"H|
00000BD0: 41 56 45 3F 20 28 30 20 3D 20 C3 4F 4E 54 49 4E |AVE? (0 = .ONTIN|
00000BE0: 55 4F 55 53 20 50 52 49 4E 54 49 4E 47 29 11 22 |UOUS PRINTING)."|
00000BF0: 00 19 14 98 03 99 22 3E 22 3B 3A 84 31 2C 4C 50 |......">";:.1,LP|
00000C00: 3A 4C 4C B2 30 3A 8B 4C 50 B3 30 B0 4C 50 B3 B1 |:LL.0:.LP.0.LP..|
00000C10: B5 28 4C 50 29 A7 38 39 30 00 4B 14 A2 03 99 3A |.(LP).890.K....:|
00000C20: 99 3A 99 22 D0 52 45 53 53 20 28 D3 50 41 43 45 |.:.".RESS (.PACE|
00000C30: 29 20 54 4F 20 50 52 49 4E 54 20 4F 52 20 27 C1 |) TO PRINT OR '.|
00000C40: 27 20 54 4F 20 41 42 4F 52 54 22 00 5F 14 AC 03 |' TO ABORT"._...|
00000C50: A1 41 24 3A 8B 41 24 B2 22 41 22 A7 32 36 30 00 |.A$:.A$."A".260.|
00000C60: 6F 14 B6 03 8B 41 24 B2 22 20 22 A7 39 37 30 00 |o....A$." ".970.|
00000C70: 78 14 C0 03 89 39 34 30 00 A0 14 CA 03 9F 39 2C |x....940......9,|
00000C80: 34 2C 37 3A 81 52 B2 31 A4 35 3A 98 39 3A 82 3A |4,7:.R.1.5:.9:.:|
00000C90: 81 52 B2 31 A4 4C 4E 3A 98 39 2C 41 24 28 52 29 |.R.1.LN:.9,A$(R)|
00000CA0: 00 C8 14 D4 03 4C 4C B2 4C 4C AA 31 3A 8B 4C 4C |.....LL.LL.1:.LL|
00000CB0: B2 4C 50 AB 31 30 A7 81 54 B2 31 A4 31 30 3A 98 |.LP.10..T.1.10:.|
00000CC0: 39 3A 82 3A 4C 4C B2 30 00 D9 14 DE 03 82 3A 98 |9:.:LL.0......:.|
00000CD0: 39 3A A0 39 3A 89 32 36 30 00 FB 14 E8 03 99 3A |9:.9:.260......:|
00000CE0: 99 22 11 C1 52 45 20 59 4F 55 20 53 55 52 45 20 |."..RE YOU SURE |
00000CF0: 28 59 2F 4E 29 3F 20 59 9D 22 3B 00 1F 15 F2 03 |(Y/N)? Y.";.....|
00000D00: 84 31 2C 41 24 3A 41 24 B2 C8 28 41 24 2C 31 29 |.1,A$:A$..(A$,1)|
00000D10: 3A 8B 41 24 B2 22 59 22 A7 99 22 93 22 3A 80 00 |:.A$."Y"..".":..|
00000D20: 28 15 FC 03 89 32 36 30 00 3B 15 06 04 8F 20 52 |(....260.;.... R|
00000D30: 45 54 55 52 4E 20 41 53 20 41 24 00 49 15 10 04 |ETURN AS A$.I...|
00000D40: 50 B2 30 3A 41 24 B2 22 22 00 5C 15 1A 04 99 C7 |P.0:A$."".\.....|
00000D50: 28 31 36 36 29 C7 28 31 35 37 29 3B 00 81 15 24 |(166).(157);...$|
00000D60: 04 A1 54 24 3A 8B 54 24 B2 22 22 B0 28 54 24 B2 |..T$:.T$."".(T$.|
00000D70: C7 28 32 34 29 AF 41 24 B2 22 22 29 A7 31 30 36 |.(24).A$."").106|
00000D80: 30 00 91 15 2E 04 99 22 20 22 C7 28 31 35 37 29 |0......" ".(157)|
00000D90: 3B 00 C6 15 38 04 8B 54 24 B2 5A 24 AF C3 28 41 |;...8..T$.Z$..(A|
00000DA0: 24 29 B1 30 A7 41 24 B2 C8 28 41 24 2C C3 28 41 |$).0.A$..(A$,.(A|
00000DB0: 24 29 AB 31 29 3A 99 54 24 3B 3A 50 B2 50 AB 31 |$).1):.T$;:P.P.1|
00000DC0: 3A 89 31 30 35 30 00 EC 15 42 04 8B 54 24 B2 C7 |:.1050...B..T$..|
00000DD0: 28 32 34 29 A7 81 5A B2 31 A4 C3 28 41 24 29 3A |(24)..Z.1..(A$):|
00000DE0: 99 5A 24 3B 3A 82 3A 89 31 30 34 30 00 00 16 4C |.Z$;:.:.1040...L|
00000DF0: 04 8B 54 24 B2 C7 28 31 33 29 A7 99 54 24 3A 8E |..T$..(13)..T$:.|
00000E00: 00 19 16 56 04 8B 28 C6 28 54 24 29 AF 31 32 37 |...V..(.(T$).127|
00000E10: 29 B3 33 32 A7 31 30 35 30 00 29 16 60 04 8B 50 |).32.1050.).`..P|
00000E20: B1 32 35 33 A7 31 30 35 30 00 4C 16 6A 04 99 54 |.253.1050.L.j..T|
00000E30: 24 3B 3A 41 24 B2 41 24 AA 54 24 3A 97 56 2C 30 |$;:A$.A$.T$:.V,0|
00000E40: 3A 50 B2 50 AA 31 3A 89 31 30 35 30 00 6F 16 74 |:P.P.1:.1050.o.t|
00000E50: 04 9F 31 35 2C 38 2C 31 35 3A 84 31 35 2C 41 24 |..15,8,15:.15,A$|
00000E60: 2C 42 24 2C 43 24 2C 44 24 3A A0 31 35 3A 8E 00 |,B$,C$,D$:.15:..|
00000E70: 81 16 7E 04 81 52 B2 31 A4 31 30 30 30 3A 82 3A |..~..R.1.1000:.:|
00000E80: 8E 00 00 00 |.... |
..%...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.....LI$."................
........................".B.(..".
SEQUENTIAL FILE EDITOR":.LI$"..."...2..
"ENTER THE NAME OF THE FILE YOU WISH TO
EDIT AND PRESS RETURN..".-.<..">";:.1,F
I$:.".":FI$.H(FI$,16).M.F.."FILENAME IS
"G(34)FI$G(34):.".IS THIS CORRECT? (Y/N)
Y.";...P..1,A$:.:.C(A$).0..".":.80...Z.
A$.H(A$,1):.A$."Y"..:.110...D.....N.."DI
SK DRIVE # (8-10) 8.";:.1,A$:DR..(E(A$))
...X..DR.8.DR.10..:..22)". .":.110
.-....". READING "G(34)FI$G(34):.LI$.P.
..F2$.FI$.",S,R":LN.1:." 1 : ";.G....8,
DR,8,F2$:.#8,A$... ..ST..0.."FILE NOT FO
UND":.1150:.1140:.......190......#8,A$.F
....A$..G(13).A$(LN).A$(LN).A$...H..ST..
0..1150:.260...R..A$.G(13).230......A$;:
.180.....B$."":.LN.9.B$." ".8....:LN.LN.
1:.B$;LN": ";:.ST..0.260.A....180.A... 8
:.".".13)"MAIN MENU":.LI$......"[1] LIST
FILE":.".[2] EDIT LINE":.".[3] INSERT L
INE".K....".[4] DELETE LINE":.".[5] RE-R
UN PROGRAM"..."..".[6] RE-SAVE FILE AFTE
R EDITING":.".[7] PRINT FILE TO PRINTER"
.+.,..".[8] EXIT PROGRAM..".V.6.."ENTER
YOUR CHOICE AND PRESS RETURN.".~.@..">";
:.1,A$:A..(E(A$)):.A.1.A.8.260...J..A.34
0,520,600,700,800,830,890,1000.C.T..".".
13)"LIST FILE":.LI$...^.."PRESS (A) TO A
BORT OR (SPACE) TO PAUSE".#.H..".(.W.)IT
H OR WITH(.O.)UT LINE NUMBERS? W.";.M.R.
.1,A$:A$.H(A$,1):.A$.."W".A$.."O".370.J.
|..".":.R.1.LN:.A$."O".410.....B$."":.R.
10.B$." "......B$;R": ";......A$(R).....
.T.1.100:.......C$:.C$.""..:.490......C$
."A"..:."..* ABORTED *":.490...B..C$.."
".430...L..".* PAUSED *"...V..C$:.C$."".
470.:....". ":.".";:.430.`....
". PRESS ANY KEY FOR MAIN MENU".S....C$
:.C$."".500.|....260......".".13)"EDIT L
INE":.LI$:.".WHICH LINE NUMBER TO EDIT?
";.Q....1,A$:A..(E(A$)):.......A.0.A..LN
.560...&..".BAD LINE NUMBER":.1150:.520.
7.0..". "A$(A):.".RETYPE LINE OR PRESS R
ETURN.".I.:..">";:.1040:..U.D..T$.G(13).
P.0..".UN-CHANGED":.1150:.260...N..".CHA
NGED":.1150:A$(A).A$:.260...X..".".13)"I
NSERT A LINE":.LI$...B.."..WHERE SHOULD
THE LINE BE INSERTED?."...L..">";:.1,A$:
A..(E(A$)):....V..A.0.A..LN.650.;....:."
BAD LINE NUMBER":.1150:.600......".WHAT
WOULD YOU LIKE THAT LINE TO BE? (PRES
S RETURN TO ABORT)."......">";:.1040....
..T$.G(13).P.0.260.Q....R.LN.A..1:A$(R.1
).A$(R):.:LN.LN.1......:.".DONE":.1150:A
$(A).A$:.260......".".13)"DELETE LINE":.
LI$.A.F..".WHICH LINE WOULD YOU LIKE TO
DELETE?.".\.P..">";:.1,A$:A..(E(A$)).N.Z
..A.1.A.LN.700......:.:.A$(A):.".DELETE
THIS LINE (Y/N)? Y.";......1,A$:A$.H(A$,
1):..D....A$."Y".780......".NOT DELETED"
:.1150:.260......R.A.LN:A$(R).A$(R.1):.:
LN.LN.1:.".DELETED"."....1150:.260.U. ..
:.".ARE YOU SURE (Y/N)? Y.";:.1,A$:A$.H(
A$,1).C.*..A$."Y"...L.4..260...>..".".12
)"RE-SAVE FILE":.LI$.J.H..".ENTER THE FI
LE NAME":."('*' FOR SAME NAME AS BEFORE)
."...R.F3$.FI$:.">";:.1,A$:.A$.."*".F3$.
A$...\..15,DR,15,"S0:".F3$: 15:F4$."0:".
F3$.",S,W":.8,DR,8,F4$.Y.F.."..":.R.1.LN
:."LINE: "R".":.8,A$(R):..W.P. 8:.:.:."D
ONE":.1150:.260...Z..".".13)"PRINTING FI
LE":.LI$.H....".HOW MANY LINES PER PAGE
DOES YOUR PAPER"......"HAVE? (0 = CONTIN
UOUS PRINTING)."......">";:.1,LP:LL.0:.L
P.0.LP...(LP).890.K....:.:."PRESS (SPACE
) TO PRINT OR 'A' TO ABORT"._....A$:.A$.
"A".260.O....A$." ".970.X....940. .J..9,
4,7:.R.1.5:.9:.:.R.1.LN:.9,A$(R).H.T.LL.
LL.1:.LL.LP.10..T.1.10:.9:.:LL.0.Y....:.
9: 9:.260......:.".ARE YOU SURE (Y/N)? Y
.";......1,A$:A$.H(A$,1):.A$."Y"..".":..
(....260.;.... RETURN AS A$.I...P.0:A$."
".\....G(166)G(157);...$..T$:.T$."".(T$.
G(24).A$."").1060......" "G(157);.F.8..T
$.Z$.C(A$).0.A$.H(A$,C(A$).1):.T$;:P.P.1
:.1050...B..T$.G(24)..Z.1.C(A$):.Z$;:.:.
1040...L..T$.G(13)..T$:....V..(F(T$).127
).32.1050.).`..P.253.1050.L.J..T$;:A$.A$
.T$:.V,0:P.P.1:.1050.O.T..15,8,15:.15,A$
,B$,C$,D$: 15:....~..R.1.1000:.:....
> CLICK IMAGE PREVIEW FOR FULL MODAL