WORD PROCESSOR
FILE INFORMATION
FILENAME(S): WORD PROCESSOR
FILE TYPE(S): PRG
FILE SIZE: 8.2K
FIRST SEEN: 2025-12-02 02:07:06
APPEARS ON: 1 disk(s)
FILE HASH
cfbaafaaa5bb97b3bf636c827579b19ead134e337dc81f896406cc558b409009
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| HULP WERKPRG 03 | WORD PROCESSOR | PRG | Shocktrooper | 17 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1E 08 02 00 97 35 33 32 38 31 2C 31 33 3A |.......53281,13:|
00000010: 97 35 33 32 38 30 2C 31 33 3A 99 22 90 22 00 5E |.53280,13:.".".^|
00000020: 08 0A 00 4C 4D B2 35 3A 4C 4C B2 37 30 3A 50 53 |...LM.5:LL.70:PS|
00000030: B2 33 3A 50 45 B2 33 3A 52 50 B2 31 3A 52 45 B2 |.3:PE.3:RP.1:RE.|
00000040: 35 30 30 3A 8F 20 44 45 46 41 55 4C 54 20 50 52 |500:. DEFAULT PR|
00000050: 49 4E 54 20 50 41 52 41 4D 45 54 45 52 53 00 96 |INT PARAMETERS..|
00000060: 08 0F 00 52 4F 24 B2 C7 28 31 38 29 3A 52 46 24 |...RO$..(18):RF$|
00000070: B2 C7 28 31 34 36 29 3A 43 4C 24 B2 C7 28 31 35 |..(146):CL$..(15|
00000080: 37 29 3A 43 52 24 B2 C7 28 32 39 29 3A 43 44 24 |7):CR$..(29):CD$|
00000090: B2 C7 28 31 37 29 00 AF 08 11 00 43 55 24 B2 C7 |..(17).....CU$..|
000000A0: 28 31 34 35 29 3A 48 4F 24 B2 C7 28 31 39 29 00 |(145):HO$..(19).|
000000B0: C9 08 14 00 86 41 24 28 35 30 30 29 3A 5A B2 36 |.....A$(500):Z.6|
000000C0: 33 35 33 36 3A 89 33 38 30 00 EF 08 17 00 8F 2A |3536:.380......*|
000000D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
000000F0: 15 09 19 00 8F 2A 20 20 20 20 20 20 20 20 20 20 |.....* |
00000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000110: 20 20 20 20 2A 00 3B 09 1B 00 8F 2A 20 41 20 53 | *.;....* A S|
00000120: 49 4D 50 4C 45 20 54 45 58 54 20 50 52 4F 43 45 |IMPLE TEXT PROCE|
00000130: 53 53 4F 52 20 46 4F 52 20 20 2A 00 61 09 1D 00 |SSOR FOR *.a...|
00000140: 8F 2A 20 20 20 20 20 20 54 48 45 20 43 4F 4D 4D |.* THE COMM|
00000150: 4F 44 4F 52 45 20 36 34 20 20 20 20 20 20 20 20 |ODORE 64 |
00000160: 2A 00 87 09 1F 00 8F 2A 20 20 42 59 20 41 2E 54 |*......* BY A.T|
00000170: 2E 47 4F 4C 56 45 52 44 49 4E 47 45 4E 20 28 43 |.GOLVERDINGEN (C|
00000180: 29 20 20 20 20 20 2A 00 AD 09 21 00 8F 2A 20 20 |) *...!..* |
00000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001A0: 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 D3 09 | *...|
000001B0: 23 00 8F 2A 20 41 44 41 50 54 45 44 20 46 52 4F |#..* ADAPTED FRO|
000001C0: 4D 20 27 41 27 20 53 49 4D 50 4C 45 20 54 45 58 |M 'A' SIMPLE TEX|
000001D0: 54 20 2A 00 F9 09 25 00 8F 2A 20 50 52 4F 43 45 |T *...%..* PROCE|
000001E0: 53 53 4F 52 27 20 42 59 20 41 2E 54 2E 47 20 20 |SSOR' BY A.T.G |
000001F0: 20 20 20 20 20 20 20 20 2A 00 1F 0A 27 00 8F 2A | *...'..*|
00000200: 20 20 20 4D 49 43 52 4F 43 4F 4D 50 55 54 49 4E | MICROCOMPUTIN|
00000210: 47 2C 20 4D 41 59 20 31 39 38 31 20 20 20 2A 00 |G, MAY 1981 *.|
00000220: 45 0A 29 00 8F 2A 20 20 20 20 20 20 20 20 20 20 |E.)..* |
00000230: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000240: 20 20 20 20 2A 00 6B 0A 2B 00 8F 2A 2A 2A 2A 2A | *.k.+..*****|
00000250: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000260: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 97 0A 46 00 |***********...F.|
00000270: 8F 20 2A 2A 2A 2A 20 41 56 41 49 4C 41 42 4C 45 |. **** AVAILABLE|
00000280: 20 4D 45 4D 4F 52 59 20 53 55 42 52 4F 55 54 49 | MEMORY SUBROUTI|
00000290: 4E 45 20 2A 2A 2A 2A 00 AD 0A 50 00 4D B2 B8 28 |NE ****...P.M..(|
000002A0: 30 29 3A 8B 4D B3 30 A7 4D B2 4D AA 5A 00 D7 0A |0):.M.0.M.M.Z...|
000002B0: 5A 00 99 22 20 20 20 20 20 22 3B C7 28 31 38 29 |Z.." ";.(18)|
000002C0: 22 42 59 54 45 53 20 52 45 4D 41 49 4E 49 4E 47 |"BYTES REMAINING|
000002D0: 3A 20 22 3B 4D 3A 8E 00 FD 0A 5F 00 8F 20 2A 2A |: ";M:...._.. **|
000002E0: 2A 20 45 44 49 54 20 54 45 58 54 20 42 4C 4F 43 |* EDIT TEXT BLOC|
000002F0: 4B 20 52 4F 55 54 49 4E 45 20 2A 2A 2A 00 35 0B |K ROUTINE ***.5.|
00000300: 64 00 99 C7 28 31 34 37 29 3B 22 2D 2D 2D 2D 2D |d...(147);"-----|
00000310: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000320: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000330: 2D 2D 2D 22 3B 00 56 0B 66 00 99 52 4F 24 22 52 |---";.V.f..RO$"R|
00000340: 45 46 23 22 3B 50 3B 52 46 24 3A 81 58 B2 31 A4 |EF#";P;RF$:.X.1.|
00000350: 38 3A 99 3A 82 58 00 86 0B 68 00 99 22 2D 2D 2D |8:.:.X...h.."---|
00000360: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000370: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000380: 2D 2D 2D 2D 2D 22 00 B5 0B 6A 00 99 22 43 4C 52 |-----"...j.."CLR|
00000390: 2F 48 4F 4D 45 20 4B 45 59 20 20 20 3A 43 55 52 |/HOME KEY :CUR|
000003A0: 53 4F 52 20 45 4E 44 20 4F 46 20 54 48 45 20 4C |SOR END OF THE L|
000003B0: 49 4E 45 2E 22 00 E3 0B 6C 00 99 22 53 48 49 46 |INE."...l.."SHIF|
000003C0: 54 20 43 4C 52 2F 48 4F 4D 45 20 3A 43 55 52 53 |T CLR/HOME :CURS|
000003D0: 4F 52 20 42 45 47 49 4E 4E 49 4E 47 20 4C 49 4E |OR BEGINNING LIN|
000003E0: 45 2E 22 00 0D 0C 6E 00 99 22 43 52 53 52 20 4C |E."...n.."CRSR L|
000003F0: 45 46 54 2F 52 49 47 48 54 3A 43 55 52 53 4F 52 |EFT/RIGHT:CURSOR|
00000400: 20 4C 45 46 54 20 26 20 52 49 47 48 54 00 36 0C | LEFT & RIGHT.6.|
00000410: 70 00 99 22 49 4E 53 54 2F 44 45 4C 20 4B 45 59 |p.."INST/DEL KEY|
00000420: 20 20 20 3A 44 45 4C 45 54 45 20 43 48 41 52 41 | :DELETE CHARA|
00000430: 43 54 45 52 2E 22 00 64 0C 72 00 99 22 53 48 49 |CTER.".d.r.."SHI|
00000440: 46 54 20 49 4E 53 54 2F 44 45 4C 20 3A 49 4E 53 |FT INST/DEL :INS|
00000450: 45 52 54 20 53 50 41 43 45 53 20 49 4E 20 4C 49 |ERT SPACES IN LI|
00000460: 4E 45 2E 22 00 92 0C 74 00 99 22 52 45 54 55 52 |NE."...t.."RETUR|
00000470: 4E 20 4B 45 59 20 20 20 20 20 3A 52 45 54 55 52 |N KEY :RETUR|
00000480: 4E 20 54 4F 20 52 45 56 49 45 57 20 4D 4F 44 45 |N TO REVIEW MODE|
00000490: 2E 22 00 AA 0C 76 00 8B 41 24 28 50 29 B2 22 22 |."...v..A$(P).""|
000004A0: A7 41 24 28 50 29 B2 22 20 22 00 BF 0C 78 00 99 |.A$(P)." "...x..|
000004B0: 48 4F 24 43 44 24 43 44 24 3B 41 24 28 50 29 00 |HO$CD$CD$;A$(P).|
000004C0: E7 0C 7A 00 4C B2 31 3A 99 48 4F 24 43 44 24 43 |..z.L.1:.HO$CD$C|
000004D0: 44 24 52 4F 24 3B CA 28 41 24 28 50 29 2C 4C 2C |D$RO$;.(A$(P),L,|
000004E0: 31 29 3B 43 4C 24 3B 00 FA 0C 7C 00 A1 45 24 3A |1);CL$;...|..E$:|
000004F0: 8B 45 24 B2 22 22 A7 31 32 34 00 11 0D 7E 00 45 |.E$."".124...~.E|
00000500: B2 C6 28 45 24 29 3A 8B 45 B2 31 33 A7 89 31 37 |..(E$):.E.13..17|
00000510: 34 00 25 0D 80 00 8B 45 B1 33 31 AF 45 B3 39 36 |4.%....E.31.E.96|
00000520: A7 89 31 36 32 00 3C 0D 82 00 8B 45 B2 32 39 AF |..162.<....E.29.|
00000530: 4C AA 31 B1 32 34 30 A7 89 31 32 34 00 5E 0D 84 |L.1.240..124.^..|
00000540: 00 8B 45 B2 32 39 A7 99 52 46 24 3B CA 28 41 24 |..E.29..RF$;.(A$|
00000550: 28 50 29 2C 4C 2C 31 29 3B 3A 89 31 37 30 00 74 |(P),L,1);:.170.t|
00000560: 0D 86 00 8B 45 B2 31 35 37 AF 4C AB 31 B3 31 A7 |....E.157.L.1.1.|
00000570: 89 31 32 34 00 A6 0D 88 00 8B 45 B2 31 35 37 A7 |.124......E.157.|
00000580: 99 52 46 24 3B CA 28 41 24 28 50 29 2C 4C 2C 31 |.RF$;.(A$(P),L,1|
00000590: 29 3B 3A 4C B2 4C AB 31 3A 99 43 4C 24 43 4C 24 |);:L.L.1:.CL$CL$|
000005A0: 3B 3A 89 31 37 32 00 BB 0D 8A 00 8B 45 B2 31 34 |;:.172......E.14|
000005B0: 35 B0 45 B2 31 37 A7 89 31 32 34 00 D3 0D 8C 00 |5.E.17..124.....|
000005C0: 8B 45 B2 31 34 38 AF 4C AA 31 B1 32 34 30 A7 89 |.E.148.L.1.240..|
000005D0: 31 32 34 00 F6 0D 8E 00 8B 45 B2 31 34 37 A7 99 |124......E.147..|
000005E0: 52 46 24 3B CA 28 41 24 28 50 29 2C 4C 2C 31 29 |RF$;.(A$(P),L,1)|
000005F0: 3B 3A 89 31 32 32 00 29 0E 90 00 8B 45 B2 31 39 |;:.122.)....E.19|
00000600: A7 99 52 46 24 48 4F 24 43 44 24 43 44 24 3B 41 |..RF$HO$CD$CD$;A|
00000610: 24 28 50 29 3B 43 4C 24 3B 3A 4C B2 C3 28 41 24 |$(P);CL$;:L..(A$|
00000620: 28 50 29 29 3A 89 31 37 32 00 3A 0E 92 00 8B 45 |(P)):.172.:....E|
00000630: B3 B1 31 34 38 A7 89 31 35 34 00 6F 0E 94 00 99 |..148..154.o....|
00000640: 52 46 24 3B CA 28 41 24 28 50 29 2C 4C 2C 31 29 |RF$;.(A$(P),L,1)|
00000650: 3B 43 4C 24 3B C7 28 31 34 38 29 3B 22 20 22 3B |;CL$;.(148);" ";|
00000660: 43 4C 24 52 4F 24 3B 22 20 22 3B 43 4C 24 3B 00 |CL$RO$;" ";CL$;.|
00000670: AD 0E 96 00 54 43 24 B2 41 24 28 50 29 3A 54 43 |....TC$.A$(P):TC|
00000680: 24 B2 C9 28 54 43 24 2C C3 28 54 43 24 29 AB 4C |$..(TC$,.(TC$).L|
00000690: AA 31 29 3A 41 24 28 50 29 B2 C8 28 41 24 28 50 |.1):A$(P)..(A$(P|
000006A0: 29 2C 4C AB 31 29 3A 45 24 B2 22 20 22 00 C9 0E |),L.1):E$." "...|
000006B0: 98 00 41 24 28 50 29 B2 41 24 28 50 29 AA 45 24 |..A$(P).A$(P).E$|
000006C0: AA 54 43 24 3A 89 31 32 34 00 D9 0E 9A 00 8B 45 |.TC$:.124......E|
000006D0: B3 B1 32 30 A7 89 31 36 32 00 F0 0E 9C 00 4C B2 |..20..162.....L.|
000006E0: 4C AB 31 3A 20 20 20 8B 4C B3 31 A7 89 31 32 32 |L.1: .L.1..122|
000006F0: 00 27 0F 9E 00 54 43 24 B2 41 24 28 50 29 3A 54 |.'...TC$.A$(P):T|
00000700: 43 24 B2 C9 28 54 43 24 2C C3 28 54 43 24 29 AB |C$..(TC$,.(TC$).|
00000710: 4C 20 20 29 3A 41 24 28 50 29 B2 C8 28 41 24 28 |L ):A$(P)..(A$(|
00000720: 50 29 2C 4C AB 31 29 00 48 0F A0 00 41 24 28 50 |P),L.1).H...A$(P|
00000730: 29 B2 41 24 28 50 29 AA 54 43 24 3A 99 C7 28 32 |).A$(P).TC$:..(2|
00000740: 30 29 3B 3A 89 31 32 34 00 5A 0F A2 00 8B 4C AA |0);:.124.Z....L.|
00000750: 31 B1 32 34 30 A7 89 31 32 34 00 8F 0F A4 00 54 |1.240..124.....T|
00000760: 43 24 B2 41 24 28 50 29 3A 54 43 24 B2 C9 28 54 |C$.A$(P):TC$..(T|
00000770: 43 24 2C C3 28 54 43 24 29 AB 4C 29 3A 41 24 28 |C$,.(TC$).L):A$(|
00000780: 50 29 B2 C8 28 41 24 28 50 29 2C 4C AB 31 29 00 |P)..(A$(P),L.1).|
00000790: A6 0F A6 00 41 24 28 50 29 B2 41 24 28 50 29 AA |....A$(P).A$(P).|
000007A0: 45 24 AA 54 43 24 00 BD 0F A8 00 99 52 46 24 3B |E$.TC$......RF$;|
000007B0: CA 28 41 24 28 50 29 2C 4C 2C 31 29 3B 00 E8 0F |.(A$(P),L,1);...|
000007C0: AA 00 4C B2 4C AA 31 3A 8B CA 28 41 24 28 50 29 |..L.L.1:..(A$(P)|
000007D0: 2C 4C 2C 31 29 B2 22 22 A7 41 24 28 50 29 B2 41 |,L,1)."".A$(P).A|
000007E0: 24 28 50 29 AA 22 20 22 00 08 10 AC 00 99 52 4F |$(P)." "......RO|
000007F0: 24 3B CA 28 41 24 28 50 29 2C 4C 2C 31 29 3B 43 |$;.(A$(P),L,1);C|
00000800: 4C 24 3B 3A 89 31 32 34 00 20 10 AE 00 99 52 46 |L$;:.124. ....RF|
00000810: 24 3B CA 28 41 24 28 50 29 2C 4C 2C 31 29 3A 8E |$;.(A$(P),L,1):.|
00000820: 00 46 10 F0 00 8F 20 2A 2A 2A 2A 20 44 41 54 41 |.F.... **** DATA|
00000830: 20 45 4E 54 52 59 20 53 55 42 52 4F 55 54 49 4E | ENTRY SUBROUTIN|
00000840: 45 20 2A 2A 2A 2A 00 53 10 F5 00 41 24 28 50 29 |E ****.S...A$(P)|
00000850: B2 22 22 00 60 10 FA 00 81 4E B2 31 A4 32 34 30 |."".`....N.1.240|
00000860: 00 73 10 FF 00 A1 42 24 3A 8B 42 24 B2 22 22 A7 |.s....B$:.B$."".|
00000870: 32 35 35 00 80 10 04 01 42 41 B2 C6 28 42 24 29 |255.....BA..(B$)|
00000880: 00 AC 10 09 01 8B 42 41 B2 32 30 A7 8D 31 35 30 |......BA.20..150|
00000890: 30 3A 99 C7 28 31 35 37 29 3B C7 28 33 32 29 3B |0:..(157);.(32);|
000008A0: C7 28 31 35 37 29 3B 3A 89 33 30 35 00 C2 10 0E |.(157);:.305....|
000008B0: 01 8B 42 41 B2 31 33 A7 4E B2 32 34 30 3A 89 33 |..BA.13.N.240:.3|
000008C0: 30 35 00 D7 10 18 01 8B 42 41 B2 39 34 A7 99 22 |05......BA.94.."|
000008D0: 20 20 20 20 20 22 3B 00 E4 10 1D 01 8B 42 41 B2 | ";......BA.|
000008E0: 34 33 A7 99 00 EC 10 27 01 99 42 24 00 FF 10 2C |43.....'..B$...,|
000008F0: 01 41 24 28 50 29 B2 41 24 28 50 29 AA 42 24 00 |.A$(P).A$(P).B$.|
00000900: 05 11 31 01 82 00 0B 11 36 01 8E 00 2C 11 40 01 |..1.....6...,.@.|
00000910: 8F 3A 20 2A 2A 2A 2A 20 44 49 53 50 4C 41 59 20 |.: **** DISPLAY |
00000920: 52 4F 55 54 49 4E 45 20 2A 2A 2A 2A 00 3C 11 4A |ROUTINE ****.<.J|
00000930: 01 8B 41 24 28 50 29 B2 22 22 A7 8E 00 64 11 55 |..A$(P).""...d.U|
00000940: 01 8B C6 28 C8 28 41 24 28 50 29 2C 31 29 29 B2 |...(.(A$(P),1)).|
00000950: 39 34 A7 99 22 20 20 20 20 20 22 3B 41 24 28 50 |94.." ";A$(P|
00000960: 29 3B 3A 8E 00 86 11 5F 01 8B C6 28 C8 28 41 24 |);:...._...(.(A$|
00000970: 28 50 29 2C 31 29 29 B2 34 33 A7 99 3A 99 41 24 |(P),1)).43..:.A$|
00000980: 28 50 29 3B 3A 8E 00 94 11 73 01 99 41 24 28 50 |(P);:....s..A$(P|
00000990: 29 3B 3A 8E 00 AD 11 7C 01 8F 3A 20 2A 2A 2A 20 |);:....|..: *** |
000009A0: 4D 41 49 4E 20 4D 45 4E 55 20 2A 2A 2A 00 C2 11 |MAIN MENU ***...|
000009B0: 86 01 99 C7 28 31 34 37 29 3B C7 28 31 34 32 29 |....(147);.(142)|
000009C0: 3A 99 00 E6 11 95 01 99 22 20 20 20 20 20 20 20 |:......." |
000009D0: 20 20 20 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D | ============|
000009E0: 3D 3D 3D 3D 3D 22 00 0A 12 9A 01 99 22 20 20 20 |====="......" |
000009F0: 20 20 20 20 20 20 20 20 3D 20 20 20 4D 41 49 4E | = MAIN|
00000A00: 20 4D 45 4E 55 20 20 20 3D 22 00 2E 12 A4 01 99 | MENU ="......|
00000A10: 22 20 20 20 20 20 20 20 20 20 20 20 3D 3D 3D 3D |" ====|
00000A20: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 22 00 34 |=============".4|
00000A30: 12 A9 01 99 00 55 12 AE 01 99 3A 99 22 20 20 20 |.....U....:." |
00000A40: 20 20 31 2E 57 52 49 54 45 20 54 45 58 54 20 42 | 1.WRITE TEXT B|
00000A50: 4C 4F 43 4B 22 00 7C 12 B8 01 99 3A 99 22 20 20 |LOCK".|....:." |
00000A60: 20 20 20 32 2E 52 45 56 49 45 57 2F 45 44 49 54 | 2.REVIEW/EDIT|
00000A70: 20 54 45 58 54 20 42 4C 4F 43 4B 22 00 A3 12 BD | TEXT BLOCK"....|
00000A80: 01 99 3A 99 22 20 20 20 20 20 33 2E 49 4E 53 45 |..:." 3.INSE|
00000A90: 52 54 2F 43 4F 50 59 20 54 45 58 54 20 42 4C 4F |RT/COPY TEXT BLO|
00000AA0: 43 4B 22 00 C2 12 C2 01 99 3A 99 22 20 20 20 20 |CK"......:." |
00000AB0: 20 34 2E 52 45 41 44 20 46 52 4F 4D 20 44 49 53 | 4.READ FROM DIS|
00000AC0: 4B 22 00 E1 12 CC 01 99 3A 99 22 20 20 20 20 20 |K"......:." |
00000AD0: 35 2E 57 52 49 54 45 20 20 54 4F 20 44 49 53 4B |5.WRITE TO DISK|
00000AE0: 22 00 01 13 D6 01 99 3A 99 22 20 20 20 20 20 36 |"......:." 6|
00000AF0: 2E 50 52 49 4E 54 20 48 41 52 44 20 43 4F 50 59 |.PRINT HARD COPY|
00000B00: 22 00 16 13 E0 01 99 3A 99 22 20 20 20 20 20 37 |"......:." 7|
00000B10: 2E 51 55 49 54 22 00 20 13 E4 01 99 3A 8D 37 30 |.QUIT". ....:.70|
00000B20: 00 40 13 E5 01 99 3A 99 22 20 20 20 20 20 45 4E |.@....:." EN|
00000B30: 54 45 52 20 53 45 4C 45 43 54 49 4F 4E 3A 20 22 |TER SELECTION: "|
00000B40: 00 55 13 EA 01 A1 41 4F 24 3A 8B 41 4F 24 B2 22 |.U....AO$:.AO$."|
00000B50: 22 A7 34 39 30 00 66 13 F4 01 8B 41 4F 24 B2 22 |".490.f....AO$."|
00000B60: 31 22 A7 35 37 30 00 77 13 FE 01 8B 41 4F 24 B2 |1".570.w....AO$.|
00000B70: 22 32 22 A7 36 38 30 00 8A 13 03 02 8B 41 4F 24 |"2".680......AO$|
00000B80: B2 22 33 22 A7 8D 32 31 30 30 00 9E 13 08 02 8B |."3"..2100......|
00000B90: 41 4F 24 B2 22 34 22 A7 89 20 31 31 34 30 00 B1 |AO$."4".. 1140..|
00000BA0: 13 12 02 8B 41 4F 24 B2 22 35 22 A7 8D 31 32 30 |....AO$."5"..120|
00000BB0: 30 00 C4 13 1C 02 8B 41 4F 24 B2 22 36 22 A7 8D |0......AO$."6"..|
00000BC0: 31 30 36 30 00 D8 13 26 02 8B 41 4F 24 B2 22 37 |1060...&..AO$."7|
00000BD0: 22 A7 A0 32 30 30 3A 80 00 E1 13 30 02 89 33 38 |"..200:....0..38|
00000BE0: 30 00 FF 13 3A 02 8F 20 2A 2A 2A 2A 20 57 52 49 |0...:.. **** WRI|
00000BF0: 54 45 20 52 4F 55 54 49 4E 45 20 2A 2A 2A 2A 00 |TE ROUTINE ****.|
00000C00: 0C 14 44 02 81 47 B2 31 A4 35 30 30 00 24 14 4E |..D..G.1.500.$.N|
00000C10: 02 8B 41 24 28 47 29 B2 22 22 A7 46 B2 47 3A 47 |..A$(G)."".F.G:G|
00000C20: B2 35 30 30 00 2A 14 58 02 82 00 36 14 5A 02 99 |.500.*.X...6.Z..|
00000C30: C7 28 31 34 37 29 00 79 14 5B 02 99 22 20 20 20 |.(147).y.[.." |
00000C40: 20 20 20 20 20 45 4E 54 45 52 20 52 45 46 23 20 | ENTER REF# |
00000C50: 4F 52 20 27 52 45 54 55 52 4E 27 20 46 4F 52 20 |OR 'RETURN' FOR |
00000C60: 4E 45 58 54 20 41 56 41 49 4C 41 42 4C 45 20 52 |NEXT AVAILABLE R|
00000C70: 45 46 23 3A 22 20 3A 85 46 00 A8 14 5D 02 8B 46 |EF#:" :.F...]..F|
00000C80: B3 30 B0 46 B1 35 30 30 A7 99 22 45 4E 54 45 52 |.0.F.500.."ENTER|
00000C90: 20 31 20 54 48 52 55 20 35 30 30 20 50 4C 45 41 | 1 THRU 500 PLEA|
00000CA0: 53 45 22 3A 89 36 30 33 00 E6 14 62 02 99 C7 28 |SE":.603...b...(|
00000CB0: 31 34 37 29 3B 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |147);"----------|
00000CC0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000CD0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 3B |--------------";|
00000CE0: C7 28 31 34 29 3B 00 F3 14 6C 02 81 50 B2 46 A4 |.(14);...l..P.F.|
00000CF0: 35 30 30 00 08 15 76 02 99 C7 28 31 38 29 3B 50 |500...v...(18);P|
00000D00: 3B C7 28 31 34 36 29 3B 00 42 15 7B 02 8B 41 24 |;.(146);.B.{..A$|
00000D10: 28 50 29 B3 B1 22 22 A7 99 C7 28 31 38 29 3B 22 |(P)..""...(18);"|
00000D20: 52 45 46 20 42 4C 4F 43 4B 20 41 43 54 49 56 45 |REF BLOCK ACTIVE|
00000D30: 22 3A 81 58 B2 31 A4 31 30 30 3A 82 58 3A 89 36 |":.X.1.100:.X:.6|
00000D40: 36 30 00 4B 15 80 02 8D 32 34 30 00 61 15 8A 02 |60.K....240.a...|
00000D50: 8B 28 41 24 28 50 29 29 B2 22 22 A7 50 B2 35 30 |.(A$(P))."".P.50|
00000D60: 30 00 67 15 94 02 82 00 70 15 9E 02 89 33 38 30 |0.g.....p....380|
00000D70: 00 94 15 A8 02 8F 20 2A 2A 2A 2A 20 52 45 56 49 |...... **** REVI|
00000D80: 45 57 2F 45 44 49 54 20 44 49 53 50 4C 41 59 20 |EW/EDIT DISPLAY |
00000D90: 2A 2A 2A 2A 00 A0 15 B2 02 99 C7 28 31 34 37 29 |****.......(147)|
00000DA0: 00 C0 15 BC 02 85 22 45 4E 54 45 52 20 52 45 46 |......"ENTER REF|
00000DB0: 23 20 46 4F 52 20 52 45 56 49 45 57 3A 22 3B 50 |# FOR REVIEW:";P|
00000DC0: 00 F5 15 C6 02 8B 50 B3 31 B0 50 B1 35 30 30 A7 |......P.1.P.500.|
00000DD0: 99 52 4F 24 22 45 4E 54 45 52 20 31 20 54 48 52 |.RO$"ENTER 1 THR|
00000DE0: 55 20 35 30 30 20 50 4C 45 41 53 45 2D 22 52 46 |U 500 PLEASE-"RF|
00000DF0: 24 89 37 30 30 00 17 16 D0 02 8F 3A 20 2A 2A 2A |$.700......: ***|
00000E00: 2A 20 44 49 53 50 4C 41 59 20 54 45 58 54 20 52 |* DISPLAY TEXT R|
00000E10: 45 46 20 2A 2A 2A 2A 00 4E 16 D5 02 99 C7 28 31 |EF ****.N.....(1|
00000E20: 34 37 29 3B 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |47);"-----------|
00000E30: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000E40: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 6A |-------------".j|
00000E50: 16 DA 02 99 C7 28 31 34 29 3B 52 4F 24 3B 22 52 |.....(14);RO$;"R|
00000E60: 45 46 23 22 3B 50 3B 52 46 24 00 7D 16 E4 02 8B |EF#";P;RF$.}....|
00000E70: 41 24 28 50 29 B3 B1 22 22 A7 38 30 30 00 90 16 |A$(P).."".800...|
00000E80: F8 02 99 C7 28 31 38 29 3B 22 45 4D 50 54 59 22 |....(18);"EMPTY"|
00000E90: 00 99 16 0C 03 89 38 32 30 00 A2 16 20 03 8D 33 |......820... ..3|
00000EA0: 32 30 00 BB 16 34 03 99 48 4F 24 3A 81 58 B2 31 |20...4..HO$:.X.1|
00000EB0: A4 38 3A 99 43 44 24 3B 3A 82 58 00 EB 16 3E 03 |.8:.CD$;:.X...>.|
00000EC0: 99 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |."--------------|
00000ED0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000EE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 03 17 43 03 |----------"...C.|
00000EF0: 99 52 4F 24 22 4B 45 59 20 43 4F 44 45 53 3A 22 |.RO$"KEY CODES:"|
00000F00: 52 46 24 00 17 17 48 03 99 22 20 27 46 27 3A 46 |RF$...H.." 'F':F|
00000F10: 4F 52 57 41 52 44 22 00 2C 17 52 03 99 22 20 27 |ORWARD".,.R.." '|
00000F20: 42 27 3A 42 41 43 4B 57 41 52 44 22 00 3D 17 5C |B':BACKWARD".=.\|
00000F30: 03 99 22 20 27 58 27 3A 45 58 49 54 22 00 50 17 |.." 'X':EXIT".P.|
00000F40: 66 03 99 22 20 27 44 27 3A 44 45 4C 45 54 45 22 |f.." 'D':DELETE"|
00000F50: 00 61 17 70 03 99 22 20 27 45 27 3A 45 44 49 54 |.a.p.." 'E':EDIT|
00000F60: 22 00 67 17 7A 03 99 00 85 17 84 03 99 52 4F 24 |".g.z........RO$|
00000F70: 22 43 4F 4E 54 52 4F 4C 20 43 4F 44 45 53 3A 22 |"CONTROL CODES:"|
00000F80: 52 46 24 3A 99 00 AD 17 89 03 99 22 20 20 20 20 |RF$:......." |
00000F90: 20 20 20 20 20 27 40 27 20 3A 20 44 4F 55 42 4C | '@' : DOUBL|
00000FA0: 45 20 57 49 44 54 48 20 54 59 50 45 22 00 D1 17 |E WIDTH TYPE"...|
00000FB0: 8E 03 99 22 20 20 20 20 20 20 20 20 20 27 5E 27 |..." '^'|
00000FC0: 20 3A 20 4E 45 57 20 50 41 52 41 47 52 41 50 48 | : NEW PARAGRAPH|
00000FD0: 22 00 F1 17 98 03 99 22 20 20 20 20 20 20 20 20 |"......" |
00000FE0: 20 27 2B 27 20 3A 20 53 4B 49 50 20 4C 49 4E 45 | '+' : SKIP LINE|
00000FF0: 22 00 13 18 A2 03 99 22 20 20 20 20 20 20 20 20 |"......" |
00001000: 20 27 5F 27 20 3A 20 4C 45 46 54 20 4D 41 52 47 | '_' : LEFT MARG|
00001010: 49 4E 22 00 2B 18 AC 03 99 52 4F 24 22 43 48 4F |IN".+....RO$"CHO|
00001020: 49 43 45 3A 20 3F 22 3B 52 46 24 00 40 18 AD 03 |ICE: ?";RF$.@...|
00001030: A1 41 4F 24 3A 8B 41 4F 24 B2 22 22 A7 39 34 31 |.AO$:.AO$."".941|
00001040: 00 4C 18 B1 03 99 C7 28 31 34 37 29 00 5D 18 B6 |.L.....(147).]..|
00001050: 03 8B 41 4F 24 B2 22 58 22 A7 33 38 30 00 7B 18 |..AO$."X".380.{.|
00001060: C0 03 8B 41 4F 24 B2 22 46 22 AF 50 B3 35 30 30 |...AO$."F".P.500|
00001070: A7 50 B2 50 AA 31 3A 89 37 32 30 00 8C 18 CA 03 |.P.P.1:.720.....|
00001080: 8B 41 4F 24 B2 22 46 22 A7 37 32 30 00 A8 18 D4 |.AO$."F".720....|
00001090: 03 8B 41 4F 24 B2 22 42 22 AF 50 B1 31 A7 50 B2 |..AO$."B".P.1.P.|
000010A0: 50 AB 31 3A 89 37 32 30 00 B9 18 DE 03 8B 41 4F |P.1:.720......AO|
000010B0: 24 B2 22 42 22 A7 37 32 30 00 D0 18 E8 03 8B 41 |$."B".720......A|
000010C0: 4F 24 B2 22 45 22 A7 8D 31 30 30 3A 89 37 32 30 |O$."E"..100:.720|
000010D0: 00 EB 18 F2 03 8B 41 4F 24 B2 22 44 22 A7 41 24 |......AO$."D".A$|
000010E0: 28 50 29 B2 22 22 3A 89 37 32 30 00 F4 18 FC 03 |(P)."":.720.....|
000010F0: 89 37 32 35 00 13 19 24 04 8F 20 2A 2A 2A 2A 20 |.725...$.. **** |
00001100: 4D 41 4B 45 20 48 41 52 44 20 43 4F 50 59 20 2A |MAKE HARD COPY *|
00001110: 2A 2A 2A 00 1F 19 25 04 99 C7 28 31 34 37 29 00 |***...%...(147).|
00001120: 56 19 26 04 99 22 43 4F 4E 46 49 47 55 52 45 20 |V.&.."CONFIGURE |
00001130: 50 52 49 4E 54 20 52 4F 55 54 49 4E 45 3F 22 3A |PRINT ROUTINE?":|
00001140: 85 51 24 3A 8B C8 28 51 24 2C 31 29 B3 B1 22 59 |.Q$:..(Q$,1).."Y|
00001150: 22 A7 31 30 38 35 00 86 19 27 04 99 22 45 4E 54 |".1085...'.."ENT|
00001160: 45 52 20 4C 45 46 54 20 4D 41 52 47 49 4E 20 28 |ER LEFT MARGIN (|
00001170: 4E 55 4D 42 45 52 20 4F 46 20 43 48 41 52 41 43 |NUMBER OF CHARAC|
00001180: 54 45 52 53 29 22 00 B4 19 28 04 4C 4D B2 35 3A |TERS)"...(.LM.5:|
00001190: 85 4C 4D 3A 8B 4C 4D B1 37 30 A7 99 22 31 20 54 |.LM:.LM.70.."1 T|
000011A0: 48 52 55 20 37 30 20 50 4C 45 41 53 45 22 3A 89 |HRU 70 PLEASE":.|
000011B0: 31 30 36 33 00 FB 19 29 04 99 22 45 4E 54 45 52 |1063...).."ENTER|
000011C0: 20 4C 49 4E 45 20 4C 45 4E 47 54 48 20 57 41 4E | LINE LENGTH WAN|
000011D0: 54 45 44 20 28 4E 55 4D 42 45 52 20 4F 46 20 54 |TED (NUMBER OF T|
000011E0: 4F 54 41 4C 20 43 48 41 52 41 43 54 45 52 53 29 |OTAL CHARACTERS)|
000011F0: 22 3A 4C 4C B2 37 30 3A 85 4C 4C 00 28 1A 2A 04 |":LL.70:.LL.(.*.|
00001200: 8B 4C 4C B3 32 30 B0 4C 4C B1 38 30 A7 99 22 32 |.LL.20.LL.80.."2|
00001210: 30 20 54 48 52 55 20 38 30 20 50 4C 45 41 53 45 |0 THRU 80 PLEASE|
00001220: 2D 22 3A 89 31 30 36 35 00 57 1A 2B 04 50 53 B2 |-":.1065.W.+.PS.|
00001230: 33 3A 99 22 45 4E 54 45 52 20 54 4F 50 20 4D 41 |3:."ENTER TOP MA|
00001240: 52 47 49 4E 20 28 4E 55 4D 42 45 52 20 4F 46 20 |RGIN (NUMBER OF |
00001250: 4C 49 4E 45 53 29 22 00 83 1A 2D 04 85 50 53 3A |LINES)"...-..PS:|
00001260: 8B 50 53 B3 31 B0 50 53 B1 36 35 A7 99 22 31 20 |.PS.1.PS.65.."1 |
00001270: 54 4F 20 36 35 20 50 4C 45 41 53 45 22 3A 89 31 |TO 65 PLEASE":.1|
00001280: 30 36 37 00 B5 1A 2F 04 50 45 B2 33 3A 99 22 45 |067.../.PE.3:."E|
00001290: 4E 54 45 52 20 42 4F 54 54 4F 4D 20 4D 41 52 47 |NTER BOTTOM MARG|
000012A0: 49 4E 20 28 4E 55 4D 42 45 52 20 4F 46 20 4C 49 |IN (NUMBER OF LI|
000012B0: 4E 45 53 29 22 00 E1 1A 31 04 85 50 45 3A 8B 50 |NES)"...1..PE:.P|
000012C0: 45 B3 31 B0 50 45 B1 36 35 A7 99 22 31 20 54 4F |E.1.PE.65.."1 TO|
000012D0: 20 36 35 20 50 4C 45 41 53 45 22 3A 89 31 30 37 | 65 PLEASE":.107|
000012E0: 31 00 01 1B 33 04 52 50 B2 31 3A 99 22 45 4E 54 |1...3.RP.1:."ENT|
000012F0: 45 52 20 53 54 41 52 54 49 4E 47 20 52 45 46 23 |ER STARTING REF#|
00001300: 22 00 31 1B 35 04 85 52 50 3A 8B 52 50 B3 31 B0 |".1.5..RP:.RP.1.|
00001310: 52 50 B1 35 30 30 A7 99 22 31 20 54 48 52 55 20 |RP.500.."1 THRU |
00001320: 35 30 30 20 50 4C 45 41 53 45 22 3A 89 31 30 37 |500 PLEASE":.107|
00001330: 35 00 69 1B 3B 04 52 45 B2 35 30 30 3A 99 22 45 |5.i.;.RE.500:."E|
00001340: 4E 54 45 52 20 45 4E 44 49 4E 47 20 52 45 46 23 |NTER ENDING REF#|
00001350: 2D 22 3A 85 52 45 3A 8B 52 45 B3 31 B0 52 45 B1 |-":.RE:.RE.1.RE.|
00001360: 35 30 30 A7 89 31 30 37 35 00 A2 1B 3D 04 99 22 |500..1075...=.."|
00001370: 53 45 54 20 54 4F 50 20 4F 46 20 46 52 4F 4D 20 |SET TOP OF FROM |
00001380: 50 52 49 4E 54 45 52 2E 50 52 45 53 53 20 41 4E |PRINTER.PRESS AN|
00001390: 59 20 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 |Y KEY TO CONTINU|
000013A0: 45 22 00 B6 1B 3F 04 A1 51 24 3A 8B 51 24 B2 22 |E"...?..Q$:.Q$."|
000013B0: 22 A7 31 30 38 37 00 D6 1B 41 04 8F 20 2A 2A 2A |".1087...A.. ***|
000013C0: 2A 20 54 55 52 4E 20 4F 4E 20 50 52 49 4E 54 45 |* TURN ON PRINTE|
000013D0: 52 20 2A 2A 2A 2A 00 EC 1B 43 04 9F 34 2C 34 2C |R ****...C..4,4,|
000013E0: 37 3A 9D 34 3A 20 20 8D 31 33 38 37 00 15 1C 45 |7:.4: .1387...E|
000013F0: 04 4C 4D 24 B2 22 22 3A 81 4A B2 31 A4 4C 4D 3A |.LM$."":.J.1.LM:|
00001400: 4C 4D 24 B2 4C 4D 24 AA C7 28 33 32 29 3A 82 4A |LM$.LM$..(32):.J|
00001410: 3A 50 46 B2 30 00 22 1C 47 04 81 50 B2 52 50 A4 |:PF.0.".G..P.RP.|
00001420: 52 45 00 47 1C 49 04 8B 41 24 28 50 29 B2 22 22 |RE.G.I..A$(P).""|
00001430: AF 41 24 28 50 AA 31 29 B2 22 22 A7 50 B2 35 30 |.A$(P.1)."".P.50|
00001440: 30 3A 89 31 31 31 30 00 51 1C 4C 04 8D 31 33 30 |0:.1110.Q.L..130|
00001450: 30 00 57 1C 56 04 82 00 71 1C 60 04 8B 50 46 B2 |0.W.V...q.`..PF.|
00001460: 31 A7 50 4F 24 B2 4C 4D 24 AA 42 24 3A 99 50 4F |1.PO$.LM$.B$:.PO|
00001470: 24 00 7B 1C 65 04 98 34 3A A0 34 00 81 1C 6A 04 |$.{.e..4:.4...j.|
00001480: 8E 00 A0 1C 74 04 8F 20 2A 2A 2A 2A 20 52 45 41 |....t.. **** REA|
00001490: 44 20 54 45 58 54 20 46 49 4C 45 20 2A 2A 2A 2A |D TEXT FILE ****|
000014A0: 00 CB 1C 76 04 99 C7 28 31 34 37 29 3A 99 22 54 |...v...(147):."T|
000014B0: 45 58 54 20 46 49 4C 45 20 4C 4F 41 44 20 49 4E |EXT FILE LOAD IN|
000014C0: 20 50 52 4F 47 52 45 53 53 22 3B 00 D8 1C 79 04 | PROGRESS";...y.|
000014D0: 9F 31 35 2C 38 2C 31 35 00 F4 1C 7E 04 9F 35 2C |.15,8,15...~..5,|
000014E0: 38 2C 35 2C 22 30 3A 54 45 58 54 46 49 4C 45 2C |8,5,"0:TEXTFILE,|
000014F0: 53 2C 52 22 00 14 1D 80 04 8D 32 30 30 30 3A 8B |S,R"......2000:.|
00001500: 45 52 B2 31 A7 45 52 B2 30 3A 46 49 B2 30 3A 89 |ER.1.ER.0:FI.0:.|
00001510: 31 31 38 30 00 1E 1D 83 04 84 35 2C 46 49 00 33 |1180......5,FI.3|
00001520: 1D 88 04 81 50 B2 31 A4 46 49 3A 41 24 28 50 29 |....P.1.FI:A$(P)|
00001530: B2 22 22 00 5E 1D 8A 04 A1 23 35 2C 43 24 3A 8B |."".^....#5,C$:.|
00001540: C6 28 43 24 29 B3 B1 31 33 A7 41 24 28 50 29 B2 |.(C$)..13.A$(P).|
00001550: 41 24 28 50 29 AA 43 24 3A 89 31 31 36 32 00 6A |A$(P).C$:.1162.j|
00001560: 1D 97 04 99 22 2E 22 3B 3A 82 00 75 1D 9C 04 A0 |....".";:..u....|
00001570: 35 3A A0 31 35 00 AE 1D 9E 04 99 3A 99 3A 99 46 |5:.15......:.:.F|
00001580: 49 3B 22 54 45 58 54 20 42 4C 4F 43 4B 53 20 52 |I;"TEXT BLOCKS R|
00001590: 45 41 44 2E 50 52 45 53 53 20 41 4E 59 20 4B 45 |EAD.PRESS ANY KE|
000015A0: 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 00 C2 |Y TO CONTINUE"..|
000015B0: 1D A0 04 A1 51 24 3A 8B 51 24 B2 22 22 A7 31 31 |....Q$:.Q$."".11|
000015C0: 38 34 00 CB 1D A6 04 89 33 38 30 00 EB 1D B0 04 |84......380.....|
000015D0: 8F 20 2A 2A 2A 2A 20 57 52 49 54 45 20 54 45 58 |. **** WRITE TEX|
000015E0: 54 20 46 49 4C 45 20 2A 2A 2A 2A 00 17 1E B2 04 |T FILE ****.....|
000015F0: 99 C7 28 31 34 37 29 3A 99 22 54 45 58 54 20 46 |..(147):."TEXT F|
00001600: 49 4C 45 20 53 41 56 45 20 49 4E 20 50 52 4F 47 |ILE SAVE IN PROG|
00001610: 52 45 53 53 22 3A 99 00 24 1E B5 04 9F 31 35 2C |RESS":..$....15,|
00001620: 38 2C 31 35 00 41 1E BA 04 9F 35 2C 38 2C 35 2C |8,15.A....5,8,5,|
00001630: 22 40 30 3A 54 45 58 54 46 49 4C 45 2C 53 2C 57 |"@0:TEXTFILE,S,W|
00001640: 22 00 61 1E BF 04 8D 32 30 30 30 3A 8B 45 52 B2 |".a....2000:.ER.|
00001650: 31 A7 45 52 B2 30 3A 46 49 B2 30 3A 89 31 32 37 |1.ER.0:FI.0:.127|
00001660: 35 00 6E 1E D8 04 81 50 B2 31 A4 35 30 30 00 82 |5.n....P.1.500..|
00001670: 1E DD 04 8B 41 24 28 50 29 B3 B1 22 22 A7 46 49 |....A$(P).."".FI|
00001680: B2 50 00 89 1E E2 04 82 50 00 93 1E E7 04 98 35 |.P......P......5|
00001690: 2C 46 49 00 9F 1E EC 04 81 50 B2 31 A4 46 49 00 |,FI......P.1.FI.|
000016A0: AC 1E F1 04 98 35 2C 41 24 28 50 29 00 B3 1E F6 |.....5,A$(P)....|
000016B0: 04 82 50 00 BE 1E FB 04 A0 35 3A A0 31 35 00 F5 |..P......5:.15..|
000016C0: 1E 00 05 99 46 49 3B 22 54 45 58 54 20 42 4C 4F |....FI;"TEXT BLO|
000016D0: 43 4B 53 20 53 41 56 45 44 2E 20 50 52 45 53 53 |CKS SAVED. PRESS|
000016E0: 20 41 4E 59 20 4B 45 59 20 54 4F 20 43 4F 4E 54 | ANY KEY TO CONT|
000016F0: 49 4E 55 45 22 00 09 1F 05 05 A1 51 24 3A 8B 51 |INUE"......Q$:.Q|
00001700: 24 B2 22 22 A7 31 32 38 35 00 0F 1F 0A 05 8E 00 |$."".1285.......|
00001710: 2F 1F 14 05 8F 20 2A 2A 2A 2A 20 50 52 49 4E 54 |/.... **** PRINT|
00001720: 45 52 20 52 4F 55 54 49 4E 45 20 2A 2A 2A 2A 00 |ER ROUTINE ****.|
00001730: 40 1F 19 05 8B 41 24 28 50 29 B2 22 22 A7 20 8E |@....A$(P)."". .|
00001740: 00 55 1F 1E 05 54 43 B2 C6 28 C8 28 41 24 28 50 |.U...TC..(.(A$(P|
00001750: 29 2C 31 29 29 00 84 1F 23 05 8B 54 43 B2 39 34 |),1))...#..TC.94|
00001760: A7 8D 31 33 38 30 3A 43 43 B2 4C 4D AA 35 3A 42 |..1380:CC.LM.5:B|
00001770: 24 B2 22 20 20 20 20 20 22 3A 50 46 B2 31 3A 89 |$." ":PF.1:.|
00001780: 31 33 34 30 00 AB 1F 28 05 8B 54 43 B2 34 33 A7 |1340...(..TC.43.|
00001790: 8D 31 33 38 30 3A 99 3A 4C 43 B2 4C 43 AA 31 3A |.1380:.:LC.LC.1:|
000017A0: 8D 31 33 38 33 3A 89 31 33 34 30 00 D1 1F 2D 05 |.1383:.1340...-.|
000017B0: 8B 54 43 B2 36 34 A7 8D 31 33 38 30 3A 44 57 B2 |.TC.64..1380:DW.|
000017C0: 31 3A 99 C7 28 31 34 29 3B 3A 8D 31 33 38 30 3A |1:..(14);:.1380:|
000017D0: 8E 00 E8 1F 32 05 8B 54 43 B2 39 35 A7 8D 31 33 |....2..TC.95..13|
000017E0: 38 30 3A 89 31 33 34 30 00 FC 1F 37 05 54 43 24 |80:.1340...7.TC$|
000017F0: B2 41 24 28 50 29 3A 89 31 33 34 35 00 26 20 3C |.A$(P):.1345.& <|
00001800: 05 54 43 24 B2 C9 28 41 24 28 50 29 2C C3 28 41 |.TC$..(A$(P),.(A|
00001810: 24 28 50 29 29 AB 31 3A 8B 54 43 24 B2 22 22 A7 |$(P)).1:.TC$."".|
00001820: 50 46 B2 30 3A 8E 00 36 20 41 05 8B 50 45 B2 30 |PF.0:..6 A..PE.0|
00001830: A7 42 24 B2 22 22 00 6C 20 42 05 81 58 B2 31 A4 |.B$."".l B..X.1.|
00001840: C3 28 54 43 24 29 3A 8B 42 24 B2 22 22 AF CA 28 |.(TC$):.B$.""..(|
00001850: 54 43 24 2C 58 2C 31 29 B2 C7 28 33 32 29 A7 43 |TC$,X,1)..(32).C|
00001860: 43 B2 43 43 AA 31 3A 58 B2 58 AA 31 00 89 20 46 |C.CC.1:X.X.1.. F|
00001870: 05 43 43 B2 43 43 AA 31 3A 42 24 B2 42 24 AA CA |.CC.CC.1:B$.B$..|
00001880: 28 54 43 24 2C 58 2C 31 29 00 B1 20 4B 05 8B 4C |(TC$,X,1).. K..L|
00001890: 4C AB 43 43 B3 31 30 AF CA 28 54 43 24 2C 58 2C |L.CC.10..(TC$,X,|
000018A0: 31 29 B2 22 20 22 A7 50 46 B2 31 3A 8D 31 33 38 |1)." ".PF.1:.138|
000018B0: 30 00 C7 20 50 05 8B 43 43 B1 4C 4C A7 50 46 B2 |0.. P..CC.LL.PF.|
000018C0: 31 3A 8D 31 33 38 30 00 DB 20 55 05 82 58 3A 8B |1:.1380.. U..X:.|
000018D0: 42 24 B3 B1 22 22 A7 50 46 B2 31 00 E1 20 5F 05 |B$.."".PF.1.. _.|
000018E0: 8E 00 1C 21 64 05 8B 50 46 B2 31 AF 42 24 B3 B1 |...!d..PF.1.B$..|
000018F0: 22 54 48 45 4E 50 4F 24 3D 4C 4D 24 2B 42 24 3A |"THENPO$=LM$+B$:|
00001900: 50 52 49 4E 54 50 4F 24 3A 42 24 3D 22 22 3A 43 |PRINTPO$:B$="":C|
00001910: 43 3D 4C 4D 3A 4C 43 3D 4C 43 2B 31 00 33 21 65 |C=LM:LC=LC+1.3!e|
00001920: 05 8B 44 57 B2 31 A7 99 C7 28 31 35 29 3B 3A 44 |..DW.1...(15);:D|
00001930: 57 B2 30 00 48 21 66 05 8B 4C 43 B3 28 36 36 AB |W.0.H!f..LC.(66.|
00001940: 50 45 29 A7 31 33 39 39 00 59 21 69 05 81 49 B2 |PE).1399.Y!i..I.|
00001950: 31 A4 50 45 3A 99 3A 82 49 00 6A 21 6B 05 81 49 |1.PE:.:.I.j!k..I|
00001960: B2 31 A4 50 53 3A 99 3A 82 49 00 74 21 6D 05 4C |.1.PS:.:.I.t!m.L|
00001970: 43 B2 50 53 00 7F 21 77 05 50 46 B2 30 3A 8E 00 |C.PS..!w.PF.0:..|
00001980: B2 21 DC 05 8F 20 2A 2A 2A 2A 20 44 45 4C 45 54 |.!... **** DELET|
00001990: 45 20 4B 45 59 20 52 4F 55 54 49 4E 45 20 46 4F |E KEY ROUTINE FO|
000019A0: 52 20 57 52 49 54 45 20 42 4C 4F 43 4B 20 2A 2A |R WRITE BLOCK **|
000019B0: 2A 2A 00 D7 21 E1 05 8B C3 28 41 24 28 50 29 29 |**..!....(A$(P))|
000019C0: B3 31 A7 41 24 28 50 29 B2 22 22 3A 4E B2 32 34 |.1.A$(P)."":N.24|
000019D0: 30 3A 89 31 35 33 30 00 F5 21 E6 05 41 24 28 50 |0:.1530..!..A$(P|
000019E0: 29 B2 C8 28 41 24 28 50 29 2C C3 28 41 24 28 50 |)..(A$(P),.(A$(P|
000019F0: 29 29 AB 31 29 00 08 22 F0 05 8B 4E B1 31 B0 4E |)).1).."...N.1.N|
00001A00: B2 31 A7 4E B2 4E AB 31 00 0E 22 FA 05 8E 00 31 |.1.N.N.1.."....1|
00001A10: 22 D0 07 8F 20 2A 2A 2A 2A 20 44 49 53 4B 20 45 |"... **** DISK E|
00001A20: 52 52 4F 52 20 48 41 4E 44 4C 45 52 20 2A 2A 2A |RROR HANDLER ***|
00001A30: 2A 00 49 22 DA 07 84 31 35 2C 53 31 24 2C 53 32 |*.I"...15,S1$,S2|
00001A40: 24 2C 53 33 24 2C 53 34 24 00 74 22 E4 07 8B C5 |$,S3$,S4$.t"....|
00001A50: 28 53 31 24 29 B1 30 A7 99 53 31 24 2C 53 32 24 |(S1$).0..S1$,S2$|
00001A60: 2C 53 33 24 2C 53 34 24 3A A0 35 3A A0 31 35 3A |,S3$,S4$:.5:.15:|
00001A70: 45 52 B2 31 00 7A 22 EE 07 8E 00 86 22 34 08 99 |ER.1.z"....."4..|
00001A80: C7 28 31 34 37 29 00 AD 22 3E 08 99 22 20 27 49 |.(147)..">.." 'I|
00001A90: 27 20 49 4E 53 45 52 54 20 45 4D 50 54 59 20 42 |' INSERT EMPTY B|
00001AA0: 4C 4F 43 4B 20 41 54 20 52 45 46 23 22 00 DA 22 |LOCK AT REF#".."|
00001AB0: 48 08 99 22 20 27 43 27 20 43 4F 50 59 20 45 58 |H.." 'C' COPY EX|
00001AC0: 49 53 54 54 49 4E 47 20 42 4C 4F 43 4B 20 54 4F |ISTTING BLOCK TO|
00001AD0: 20 4E 45 57 20 52 45 46 23 22 00 ED 22 52 08 85 | NEW REF#".."R..|
00001AE0: 22 43 4F 4D 4D 41 4E 44 3A 22 3B 51 24 00 FE 22 |"COMMAND:";Q$.."|
00001AF0: 5C 08 8B 51 24 B2 22 43 22 A7 32 32 30 30 00 0F |\..Q$."C".2200..|
00001B00: 23 66 08 8B 51 24 B2 22 49 22 A7 32 34 30 30 00 |#f..Q$."I".2400.|
00001B10: 18 23 70 08 89 33 38 30 00 29 23 98 08 8F 20 43 |.#p..380.)#... C|
00001B20: 4F 50 59 20 42 4C 4F 43 4B 00 45 23 A2 08 99 3A |OPY BLOCK.E#...:|
00001B30: 99 22 52 45 46 23 20 54 4F 20 43 4F 50 59 20 46 |."REF# TO COPY F|
00001B40: 52 4F 4D 3A 22 00 5F 23 AC 08 85 50 31 3A 8B 50 |ROM:"._#...P1:.P|
00001B50: 31 B3 30 B0 50 31 B1 35 30 30 A7 32 32 31 30 00 |1.0.P1.500.2210.|
00001B60: 79 23 B1 08 85 22 52 45 46 23 20 54 4F 20 43 4F |y#..."REF# TO CO|
00001B70: 50 59 20 54 4F 3A 22 3B 50 00 8D 23 B6 08 8B 50 |PY TO:";P..#...P|
00001B80: B3 30 B0 50 B1 35 30 30 A7 32 32 31 30 00 C1 23 |.0.P.500.2210..#|
00001B90: C0 08 99 22 52 45 46 23 20 22 3B 50 31 3B 22 20 |..."REF# ";P1;" |
00001BA0: 57 49 4C 4C 20 42 45 20 43 4F 50 49 45 44 20 54 |WILL BE COPIED T|
00001BB0: 4F 20 52 45 46 23 20 22 3B 50 3B 22 2E 4F 4B 3F |O REF# ";P;".OK?|
00001BC0: 22 00 E3 23 1A 09 51 24 B2 22 4E 22 3A 85 51 24 |"..#..Q$."N":.Q$|
00001BD0: 3A 8B C8 28 51 24 2C 31 29 B2 22 59 22 A7 89 32 |:..(Q$,1)."Y"..2|
00001BE0: 33 35 30 00 EC 23 24 09 89 33 38 30 00 FD 23 2E |350..#$..380..#.|
00001BF0: 09 41 24 28 50 29 B2 41 24 28 50 31 29 00 13 24 |.A$(P).A$(P1)..$|
00001C00: 38 09 99 22 41 4E 4F 54 48 45 52 20 43 4F 50 59 |8.."ANOTHER COPY|
00001C10: 3F 3A 22 00 35 24 42 09 51 24 B2 22 4E 22 3A 85 |?:".5$B.Q$."N":.|
00001C20: 51 24 3A 8B C8 28 51 24 2C 31 29 B2 22 59 22 A7 |Q$:..(Q$,1)."Y".|
00001C30: 89 32 32 31 30 00 3E 24 4C 09 89 33 38 30 00 64 |.2210.>$L..380.d|
00001C40: 24 60 09 8F 20 49 4E 53 45 52 54 20 42 4C 41 4E |$`.. INSERT BLAN|
00001C50: 4B 20 54 45 58 54 20 42 4C 4F 43 4B 20 41 54 20 |K TEXT BLOCK AT |
00001C60: 52 45 46 23 00 8F 24 6A 09 99 3A 99 22 52 45 46 |REF#..$j..:."REF|
00001C70: 23 20 54 4F 20 49 4E 53 45 52 54 20 45 4D 50 54 |# TO INSERT EMPT|
00001C80: 59 20 54 45 58 54 20 42 4C 4F 43 4B 3F 3A 22 00 |Y TEXT BLOCK?:".|
00001C90: AA 24 74 09 85 50 31 3A 8B 50 31 B3 30 B0 50 31 |.$t..P1:.P1.0.P1|
00001CA0: B1 35 30 30 A7 89 32 34 31 30 00 DA 24 7E 09 81 |.500..2410..$~..|
00001CB0: 50 B2 50 31 A4 35 30 30 3A 8B 41 24 28 50 29 B2 |P.P1.500:.A$(P).|
00001CC0: 22 22 AF 41 24 28 50 AB 31 29 B2 22 22 A7 50 32 |"".A$(P.1)."".P2|
00001CD0: B2 50 AB 31 3A 50 B2 35 30 30 00 E1 24 88 09 82 |.P.1:P.500..$...|
00001CE0: 50 00 02 25 92 09 81 58 B2 50 32 A4 50 31 A9 AB |P..%...X.P2.P1..|
00001CF0: 31 3A 41 24 28 58 29 B2 41 24 28 58 AB 31 29 3A |1:A$(X).A$(X.1):|
00001D00: 82 58 00 10 25 97 09 41 24 28 50 31 29 B2 22 22 |.X..%..A$(P1).""|
00001D10: 00 3C 25 9C 09 99 22 52 45 46 23 20 22 3B 50 31 |.<%..."REF# ";P1|
00001D20: 3B 22 20 41 56 41 49 4C 41 42 4C 45 20 46 4F 52 |;" AVAILABLE FOR|
00001D30: 20 54 45 58 54 20 49 4E 50 55 54 22 00 5E 25 A6 | TEXT INPUT".^%.|
00001D40: 09 51 24 B2 22 4E 22 3A 85 22 41 4E 4F 54 48 45 |.Q$."N":."ANOTHE|
00001D50: 52 20 49 4E 53 45 52 54 3F 3A 22 3B 51 24 00 74 |R INSERT?:";Q$.t|
00001D60: 25 B0 09 8B C8 28 51 24 2C 31 29 B2 22 59 22 A7 |%....(Q$,1)."Y".|
00001D70: 32 34 31 30 00 7D 25 BA 09 89 33 38 30 00 A7 25 |2410.}%...380..%|
00001D80: 88 13 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 20 52 45 4D |... ******** REM|
00001D90: 20 56 41 52 49 41 42 4C 45 20 4C 49 53 54 20 2A | VARIABLE LIST *|
00001DA0: 2A 2A 2A 2A 2A 2A 2A 00 DC 25 92 13 8F 20 52 50 |*******..%... RP|
00001DB0: 3D 53 54 41 52 54 49 4E 47 20 52 45 46 20 20 52 |=STARTING REF R|
00001DC0: 45 3D 45 4E 44 49 4E 47 20 52 45 46 20 20 4C 4C |E=ENDING REF LL|
00001DD0: 3D 4C 49 4E 45 20 4C 45 4E 47 54 48 00 19 26 9C |=LINE LENGTH..&.|
00001DE0: 13 8F 20 50 53 3D 50 41 47 45 20 53 54 41 52 54 |.. PS=PAGE START|
00001DF0: 20 20 20 20 50 45 3D 50 41 47 45 20 45 4E 44 20 | PE=PAGE END |
00001E00: 20 20 20 4C 4D 24 3D 4C 45 46 54 20 4D 41 52 47 | LM$=LEFT MARG|
00001E10: 49 4E 20 53 54 52 49 4E 47 00 4D 26 A6 13 8F 20 |IN STRING.M&... |
00001E20: 48 4F 24 3D 48 4F 4D 45 20 4B 45 59 20 20 20 20 |HO$=HOME KEY |
00001E30: 20 43 4C 24 3D 43 52 53 52 20 52 49 47 48 54 20 | CL$=CRSR RIGHT |
00001E40: 43 44 24 3D 43 52 53 52 20 44 4F 57 4E 00 80 26 |CD$=CRSR DOWN..&|
00001E50: B0 13 8F 20 43 55 24 3D 43 53 52 53 20 55 50 20 |... CU$=CSRS UP |
00001E60: 20 20 20 20 20 51 24 3D 54 45 4D 50 20 56 41 52 | Q$=TEMP VAR|
00001E70: 49 41 42 4C 45 20 46 4F 52 20 51 55 45 52 59 53 |IABLE FOR QUERYS|
00001E80: 00 C2 26 BA 13 8F 20 41 24 28 50 29 3D 54 45 58 |..&... A$(P)=TEX|
00001E90: 54 20 42 4C 4F 43 4B 20 41 52 52 41 59 20 20 50 |T BLOCK ARRAY P|
00001EA0: 3D 41 52 52 41 59 20 50 4F 49 4E 54 45 52 53 20 |=ARRAY POINTERS |
00001EB0: 20 20 20 20 20 50 31 3D 54 45 4D 50 20 50 4F 49 | P1=TEMP POI|
00001EC0: 4E 54 00 0A 27 C4 13 8F 20 46 49 3D 54 45 4D 50 |NT..'... FI=TEMP|
00001ED0: 20 56 41 52 49 41 42 4C 45 20 46 49 4C 45 20 48 | VARIABLE FILE H|
00001EE0: 41 4E 44 45 4C 49 4E 47 20 41 4F 24 3D 53 54 52 |ANDELING AO$=STR|
00001EF0: 49 4E 47 20 56 41 52 49 41 42 4C 45 20 4D 45 4E |ING VARIABLE MEN|
00001F00: 55 20 43 4F 4D 4D 41 4E 44 53 00 4E 27 CE 13 8F |U COMMANDS.N'...|
00001F10: 20 53 31 24 54 48 52 55 53 34 24 3D 56 41 52 49 | S1$THRUS4$=VARI|
00001F20: 41 42 4C 45 53 20 46 4F 52 20 45 52 52 4F 52 20 |ABLES FOR ERROR |
00001F30: 48 41 4E 44 45 4C 49 4E 47 20 20 20 20 20 20 20 |HANDELING |
00001F40: 42 24 3D 45 4F 52 4B 20 53 54 52 49 4E 47 00 8F |B$=EORK STRING..|
00001F50: 27 D8 13 8F 20 54 43 24 3D 54 45 4D 50 20 57 4F |'... TC$=TEMP WO|
00001F60: 52 4B 20 53 54 52 49 4E 47 20 20 20 20 20 52 4F |RK STRING RO|
00001F70: 24 3D 52 45 56 45 52 53 45 20 4F 4E 20 20 20 20 |$=REVERSE ON |
00001F80: 20 20 20 20 52 46 24 3D 52 45 56 20 4F 46 46 00 | RF$=REV OFF.|
00001F90: CD 27 E2 13 8F 20 45 24 3D 57 4F 52 4B 20 53 54 |.'... E$=WORK ST|
00001FA0: 52 49 4E 47 2C 45 44 49 54 20 20 20 20 20 20 20 |RING,EDIT |
00001FB0: 43 24 3D 57 4F 52 4B 20 53 54 52 49 4E 47 2C 46 |C$=WORK STRING,F|
00001FC0: 49 4C 45 20 48 41 4E 44 45 4C 49 4E 47 00 15 28 |ILE HANDELING..(|
00001FD0: EC 13 8F 20 50 4F 24 3D 57 4F 52 4B 20 53 54 52 |... PO$=WORK STR|
00001FE0: 49 4E 47 20 46 4F 52 20 50 52 49 4E 54 49 4E 47 |ING FOR PRINTING|
00001FF0: 20 50 46 3D 46 4C 41 47 20 46 4F 52 20 50 52 49 | PF=FLAG FOR PRI|
00002000: 4E 54 20 45 4F 52 4B 20 53 54 52 49 4E 47 20 53 |NT EORK STRING S|
00002010: 54 41 54 55 53 00 43 28 F6 13 8F 20 4E 3D 43 4F |TATUS.C(... N=CO|
00002020: 55 4E 54 45 52 20 20 20 20 20 45 3D 41 53 43 20 |UNTER E=ASC |
00002030: 56 41 4C 55 45 20 46 4F 52 20 45 44 49 54 20 4D |VALUE FOR EDIT M|
00002040: 4F 44 45 00 6E 28 00 14 8F 4C 3D 4D 49 44 20 53 |ODE.n(...L=MID S|
00002050: 54 52 49 4E 47 20 50 4F 49 4E 54 45 52 20 20 20 |TRING POINTER |
00002060: 47 3D 4C 4F 4F 50 20 43 4F 55 4E 54 45 52 00 A3 |G=LOOP COUNTER..|
00002070: 28 0A 14 8F 20 44 57 3D 44 4F 55 42 4C 45 20 57 |(... DW=DOUBLE W|
00002080: 49 44 54 48 20 46 4C 41 47 20 20 45 52 3D 45 52 |IDTH FLAG ER=ER|
00002090: 52 4F 52 20 46 4C 41 47 20 20 46 3D 43 4F 55 4E |ROR FLAG F=COUN|
000020A0: 54 45 52 00 A9 28 14 14 80 00 00 00 |TER..(...... |
.......53281,13:.53280,13:.".".^...LM.5:
LL.70:PS.3:PE.3:RP.1:RE.500:. DEFAULT PR
INT PARAMETERS.....RO$.G(18):RF$.G(146):
CL$.G(157):CR$.G(29):CD$.G(17).....CU$.G
(145):HO$.G(19).I....A$(500):Z.63536:.38
0......********************************.
.....* *.;.
...* A SIMPLE TEXT PROCESSOR FOR *.A...
.* THE COMMODORE 64 *......*
BY A.T.GOLVERDINGEN (C) *...!..*
*.S.#..* ADA
PTED FROM 'A' SIMPLE TEXT *...%..* PROCE
SSOR' BY A.T.G *...'..* MICRO
COMPUTING, MAY 1981 *.E.)..*
*.K.+..*************
*******************...F.. **** AVAILABLE
MEMORY SUBROUTINE ****...P.M..(0):.M.0.
M.M.Z.W.Z.." ";G(18)"BYTES REMAINING
: ";M:...._.. *** EDIT TEXT BLOCK ROUTIN
E ***.5.D..G(147);"---------------------
-------------------";.V.F..RO$"REF#";P;R
F$:.X.1.8:.:.X...H.."-------------------
---------------------"...J.."CLR/HOME KE
Y :CURSOR END OF THE LINE."...L.."SHIF
T CLR/HOME :CURSOR BEGINNING LINE."...N.
."CRSR LEFT/RIGHT:CURSOR LEFT & RIGHT.6.
P.."INST/DEL KEY :DELETE CHARACTER.".D
.R.."SHIFT INST/DEL :INSERT SPACES IN LI
NE."...T.."RETURN KEY :RETURN TO REV
IEW MODE."...V..A$(P)."".A$(P)." "...X..
HO$CD$CD$;A$(P)...Z.L.1:.HO$CD$CD$RO$;J(
A$(P),L,1);CL$;...|..E$:.E$."".124...~.E
.F(E$):.E.13..174.%....E.31.E.96..162.<.
...E.29.L.1.240..124.^....E.29..RF$;J(A$
(P),L,1);:.170.T....E.157.L.1.1..124....
..E.157..RF$;J(A$(P),L,1);:L.L.1:.CL$CL$
;:.172......E.145.E.17..124.S....E.148.L
.1.240..124......E.147..RF$;J(A$(P),L,1)
;:.122.)....E.19..RF$HO$CD$CD$;A$(P);CL$
;:L.C(A$(P)):.172.:....E..148..154.O....
RF$;J(A$(P),L,1);CL$;G(148);" ";CL$RO$;"
";CL$;.....TC$.A$(P):TC$.I(TC$,C(TC$).L
.1):A$(P).H(A$(P),L.1):E$." ".I...A$(P).
A$(P).E$.TC$:.124.Y....E..20..162.....L.
L.1: .L.1..122.'...TC$.A$(P):TC$.I(TC$
,C(TC$).L ):A$(P).H(A$(P),L.1).H. .A$(P
).A$(P).TC$:.G(20);:.124.Z....L.1.240..1
24.....TC$.A$(P):TC$.I(TC$,C(TC$).L):A$(
P).H(A$(P),L.1).....A$(P).A$(P).E$.TC$..
....RF$;J(A$(P),L,1);.....L.L.1:.J(A$(P)
,L,1)."".A$(P).A$(P)." "......RO$;J(A$(P
),L,1);CL$;:.124. ....RF$;J(A$(P),L,1):.
.F.... **** DATA ENTRY SUBROUTINE ****.S
...A$(P)."".`....N.1.240.S....B$:.B$."".
255.....BA.F(B$)......BA.20..1500:.G(157
);G(32);G(157);:.305.B....BA.13.N.240:.3
05.W....BA.94.." ";......BA.43.....'
..B$...,.A$(P).A$(P).B$...1.....6...,.@.
.: **** DISPLAY ROUTINE ****.<.J..A$(P).
""...D.U..F(H(A$(P),1)).94.." ";A$(P
);:...._..F(H(A$(P),1)).43..:.A$(P);:...
.S..A$(P);:....|..: *** MAIN MENU ***.B.
...G(147);G(142):......." ====
============="......" = MAIN
MENU ="......" ============
=====".4.....U....:." 1.WRITE TEXT B
LOCK".|....:." 2.REVIEW/EDIT TEXT BL
OCK"......:." 3.INSERT/COPY TEXT BLO
CK".B.B..:." 4.READ FROM DISK"...L..
:." 5.WRITE TO DISK"...V..:." 6
.PRINT HARD COPY"......:." 7.QUIT".
....:.70.@....:." ENTER SELECTION: "
.U....AO$:.AO$."".490.F....AO$."1".570.W
....AO$."2".680......AO$."3"..2100......
AO$."4".. 1140......AO$."5"..1200.D....A
O$."6"..1060.X.&..AO$."7". 200:....0..38
0...:.. **** WRITE ROUTINE ****...D..G.1
.500.$.N..A$(G)."".F.G:G.500.*.X...6.Z..
G(147).Y.[.." ENTER REF# OR 'RETU
RN' FOR NEXT AVAILABLE REF#:" :.F...]..F
.0.F.500.."ENTER 1 THRU 500 PLEASE":.603
...B..G(147);"--------------------------
--------------";G(14);...L..P.F.500...V.
.G(18);P;G(146);.B.{..A$(P)..""..G(18);"
REF BLOCK ACTIVE":.X.1.100:.X:.660.K....
240.A....(A$(P))."".P.500.G.....P....380
...... **** REVIEW/EDIT DISPLAY ****. ..
..G(147)......"ENTER REF# FOR REVIEW:";P
...F..P.1.P.500..RO$"ENTER 1 THRU 500 PL
EASE-"RF$.700...P..: **** DISPLAY TEXT R
EF ****.N.U..G(147);"-------------------
---------------------".J.Z..G(14);RO$;"R
EF#";P;RF$.}....A$(P).."".800......G(18)
;"EMPTY"......820... ..320...4..HO$:.X.1
.8:.CD$;:.X...>.."----------------------
------------------"...C..RO$"KEY CODES:"
RF$...H.." 'F':FORWARD".,.R.." 'B':BACKW
ARD".=.\.." 'X':EXIT".P.F.." 'D':DELETE"
.A.P.." 'E':EDIT".G.Z........RO$"CONTROL
CODES:"RF$:......." '@' : DOUBL
E WIDTH TYPE".Q...." '^' : NEW P
ARAGRAPH"......" '+' : SKIP LINE
"......" '_' : LEFT MARGIN".+...
.RO$"CHOICE: ?";RF$.@....AO$:.AO$."".941
.L....G(147).]....AO$."X".380.{....AO$."
F".P.500.P.P.1:.720...J..AO$."F".720...T
..AO$."B".P.1.P.P.1:.720......AO$."B".72
0.P....AO$."E"..100:.720......AO$."D".A$
(P)."":.720......725...$.. **** MAKE HAR
D COPY ****...%..G(147).V.&.."CONFIGURE
PRINT ROUTINE?":.Q$:.H(Q$,1).."Y".1085..
.'.."ENTER LEFT MARGIN (NUMBER OF CHARAC
TERS)"...(.LM.5:.LM:.LM.70.."1 THRU 70 P
LEASE":.1063...).."ENTER LINE LENGTH WAN
TED (NUMBER OF TOTAL CHARACTERS)":LL.70:
.LL.(.*..LL.20.LL.80.."20 THRU 80 PLEASE
-":.1065.W.+.PS.3:."ENTER TOP MARGIN (NU
MBER OF LINES)"...-..PS:.PS.1.PS.65.."1
TO 65 PLEASE":.1067.../.PE.3:."ENTER BOT
TOM MARGIN (NUMBER OF LINES)"...1..PE:.P
E.1.PE.65.."1 TO 65 PLEASE":.1071...3.RP
.1:."ENTER STARTING REF#".1.5..RP:.RP.1.
RP.500.."1 THRU 500 PLEASE":.1075.I.;.RE
.500:."ENTER ENDING REF#-":.RE:.RE.1.RE.
500..1075...=.."SET TOP OF FROM PRINTER.
PRESS ANY KEY TO CONTINUE"...?..Q$:.Q$."
".1087.V.A.. **** TURN ON PRINTER ****..
.C..4,4,7:.4: .1387...E.LM$."":.J.1.LM:
LM$.LM$.G(32):.J:PF.0.".G..P.RP.RE.G.I..
A$(P)."".A$(P.1)."".P.500:.1110.Q.L..130
0.W.V...Q.`..PF.1.PO$.LM$.B$:.PO$.{.E..4
: 4...J... .T.. **** READ TEXT FILE ****
.K.V..G(147):."TEXT FILE LOAD IN PROGRES
S";.X.Y..15,8,15...~..5,8,5,"0:TEXTFILE,
S,R"......2000:.ER.1.ER.0:FI.0:.1180....
..5,FI.3....P.1.FI:A$(P)."".^....#5,C$:.
F(C$)..13.A$(P).A$(P).C$:.1162.J....".";
:..U... 5: 15......:.:.FI;"TEXT BLOCKS R
EAD.PRESS ANY KEY TO CONTINUE".B. ..Q$:.
Q$."".1184.K....380...... **** WRITE TEX
T FILE ****......G(147):."TEXT FILE SAVE
IN PROGRESS":..$....15,8,15.A....5,8,5,
"@0:TEXTFILE,S,W".A....2000:.ER.1.ER.0:F
I.0:.1275.N.X..P.1.500......A$(P).."".FI
.P......P......5,FI......P.1.FI......5,A
$(P)......P..... 5: 15......FI;"TEXT BLO
CKS SAVED. PRESS ANY KEY TO CONTINUE"...
...Q$:.Q$."".1285......./.... **** PRINT
ER ROUTINE ****.@....A$(P)."". ..U...TC.
F(H(A$(P),1))...#..TC.94..1380:CC.LM.5:B
$." ":PF.1:.1340...(..TC.43..1380:.:
LC.LC.1:.1383:.1340.Q.-..TC.64..1380:DW.
1:.G(14);:.1380:....2..TC.95..1380:.1340
...7.TC$.A$(P):.1345.& <.TC$.I(A$(P),C(A
$(P)).1:.TC$."".PF.0:..6 A..PE.0.B$."".L
B..X.1.C(TC$):.B$."".J(TC$,X,1).G(32).C
C.CC.1:X.X.1.. F.CC.CC.1:B$.B$.J(TC$,X,1
).. K..LL.CC.10.J(TC$,X,1)." ".PF.1:.138
0.G P..CC.LL.PF.1:.1380.. U..X:.B$.."".P
F.1.. _....!D..PF.1.B$.."THENPO$=LM$+B$:
PRINTPO$:B$="":CC=LM:LC=LC+1.3!E..DW.1..
G(15);:DW.0.H!F..LC.(66.PE).1399.Y!I..I.
1.PE:.:.I.J!K..I.1.PS:.:.I.T!M.LC.PS.!W
.PF.0:...!... **** DELETE KEY ROUTINE FO
R WRITE BLOCK ****.W!...C(A$(P)).1.A$(P)
."":N.240:.1530..!..A$(P).H(A$(P),C(A$(P
)).1).."...N.1.N.1.N.N.1.."....1"P.. ***
* DISK ERROR HANDLER ****.I"Z..15,S1$,S2
$,S3$,S4$.T"...E(S1$).0..S1$,S2$,S3$,S4$
: 5: 15:ER.1.Z"....."4..G(147)..">.." 'I
' INSERT EMPTY BLOCK AT REF#".Z"H.." 'C'
COPY EXISTTING BLOCK TO NEW REF#".."R..
"COMMAND:";Q$.."\..Q$."C".2200..#F..Q$."
I".2400..#P..380.)#... COPY BLOCK.E#...:
."REF# TO COPY FROM:"._#...P1:.P1.0.P1.5
00.2210.Y#..."REF# TO COPY TO:";P..#...P
.0.P.500.2210.A#..."REF# ";P1;" WILL BE
COPIED TO REF# ";P;".OK?"..#..Q$."N":.Q$
:.H(Q$,1)."Y"..2350..#$..380..#..A$(P).A
$(P1)..$8.."ANOTHER COPY?:".5$B.Q$."N":.
Q$:.H(Q$,1)."Y"..2210.>$L..380.D$`.. INS
ERT BLANK TEXT BLOCK AT REF#..$J..:."REF
# TO INSERT EMPTY TEXT BLOCK?:"..$T..P1:
.P1.0.P1.500..2410.Z$~..P.P1.500:.A$(P).
"".A$(P.1)."".P2.P.1:P.500..$...P..%...X
.P2.P1..1:A$(X).A$(X.1):.X..%..A$(P1).""
.<%..."REF# ";P1;" AVAILABLE FOR TEXT IN
PUT".^%..Q$."N":."ANOTHER INSERT?:";Q$.T
%...H(Q$,1)."Y".2410.}%...380..%... ****
**** REM VARIABLE LIST ********..%... RP
=STARTING REF RE=ENDING REF LL=LINE LE
NGTH..&... PS=PAGE START PE=PAGE END
LM$=LEFT MARGIN STRING.M&... HO$=HOME
KEY CL$=CRSR RIGHT CD$=CRSR DOWN..&
... CU$=CSRS UP Q$=TEMP VARIABLE FO
R QUERYS.B&... A$(P)=TEXT BLOCK ARRAY P
=ARRAY POINTERS P1=TEMP POINT..'D..
FI=TEMP VARIABLE FILE HANDELING AO$=STR
ING VARIABLE MENU COMMANDS.N'N.. S1$THRU
S4$=VARIABLES FOR ERROR HANDELING
B$=EORK STRING..'X.. TC$=TEMP WORK STRIN
G RO$=REVERSE ON RF$=REV OFF.
M'... E$=WORK STRING,EDIT C$=WORK
STRING,FILE HANDELING..(... PO$=WORK STR
ING FOR PRINTING PF=FLAG FOR PRINT EORK
STRING STATUS.C(... N=COUNTER E=ASC
VALUE FOR EDIT MODE.N(...L=MID STRING PO
INTER G=LOOP COUNTER..(... DW=DOUBLE W
IDTH FLAG ER=ERROR FLAG F=COUNTER..(..
....
> CLICK IMAGE PREVIEW FOR FULL MODAL