WORD WORKER.C
FILE INFORMATION
FILENAME(S): WORD WORKER.C
FILE TYPE(S): PRG
FILE SIZE: 8.3K
FIRST SEEN: 2025-12-01 01:48:20
APPEARS ON: 2 disk(s)
FILE HASH
0098fec5b60fa08b74ffd2d9e8cf0205ca7227f9f71c09041493961f09482189
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| CCS64 1 2 | WORD WORKER.C | PRG | hedning, Mattias H00r | 24 | 5 | DOWNLOAD FILE |
| CCS 64 1 | WORD WORKER.C | PRG | hedning, Mattias H00r | 26 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1A 08 0A 00 8F 20 20 20 20 57 4F 52 44 20 |....... WORD |
00000010: 57 4F 52 4B 45 52 20 31 2E 30 00 2C 08 14 00 8F |WORKER 1.0.,....|
00000020: 20 20 20 20 20 20 20 20 20 20 42 59 00 42 08 1E | BY.B..|
00000030: 00 8F 20 20 20 20 20 4A 49 4D 20 47 41 52 52 49 |.. JIM GARRI|
00000040: 43 4B 00 49 08 28 00 8F 3A 00 68 08 32 00 8F 3A |CK.I.(..:.h.2..:|
00000050: 2A 2A 2A 20 43 2D 36 34 20 56 45 52 53 49 4F 4E |*** C-64 VERSION|
00000060: 20 2A 2A 2A 2A 2A 2A 2A 00 96 08 5A 00 53 43 B2 | *******...Z.SC.|
00000070: 35 33 32 38 31 3A 42 4F B2 35 33 32 38 30 3A 58 |53281:BO.53280:X|
00000080: B2 31 3A 99 C7 28 38 29 3A 43 58 B2 32 30 34 3A |.1:..(8):CX.204:|
00000090: 43 4C B2 32 30 37 00 B6 08 5F 00 86 41 24 28 31 |CL.207..._..A$(1|
000000A0: 30 30 30 29 3A 86 50 24 28 31 30 30 29 3A 97 36 |000):.P$(100):.6|
000000B0: 35 30 2C 31 32 38 00 C7 08 64 00 97 53 43 2C 30 |50,128...d..SC,0|
000000C0: 3A 97 42 4F 2C 31 34 00 02 09 6E 00 99 C7 28 31 |:.BO,14...n...(1|
000000D0: 34 29 3A 99 22 93 12 96 20 20 20 20 20 20 20 20 |4):."... |
000000E0: 20 20 20 20 20 20 20 CD C5 CE D5 20 20 20 20 20 | .... |
000000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000100: 9A 22 00 22 09 82 00 99 A3 31 31 29 22 99 12 C3 |.".".....11)"...|
00000110: 92 9A 52 45 41 54 45 20 44 4F 43 55 4D 45 4E 54 |..REATE DOCUMENT|
00000120: 2E 22 00 44 09 8C 00 99 22 11 22 A3 31 31 29 22 |.".D....".".11)"|
00000130: 99 12 D0 92 9A 52 49 4E 54 20 44 4F 43 55 4D 45 |.....RINT DOCUME|
00000140: 4E 54 2E 22 00 64 09 A0 00 99 22 11 22 A3 31 31 |NT.".d....".".11|
00000150: 29 22 99 12 C7 92 9A 45 54 20 44 4F 43 55 4D 45 |)".....ET DOCUME|
00000160: 4E 54 2E 22 00 85 09 A5 00 99 22 11 22 A3 31 31 |NT."......".".11|
00000170: 29 22 99 12 D3 92 9A 41 56 45 20 44 4F 43 55 4D |)".....AVE DOCUM|
00000180: 45 4E 54 2E 22 00 AC 09 AA 00 99 22 11 22 A3 31 |ENT."......".".1|
00000190: 31 29 22 99 12 CC 92 9A 49 53 54 20 44 4F 43 2E |1)".....IST DOC.|
000001A0: 20 4F 4E 20 53 43 52 45 45 4E 2E 22 00 D0 09 AF | ON SCREEN."....|
000001B0: 00 99 22 11 22 A3 31 31 29 22 99 12 C4 92 9A 45 |..".".11)".....E|
000001C0: 4C 45 54 45 20 44 49 53 4B 20 46 49 4C 45 2E 22 |LETE DISK FILE."|
000001D0: 00 F1 09 B1 00 99 22 11 22 A3 31 31 29 22 99 12 |......".".11)"..|
000001E0: C5 92 9A 44 49 54 20 44 4F 43 55 4D 45 4E 54 2E |...DIT DOCUMENT.|
000001F0: 22 00 11 0A B4 00 99 22 11 22 A3 31 31 29 22 99 |"......".".11)".|
00000200: 12 D2 92 9A 45 41 44 20 43 41 54 41 4C 4F 47 2E |....EAD CATALOG.|
00000210: 22 00 31 0A BE 00 99 22 11 22 A3 31 31 29 22 99 |".1....".".11)".|
00000220: 12 CD 92 9A 45 4D 4F 52 59 20 43 4C 45 41 52 2E |....EMORY CLEAR.|
00000230: 22 00 4E 0A BF 00 99 22 11 22 A3 31 31 29 22 99 |".N....".".11)".|
00000240: 12 D4 92 9A 45 52 4D 49 4E 41 54 45 2E 22 00 69 |....ERMINATE.".i|
00000250: 0A C3 00 99 C7 28 31 37 29 A3 31 30 29 22 9E 20 |.....(17).10)". |
00000260: C3 C8 CF C9 C3 C5 20 3F 22 00 88 0A C8 00 43 24 |...... ?".....C$|
00000270: B2 22 22 3A A1 43 24 3A 8D 31 30 30 30 3A 8B 43 |."":.C$:.1000:.C|
00000280: 24 B2 22 22 A7 32 30 30 00 97 0A CB 00 4D 24 B2 |$."".200.....M$.|
00000290: C8 28 4D 24 2C 31 29 00 A8 0A CD 00 8B 43 24 B2 |.(M$,1)......C$.|
000002A0: 22 43 22 A7 8D 35 30 30 00 BA 0A D2 00 8B 43 24 |"C"..500......C$|
000002B0: B2 22 50 22 A7 8D 32 30 30 30 00 CC 0A D4 00 8B |."P"..2000......|
000002C0: 43 24 B2 22 47 22 A7 8D 33 30 30 30 00 DE 0A D7 |C$."G"..3000....|
000002D0: 00 8B 43 24 B2 22 53 22 A7 8D 34 30 30 30 00 F0 |..C$."S"..4000..|
000002E0: 0A DC 00 8B 43 24 B2 22 4C 22 A7 8D 36 30 30 30 |....C$."L"..6000|
000002F0: 00 02 0B E1 00 8B 43 24 B2 22 44 22 A7 8D 37 30 |......C$."D"..70|
00000300: 30 30 00 14 0B E2 00 8B 43 24 B2 22 45 22 A7 8D |00......C$."E"..|
00000310: 38 30 30 30 00 26 0B E3 00 8B 43 24 B2 22 4D 22 |8000.&....C$."M"|
00000320: A7 8D 35 30 30 30 00 39 0B E4 00 8B 43 24 B2 22 |..5000.9....C$."|
00000330: 52 22 A7 8D 31 31 30 30 30 00 6B 0B E6 00 8B 43 |R"..11000.k....C|
00000340: 24 B2 22 54 22 A7 99 22 93 9A 22 C7 28 31 34 32 |$."T".."..".(142|
00000350: 29 C7 28 39 29 3A 97 53 43 2C 36 3A 97 42 4F 2C |).(9):.SC,6:.BO,|
00000360: 31 34 3A 97 36 35 30 2C 30 3A 80 00 74 0B 04 01 |14:.650,0:..t...|
00000370: 89 31 30 30 00 C2 0B 8F 01 8F 20 2A 2A 2A 2A 2A |.100...... *****|
00000380: 2A 2A 2A 2A 20 49 4E 50 55 54 20 52 4F 55 54 49 |**** INPUT ROUTI|
00000390: 4E 45 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |NE *************|
000003A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000003B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000003C0: 2A 2A 00 DE 0B F4 01 4D 41 B2 34 30 3A 45 B2 30 |**.....MA.40:E.0|
000003D0: 3A 8B 58 B1 31 A7 41 24 28 58 29 B2 22 22 00 1C |:.X.1.A$(X).""..|
000003E0: 0C FE 01 99 C7 28 31 34 37 29 22 12 1E 20 20 20 |.....(147)".. |
000003F0: 20 20 20 20 20 20 CE C5 D7 A0 CD CF C4 C5 20 20 | ........ |
00000400: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000410: 20 20 20 20 20 22 3A 43 24 B2 22 22 00 46 0C 00 | ":C$."".F..|
00000420: 02 8B 58 B1 31 A7 99 C7 28 31 39 29 C7 28 32 38 |..X.1...(19).(28|
00000430: 29 C7 28 31 38 29 22 C3 CF CE D4 C9 CE D5 C1 D4 |).(18)".........|
00000440: C9 CF CE 20 92 22 00 71 0C 01 02 8B 45 B2 31 A7 |... .".q....E.1.|
00000450: 99 C7 28 31 39 29 C7 28 31 35 38 29 C7 28 31 38 |..(19).(158).(18|
00000460: 29 22 D2 C5 D0 CC C1 C3 C5 CD C5 CE D4 20 20 92 |)"........... .|
00000470: 22 00 A4 0C 03 02 99 22 1E 91 12 C6 2D 31 20 3D |"......"....-1 =|
00000480: 20 CD 45 4E 55 20 20 20 20 20 20 20 20 20 20 20 | .ENU |
00000490: C6 2D 32 20 3D 20 CE 45 57 20 50 41 47 45 20 20 |.-2 = .EW PAGE |
000004A0: 20 20 20 22 00 D7 0C 04 02 99 22 1E 91 12 C6 2D | "......"....-|
000004B0: 33 20 3D 20 C5 4E 4C 41 52 47 45 44 20 20 20 20 |3 = .NLARGED |
000004C0: 20 20 20 C6 2D 34 20 3D 20 CE 4F 52 4D 41 4C 20 | .-4 = .ORMAL |
000004D0: 20 20 20 20 20 20 22 00 09 0D 05 02 99 22 91 12 | "......"..|
000004E0: C6 2D 35 20 3D 20 D5 4E 44 45 52 4C 49 4E 45 20 |.-5 = .NDERLINE |
000004F0: 4F 4E 20 20 20 C6 2D 36 20 3D 20 D5 4E 44 45 52 |ON .-6 = .NDER|
00000500: 4C 49 4E 45 20 4F 46 46 22 00 3C 0D 06 02 99 22 |LINE OFF".<...."|
00000510: 91 12 C6 2D 37 20 3D 20 C9 54 41 4C 49 43 53 20 |...-7 = .TALICS |
00000520: 4F 4E 20 20 20 20 20 C6 2D 38 20 3D 20 C9 54 41 |ON .-8 = .TA|
00000530: 4C 49 43 53 20 4F 46 46 20 20 9A 22 00 58 0D 07 |LICS OFF .".X..|
00000540: 02 99 41 24 28 58 29 3B 3A 8B 45 B2 31 A7 41 24 |..A$(X);:.E.1.A$|
00000550: 28 58 29 B2 22 22 3A 99 00 79 0D 08 02 8B 20 C2 |(X)."":..y.... .|
00000560: 28 32 31 34 29 B1 32 33 A7 97 43 58 2C 31 3A 97 |(214).23..CX,1:.|
00000570: 43 4C 2C 30 3A 89 35 31 30 00 9E 0D 0A 02 97 43 |CL,0:.510......C|
00000580: 58 2C 30 3A 97 43 4C 2C 30 3A A1 43 24 3A 8D 31 |X,0:.CL,0:.C$:.1|
00000590: 30 30 30 3A 8B 43 24 B2 22 22 A7 35 32 32 00 A8 |000:.C$."".522..|
000005A0: 0D 0B 02 97 43 4C 2C 32 00 C0 0D 12 02 8B 43 24 |....CL,2......C$|
000005B0: B2 C7 28 31 36 30 29 A7 43 24 B2 C7 28 33 32 29 |..(160).C$..(32)|
000005C0: 00 D6 0D 15 02 8B 43 24 B2 C7 28 31 33 29 AF 45 |......C$..(13).E|
000005D0: B2 31 A7 37 30 30 00 F2 0D 16 02 8B 43 24 B2 C7 |.1.700......C$..|
000005E0: 28 31 33 37 29 A7 99 C7 28 39 35 29 3B 3A 89 37 |(137)...(95);:.7|
000005F0: 35 30 00 0E 0E 17 02 8B 43 24 B2 C7 28 31 33 34 |50......C$..(134|
00000600: 29 A7 99 C7 28 39 34 29 3B 3A 89 37 35 30 00 2A |)...(94);:.750.*|
00000610: 0E 18 02 8B 43 24 B2 C7 28 31 33 38 29 A7 99 C7 |....C$..(138)...|
00000620: 28 39 35 29 3B 3A 89 37 35 30 00 46 0E 19 02 8B |(95);:.750.F....|
00000630: 43 24 B2 C7 28 31 33 35 29 A7 99 C7 28 39 34 29 |C$..(135)...(94)|
00000640: 3B 3A 89 37 35 30 00 62 0E 1A 02 8B 43 24 B2 C7 |;:.750.b....C$..|
00000650: 28 31 33 39 29 A7 99 C7 28 39 35 29 3B 3A 89 37 |(139)...(95);:.7|
00000660: 35 30 00 7E 0E 1B 02 8B 43 24 B2 C7 28 31 33 36 |50.~....C$..(136|
00000670: 29 A7 99 C7 28 39 34 29 3B 3A 89 37 35 30 00 9A |)...(94);:.750..|
00000680: 0E 1C 02 8B 43 24 B2 C7 28 31 34 30 29 A7 99 C7 |....C$..(140)...|
00000690: 28 39 35 29 3B 3A 89 37 35 30 00 AD 0E 3F 02 8B |(95);:.750...?..|
000006A0: 43 24 B2 C7 28 31 33 33 29 A7 37 30 33 00 CA 0E |C$..(133).703...|
000006B0: 41 02 8B 43 24 B2 C7 28 32 30 29 AF C3 28 41 24 |A..C$..(20)..(A$|
000006C0: 28 58 29 29 B2 30 A7 35 32 32 00 F9 0E 43 02 8B |(X)).0.522...C..|
000006D0: 43 24 B2 C7 28 31 33 29 A7 41 24 28 58 29 B2 41 |C$..(13).A$(X).A|
000006E0: 24 28 58 29 AA 43 24 3A 58 B2 58 AA 31 3A 99 C7 |$(X).C$:X.X.1:..|
000006F0: 28 33 32 29 3A 89 35 32 30 00 02 0F 44 02 99 43 |(32):.520...D..C|
00000700: 24 3B 00 2F 0F 58 02 8B 43 24 B2 C7 28 32 30 29 |$;./.X..C$..(20)|
00000710: A7 41 24 28 58 29 B2 C8 28 41 24 28 58 29 2C C3 |.A$(X)..(A$(X),.|
00000720: 28 41 24 28 58 29 29 AB 31 29 3A 89 35 32 32 00 |(A$(X)).1):.522.|
00000730: 59 0F 62 02 41 24 28 58 29 B2 41 24 28 58 29 AA |Y.b.A$(X).A$(X).|
00000740: 43 24 3A 43 24 B2 22 22 3A 8B C3 28 41 24 28 58 |C$:C$."":..(A$(X|
00000750: 29 29 B3 4D 41 A7 35 32 32 00 74 0F 6C 02 8B C9 |)).MA.522.t.l...|
00000760: 28 41 24 28 58 29 2C 31 29 B2 C7 28 33 32 29 A7 |(A$(X),1)..(32).|
00000770: 89 36 34 30 00 B2 0F 76 02 41 24 28 58 AA 31 29 |.640...v.A$(X.1)|
00000780: B2 C9 28 41 24 28 58 29 2C 31 29 AA 41 24 28 58 |..(A$(X),1).A$(X|
00000790: AA 31 29 3A 41 24 28 58 29 B2 C8 28 41 24 28 58 |.1):A$(X)..(A$(X|
000007A0: 29 2C C3 28 41 24 28 58 29 29 AB 31 29 3A 89 36 |),.(A$(X)).1):.6|
000007B0: 32 30 00 D2 0F 80 02 81 55 B2 31 A4 4D 41 AB C3 |20......U.1.MA..|
000007C0: 28 41 24 28 58 29 29 3A 99 C7 28 32 30 29 3B 3A |(A$(X)):..(20);:|
000007D0: 82 55 00 F1 0F 85 02 81 41 B2 31 A4 C3 28 41 24 |.U......A.1..(A$|
000007E0: 28 58 AA 31 29 29 3A 99 C7 28 33 32 29 3B 3A 82 |(X.1)):..(32);:.|
000007F0: 41 00 08 10 9E 02 58 B2 58 AA 31 3A 99 41 24 28 |A.....X.X.1:.A$(|
00000800: 58 29 3B 3A 89 35 32 30 00 20 10 BC 02 8B 41 24 |X);:.520. ....A$|
00000810: 28 58 29 B2 22 22 A7 41 24 28 58 29 B2 22 20 22 |(X)."".A$(X)." "|
00000820: 00 39 10 BD 02 41 24 28 58 29 B2 41 24 28 58 29 |.9...A$(X).A$(X)|
00000830: AA 43 24 3A 58 B2 58 AA 31 00 58 10 BF 02 8B 45 |.C$:X.X.1.X....E|
00000840: B2 31 A7 45 B2 30 3A 58 B2 31 3A 97 43 58 2C 31 |.1.E.0:X.1:.CX,1|
00000850: 3A 97 43 4C 2C 30 3A 8E 00 78 10 C0 02 8B 43 24 |:.CL,0:..x....C$|
00000860: B2 C7 28 31 33 33 29 AF C3 28 41 24 28 58 29 29 |..(133)..(A$(X))|
00000870: B1 31 A7 58 B2 58 AA 31 00 95 10 C1 02 41 24 28 |.1.X.X.1.....A$(|
00000880: 58 29 B2 C7 28 37 29 3A 97 43 58 2C 31 3A 97 43 |X)..(7):.CX,1:.C|
00000890: 4C 2C 30 3A 8E 00 AD 10 EE 02 41 24 28 58 29 B2 |L,0:......A$(X).|
000008A0: 41 24 28 58 29 AA 43 24 3A 89 35 32 32 00 FB 10 |A$(X).C$:.522...|
000008B0: E7 03 8F 20 2A 2A 2A 2A 2A 2A 2A 20 43 48 45 43 |... ******* CHEC|
000008C0: 4B 20 47 45 54 20 53 54 41 54 45 4D 45 4E 54 20 |K GET STATEMENT |
000008D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000008E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000008F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 10 11 E8 03 |***********.....|
00000900: 8B 43 24 B2 C7 28 31 34 35 29 A7 43 24 B2 22 22 |.C$..(145).C$.""|
00000910: 00 24 11 F2 03 8B 43 24 B2 C7 28 32 39 29 A7 43 |.$....C$..(29).C|
00000920: 24 B2 22 22 00 39 11 FC 03 8B 43 24 B2 C7 28 31 |$."".9....C$..(1|
00000930: 35 37 29 A7 43 24 B2 22 22 00 4D 11 06 04 8B 43 |57).C$."".M....C|
00000940: 24 B2 C7 28 31 39 29 A7 43 24 B2 22 22 00 62 11 |$..(19).C$."".b.|
00000950: 10 04 8B 43 24 B2 C7 28 31 34 37 29 A7 43 24 B2 |...C$..(147).C$.|
00000960: 22 22 00 76 11 15 04 8B 43 24 B2 C7 28 31 37 29 |"".v....C$..(17)|
00000970: A7 43 24 B2 22 22 00 7C 11 1A 04 8E 00 C9 11 CF |.C$."".|........|
00000980: 07 8F 20 2A 2A 2A 2A 2A 2A 2A 20 50 52 49 4E 54 |.. ******* PRINT|
00000990: 20 52 4F 55 54 49 4E 45 20 2A 2A 2A 2A 2A 2A 2A | ROUTINE *******|
000009A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000009B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000009C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 E9 11 D0 07 97 42 |*********......B|
000009D0: 4F 2C 30 3A 97 53 43 2C 39 3A 99 C7 28 31 34 37 |O,0:.SC,9:..(147|
000009E0: 29 3A 99 C7 28 31 34 34 29 00 13 12 D5 07 99 3A |):..(144)......:|
000009F0: 99 22 12 CC C9 CE C5 20 CC C5 CE C7 D4 C8 20 20 |."..... ...... |
00000A00: 20 92 20 20 36 30 22 3B 3A 85 22 9D 9D 9D 9D 22 | . 60";:."...."|
00000A10: 3B 4C 41 00 3D 12 D7 07 99 3A 99 22 12 C9 CE D3 |;LA.=....:."....|
00000A20: C5 D4 A0 CC C5 CE C7 D4 C8 20 20 92 1D 1D 34 30 |......... ...40|
00000A30: 22 3B 3A 85 22 9D 9D 9D 9D 22 3B 4C 42 00 68 12 |";:."....";LB.h.|
00000A40: D9 07 99 3A 99 22 12 D3 20 4F 52 20 C4 20 D3 D0 |...:.".. OR . ..|
00000A50: C1 C3 C9 CE C7 92 20 20 53 20 22 3B 3A 85 22 9D |...... S ";:.".|
00000A60: 9D 9D 9D 22 3B 53 44 24 00 95 12 DC 07 54 31 24 |...";SD$.....T1$|
00000A70: B2 22 22 3A 58 B2 31 3A 4C 4C B2 4C 41 3A 54 24 |."":X.1:LL.LA:T$|
00000A80: B2 22 22 3A 54 32 24 B2 22 22 3A 50 24 B2 22 22 |."":T2$."":P$.""|
00000A90: 3A 54 4C B2 30 00 A6 12 02 08 9F 34 2C 34 2C 37 |:TL.0......4,4,7|
00000AA0: 3A 8D 32 38 30 30 00 B9 12 03 08 8B 41 24 28 58 |:.2800......A$(X|
00000AB0: 29 B2 22 22 A7 32 36 36 30 00 C7 12 0B 08 54 32 |)."".2660.....T2|
00000AC0: 24 B2 41 24 28 58 29 00 D9 12 0C 08 81 41 B2 31 |$.A$(X)......A.1|
00000AD0: A4 4C 4C AB C3 28 50 24 29 00 EA 12 0D 08 8B 54 |.LL..(P$)......T|
00000AE0: 32 24 B2 22 22 A7 32 30 39 34 00 0E 13 11 08 58 |2$."".2094.....X|
00000AF0: 24 B2 C8 28 54 32 24 2C 31 29 3A 54 32 24 B2 C9 |$..(T2$,1):T2$..|
00000B00: 28 54 32 24 2C C3 28 54 32 24 29 AB 31 29 00 28 |(T2$,.(T2$).1).(|
00000B10: 13 1B 08 8B 58 24 B2 C7 28 36 30 29 A7 4C 4C B2 |....X$..(60).LL.|
00000B20: 4C 42 3A 89 32 30 36 30 00 3B 13 1C 08 8B 58 24 |LB:.2060.;....X$|
00000B30: B2 C7 28 36 32 29 A7 32 30 36 30 00 61 13 20 08 |..(62).2060.a. .|
00000B40: 8F 20 2A 20 50 52 49 4E 54 45 52 20 46 55 4E 43 |. * PRINTER FUNC|
00000B50: 54 49 4F 4E 20 43 4F 4E 56 45 52 53 49 4F 4E 20 |TION CONVERSION |
00000B60: 2A 00 79 13 21 08 8B 58 24 B2 C7 28 31 33 34 29 |*.y.!..X$..(134)|
00000B70: A7 58 24 B2 C7 28 31 34 29 00 9C 13 22 08 8B 58 |.X$..(14)..."..X|
00000B80: 24 B2 C7 28 31 33 35 29 A7 58 24 B2 C7 28 32 37 |$..(135).X$..(27|
00000B90: 29 AA C7 28 34 35 29 AA C7 28 31 29 00 BA 13 23 |)..(45)..(1)...#|
00000BA0: 08 8B 58 24 B2 C7 28 31 33 36 29 A7 58 24 B2 C7 |..X$..(136).X$..|
00000BB0: 28 32 37 29 AA C7 28 35 32 29 00 D2 13 24 08 8B |(27)..(52)...$..|
00000BC0: 58 24 B2 C7 28 31 33 37 29 A7 58 24 B2 C7 28 31 |X$..(137).X$..(1|
00000BD0: 32 29 00 EA 13 25 08 8B 58 24 B2 C7 28 31 33 38 |2)...%..X$..(138|
00000BE0: 29 A7 58 24 B2 C7 28 31 35 29 00 0D 14 26 08 8B |).X$..(15)...&..|
00000BF0: 58 24 B2 C7 28 31 33 39 29 A7 58 24 B2 C7 28 32 |X$..(139).X$..(2|
00000C00: 37 29 AA C7 28 34 35 29 AA C7 28 30 29 00 2B 14 |7)..(45)..(0).+.|
00000C10: 27 08 8B 58 24 B2 C7 28 31 34 30 29 A7 58 24 B2 |'..X$..(140).X$.|
00000C20: C7 28 32 37 29 AA C7 28 35 33 29 00 4F 14 28 08 |.(27)..(53).O.(.|
00000C30: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
00000C40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00000C50: 62 14 29 08 8B 58 24 B2 C7 28 31 33 29 A7 32 36 |b.)..X$..(13).26|
00000C60: 36 30 00 6F 14 2A 08 50 24 B2 50 24 AA 58 24 00 |60.o.*.P$.P$.X$.|
00000C70: 89 14 2E 08 8B C3 28 54 32 24 29 B2 30 A7 58 B2 |......(T2$).0.X.|
00000C80: 58 AA 31 3A 89 32 30 35 31 00 90 14 2F 08 82 41 |X.1:.2051.../..A|
00000C90: 00 9A 14 34 08 89 32 36 31 30 00 A6 14 98 08 81 |...4..2610......|
00000CA0: 41 B2 31 A4 4C 41 00 CA 14 A2 08 58 24 B2 C8 28 |A.1.LA.....X$..(|
00000CB0: 54 32 24 2C 31 29 3A 54 32 24 B2 C9 28 54 32 24 |T2$,1):T2$..(T2$|
00000CC0: 2C C3 28 54 32 24 29 AB 31 29 00 E8 14 A3 08 8B |,.(T2$).1)......|
00000CD0: C3 28 54 32 24 29 B2 30 A7 58 B2 58 AA 31 3A 54 |.(T2$).0.X.X.1:T|
00000CE0: 32 24 B2 41 24 28 4E 29 00 FB 14 AC 08 8B 58 24 |2$.A$(N)......X$|
00000CF0: B2 C7 28 31 33 29 A7 32 33 30 30 00 08 15 B6 08 |..(13).2300.....|
00000D00: 50 24 B2 50 24 AA 58 24 00 0F 15 C0 08 82 41 00 |P$.P$.X$......A.|
00000D10: 29 15 FC 08 49 4E B2 28 38 30 AB C3 28 50 24 29 |)...IN.(80..(P$)|
00000D20: 29 AD 32 3A 89 32 36 37 30 00 38 15 32 0A 81 41 |).2:.2670.8.2..A|
00000D30: B2 31 A4 C3 28 50 24 29 00 50 15 3C 0A 8B C9 28 |.1..(P$).P.<...(|
00000D40: 50 24 2C 31 29 B2 C7 28 33 32 29 A7 32 36 36 30 |P$,1)..(32).2660|
00000D50: 00 75 15 46 0A 54 31 24 B2 C9 28 50 24 2C 31 29 |.u.F.T1$..(P$,1)|
00000D60: AA 54 31 24 3A 50 24 B2 C8 28 50 24 2C C3 28 50 |.T1$:P$..(P$,.(P|
00000D70: 24 29 AB 31 29 00 7C 15 50 0A 82 41 00 A0 15 64 |$).1).|.P..A...d|
00000D80: 0A 8B C8 28 50 24 2C 31 29 B2 C7 28 33 32 29 A7 |...(P$,1)..(32).|
00000D90: 50 24 B2 C9 28 50 24 2C C3 28 50 24 29 AB 31 29 |P$..(P$,.(P$).1)|
00000DA0: 00 A8 15 66 0A 99 50 24 00 B9 15 69 0A 49 4E B2 |...f..P$...i.IN.|
00000DB0: 28 38 30 AB 4C 4C 29 AD 32 00 F5 15 6E 0A 98 34 |(80.LL).2...n..4|
00000DC0: 2C C7 28 31 37 29 A6 49 4E 29 50 24 3A 50 24 B2 |,.(17).IN)P$:P$.|
00000DD0: 22 22 3A 50 24 B2 54 31 24 3A 54 31 24 B2 22 22 |"":P$.T1$:T1$.""|
00000DE0: 3A 54 4C B2 54 4C AA 31 3A 8B 54 4C B2 36 32 A7 |:TL.TL.1:.TL.62.|
00000DF0: 8D 32 38 32 30 00 20 16 78 0A 8B 53 44 24 B2 22 |.2820. .x..SD$."|
00000E00: 44 22 A7 98 34 2C C7 28 31 30 29 3A 54 4C B2 54 |D"..4,.(10):TL.T|
00000E10: 4C AA 31 3A 8B 54 4C B2 36 32 A7 8D 32 38 32 30 |L.1:.TL.62..2820|
00000E20: 00 34 16 8C 0A 8B 58 24 B2 C7 28 31 33 29 A7 4C |.4....X$..(13).L|
00000E30: 4C B2 4C 41 00 5C 16 91 0A 8B C8 28 41 24 28 58 |L.LA.\.....(A$(X|
00000E40: AB 31 29 2C 31 29 B2 C7 28 37 29 A7 98 34 2C C7 |.1),1)..(7)..4,.|
00000E50: 28 31 32 29 3A 98 34 3A A0 34 3A 8E 00 66 16 96 |(12):.4:.4:..f..|
00000E60: 0A 89 32 30 36 30 00 7C 16 F0 0A 81 49 B2 31 A4 |..2060.|....I.1.|
00000E70: 32 3A 98 34 2C C7 28 31 30 29 3A 82 00 87 16 FA |2:.4,.(10):.....|
00000E80: 0A 54 4C B2 30 3A 8E 00 A6 16 04 0B 81 49 B2 31 |.TL.0:.......I.1|
00000E90: A4 33 3A 98 34 2C C7 28 31 30 29 3A 82 49 3A 8D |.3:.4,.(10):.I:.|
00000EA0: 32 38 30 30 3A 8E 00 F3 16 B7 0B 8F 20 2A 2A 2A |2800:....... ***|
00000EB0: 2A 2A 2A 20 4C 4F 41 44 20 52 4F 55 54 49 4E 45 |*** LOAD ROUTINE|
00000EC0: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
00000ED0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000EE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000EF0: 2A 2A 2A 00 09 17 B8 0B 99 C7 28 31 34 37 29 3A |***.......(147):|
00000F00: 97 32 31 34 2C 31 31 3A 99 00 30 17 B9 0B 99 22 |.214,11:..0...."|
00000F10: 12 20 C5 4E 54 45 52 20 44 4F 43 55 4D 45 4E 54 |. .NTER DOCUMENT|
00000F20: 20 4E 41 4D 45 2E 20 20 20 20 22 3A 85 4E 41 24 | NAME. ":.NA$|
00000F30: 00 6E 17 C2 0B 99 22 12 20 C4 49 53 4B 20 4F 52 |.n....". .ISK OR|
00000F40: 20 D4 41 50 45 3F 20 20 20 20 20 20 28 44 2F 54 | .APE? (D/T|
00000F50: 29 92 20 20 20 22 3A 85 22 20 20 44 9D 9D 9D 22 |). ":." D..."|
00000F60: 3B 54 24 3A 54 24 B2 C8 28 54 24 2C 31 29 00 A9 |;T$:T$..(T$,1)..|
00000F70: 17 D1 0B 43 53 24 B2 22 22 3A 99 22 12 20 CF 4B |...CS$."":.". .K|
00000F80: 20 54 4F 20 43 4C 45 41 52 20 4D 45 4D 4F 52 59 | TO CLEAR MEMORY|
00000F90: 20 28 59 2F 4E 29 92 20 20 20 22 3A 85 22 20 20 | (Y/N). ":." |
00000FA0: 4E 9D 9D 9D 22 3B 43 53 24 00 C9 17 D2 0B 43 53 |N...";CS$.....CS|
00000FB0: 24 B2 C8 28 43 53 24 2C 31 29 3A 8B 43 53 24 B2 |$..(CS$,1):.CS$.|
00000FC0: 22 59 22 A7 8D 35 30 30 30 00 D6 17 D3 0B 41 24 |"Y"..5000.....A$|
00000FD0: 28 58 29 B2 22 22 00 F3 17 D4 0B 8B 54 24 B2 22 |(X).""......T$."|
00000FE0: 54 22 A7 9F 38 2C 31 2C 30 2C 4E 41 24 3A 89 33 |T"..8,1,0,NA$:.3|
00000FF0: 30 34 30 00 2E 18 D7 0B 9F 31 35 2C 38 2C 31 35 |040......15,8,15|
00001000: 3A 9F 38 2C 38 2C 38 2C 22 40 30 3A 22 AA 4E 41 |:.8,8,8,"@0:".NA|
00001010: 24 AA 22 2C 53 2C 52 45 41 44 22 3A 8D 31 30 30 |$.",S,READ":.100|
00001020: 30 30 3A 8B 45 41 B1 32 30 A7 33 34 38 30 00 50 |00:.EA.20.3480.P|
00001030: 18 E0 0B 99 22 12 20 D2 45 41 44 49 4E 47 20 46 |....". .EADING F|
00001040: 49 4C 45 2E 20 20 20 20 20 20 20 20 20 20 20 22 |ILE. "|
00001050: 00 5C 18 EA 0B 81 41 B2 31 A4 33 35 00 67 18 EF |.\....A.1.35.g..|
00001060: 0B A1 23 38 2C 43 24 00 77 18 F4 0B 8B 53 54 B3 |..#8,C$.w....ST.|
00001070: B1 30 A7 33 34 38 30 00 A0 18 12 0C 8B 43 24 B2 |.0.3480......C$.|
00001080: C7 28 31 33 29 A7 41 24 28 58 29 B2 41 24 28 58 |.(13).A$(X).A$(X|
00001090: 29 AA 43 24 3A 58 B2 58 AA 31 3A 89 33 30 35 30 |).C$:X.X.1:.3050|
000010A0: 00 B3 18 26 0C 41 24 28 58 29 B2 41 24 28 58 29 |...&.A$(X).A$(X)|
000010B0: AA 43 24 00 BA 18 30 0C 82 41 00 C6 18 35 0C 81 |.C$...0..A...5..|
000010C0: 42 B2 31 A4 34 35 00 D1 18 3A 0C A1 23 38 2C 43 |B.1.45...:..#8,C|
000010D0: 24 00 E1 18 3F 0C 8B 53 54 B3 B1 30 A7 33 34 38 |$...?..ST..0.348|
000010E0: 30 00 0A 19 44 0C 8B 43 24 B2 C7 28 31 33 29 A7 |0...D..C$..(13).|
000010F0: 41 24 28 58 29 B2 41 24 28 58 29 AA 43 24 3A 58 |A$(X).A$(X).C$:X|
00001100: B2 58 AA 31 3A 89 33 30 35 30 00 33 19 4E 0C 8B |.X.1:.3050.3.N..|
00001110: 43 24 B2 C7 28 33 32 29 A7 41 24 28 58 29 B2 41 |C$..(32).A$(X).A|
00001120: 24 28 58 29 AA 43 24 3A 58 B2 58 AA 31 3A 89 33 |$(X).C$:X.X.1:.3|
00001130: 30 35 30 00 46 19 53 0C 41 24 28 58 29 B2 41 24 |050.F.S.A$(X).A$|
00001140: 28 58 29 AA 43 24 00 4D 19 58 0C 82 42 00 5D 19 |(X).C$.M.X..B.].|
00001150: 62 0C 58 B2 58 AA 31 3A 89 33 30 35 30 00 68 19 |b.X.X.1:.3050.h.|
00001160: 98 0D A0 38 3A A0 31 35 00 6E 19 AB 0D 8E 00 BB |...8:.15.n......|
00001170: 19 9F 0F 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 20 53 41 |.... ******** SA|
00001180: 56 45 20 52 4F 55 54 49 4E 45 20 2A 2A 2A 2A 2A |VE ROUTINE *****|
00001190: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000011A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000011B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 D5 19 A0 0F |***********.....|
000011C0: 99 C7 28 31 34 37 29 3A 97 32 31 34 2C 31 31 3A |..(147):.214,11:|
000011D0: 99 3A 58 B2 31 00 FC 19 A1 0F 99 22 12 20 C5 4E |.:X.1......". .N|
000011E0: 54 45 52 20 44 4F 43 55 4D 45 4E 54 20 4E 41 4D |TER DOCUMENT NAM|
000011F0: 45 2E 20 20 20 20 22 3A 85 4E 41 24 00 3A 1A A5 |E. ":.NA$.:..|
00001200: 0F 99 22 12 20 C4 49 53 4B 20 4F 52 20 D4 41 50 |..". .ISK OR .AP|
00001210: 45 3F 20 20 20 20 20 20 28 44 2F 54 29 92 20 20 |E? (D/T). |
00001220: 20 22 3A 85 22 20 20 44 9D 9D 9D 22 3B 54 24 3A | ":." D...";T$:|
00001230: 54 24 B2 C8 28 54 24 2C 31 29 00 57 1A A6 0F 8B |T$..(T$,1).W....|
00001240: 54 24 B2 22 54 22 A7 9F 37 2C 31 2C 31 2C 4E 41 |T$."T"..7,1,1,NA|
00001250: 24 3A 89 34 30 32 30 00 93 1A AA 0F 9F 31 35 2C |$:.4020......15,|
00001260: 38 2C 31 35 3A 9F 37 2C 38 2C 37 2C 22 40 30 3A |8,15:.7,8,7,"@0:|
00001270: 22 AA 4E 41 24 AA 22 2C 53 2C 57 52 49 54 45 22 |".NA$.",S,WRITE"|
00001280: 3A 8D 31 30 30 30 30 3A 8B 45 41 B1 32 30 A7 34 |:.10000:.EA.20.4|
00001290: 30 36 30 00 A8 1A B4 0F 99 20 22 12 20 D3 41 56 |060...... ". .AV|
000012A0: 49 4E 47 22 2C 4E 41 24 00 CC 1A C8 0F 8B C8 28 |ING",NA$.......(|
000012B0: 41 24 28 58 29 2C 31 29 B2 C7 28 37 29 A7 98 37 |A$(X),1)..(7)..7|
000012C0: 2C 41 24 28 58 29 3A 89 34 30 36 30 00 E0 1A D7 |,A$(X):.4060....|
000012D0: 0F 98 37 2C 41 24 28 58 29 3B 3A 58 B2 58 AA 31 |..7,A$(X);:X.X.1|
000012E0: 00 EA 1A D9 0F 89 34 30 34 30 00 F5 1A DC 0F A0 |......4040......|
000012F0: 37 3A A0 31 35 00 FB 1A E6 0F 8E 00 48 1B 87 13 |7:.15.......H...|
00001300: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 20 43 4C 45 41 52 |. ******** CLEAR|
00001310: 20 41 52 52 41 59 20 2A 2A 2A 2A 2A 2A 2A 2A 2A | ARRAY *********|
00001320: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001330: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001340: 2A 2A 2A 2A 2A 2A 2A 2A 00 75 1B 88 13 99 22 12 |********.u....".|
00001350: 99 20 C3 CC C5 C1 D2 C9 CE C7 A0 CD C5 CD CF D2 |. ..............|
00001360: D9 20 20 20 20 20 20 20 20 20 22 3A 81 58 B2 31 |. ":.X.1|
00001370: A4 31 30 30 30 00 82 1B 92 13 41 24 28 58 29 B2 |.1000.....A$(X).|
00001380: 22 22 00 88 1B 9C 13 82 00 90 1B 9F 13 58 B2 31 |""...........X.1|
00001390: 00 96 1B A6 13 8E 00 E3 1B 6F 17 8F 20 2A 2A 2A |.........o.. ***|
000013A0: 2A 2A 2A 2A 2A 20 4C 49 53 54 20 54 4F 20 53 43 |***** LIST TO SC|
000013B0: 52 45 45 4E 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |REEN ***********|
000013C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000013D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000013E0: 2A 2A 2A 00 EF 1B 70 17 51 B2 58 3A 58 B2 31 00 |***...p.Q.X:X.1.|
000013F0: FB 1B 75 17 99 C7 28 31 34 37 29 00 1A 1C 7F 17 |..u...(147).....|
00001400: 8B 41 24 28 58 29 B2 C7 28 37 29 B0 41 24 28 58 |.A$(X)..(7).A$(X|
00001410: 29 B2 22 22 A7 20 36 31 30 30 00 26 1C 84 17 99 |)."". 6100.&....|
00001420: 20 41 24 28 58 29 00 3A 1C 89 17 8B C2 28 32 31 | A$(X).:.....(21|
00001430: 34 29 B1 32 31 A7 36 31 30 30 00 4A 1C 8E 17 58 |4).21.6100.J...X|
00001440: B2 58 AA 31 3A 89 36 30 31 35 00 7B 1C D4 17 99 |.X.1:.6015.{....|
00001450: 22 12 20 20 20 20 20 20 20 20 C8 C9 D4 A0 C1 CE |". ......|
00001460: D9 A0 CB C5 D9 A0 D4 CF A0 C3 CF CE D4 C9 CE D5 |................|
00001470: C5 20 20 20 20 20 20 20 20 20 22 00 8F 1C DE 17 |. ".....|
00001480: A1 57 24 3A 8B 57 24 B2 22 22 A7 36 31 31 30 00 |.W$:.W$."".6110.|
00001490: A0 1C E1 17 8B 41 24 28 58 29 B2 22 22 A7 20 8E |.....A$(X)."". .|
000014A0: 00 B6 1C E3 17 8B 41 24 28 58 29 B2 C7 28 37 29 |......A$(X)..(7)|
000014B0: A7 58 B2 51 3A 8E 00 C6 1C E8 17 58 B2 58 AA 31 |.X.Q:......X.X.1|
000014C0: 3A 89 36 30 30 35 00 13 1D 57 1B 8F 20 2A 2A 2A |:.6005...W.. ***|
000014D0: 2A 2A 2A 2A 2A 20 53 43 41 54 43 48 20 46 49 4C |***** SCATCH FIL|
000014E0: 45 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |E **************|
000014F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001500: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001510: 2A 2A 2A 00 29 1D 58 1B 99 C7 28 31 34 37 29 3A |***.).X...(147):|
00001520: 97 32 31 34 2C 31 31 3A 99 00 37 1D 59 1B 9F 20 |.214,11:..7.Y.. |
00001530: 31 35 2C 38 2C 31 35 00 5E 1D 5B 1B 99 22 12 20 |15,8,15.^.[..". |
00001540: C5 4E 54 45 52 20 46 49 4C 45 20 54 4F 20 44 45 |.NTER FILE TO DE|
00001550: 4C 45 54 45 20 20 20 20 22 3A 85 4E 41 24 00 70 |LETE ":.NA$.p|
00001560: 1D 5D 1B 98 31 35 2C 22 53 30 3A 22 AA 4E 41 24 |.]..15,"S0:".NA$|
00001570: 00 84 1D 62 1B 84 31 35 2C 41 24 2C 42 24 2C 43 |...b..15,A$,B$,C|
00001580: 24 2C 44 24 00 95 1D 6C 1B 99 41 24 2C 42 24 2C |$,D$...l..A$,B$,|
00001590: 43 24 2C 44 24 00 9D 1D 76 1B A0 31 35 00 AF 1D |C$,D$...v..15...|
000015A0: 80 1B 81 54 B2 31 A4 31 30 30 30 3A 82 3A 8E 00 |...T.1.1000:.:..|
000015B0: FC 1D 3F 1F 8F 20 2A 2A 2A 2A 2A 2A 2A 20 45 44 |..?.. ******* ED|
000015C0: 49 54 20 52 55 4F 54 49 4E 45 20 2A 2A 2A 2A 2A |IT RUOTINE *****|
000015D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000015E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000015F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 26 1E 40 |************.&.@|
00001600: 1F 99 22 93 22 3A 97 53 43 2C 39 3A 97 42 4F 2C |..".":.SC,9:.BO,|
00001610: 30 3A 99 A6 31 33 29 22 12 9E C5 C4 C9 D4 20 CD |0:..13)"...... .|
00001620: CF C4 C5 22 3A 99 00 40 1E 45 1F 43 52 24 B2 22 |...":..@.E.CR$."|
00001630: 22 3A 45 52 24 B2 22 22 3A 51 B2 58 3A 58 B2 31 |":ER$."":Q.X:X.1|
00001640: 00 66 1E 4A 1F 99 22 9E D0 D2 C5 D3 D3 20 12 C6 |.f.J.."...... ..|
00001650: 2D 31 92 20 3D 20 D2 45 54 55 52 4E 20 54 4F 20 |-1. = .ETURN TO |
00001660: 4D 45 4E 55 2E 22 00 88 1E 4B 1F 99 22 20 20 20 |MENU."...K.." |
00001670: 20 20 20 12 C6 2D 32 92 20 3D 20 CD 4F 56 45 20 | ..-2. = .OVE |
00001680: 41 20 4C 49 4E 45 2E 22 00 AB 1E 4C 1F 99 22 20 |A LINE."...L.." |
00001690: 20 20 20 20 20 12 C6 2D 33 92 20 3D 20 D2 45 50 | ..-3. = .EP|
000016A0: 4C 41 43 45 20 4C 49 4E 45 2E 22 00 D1 1E 4D 1F |LACE LINE."...M.|
000016B0: 99 22 20 20 20 20 20 20 12 C6 2D 35 92 20 3D 20 |." ..-5. = |
000016C0: D3 45 41 52 43 48 20 42 41 43 4B 57 41 52 44 2E |.EARCH BACKWARD.|
000016D0: 22 00 F6 1E 50 1F 99 22 20 20 20 20 20 20 12 C6 |"...P.." ..|
000016E0: 2D 37 92 20 3D 20 D3 45 41 52 43 48 20 46 4F 52 |-7. = .EARCH FOR|
000016F0: 57 41 52 44 2E 22 00 1A 1F 54 1F 99 22 20 20 20 |WARD."...T.." |
00001700: 20 20 20 12 C6 2D 38 92 20 3D 20 C7 4C 4F 42 41 | ..-8. = .LOBA|
00001710: 4C 20 43 48 41 4E 47 45 2E 22 00 2E 1F 5A 1F 99 |L CHANGE."...Z..|
00001720: 22 20 20 20 20 C3 48 4F 49 43 45 20 3F 22 00 48 |" .HOICE ?".H|
00001730: 1F 5E 1F A1 43 24 3A 8D 31 30 30 30 3A 8B 43 24 |.^..C$:.1000:.C$|
00001740: B2 22 22 A7 38 30 33 30 00 55 1F 63 1F 8B 58 B3 |."".8030.U.c..X.|
00001750: 31 A7 58 B2 31 00 68 1F 64 1F 8B 58 B1 31 30 30 |1.X.1.h.d..X.100|
00001760: 30 A7 58 B2 31 30 30 30 00 A4 1F 68 1F 8B 43 24 |0.X.1000...h..C$|
00001770: B2 C7 28 31 33 36 29 A7 99 58 3B 22 20 9E 22 41 |..(136)..X;" ."A|
00001780: 24 28 58 29 3A 58 B2 58 AA 31 3A 8B 58 B1 51 A7 |$(X):X.X.1:.X.Q.|
00001790: 58 B2 51 3A 99 22 12 C5 CE C4 20 CF C6 20 C4 C1 |X.Q:.".... .. ..|
000017A0: D4 C1 92 22 00 C6 1F 6D 1F 8B 43 24 B2 C7 28 31 |..."...m..C$..(1|
000017B0: 33 35 29 A7 99 58 3B 22 20 9E 22 41 24 28 58 29 |35)..X;" ."A$(X)|
000017C0: 3A 58 B2 58 AB 31 00 F0 1F 72 1F 8B 43 24 B2 C7 |:X.X.1...r..C$..|
000017D0: 28 31 33 34 29 A7 85 22 12 C5 CE D4 C5 D2 A0 CC |(134).."........|
000017E0: C9 CE C5 A0 23 92 22 3B 4E 55 3A 89 38 33 36 32 |....#.";NU:.8362|
000017F0: 00 05 20 77 1F 8B 43 24 B2 C7 28 31 33 33 29 A7 |.. w..C$..(133).|
00001800: 58 B2 51 3A 8E 00 1A 20 7C 1F 8B 43 24 B2 C7 28 |X.Q:... |..C$..(|
00001810: 31 33 37 29 A7 20 38 31 30 30 00 2F 20 7D 1F 8B |137). 8100./ }..|
00001820: 43 24 B2 C7 28 31 34 30 29 A7 20 38 32 30 30 00 |C$..(140). 8200.|
00001830: 39 20 80 1F 89 38 30 33 30 00 61 20 A4 1F 85 22 |9 ...8030.a ..."|
00001840: 12 C5 CE D4 C5 D2 20 CC C9 CE C5 28 53 29 A0 23 |...... ....(S).#|
00001850: A0 D4 CF A0 C2 C5 A0 CD CF D6 C5 C4 92 22 3B 4D |.............";M|
00001860: 31 00 89 20 A6 1F 85 22 20 20 20 20 20 20 20 20 |1.. ..." |
00001870: 20 20 20 20 20 20 20 20 20 20 DB 20 12 C1 CE CF | . ....|
00001880: D4 C8 C5 D2 92 22 3B 4D 32 00 C3 20 A7 1F 8B C3 |.....";M2.. ....|
00001890: 28 41 24 28 4D 31 29 29 AA C3 28 41 24 28 4D 32 |(A$(M1))..(A$(M2|
000018A0: 29 29 B1 38 30 A7 99 22 12 D3 D4 D2 C9 CE C7 A0 |)).80.."........|
000018B0: D4 CF A0 CC CF CE C7 92 22 3A 58 B2 31 3A 89 38 |........":X.1:.8|
000018C0: 30 31 30 00 FC 20 A8 1F 8B C9 28 41 24 28 4D 31 |010.. ....(A$(M1|
000018D0: 29 2C 31 29 B2 C7 28 31 33 29 AF 4D 32 B1 30 A7 |),1)..(13).M2.0.|
000018E0: 41 24 28 4D 31 29 B2 C8 28 41 24 28 4D 31 29 2C |A$(M1)..(A$(M1),|
000018F0: C3 28 41 24 28 4D 31 29 29 AB 31 29 00 24 21 AE |.(A$(M1)).1).$!.|
00001900: 1F 85 22 12 C5 CE D4 C5 D2 20 CC C9 CE C5 A0 23 |.."...... .....#|
00001910: A0 D4 CF A0 C2 C5 A0 D2 C5 D0 CC C1 C3 C5 C4 92 |................|
00001920: 22 3B 4D 33 00 5E 21 B8 1F 4A 47 24 B2 41 24 28 |";M3.^!..JG$.A$(|
00001930: 4D 31 29 AA C7 28 33 32 29 AA 41 24 28 4D 32 29 |M1)..(32).A$(M2)|
00001940: 3A 41 24 28 4D 33 29 B2 22 22 3A 41 24 28 4D 31 |:A$(M3)."":A$(M1|
00001950: 29 B2 22 22 3A 41 24 28 4D 32 29 B2 22 22 00 6D |)."":A$(M2)."".m|
00001960: 21 BD 1F 41 24 28 4D 33 29 B2 4A 47 24 00 7B 21 |!..A$(M3).JG$.{!|
00001970: D6 1F 58 B2 31 3A 89 38 30 31 30 00 9C 21 08 20 |..X.1:.8010..!. |
00001980: 99 22 12 9E C5 CE D4 C5 D2 20 D7 CF D2 C4 A0 D4 |."....... ......|
00001990: CF A0 C3 C8 C1 CE C7 C5 92 3A 90 22 00 A8 21 12 |.........:."..!.|
000019A0: 20 81 41 B2 31 A4 38 30 00 C2 21 1C 20 A1 43 24 | .A.1.80..!. .C$|
000019B0: 3A 8D 31 30 30 30 3A 8B 43 24 B2 22 22 A7 38 32 |:.1000:.C$."".82|
000019C0: 32 30 00 D5 21 21 20 8B 43 24 B2 C7 28 31 33 29 |20..!! .C$..(13)|
000019D0: A7 38 32 35 30 00 FD 21 22 20 8B 43 24 B2 C7 28 |.8250..!" .C$..(|
000019E0: 32 30 29 A7 45 52 24 B2 C8 28 45 52 24 2C C3 28 |20).ER$..(ER$,.(|
000019F0: 45 52 24 29 AB 31 29 3A 89 38 32 33 35 00 0C 22 |ER$).1):.8235.."|
00001A00: 26 20 45 52 24 B2 45 52 24 AA 43 24 00 15 22 2B |& ER$.ER$.C$.."+|
00001A10: 20 99 43 24 3B 00 1C 22 30 20 82 41 00 3A 22 3A | .C$;.."0 .A.:":|
00001A20: 20 99 3A 99 22 12 9E C5 CE D4 C5 D2 20 C3 CF D2 | .:."....... ...|
00001A30: D2 C5 C3 D4 C9 CF CE 90 92 22 00 47 22 3F 20 4F |.........".G"? O|
00001A40: B2 C3 28 45 52 24 29 00 53 22 44 20 81 41 B2 31 |..(ER$).S"D .A.1|
00001A50: A4 38 30 00 67 22 4E 20 A1 4A 24 3A 8B 4A 24 B2 |.80.g"N .J$:.J$.|
00001A60: 22 22 A7 38 32 37 30 00 7A 22 58 20 8B 4A 24 B2 |"".8270.z"X .J$.|
00001A70: C7 28 31 33 29 A7 38 33 31 30 00 A2 22 59 20 8B |.(13).8310.."Y .|
00001A80: 4A 24 B2 C7 28 32 30 29 A7 43 52 24 B2 C8 28 43 |J$..(20).CR$..(C|
00001A90: 52 24 2C C3 28 43 52 24 29 AB 31 29 3A 89 38 32 |R$,.(CR$).1):.82|
00001AA0: 39 30 00 B1 22 5D 20 43 52 24 B2 43 52 24 AA 4A |90.."] CR$.CR$.J|
00001AB0: 24 00 BA 22 62 20 99 4A 24 3B 00 C1 22 6C 20 82 |$.."b .J$;.."l .|
00001AC0: 41 00 D6 22 76 20 99 3A 99 22 12 9E D3 C5 C1 D2 |A.."v .:."......|
00001AD0: C3 C8 C9 CE C7 22 00 E4 22 80 20 81 41 B2 31 A4 |....."..". .A.1.|
00001AE0: 31 30 30 30 00 F6 22 81 20 81 42 B2 31 A4 C3 28 |1000..". .B.1..(|
00001AF0: 41 24 28 41 29 29 00 10 23 82 20 8B C8 28 41 24 |A$(A))..#. ..(A$|
00001B00: 28 41 29 2C 31 29 B2 C7 28 37 29 A7 38 33 34 38 |(A),1)..(7).8348|
00001B10: 00 3D 23 89 20 8B CA 28 41 24 28 41 29 2C 42 2C |.=#. ..(A$(A),B,|
00001B20: 4F 29 B2 45 52 24 A7 4F 4F B2 C3 28 41 24 28 41 |O).ER$.OO..(A$(A|
00001B30: 29 29 AB 42 AA 31 AB C3 28 45 52 24 29 00 63 23 |)).B.1..(ER$).c#|
00001B40: 8A 20 8B CA 28 41 24 28 41 29 2C 42 2C 4F 29 B2 |. ..(A$(A),B,O).|
00001B50: 45 52 24 A7 57 43 24 B2 C9 28 41 24 28 41 29 2C |ER$.WC$..(A$(A),|
00001B60: 4F 4F 29 00 9C 23 94 20 8B CA 28 41 24 28 41 29 |OO)..#. ..(A$(A)|
00001B70: 2C 42 2C 4F 29 B2 45 52 24 A7 99 22 12 C6 CF D5 |,B,O).ER$.."....|
00001B80: CE C4 92 22 C7 28 31 34 34 29 41 24 28 41 29 C7 |...".(144)A$(A).|
00001B90: 28 31 35 38 29 3A 89 20 38 33 34 34 00 A3 23 96 |(158):. 8344..#.|
00001BA0: 20 82 42 00 AA 23 97 20 82 41 00 C4 23 98 20 85 | .B..#. .A..#. .|
00001BB0: 22 12 C3 C8 C1 CE C7 C5 20 92 20 20 59 9D 9D 9D |"....... . Y...|
00001BC0: 22 3B 54 24 00 E6 23 99 20 8B 54 24 B3 B1 22 59 |";T$..#. .T$.."Y|
00001BD0: 22 A7 99 22 12 9E D3 C5 C1 D2 C3 C8 C9 CE C7 22 |".."..........."|
00001BE0: 3A 89 38 33 34 32 00 21 24 9A 20 41 24 28 41 29 |:.8342.!$. A$(A)|
00001BF0: B2 C8 28 41 24 28 41 29 2C 42 AB 31 29 AA 43 52 |..(A$(A),B.1).CR|
00001C00: 24 AA 57 43 24 3A 99 41 24 28 41 29 3A 99 22 12 |$.WC$:.A$(A):.".|
00001C10: D3 C5 C1 D2 C3 C8 C9 CE C7 92 22 3A 89 38 33 34 |..........":.834|
00001C20: 32 00 57 24 9C 20 99 22 93 9E 12 D3 C5 C1 D2 C3 |2.W$. ."........|
00001C30: C8 20 C3 CF CD D0 CC C5 D4 C5 20 90 22 3A 99 3A |. ........ .":.:|
00001C40: 45 52 24 B2 22 22 3A 43 52 24 B2 22 22 3A 58 B2 |ER$."":CR$."":X.|
00001C50: 31 3A 89 38 30 31 30 00 88 24 AA 20 58 B2 4E 55 |1:.8010..$. X.NU|
00001C60: 3A 45 B2 31 3A 4D 41 B2 38 30 3A 97 42 4F 2C 31 |:E.1:MA.80:.BO,1|
00001C70: 34 3A 97 53 43 2C 30 3A 8D 35 31 30 3A 97 42 4F |4:.SC,0:.510:.BO|
00001C80: 2C 30 3A 97 53 43 2C 39 00 98 24 AD 20 58 B2 31 |,0:.SC,9..$. X.1|
00001C90: 3A 99 C7 28 31 34 37 29 00 A2 24 B2 20 89 38 30 |:..(147)..$. .80|
00001CA0: 31 30 00 EF 24 0F 27 8F 20 2A 2A 2A 2A 2A 2A 2A |10..$.'. *******|
00001CB0: 2A 20 52 45 41 44 20 45 52 52 4F 52 20 43 48 41 |* READ ERROR CHA|
00001CC0: 4E 4E 45 4C 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |NNEL ***********|
00001CD0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001CE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00001CF0: 0D 25 10 27 84 31 35 2C 45 41 2C 45 42 24 2C 45 |.%.'.15,EA,EB$,E|
00001D00: 43 2C 45 44 3A 8B 45 41 B3 32 30 A7 8E 00 1A 25 |C,ED:.EA.20....%|
00001D10: 15 27 8B 45 41 B2 35 30 A7 8E 00 35 25 1A 27 99 |.'.EA.50...5%.'.|
00001D20: 22 11 22 45 41 3B 22 12 22 45 42 24 22 92 22 2C |"."EA;"."EB$".",|
00001D30: 45 43 3B 45 44 00 58 25 24 27 99 22 11 12 20 48 |EC;ED.X%$'.".. H|
00001D40: 49 54 20 41 4E 59 20 4B 45 59 20 54 4F 20 43 4F |IT ANY KEY TO CO|
00001D50: 4E 54 49 4E 55 45 2E 22 00 6D 25 29 27 A1 57 24 |NTINUE.".m%)'.W$|
00001D60: 3A 8B 57 24 B2 22 22 A7 31 30 30 32 35 00 73 25 |:.W$."".10025.s%|
00001D70: 2E 27 8E 00 BF 25 F7 2A 8F 20 2A 2A 2A 2A 2A 2A |.'...%.*. ******|
00001D80: 20 52 45 41 44 20 43 41 54 41 4C 4F 47 20 2A 2A | READ CATALOG **|
00001D90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001DA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001DB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00001DC0: FD 25 F8 2A 99 22 93 12 1E 20 20 20 20 20 20 20 |.%.*."... |
00001DD0: 20 20 20 20 D2 C5 C1 C4 C9 CE C7 20 C3 C1 D4 C1 | ....... ....|
00001DE0: CC CF C7 20 20 20 20 20 20 20 20 20 20 20 20 20 |... |
00001DF0: 20 9A 22 3A 9F 31 2C 38 2C 30 2C 22 24 00 19 26 | .":.1,8,0,"$..&|
00001E00: FD 2A 81 4C B2 31 A4 31 30 30 3A 50 24 28 4C 29 |.*.L.1.100:P$(L)|
00001E10: B2 22 22 3A 82 3A 47 B2 31 00 31 26 B6 2B A1 23 |."":.:G.1.1&.+.#|
00001E20: 31 2C 42 24 3A 8B 53 54 B3 B1 30 A7 31 31 32 37 |1,B$:.ST..0.1127|
00001E30: 30 00 46 26 C0 2B 8B 42 24 B3 B1 C7 28 33 34 29 |0.F&.+.B$...(34)|
00001E40: A7 31 31 31 39 30 00 50 26 CA 2B 50 24 B2 22 22 |.11190.P&.+P$.""|
00001E50: 00 76 26 D4 2B A1 23 31 2C 42 24 3A 8B 42 24 B3 |.v&.+.#1,B$:.B$.|
00001E60: B1 C7 28 33 34 29 A7 50 24 B2 50 24 AA 42 24 3A |..(34).P$.P$.B$:|
00001E70: 89 31 31 32 32 30 00 91 26 DE 2B A1 23 31 2C 42 |.11220..&.+.#1,B|
00001E80: 24 3A 8B 42 24 B2 C7 28 33 32 29 A7 31 31 32 33 |$:.B$..(32).1123|
00001E90: 30 00 BA 26 E8 2B 50 24 28 47 29 B2 50 24 3A 97 |0..&.+P$(G).P$:.|
00001EA0: 32 31 34 2C 31 32 3A 99 3A 99 C7 28 31 38 29 C7 |214,12:.:..(18).|
00001EB0: 28 31 35 38 29 A3 31 38 29 47 00 D3 26 F2 2B A1 |(158).18)G..&.+.|
00001EC0: 23 31 2C 42 24 3A 8B 42 24 B3 B1 22 22 A7 31 31 |#1,B$:.B$.."".11|
00001ED0: 32 35 30 00 EA 26 FC 2B 8B 53 54 B2 30 A7 47 B2 |250..&.+.ST.0.G.|
00001EE0: 47 AA 31 3A 89 31 31 31 39 30 00 F1 26 06 2C A0 |G.1:.11190..&.,.|
00001EF0: 31 00 FA 26 1A 2C 4E B2 31 30 00 17 27 24 2C 99 |1..&.,N.10..'$,.|
00001F00: 22 93 99 12 9E C4 C9 D3 CB A0 C3 CF CE D4 C5 CE |"...............|
00001F10: D4 D3 20 81 22 3A 99 00 26 27 38 2C 8B 4E B3 31 |.. .":..&'8,.N.1|
00001F20: 30 A7 4E B2 31 30 00 37 27 42 2C 8B 4E B1 31 30 |0.N.10.7'B,.N.10|
00001F30: 30 A7 4E B2 31 30 30 00 58 27 4C 2C 81 4A B2 28 |0.N.100.X'L,.J.(|
00001F40: 4E AB 39 29 A4 4E 3A 8B 4A B2 31 A7 99 22 12 22 |N.9).N:.J.1.."."|
00001F50: 50 24 28 4A 29 3A 82 4A 00 63 27 4F 2C 99 50 24 |P$(J):.J.c'O,.P$|
00001F60: 28 4A 29 00 6A 27 51 2C 82 4A 00 95 27 56 2C 99 |(J).j'Q,.J..'V,.|
00001F70: C7 28 31 39 29 A3 31 38 29 22 12 1E 20 20 20 D0 |.(19).18)".. .|
00001F80: D2 C5 D3 D3 20 CF CE C5 20 C2 C5 CC CF D7 20 20 |.... ... ..... |
00001F90: 20 20 22 3A 99 00 BA 27 60 2C 99 A3 31 38 29 22 | ":...'`,..18)"|
00001FA0: 12 99 C6 2D 31 9A 92 20 3D 20 D2 45 54 55 52 4E |...-1.. = .ETURN|
00001FB0: 20 54 4F 20 4D 45 4E 55 2E 22 00 DA 27 65 2C 99 | TO MENU."..'e,.|
00001FC0: A3 31 38 29 22 12 99 C6 2D 33 9A 92 20 3D 20 CC |.18)"...-3.. = .|
00001FD0: 4F 41 44 20 46 49 4C 45 2E 22 00 FE 27 6A 2C 99 |OAD FILE."..'j,.|
00001FE0: A3 31 38 29 22 12 99 C6 2D 35 9A 92 20 3D 20 D0 |.18)"...-5.. = .|
00001FF0: 52 45 56 49 4F 55 53 20 50 41 47 45 2E 22 00 1D |REVIOUS PAGE."..|
00002000: 28 74 2C 99 A3 31 38 29 22 12 99 C6 2D 37 9A 92 |(t,..18)"...-7..|
00002010: 20 3D 20 CE 45 58 54 20 50 41 47 45 22 00 3F 28 | = .EXT PAGE".?(|
00002020: 7E 2C 99 A3 31 38 29 22 12 99 C6 2D 38 9A 92 20 |~,..18)"...-8.. |
00002030: 3D 20 C4 45 4C 45 54 45 20 46 49 4C 45 2E 22 00 |= .ELETE FILE.".|
00002040: 60 28 88 2C 43 24 B2 22 22 3A A1 43 24 3A 8D 31 |`(.,C$."":.C$:.1|
00002050: 30 30 30 3A 8B 43 24 B2 22 22 A7 31 31 34 30 30 |000:.C$."".11400|
00002060: 00 7D 28 92 2C 8B 43 24 B2 C7 28 31 33 36 29 A7 |.}(.,.C$..(136).|
00002070: 4E B2 4E AA 31 30 3A 89 31 31 33 30 30 00 9A 28 |N.N.10:.11300..(|
00002080: 9C 2C 8B 43 24 B2 C7 28 31 33 35 29 A7 4E B2 4E |.,.C$..(135).N.N|
00002090: AB 31 30 3A 89 31 31 33 30 30 00 C0 28 A1 2C 8B |.10:.11300..(.,.|
000020A0: 43 24 B2 C7 28 31 34 30 29 A7 97 32 31 34 2C 31 |C$..(140)..214,1|
000020B0: 31 3A 99 3A 8D 37 30 30 31 3A 89 31 31 33 30 30 |1:.:.7001:.11300|
000020C0: 00 D1 28 A6 2C 8B 43 24 B2 C7 28 31 33 33 29 A7 |..(.,.C$..(133).|
000020D0: 8E 00 E7 28 B0 2C 8B 43 24 B2 C7 28 31 33 34 29 |...(.,.C$..(134)|
000020E0: A7 89 31 31 35 30 30 00 F2 28 BA 2C 89 31 31 34 |..11500..(.,.114|
000020F0: 30 30 00 25 29 EC 2C 97 32 31 34 2C 31 31 3A 99 |00.%).,.214,11:.|
00002100: 3A 99 22 12 99 20 C5 4E 54 45 52 20 46 49 4C 45 |:.".. .NTER FILE|
00002110: 20 4E 41 4D 45 20 20 20 20 20 20 20 20 20 9A 22 | NAME ."|
00002120: 3A 85 4E 41 24 00 2F 29 0A 2D 8D 33 30 32 35 00 |:.NA$./).-.3025.|
00002130: 35 29 1E 2D 8E 00 00 00 |5).-.... |
....... WORD WORKER 1.0.,....
BY.B.... JIM GARRICK.I.(..:.H.2..:
*** C-64 VERSION *******...Z.SC.53281:BO
.53280:X.1:.G(8):CX.204:CL.207..._..A$(1
000):.P$(100):.650,128.G.D..SC,0:.BO,14.
..N..G(14):."... MENU
.".".....11)"..C..REATE
DOCUMENT.".D....".".11)"..P..RINT DOCUME
NT.".D. ..".".11)"..G..ET DOCUMENT."....
..".".11)"..S..AVE DOCUMENT."......".".1
1)"..L..IST DOC. ON SCREEN.".P....".".11
)"..D..ELETE DISK FILE."......".".11)"..
E..DIT DOCUMENT."......".".11)"..R..EAD
CATALOG.".1....".".11)"..M..EMORY CLEAR.
".N....".".11)"..T..ERMINATE.".I.C..G(17
).10)". CHOICE ?"...H.C$."":.C$:.1000:.C
$."".200...K.M$.H(M$,1)...M..C$."C"..500
...R..C$."P"..2000.L.T..C$."G"..3000...W
..C$."S"..4000......C$."L"..6000......C$
."D"..7000......C$."E"..8000.&....C$."M"
..5000.9....C$."R"..11000.K....C$."T".."
.."G(142)G(9):.SC,6:.BO,14:.650,0:..T...
.100.B.... ********* INPUT ROUTINE *****
****************************************
**.....MA.40:E.0:.X.1.A$(X).""......G(14
7)".. NEW MODE
":C$."".F....X.1..G(19)G(28)G(18)"C
ONTINUATION .".Q....E.1..G(19)G(158)G(18
)"REPLACEMENT ."......"...F-1 = MENU
F-2 = NEW PAGE ".W...."...F-
3 = ENLARGED F-4 = NORMAL ".
....."..F-5 = UNDERLINE ON F-6 = UNDER
LINE OFF".<...."..F-7 = ITALICS ON F
-8 = ITALICS OFF .".X....A$(X);:.E.1.A$
(X)."":..Y.... B(214).23..CX,1:.CL,0:.51
0......CX,0:.CL,0:.C$:.1000:.C$."".522..
....CL,2......C$.G(160).C$.G(32).V....C$
.G(13).E.1.700......C$.G(137)..G(95);:.7
50......C$.G(134)..G(94);:.750.*....C$.G
(138)..G(95);:.750.F....C$.G(135)..G(94)
;:.750.B....C$.G(139)..G(95);:.750.~....
C$.G(136)..G(94);:.750......C$.G(140)..G
(95);:.750...?..C$.G(133).703.J.A..C$.G(
20).C(A$(X)).0.522...C..C$.G(13).A$(X).A
$(X).C$:X.X.1:.G(32):.520...D..C$;./.X..
C$.G(20).A$(X).H(A$(X),C(A$(X)).1):.522.
Y.B.A$(X).A$(X).C$:C$."":.C(A$(X)).MA.52
2.T.L..I(A$(X),1).G(32)..640...V.A$(X.1)
.I(A$(X),1).A$(X.1):A$(X).H(A$(X),C(A$(X
)).1):.620.R....U.1.MA.C(A$(X)):.G(20);:
.U......A.1.C(A$(X.1)):.G(32);:.A.....X.
X.1:.A$(X);:.520. ....A$(X)."".A$(X)." "
.9...A$(X).A$(X).C$:X.X.1.X....E.1.E.0:X
.1:.CX,1:.CL,0:..X....C$.G(133).C(A$(X))
.1.X.X.1...A.A$(X).G(7):.CX,1:.CL,0:....
..A$(X).A$(X).C$:.522...... ******* CHEC
K GET STATEMENT ************************
*******************......C$.G(145).C$.""
.$....C$.G(29).C$."".9....C$.G(157).C$."
".M....C$.G(19).C$."".B....C$.G(147).C$.
"".V....C$.G(17).C$."".|.....I.O.. *****
** PRINT ROUTINE ***********************
*************************...P..BO,0:.SC,
9:.G(147):.G(144)...U..:.".LINE LENGTH
. 60";:."....";LA.=.W..:.".INSET LENGT
H ...40";:."....";LB.H.Y..:.".S OR D SP
ACING. S ";:."....";SD$.....T1$."":X.1:
LL.LA:T$."":T2$."":P$."":TL.0......4,4,7
:.2800......A$(X)."".2660.G...T2$.A$(X).
Y....A.1.LL.C(P$)......T2$."".2094.....X
$.H(T2$,1):T2$.I(T2$,C(T2$).1).(....X$.G
(60).LL.LB:.2060.;....X$.G(62).2060.A. .
. * PRINTER FUNCTION CONVERSION *.Y.!..X
$.G(134).X$.G(14)..."..X$.G(135).X$.G(27
).G(45).G(1)...#..X$.G(136).X$.G(27).G(5
2).R.$..X$.G(137).X$.G(12)...%..X$.G(138
).X$.G(15)...&..X$.G(139).X$.G(27).G(45)
.G(0).+.'..X$.G(140).X$.G(27).G(53).O.(.
. *****************************.B.)..X$.
G(13).2660.O.*.P$.P$.X$......C(T2$).0.X.
X.1:.2051.../..A...4..2610......A.1.LA.J
...X$.H(T2$,1):T2$.I(T2$,C(T2$).1)......
C(T2$).0.X.X.1:T2$.A$(N)......X$.G(13).2
300.....P$.P$.X$......A.)...IN.(80.C(P$)
).2:.2670.8.2..A.1.C(P$).P.<..I(P$,1).G(
32).2660.U.F.T1$.I(P$,1).T1$:P$.H(P$,C(P
$).1).|.P..A. .D..H(P$,1).G(32).P$.I(P$,
C(P$).1)...F..P$...I.IN.(80.LL).2...N..4
,G(17).IN)P$:P$."":P$.T1$:T1$."":TL.TL.1
:.TL.62..2820. .X..SD$."D"..4,G(10):TL.T
L.1:.TL.62..2820.4....X$.G(13).LL.LA.\..
..H(A$(X.1),1).G(7)..4,G(12):.4: 4:..F..
..2060.|....I.1.2:.4,G(10):......TL.0:..
.....I.1.3:.4,G(10):.I:.2800:....... ***
*** LOAD ROUTINE ***********************
***************************......G(147):
.214,11:..0....". ENTER DOCUMENT NAME.
":.NA$.N.B..". DISK OR TAPE? (D/T
). ":." D...";T$:T$.H(T$,1)...Q.CS$."
":.". OK TO CLEAR MEMORY (Y/N). ":."
N...";CS$.I.R.CS$.H(CS$,1):.CS$."Y"..500
0.V.S.A$(X).""...T..T$."T"..8,1,0,NA$:.3
040...W..15,8,15:.8,8,8,"@0:".NA$.",S,RE
AD":.10000:.EA.20.3480.P....". READING F
ILE. ".\....A.1.35.G....#8,C$.
W....ST..0.3480. ....C$.G(13).A$(X).A$(X
).C$:X.X.1:.3050...&.A$(X).A$(X).C$...0.
.A.F.5..B.1.45.Q.:..#8,C$...?..ST..0.348
0...D..C$.G(13).A$(X).A$(X).C$:X.X.1:.30
50.3.N..C$.G(32).A$(X).A$(X).C$:X.X.1:.3
050.F.S.A$(X).A$(X).C$.M.X..B.].B.X.X.1:
.3050.H... 8: 15.N.......... ******** SA
VE ROUTINE *****************************
*******************.U. ..G(147):.214,11:
.:X.1......". ENTER DOCUMENT NAME. ":
.NA$.:....". DISK OR TAPE? (D/T).
":." D...";T$:T$.H(T$,1).W....T$."T"..
7,1,1,NA$:.4020......15,8,15:.7,8,7,"@0:
".NA$.",S,WRITE":.10000:.EA.20.4060.....
. ". SAVING",NA$.L.H..H(A$(X),1).G(7)..7
,A$(X):.4060...W..7,A$(X);:X.X.1...Y..40
40..... 7: 15.......H.... ******** CLEAR
ARRAY *********************************
****************.U....".. CLEARING MEMOR
Y ":.X.1.1000.....A$(X).""......
.....X.1.........O.. ******** LIST TO SC
REEN ***********************************
***********...P.Q.X:X.1...U..G(147)....
.A$(X).G(7).A$(X)."". 6100.&.... A$(X).:
....B(214).21.6100.J...X.X.1:.6015.{.T..
". HIT ANY KEY TO CONTINUE
"......W$:.W$."".6110. ....A$(X)."". .
......A$(X).G(7).X.Q:..F...X.X.1:.6005..
.W.. ******** SCATCH FILE **************
***********************************.).X.
.G(147):.214,11:..7.Y.. 15,8,15.^.[..".
ENTER FILE TO DELETE ":.NA$.P.]..15,"
S0:".NA$...B..15,A$,B$,C$,D$...L..A$,B$,
C$,D$...V. 15......T.1.1000:.:....?.. **
***** EDIT RUOTINE *********************
****************************.&.@..".":.S
C,9:.BO,0:..13)"..EDIT MODE":..@.E.CR$."
":ER$."":Q.X:X.1.F.J..".PRESS .F-1. = RE
TURN TO MENU."...K.." .F-2. = MOVE
A LINE."...L.." .F-3. = REPLACE LIN
E.".Q.M.." .F-5. = SEARCH BACKWARD.
"...P.." .F-7. = SEARCH FORWARD."..
.T.." .F-8. = GLOBAL CHANGE."...Z..
" CHOICE ?".H.^..C$:.1000:.C$."".8030
.U.C..X.1.X.1.H.D..X.1000.X.1000...H..C$
.G(136)..X;" ."A$(X):X.X.1:.X.Q.X.Q:.".E
ND OF DATA.".F.M..C$.G(135)..X;" ."A$(X)
:X.X.1...R..C$.G(134)..".ENTER LINE #.";
NU:.8362.. W..C$.G(133).X.Q:... |..C$.G(
137). 8100./ }..C$.G(140). 8200.9 ...803
0.A ...".ENTER LINE(S) # TO BE MOVED.";M
1.. ..." . .ANOTHER.";M
2.C ...C(A$(M1)).C(A$(M2)).80..".STRING
TO LONG.":X.1:.8010.. ...I(A$(M1),1).G(1
3).M2.0.A$(M1).H(A$(M1),C(A$(M1)).1).$!.
..".ENTER LINE # TO BE REPLACED.";M3.^!.
.JG$.A$(M1).G(32).A$(M2):A$(M3)."":A$(M1
)."":A$(M2)."".M!..A$(M3).JG$.{!V.X.1:.8
010..!. ."..ENTER WORD TO CHANGE.:."..!.
.A.1.80.B!. .C$:.1000:.C$."".8220.U!! .
C$.G(13).8250..!" .C$.G(20).ER$.H(ER$,C(
ER$).1):.8235.."& ER$.ER$.C$.."+ .C$;.."
0 .A.:": .:."..ENTER CORRECTION..".G"? O
.C(ER$).S"D .A.1.80.G"N .J$:.J$."".8270.
Z"X .J$.G(13).8310.."Y .J$.G(20).CR$.H(C
R$,C(CR$).1):.8290.."] CR$.CR$.J$.."B .J
$;.A"L .A.V"V .:."..SEARCHING"..". .A.1.
1000..". .B.1.C(A$(A))..#. .H(A$(A),1).G
(7).8348.=#. .J(A$(A),B,O).ER$.OO.C(A$(A
)).B.1.C(ER$).C#. .J(A$(A),B,O).ER$.WC$.
I(A$(A),OO)..#. .J(A$(A),B,O).ER$..".FOU
ND."G(144)A$(A)G(158):. 8344..#. .B..#.
.A.D#. .".CHANGE . Y...";T$..#. .T$.."Y
".."..SEARCHING":.8342.!$. A$(A).H(A$(A)
,B.1).CR$.WC$:.A$(A):.".SEARCHING.":.834
2.W$. ."...SEARCH COMPLETE .":.:ER$."":C
R$."":X.1:.8010..$. X.NU:E.1:MA.80:.BO,1
4:.SC,0:.510:.BO,0:.SC,9..$. X.1:.G(147)
..$. .8010..$.'. ******** READ ERROR CHA
NNEL ***********************************
*******..%.'.15,EA,EB$,EC,ED:.EA.20....%
.'.EA.50...5%.'."."EA;"."EB$".",EC;ED.X%
$'.".. HIT ANY KEY TO CONTINUE.".M%)'.W$
:.W$."".10025.S%.'...%.*. ****** READ CA
TALOG **********************************
***************..%.*."... READ
ING CATALOG .":.1,8,0,"$..&
.*.L.1.100:P$(L)."":.:G.1.1&.+.#1,B$:.ST
..0.11270.F&.+.B$..G(34).11190.P&J+P$.""
.V&T+.#1,B$:.B$..G(34).P$.P$.B$:.11220..
&.+.#1,B$:.B$.G(32).11230..&.+P$(G).P$:.
214,12:.:.G(18)G(158).18)G.S&.+.#1,B$:.B
$.."".11250..&.+.ST.0.G.G.1:.11190..&.,
1..&.,N.10..'$,."....DISK CONTENTS .":..
&'8,.N.10.N.10.7'B,.N.100.N.100.X'L,.J.(
N.9).N:.J.1.."."P$(J):.J.C'O,.P$(J).J'Q,
.J..'V,.G(19).18)".. PRESS ONE BELOW
":...'`,..18)"..F-1.. = RETURN TO MENU
.".Z'E,..18)"..F-3.. = LOAD FILE."..'J,.
.18)"..F-5.. = PREVIOUS PAGE."..(T,..18)
"..F-7.. = NEXT PAGE".?(~,..18)"..F-8..
= DELETE FILE.".`(.,C$."":.C$:.1000:.C$.
"".11400.}(.,.C$.G(136).N.N.10:.11300..(
.,.C$.G(135).N.N.10:.11300..(.,.C$.G(140
)..214,11:.:.7001:.11300.Q(.,.C$.G(133).
...(.,.C$.G(134)..11500..(.,.11400.%).,.
214,11:.:.".. ENTER FILE NAME ."
:.NA$./).-.3025.5).-....
> CLICK IMAGE PREVIEW FOR FULL MODAL