THE WORD MACHINE
FILE INFORMATION
FILENAME(S): THE WORD MACHINE
FILE TYPE(S): PRG
FILE SIZE: 8.9K
FIRST SEEN: 2025-11-30 18:12:50
APPEARS ON: 1 disk(s)
FILE HASH
a896ba3b882bd081661b0ff553ebd45e1cde96bbff3d16eb2c35d3304e416f2a
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| UTILITIES | THE WORD MACHINE | PRG | Sailor, Ganheden | 14 | 10 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 3B 08 0A 00 89 39 30 30 30 3A 8F 20 28 43 |..;....9000:. (C|
00000010: 29 20 31 39 38 32 20 42 59 20 43 4F 4D 4D 4F 44 |) 1982 BY COMMOD|
00000020: 4F 52 45 20 42 55 53 49 4E 45 53 53 20 4D 41 43 |ORE BUSINESS MAC|
00000030: 48 49 4E 45 53 2C 20 49 4E 43 2E 00 4A 08 14 00 |HINES, INC..J...|
00000040: A1 43 24 3A 8B 43 24 89 32 30 00 67 08 19 00 A1 |.C$:.C$.20.g....|
00000050: 43 24 3A 8B 43 24 A7 99 22 20 9D 22 3B 3A 43 B2 |C$:.C$.." .";:C.|
00000060: C6 28 43 24 29 3A 8E 00 76 08 1B 00 99 22 A4 9D |.(C$):..v...."..|
00000070: 22 3B 3A 89 32 35 00 88 08 1E 00 A1 43 24 3A 8B |";:.25......C$:.|
00000080: 43 24 B2 22 22 89 33 30 00 BD 08 20 00 58 B2 C6 |C$."".30... .X..|
00000090: 28 43 24 29 3A 43 B2 58 AF 31 32 37 3A 8B 43 B2 |(C$):C.X.127:.C.|
000000A0: 31 33 B0 43 B2 31 37 B0 43 B2 31 39 B0 43 B2 32 |13.C.17.C.19.C.2|
000000B0: 30 B0 43 B2 32 39 B0 43 B1 33 31 A7 8E 00 C5 08 |0.C.29.C.31.....|
000000C0: 22 00 89 33 30 00 CF 08 28 00 58 24 B2 22 22 00 |"..30...(.X$."".|
000000D0: ED 08 2A 00 A1 23 31 2C 43 24 3A 8B 43 24 B2 52 |..*..#1,C$:.C$.R|
000000E0: 24 B0 43 24 B2 C7 28 31 34 31 29 A7 8E 00 FE 08 |$.C$..(141).....|
000000F0: 2C 00 58 24 B2 58 24 AA 43 24 3A 89 34 32 00 17 |,.X$.X$.C$:.42..|
00000100: 09 64 00 4C B2 30 3A 4C 4C B2 4C 30 3A A0 31 3A |.d.L.0:LL.L0:.1:|
00000110: 8F 20 45 4E 54 52 59 00 40 09 6E 00 99 22 93 20 |. ENTRY.@.n..". |
00000120: 20 20 20 20 20 12 20 C3 4F 4D 4D 4F 44 4F 52 45 | . .OMMODORE|
00000130: 20 D7 CF D2 C4 A0 CD C1 C3 C8 C9 CE C5 20 11 11 | ............ ..|
00000140: 00 64 09 78 00 99 22 CF 50 54 49 4F 4E 53 3A 20 |.d.x..".PTIONS: |
00000150: 20 12 C3 92 52 45 41 54 45 20 41 20 44 4F 43 55 | ...REATE A DOCU|
00000160: 4D 45 4E 54 00 7D 09 82 00 99 2C 22 12 D3 92 41 |MENT.}....,"...A|
00000170: 56 45 20 41 20 44 4F 43 55 4D 45 4E 54 00 98 09 |VE A DOCUMENT...|
00000180: 87 00 99 2C 22 12 D2 92 45 43 41 4C 4C 20 41 20 |...,"...ECALL A |
00000190: 44 4F 43 55 4D 45 4E 54 00 B5 09 8C 00 99 2C 22 |DOCUMENT......,"|
000001A0: 12 D0 92 52 49 4E 54 20 59 4F 55 52 20 44 4F 43 |...RINT YOUR DOC|
000001B0: 55 4D 45 4E 54 00 D0 09 96 00 99 2C 22 12 C5 92 |UMENT......,"...|
000001C0: 44 49 54 20 54 48 45 20 44 4F 43 55 4D 45 4E 54 |DIT THE DOCUMENT|
000001D0: 00 F3 09 A0 00 99 2C 22 12 C7 92 4C 4F 42 41 4C |......,"...LOBAL|
000001E0: 20 53 45 41 52 43 48 20 41 4E 44 20 52 45 50 4C | SEARCH AND REPL|
000001F0: 41 43 45 00 11 0A A5 00 99 2C 22 12 C4 92 49 53 |ACE......,"...IS|
00000200: 50 4C 41 59 20 54 48 45 20 44 4F 43 55 4D 45 4E |PLAY THE DOCUMEN|
00000210: 54 00 31 0A AA 00 99 2C 22 12 C6 92 4F 52 4D 20 |T.1....,"...ORM |
00000220: 4C 45 54 54 45 52 20 50 52 4F 43 45 53 53 49 4E |LETTER PROCESSIN|
00000230: 47 00 4B 0A B9 00 99 2C 22 12 D1 92 55 49 54 20 |G.K....,"...UIT |
00000240: 54 48 45 20 50 52 4F 47 52 41 4D 00 7D 0A BE 00 |THE PROGRAM.}...|
00000250: 58 24 B2 22 51 44 45 47 50 53 46 52 43 22 3A 99 |X$."QDEGPSFRC":.|
00000260: 22 11 D7 48 49 43 48 20 4F 4E 45 22 3B 3A 8D 38 |"..HICH ONE";:.8|
00000270: 30 36 30 3A 8B 49 B2 30 89 38 37 30 30 00 8E 0A |060:.I.0.8700...|
00000280: C3 00 4A B2 49 3A 8B 4A B3 34 89 32 35 30 00 A5 |..J.I:.J.4.250..|
00000290: 0A C8 00 99 22 93 22 3A 8F 20 47 45 54 20 53 55 |....".":. GET SU|
000002A0: 42 4A 45 43 54 00 E7 0A D2 00 8B 48 24 B1 22 22 |BJECT......H$.""|
000002B0: A7 99 22 C4 4F 43 55 4D 45 4E 54 3A 20 12 22 48 |..".OCUMENT: ."H|
000002C0: 24 3A 99 22 11 28 D2 C5 D4 D5 D2 CE 20 4C 45 41 |$:.".(...... LEA|
000002D0: 56 45 53 20 54 48 45 20 4E 41 4D 45 20 55 4E 43 |VES THE NAME UNC|
000002E0: 48 41 4E 47 45 44 29 00 14 0B DC 00 4D B2 36 31 |HANGED).....M.61|
000002F0: 3A 99 22 11 C4 4F 43 55 4D 45 4E 54 20 4E 41 4D |:."..OCUMENT NAM|
00000300: 45 3A 22 3A 8D 38 32 30 30 3A 8B 43 B3 B1 31 33 |E:":.8200:.C..13|
00000310: 89 32 30 30 00 27 0B E6 00 99 3A 8B 58 24 B1 22 |.200.'....:.X$."|
00000320: 22 A7 48 24 B2 58 24 00 36 0B F0 00 8B 48 24 B2 |".H$.X$.6....H$.|
00000330: 22 22 89 32 30 30 00 6D 0B FA 00 8B 4A B3 37 AF |"".200.m....J.7.|
00000340: 54 24 28 30 29 B2 22 22 A7 99 22 11 CE 4F 20 44 |T$(0)."".."..O D|
00000350: 4F 43 55 4D 45 4E 54 20 49 4E 20 4D 45 4D 4F 52 |OCUMENT IN MEMOR|
00000360: 59 22 3A 8D 38 30 30 30 3A 89 31 30 30 00 88 0B |Y":.8000:.100...|
00000370: 04 01 8B 4F 46 B2 30 B0 4A B3 37 B0 54 24 28 30 |...OF.0.J.7.T$(0|
00000380: 29 B2 22 22 89 32 38 30 00 C2 0B 0E 01 99 22 11 |)."".280......".|
00000390: C4 4F 43 55 4D 45 4E 54 20 4E 4F 54 20 53 41 56 |.OCUMENT NOT SAV|
000003A0: 45 44 20 2E 2E 2E 20 43 4C 45 41 52 20 4D 45 4D |ED ... CLEAR MEM|
000003B0: 4F 52 59 22 3B 3A 8D 38 30 35 30 3A 8B 49 89 31 |ORY";:.8050:.I.1|
000003C0: 30 30 00 EF 0B 18 01 91 4A 89 34 30 30 2C 31 30 |00......J.400,10|
000003D0: 30 30 2C 36 30 30 30 2C 37 30 30 30 2C 33 30 30 |00,6000,7000,300|
000003E0: 30 2C 34 30 30 30 2C 32 30 30 30 2C 35 30 30 00 |0,4000,2000,500.|
000003F0: 04 0C 90 01 8F 20 52 45 41 44 20 54 4F 20 53 43 |..... READ TO SC|
00000400: 52 45 45 4E 00 2E 0C 9A 01 4E B2 33 39 3A 46 B2 |REEN.....N.39:F.|
00000410: 30 3A 4C 4C B2 32 30 3A 54 42 24 B2 22 22 3A 9F |0:LL.20:TB$."":.|
00000420: 31 2C 33 3A 8D 37 30 38 30 3A 89 31 30 30 00 4C |1,3:.7080:.100.L|
00000430: 0C F4 01 4F 46 B2 31 3A 54 B2 30 3A 8F 20 57 52 |...OF.1:T.0:. WR|
00000440: 49 54 45 20 4E 45 57 20 54 45 58 54 00 85 0C F9 |ITE NEW TEXT....|
00000450: 01 99 22 93 12 22 48 24 3A 99 3A 99 22 A4 A4 A4 |..".."H$:.:."...|
00000460: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00000470: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00000480: A4 A4 A4 A4 A4 00 95 0C FE 01 A1 43 24 3A 8B 43 |...........C$:.C|
00000490: 24 89 35 31 30 00 B4 0C 08 02 4D B2 4D 30 3A 81 |$.510.....M.M0:.|
000004A0: 49 B2 54 A4 56 3A 54 24 28 49 29 B2 22 22 3A 58 |I.T.V:T$(I)."":X|
000004B0: 24 B2 22 22 00 D1 0C 12 02 8D 38 32 32 30 3A 8B |$.""......8220:.|
000004C0: 43 B2 31 33 A7 99 3A 8B 58 24 B2 22 22 89 35 33 |C.13..:.X$."".53|
000004D0: 30 00 E7 0C 1C 02 54 24 28 49 29 B2 58 24 3A 8B |0.....T$(I).X$:.|
000004E0: 43 B3 B1 39 32 A7 82 00 04 0D 26 02 8B 49 B3 56 |C..92.....&..I.V|
000004F0: A7 81 49 B2 49 AA 31 A4 56 3A 54 24 28 49 29 B2 |..I.I.1.V:T$(I).|
00000500: 22 22 3A 82 00 2F 0D 58 02 54 B2 30 3A 4C 24 B2 |"":../.X.T.0:L$.|
00000510: 22 22 3A 8D 36 31 30 3A 89 31 30 30 3A 8F 20 50 |"":.610:.100:. P|
00000520: 41 43 4B 20 54 48 45 20 53 54 52 49 4E 47 53 00 |ACK THE STRINGS.|
00000530: 4A 0D 62 02 99 3A 81 49 B2 54 A4 56 3A 8B 54 24 |J.b..:.I.T.V:.T$|
00000540: 28 49 29 B2 22 22 89 36 33 30 00 70 0D 67 02 58 |(I)."".630.p.g.X|
00000550: 24 B2 54 24 28 49 29 3A 4D B2 4D 30 AB C3 28 4C |$.T$(I):M.M0..(L|
00000560: 24 29 3A 4C 24 B2 4C 24 AA C8 28 58 24 2C 4D 29 |$):L$.L$..(X$,M)|
00000570: 00 A6 0D 6C 02 58 24 B2 CA 28 58 24 2C 4D AA 31 |...l.X$..(X$,M.1|
00000580: 29 3A 8B C3 28 4C 24 29 B2 4D 30 A7 54 24 28 54 |):..(L$).M0.T$(T|
00000590: 29 B2 4C 24 3A 99 22 2A 22 3B 3A 4C 24 B2 58 24 |).L$:."*";:L$.X$|
000005A0: 3A 54 B2 54 AA 31 00 AC 0D 76 02 82 00 D4 0D 8A |:T.T.1...v......|
000005B0: 02 99 3A 54 24 28 54 29 B2 4C 24 3A 8B 54 B3 56 |..:T$(T).L$:.T.V|
000005C0: A7 81 49 B2 54 AA 31 A4 56 3A 54 24 28 49 29 B2 |..I.T.1.V:T$(I).|
000005D0: 22 22 3A 82 00 DA 0D 94 02 8E 00 EE 0D E8 03 8F |"":.............|
000005E0: 20 45 44 49 54 20 54 48 45 20 54 45 58 54 00 32 | EDIT THE TEXT.2|
000005F0: 0E F2 03 85 22 93 D7 48 41 54 20 25 20 49 4E 54 |...."..HAT % INT|
00000600: 4F 20 54 48 45 20 44 4F 43 55 4D 45 4E 54 20 28 |O THE DOCUMENT (|
00000610: 30 2D 31 30 30 29 20 20 30 9D 9D 9D 22 3B 54 3A |0-100) 0...";T:|
00000620: 54 B2 B6 28 54 29 3A 8B 54 B1 39 39 A7 54 B2 31 |T..(T):.T.99.T.1|
00000630: 30 30 00 4E 0E FC 03 4F 46 B2 31 3A 81 49 B2 30 |00.N...OF.1:.I.0|
00000640: A4 56 3A 8B 54 24 28 49 29 B1 22 22 A7 82 00 68 |.V:.T$(I).""...h|
00000650: 0E 06 04 49 B2 49 AB 31 3A 54 B2 B5 28 54 AC 49 |...I.I.1:T..(T.I|
00000660: AD 31 30 30 AA 2E 35 29 00 79 0E 10 04 4C B2 30 |.100..5).y...L.0|
00000670: 3A 8B 54 B1 56 89 31 30 30 00 92 0E 1A 04 58 24 |:.T.V.100.....X$|
00000680: B2 54 24 28 54 29 3A 8B 58 24 B2 22 22 89 31 39 |.T$(T):.X$."".19|
00000690: 30 30 00 B0 0E 24 04 50 24 B2 C8 28 48 24 2C 32 |00...$.P$..(H$,2|
000006A0: 30 29 3A 8B 54 A7 50 24 B2 54 24 28 54 AB 31 29 |0):.T.P$.T$(T.1)|
000006B0: 00 D4 0E 2E 04 99 22 93 12 22 C9 28 50 24 2C 32 |......"..".(P$,2|
000006C0: 30 29 3A 99 22 13 22 A6 32 39 29 22 92 C2 4C 4F |0):.".".29)"..LO|
000006D0: 43 4B 22 54 00 09 0F 38 04 99 22 11 11 11 11 11 |CK"T...8..".....|
000006E0: 11 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
000006F0: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00000700: A4 A4 A4 A4 A4 A4 A4 A4 A4 00 1A 0F 42 04 A1 43 |............B..C|
00000710: 24 3A 8B 43 24 89 31 30 39 30 00 33 0F 4C 04 8F |$:.C$.1090.3.L..|
00000720: 20 26 20 53 45 54 20 43 55 52 53 4F 52 20 28 41 | & SET CURSOR (A|
00000730: 2C 44 29 00 5F 0F 56 04 99 22 13 11 11 22 C8 28 |,D)._.V.."...".(|
00000740: 58 24 2C 4C 29 3A 99 22 13 11 11 22 A6 4C 29 22 |X$,L):."...".L)"|
00000750: 20 9D 12 22 CA 28 58 24 2C 4C AA 31 2C 31 29 00 | ..".(X$,L.1,1).|
00000760: 8B 0F 6A 04 99 22 13 11 11 22 A6 4C AA 31 29 CA |..j.."...".L.1).|
00000770: 28 58 24 2C 4C AA 32 29 C8 28 42 24 2C 4D 30 AB |(X$,L.2).(B$,M0.|
00000780: C3 28 58 24 29 29 3A 99 22 11 11 00 AD 0F B0 04 |.(X$)):.".......|
00000790: 8D 33 30 3A 8B 58 B2 39 32 A7 54 24 28 54 29 B2 |.30:.X.92.T$(T).|
000007A0: 58 24 3A 89 36 30 30 3A 8F 20 45 4E 44 00 DC 0F |X$:.600:. END...|
000007B0: BA 04 8B 58 B2 32 39 A7 4C B2 4C AB 28 4C AA 31 |...X.29.L.L.(L.1|
000007C0: B3 C3 28 58 24 29 29 3A 89 31 31 30 30 3A 8F 20 |..(X$)):.1100:. |
000007D0: 43 55 52 53 4F 52 20 52 49 47 48 54 00 04 10 C4 |CURSOR RIGHT....|
000007E0: 04 8B 43 B2 32 39 A7 4C B2 4C AA 28 4C B1 30 29 |..C.29.L.L.(L.0)|
000007F0: 3A 89 31 31 30 30 3A 8F 20 43 55 52 53 4F 52 20 |:.1100:. CURSOR |
00000800: 4C 45 46 54 00 36 10 CE 04 8B 58 B2 31 37 A7 4C |LEFT.6....X.17.L|
00000810: B2 4C AB 34 30 AC 28 4C AA 34 30 B3 C3 28 58 24 |.L.40.(L.40..(X$|
00000820: 29 29 3A 89 31 31 30 30 3A 8F 20 43 55 52 53 4F |)):.1100:. CURSO|
00000830: 52 20 44 4F 57 4E 00 60 10 D8 04 8B 43 B2 31 37 |R DOWN.`....C.17|
00000840: A7 4C B2 4C AA 34 30 AC 28 4C B1 33 39 29 3A 89 |.L.L.40.(L.39):.|
00000850: 31 31 30 30 3A 8F 20 43 55 52 53 4F 52 20 55 50 |1100:. CURSOR UP|
00000860: 00 82 10 E2 04 8B 58 B2 31 39 A7 4C B2 30 3A 89 |......X.19.L.0:.|
00000870: 31 31 30 30 3A 8F 20 43 55 52 53 4F 52 20 48 4F |1100:. CURSOR HO|
00000880: 4D 45 00 BC 10 EC 04 8B 43 B2 31 39 A7 81 49 B2 |ME......C.19..I.|
00000890: 54 A4 56 AB 31 3A 54 24 28 49 29 B2 54 24 28 49 |T.V.1:T$(I).T$(I|
000008A0: AA 31 29 3A 82 3A 54 24 28 56 29 B2 22 22 3A 89 |.1):.:T$(V)."":.|
000008B0: 31 30 34 30 3A 8F 20 43 4C 45 41 52 00 E8 10 F6 |1040:. CLEAR....|
000008C0: 04 8B 58 B2 31 33 A7 54 24 28 54 29 B2 58 24 3A |..X.13.T$(T).X$:|
000008D0: 54 B2 54 AA 31 3A 89 31 30 34 30 3A 8F 20 4E 45 |T.T.1:.1040:. NE|
000008E0: 58 54 20 42 4C 4F 43 4B 00 19 11 00 05 8B 43 B2 |XT BLOCK......C.|
000008F0: 31 33 A7 54 24 28 54 29 B2 58 24 3A 54 B2 54 AA |13.T$(T).X$:T.T.|
00000900: 28 54 B1 30 29 3A 89 31 30 34 30 3A 8F 20 50 52 |(T.0):.1040:. PR|
00000910: 49 4F 52 20 42 4C 4F 43 4B 00 2C 11 0A 05 8B 4C |IOR BLOCK.,....L|
00000920: B1 B2 C3 28 58 24 29 89 31 31 30 30 00 50 11 14 |...(X$).1100.P..|
00000930: 05 4C 24 B2 C8 28 58 24 2C 4C 29 3A 8B 58 B2 31 |.L$..(X$,L):.X.1|
00000940: 34 38 89 31 33 35 30 3A 8F 20 49 4E 53 45 52 54 |48.1350:. INSERT|
00000950: 00 93 11 1E 05 4D 24 B2 CA 28 58 24 2C 4C AA 32 |.....M$..(X$,L.2|
00000960: 29 3A 8B 43 B3 B1 32 30 A7 58 24 B2 4C 24 AA 43 |):.C..20.X$.L$.C|
00000970: 24 AA 4D 24 3A 58 B2 32 39 3A 89 31 32 31 30 3A |$.M$:X.29:.1210:|
00000980: 8F 20 52 45 50 4C 41 43 45 20 43 48 41 52 41 43 |. REPLACE CHARAC|
00000990: 54 45 52 00 BF 11 32 05 58 24 B2 4C 24 AA 4D 24 |TER...2.X$.L$.M$|
000009A0: 3A 8B 58 24 B2 22 22 A7 43 B2 31 39 3A 89 31 32 |:.X$."".C.19:.12|
000009B0: 36 30 3A 8F 20 4E 55 4C 4C 20 42 4C 4F 43 4B 00 |60:. NULL BLOCK.|
000009C0: C9 11 3C 05 89 31 31 30 30 00 FA 11 46 05 4D 24 |..<..1100...F.M$|
000009D0: B2 CA 28 58 24 2C 4C AA 31 29 3A 99 22 93 11 11 |..(X$,L.1):."...|
000009E0: 11 11 11 11 11 11 11 11 11 11 11 11 11 12 22 4D |.............."M|
000009F0: 24 3A 99 22 13 11 11 22 4C 24 00 18 12 4B 05 99 |$:."..."L$...K..|
00000A00: 22 13 11 11 22 A3 C3 28 4C 24 29 29 3B 3A 4D B2 |"..."..(L$));:M.|
00000A10: 4D 30 3A 8D 38 32 30 30 00 45 12 50 05 4D B2 4D |M0:.8200.E.P.M.M|
00000A20: 30 AB C3 28 4C 24 29 3A 4C 24 B2 4C 24 AA C8 28 |0..(L$):L$.L$..(|
00000A30: 58 24 2C 4D 29 3A 4D 24 B2 CA 28 58 24 2C 4D AA |X$,M):M$..(X$,M.|
00000A40: 31 29 AA 4D 24 00 84 12 5A 05 4D B2 4D 30 AB C3 |1).M$...Z.M.M0..|
00000A50: 28 4C 24 29 3A 54 24 28 54 29 B2 4C 24 AA C8 28 |(L$):T$(T).L$..(|
00000A60: 4D 24 2C 4D 29 3A 4C 24 B2 CA 28 4D 24 2C 4D AA |M$,M):L$..(M$,M.|
00000A70: 31 29 3A 4D 24 B2 22 22 3A 8B 4C 24 B2 22 22 89 |1):M$."":.L$."".|
00000A80: 31 30 35 30 00 A1 12 64 05 58 B2 54 3A 54 B2 54 |1050...d.X.T:T.T|
00000A90: AA 31 3A 8D 36 31 30 3A 54 B2 58 3A 89 31 30 35 |.1:.610:T.X:.105|
00000AA0: 30 00 B6 12 6C 07 8F 20 41 44 44 20 54 4F 20 54 |0...l.. ADD TO T|
00000AB0: 48 45 20 45 4E 44 00 C9 12 76 07 8B 54 B2 30 89 |HE END...v..T.0.|
00000AC0: 36 30 30 3A 8F 20 45 4E 44 00 F1 12 80 07 58 24 |600:. END.....X$|
00000AD0: B2 54 24 28 54 AB 31 29 3A 99 22 93 22 58 24 3A |.T$(T.1):."."X$:|
00000AE0: 99 22 13 22 A6 C3 28 58 24 29 29 3B 3A 89 35 31 |."."..(X$));:.51|
00000AF0: 30 00 02 13 D0 07 8F 20 49 4E 50 55 54 20 46 49 |0...... INPUT FI|
00000B00: 4C 45 00 2F 13 D5 07 51 39 24 B2 22 44 4F 43 55 |LE./...Q9$."DOCU|
00000B10: 4D 45 4E 54 22 3A 20 8F 20 46 4F 52 20 45 52 52 |MENT": . FOR ERR|
00000B20: 4F 52 20 4D 53 47 20 49 4E 20 36 30 30 30 30 00 |OR MSG IN 60000.|
00000B30: 53 13 EE 07 8B 43 46 B1 32 A7 99 22 11 C6 52 4F |S....CF.2.."..RO|
00000B40: 4D 20 44 41 54 41 53 45 54 54 45 22 3B 3A 8D 38 |M DATASETTE";:.8|
00000B50: 30 35 30 00 78 13 F8 07 8B 43 46 B2 32 B0 28 43 |050.x....CF.2.(C|
00000B60: 46 B1 32 AF 49 B2 30 29 A7 9F 31 2C 31 2C 30 2C |F.2.I.0)..1,1,0,|
00000B70: 48 24 3A 89 32 31 30 30 00 9E 13 02 08 9F 31 2C |H$:.2100......1,|
00000B80: 30 38 2C 32 2C C8 28 48 24 2C 31 36 29 3A 84 38 |08,2,.(H$,16):.8|
00000B90: 2C 58 2C 58 24 3A 8B 58 89 36 30 30 30 30 00 D5 |,X,X$:.X.60000..|
00000BA0: 13 34 08 4F 46 B2 30 3A 8D 34 30 3A 99 22 11 D2 |.4.OF.0:.40:."..|
00000BB0: 45 41 44 49 4E 47 3A 20 12 22 58 24 3A 48 24 B2 |EADING: ."X$:H$.|
00000BC0: 58 24 3A 8D 34 30 3A 99 58 24 3A 99 3A 8F 20 48 |X$:.40:.X$:.:. H|
00000BD0: 45 41 44 45 52 00 FC 13 98 08 58 24 B2 C7 28 33 |EADER.....X$..(3|
00000BE0: 31 29 3A 81 49 B2 30 A4 56 3A 4C 24 B2 22 22 3A |1):.I.0.V:L$."":|
00000BF0: 8F 20 49 4E 50 55 54 20 46 49 4C 45 00 1E 14 A2 |. INPUT FILE....|
00000C00: 08 81 4A B2 31 A4 4D 30 3A A1 23 31 2C 43 24 3A |..J.1.M0:.#1,C$:|
00000C10: 8B 53 54 A7 4A B2 4D 30 3A 89 32 32 33 30 00 4A |.ST.J.M0:.2230.J|
00000C20: 14 AC 08 8B 43 24 B1 58 24 A7 4C 24 B2 4C 24 AA |....C$.X$.L$.L$.|
00000C30: 43 24 3A 8F 20 4F 4E 4C 59 20 4C 45 47 41 4C 20 |C$:. ONLY LEGAL |
00000C40: 43 48 41 52 41 43 54 45 52 53 00 6E 14 B6 08 82 |CHARACTERS.n....|
00000C50: 4A 3A 54 24 28 49 29 B2 4C 24 3A 99 4C 24 3B 3A |J:T$(I).L$:.L$;:|
00000C60: 8B 53 54 B2 30 A7 82 49 3A 49 B2 49 AB 31 00 86 |.ST.0..I:I.I.1..|
00000C70: 14 CA 08 54 B2 49 3A 8D 36 35 30 3A 8D 38 30 30 |...T.I:.650:.800|
00000C80: 30 3A 89 31 30 30 00 A3 14 B8 0B 8D 33 30 32 30 |0:.100......3020|
00000C90: 3A 89 31 30 30 3A 8F 20 4F 55 54 50 55 54 20 46 |:.100:. OUTPUT F|
00000CA0: 49 4C 45 00 C5 14 CC 0B 8B 43 46 B1 32 A7 99 22 |ILE......CF.2.."|
00000CB0: 93 D4 4F 20 44 41 54 41 53 45 54 54 45 22 3B 3A |..O DATASETTE";:|
00000CC0: 8D 38 30 35 30 00 EA 14 D6 0B 8B 43 46 B2 32 B0 |.8050......CF.2.|
00000CD0: 28 43 46 B2 33 AF 49 B2 30 29 A7 9F 31 2C 31 2C |(CF.3.I.0)..1,1,|
00000CE0: 31 2C 48 24 3A 89 33 31 30 30 00 1D 15 E0 0B 4C |1,H$:.3100.....L|
00000CF0: 24 B2 22 30 3A 22 AA C8 28 48 24 2C 31 36 29 3A |$."0:"..(H$,16):|
00000D00: 9F 31 2C 30 38 2C 32 2C 4C 24 3A 84 38 2C 58 2C |.1,08,2,L$:.8,X,|
00000D10: 58 24 3A A0 31 3A 8B 58 89 33 30 38 30 00 56 15 |X$:.1:.X.3080.V.|
00000D20: EA 0B 99 22 11 C4 4F 43 55 4D 45 4E 54 20 41 4C |..."..OCUMENT AL|
00000D30: 52 45 41 44 59 20 45 58 49 53 54 53 20 2D 20 52 |READY EXISTS - R|
00000D40: 45 50 4C 41 43 45 20 49 54 22 3B 3A 8D 38 30 35 |EPLACE IT";:.805|
00000D50: 30 3A 8B 49 A7 8E 00 6A 15 F4 0B 98 38 2C 22 53 |0:.I...j....8,"S|
00000D60: 22 4C 24 3A 98 38 2C 22 49 30 00 9E 15 08 0C 9F |"L$:.8,"I0......|
00000D70: 31 2C 30 38 2C 33 2C 4C 24 AA 22 2C 53 2C 57 22 |1,08,3,L$.",S,W"|
00000D80: 3A 84 38 2C 58 2C 58 24 3A 8B 58 A7 51 39 24 B2 |:.8,X,X$:.X.Q9$.|
00000D90: 22 53 50 41 43 45 22 3A 8D 36 30 30 30 30 00 B5 |"SPACE":.60000..|
00000DA0: 15 1C 0C 4F 46 B2 30 3A 98 31 2C 48 24 C7 28 31 |...OF.0:.1,H$.(1|
00000DB0: 34 31 29 44 24 00 DC 15 4E 0C 81 49 B2 30 A4 56 |41)D$...N..I.0.V|
00000DC0: 3A 8B 54 24 28 49 29 B1 22 22 A7 98 31 2C 54 24 |:.T$(I).""..1,T$|
00000DD0: 28 49 29 3B 3A 99 22 2A 22 3B 3A 82 00 EA 15 58 |(I);:."*";:....X|
00000DE0: 0C 98 31 2C 22 5C 22 3B 3A 8E 00 01 16 A0 0F 8F |..1,"\";:.......|
00000DF0: 20 42 41 54 43 48 20 50 52 4F 43 45 53 53 49 4E | BATCH PROCESSIN|
00000E00: 47 00 2A 16 A5 0F 51 39 24 B2 22 46 49 4C 45 22 |G.*...Q9$."FILE"|
00000E10: 3A 20 8F 20 46 4F 52 20 45 52 52 4F 52 20 4D 53 |: . FOR ERROR MS|
00000E20: 47 20 49 4E 20 36 30 30 30 30 00 4E 16 AA 0F 99 |G IN 60000.N....|
00000E30: 22 93 22 3B 3A 91 43 46 89 34 31 30 30 2C 34 30 |".";:.CF.4100,40|
00000E40: 35 30 3A 8F 20 45 4C 53 45 20 42 4F 54 48 00 73 |50:. ELSE BOTH.s|
00000E50: 16 B4 0F 99 22 C6 52 4F 4D 20 44 41 54 41 53 45 |....".ROM DATASE|
00000E60: 54 54 45 22 3B 3A 8D 38 30 35 30 3A 8B 49 89 34 |TTE";:.8050:.I.4|
00000E70: 31 30 30 00 87 16 D2 0F 8F 20 46 52 4F 4D 20 43 |100...... FROM C|
00000E80: 41 53 53 45 54 54 45 00 96 16 DC 0F 9F 32 2C 31 |ASSETTE......2,1|
00000E90: 3A 89 34 31 35 30 00 A6 16 04 10 8F 20 46 52 4F |:.4150...... FRO|
00000EA0: 4D 20 44 49 53 43 00 DB 16 0E 10 85 22 93 CE C1 |M DISC......"...|
00000EB0: CD C5 20 CD C1 C3 C8 C9 CE C5 20 46 49 4C 45 20 |.. ....... FILE |
00000EC0: 4E 41 4D 45 20 20 2D 9D 9D 9D 22 3B 58 24 3A 8B |NAME -...";X$:.|
00000ED0: 58 24 B2 22 2D 22 89 34 31 31 30 00 FF 16 18 10 |X$."-".4110.....|
00000EE0: 9F 32 2C 30 38 2C 32 2C 58 24 3A 84 38 2C 58 2C |.2,08,2,X$:.8,X,|
00000EF0: 58 24 3A 8B 58 A7 A0 32 3A 89 36 30 30 30 30 00 |X$:.X..2:.60000.|
00000F00: 18 17 36 10 8F 20 50 52 45 50 41 52 45 20 46 4F |..6.. PREPARE FO|
00000F10: 52 20 4F 55 54 50 55 54 00 4B 17 40 10 54 42 24 |R OUTPUT.K.@.TB$|
00000F20: B2 22 22 3A 53 32 B2 30 3A 4E B2 37 32 3A 46 B2 |."":S2.0:N.72:F.|
00000F30: 31 3A 9F 31 2C 30 34 3A 53 24 B2 22 11 22 AA C8 |1:.1,04:S$."."..|
00000F40: 28 42 24 2C 34 30 AB 4E AD 32 29 00 73 17 4A 10 |(B$,40.N.2).s.J.|
00000F50: 99 22 11 D3 54 41 4E 44 41 52 44 20 46 4F 52 4D |."..TANDARD FORM|
00000F60: 41 54 22 3B 3A 8D 38 30 35 30 3A 8B 49 A7 8D 37 |AT";:.8050:.I..7|
00000F70: 35 30 30 00 95 17 68 10 8F 20 47 45 54 20 54 48 |500...h.. GET TH|
00000F80: 45 20 4E 41 4D 45 20 41 4E 44 20 53 41 4C 55 54 |E NAME AND SALUT|
00000F90: 41 54 49 4F 4E 00 C1 17 72 10 84 32 2C 5A 24 3A |ATION...r..2,Z$:|
00000FA0: 8B 53 54 B1 30 B0 C3 28 5A 24 29 B3 32 89 34 39 |.ST.0..(Z$).2.49|
00000FB0: 30 30 3A 8F 20 4E 4F 20 4C 41 53 54 20 4E 41 4D |00:. NO LAST NAM|
00000FC0: 45 00 EC 17 7C 10 4C 24 B2 22 22 3A 8D 37 34 35 |E...|.L$."":.745|
00000FD0: 30 3A 58 24 B2 22 22 3A 59 24 B2 22 22 3A 4D 24 |0:X$."":Y$."":M$|
00000FE0: B2 22 C7 45 4E 54 4C 45 4D 45 4E 3A 00 1B 18 86 |.".ENTLEMEN:....|
00000FF0: 10 84 32 2C 58 24 3A 8B C3 28 58 24 29 B3 32 A7 |..2,X$:..(X$).2.|
00001000: 58 24 B2 22 22 3A 89 34 32 35 30 3A 8F 20 4E 4F |X$."":.4250:. NO|
00001010: 20 46 49 52 53 54 20 4E 41 4D 45 00 3B 18 90 10 | FIRST NAME.;...|
00001020: 4D 24 B2 22 C4 45 41 52 20 22 AA 58 24 AA 22 2C |M$.".EAR ".X$.",|
00001030: 22 3A 58 24 B2 58 24 AA 22 20 22 00 65 18 9A 10 |":X$.X$." ".e...|
00001040: 84 32 2C 59 24 3A 8B C3 28 59 24 29 B3 32 A7 59 |.2,Y$:..(Y$).2.Y|
00001050: 24 B2 22 22 3A 89 34 32 37 30 3A 8F 20 4E 4F 20 |$."":.4270:. NO |
00001060: 54 49 54 4C 45 00 87 18 A4 10 59 24 B2 59 24 AA |TITLE.....Y$.Y$.|
00001070: 22 20 22 3A 4D 24 B2 22 C4 45 41 52 20 22 AA 59 |" ":M$.".EAR ".Y|
00001080: 24 AA 5A 24 AA 22 2C 00 B4 18 AE 10 4C 24 B2 59 |$.Z$.",.....L$.Y|
00001090: 24 AA 58 24 AA 5A 24 3A 84 32 2C 58 24 3A 8B C3 |$.X$.Z$:.2,X$:..|
000010A0: 28 58 24 29 B1 32 A7 4C 24 B2 4C 24 AA 22 2C 20 |(X$).2.L$.L$.", |
000010B0: 22 AA 58 24 00 DD 18 B8 10 5A 24 B2 4D 24 3A 4D |".X$.....Z$.M$:M|
000010C0: 24 B2 22 22 3A 50 24 B2 4C 24 3A 8D 37 39 30 30 |$."":P$.L$:.7900|
000010D0: 3A 8F 20 50 52 49 4E 54 20 4E 41 4D 45 00 EF 18 |:. PRINT NAME...|
000010E0: CC 10 8F 20 47 45 54 20 41 44 44 52 45 53 53 00 |... GET ADDRESS.|
000010F0: 17 19 D6 10 84 32 2C 4C 24 3A 8B C3 28 4C 24 29 |.....2,L$:..(L$)|
00001100: B1 31 A7 50 24 B2 4C 24 3A 8D 37 39 30 30 3A 8F |.1.P$.L$:.7900:.|
00001110: 20 4C 49 4E 45 20 32 00 3F 19 E0 10 84 32 2C 4C | LINE 2.?....2,L|
00001120: 24 3A 8B C3 28 4C 24 29 B1 31 A7 50 24 B2 4C 24 |$:..(L$).1.P$.L$|
00001130: 3A 8D 37 39 30 30 3A 8F 20 4C 49 4E 45 20 33 00 |:.7900:. LINE 3.|
00001140: 73 19 EA 10 84 32 2C 4C 24 3A 84 32 2C 59 24 3A |s....2,L$:.2,Y$:|
00001150: 8B C3 28 59 24 29 B1 31 A7 4C 24 B2 4C 24 AA 22 |..(Y$).1.L$.L$."|
00001160: 2C 20 22 AA 59 24 3A 8F 20 53 54 41 54 45 2C 20 |, ".Y$:. STATE, |
00001170: 5A 49 50 00 8C 19 F4 10 8B C3 28 4C 24 29 B1 31 |ZIP.......(L$).1|
00001180: A7 50 24 B2 4C 24 3A 8D 37 39 30 30 00 B8 19 FE |.P$.L$:.7900....|
00001190: 10 81 49 B2 4C A4 31 34 3A 8D 37 39 30 30 3A 82 |..I.L.14:.7900:.|
000011A0: 3A 4C 24 B2 5A 24 3A 50 24 B2 4C 24 3A 8D 37 30 |:L$.Z$:P$.L$:.70|
000011B0: 39 30 3A 89 34 32 30 30 00 C4 19 24 13 A0 32 3A |90:.4200...$..2:|
000011C0: 89 31 30 30 00 DD 19 70 17 8F 20 53 45 41 52 43 |.100...p.. SEARC|
000011D0: 48 20 41 4E 44 20 52 45 50 4C 41 43 45 00 19 1A |H AND REPLACE...|
000011E0: 7A 17 99 22 93 11 D3 45 41 52 43 48 20 46 4F 52 |z.."...EARCH FOR|
000011F0: 3F 22 3A 4D B2 34 30 3A 8D 38 32 30 30 3A 5A 24 |?":M.40:.8200:Z$|
00001200: B2 58 24 3A 4C B2 C3 28 58 24 29 3A 8B 4C B2 30 |.X$:L..(X$):.L.0|
00001210: B0 4C B2 4D 89 36 30 31 30 00 41 1A 84 17 99 3A |.L.M.6010.A....:|
00001220: 99 22 11 D2 45 50 4C 41 43 45 20 57 49 54 48 3F |."..EPLACE WITH?|
00001230: 22 3A 8D 38 32 30 30 3A 59 24 B2 58 24 3A 99 3A |":.8200:Y$.X$:.:|
00001240: 99 00 68 1A 8E 17 58 24 B2 22 22 3A 4D 24 B2 22 |..h...X$."":M$."|
00001250: 22 3A 4C 24 B2 22 22 3A 54 B2 30 3A 55 B2 30 3A |":L$."":T.0:U.0:|
00001260: 46 B2 30 3A 4F 46 B2 31 00 7E 1A 38 18 8F 20 41 |F.0:OF.1.~.8.. A|
00001270: 54 54 41 43 48 20 54 24 20 54 4F 20 58 24 00 91 |TTACH T$ TO X$..|
00001280: 1A 42 18 8B C3 28 58 24 29 B1 B2 4C 89 36 32 35 |.B...(X$)..L.625|
00001290: 30 00 AF 1A 4C 18 8B 54 B1 56 89 36 34 30 30 3A |0...L..T.V.6400:|
000012A0: 8F 20 41 4C 4C 20 54 24 27 53 20 52 45 41 44 00 |. ALL T$'S READ.|
000012B0: D4 1A 56 18 58 24 B2 58 24 AA 54 24 28 54 29 3A |..V.X$.X$.T$(T):|
000012C0: 54 24 28 54 29 B2 22 22 3A 54 B2 54 AA 31 3A 89 |T$(T)."":T.T.1:.|
000012D0: 36 32 30 30 00 EB 1A 6A 18 8F 20 53 45 41 52 43 |6200...j.. SEARC|
000012E0: 48 20 46 4F 52 20 4D 41 54 43 48 00 19 1B 74 18 |H FOR MATCH...t.|
000012F0: 81 49 B2 31 A4 C3 28 58 24 29 AB 4C AA 31 3A 8B |.I.1..(X$).L.1:.|
00001300: CA 28 58 24 2C 49 2C 4C 29 B3 B1 5A 24 A7 82 3A |.(X$,I,L)..Z$..:|
00001310: 4A B2 49 3A 89 36 33 30 30 00 2F 1B 7E 18 4D 24 |J.I:.6300./.~.M$|
00001320: B2 59 24 3A 4A B2 49 AA 4C 3A 99 22 12 22 3B 00 |.Y$:J.I.L:.".";.|
00001330: 43 1B 9C 18 8F 20 53 50 4C 49 54 20 53 54 52 49 |C.... SPLIT STRI|
00001340: 4E 47 53 00 76 1B A6 18 4D 24 B2 C8 28 58 24 2C |NGS.v...M$..(X$,|
00001350: 49 AB 31 29 AA 4D 24 3A 58 24 B2 CA 28 58 24 2C |I.1).M$:X$..(X$,|
00001360: 4A 29 3A 8D 36 35 30 30 3A 91 46 89 36 39 30 30 |J):.6500:.F.6900|
00001370: 3A 89 36 32 30 30 00 89 1B 00 19 8F 20 53 54 4F |:.6200...... STO|
00001380: 57 20 4C 41 53 54 20 4C 24 00 A6 1B 0A 19 8D 36 |W LAST L$......6|
00001390: 35 30 30 3A 8B 46 89 36 39 30 30 3A 8F 20 43 4C |500:.F.6900:. CL|
000013A0: 45 41 52 20 4D 24 00 D2 1B 14 19 4D 24 B2 58 24 |EAR M$.....M$.X$|
000013B0: 3A 8D 36 35 30 30 3A 8B 46 89 36 39 30 30 3A 8F |:.6500:.F.6900:.|
000013C0: 20 4D 24 5F 58 24 3B 20 43 4C 45 41 52 20 42 4F | M$_X$; CLEAR BO|
000013D0: 54 48 00 09 1C 1E 19 8B 55 B3 B2 56 A7 54 B2 55 |TH......U..V.T.U|
000013E0: 3A 8D 36 35 30 3A 89 31 30 30 3A 8F 20 53 54 4F |:.650:.100:. STO|
000013F0: 57 20 4C 24 2C 20 43 4C 45 41 52 20 48 49 47 48 |W L$, CLEAR HIGH|
00001400: 45 52 20 42 4C 4F 43 4B 53 00 13 1C 28 19 89 36 |ER BLOCKS...(..6|
00001410: 39 30 30 00 36 1C 64 19 8F 20 43 4C 45 41 52 20 |900.6.d.. CLEAR |
00001420: 4D 24 20 2D 20 53 54 4F 57 20 4C 24 20 49 46 20 |M$ - STOW L$ IF |
00001430: 4E 45 45 44 45 44 00 6C 1C 6E 19 4D B2 4D 30 AB |NEEDED.l.n.M.M0.|
00001440: C3 28 4C 24 29 3A 4C 24 B2 4C 24 AA C8 28 4D 24 |.(L$):L$.L$..(M$|
00001450: 2C 4D 29 3A 4D 24 B2 CA 28 4D 24 2C 4D AA 31 29 |,M):M$..(M$,M.1)|
00001460: 3A 8B C3 28 4C 24 29 B3 4D 30 A7 8E 00 7B 1C 78 |:..(L$).M0...{.x|
00001470: 19 8B 55 B1 B2 56 89 36 35 35 30 00 A8 1C 82 19 |..U..V.6550.....|
00001480: 8B 55 B3 54 A7 54 24 28 55 29 B2 4C 24 3A 99 22 |.U.T.T$(U).L$:."|
00001490: 2A 92 22 3B 3A 55 B2 55 AA 31 3A 4C 24 B2 4D 24 |*.";:U.U.1:L$.M$|
000014A0: 3A 4D 24 B2 22 22 3A 8E 00 E2 1C 8C 19 8B 54 B3 |:M$."":.......T.|
000014B0: 56 A7 81 49 B2 56 A4 54 AA 31 A9 AB 31 3A 54 24 |V..I.V.T.1..1:T$|
000014C0: 28 49 29 B2 54 24 28 49 AB 31 29 3A 82 3A 54 24 |(I).T$(I.1):.:T$|
000014D0: 28 54 29 B2 22 22 3A 54 B2 54 AA 31 3A 89 36 35 |(T)."":T.T.1:.65|
000014E0: 33 30 00 EC 1C 96 19 46 B2 31 3A 8E 00 FD 1C F4 |30.....F.1:.....|
000014F0: 1A 8F 20 45 52 52 4F 52 20 45 58 49 54 00 2E 1D |.. ERROR EXIT...|
00001500: FE 1A 99 3A 99 22 11 CF 55 54 20 4F 46 20 52 4F |...:."..UT OF RO|
00001510: 4F 4D 20 2D 20 44 41 54 41 20 49 4D 50 41 49 52 |OM - DATA IMPAIR|
00001520: 45 44 22 3A 8D 38 30 30 30 3A 89 31 30 30 00 45 |ED":.8000:.100.E|
00001530: 1D 58 1B 8F 20 46 4F 52 4D 41 54 20 41 4E 44 20 |.X.. FORMAT AND |
00001540: 50 52 49 4E 54 00 54 1D 62 1B 8D 37 30 32 30 3A |PRINT.T.b..7020:|
00001550: 89 31 30 30 00 6C 1D 6C 1B 9F 31 2C 30 34 3A 46 |.100.l.l..1,04:F|
00001560: B2 31 3A 8F 20 50 52 49 4E 54 45 52 00 9D 1D 76 |.1:. PRINTER...v|
00001570: 1B 53 32 B2 31 3A 4E B2 36 30 3A 54 42 24 B2 22 |.S2.1:N.60:TB$."|
00001580: 22 3A 58 24 B2 22 46 49 44 22 3A 8F 20 44 45 46 |":X$."FID":. DEF|
00001590: 41 55 4C 54 53 20 28 44 52 41 46 54 29 00 D1 1D |AULTS (DRAFT)...|
000015A0: 80 1B 99 22 11 12 C6 92 4F 52 4D 41 4C 2C 20 12 |..."....ORMAL, .|
000015B0: C9 92 4E 46 4F 52 4D 41 4C 2C 20 4F 52 20 12 C4 |..NFORMAL, OR ..|
000015C0: 92 52 41 46 54 22 3B 3A 8D 38 30 36 30 3A 4A B2 |.RAFT";:.8060:J.|
000015D0: 49 00 EA 1D 94 1B 8B 4A B3 32 A7 53 32 B2 30 3A |I......J.2.S2.0:|
000015E0: 4E B2 37 32 3A 8D 37 35 30 30 00 15 1E 9E 1B 53 |N.72:.7500.....S|
000015F0: 24 B2 22 11 22 AA C8 28 42 24 2C 34 30 AB 4E AD |$."."..(B$,40.N.|
00001600: 32 29 3A 8B 4A B2 30 89 37 34 30 30 3A 8F 20 46 |2):.J.0.7400:. F|
00001610: 4F 52 4D 41 4C 00 38 1E A8 1B 4C 24 B2 22 12 22 |ORMAL.8...L$."."|
00001620: AA 48 24 3A 50 24 B2 48 24 3A 4D 24 B2 C8 28 4B |.H$:P$.H$:M$..(K|
00001630: 24 2C C3 28 48 24 29 29 00 56 1E B2 1B 4A B2 30 |$,.(H$)).V...J.0|
00001640: 3A 99 22 93 22 3A 8D 37 39 30 30 3A 8D 37 39 30 |:.".":.7900:.790|
00001650: 30 3A 8B 4A A7 8E 00 80 1E BC 1B 54 B2 30 3A 58 |0:.J.......T.0:X|
00001660: 24 B2 22 5D 22 AA 54 42 24 3A 45 B2 30 3A 5A 24 |$."]".TB$:E.0:Z$|
00001670: B2 42 24 3A 8F 20 50 52 49 4E 54 20 54 45 58 54 |.B$:. PRINT TEXT|
00001680: 00 B7 1E C6 1B 8B C3 28 58 24 29 B3 B2 4E A7 58 |.......(X$)..N.X|
00001690: 24 B2 58 24 AA 54 24 28 54 29 3A 54 B2 54 AA 31 |$.X$.T$(T):T.T.1|
000016A0: 3A 8B C3 28 58 24 29 B3 B2 4E B0 54 B1 56 A7 58 |:..(X$)..N.T.V.X|
000016B0: 24 B2 58 24 AA 22 5C 00 E7 1E CB 1B 8B C6 28 58 |$.X$."\.......(X|
000016C0: 24 29 B2 33 32 A7 58 24 B2 CA 28 58 24 2C 32 29 |$).32.X$..(X$,2)|
000016D0: 3A 89 37 31 31 30 3A 8F 20 4C 45 41 44 49 4E 47 |:.7110:. LEADING|
000016E0: 20 42 4C 41 4E 4B 53 00 F8 1E D0 1B 8B 45 A7 58 | BLANKS......E.X|
000016F0: 24 B2 22 5B 22 AA 58 24 00 35 1F DA 1B 4C 24 B2 |$."[".X$.5...L$.|
00001700: C8 28 58 24 2C 4E AA 31 29 3A 50 24 B2 4C 24 3A |.(X$,N.1):P$.L$:|
00001710: 4A B2 30 3A 4B B2 30 3A 4D 24 B2 42 24 3A 81 49 |J.0:K.0:M$.B$:.I|
00001720: B2 31 A4 C3 28 4C 24 29 3A 43 B2 C6 28 CA 28 4C |.1..(L$):C..(.(L|
00001730: 24 2C 49 29 29 00 57 1F E4 1B 8B 43 B1 39 30 AF |$,I)).W....C.90.|
00001740: 43 B3 39 36 A7 8D 37 37 30 30 3A 8B 58 A7 49 B2 |C.96..7700:.X.I.|
00001750: 4A 3A 89 37 31 36 30 00 8C 1F EE 1B 82 3A 81 49 |J:.7160......:.I|
00001760: B2 C3 28 4C 24 29 A4 4A AA 31 A9 AB 31 3A 8B CA |..(L$).J.1..1:..|
00001770: 28 4C 24 2C 49 2C 31 29 B1 22 20 22 A7 82 3A 49 |(L$,I,1)." "..:I|
00001780: B2 4A 3A 8B 4A B2 30 89 37 39 39 30 00 C8 1F F8 |.J:.J.0.7990....|
00001790: 1B 4A B2 30 3A 58 24 B2 CA 28 58 24 2C 49 AA 31 |.J.0:X$..(X$,I.1|
000017A0: 29 3A 4C 24 B2 C8 28 4C 24 2C 49 AB 31 29 3A 50 |):L$..(L$,I.1):P|
000017B0: 24 B2 C8 28 50 24 2C 49 AB 4B 29 3A 4D 24 B2 C8 |$..(P$,I.K):M$..|
000017C0: 28 4D 24 2C 49 AB 4B 29 00 E9 1F 16 1C 8B 43 B2 |(M$,I.K)......C.|
000017D0: 39 34 B0 43 B2 39 35 A7 45 B2 30 3A 58 24 B2 22 |94.C.95.E.0:X$."|
000017E0: 5D 22 AA 54 42 24 AA 58 24 00 18 20 20 1C 58 B2 |]".TB$.X$.. .X.|
000017F0: 43 3A 8D 37 39 30 30 3A 8B 4A B1 30 B0 58 B2 39 |C:.7900:.J.0.X.9|
00001800: 34 B0 58 B2 39 32 A7 8D 37 39 35 30 3A 8B 4A B1 |4.X.92..7950:.J.|
00001810: 30 B0 58 B2 39 32 A7 8E 00 22 20 2A 1C 89 37 31 |0.X.92..." *..71|
00001820: 31 30 00 2F 20 E8 1C 8F 20 46 4F 52 4D 41 4C 00 |10./ ... FORMAL.|
00001830: 61 20 F2 1C 4C 24 B2 22 22 3A 8D 37 34 35 30 3A |a ..L$."":.7450:|
00001840: 99 22 93 C6 4F 55 52 20 41 44 44 52 45 53 53 20 |."..OUR ADDRESS |
00001850: 4C 49 4E 45 53 22 3A 4D B2 4E 3A 81 49 B2 31 A4 |LINES":M.N:.I.1.|
00001860: 34 00 92 20 FC 1C 99 22 CC 49 4E 45 22 49 3A 8D |4.. ...".INE"I:.|
00001870: 38 32 30 30 3A 99 3A 8B C3 28 58 24 29 B2 4D A7 |8200:.:..(X$).M.|
00001880: 99 22 12 D4 4F 4F 20 4C 4F 4E 47 22 3A 89 37 34 |."..OO LONG":.74|
00001890: 32 30 00 B0 20 06 1D 50 24 B2 58 24 3A 8D 37 39 |20.. ..P$.X$:.79|
000018A0: 30 30 3A 82 3A 8D 37 39 30 30 3A 8D 37 39 30 30 |00:.:.7900:.7900|
000018B0: 00 D4 20 10 1D 99 22 D3 41 4C 55 54 41 54 49 4F |.. ...".ALUTATIO|
000018C0: 4E 22 3A 8D 38 32 30 30 3A 50 24 B2 58 24 3A 89 |N":.8200:P$.X$:.|
000018D0: 37 30 39 30 00 05 21 1A 1D 8C 3A 4D 24 B2 22 22 |7090..!...:M$.""|
000018E0: 3A 59 24 B2 53 24 3A 81 49 B2 31 A4 33 3A 87 50 |:Y$.S$:.I.1.3:.P|
000018F0: 24 3A 8D 37 34 39 30 3A 82 3A 50 24 B2 44 24 3A |$:.7490:.:P$.D$:|
00001900: 8D 37 34 39 30 00 20 21 2E 1D 81 49 B2 31 A4 35 |.7490. !...I.1.5|
00001910: 3A 8D 37 39 30 30 3A 82 3A 53 24 B2 59 24 3A 8E |:.7900:.:S$.Y$:.|
00001920: 00 46 21 42 1D 4B B2 C3 28 50 24 29 3A 53 24 B2 |.F!B.K..(P$):S$.|
00001930: 22 11 22 AA C8 28 42 24 2C 34 30 AB 4B AD 32 29 |"."..(B$,40.K.2)|
00001940: 3A 89 37 39 30 30 00 5E 21 4C 1D 8F 20 46 4F 52 |:.7900.^!L.. FOR|
00001950: 4D 41 54 20 56 41 52 49 41 54 49 4F 4E 53 00 88 |MAT VARIATIONS..|
00001960: 21 56 1D 99 22 11 D3 54 41 4E 44 41 52 44 20 46 |!V.."..TANDARD F|
00001970: 4F 52 4D 41 54 3A 22 3A 99 2C 22 20 D3 49 4E 47 |ORMAT:":.," .ING|
00001980: 4C 45 20 53 50 41 43 45 00 B9 21 60 1D 99 2C 4E |LE SPACE..!`..,N|
00001990: 22 43 48 41 52 41 43 54 45 52 53 20 50 45 52 20 |"CHARACTERS PER |
000019A0: 4C 49 4E 45 22 3A 99 2C 4C 4C 22 4C 49 4E 45 53 |LINE":.,LL"LINES|
000019B0: 20 50 45 52 20 50 41 47 45 00 D5 21 6A 1D 99 2C | PER PAGE..!j..,|
000019C0: 22 20 D4 41 42 20 4C 45 4E 47 54 48 20 3D 22 C3 |" .AB LENGTH =".|
000019D0: 28 54 42 24 29 00 02 22 74 1D 99 22 11 C4 4F 20 |(TB$).."t.."..O |
000019E0: 59 4F 55 20 57 41 4E 54 20 54 4F 20 43 48 41 4E |YOU WANT TO CHAN|
000019F0: 47 45 20 49 54 22 3B 3A 8D 38 30 35 30 3A 8B 49 |GE IT";:.8050:.I|
00001A00: A7 8E 00 23 22 7E 1D 99 22 93 D3 49 4E 47 4C 45 |...#"~.."..INGLE|
00001A10: 20 53 50 41 43 45 22 3B 3A 8D 38 30 35 30 3A 53 | SPACE";:.8050:S|
00001A20: 32 B2 49 00 53 22 88 1D 85 22 11 C3 48 41 52 41 |2.I.S"..."..HARA|
00001A30: 43 54 45 52 53 20 50 45 52 20 4C 49 4E 45 20 28 |CTERS PER LINE (|
00001A40: 32 30 2D 38 30 29 20 20 37 32 20 9D 9D 9D 9D 9D |20-80) 72 .....|
00001A50: 22 3B 4E 00 6E 22 92 1D 8B 4E B3 32 30 B0 4E B1 |";N.n"...N.20.N.|
00001A60: 38 30 A7 99 22 91 91 22 3A 89 37 35 36 30 00 AA |80.."..":.7560..|
00001A70: 22 9C 1D 99 22 11 CC 49 4E 45 53 20 50 45 52 20 |"..."..INES PER |
00001A80: 50 41 47 45 20 22 4C 4C 22 9D 20 20 9D 9D 9D 9D |PAGE "LL". ....|
00001A90: 9D 9D 22 3B 3A 85 4C 4C 3A 8B 4C 4C B3 31 A7 99 |..";:.LL:.LL.1..|
00001AA0: 22 91 91 22 3A 89 37 35 38 30 00 E3 22 A1 1D 99 |"..":.7580.."...|
00001AB0: 22 11 CC 45 4E 47 54 48 20 4F 46 20 54 41 42 22 |"..ENGTH OF TAB"|
00001AC0: 3B 3A 58 24 B2 22 30 31 32 33 34 35 36 37 38 39 |;:X$."0123456789|
00001AD0: 22 3A 8D 38 30 36 30 3A 54 42 24 B2 C8 28 42 24 |":.8060:TB$..(B$|
00001AE0: 2C 49 29 00 E9 22 A6 1D 8E 00 FB 22 14 1E 8F 20 |,I).."....."... |
00001AF0: 45 4E 48 41 4E 43 45 4D 45 4E 54 00 41 23 28 1E |ENHANCEMENT.A#(.|
00001B00: 4B B2 4B AA 31 3A 58 B2 31 3A 4A B2 49 3A 8B 43 |K.K.1:X.1:J.I:.C|
00001B10: B2 39 31 B0 43 B2 39 33 A7 58 B2 30 3A 45 B2 28 |.91.C.93.X.0:E.(|
00001B20: 43 B2 39 31 29 3A 5A 24 B2 42 24 3A 59 24 B2 22 |C.91):Z$.B$:Y$."|
00001B30: 92 22 3A 8B 45 A7 5A 24 B2 4B 24 3A 59 24 B2 22 |.":.E.Z$.K$:Y$."|
00001B40: 12 00 5F 23 32 1E 4C 24 B2 C8 28 4C 24 2C 49 AB |.._#2.L$..(L$,I.|
00001B50: 31 29 AA 59 24 AA CA 28 4C 24 2C 49 AA 31 29 00 |1).Y$..(L$,I.1).|
00001B60: 93 23 46 1E 50 24 B2 C8 28 50 24 2C 49 AB 4B 29 |.#F.P$..(P$,I.K)|
00001B70: AA CA 28 4C 24 2C 49 AA 31 29 3A 4D 24 B2 C8 28 |..(L$,I.1):M$..(|
00001B80: 4D 24 2C 49 AB 4B 29 AA CA 28 5A 24 2C 49 AA 31 |M$,I.K)..(Z$,I.1|
00001B90: 29 3A 8E 00 A2 23 DC 1E 8F 20 4C 49 4E 45 20 4F |):...#... LINE O|
00001BA0: 55 54 00 B6 23 E6 1E 8B 50 24 B1 22 22 A7 50 24 |UT..#...P$."".P$|
00001BB0: B2 53 24 AA 50 24 00 D1 23 F0 1E 99 4C 24 3B 3A |.S$.P$..#...L$;:|
00001BC0: 8D 37 39 33 30 3A 8B 4A B1 30 B0 53 32 B2 30 A7 |.7930:.J.0.S2.0.|
00001BD0: 8E 00 F3 23 FA 1E 8B 46 A7 99 3A 98 31 2C 50 24 |...#...F..:.1,P$|
00001BE0: 3B 3A 8B 4D 24 B1 42 24 A7 98 31 2C 51 24 53 24 |;:.M$.B$..1,Q$S$|
00001BF0: 4D 24 3B 00 1A 24 04 1F 98 31 3A 50 24 B2 22 22 |M$;..$...1:P$.""|
00001C00: 3A 4C 24 B2 22 22 3A 4D 24 B2 22 22 3A 4C B2 4C |:L$."":M$."":L.L|
00001C10: AA 31 3A 8B 4C B3 4C 4C A7 8E 00 2F 24 0E 1F 8B |.1:.L.LL.../$...|
00001C20: 46 B2 30 A7 8D 38 30 30 30 3A 4C B2 30 3A 8E 00 |F.0..8000:L.0:..|
00001C30: 5C 24 18 1F 8B 4C A7 81 49 B2 4C A4 4C 50 AB 31 |\$...L..I.L.LP.1|
00001C40: 3A 98 31 3A 82 3A 4C B2 30 3A 8F 20 50 41 47 45 |:.1:.:L.0:. PAGE|
00001C50: 20 57 49 54 48 20 42 4C 41 4E 4B 53 00 67 24 22 | WITH BLANKS.g$"|
00001C60: 1F 99 22 93 22 3A 8E 00 92 24 36 1F 4A B2 31 3A |..".":...$6.J.1:|
00001C70: 99 22 11 CC 49 4E 45 20 54 4F 4F 20 4C 4F 4E 47 |."..INE TOO LONG|
00001C80: 20 54 4F 20 50 52 49 4E 54 22 3A 8D 37 39 35 30 | TO PRINT":.7950|
00001C90: 3A 8E 00 A2 24 40 1F 8F 20 55 54 49 4C 49 54 49 |:...$@.. UTILITI|
00001CA0: 45 53 00 D0 24 4A 1F 99 22 11 12 20 C8 49 54 20 |ES..$J..".. .IT |
00001CB0: 41 20 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 |A KEY TO CONTINU|
00001CC0: 45 22 3B 3A 8D 32 30 3A 99 3A 99 22 93 22 3A 8E |E";:.20:.:.".":.|
00001CD0: 00 DB 24 72 1F 58 24 B2 22 59 4E 00 E6 24 7C 1F |..$r.X$."YN..$|.|
00001CE0: 99 22 3F 20 22 3B 00 10 25 86 1F 8D 32 30 3A 81 |."? ";..%...20:.|
00001CF0: 49 B2 31 A4 C3 28 58 24 29 3A 8B 43 24 B3 B1 CA |I.1..(X$):.C$...|
00001D00: 28 58 24 2C 49 2C 31 29 A7 82 3A 89 38 30 37 30 |(X$,I,1)..:.8070|
00001D10: 00 1F 25 8B 1F 49 B2 49 AB 31 3A 99 43 24 3B 00 |..%..I.I.1:.C$;.|
00001D20: 3B 25 90 1F A1 57 24 3A 8B 57 24 B2 22 22 A7 99 |;%...W$:.W$.""..|
00001D30: 22 A4 9D 22 3B 3A 89 38 30 38 30 00 51 25 95 1F |"..";:.8080.Q%..|
00001D40: 99 22 20 9D 22 3B 3A 8B 57 24 B2 52 24 A7 99 3A |." .";:.W$.R$..:|
00001D50: 8E 00 6A 25 9A 1F 8B 57 24 B2 C7 28 32 30 29 A7 |..j%...W$..(20).|
00001D60: 99 57 24 3B 3A 89 38 30 37 30 00 74 25 9F 1F 89 |.W$;:.8070.t%...|
00001D70: 38 30 38 30 00 8F 25 08 20 58 24 B2 22 22 3A 8F |8080..%. X$."":.|
00001D80: 20 49 4E 50 55 54 20 41 20 53 54 52 49 4E 47 00 | INPUT A STRING.|
00001D90: A0 25 12 20 A1 43 24 3A 8B 43 24 89 38 32 31 30 |.%. .C$:.C$.8210|
00001DA0: 00 B8 25 1C 20 8D 32 35 3A 8B 43 B2 31 33 B0 43 |..%. .25:.C.13.C|
00001DB0: B2 39 32 89 38 32 39 30 00 E7 25 26 20 8B 43 B2 |.92.8290..%& .C.|
00001DC0: 32 30 AF 58 24 B1 22 22 A7 99 43 24 3B 3A 58 24 |20.X$.""..C$;:X$|
00001DD0: B2 C8 28 58 24 2C C3 28 58 24 29 AB 31 29 3A 8F |..(X$,.(X$).1):.|
00001DE0: 20 44 45 4C 45 54 45 00 07 26 30 20 8B 43 B2 32 | DELETE..&0 .C.2|
00001DF0: 30 89 38 32 32 30 3A 8F 20 44 45 4C 45 54 45 20 |0.8220:. DELETE |
00001E00: 4F 4E 20 4E 55 4C 4C 00 38 26 3A 20 8B 28 31 32 |ON NULL.8&: .(12|
00001E10: 37 AF 43 29 B3 33 32 89 38 32 32 30 3A 8F 20 43 |7.C).32.8220:. C|
00001E20: 55 52 53 4F 52 20 43 4F 4E 54 52 4F 4C 20 43 48 |URSOR CONTROL CH|
00001E30: 41 52 41 43 54 45 52 53 00 51 26 44 20 99 43 24 |ARACTERS.Q&D .C$|
00001E40: 3B 3A 8B 43 B2 33 34 A7 99 43 24 C7 28 32 30 29 |;:.C.34..C$.(20)|
00001E50: 3B 00 6C 26 4E 20 58 24 B2 58 24 AA 43 24 3A 8B |;.l&N X$.X$.C$:.|
00001E60: C3 28 58 24 29 B3 4D 89 38 32 32 30 00 72 26 62 |.(X$).M.8220.r&b|
00001E70: 20 8E 00 89 26 FC 21 8F 20 51 55 49 54 20 54 48 | ...&.!. QUIT TH|
00001E80: 45 20 50 52 4F 47 52 41 4D 00 BF 26 10 22 99 22 |E PROGRAM..&."."|
00001E90: 93 11 C5 4A 45 43 54 20 41 20 50 41 47 45 20 46 |...JECT A PAGE F|
00001EA0: 52 4F 4D 20 54 48 45 20 50 52 49 4E 54 45 52 22 |ROM THE PRINTER"|
00001EB0: 3B 3A 8D 38 30 35 30 3A 8B 49 89 38 37 34 30 00 |;:.8050:.I.8740.|
00001EC0: E7 26 1A 22 9F 31 2C 30 34 3A 46 B2 31 3A 4C B2 |.&.".1,04:F.1:L.|
00001ED0: 2E 31 3A 8D 37 39 35 30 3A 8F 20 45 58 50 45 4C |.1:.7950:. EXPEL|
00001EE0: 20 41 20 50 41 47 45 00 FF 26 24 22 8B 4F 46 B2 | A PAGE..&$".OF.|
00001EF0: 30 B0 54 24 28 30 29 B2 22 22 89 38 37 36 30 00 |0.T$(0)."".8760.|
00001F00: 3A 27 2E 22 99 22 11 C4 4F 43 55 4D 45 4E 54 20 |:'."."..OCUMENT |
00001F10: 4E 4F 54 20 53 41 56 45 44 3B 20 44 4F 20 53 4F |NOT SAVED; DO SO|
00001F20: 20 4E 4F 57 22 3B 3A 8D 38 30 35 30 3A 8B 49 B2 | NOW";:.8050:.I.|
00001F30: 30 A7 A0 31 3A 8D 33 30 32 30 00 50 27 38 22 A0 |0..1:.3020.P'8".|
00001F40: 31 3A 99 22 93 C7 4F 4F 44 42 59 45 21 22 3A A2 |1:."..OODBYE!":.|
00001F50: 00 78 27 C4 22 9F 31 2C 30 34 3A 46 B2 31 3A 4C |.x'.".1,04:F.1:L|
00001F60: B2 2E 31 3A 89 37 39 35 30 3A 8F 20 45 58 50 45 |..1:.7950:. EXPE|
00001F70: 4C 20 41 20 50 41 47 45 00 89 27 28 23 8F 20 49 |L A PAGE..'(#. I|
00001F80: 4E 49 54 49 41 4C 49 5A 45 00 9F 27 2A 23 97 35 |NITIALIZE..'*#.5|
00001F90: 33 32 38 30 2C 30 3A 97 35 33 32 38 31 2C 30 00 |3280,0:.53281,0.|
00001FA0: CF 27 2D 23 4C 50 B2 36 36 3A 4C 30 B2 36 30 3A |.'-#LP.66:L0.60:|
00001FB0: 4D 30 B2 31 36 30 3A 51 24 B2 C7 28 31 34 31 29 |M0.160:Q$..(141)|
00001FC0: 3A 52 24 B2 C7 28 31 33 29 3A 4B 24 B2 22 A4 00 |:R$..(13):K$."..|
00001FD0: EE 27 32 23 56 B2 B5 28 28 B8 28 30 29 AB 32 30 |.'2#V..((.(0).20|
00001FE0: 30 30 29 AD 4D 30 29 3A 86 54 24 28 56 29 00 2F |00).M0):.T$(V)./|
00001FF0: 28 3C 23 99 22 93 8E 13 13 0F 11 11 11 11 11 11 |(<#."...........|
00002000: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00002010: 11 11 11 22 A6 33 39 29 22 8F 05 22 3A 97 35 39 |...".39)"..":.59|
00002020: 34 36 38 2C 31 34 3A 8F 20 46 4F 52 4D 41 54 00 |468,14:. FORMAT.|
00002030: 69 28 41 23 97 35 33 32 37 32 2C 32 B0 C2 28 35 |i(A#.53272,2..(5|
00002040: 33 32 37 32 29 3A 99 22 9F 93 20 20 20 20 20 12 |3272):.".. .|
00002050: 20 C3 4F 4D 4D 4F 44 4F 52 45 20 D7 CF D2 C4 A0 | .OMMODORE .....|
00002060: CD C1 C3 C8 C9 CE C5 20 92 00 84 28 43 23 8D 36 |....... ...(C#.6|
00002070: 31 30 30 30 3A 20 8F 20 43 4F 4C 4F 52 20 43 48 |1000: . COLOR CH|
00002080: 41 4E 47 45 00 BD 28 46 23 99 22 11 12 D4 92 41 |ANGE..(F#."....A|
00002090: 50 45 2C 20 12 C4 92 49 53 43 2C 20 4F 52 20 12 |PE, ...ISC, OR .|
000020A0: C2 92 4F 54 48 22 3B 3A 58 24 B2 22 44 54 42 22 |..OTH";:X$."DTB"|
000020B0: 3A 8D 38 30 36 30 3A 43 46 B2 49 AA 31 00 E7 28 |:.8060:CF.I.1..(|
000020C0: 50 23 42 24 B2 22 20 20 20 20 20 22 3A 81 49 B2 |P#B$." ":.I.|
000020D0: 31 A4 35 3A 42 24 B2 42 24 AA 42 24 3A 82 3A 9F |1.5:B$.B$.B$:.:.|
000020E0: 38 2C 30 38 2C 31 35 00 0E 29 55 23 99 22 11 D4 |8,08,15..)U#."..|
000020F0: 4F 44 41 59 27 53 20 C4 41 54 45 3F 22 3A 4D B2 |ODAY'S .ATE?":M.|
00002100: 32 30 3A 8D 38 32 30 30 3A 44 24 B2 58 24 00 28 |20:.8200:D$.X$.(|
00002110: 29 5A 23 4B 24 B2 22 20 22 3A 8F 20 31 35 32 35 |)Z#K$." ":. 1525|
00002120: 20 50 52 49 4E 54 45 52 00 59 29 64 23 8F 20 4B | PRINTER.Y)d#. K|
00002130: 24 3D 22 5F 22 3A 51 24 3D 52 24 2B 43 48 52 24 |$="_":Q$=R$+CHR$|
00002140: 28 32 37 29 2B 22 0A 22 3A 52 45 4D 20 38 33 30 |(27)+".":REM 830|
00002150: 30 20 50 52 49 4E 54 45 52 00 74 29 78 23 81 49 |0 PRINTER.t)x#.I|
00002160: B2 31 A4 37 3A 4B 24 B2 4B 24 AA 4B 24 3A 82 3A |.1.7:K$.K$.K$:.:|
00002170: 89 31 30 30 00 7D 29 8C 23 89 31 30 30 00 9B 29 |.100.}).#.100..)|
00002180: 10 27 8F 20 4C 45 54 54 45 52 48 45 41 44 20 41 |.'. LETTERHEAD A|
00002190: 44 44 52 45 53 53 20 44 41 54 41 00 B7 29 1A 27 |DDRESS DATA..).'|
000021A0: 83 22 D7 49 4C 4C 49 41 4D 20 C3 2E 20 D7 45 42 |.".ILLIAM .. .EB|
000021B0: 42 2C 20 CA 52 2E 22 00 DE 29 24 27 83 22 37 31 |B, .R."..)$'."71|
000021C0: 31 20 D5 4E 44 45 52 57 4F 4F 44 20 C1 56 45 4E |1 .NDERWOOD .VEN|
000021D0: 55 45 2C 20 C1 50 54 2E 20 32 35 2D C2 22 00 01 |UE, .PT. 25-."..|
000021E0: 2A 2E 27 83 22 D0 45 4E 53 41 43 4F 4C 41 2C 20 |*.'.".ENSACOLA, |
000021F0: C6 4C 4F 52 49 44 41 20 20 20 20 33 32 35 30 34 |.LORIDA 32504|
00002200: 22 00 21 2A 60 EA 99 51 39 24 22 20 4E 4F 54 20 |".!*`..Q9$" NOT |
00002210: 46 4F 55 4E 44 22 3A 8D 38 30 30 30 3A 89 31 30 |FOUND":.8000:.10|
00002220: 30 00 3C 2A 48 EE 8F 20 43 4F 4C 4F 52 20 43 48 |0.<*H.. COLOR CH|
00002230: 41 4E 47 45 20 52 4F 55 54 49 4E 45 00 60 2A 49 |ANGE ROUTINE.`*I|
00002240: EE 96 A5 43 28 58 29 B2 C2 28 58 29 AA 31 AA 31 |...C(X)..(X).1.1|
00002250: 36 AC 28 28 C2 28 58 29 AF 31 35 29 B2 31 35 29 |6.((.(X).15).15)|
00002260: 00 7F 2A 4A EE 99 22 13 11 11 11 D4 4F 20 C3 48 |..*J..".....O .H|
00002270: 41 4E 47 45 20 43 4F 4C 4F 52 53 2E 2E 2E 22 00 |ANGE COLORS...".|
00002280: B5 2A 4B EE 99 22 11 11 12 C6 31 92 3D C2 4F 52 |.*K.."....1.=.OR|
00002290: 44 45 52 20 C3 4F 4C 4F 52 20 20 20 20 20 20 12 |DER .OLOR .|
000022A0: C6 33 92 3D C2 41 43 4B 47 52 4F 55 4E 44 20 C3 |.3.=.ACKGROUND .|
000022B0: 4F 4C 4F 52 22 00 E5 2A 4D EE 99 22 11 12 C6 35 |OLOR"..*M.."...5|
000022C0: 92 3D C3 48 41 52 41 43 54 45 52 20 C3 4F 4C 4F |.=.HARACTER .OLO|
000022D0: 52 20 20 20 12 D2 C5 D4 D5 D2 CE 92 3D C4 4F 4E |R ........=.ON|
000022E0: 45 11 11 11 22 00 F7 2A 52 EE A1 43 24 3A 8B 43 |E..."..*R..C$:.C|
000022F0: 24 89 36 31 30 31 30 00 0C 2B 5C EE A1 43 24 3A |$.61010..+\..C$:|
00002300: 8B 43 24 B2 22 22 89 36 31 30 32 30 00 33 2B 66 |.C$."".61020.3+f|
00002310: EE 43 B2 C6 28 43 24 29 3A 8B 43 B2 31 33 35 A7 |.C..(C$):.C.135.|
00002320: 97 36 34 36 2C A5 43 28 36 34 36 29 3A 89 36 31 |.646,.C(646):.61|
00002330: 30 30 32 00 5F 2B 7A EE 43 B2 C6 28 43 24 29 3A |002._+z.C..(C$):|
00002340: 8B 43 B2 31 33 33 B0 43 B2 31 33 34 A7 58 B2 35 |.C.133.C.134.X.5|
00002350: 33 31 34 37 AA 43 3A 97 58 2C A5 43 28 58 29 00 |3147.C:.X,.C(X).|
00002360: 6F 2B 7F EE 8B 43 B2 39 35 89 36 31 30 37 30 00 |o+...C.95.61070.|
00002370: 80 2B 84 EE 8B 43 B3 B1 31 33 89 36 31 30 31 30 |.+...C..13.61010|
00002380: 00 86 2B 8E EE 8E 00 00 00 |..+...... |
..;....9000:. (C) 1982 BY COMMODORE BUSI
NESS MACHINES, INC..J....C$:.C$.20.G....
C$:.C$.." .";:C.F(C$):..V...."..";:.25..
....C$:.C$."".30... .X.F(C$):C.X.127:.C.
13.C.17.C.19.C.20.C.29.C.31...E."..30.O.
(.X$.""...*..#1,C$:.C$.R$.C$.G(141).....
,.X$.X$.C$:.42...D.L.0:LL.L0: 1:. ENTRY.
@.N..". . COMMODORE WORD MACHINE ..
.D.X.."OPTIONS: .C.REATE A DOCUMENT.}..
..,".S.AVE A DOCUMENT......,".R.ECALL A
DOCUMENT......,".P.RINT YOUR DOCUMENT.P.
...,".E.DIT THE DOCUMENT... ..,".G.LOBAL
SEARCH AND REPLACE......,".D.ISPLAY THE
DOCUMENT.1....,".F.ORM LETTER PROCESSIN
G.K....,".Q.UIT THE PROGRAM.}...X$."QDEG
PSFRC":.".WHICH ONE";:.8060:.I.0.8700...
C.J.I:.J.4.250...H..".":. GET SUBJECT...
R..H$."".."DOCUMENT: ."H$:.".(RETURN LEA
VES THE NAME UNCHANGED).....M.61:.".DOCU
MENT NAME:":.8200:.C..13.200.'....:.X$."
".H$.X$.6....H$."".200.M....J.7.T$(0).""
..".NO DOCUMENT IN MEMORY":.8000:.100...
...OF.0.J.7.T$(0)."".280.B....".DOCUMENT
NOT SAVED ... CLEAR MEMORY";:.8050:.I.1
00......J.400,1000,6000,7000,3000,4000,2
000,500...... READ TO SCREEN.....N.39:F.
0:LL.20:TB$."":.1,3:.7080:.100.L...OF.1:
T.0:. WRITE NEW TEXT......".."H$:.:."...
........................................
...C$:.C$.510.....M.M0:.I.T.V:T$(I)."":X
$."".Q....8220:.C.13..:.X$."".530.....T$
(I).X$:.C..92.....&..I.V..I.I.1.V:T$(I).
"":../.X.T.0:L$."":.610:.100:. PACK THE
STRINGS.J.B..:.I.T.V:.T$(I)."".630.P.G.X
$.T$(I):M.M0.C(L$):L$.L$.H(X$,M)...L.X$.
J(X$,M.1):.C(L$).M0.T$(T).L$:."*";:L$.X$
:T.T.1...V...T....:T$(T).L$:.T.V..I.T.1.
V:T$(I)."":..Z.......... EDIT THE TEXT.2
....".WHAT % INTO THE DOCUMENT (0-100)
0...";T:T..(T):.T.99.T.100.N...OF.1:.I.0
.V:.T$(I).""...H...I.I.1:T..(T.I.100..5)
.Y...L.0:.T.V.100.....X$.T$(T):.X$."".19
00...$.P$.H(H$,20):.T.P$.T$(T.1).T....".
."I(P$,20):.".".29)".BLOCK"T...8..".....
........................................
....B..C$:.C$.1090.3.L.. & SET CURSOR (A
,D)._.V.."..."H(X$,L):."...".L)" .."J(X$
,L.1,1)...J.."...".L.1)J(X$,L.2)H(B$,M0.
C(X$)):."........30:.X.92.T$(T).X$:.600:
. END......X.29.L.L.(L.1.C(X$)):.1100:.
CURSOR RIGHT...D..C.29.L.L.(L.0):.1100:.
CURSOR LEFT.6.N..X.17.L.L.40.(L.40.C(X$
)):.1100:. CURSOR DOWN.`.X..C.17.L.L.40.
(L.39):.1100:. CURSOR UP......X.19.L.0:.
1100:. CURSOR HOME......C.19..I.T.V.1:T$
(I).T$(I.1):.:T$(V)."":.1040:. CLEAR....
..X.13.T$(T).X$:T.T.1:.1040:. NEXT BLOCK
......C.13.T$(T).X$:T.T.(T.0):.1040:. PR
IOR BLOCK.,....L..C(X$).1100.P...L$.H(X$
,L):.X.148.1350:. INSERT.....M$.J(X$,L.2
):.C..20.X$.L$.C$.M$:X.29:.1210:. REPLAC
E CHARACTER...2.X$.L$.M$:.X$."".C.19:.12
60:. NULL BLOCK.I.<..1100...F.M$.J(X$,L.
1):."................."M$:."..."L$...K..
"...".C(L$));:M.M0:.8200.E.P.M.M0.C(L$):
L$.L$.H(X$,M):M$.J(X$,M.1).M$...Z.M.M0.C
(L$):T$(T).L$.H(M$,M):L$.J(M$,M.1):M$.""
:.L$."".1050...D.X.T:T.T.1:.610:T.X:.105
0...L.. ADD TO THE END.I.V..T.0.600:. EN
D.....X$.T$(T.1):."."X$:.".".C(X$));:.51
0...P.. INPUT FILE./.U.Q9$."DOCUMENT": .
FOR ERROR MSG IN 60000.S....CF.2..".FRO
M DATASETTE";:.8050.X....CF.2.(CF.2.I.0)
..1,1,0,H$:.2100......1,08,2,H(H$,16):.8
,X,X$:.X.60000.U.4.OF.0:.40:.".READING:
."X$:H$.X$:.40:.X$:.:. HEADER.....X$.G(3
1):.I.0.V:L$."":. INPUT FILE......J.1.M0
:.#1,C$:.ST.J.M0:.2230.J....C$.X$.L$.L$.
C$:. ONLY LEGAL CHARACTERS.N....J:T$(I).
L$:.L$;:.ST.0..I:I.I.1...J.T.I:.650:.800
0:.100......3020:.100:. OUTPUT FILE.E.L.
.CF.2..".TO DATASETTE";:.8050...V..CF.2.
(CF.3.I.0)..1,1,1,H$:.3100.....L$."0:".H
(H$,16):.1,08,2,L$:.8,X,X$: 1:.X.3080.V.
...".DOCUMENT ALREADY EXISTS - REPLACE I
T";:.8050:.I...J....8,"S"L$:.8,"I0......
1,08,3,L$.",S,W":.8,X,X$:.X.Q9$."SPACE":
.60000.....OF.0:.1,H$G(141)D$...N..I.0.V
:.T$(I).""..1,T$(I);:."*";:....X..1,"\";
:.... .. BATCH PROCESSING.*...Q9$."FILE"
: . FOR ERROR MSG IN 60000.N....".";:.CF
.4100,4050:. ELSE BOTH.S...."FROM DATASE
TTE";:.8050:.I.4100...R.. FROM CASSETTE.
.....2,1:.4150...... FROM DISC......".NA
ME MACHINE FILE NAME -...";X$:.X$."-".4
110......2,08,2,X$:.8,X,X$:.X. 2:.60000.
..6.. PREPARE FOR OUTPUT.K.@.TB$."":S2.0
:N.72:F.1:.1,04:S$.".".H(B$,40.N.2).S.J.
.".STANDARD FORMAT";:.8050:.I..7500...H.
. GET THE NAME AND SALUTATION.A.R..2,Z$:
.ST.0.C(Z$).2.4900:. NO LAST NAME...|.L$
."":.7450:X$."":Y$."":M$."GENTLEMEN:....
..2,X$:.C(X$).2.X$."":.4250:. NO FIRST N
AME.;...M$."DEAR ".X$.",":X$.X$." ".E...
.2,Y$:.C(Y$).2.Y$."":.4270:. NO TITLE...
..Y$.Y$." ":M$."DEAR ".Y$.Z$.",.....L$.Y
$.X$.Z$:.2,X$:.C(X$).2.L$.L$.", ".X$....
.Z$.M$:M$."":P$.L$:.7900:. PRINT NAME...
L.. GET ADDRESS...V..2,L$:.C(L$).1.P$.L$
:.7900:. LINE 2.?....2,L$:.C(L$).1.P$.L$
:.7900:. LINE 3.S....2,L$:.2,Y$:.C(Y$).1
.L$.L$.", ".Y$:. STATE, ZIP......C(L$).1
.P$.L$:.7900......I.L.14:.7900:.:L$.Z$:P
$.L$:.7090:.4200.D.$. 2:.100...P.. SEARC
H AND REPLACE...Z.."..SEARCH FOR?":M.40:
.8200:Z$.X$:L.C(X$):.L.0.L.M.6010.A....:
.".REPLACE WITH?":.8200:Y$.X$:.:..H...X$
."":M$."":L$."":T.0:U.0:F.0:OF.1.~.8.. A
TTACH T$ TO X$...B..C(X$)..L.6250...L..T
.V.6400:. ALL T$'S READ.T.V.X$.X$.T$(T):
T$(T)."":T.T.1:.6200...J.. SEARCH FOR MA
TCH...T..I.1.C(X$).L.1:.J(X$,I,L)..Z$..:
J.I:.6300./.~.M$.Y$:J.I.L:.".";.C.... SP
LIT STRINGS.V...M$.H(X$,I.1).M$:X$.J(X$,
J):.6500:.F.6900:.6200...... STOW LAST L
$......6500:.F.6900:. CLEAR M$.R...M$.X$
:.6500:.F.6900:. M$_X$; CLEAR BOTH......
U..V.T.U:.650:.100:. STOW L$, CLEAR HIGH
ER BLOCKS...(..6900.6.D.. CLEAR M$ - STO
W L$ IF NEEDED.L.N.M.M0.C(L$):L$.L$.H(M$
,M):M$.J(M$,M.1):.C(L$).M0...{.X..U..V.6
550......U.T.T$(U).L$:."*.";:U.U.1:L$.M$
:M$."":.......T.V..I.V.T.1..1:T$(I).T$(I
.1):.:T$(T)."":T.T.1:.6530.....F.1:.....
.. ERROR EXIT......:.".OUT OF ROOM - DAT
A IMPAIRED":.8000:.100.E.X.. FORMAT AND
PRINT.T.B..7020:.100.L.L..1,04:F.1:. PRI
NTER...V.S2.1:N.60:TB$."":X$."FID":. DEF
AULTS (DRAFT).Q...."..F.ORMAL, .I.NFORMA
L, OR .D.RAFT";:.8060:J.I......J.2.S2.0:
N.72:.7500.....S$.".".H(B$,40.N.2):.J.0.
7400:. FORMAL.8...L$.".".H$:P$.H$:M$.H(K
$,C(H$)).V...J.0:.".":.7900:.7900:.J....
...T.0:X$."]".TB$:E.0:Z$.B$:. PRINT TEXT
...F..C(X$)..N.X$.X$.T$(T):T.T.1:.C(X$).
.N.T.V.X$.X$."\...K..F(X$).32.X$.J(X$,2)
:.7110:. LEADING BLANKS...P..E.X$."[".X$
.5.Z.L$.H(X$,N.1):P$.L$:J.0:K.0:M$.B$:.I
.1.C(L$):C.F(J(L$,I)).W....C.90.C.96..77
00:.X.I.J:.7160......:.I.C(L$).J.1..1:.J
(L$,I,1)." "..:I.J:.J.0.7990.H...J.0:X$.
J(X$,I.1):L$.H(L$,I.1):P$.H(P$,I.K):M$.H
(M$,I.K)......C.94.C.95.E.0:X$."]".TB$.X
$.. .X.C:.7900:.J.0.X.94.X.92..7950:.J.
0.X.92..." *..7110./ ... FORMAL.A ..L$."
":.7450:.".FOUR ADDRESS LINES":M.N:.I.1.
4.. ..."LINE"I:.8200:.:.C(X$).M..".TOO L
ONG":.7420.. ..P$.X$:.7900:.:.7900:.7900
.T ..."SALUTATION":.8200:P$.X$:.7090..!.
..:M$."":Y$.S$:.I.1.3:.P$:.7490:.:P$.D$:
.7490. !...I.1.5:.7900:.:S$.Y$:..F!B.K.C
(P$):S$.".".H(B$,40.K.2):.7900.^!L.. FOR
MAT VARIATIONS..!V..".STANDARD FORMAT:":
.," SINGLE SPACE..!`..,N"CHARACTERS PER
LINE":.,LL"LINES PER PAGE.U!J..," TAB LE
NGTH ="C(TB$).."T..".DO YOU WANT TO CHAN
GE IT";:.8050:.I...#"~..".SINGLE SPACE";
:.8050:S2.I.S"...".CHARACTERS PER LINE (
20-80) 72 .....";N.N"...N.20.N.80..".."
:.7560.."...".LINES PER PAGE "LL". ....
..";:.LL:.LL.1.."..":.7580.."...".LENGTH
OF TAB";:X$."0123456789":.8060:TB$.H(B$
,I).."....."... ENHANCEMENT.A#(.K.K.1:X.
1:J.I:.C.91.C.93.X.0:E.(C.91):Z$.B$:Y$."
.":.E.Z$.K$:Y$.".._#2.L$.H(L$,I.1).Y$.J(
L$,I.1)..#F.P$.H(P$,I.K).J(L$,I.1):M$.H(
M$,I.K).J(Z$,I.1):...#... LINE OUT..#...
P$."".P$.S$.P$.Q#...L$;:.7930:.J.0.S2.0.
...#...F..:.1,P$;:.M$.B$..1,Q$S$M$;..$..
.1:P$."":L$."":M$."":L.L.1:.L.LL.../$...
F.0..8000:L.0:..\$...L..I.L.LP.1:.1:.:L.
0:. PAGE WITH BLANKS.G$"..".":...$6.J.1:
.".LINE TOO LONG TO PRINT":.7950:...$@..
UTILITIES.P$J..".. HIT A KEY TO CONTINU
E";:.20:.:.".":...$R.X$."YN..$|.."? ";..
%...20:.I.1.C(X$):.C$..J(X$,I,1)..:.8070
..%..I.I.1:.C$;.;%...W$:.W$."".."..";:.8
080.Q%..." .";:.W$.R$..:..J%...W$.G(20).
.W$;:.8070.T%...8080..%. X$."":. INPUT A
STRING. %. .C$:.C$.8210..%. .25:.C.13.C
.92.8290..%& .C.20.X$.""..C$;:X$.H(X$,C(
X$).1):. DELETE..&0 .C.20.8220:. DELETE
ON NULL.8&: .(127.C).32.8220:. CURSOR CO
NTROL CHARACTERS.Q&D .C$;:.C.34..C$G(20)
;.L&N X$.X$.C$:.C(X$).M.8220.R&B ...&.!.
QUIT THE PROGRAM..&."."..EJECT A PAGE F
ROM THE PRINTER";:.8050:.I.8740..&.".1,0
4:F.1:L..1:.7950:. EXPEL A PAGE..&$".OF.
0.T$(0)."".8760.:'.".".DOCUMENT NOT SAVE
D; DO SO NOW";:.8050:.I.0. 1:.3020.P'8"
1:.".GOODBYE!":..X'D".1,04:F.1:L..1:.795
0:. EXPEL A PAGE..'(#. INITIALIZE..'*#.5
3280,0:.53281,0.O'-#LP.66:L0.60:M0.160:Q
$.G(141):R$.G(13):K$."...'2#V..((.(0).20
00).M0):.T$(V)./(<#."...................
...........".39)"..":.59468,14:. FORMAT.
I(A#.53272,2.B(53272):.".. . COMMODO
RE WORD MACHINE ...(C#.61000: . COLOR CH
ANGE..(F#."..T.APE, .D.ISC, OR .B.OTH";:
X$."DTB":.8060:CF.I.1..(P#B$." ":.I.
1.5:B$.B$.B$:.:.8,08,15..)U#.".TODAY'S D
ATE?":M.20:.8200:D$.X$.()Z#K$." ":. 1525
PRINTER.Y)D#. K$="_":Q$=R$+CHR$(27)+"."
:REM 8300 PRINTER.T)X#.I.1.7:K$.K$.K$:.:
.100.}).#.100..).'. LETTERHEAD ADDRESS D
ATA..).'."WILLIAM C. WEBB, JR."..)$'."71
1 UNDERWOOD AVENUE, APT. 25-B"..*.'."PEN
SACOLA, FLORIDA 32504".!*`..Q9$" NOT
FOUND":.8000:.100.<*H.. COLOR CHANGE ROU
TINE.`*I...C(X).B(X).1.16.((B(X).15).15)
.*J.."....TO CHANGE COLORS..."..*K.."..
.F1.=BORDER COLOR .F3.=BACKGROUND C
OLOR"..*M.."..F5.=CHARACTER COLOR .RET
URN.=DONE..."..*R..C$:.C$.61010..+\..C$:
.C$."".61020.3+F.C.F(C$):.C.135..646,.C(
646):.61002._+Z.C.F(C$):.C.133.C.134.X.5
3147.C:.X,.C(X).O+..C.95.61070..+...C..
13.61010..+......
> CLICK IMAGE PREVIEW FOR FULL MODAL