WORD WORKER.C
FILE INFORMATION
FILENAME(S): WORD WORKER.C
FILE TYPE(S): PRG
FILE SIZE: 8.3K
FIRST SEEN: 2025-10-20 14:30:16
APPEARS ON: 5 disk(s)
FILE HASH
bcec3f2e3be71847be61e5cebda2e84ac5220eead1ef76407379d4f594ed16c3
FOUND ON DISKS (5 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MASTERMMSOFT | WORD WORKER.C | PRG | Treasure Chest - Klaus Der Suhler | 17 | 1 | DOWNLOAD FILE |
| A NWENDER | WORD WORKER.C | PRG | Treasure Chest - Wolfgang Rauprich | 3 | 7 | DOWNLOAD FILE |
| FREESOFT DISK NR | WORD WORKER.C | PRG | Treasure Chest - Wolfgang Rauprich | 3 | 7 | DOWNLOAD FILE |
| HJ LPEDISK | WORD WORKER.C | PRG | Curtcool, Frank | 29 | 3 | DOWNLOAD FILE |
| TPUG JAN 84 C | WORD WORKER.C | PRG | DuncanTwain | 12 | 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 9B 12 DB 07 99 3A 99 |...";SD$......:.| 00000A70: 22 12 CC C9 CE C5 A0 D0 C5 D2 A0 D0 C1 C7 C5 20 |".............. | 00000A80: 92 20 20 35 30 22 3B 3A 85 22 9D 9D 9D 9D 22 3B |. 50";:."....";| 00000A90: 53 4B 3A 53 4B B2 36 36 AB 53 4B 00 C3 12 DC 07 |SK:SK.66.SK.....| 00000AA0: 54 31 24 B2 22 22 3A 58 B2 31 3A 4C 4C B2 4C 41 |T1$."":X.1:LL.LA| 00000AB0: 3A 54 24 B2 22 22 3A 54 32 24 B2 22 22 3A 50 24 |:T$."":T2$."":P$| 00000AC0: B2 22 22 00 DF 12 02 08 9F 34 2C 34 2C 37 3A 98 |.""......4,4,7:.| 00000AD0: 34 2C C7 28 32 37 29 22 CE 22 C7 28 53 4B 29 00 |4,.(27)".".(SK).| 00000AE0: F2 12 03 08 8B 41 24 28 58 29 B2 22 22 A7 32 36 |.....A$(X)."".26| 00000AF0: 36 30 00 00 13 0B 08 54 32 24 B2 41 24 28 58 29 |60.....T2$.A$(X)| 00000B00: 00 12 13 0C 08 81 41 B2 31 A4 4C 4C AB C3 28 50 |......A.1.LL..(P| 00000B10: 24 29 00 23 13 0D 08 8B 54 32 24 B2 22 22 A7 32 |$).#....T2$."".2| 00000B20: 30 39 34 00 47 13 11 08 58 24 B2 C8 28 54 32 24 |094.G...X$..(T2$| 00000B30: 2C 31 29 3A 54 32 24 B2 C9 28 54 32 24 2C C3 28 |,1):T2$..(T2$,.(| 00000B40: 54 32 24 29 AB 31 29 00 61 13 1B 08 8B 58 24 B2 |T2$).1).a....X$.| 00000B50: C7 28 39 31 29 A7 4C 4C B2 4C 42 3A 89 32 30 36 |.(91).LL.LB:.206| 00000B60: 30 00 74 13 1C 08 8B 58 24 B2 C7 28 39 33 29 A7 |0.t....X$..(93).| 00000B70: 32 30 36 30 00 9A 13 20 08 8F 20 2A 20 50 52 49 |2060... .. * PRI| 00000B80: 4E 54 45 52 20 46 55 4E 43 54 49 4F 4E 20 43 4F |NTER FUNCTION CO| 00000B90: 4E 56 45 52 53 49 4F 4E 20 2A 00 B2 13 21 08 8B |NVERSION *...!..| 00000BA0: 58 24 B2 C7 28 31 33 34 29 A7 58 24 B2 C7 28 31 |X$..(134).X$..(1| 00000BB0: 34 29 00 D5 13 22 08 8B 58 24 B2 C7 28 31 33 35 |4)..."..X$..(135| 00000BC0: 29 A7 58 24 B2 C7 28 32 37 29 AA C7 28 34 35 29 |).X$..(27)..(45)| 00000BD0: AA C7 28 31 29 00 F3 13 23 08 8B 58 24 B2 C7 28 |..(1)...#..X$..(| 00000BE0: 31 33 36 29 A7 58 24 B2 C7 28 32 37 29 AA C7 28 |136).X$..(27)..(| 00000BF0: 35 32 29 00 0B 14 24 08 8B 58 24 B2 C7 28 31 33 |52)...$..X$..(13| 00000C00: 37 29 A7 58 24 B2 C7 28 31 32 29 00 23 14 25 08 |7).X$..(12).#.%.| 00000C10: 8B 58 24 B2 C7 28 31 33 38 29 A7 58 24 B2 C7 28 |.X$..(138).X$..(| 00000C20: 31 35 29 00 46 14 26 08 8B 58 24 B2 C7 28 31 33 |15).F.&..X$..(13| 00000C30: 39 29 A7 58 24 B2 C7 28 32 37 29 AA C7 28 34 35 |9).X$..(27)..(45| 00000C40: 29 AA C7 28 30 29 00 64 14 27 08 8B 58 24 B2 C7 |)..(0).d.'..X$..| 00000C50: 28 31 34 30 29 A7 58 24 B2 C7 28 32 37 29 AA C7 |(140).X$..(27)..| 00000C60: 28 35 33 29 00 88 14 28 08 8F 20 2A 2A 2A 2A 2A |(53)...(.. *****| 00000C70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000C80: 2A 2A 2A 2A 2A 2A 2A 2A 00 9B 14 29 08 8B 58 24 |********...)..X$| 00000C90: B2 C7 28 31 33 29 A7 32 36 36 30 00 A8 14 2A 08 |..(13).2660...*.| 00000CA0: 50 24 B2 50 24 AA 58 24 00 C2 14 2E 08 8B C3 28 |P$.P$.X$.......(| 00000CB0: 54 32 24 29 B2 30 A7 58 B2 58 AA 31 3A 89 32 30 |T2$).0.X.X.1:.20| 00000CC0: 35 31 00 C9 14 2F 08 82 41 00 D3 14 34 08 89 32 |51.../..A...4..2| 00000CD0: 36 31 30 00 DF 14 98 08 81 41 B2 31 A4 4C 41 00 |610......A.1.LA.| 00000CE0: 03 15 A2 08 58 24 B2 C8 28 54 32 24 2C 31 29 3A |....X$..(T2$,1):| 00000CF0: 54 32 24 B2 C9 28 54 32 24 2C C3 28 54 32 24 29 |T2$..(T2$,.(T2$)| 00000D00: AB 31 29 00 21 15 A3 08 8B C3 28 54 32 24 29 B2 |.1).!.....(T2$).| 00000D10: 30 A7 58 B2 58 AA 31 3A 54 32 24 B2 41 24 28 4E |0.X.X.1:T2$.A$(N| 00000D20: 29 00 34 15 AC 08 8B 58 24 B2 C7 28 31 33 29 A7 |).4....X$..(13).| 00000D30: 32 33 30 30 00 41 15 B6 08 50 24 B2 50 24 AA 58 |2300.A...P$.P$.X| 00000D40: 24 00 48 15 C0 08 82 41 00 62 15 FC 08 49 4E B2 |$.H....A.b...IN.| 00000D50: 28 38 30 AB C3 28 50 24 29 29 AD 32 3A 89 32 36 |(80..(P$)).2:.26| 00000D60: 37 30 00 71 15 32 0A 81 41 B2 31 A4 C3 28 50 24 |70.q.2..A.1..(P$| 00000D70: 29 00 89 15 3C 0A 8B C9 28 50 24 2C 31 29 B2 C7 |)...<...(P$,1)..| 00000D80: 28 33 32 29 A7 32 36 36 30 00 AE 15 46 0A 54 31 |(32).2660...F.T1| 00000D90: 24 B2 C9 28 50 24 2C 31 29 AA 54 31 24 3A 50 24 |$..(P$,1).T1$:P$| 00000DA0: B2 C8 28 50 24 2C C3 28 50 24 29 AB 31 29 00 B5 |..(P$,.(P$).1)..| 00000DB0: 15 50 0A 82 41 00 D9 15 64 0A 8B C8 28 50 24 2C |.P..A...d...(P$,| 00000DC0: 31 29 B2 C7 28 33 32 29 A7 50 24 B2 C9 28 50 24 |1)..(32).P$..(P$| 00000DD0: 2C C3 28 50 24 29 AB 31 29 00 E1 15 66 0A 99 50 |,.(P$).1)...f..P| 00000DE0: 24 00 F2 15 69 0A 49 4E B2 28 38 30 AB 4C 4C 29 |$...i.IN.(80.LL)| 00000DF0: AD 32 00 19 16 6E 0A 98 34 2C C7 28 31 37 29 A6 |.2...n..4,.(17).| 00000E00: 49 4E 29 50 24 3A 50 24 B2 22 22 3A 50 24 B2 54 |IN)P$:P$."":P$.T| 00000E10: 31 24 3A 54 31 24 B2 22 22 00 2F 16 78 0A 8B 53 |1$:T1$.""./.x..S| 00000E20: 44 24 B2 22 44 22 A7 98 34 2C C7 28 31 30 29 00 |D$."D"..4,.(10).| 00000E30: 43 16 8C 0A 8B 58 24 B2 C7 28 31 33 29 A7 4C 4C |C....X$..(13).LL| 00000E40: B2 4C 41 00 6B 16 91 0A 8B C8 28 41 24 28 58 AB |.LA.k.....(A$(X.| 00000E50: 31 29 2C 31 29 B2 C7 28 37 29 A7 98 34 2C C7 28 |1),1)..(7)..4,.(| 00000E60: 31 32 29 3A 98 34 3A A0 34 3A 8E 00 75 16 96 0A |12):.4:.4:..u...| 00000E70: 89 32 30 36 30 00 C2 16 B7 0B 8F 20 2A 2A 2A 2A |.2060...... ****| 00000E80: 2A 2A 20 4C 4F 41 44 20 52 4F 55 54 49 4E 45 20 |** LOAD ROUTINE | 00000E90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000EA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000EB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000EC0: 2A 2A 00 D8 16 B8 0B 99 C7 28 31 34 37 29 3A 97 |**.......(147):.| 00000ED0: 32 31 34 2C 31 31 3A 99 00 FF 16 B9 0B 99 22 12 |214,11:.......".| 00000EE0: 20 C5 4E 54 45 52 20 44 4F 43 55 4D 45 4E 54 20 | .NTER DOCUMENT | 00000EF0: 4E 41 4D 45 2E 20 20 20 20 22 3A 85 4E 41 24 00 |NAME. ":.NA$.| 00000F00: 3D 17 C2 0B 99 22 12 20 C4 49 53 4B 20 4F 52 20 |=....". .ISK OR | 00000F10: D4 41 50 45 3F 20 20 20 20 20 20 28 44 2F 54 29 |.APE? (D/T)| 00000F20: 92 20 20 20 22 3A 85 22 20 20 44 9D 9D 9D 22 3B |. ":." D...";| 00000F30: 54 24 3A 54 24 B2 C8 28 54 24 2C 31 29 00 78 17 |T$:T$..(T$,1).x.| 00000F40: D1 0B 43 53 24 B2 22 22 3A 99 22 12 20 CF 4B 20 |..CS$."":.". .K | 00000F50: 54 4F 20 43 4C 45 41 52 20 4D 45 4D 4F 52 59 20 |TO CLEAR MEMORY | 00000F60: 28 59 2F 4E 29 92 20 20 20 22 3A 85 22 20 20 4E |(Y/N). ":." N| 00000F70: 9D 9D 9D 22 3B 43 53 24 00 98 17 D2 0B 43 53 24 |...";CS$.....CS$| 00000F80: B2 C8 28 43 53 24 2C 31 29 3A 8B 43 53 24 B2 22 |..(CS$,1):.CS$."| 00000F90: 59 22 A7 8D 35 30 30 30 00 A5 17 D3 0B 41 24 28 |Y"..5000.....A$(| 00000FA0: 58 29 B2 22 22 00 C2 17 D4 0B 8B 54 24 B2 22 54 |X).""......T$."T| 00000FB0: 22 A7 9F 38 2C 31 2C 30 2C 4E 41 24 3A 89 33 30 |"..8,1,0,NA$:.30| 00000FC0: 34 30 00 FD 17 D7 0B 9F 31 35 2C 38 2C 31 35 3A |40......15,8,15:| 00000FD0: 9F 38 2C 38 2C 38 2C 22 40 30 3A 22 AA 4E 41 24 |.8,8,8,"@0:".NA$| 00000FE0: AA 22 2C 53 2C 52 45 41 44 22 3A 8D 31 30 30 30 |.",S,READ":.1000| 00000FF0: 30 3A 8B 45 41 B1 32 30 A7 33 34 38 30 00 1F 18 |0:.EA.20.3480...| 00001000: E0 0B 99 22 12 20 D2 45 41 44 49 4E 47 20 46 49 |...". .EADING FI| 00001010: 4C 45 2E 20 20 20 20 20 20 20 20 20 20 20 22 00 |LE. ".| 00001020: 2B 18 EA 0B 81 41 B2 31 A4 33 35 00 36 18 EF 0B |+....A.1.35.6...| 00001030: A1 23 38 2C 43 24 00 46 18 F4 0B 8B 53 54 B3 B1 |.#8,C$.F....ST..| 00001040: 30 A7 33 34 38 30 00 6F 18 12 0C 8B 43 24 B2 C7 |0.3480.o....C$..| 00001050: 28 31 33 29 A7 41 24 28 58 29 B2 41 24 28 58 29 |(13).A$(X).A$(X)| 00001060: AA 43 24 3A 58 B2 58 AA 31 3A 89 33 30 35 30 00 |.C$:X.X.1:.3050.| 00001070: 82 18 26 0C 41 24 28 58 29 B2 41 24 28 58 29 AA |..&.A$(X).A$(X).| 00001080: 43 24 00 89 18 30 0C 82 41 00 95 18 35 0C 81 42 |C$...0..A...5..B| 00001090: B2 31 A4 34 35 00 A0 18 3A 0C A1 23 38 2C 43 24 |.1.45...:..#8,C$| 000010A0: 00 B0 18 3F 0C 8B 53 54 B3 B1 30 A7 33 34 38 30 |...?..ST..0.3480| 000010B0: 00 D9 18 44 0C 8B 43 24 B2 C7 28 31 33 29 A7 41 |...D..C$..(13).A| 000010C0: 24 28 58 29 B2 41 24 28 58 29 AA 43 24 3A 58 B2 |$(X).A$(X).C$:X.| 000010D0: 58 AA 31 3A 89 33 30 35 30 00 02 19 4E 0C 8B 43 |X.1:.3050...N..C| 000010E0: 24 B2 C7 28 33 32 29 A7 41 24 28 58 29 B2 41 24 |$..(32).A$(X).A$| 000010F0: 28 58 29 AA 43 24 3A 58 B2 58 AA 31 3A 89 33 30 |(X).C$:X.X.1:.30| 00001100: 35 30 00 15 19 53 0C 41 24 28 58 29 B2 41 24 28 |50...S.A$(X).A$(| 00001110: 58 29 AA 43 24 00 1C 19 58 0C 82 42 00 2C 19 62 |X).C$...X..B.,.b| 00001120: 0C 58 B2 58 AA 31 3A 89 33 30 35 30 00 37 19 98 |.X.X.1:.3050.7..| 00001130: 0D A0 38 3A A0 31 35 00 3D 19 AB 0D 8E 00 8A 19 |..8:.15.=.......| 00001140: 9F 0F 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 20 53 41 56 |... ******** SAV| 00001150: 45 20 52 4F 55 54 49 4E 45 20 2A 2A 2A 2A 2A 2A |E ROUTINE ******| 00001160: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00001170: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00001180: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 A4 19 A0 0F 99 |**********......| 00001190: C7 28 31 34 37 29 3A 97 32 31 34 2C 31 31 3A 99 |.(147):.214,11:.| 000011A0: 3A 58 B2 31 00 CB 19 A1 0F 99 22 12 20 C5 4E 54 |:X.1......". .NT| 000011B0: 45 52 20 44 4F 43 55 4D 45 4E 54 20 4E 41 4D 45 |ER DOCUMENT NAME| 000011C0: 2E 20 20 20 20 22 3A 85 4E 41 24 00 09 1A A5 0F |. ":.NA$.....| 000011D0: 99 22 12 20 C4 49 53 4B 20 4F 52 20 D4 41 50 45 |.". .ISK OR .APE| 000011E0: 3F 20 20 20 20 20 20 28 44 2F 54 29 92 20 20 20 |? (D/T). | 000011F0: 22 3A 85 22 20 20 44 9D 9D 9D 22 3B 54 24 3A 54 |":." D...";T$:T| 00001200: 24 B2 C8 28 54 24 2C 31 29 00 26 1A A6 0F 8B 54 |$..(T$,1).&....T| 00001210: 24 B2 22 54 22 A7 9F 37 2C 31 2C 31 2C 4E 41 24 |$."T"..7,1,1,NA$| 00001220: 3A 89 34 30 32 30 00 62 1A AA 0F 9F 31 35 2C 38 |:.4020.b....15,8| 00001230: 2C 31 35 3A 9F 37 2C 38 2C 37 2C 22 40 30 3A 22 |,15:.7,8,7,"@0:"| 00001240: AA 4E 41 24 AA 22 2C 53 2C 57 52 49 54 45 22 3A |.NA$.",S,WRITE":| 00001250: 8D 31 30 30 30 30 3A 8B 45 41 B1 32 30 A7 34 30 |.10000:.EA.20.40| 00001260: 36 30 00 77 1A B4 0F 99 20 22 12 20 D3 41 56 49 |60.w.... ". .AVI| 00001270: 4E 47 22 2C 4E 41 24 00 9B 1A C8 0F 8B C8 28 41 |NG",NA$.......(A| 00001280: 24 28 58 29 2C 31 29 B2 C7 28 37 29 A7 98 37 2C |$(X),1)..(7)..7,| 00001290: 41 24 28 58 29 3A 89 34 30 36 30 00 AF 1A D7 0F |A$(X):.4060.....| 000012A0: 98 37 2C 41 24 28 58 29 3B 3A 58 B2 58 AA 31 00 |.7,A$(X);:X.X.1.| 000012B0: B9 1A D9 0F 89 34 30 34 30 00 C4 1A DC 0F A0 37 |.....4040......7| 000012C0: 3A A0 31 35 00 CA 1A E6 0F 8E 00 17 1B 87 13 8F |:.15............| 000012D0: 20 2A 2A 2A 2A 2A 2A 2A 2A 20 43 4C 45 41 52 20 | ******** CLEAR | 000012E0: 41 52 52 41 59 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |ARRAY **********| 000012F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00001300: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00001310: 2A 2A 2A 2A 2A 2A 2A 00 44 1B 88 13 99 22 12 99 |*******.D...."..| 00001320: 20 C3 CC C5 C1 D2 C9 CE C7 A0 CD C5 CD CF D2 D9 | ...............| 00001330: 20 20 20 20 20 20 20 20 20 22 3A 81 58 B2 31 A4 | ":.X.1.| 00001340: 31 30 30 30 00 51 1B 92 13 41 24 28 58 29 B2 22 |1000.Q...A$(X)."| 00001350: 22 00 57 1B 9C 13 82 00 5F 1B 9F 13 58 B2 31 00 |".W....._...X.1.| 00001360: 65 1B A6 13 8E 00 B2 1B 6F 17 8F 20 2A 2A 2A 2A |e.......o.. ****| 00001370: 2A 2A 2A 2A 20 4C 49 53 54 20 54 4F 20 53 43 52 |**** LIST TO SCR| 00001380: 45 45 4E 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |EEN ************| 00001390: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000013A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000013B0: 2A 2A 00 BE 1B 70 17 51 B2 58 3A 58 B2 31 00 CA |**...p.Q.X:X.1..| 000013C0: 1B 75 17 99 C7 28 31 34 37 29 00 E9 1B 7F 17 8B |.u...(147)......| 000013D0: 41 24 28 58 29 B2 C7 28 37 29 B0 41 24 28 58 29 |A$(X)..(7).A$(X)| 000013E0: B2 22 22 A7 20 36 31 30 30 00 F5 1B 84 17 99 20 |."". 6100...... | 000013F0: 41 24 28 58 29 00 09 1C 89 17 8B C2 28 32 31 34 |A$(X).......(214| 00001400: 29 B1 32 31 A7 36 31 30 30 00 19 1C 8E 17 58 B2 |).21.6100.....X.| 00001410: 58 AA 31 3A 89 36 30 31 35 00 4A 1C D4 17 99 22 |X.1:.6015.J...."| 00001420: 12 20 20 20 20 20 20 20 20 C8 C9 D4 A0 C1 CE D9 |. .......| 00001430: A0 CB C5 D9 A0 D4 CF A0 C3 CF CE D4 C9 CE D5 C5 |................| 00001440: 20 20 20 20 20 20 20 20 20 22 00 5E 1C DE 17 A1 | ".^....| 00001450: 57 24 3A 8B 57 24 B2 22 22 A7 36 31 31 30 00 6F |W$:.W$."".6110.o| 00001460: 1C E1 17 8B 41 24 28 58 29 B2 22 22 A7 20 8E 00 |....A$(X)."". ..| 00001470: 85 1C E3 17 8B 41 24 28 58 29 B2 C7 28 37 29 A7 |.....A$(X)..(7).| 00001480: 58 B2 51 3A 8E 00 95 1C E8 17 58 B2 58 AA 31 3A |X.Q:......X.X.1:| 00001490: 89 36 30 30 35 00 E2 1C 57 1B 8F 20 2A 2A 2A 2A |.6005...W.. ****| 000014A0: 2A 2A 2A 2A 20 53 43 41 54 43 48 20 46 49 4C 45 |**** SCATCH FILE| 000014B0: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************| 000014C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000014D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000014E0: 2A 2A 00 F8 1C 58 1B 99 C7 28 31 34 37 29 3A 97 |**...X...(147):.| 000014F0: 32 31 34 2C 31 31 3A 99 00 06 1D 59 1B 9F 20 31 |214,11:....Y.. 1| 00001500: 35 2C 38 2C 31 35 00 2D 1D 5B 1B 99 22 12 20 C5 |5,8,15.-.[..". .| 00001510: 4E 54 45 52 20 46 49 4C 45 20 54 4F 20 44 45 4C |NTER FILE TO DEL| 00001520: 45 54 45 20 20 20 20 22 3A 85 4E 41 24 00 3F 1D |ETE ":.NA$.?.| 00001530: 5D 1B 98 31 35 2C 22 53 30 3A 22 AA 4E 41 24 00 |]..15,"S0:".NA$.| 00001540: 53 1D 62 1B 84 31 35 2C 41 24 2C 42 24 2C 43 24 |S.b..15,A$,B$,C$| 00001550: 2C 44 24 00 64 1D 6C 1B 99 41 24 2C 42 24 2C 43 |,D$.d.l..A$,B$,C| 00001560: 24 2C 44 24 00 6C 1D 76 1B A0 31 35 00 7E 1D 80 |$,D$.l.v..15.~..| 00001570: 1B 81 54 B2 31 A4 31 30 30 30 3A 82 3A 8E 00 CB |..T.1.1000:.:...| 00001580: 1D 3F 1F 8F 20 2A 2A 2A 2A 2A 2A 2A 20 45 44 49 |.?.. ******* EDI| 00001590: 54 20 52 55 4F 54 49 4E 45 20 2A 2A 2A 2A 2A 2A |T RUOTINE ******| 000015A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000015B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000015C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 F5 1D 40 1F |***********...@.| 000015D0: 99 22 93 22 3A 97 53 43 2C 39 3A 97 42 4F 2C 30 |.".":.SC,9:.BO,0| 000015E0: 3A 99 A6 31 33 29 22 12 9E C5 C4 C9 D4 20 CD CF |:..13)"...... ..| 000015F0: C4 C5 22 3A 99 00 0F 1E 45 1F 43 52 24 B2 22 22 |..":....E.CR$.""| 00001600: 3A 45 52 24 B2 22 22 3A 51 B2 58 3A 58 B2 31 00 |:ER$."":Q.X:X.1.| 00001610: 35 1E 4A 1F 99 22 9E D0 D2 C5 D3 D3 20 12 C6 2D |5.J.."...... ..-| 00001620: 31 92 20 3D 20 D2 45 54 55 52 4E 20 54 4F 20 4D |1. = .ETURN TO M| 00001630: 45 4E 55 2E 22 00 57 1E 4B 1F 99 22 20 20 20 20 |ENU.".W.K.." | 00001640: 20 20 12 C6 2D 32 92 20 3D 20 CD 4F 56 45 20 41 | ..-2. = .OVE A| 00001650: 20 4C 49 4E 45 2E 22 00 7A 1E 4C 1F 99 22 20 20 | LINE.".z.L.." | 00001660: 20 20 20 20 12 C6 2D 33 92 20 3D 20 D2 45 50 4C | ..-3. = .EPL| 00001670: 41 43 45 20 4C 49 4E 45 2E 22 00 A0 1E 4D 1F 99 |ACE LINE."...M..| 00001680: 22 20 20 20 20 20 20 12 C6 2D 35 92 20 3D 20 D3 |" ..-5. = .| 00001690: 45 41 52 43 48 20 42 41 43 4B 57 41 52 44 2E 22 |EARCH BACKWARD."| 000016A0: 00 C5 1E 50 1F 99 22 20 20 20 20 20 20 12 C6 2D |...P.." ..-| 000016B0: 37 92 20 3D 20 D3 45 41 52 43 48 20 46 4F 52 57 |7. = .EARCH FORW| 000016C0: 41 52 44 2E 22 00 E9 1E 54 1F 99 22 20 20 20 20 |ARD."...T.." | 000016D0: 20 20 12 C6 2D 38 92 20 3D 20 C7 4C 4F 42 41 4C | ..-8. = .LOBAL| 000016E0: 20 43 48 41 4E 47 45 2E 22 00 FD 1E 5A 1F 99 22 | CHANGE."...Z.."| 000016F0: 20 20 20 20 C3 48 4F 49 43 45 20 3F 22 00 17 1F | .HOICE ?"...| 00001700: 5E 1F A1 43 24 3A 8D 31 30 30 30 3A 8B 43 24 B2 |^..C$:.1000:.C$.| 00001710: 22 22 A7 38 30 33 30 00 24 1F 63 1F 8B 58 B3 31 |"".8030.$.c..X.1| 00001720: A7 58 B2 31 00 37 1F 64 1F 8B 58 B1 31 30 30 30 |.X.1.7.d..X.1000| 00001730: A7 58 B2 31 30 30 30 00 73 1F 68 1F 8B 43 24 B2 |.X.1000.s.h..C$.| 00001740: C7 28 31 33 36 29 A7 99 58 3B 22 20 9E 22 41 24 |.(136)..X;" ."A$| 00001750: 28 58 29 3A 58 B2 58 AA 31 3A 8B 58 B1 51 A7 58 |(X):X.X.1:.X.Q.X| 00001760: B2 51 3A 99 22 12 C5 CE C4 20 CF C6 20 C4 C1 D4 |.Q:.".... .. ...| 00001770: C1 92 22 00 95 1F 6D 1F 8B 43 24 B2 C7 28 31 33 |.."...m..C$..(13| 00001780: 35 29 A7 99 58 3B 22 20 9E 22 41 24 28 58 29 3A |5)..X;" ."A$(X):| 00001790: 58 B2 58 AB 31 00 BF 1F 72 1F 8B 43 24 B2 C7 28 |X.X.1...r..C$..(| 000017A0: 31 33 34 29 A7 85 22 12 C5 CE D4 C5 D2 A0 CC C9 |134)..".........| 000017B0: CE C5 A0 23 92 22 3B 4E 55 3A 89 38 33 36 32 00 |...#.";NU:.8362.| 000017C0: D4 1F 77 1F 8B 43 24 B2 C7 28 31 33 33 29 A7 58 |..w..C$..(133).X| 000017D0: B2 51 3A 8E 00 E9 1F 7C 1F 8B 43 24 B2 C7 28 31 |.Q:....|..C$..(1| 000017E0: 33 37 29 A7 20 38 31 30 30 00 FE 1F 7D 1F 8B 43 |37). 8100...}..C| 000017F0: 24 B2 C7 28 31 34 30 29 A7 20 38 32 30 30 00 08 |$..(140). 8200..| 00001800: 20 80 1F 89 38 30 33 30 00 30 20 A4 1F 85 22 12 | ...8030.0 ...".| 00001810: C5 CE D4 C5 D2 20 CC C9 CE C5 28 53 29 A0 23 A0 |..... ....(S).#.| 00001820: D4 CF A0 C2 C5 A0 CD CF D6 C5 C4 92 22 3B 4D 31 |............";M1| 00001830: 00 58 20 A6 1F 85 22 20 20 20 20 20 20 20 20 20 |.X ..." | 00001840: 20 20 20 20 20 20 20 20 20 DB 20 12 C1 CE CF D4 | . .....| 00001850: C8 C5 D2 92 22 3B 4D 32 00 92 20 A7 1F 8B C3 28 |....";M2.. ....(| 00001860: 41 24 28 4D 31 29 29 AA C3 28 41 24 28 4D 32 29 |A$(M1))..(A$(M2)| 00001870: 29 B1 38 30 A7 99 22 12 D3 D4 D2 C9 CE C7 A0 D4 |).80..".........| 00001880: CF A0 CC CF CE C7 92 22 3A 58 B2 31 3A 89 38 30 |.......":X.1:.80| 00001890: 31 30 00 CB 20 A8 1F 8B C9 28 41 24 28 4D 31 29 |10.. ....(A$(M1)| 000018A0: 2C 31 29 B2 C7 28 31 33 29 AF 4D 32 B1 30 A7 41 |,1)..(13).M2.0.A| 000018B0: 24 28 4D 31 29 B2 C8 28 41 24 28 4D 31 29 2C C3 |$(M1)..(A$(M1),.| 000018C0: 28 41 24 28 4D 31 29 29 AB 31 29 00 F3 20 AE 1F |(A$(M1)).1).. ..| 000018D0: 85 22 12 C5 CE D4 C5 D2 20 CC C9 CE C5 A0 23 A0 |."...... .....#.| 000018E0: D4 CF A0 C2 C5 A0 D2 C5 D0 CC C1 C3 C5 C4 92 22 |..............."| 000018F0: 3B 4D 33 00 2D 21 B8 1F 4A 47 24 B2 41 24 28 4D |;M3.-!..JG$.A$(M| 00001900: 31 29 AA C7 28 33 32 29 AA 41 24 28 4D 32 29 3A |1)..(32).A$(M2):| 00001910: 41 24 28 4D 33 29 B2 22 22 3A 41 24 28 4D 31 29 |A$(M3)."":A$(M1)| 00001920: B2 22 22 3A 41 24 28 4D 32 29 B2 22 22 00 3C 21 |."":A$(M2)."".<!| 00001930: BD 1F 41 24 28 4D 33 29 B2 4A 47 24 00 4A 21 D6 |..A$(M3).JG$.J!.| 00001940: 1F 58 B2 31 3A 89 38 30 31 30 00 6B 21 08 20 99 |.X.1:.8010.k!. .| 00001950: 22 12 9E C5 CE D4 C5 D2 20 D7 CF D2 C4 A0 D4 CF |"....... .......| 00001960: A0 C3 C8 C1 CE C7 C5 92 3A 90 22 00 77 21 12 20 |........:.".w!. | 00001970: 81 41 B2 31 A4 38 30 00 91 21 1C 20 A1 43 24 3A |.A.1.80..!. .C$:| 00001980: 8D 31 30 30 30 3A 8B 43 24 B2 22 22 A7 38 32 32 |.1000:.C$."".822| 00001990: 30 00 A4 21 21 20 8B 43 24 B2 C7 28 31 33 29 A7 |0..!! .C$..(13).| 000019A0: 38 32 35 30 00 CC 21 22 20 8B 43 24 B2 C7 28 32 |8250..!" .C$..(2| 000019B0: 30 29 A7 45 52 24 B2 C8 28 45 52 24 2C C3 28 45 |0).ER$..(ER$,.(E| 000019C0: 52 24 29 AB 31 29 3A 89 38 32 33 35 00 DB 21 26 |R$).1):.8235..!&| 000019D0: 20 45 52 24 B2 45 52 24 AA 43 24 00 E4 21 2B 20 | ER$.ER$.C$..!+ | 000019E0: 99 43 24 3B 00 EB 21 30 20 82 41 00 09 22 3A 20 |.C$;..!0 .A..": | 000019F0: 99 3A 99 22 12 9E C5 CE D4 C5 D2 20 C3 CF D2 D2 |.:."....... ....| 00001A00: C5 C3 D4 C9 CF CE 90 92 22 00 16 22 3F 20 4F B2 |........".."? O.| 00001A10: C3 28 45 52 24 29 00 22 22 44 20 81 41 B2 31 A4 |.(ER$).""D .A.1.| 00001A20: 38 30 00 36 22 4E 20 A1 4A 24 3A 8B 4A 24 B2 22 |80.6"N .J$:.J$."| 00001A30: 22 A7 38 32 37 30 00 49 22 58 20 8B 4A 24 B2 C7 |".8270.I"X .J$..| 00001A40: 28 31 33 29 A7 38 33 31 30 00 71 22 59 20 8B 4A |(13).8310.q"Y .J| 00001A50: 24 B2 C7 28 32 30 29 A7 43 52 24 B2 C8 28 43 52 |$..(20).CR$..(CR| 00001A60: 24 2C C3 28 43 52 24 29 AB 31 29 3A 89 38 32 39 |$,.(CR$).1):.829| 00001A70: 30 00 80 22 5D 20 43 52 24 B2 43 52 24 AA 4A 24 |0.."] CR$.CR$.J$| 00001A80: 00 89 22 62 20 99 4A 24 3B 00 90 22 6C 20 82 41 |.."b .J$;.."l .A| 00001A90: 00 A5 22 76 20 99 3A 99 22 12 9E D3 C5 C1 D2 C3 |.."v .:.".......| 00001AA0: C8 C9 CE C7 22 00 B3 22 80 20 81 41 B2 31 A4 31 |...."..". .A.1.1| 00001AB0: 30 30 30 00 C5 22 81 20 81 42 B2 31 A4 C3 28 41 |000..". .B.1..(A| 00001AC0: 24 28 41 29 29 00 DF 22 82 20 8B C8 28 41 24 28 |$(A))..". ..(A$(| 00001AD0: 41 29 2C 31 29 B2 C7 28 37 29 A7 38 33 34 38 00 |A),1)..(7).8348.| 00001AE0: 0C 23 89 20 8B CA 28 41 24 28 41 29 2C 42 2C 4F |.#. ..(A$(A),B,O| 00001AF0: 29 B2 45 52 24 A7 4F 4F B2 C3 28 41 24 28 41 29 |).ER$.OO..(A$(A)| 00001B00: 29 AB 42 AA 31 AB C3 28 45 52 24 29 00 32 23 8A |).B.1..(ER$).2#.| 00001B10: 20 8B CA 28 41 24 28 41 29 2C 42 2C 4F 29 B2 45 | ..(A$(A),B,O).E| 00001B20: 52 24 A7 57 43 24 B2 C9 28 41 24 28 41 29 2C 4F |R$.WC$..(A$(A),O| 00001B30: 4F 29 00 6B 23 94 20 8B CA 28 41 24 28 41 29 2C |O).k#. ..(A$(A),| 00001B40: 42 2C 4F 29 B2 45 52 24 A7 99 22 12 C6 CF D5 CE |B,O).ER$..".....| 00001B50: C4 92 22 C7 28 31 34 34 29 41 24 28 41 29 C7 28 |..".(144)A$(A).(| 00001B60: 31 35 38 29 3A 89 20 38 33 34 34 00 72 23 96 20 |158):. 8344.r#. | 00001B70: 82 42 00 79 23 97 20 82 41 00 93 23 98 20 85 22 |.B.y#. .A..#. ."| 00001B80: 12 C3 C8 C1 CE C7 C5 20 92 20 20 59 9D 9D 9D 22 |....... . Y..."| 00001B90: 3B 54 24 00 B5 23 99 20 8B 54 24 B3 B1 22 59 22 |;T$..#. .T$.."Y"| 00001BA0: A7 99 22 12 9E D3 C5 C1 D2 C3 C8 C9 CE C7 22 3A |.."...........":| 00001BB0: 89 38 33 34 32 00 F0 23 9A 20 41 24 28 41 29 B2 |.8342..#. A$(A).| 00001BC0: C8 28 41 24 28 41 29 2C 42 AB 31 29 AA 43 52 24 |.(A$(A),B.1).CR$| 00001BD0: AA 57 43 24 3A 99 41 24 28 41 29 3A 99 22 12 D3 |.WC$:.A$(A):."..| 00001BE0: C5 C1 D2 C3 C8 C9 CE C7 92 22 3A 89 38 33 34 32 |.........":.8342| 00001BF0: 00 26 24 9C 20 99 22 93 9E 12 D3 C5 C1 D2 C3 C8 |.&$. .".........| 00001C00: 20 C3 CF CD D0 CC C5 D4 C5 20 90 22 3A 99 3A 45 | ........ .":.:E| 00001C10: 52 24 B2 22 22 3A 43 52 24 B2 22 22 3A 58 B2 31 |R$."":CR$."":X.1| 00001C20: 3A 89 38 30 31 30 00 57 24 AA 20 58 B2 4E 55 3A |:.8010.W$. X.NU:| 00001C30: 45 B2 31 3A 4D 41 B2 38 30 3A 97 42 4F 2C 31 34 |E.1:MA.80:.BO,14| 00001C40: 3A 97 53 43 2C 30 3A 8D 35 31 30 3A 97 42 4F 2C |:.SC,0:.510:.BO,| 00001C50: 30 3A 97 53 43 2C 39 00 67 24 AD 20 58 B2 31 3A |0:.SC,9.g$. X.1:| 00001C60: 99 C7 28 31 34 37 29 00 71 24 B2 20 89 38 30 31 |..(147).q$. .801| 00001C70: 30 00 BE 24 0F 27 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |0..$.'. ********| 00001C80: 20 52 45 41 44 20 45 52 52 4F 52 20 43 48 41 4E | READ ERROR CHAN| 00001C90: 4E 45 4C 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |NEL ************| 00001CA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00001CB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 DC |**************..| 00001CC0: 24 10 27 84 31 35 2C 45 41 2C 45 42 24 2C 45 43 |$.'.15,EA,EB$,EC| 00001CD0: 2C 45 44 3A 8B 45 41 B3 32 30 A7 8E 00 E9 24 15 |,ED:.EA.20....$.| 00001CE0: 27 8B 45 41 B2 35 30 A7 8E 00 04 25 1A 27 99 22 |'.EA.50....%.'."| 00001CF0: 11 22 45 41 3B 22 12 22 45 42 24 22 92 22 2C 45 |."EA;"."EB$".",E| 00001D00: 43 3B 45 44 00 27 25 24 27 99 22 11 12 20 48 49 |C;ED.'%$'.".. HI| 00001D10: 54 20 41 4E 59 20 4B 45 59 20 54 4F 20 43 4F 4E |T ANY KEY TO CON| 00001D20: 54 49 4E 55 45 2E 22 00 3C 25 29 27 A1 57 24 3A |TINUE.".<%)'.W$:| 00001D30: 8B 57 24 B2 22 22 A7 31 30 30 32 35 00 42 25 2E |.W$."".10025.B%.| 00001D40: 27 8E 00 8E 25 F7 2A 8F 20 2A 2A 2A 2A 2A 2A 20 |'...%.*. ****** | 00001D50: 52 45 41 44 20 43 41 54 41 4C 4F 47 20 2A 2A 2A |READ CATALOG ***| 00001D60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00001D70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00001D80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 CC |**************..| 00001D90: 25 F8 2A 99 22 93 12 1E 20 20 20 20 20 20 20 20 |%.*."... | 00001DA0: 20 20 20 D2 C5 C1 C4 C9 CE C7 20 C3 C1 D4 C1 CC | ....... .....| 00001DB0: CF C7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. | 00001DC0: 9A 22 3A 9F 31 2C 38 2C 30 2C 22 24 00 E8 25 FD |.":.1,8,0,"$..%.| 00001DD0: 2A 81 4C B2 31 A4 31 30 30 3A 50 24 28 4C 29 B2 |*.L.1.100:P$(L).| 00001DE0: 22 22 3A 82 3A 47 B2 31 00 00 26 B6 2B A1 23 31 |"":.:G.1..&.+.#1| 00001DF0: 2C 42 24 3A 8B 53 54 B3 B1 30 A7 31 31 32 37 30 |,B$:.ST..0.11270| 00001E00: 00 15 26 C0 2B 8B 42 24 B3 B1 C7 28 33 34 29 A7 |..&.+.B$...(34).| 00001E10: 31 31 31 39 30 00 1F 26 CA 2B 50 24 B2 22 22 00 |11190..&.+P$."".| 00001E20: 45 26 D4 2B A1 23 31 2C 42 24 3A 8B 42 24 B3 B1 |E&.+.#1,B$:.B$..| 00001E30: C7 28 33 34 29 A7 50 24 B2 50 24 AA 42 24 3A 89 |.(34).P$.P$.B$:.| 00001E40: 31 31 32 32 30 00 60 26 DE 2B A1 23 31 2C 42 24 |11220.`&.+.#1,B$| 00001E50: 3A 8B 42 24 B2 C7 28 33 32 29 A7 31 31 32 33 30 |:.B$..(32).11230| 00001E60: 00 89 26 E8 2B 50 24 28 47 29 B2 50 24 3A 97 32 |..&.+P$(G).P$:.2| 00001E70: 31 34 2C 31 32 3A 99 3A 99 C7 28 31 38 29 C7 28 |14,12:.:..(18).(| 00001E80: 31 35 38 29 A3 31 38 29 47 00 A2 26 F2 2B A1 23 |158).18)G..&.+.#| 00001E90: 31 2C 42 24 3A 8B 42 24 B3 B1 22 22 A7 31 31 32 |1,B$:.B$.."".112| 00001EA0: 35 30 00 B9 26 FC 2B 8B 53 54 B2 30 A7 47 B2 47 |50..&.+.ST.0.G.G| 00001EB0: AA 31 3A 89 31 31 31 39 30 00 C0 26 06 2C A0 31 |.1:.11190..&.,.1| 00001EC0: 00 C9 26 1A 2C 4E B2 31 30 00 E6 26 24 2C 99 22 |..&.,N.10..&$,."| 00001ED0: 93 99 12 9E C4 C9 D3 CB A0 C3 CF CE D4 C5 CE D4 |................| 00001EE0: D3 20 81 22 3A 99 00 F5 26 38 2C 8B 4E B3 31 30 |. .":...&8,.N.10| 00001EF0: A7 4E B2 31 30 00 06 27 42 2C 8B 4E B1 31 30 30 |.N.10..'B,.N.100| 00001F00: A7 4E B2 31 30 30 00 27 27 4C 2C 81 4A B2 28 4E |.N.100.''L,.J.(N| 00001F10: AB 39 29 A4 4E 3A 8B 4A B2 31 A7 99 22 12 22 50 |.9).N:.J.1.."."P| 00001F20: 24 28 4A 29 3A 82 4A 00 32 27 4F 2C 99 50 24 28 |$(J):.J.2'O,.P$(| 00001F30: 4A 29 00 39 27 51 2C 82 4A 00 64 27 56 2C 99 C7 |J).9'Q,.J.d'V,..| 00001F40: 28 31 39 29 A3 31 38 29 22 12 1E 20 20 20 D0 D2 |(19).18)".. ..| 00001F50: C5 D3 D3 20 CF CE C5 20 C2 C5 CC CF D7 20 20 20 |... ... ..... | 00001F60: 20 22 3A 99 00 89 27 60 2C 99 A3 31 38 29 22 12 | ":...'`,..18)".| 00001F70: 99 C6 2D 31 9A 92 20 3D 20 D2 45 54 55 52 4E 20 |..-1.. = .ETURN | 00001F80: 54 4F 20 4D 45 4E 55 2E 22 00 A9 27 65 2C 99 A3 |TO MENU."..'e,..| 00001F90: 31 38 29 22 12 99 C6 2D 33 9A 92 20 3D 20 CC 4F |18)"...-3.. = .O| 00001FA0: 41 44 20 46 49 4C 45 2E 22 00 CD 27 6A 2C 99 A3 |AD FILE."..'j,..| 00001FB0: 31 38 29 22 12 99 C6 2D 35 9A 92 20 3D 20 D0 52 |18)"...-5.. = .R| 00001FC0: 45 56 49 4F 55 53 20 50 41 47 45 2E 22 00 EC 27 |EVIOUS PAGE."..'| 00001FD0: 74 2C 99 A3 31 38 29 22 12 99 C6 2D 37 9A 92 20 |t,..18)"...-7.. | 00001FE0: 3D 20 CE 45 58 54 20 50 41 47 45 22 00 0E 28 7E |= .EXT PAGE"..(~| 00001FF0: 2C 99 A3 31 38 29 22 12 99 C6 2D 38 9A 92 20 3D |,..18)"...-8.. =| 00002000: 20 C4 45 4C 45 54 45 20 46 49 4C 45 2E 22 00 2F | .ELETE FILE."./| 00002010: 28 88 2C 43 24 B2 22 22 3A A1 43 24 3A 8D 31 30 |(.,C$."":.C$:.10| 00002020: 30 30 3A 8B 43 24 B2 22 22 A7 31 31 34 30 30 00 |00:.C$."".11400.| 00002030: 4C 28 92 2C 8B 43 24 B2 C7 28 31 33 36 29 A7 4E |L(.,.C$..(136).N| 00002040: B2 4E AA 31 30 3A 89 31 31 33 30 30 00 69 28 9C |.N.10:.11300.i(.| 00002050: 2C 8B 43 24 B2 C7 28 31 33 35 29 A7 4E B2 4E AB |,.C$..(135).N.N.| 00002060: 31 30 3A 89 31 31 33 30 30 00 8F 28 A1 2C 8B 43 |10:.11300..(.,.C| 00002070: 24 B2 C7 28 31 34 30 29 A7 97 32 31 34 2C 31 31 |$..(140)..214,11| 00002080: 3A 99 3A 8D 37 30 30 31 3A 89 31 31 33 30 30 00 |:.:.7001:.11300.| 00002090: A0 28 A6 2C 8B 43 24 B2 C7 28 31 33 33 29 A7 8E |.(.,.C$..(133)..| 000020A0: 00 B6 28 B0 2C 8B 43 24 B2 C7 28 31 33 34 29 A7 |..(.,.C$..(134).| 000020B0: 89 31 31 35 30 30 00 C1 28 BA 2C 89 31 31 34 30 |.11500..(.,.1140| 000020C0: 30 00 F4 28 EC 2C 97 32 31 34 2C 31 31 3A 99 3A |0..(.,.214,11:.:| 000020D0: 99 22 12 99 20 C5 4E 54 45 52 20 46 49 4C 45 20 |.".. .NTER FILE | 000020E0: 4E 41 4D 45 20 20 20 20 20 20 20 20 20 9A 22 3A |NAME .":| 000020F0: 85 4E 41 24 00 FE 28 0A 2D 8D 33 30 32 35 00 04 |.NA$..(.-.3025..| 00002100: 29 1E 2D 8E 00 00 00 |).-.... |
....... 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$......:.".LINE P
ER PAGE . 50";:."....";SK:SK.66.SK.C...
T1$."":X.1:LL.LA:T$."":T2$."":P$."".....
.4,4,7:.4,G(27)"N"G(SK)......A$(X)."".26
60.....T2$.A$(X)......A.1.LL.C(P$).#....
T2$."".2094.G...X$.H(T2$,1):T2$.I(T2$,C(
T2$).1).A....X$.G(91).LL.LB:.2060.T....X
$.G(93).2060... .. * PRINTER FUNCTION CO
NVERSION *...!..X$.G(134).X$.G(14).U."..
X$.G(135).X$.G(27).G(45).G(1)...#..X$.G(
136).X$.G(27).G(52)...$..X$.G(137).X$.G(
12).#.%..X$.G(138).X$.G(15).F.&..X$.G(13
9).X$.G(27).G(45).G(0).D.'..X$.G(140).X$
.G(27).G(53)...(.. *********************
********...)..X$.G(13).2660...*.P$.P$.X$
.B....C(T2$).0.X.X.1:.2051.I./..A.S.4..2
610......A.1.LA.....X$.H(T2$,1):T2$.I(T2
$,C(T2$).1).!....C(T2$).0.X.X.1:T2$.A$(N
).4....X$.G(13).2300.A...P$.P$.X$.H....A
.B...IN.(80.C(P$)).2:.2670.Q.2..A.1.C(P$
)...<..I(P$,1).G(32).2660...F.T1$.I(P$,1
).T1$:P$.H(P$,C(P$).1)...P..A.Y.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$.T
1$:T1$.""./.X..SD$."D"..4,G(10).C....X$.
G(13).LL.LA.K....H(A$(X.1),1).G(7)..4,G(
12):.4: 4:..U....2060.B.... ****** LOAD
ROUTINE ********************************
******************.X....G(147):.214,11:.
......". ENTER DOCUMENT NAME. ":.NA$.
=.B..". DISK OR TAPE? (D/T). ":."
D...";T$:T$.H(T$,1).X.Q.CS$."":.". OK
TO CLEAR MEMORY (Y/N). ":." N...";CS$
...R.CS$.H(CS$,1):.CS$."Y"..5000...S.A$(
X)."".B.T..T$."T"..8,1,0,NA$:.3040...W..
15,8,15:.8,8,8,"@0:".NA$.",S,READ":.1000
0:.EA.20.3480......". READING FILE.
".+....A.1.35.6....#8,C$.F....ST..
0.3480.O....C$.G(13).A$(X).A$(X).C$:X.X.
1:.3050...&.A$(X).A$(X).C$...0..A...5..B
.1.45. .:..#8,C$...?..ST..0.3480.Y.D..C$
.G(13).A$(X).A$(X).C$:X.X.1:.3050...N..C
$.G(32).A$(X).A$(X).C$:X.X.1:.3050...S.A
$(X).A$(X).C$...X..B.,.B.X.X.1:.3050.7..
. 8: 15.=.......... ******** SAVE ROUTIN
E **************************************
**********... ..G(147):.214,11:.:X.1.K..
..". ENTER DOCUMENT NAME. ":.NA$.....
.". DISK OR TAPE? (D/T). ":." D.
..";T$:T$.H(T$,1).&....T$."T"..7,1,1,NA$
:.4020.B....15,8,15:.7,8,7,"@0:".NA$.",S
,WRITE":.10000:.EA.20.4060.W.... ". SAVI
NG",NA$...H..H(A$(X),1).G(7)..7,A$(X):.4
060...W..7,A$(X);:X.X.1...Y..4040.D... 7
: 15.J.......... ******** CLEAR ARRAY **
****************************************
*******.D....".. CLEARING MEMORY
":.X.1.1000.Q...A$(X)."".W....._...X.1.
E.......O.. ******** LIST TO SCREEN ****
****************************************
**...P.Q.X:X.1.J.U..G(147).....A$(X).G(
7).A$(X)."". 6100...... A$(X)......B(214
).21.6100.....X.X.1:.6015.J.T..".
HIT ANY KEY TO CONTINUE ".^....
W$:.W$."".6110.O....A$(X)."". .......A$(
X).G(7).X.Q:......X.X.1:.6005...W.. ****
**** SCATCH FILE ***********************
**************************...X..G(147):.
214,11:....Y.. 15,8,15.-.[..". ENTER FIL
E TO DELETE ":.NA$.?.]..15,"S0:".NA$.
S.B..15,A$,B$,C$,D$.D.L..A$,B$,C$,D$.L.V
. 15.~....T.1.1000:.:..K.?.. ******* EDI
T RUOTINE ******************************
*******************...@..".":.SC,9:.BO,0
:..13)"..EDIT MODE":....E.CR$."":ER$."":
Q.X:X.1.5.J..".PRESS .F-1. = RETURN TO M
ENU.".W.K.." .F-2. = MOVE A LINE.".
Z.L.." .F-3. = REPLACE LINE.". .M..
" .F-5. = SEARCH BACKWARD.".E.P.."
.F-7. = SEARCH FORWARD."...T.."
.F-8. = GLOBAL CHANGE."...Z.." CHOI
CE ?"...^..C$:.1000:.C$."".8030.$.C..X.1
.X.1.7.D..X.1000.X.1000.S.H..C$.G(136)..
X;" ."A$(X):X.X.1:.X.Q.X.Q:.".END OF DAT
A."...M..C$.G(135)..X;" ."A$(X):X.X.1...
R..C$.G(134)..".ENTER LINE #.";NU:.8362.
T.W..C$.G(133).X.Q:....|..C$.G(137). 810
0...}..C$.G(140). 8200.. ...8030.0 ...".
ENTER LINE(S) # TO BE MOVED.";M1.X ..."
. .ANOTHER.";M2.. ...C(
A$(M1)).C(A$(M2)).80..".STRING TO LONG."
:X.1:.8010.K ...I(A$(M1),1).G(13).M2.0.A
$(M1).H(A$(M1),C(A$(M1)).1).. ...".ENTER
LINE # TO BE REPLACED.";M3.-!..JG$.A$(M
1).G(32).A$(M2):A$(M3)."":A$(M1)."":A$(M
2)."".<!..A$(M3).JG$.J!V.X.1:.8010.K!. .
"..ENTER WORD TO CHANGE.:.".W!. .A.1.80.
.!. .C$:.1000:.C$."".8220..!! .C$.G(13).
8250.L!" .C$.G(20).ER$.H(ER$,C(ER$).1):.
8235..!& ER$.ER$.C$..!+ .C$;..!0 .A..":
.:."..ENTER CORRECTION..".."? O.C(ER$)."
"D .A.1.80.6"N .J$:.J$."".8270.I"X .J$.G
(13).8310.Q"Y .J$.G(20).CR$.H(CR$,C(CR$)
.1):.8290.."] CR$.CR$.J$.."B .J$;.."L .A
.."V .:."..SEARCHING"..". .A.1.1000.E".
.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$).2#. .J(A$(A),B,O).ER$.WC$.I(A$(A),O
O).K#. .J(A$(A),B,O).ER$..".FOUND."G(144
)A$(A)G(158):. 8344.R#. .B.Y#. .A..#. ."
.CHANGE . Y...";T$..#. .T$.."Y".."..SEA
RCHING":.8342..#. A$(A).H(A$(A),B.1).CR$
.WC$:.A$(A):.".SEARCHING.":.8342.&$. .".
..SEARCH COMPLETE .":.:ER$."":CR$."":X.1
:.8010.W$. X.NU:E.1:MA.80:.BO,14:.SC,0:.
510:.BO,0:.SC,9.G$. X.1:.G(147).Q$. .801
0..$.'. ******** READ ERROR CHANNEL ****
**************************************..
$.'.15,EA,EB$,EC,ED:.EA.20....$.'.EA.50.
...%.'."."EA;"."EB$".",EC;ED.'%$'.".. HI
T ANY KEY TO CONTINUE.".<%)'.W$:.W$."".1
0025.B%.'...%.*. ****** READ CATALOG ***
****************************************
******.L%.*."... READING CATAL
OG .":.1,8,0,"$..%.*.L.1.10
0:P$(L)."":.:G.1..&.+.#1,B$:.ST..0.11270
..&.+.B$..G(34).11190..&J+P$."".E&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..&.+.#1,B$:.B$.."".112
50..&.+.ST.0.G.G.1:.11190..&., 1.I&.,N.1
0..&$,."....DISK CONTENTS .":...&8,.N.10
.N.10..'B,.N.100.N.100.''L,.J.(N.9).N:.J
.1.."."P$(J):.J.2'O,.P$(J).9'Q,.J.D'V,.G
(19).18)".. PRESS ONE BELOW ":...'`
,..18)"..F-1.. = RETURN TO MENU."..'E,..
18)"..F-3.. = LOAD FILE.".M'J,..18)"..F-
5.. = PREVIOUS PAGE."..'T,..18)"..F-7..
= NEXT PAGE"..(~,..18)"..F-8.. = DELETE
FILE."./(.,C$."":.C$:.1000:.C$."".11400.
L(.,.C$.G(136).N.N.10:.11300.I(.,.C$.G(1
35).N.N.10:.11300..(.,.C$.G(140)..214,11
:.:.7001:.11300. (.,.C$.G(133)....(.,.C$
.G(134)..11500.A(.,.11400..(.,.214,11:.:
.".. ENTER FILE NAME .":.NA$..(.
-.3025..).-....
> CLICK IMAGE PREVIEW FOR FULL MODAL