_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

Multiple names: WORD PRO 64.C, WORD PRO 64

FILE INFORMATION

FILENAME(S):
• WORD&nbspPRO&nbsp64.C<br>• WORD&nbspPRO&nbsp64

FILE TYPE(S): PRG

FILE SIZE: 5K

FIRST SEEN: 2025-11-30 01:08:00

APPEARS ON: 6 disk(s)

FILE HASH

b3b7488f08185853b9f386e0759f6df82355cc6f356ca44ab8d427107677aa76

FOUND ON DISKS (6 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
FREESOFT DISK NR WORD PRO 64.C PRG Treasure Chest - Wolfgang Rauprich 3 5 DOWNLOAD FILE
U TILITIE WORD PRO 64.C PRG Treasure Chest - Wolfgang Rauprich 3 5 DOWNLOAD FILE
TPUG DEC 83 C WORD PRO 64.C PRG DuncanTwain 5 1 DOWNLOAD FILE
A Y A OF ACME WORD PRO 64.C PRG hedning, loot 12 0 DOWNLOAD FILE
CCS64 1 2 WORD PRO 64 PRG hedning, Mattias H00r 16 0 DOWNLOAD FILE
CCS 64 1 WORD PRO 64 PRG hedning, Mattias H00r 16 0 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 0A 08 64 00 89 34  30 30 00 2F 08 6E 00 99  |....d..400./.n..|
00000010: 22 11 12 20 50 52 45 53  53 20 53 50 41 43 45 20  |".. PRESS SPACE |
00000020: 42 41 52 20 57 48 45 4E  20 52 45 41 44 59 22 00  |BAR WHEN READY".|
00000030: 44 08 78 00 A1 41 24 3A  8B 41 24 B3 B1 22 20 22  |D.x..A$:.A$.." "|
00000040: A7 31 32 30 00 4A 08 82  00 8E 00 64 08 87 00 8F  |.120.J.....d....|
00000050: 20 2A 2A 2A 45 44 49 54  20 52 4F 55 54 49 4E 45  | ***EDIT ROUTINE|
00000060: 53 2A 2A 2A 00 81 08 8C  00 99 22 93 11 11 11 22  |S***......"...."|
00000070: 3B 3A 81 49 B2 30 A4 39  3A 8B 4E AA 49 B1 43 A7  |;:.I.0.9:.N.I.C.|
00000080: 8E 00 A6 08 96 00 99 4E  AA 49 3B C9 28 41 24 28  |.......N.I;.(A$(|
00000090: 4E AA 49 29 2C C3 28 41  24 28 4E AA 49 29 29 AB  |N.I),.(A$(N.I)).|
000000A0: 31 29 3A 82 3A 8E 00 D4  08 A0 00 99 22 13 11 1D  |1):.:......."...|
000000B0: 1D 22 C7 28 33 34 29 C7  28 33 34 29 C7 28 32 30  |.".(34).(34).(20|
000000C0: 29 22 13 11 11 22 A6 41  AA 32 29 22 5E 13 11 1D  |)"...".A.2)"^...|
000000D0: 1D 1D 22 3B 00 E9 08 AA  00 97 36 33 31 2C 32 39  |..";......631,29|
000000E0: 3A 97 31 39 38 2C 31 3A  8E 00 0C 09 B4 00 99 22  |:.198,1:......."|
000000F0: 13 12 4D 41 58 22 3B 41  3B 22 43 48 41 52 41 43  |..MAX";A;"CHARAC|
00000100: 54 45 52 53 2F 4C 49 4E  45 22 3A 8E 00 3C 09 BE  |TERS/LINE":..<..|
00000110: 00 99 22 93 12 22 41 24  22 20 4E 4F 54 20 50 4F  |..".."A$" NOT PO|
00000120: 53 49 42 4C 45 20 4D 45  4D 4F 52 59 20 46 55 4C  |SIBLE MEMORY FUL|
00000130: 4C 22 3A 8D 31 31 30 3A  89 39 30 30 00 59 09 D2  |L":.110:.900.Y..|
00000140: 00 A1 41 24 3A 8B 41 24  B3 B1 22 59 22 AF 41 24  |..A$:.A$.."Y".A$|
00000150: B3 B1 22 4E 22 A7 32 31  30 00 5F 09 DC 00 8E 00  |.."N".210._.....|
00000160: 7C 09 F0 00 46 52 B2 B8  28 30 29 AB 28 B8 28 30  ||...FR..(0).(.(0|
00000170: 29 B3 30 29 AC 36 35 35  33 36 3A 8E 00 93 09 04  |).0).65536:.....|
00000180: 01 8F 20 2A 2A 2A 54 41  50 45 20 46 49 4C 45 53  |.. ***TAPE FILES|
00000190: 2A 2A 2A 00 D4 09 0E 01  99 22 93 4E 41 4D 45 20  |***......".NAME |
000001A0: 4F 46 20 46 49 4C 45 20  5F 5F 5F 5F 5F 20 49 46  |OF FILE _____ IF|
000001B0: 20 4E 4F 20 4E 41 4D 45  20 48 49 54 22 3A 85 22  | NO NAME HIT":."|
000001C0: 20 20 20 52 45 54 55 52  4E 20 1D 1D DF 9D 9D 9D  |   RETURN ......|
000001D0: 22 3B 41 24 00 E6 09 18  01 8B 41 24 B2 22 DF 22  |";A$......A$."."|
000001E0: A7 41 24 B2 22 22 00 FE  09 27 01 97 37 38 38 2C  |.A$.""...'..788,|
000001F0: 34 39 3A 9F 31 2C 31 2C  42 2C 41 24 3A 8E 00 2C  |49:.1,1,B,A$:..,|
00000200: 0A 2C 01 42 B2 31 3A 8D  32 37 30 3A 81 49 B2 31  |.,.B.1:.270:.I.1|
00000210: A4 43 3A 98 31 2C C7 28  33 34 29 AA 41 24 28 49  |.C:.1,.(34).A$(I|
00000220: 29 3A 82 3A A0 31 3A 89  31 34 30 30 00 62 0A 40  |):.:.1:.1400.b.@|
00000230: 01 44 B2 AB 31 3A 8D 33  33 30 3A 43 B2 43 AB 31  |.D..1:.330:C.C.1|
00000240: 3A 81 49 B2 42 A4 43 3A  41 24 28 49 29 B2 41 24  |:.I.B.C:A$(I).A$|
00000250: 28 49 AA 31 29 3A 82 3A  41 24 28 49 29 B2 22 22  |(I.1):.:A$(I).""|
00000260: 3A 8E 00 85 0A 4A 01 4C  B2 4C AA C3 28 41 24 28  |:....J.L.L..(A$(|
00000270: 42 29 29 AC 44 3A 8B 4C  B1 2E 37 AC 59 B0 43 B2  |B)).D:.L..7.Y.C.|
00000280: 4D A7 45 B2 32 00 8B 0A  54 01 8E 00 BF 0A 5E 01  |M.E.2...T.....^.|
00000290: 52 B2 30 3A 44 B2 44 AA  31 3A 8B 44 B1 4E A7 44  |R.0:D.D.1:.D.N.D|
000002A0: B2 32 3A 8B 51 B2 30 A7  8E 20 8F 20 2A 2A 2A 4A  |.2:.Q.0.. . ***J|
000002B0: 55 53 54 49 46 49 43 41  54 49 4F 4E 2A 2A 2A 00  |USTIFICATION***.|
000002C0: D7 0A 68 01 8B CA 28 41  24 2C 44 2C 31 29 B3 B1  |..h...(A$,D,1)..|
000002D0: 22 20 22 A7 52 B2 31 00  E2 0A 72 01 8B 51 B2 52  |" ".R.1...r..Q.R|
000002E0: A7 8E 00 EB 0A 7C 01 89  33 35 30 00 0A 0B 86 01  |.....|..350.....|
000002F0: 8F 20 2A 2A 2A 49 4E 49  54 49 41 4C 49 5A 45 20  |. ***INITIALIZE |
00000300: 50 52 4F 47 52 41 4D 2A  2A 2A 00 41 0B 90 01 97  |PROGRAM***.A....|
00000310: 37 38 38 2C 35 32 3A 99  22 93 05 22 C7 28 31 34  |788,52:."..".(14|
00000320: 32 29 3A 85 22 4D 41 58  20 4C 49 4E 45 20 4C 45  |2):."MAX LINE LE|
00000330: 4E 47 48 54 22 3B 41 3A  8B 41 B2 30 A7 41 B2 37  |NGHT";A:.A.0.A.7|
00000340: 30 00 4F 0B 9A 01 8B 41  B1 37 30 A7 34 30 30 00  |0.O....A.70.400.|
00000350: 72 0B AE 01 99 22 11 12  41 55 54 4F 4D 41 54 49  |r...."..AUTOMATI|
00000360: 43 20 43 41 52 52 49 41  47 45 20 52 45 54 55 52  |C CARRIAGE RETUR|
00000370: 4E 22 00 94 0B B8 01 99  22 42 45 54 57 45 45 4E  |N"......"BETWEEN|
00000380: 20 50 4F 53 49 54 49 4F  4E 20 22 41 AB 37 22 41  | POSITION "A.7"A|
00000390: 4E 44 22 41 00 B6 0B C2  01 85 22 11 4E 55 4D 42  |ND"A......".NUMB|
000003A0: 45 52 20 4F 46 20 54 41  42 53 22 3B 54 3A 8B 54  |ER OF TABS";T:.T|
000003B0: B2 30 A7 35 31 30 00 CB  0B CC 01 8B 54 B1 31 30  |.0.510......T.10|
000003C0: A7 99 22 93 22 3B 3A 89  34 35 30 00 E8 0B D6 01  |..".";:.450.....|
000003D0: 99 22 11 44 45 46 49 4E  45 20 54 41 42 20 50 4F  |.".DEFINE TAB PO|
000003E0: 53 49 54 49 4F 4E 53 22  00 08 0C E0 01 99 22 42  |SITIONS"......"B|
000003F0: 45 54 57 45 45 4E 20 31  20 41 4E 44 20 22 41 3A  |ETWEEN 1 AND "A:|
00000400: 99 3A 81 49 B2 31 A4 54  00 2F 0C EA 01 99 22 12  |.:.I.1.T./....".|
00000410: 54 41 42 20 4E 4F 2E 22  3B 49 3B 3A 85 54 25 28  |TAB NO.";I;:.T%(|
00000420: 49 29 3A 8B 54 25 28 49  29 B1 41 A7 34 39 30 00  |I):.T%(I).A.490.|
00000430: 35 0C F4 01 82 00 66 0C  FE 01 8D 32 34 30 3A 4D  |5.....f....240:M|
00000440: B2 B5 28 46 52 AD 41 29  AA 31 30 3A 5A B2 B5 28  |..(FR.A).10:Z..(|
00000450: 2E 39 AC 4D 29 3A 86 41  24 28 4D 29 3A 8D 32 34  |.9.M):.A$(M):.24|
00000460: 30 3A 59 B2 46 52 00 86  0C 03 02 43 B2 31 3A 44  |0:Y.FR.....C.1:D|
00000470: B2 30 3A 45 B2 30 3A 41  24 28 31 29 B2 22 11 22  |.0:E.0:A$(1)."."|
00000480: 3A 89 31 34 30 30 00 A3  0C 06 02 8F 20 2A 2A 2A  |:.1400...... ***|
00000490: 20 52 45 41 44 20 46 52  4F 4D 20 54 41 50 45 20  | READ FROM TAPE |
000004A0: 2A 2A 2A 00 B0 0C 08 02  42 B2 30 3A 8D 32 37 30  |***.....B.0:.270|
000004B0: 00 D1 0C 12 02 81 43 B2  31 A4 5A 3A 84 31 2C 41  |......C.1.Z:.1,A|
000004C0: 24 28 43 29 3A 4C B2 4C  AA C3 28 41 24 28 43 29  |$(C):L.L..(A$(C)|
000004D0: 29 00 06 0D 1C 02 8B 53  54 B2 36 34 A7 99 22 93  |)......ST.64..".|
000004E0: 46 49 4C 45 20 22 3B 41  24 3B 22 20 20 20 20 20  |FILE ";A$;"     |
000004F0: 20 20 46 4F 55 4E 44 92  22 3A 8D 31 31 30 3A A0  |  FOUND.":.110:.|
00000500: 31 3A 89 38 38 30 00 16  0D 26 02 8B 4C B1 2E 37  |1:.880...&..L..7|
00000510: AC 59 A7 38 37 30 00 27  0D 30 02 82 3A 43 B2 43  |.Y.870.'.0..:C.C|
00000520: AB 31 3A 89 38 37 30 00  42 0D 44 02 8F 20 2A 2A  |.1:.870.B.D.. **|
00000530: 2A 20 54 45 58 54 20 57  52 49 54 49 4E 47 20 2A  |* TEXT WRITING *|
00000540: 2A 2A 00 5D 0D 4E 02 97  32 30 34 2C 31 3A 99 C7  |**.].N..204,1:..|
00000550: 28 31 34 29 22 93 22 41  24 28 43 29 3B 00 70 0D  |(14)"."A$(C);.p.|
00000560: 58 02 A1 41 24 3A 8B 41  24 B2 22 22 A7 36 30 30  |X..A$:.A$."".600|
00000570: 00 8A 0D 62 02 49 B2 C6  28 41 24 29 AF 31 32 37  |...b.I..(A$).127|
00000580: 3A 8B 49 B2 31 33 A7 37  35 30 00 BD 0D 6C 02 8B  |:.I.13.750...l..|
00000590: 28 44 B2 31 AF 41 24 B2  22 20 22 29 B0 49 B2 33  |(D.1.A$." ").I.3|
000005A0: B0 49 B2 31 37 B0 49 B2  31 39 B0 49 B2 31 38 B0  |.I.17.I.19.I.18.|
000005B0: 49 B2 32 39 B0 49 B2 33  34 A7 36 30 30 00 DC 0D  |I.29.I.34.600...|
000005C0: 76 02 44 B2 30 3A 8B C6  28 41 24 29 B2 31 33 33  |v.D.0:..(A$).133|
000005D0: A7 99 22 93 22 3B 3A 89  31 34 30 30 00 EF 0D 80  |..".";:.1400....|
000005E0: 02 8B 41 24 B2 22 2C 22  A7 41 24 B2 22 2C 22 00  |..A$.",".A$.",".|
000005F0: 00 0E 8A 02 8B 49 B2 35  39 A7 41 24 B2 22 3B 22  |.....I.59.A$.";"|
00000600: 00 13 0E 94 02 8B 41 24  B2 22 3B 22 A7 41 24 B2  |......A$.";".A$.|
00000610: 22 3B 22 00 26 0E 9E 02  8B 41 24 B2 22 3A 22 A7  |";".&....A$.":".|
00000620: 41 24 B2 22 3A 22 00 34  0E A8 02 8B 49 B2 39 35  |A$.":".4....I.95|
00000630: A7 38 33 30 00 4F 0E B2  02 8B 49 B3 B1 32 30 AF  |.830.O....I..20.|
00000640: 49 B3 B1 39 34 A7 99 41  24 3B 3A 89 37 39 30 00  |I..94..A$;:.790.|
00000650: 63 0E BC 02 8B C3 28 41  24 28 43 29 29 B2 31 A7  |c.....(A$(C)).1.|
00000660: 37 32 30 00 8E 0E C6 02  41 24 28 43 29 B2 C8 28  |720.....A$(C)..(|
00000670: 41 24 28 43 29 2C C3 28  41 24 28 43 29 29 AB 31  |A$(C),.(A$(C)).1|
00000680: 29 3A 99 C7 28 32 30 29  3B 3A 89 36 30 30 00 AE  |):..(20);:.600..|
00000690: 0E D0 02 41 24 28 43 29  B2 22 22 3A 43 B2 43 AB  |...A$(C)."":C.C.|
000006A0: 31 3A 4C B2 4C AB C3 28  41 24 28 43 29 29 00 C8  |1:L.L..(A$(C))..|
000006B0: 0E DA 02 8B C3 28 41 24  28 43 29 29 B1 33 39 A7  |.....(A$(C)).39.|
000006C0: 99 22 92 20 9D 91 22 3B  00 ED 0E E4 02 99 22 92  |.". ..";......".|
000006D0: 20 9D 91 22 C9 28 41 24  28 43 29 2C C3 28 41 24  | ..".(A$(C),.(A$|
000006E0: 28 43 29 29 AB 31 29 3B  3A 89 36 30 30 00 1A 0F  |(C)).1);:.600...|
000006F0: EE 02 8B C3 28 41 24 28  43 29 29 B3 B2 33 39 A7  |....(A$(C))..39.|
00000700: 58 B2 32 32 35 AA C2 28  32 31 34 29 3A 97 58 2C  |X.225..(214):.X,|
00000710: 28 C2 28 58 29 B0 31 32  38 29 00 3B 0F F8 02 99  |(.(X).128).;....|
00000720: 22 92 20 22 C7 28 31 33  29 3B 3A 45 B2 30 3A 4C  |". ".(13);:E.0:L|
00000730: B2 4C AA C3 28 41 24 28  43 29 29 00 55 0F 02 03  |.L..(A$(C)).U...|
00000740: 8B 43 B2 5A B0 4C B1 2E  38 AC 59 A7 99 22 93 22  |.C.Z.L..8.Y.."."|
00000750: 3A 89 38 36 30 00 6E 0F  0C 03 43 B2 43 AA 31 3A  |:.860.n...C.C.1:|
00000760: 41 24 28 43 29 B2 22 11  22 3A 89 36 30 30 00 8F  |A$(C).".":.600..|
00000770: 0F 16 03 8B 45 B2 30 AF  C3 28 41 24 28 43 29 29  |....E.0..(A$(C))|
00000780: B1 41 AB 37 AF 41 24 B2  22 20 22 A7 38 32 30 00  |.A.7.A$." ".820.|
00000790: A2 0F 20 03 41 24 28 43  29 B2 41 24 28 43 29 AA  |.. .A$(C).A$(C).|
000007A0: 41 24 00 B9 0F 2A 03 8B  C3 28 41 24 28 43 29 29  |A$...*...(A$(C))|
000007B0: B3 41 AA 31 A7 36 30 30  2E 00 C6 0F 34 03 44 B2  |.A.1.600....4.D.|
000007C0: 31 3A 89 37 36 30 00 E9  0F 3E 03 81 51 B2 31 A4  |1:.760...>..Q.1.|
000007D0: 54 3A 8B C2 28 32 31 31  29 B1 B2 54 25 28 51 29  |T:..(211)..T%(Q)|
000007E0: AB 31 A7 82 3A 89 36 30  30 00 1D 10 48 03 50 B2  |.1..:.600...H.P.|
000007F0: 54 25 28 51 29 AB C2 28  32 31 31 29 AB 31 3A 81  |T%(Q)..(211).1:.|
00000800: 57 B2 31 A4 50 3A 41 24  28 43 29 B2 41 24 28 43  |W.1.P:A$(C).A$(C|
00000810: 29 AA 22 20 22 3A 99 22  20 22 3B 3A 82 00 35 10  |)." ":." ";:..5.|
00000820: 52 03 45 B2 28 51 B2 54  29 AC 28 54 B3 B1 31 29  |R.E.(Q.T).(T..1)|
00000830: 3A 89 36 30 30 00 56 10  5C 03 8F 20 2A 2A 2A 44  |:.600.V.\.. ***D|
00000840: 49 53 50 4C 41 59 2F 45  44 49 54 20 52 4F 55 54  |ISPLAY/EDIT ROUT|
00000850: 49 4E 45 2A 2A 2A 00 70  10 66 03 99 22 93 4D 45  |INE***.p.f..".ME|
00000860: 4D 4F 52 59 20 46 55 4C  4C 2E 22 3A 8D 31 31 30  |MORY FULL.":.110|
00000870: 00 76 10 70 03 8F 00 9A  10 7A 03 4E B2 31 3A 85  |.v.p.....z.N.1:.|
00000880: 22 12 53 54 41 52 54 49  4E 47 20 4C 49 4E 45 23  |".STARTING LINE#|
00000890: 22 3B 4E 3A 99 C7 28 31  34 29 00 AD 10 84 03 8D  |";N:..(14)......|
000008A0: 31 34 30 3A 8B 49 B2 30  A7 31 34 30 30 00 D8 10  |140:.I.0.1400...|
000008B0: 8E 03 99 3A 99 22 12 C3  92 48 41 4E 47 45 20 12  |...:."...HANGE .|
000008C0: C4 92 45 4C 45 54 45 20  12 C9 92 4E 53 45 52 54  |..ELETE ...NSERT|
000008D0: 20 12 CC 92 49 4E 4B 22  00 00 11 98 03 99 22 11  | ...INK"......".|
000008E0: 20 20 45 12 D8 92 49 54  20 20 20 12 C6 92 4F 52  |  E...IT   ...OR|
000008F0: 57 41 52 44 20 20 12 D2  92 45 56 45 52 53 45 22  |WARD  ...EVERSE"|
00000900: 00 3F 11 A2 03 A1 41 24  3A 8B 28 41 24 B2 22 52  |.?....A$:.(A$."R|
00000910: 22 AF 4E B1 31 30 29 B0  41 24 B2 22 46 22 A7 4E  |".N.10).A$."F".N|
00000920: B2 4E AA 31 30 AC 28 41  24 B2 22 52 22 29 AB 31  |.N.10.(A$."R").1|
00000930: 30 AC 28 41 24 B2 22 46  22 29 3A 89 39 30 30 00  |0.(A$."F"):.900.|
00000940: 50 11 AC 03 8B 41 24 B2  22 58 22 A7 31 34 30 30  |P....A$."X".1400|
00000950: 00 81 11 B6 03 8B 41 24  B2 22 22 B0 28 41 24 B3  |......A$."".(A$.|
00000960: B1 22 44 22 AF 41 24 B3  B1 22 43 22 AF 41 24 B3  |."D".A$.."C".A$.|
00000970: B1 22 49 22 AF 41 24 B3  B1 22 4C 22 29 A7 39 33  |."I".A$.."L").93|
00000980: 30 00 8C 11 C0 03 99 22  12 22 41 24 00 9C 11 CA  |0......"."A$....|
00000990: 03 85 22 CC 49 4E 45 23  20 22 3B 42 00 AD 11 DE  |..".INE# ";B....|
000009A0: 03 8B 42 B1 43 B0 42 B3  30 A7 39 37 30 00 BA 11  |..B.C.B.0.970...|
000009B0: E3 03 8B 42 B2 30 A7 38  39 30 00 CB 11 E8 03 99  |...B.0.890......|
000009C0: 22 93 12 4C 49 4E 45 20  23 22 42 00 E1 11 F2 03  |"..LINE #"B.....|
000009D0: 8B 41 24 B2 22 44 22 A7  8D 33 32 30 3A 89 39 30  |.A$."D"..320:.90|
000009E0: 30 00 F2 11 FC 03 8B 41  24 B2 22 49 22 89 31 30  |0......A$."I".10|
000009F0: 38 30 00 03 12 06 04 8B  41 24 B2 22 4C 22 A7 31  |80......A$."L".1|
00000A00: 31 32 30 00 25 12 10 04  8B 45 B2 32 A7 8B 46 52  |120.%....E.2..FR|
00000A10: B3 32 35 30 A7 41 24 B2  22 43 48 41 4E 47 45 22  |.250.A$."CHANGE"|
00000A20: 3A 89 31 39 30 00 57 12  1A 04 44 B2 AB 31 3A 8D  |:.190.W...D..1:.|
00000A30: 33 33 30 3A 8D 31 36 30  3A 99 C9 28 41 24 28 42  |330:.160:..(A$(B|
00000A40: 29 2C C3 28 41 24 28 42  29 29 AB 31 29 3B 3A 85  |),.(A$(B)).1);:.|
00000A50: 22 13 11 22 3B 41 24 00  6F 12 24 04 8B C3 28 41  |"..";A$.o.$...(A|
00000A60: 24 29 B1 41 A7 8D 31 38  30 3A 89 31 30 35 30 00  |$).A..180:.1050.|
00000A70: 8E 12 2E 04 41 24 28 42  29 B2 22 11 22 AA 41 24  |....A$(B).".".A$|
00000A80: 3A 44 B2 31 3A 8D 33 33  30 3A 89 39 30 30 00 B3  |:D.1:.330:.900..|
00000A90: 12 38 04 8B 45 B2 32 A7  8B 52 B3 33 30 30 B0 43  |.8..E.2..R.300.C|
00000AA0: B2 4D A7 41 24 B2 22 49  4E 53 45 52 54 22 3A 89  |.M.A$."INSERT":.|
00000AB0: 31 39 30 00 D7 12 42 04  81 49 B2 43 A4 42 A9 AB  |190...B..I.C.B..|
00000AC0: 31 3A 41 24 28 49 AA 31  29 B2 41 24 28 49 29 3A  |1:A$(I.1).A$(I):|
00000AD0: 82 3A 43 B2 43 AA 31 00  FD 12 4C 04 8D 31 36 30  |.:C.C.1...L..160|
00000AE0: 3A 85 22 13 11 22 3B 41  24 3A 8B C3 28 41 24 29  |:."..";A$:..(A$)|
00000AF0: B1 41 A7 8D 31 38 30 3A  89 31 31 30 30 00 07 13  |.A..180:.1100...|
00000B00: 56 04 89 31 30 37 30 00  45 13 60 04 81 52 B2 42  |V..1070.E.`..R.B|
00000B10: A4 43 AB 31 3A 41 24 B2  41 24 28 52 29 3A 45 24  |.C.1:A$.A$(R):E$|
00000B20: B2 41 24 28 52 AA 31 29  3A 57 B2 C3 28 41 24 29  |.A$(R.1):W..(A$)|
00000B30: 3A 4B B2 C3 28 45 24 29  3A 8B 4B B3 32 B0 57 B2  |:K..(E$):.K.2.W.|
00000B40: 31 A7 39 30 30 00 57 13  6A 04 8B 57 B1 41 AB 37  |1.900.W.j..W.A.7|
00000B50: A7 82 3A 89 39 30 30 00  6E 13 74 04 8B CA 28 45  |..:.900.n.t...(E|
00000B60: 24 2C 32 2C 31 29 B2 22  20 22 A7 39 30 30 00 80  |$,2,1)." ".900..|
00000B70: 13 7E 04 8B 4B B3 41 AB  36 AB 57 A7 31 31 38 30  |.~..K.A.6.W.1180|
00000B80: 00 AD 13 88 04 81 42 B2  41 AB 35 AB 57 A4 4B AB  |......B.A.5.W.K.|
00000B90: 31 3A 8B CA 28 45 24 2C  42 2C 31 29 B2 22 20 22  |1:..(E$,B,1)." "|
00000BA0: B0 42 B1 41 AA 31 AB 57  A7 31 31 39 30 00 B3 13  |.B.A.1.W.1190...|
00000BB0: 92 04 82 00 E1 13 9C 04  41 24 28 52 29 B2 41 24  |........A$(R).A$|
00000BC0: AA 22 20 22 AA C9 28 45  24 2C 4B AB 31 29 3A 42  |." "..(E$,K.1):B|
00000BD0: B2 52 AA 31 3A 8D 33 32  30 3A 82 52 3A 89 39 30  |.R.1:.320:.R:.90|
00000BE0: 30 00 16 14 A6 04 41 24  28 52 29 B2 41 24 AA 22  |0.....A$(R).A$."|
00000BF0: 20 22 AA CA 20 28 45 24  2C 32 2C 42 AB 32 29 3A  | ".. (E$,2,B.2):|
00000C00: 8B CA 28 45 24 2C 42 AA  31 2C 31 29 B2 22 20 22  |..(E$,B.1,1)." "|
00000C10: A7 42 B2 42 AA 31 00 38  14 B0 04 41 24 28 52 AA  |.B.B.1.8...A$(R.|
00000C20: 31 29 B2 22 11 22 AA C9  28 45 24 2C 4B AB 42 29  |1)."."..(E$,K.B)|
00000C30: 3A 82 52 3A 89 39 30 30  00 56 14 CE 04 8F 20 2A  |:.R:.900.V.... *|
00000C40: 2A 2A 20 50 52 49 4E 54  45 52 20 52 4F 55 54 49  |** PRINTER ROUTI|
00000C50: 4E 45 20 2A 2A 2A 00 83  14 D8 04 99 22 93 12 54  |NE ***......"..T|
00000C60: 55 52 4E 20 4F 4E 20 50  52 49 4E 54 45 52 22 3A  |URN ON PRINTER":|
00000C70: 8D 31 31 30 3A 97 37 38  38 2C 34 39 3A 9F 34 2C  |.110:.788,49:.4,|
00000C80: 34 2C 37 00 BB 14 DD 04  47 B2 30 3A 99 22 12 11  |4,7.....G.0:."..|
00000C90: 43 4F 4E 46 49 47 55 52  45 20 50 52 49 4E 54 20  |CONFIGURE PRINT |
00000CA0: 52 4F 55 54 49 4E 45 3F  22 3A 8D 32 31 30 3A 8B  |ROUTINE?":.210:.|
00000CB0: 41 24 B2 22 4E 22 A7 31  32 38 30 00 E8 14 E2 04  |A$."N".1280.....|
00000CC0: 99 22 93 12 11 44 4F 55  42 4C 45 20 4C 49 4E 45  |."...DOUBLE LINE|
00000CD0: 2D 46 45 45 44 3F 22 3A  8D 20 32 31 30 3A 53 B2  |-FEED?":. 210:S.|
00000CE0: 28 41 24 B2 22 59 22 29  00 09 15 EC 04 85 22 12  |(A$."Y")......".|
00000CF0: 11 4D 41 58 2E 20 4C 49  4E 45 53 2F 50 41 47 45  |.MAX. LINES/PAGE|
00000D00: 1D 1D BF 9D 9D 9D 22 3B  48 00 27 15 F6 04 85 22  |......";H.'...."|
00000D10: 11 12 4C 45 46 54 20 4D  41 52 47 49 4E 1D 1D BF  |..LEFT MARGIN...|
00000D20: 9D 9D 9D 22 3B 51 24 00  65 15 00 05 99 22 12 11  |...";Q$.e...."..|
00000D30: 11 4A 55 53 54 49 46 49  43 41 54 49 4F 4E 3F 22  |.JUSTIFICATION?"|
00000D40: 3A 8D 32 31 30 3A 42 24  B2 41 24 3A 44 B2 31 3A  |:.210:B$.A$:D.1:|
00000D50: 99 22 93 0E 22 3A 81 49  B2 31 A4 43 3A 41 24 B2  |."..":.I.1.C:A$.|
00000D60: 41 24 28 49 29 00 8F 15  05 05 4E B2 C3 28 41 24  |A$(I).....N..(A$|
00000D70: 29 3A 50 B2 C3 28 41 24  28 49 AA 31 29 29 3A 8B  |):P..(A$(I.1)):.|
00000D80: 42 24 B2 22 4E 22 B0 49  B2 43 A7 31 33 34 30 00  |B$."N".I.C.1340.|
00000D90: B9 15 0A 05 8B 50 B3 B1  31 A7 8B CA 28 41 24 28  |.....P..1...(A$(|
00000DA0: 49 AA 31 29 2C 32 2C 31  29 B3 B1 22 20 22 AF 4E  |I.1),2,1).." ".N|
00000DB0: B1 41 AB 37 A7 31 33 31  30 00 C3 15 14 05 89 31  |.A.7.1310......1|
00000DC0: 33 34 30 00 D3 15 1E 05  8B 4E B2 41 AA 31 A7 31  |340......N.A.1.1|
00000DD0: 33 34 30 00 F3 15 28 05  51 B2 31 3A 8D 33 35 30  |340...(.Q.1:.350|
00000DE0: 3A 51 B2 30 3A 8D 33 35  30 3A 8B 44 B2 32 A7 31  |:Q.0:.350:.D.2.1|
00000DF0: 33 32 30 00 1C 16 32 05  41 24 B2 C8 28 41 24 2C  |320...2.A$..(A$,|
00000E00: 44 29 AA 22 20 22 AA CA  28 41 24 2C 44 AA 31 29  |D)." "..(A$,D.1)|
00000E10: 3A 4E B2 4E AA 31 3A 89  31 33 31 30 00 4B 16 3C  |:N.N.1:.1310.K.<|
00000E20: 05 99 C9 28 41 24 2C 4E  AB 31 29 3A 98 34 2C 43  |...(A$,N.1):.4,C|
00000E30: 48 52 28 31 36 29 28 51  24 29 41 24 3A 47 B2 47  |HR(16)(Q$)A$:G.G|
00000E40: AA 31 3A 8B 53 B2 AB 31  A7 98 34 00 5A 16 46 05  |.1:.S..1..4.Z.F.|
00000E50: 8B 47 B3 B1 48 A7 31 33  37 30 00 89 16 50 05 99  |.G..H.1370...P..|
00000E60: 22 12 93 4D 41 58 2E 22  3B 48 3B 22 4C 49 4E 45  |"..MAX.";H;"LINE|
00000E70: 53 2F 50 41 47 45 22 3A  99 22 11 41 44 4A 55 53  |S/PAGE":.".ADJUS|
00000E80: 54 20 50 41 50 45 52 20  22 00 9B 16 51 05 8D 31  |T PAPER "...Q..1|
00000E90: 31 30 3A 47 B2 30 3A 99  22 93 22 00 A4 16 5A 05  |10:G.0:."."...Z.|
00000EA0: 82 3A A0 34 00 CF 16 78  05 97 37 38 38 2C 35 32  |.:.4...x..788,52|
00000EB0: 3A 99 C7 28 31 34 32 29  3B 22 93 11 20 20 20 20  |:..(142);"..    |
00000EC0: 2A 2A 2A 4D 41 49 4E 20  4D 45 4E 55 2A 2A 2A 00  |***MAIN MENU***.|
00000ED0: E6 16 82 05 99 22 11 20  5B 46 31 5D 20 41 44 44  |.....". [F1] ADD|
00000EE0: 20 20 54 45 58 54 00 02  17 8C 05 99 22 11 20 5B  |  TEXT......". [|
00000EF0: 46 32 5D 20 52 45 41 44  20 46 52 4F 4D 20 54 41  |F2] READ FROM TA|
00000F00: 50 45 00 20 17 96 05 99  22 11 20 5B 46 33 5D 20  |PE. ....". [F3] |
00000F10: 52 45 56 49 45 57 2F 45  44 49 54 20 54 45 58 54  |REVIEW/EDIT TEXT|
00000F20: 00 3F 17 A0 05 99 22 11  20 5B 46 34 5D 20 53 41  |.?....". [F4] SA|
00000F30: 56 45 20 54 45 58 54 20  4F 4E 20 54 41 50 45 00  |VE TEXT ON TAPE.|
00000F40: 5C 17 AA 05 99 22 11 20  5B 46 35 5D 20 50 52 49  |\....". [F5] PRI|
00000F50: 4E 54 20 48 41 52 44 20  43 4F 50 59 00 6E 17 B4  |NT HARD COPY.n..|
00000F60: 05 99 22 11 20 5B 46 36  5D 20 51 55 49 54 00 88  |..". [F6] QUIT..|
00000F70: 17 B9 05 99 22 11 20 5B  46 37 5D 20 49 4E 53 54  |....". [F7] INST|
00000F80: 52 55 43 54 49 4F 4E 53  00 BC 17 BE 05 8D 32 34  |RUCTIONS......24|
00000F90: 30 3A 99 22 11 20 20 12  20 42 59 54 45 53 20 46  |0:.".  . BYTES F|
00000FA0: 52 45 45 20 22 46 52 22  92 11 22 3A 99 22 20 53  |REE "FR"..":." S|
00000FB0: 45 4C 45 43 54 20 46 31  2D 46 36 22 00 D0 17 C8  |ELECT F1-F6"....|
00000FC0: 05 A1 41 24 3A 8B 41 24  B2 22 22 A7 31 34 38 30  |..A$:.A$."".1480|
00000FD0: 00 EC 17 D2 05 8B C2 28  31 39 37 29 B3 33 B0 C2  |.......(197).3..|
00000FE0: 28 31 39 37 29 B1 36 A7  31 34 38 30 00 FC 17 DC  |(197).6.1480....|
00000FF0: 05 58 B2 C6 28 41 24 29  AB 31 33 32 00 27 18 E6  |.X..(A$).132.'..|
00001000: 05 91 58 89 35 39 30 2C  38 39 30 2C 31 32 34 30  |..X.590,890,1240|
00001010: 2C 31 35 35 30 2C 35 32  30 2C 33 30 30 2C 31 35  |,1550,520,300,15|
00001020: 32 30 2C 31 34 38 30 00  35 18 F0 05 97 37 38 38  |20,1480.5....788|
00001030: 2C 34 39 3A 80 00 4E 18  04 06 8F 20 2A 2A 2A 49  |,49:..N.... ***I|
00001040: 4E 53 54 52 55 43 54 49  4F 4E 53 2A 2A 2A 00 83  |NSTRUCTIONS***..|
00001050: 18 0E 06 99 22 93 11 11  12 57 4F 52 44 20 50 52  |...."....WORD PR|
00001060: 4F 92 20 49 53 20 41 20  53 49 4D 50 4C 45 20 45  |O. IS A SIMPLE E|
00001070: 41 53 59 20 12 54 45 58  54 20 50 52 4F 43 45 53  |ASY .TEXT PROCES|
00001080: 53 4F 52 00 97 18 18 06  99 22 12 49 54 20 46 45  |SOR......".IT FE|
00001090: 41 54 55 52 45 53 3A 00  BE 18 2C 06 99 22 11 55  |ATURES:...,..".U|
000010A0: 50 20 54 4F 20 37 30 20  43 48 41 52 41 43 54 45  |P TO 70 CHARACTE|
000010B0: 52 53 2F 4C 49 4E 45 20  28 4D 41 58 2E 29 00 D2  |RS/LINE (MAX.)..|
000010C0: 18 36 06 99 22 55 50 20  54 4F 20 31 30 20 54 41  |.6.."UP TO 10 TA|
000010D0: 42 53 00 F6 18 3B 06 99  22 4A 55 53 54 49 46 49  |BS...;.."JUSTIFI|
000010E0: 43 41 54 49 4F 4E 20 4F  46 20 52 49 47 48 54 20  |CATION OF RIGHT |
000010F0: 4D 41 52 47 49 4E 00 41  19 3C 06 99 22 52 55 4E  |MARGIN.A.<.."RUN|
00001100: 2F 53 54 4F 50 20 44 49  53 41 42 4C 45 44 20 28  |/STOP DISABLED (|
00001110: 57 49 54 48 20 50 4F 4B  45 37 38 38 2C 35 32 20  |WITH POKE788,52 |
00001120: 20 20 20 20 20 20 4E 4F  52 4D 41 4C 20 56 41 4C  |      NORMAL VAL|
00001130: 55 45 20 49 53 20 50 4F  4B 45 37 38 38 2C 34 39  |UE IS POKE788,49|
00001140: 29 00 6B 19 40 06 8D 31  31 30 3A 99 22 93 11 11  |).k.@..110:."...|
00001150: 11 12 4E 4F 54 45 53 20  57 48 45 4E 20 45 4E 54  |..NOTES WHEN ENT|
00001160: 45 52 49 4E 47 20 54 45  58 54 3A 00 84 19 4F 06  |ERING TEXT:...O.|
00001170: 99 22 11 50 52 45 53 53  20 27 5F 27 20 46 4F 52  |.".PRESS '_' FOR|
00001180: 20 54 41 42 00 AB 19 51  06 99 22 55 53 45 20 52  | TAB...Q.."USE R|
00001190: 45 54 55 52 4E 20 4B 45  59 20 54 4F 20 53 54 41  |ETURN KEY TO STA|
000011A0: 52 54 20 4E 45 57 20 4C  49 4E 45 00 CE 19 54 06  |RT NEW LINE...T.|
000011B0: 99 22 55 53 45 20 49 4E  53 54 2F 44 45 4C 20 46  |."USE INST/DEL F|
000011C0: 4F 52 20 43 4F 52 52 45  43 54 49 4F 4E 53 00 F9  |OR CORRECTIONS..|
000011D0: 19 5E 06 99 22 43 55 52  53 4F 52 20 4B 45 59 53  |.^.."CURSOR KEYS|
000011E0: 20 44 4F 20 4E 4F 54 20  57 4F 52 4B 20 49 4E 20  | DO NOT WORK IN |
000011F0: 54 48 49 53 20 4D 4F 44  45 00 28 1A 68 06 99 22  |THIS MODE.(.h.."|
00001200: 57 48 45 4E 20 46 49 4E  49 53 48 45 44 20 57 49  |WHEN FINISHED WI|
00001210: 54 48 20 54 45 58 54 20  50 52 45 53 53 20 5B 46  |TH TEXT PRESS [F|
00001220: 31 5D 22 3A 8D 31 31 30  00 45 1A 72 06 99 22 93  |1]":.110.E.r..".|
00001230: 11 11 12 52 45 56 49 45  57 2F 45 44 49 54 20 4E  |...REVIEW/EDIT N|
00001240: 4F 54 45 53 3A 00 7A 1A  77 06 99 22 28 43 55 52  |OTES:.z.w.."(CUR|
00001250: 53 4F 52 20 43 4F 4E 54  52 4F 4C 20 4B 45 59 53  |SOR CONTROL KEYS|
00001260: 20 43 41 4E 20 42 45 20  55 53 45 44 20 49 4E 20  | CAN BE USED IN |
00001270: 54 48 49 53 20 4D 4F 44  45 29 00 92 1A 7C 06 99  |THIS MODE)...|..|
00001280: 22 11 50 52 45 53 53 49  4E 47 20 3D 52 45 53 55  |".PRESSING =RESU|
00001290: 4C 54 00 BB 1A 86 06 99  22 11 27 43 27 2B 4C 49  |LT......".'C'+LI|
000012A0: 4E 45 23 3D 41 4C 4C 4F  57 53 20 59 4F 55 20 54  |NE#=ALLOWS YOU T|
000012B0: 4F 20 45 44 49 54 20 4C  49 4E 45 00 DD 1A 90 06  |O EDIT LINE.....|
000012C0: 99 22 27 44 27 2B 4C 49  4E 45 23 3D 44 45 4C 45  |."'D'+LINE#=DELE|
000012D0: 54 45 53 20 54 48 41 54  20 4C 49 4E 45 00 FE 1A  |TES THAT LINE...|
000012E0: 9A 06 99 22 27 49 27 2B  4C 49 4E 45 23 3D 49 4E  |..."'I'+LINE#=IN|
000012F0: 53 45 52 54 53 20 4E 45  57 20 4C 49 4E 45 00 45  |SERTS NEW LINE.E|
00001300: 1B A4 06 99 22 27 4C 27  2B 4C 49 4E 45 23 3D 4C  |...."'L'+LINE#=L|
00001310: 49 4E 4B 53 20 54 48 41  54 20 4C 49 4E 45 20 41  |INKS THAT LINE A|
00001320: 4E 44 20 4E 45 58 54 20  4C 49 4E 45 20 20 28 55  |ND NEXT LINE  (U|
00001330: 50 20 54 4F 20 4D 41 58  20 4C 49 4E 45 20 4C 45  |P TO MAX LINE LE|
00001340: 4E 47 48 54 29 00 71 1B  AE 06 99 22 27 46 27 20  |NGHT).q...."'F' |
00001350: 20 20 20 20 20 3D 44 49  53 50 4C 41 59 53 20 4E  |     =DISPLAYS N|
00001360: 45 58 54 20 42 4C 4F 43  4B 20 4F 46 20 54 45 58  |EXT BLOCK OF TEX|
00001370: 54 00 A5 1B B8 06 99 22  27 52 27 20 20 20 20 20  |T......"'R'     |
00001380: 20 3D 44 49 53 50 4C 41  59 53 20 50 52 45 43 45  | =DISPLAYS PRECE|
00001390: 45 44 49 4E 47 20 42 4C  4F 43 4B 20 4F 46 20 20  |EDING BLOCK OF  |
000013A0: 20 54 45 58 54 00 CC 1B  C2 06 99 22 27 58 27 20  | TEXT......"'X' |
000013B0: 20 20 20 20 20 3D 43 4F  4E 54 49 4E 55 45 53 20  |     =CONTINUES |
000013C0: 57 49 54 48 20 50 52 4F  47 52 41 4D 00 FB 1B CC  |WITH PROGRAM....|
000013D0: 06 99 22 28 4E 4F 54 45  29 20 55 53 45 20 4C 49  |.."(NOTE) USE LI|
000013E0: 4E 45 23 20 4F 46 20 27  30 27 20 54 4F 20 41 42  |NE# OF '0' TO AB|
000013F0: 4F 52 54 20 45 44 49 54  49 4E 47 00 0A 1C 08 07  |ORT EDITING.....|
00001400: 8D 31 31 30 3A 89 31 34  30 30 00 00 00           |.110:.1400...   |
....D..400./.N..".. PRESS SPACE BAR WHEN
 READY".D.X..A$:.A$.." ".120.J.....D....
 ***EDIT ROUTINES***......"....";:.I.0.9
:.N.I.C........N.I;I(A$(N.I),C(A$(N.I)).
1):.:..T. .."...."G(34)G(34)G(20)"...".A
.2)"^.....";......631,29:.198,1:......."
..MAX";A;"CHARACTERS/LINE":..<....".."A$
" NOT POSIBLE MEMORY FULL":.110:.900.Y.R
..A$:.A$.."Y".A$.."N".210._.....|...FR..
(0).(.(0).0).65536:....... ***TAPE FILES
***.T....".NAME OF FILE _____ IF NO NAME
 HIT":."   RETURN ......";A$......A$."."
.A$.""...'..788,49:.1,1,B,A$:..,.,.B.1:.
270:.I.1.C:.1,G(34).A$(I):.: 1:.1400.B.@
.D..1:.330:C.C.1:.I.B.C:A$(I).A$(I.1):.:
A$(I)."":....J.L.L.C(A$(B)).D:.L..7.Y.C.
M.E.2...T.....^.R.0:D.D.1:.D.N.D.2:.Q.0.
. . ***JUSTIFICATION***.W.H..J(A$,D,1)..
" ".R.1...R..Q.R.....|..350...... ***INI
TIALIZE PROGRAM***.A....788,52:.".."G(14
2):."MAX LINE LENGHT";A:.A.0.A.70.O....A
.70.400.R...."..AUTOMATIC CARRIAGE RETUR
N"......"BETWEEN POSITION "A.7"AND"A...B
..".NUMBER OF TABS";T:.T.0.510.K.L..T.10
..".";:.450...V..".DEFINE TAB POSITIONS"
......"BETWEEN 1 AND "A:.:.I.1.T./....".
TAB NO.";I;:.T%(I):.T%(I).A.490.5.....F.
...240:M..(FR.A).10:Z..(.9.M):.A$(M):.24
0:Y.FR.....C.1:D.0:E.0:A$(1).".":.1400..
.... *** READ FROM TAPE ***.....B.0:.270
.Q....C.1.Z:.1,A$(C):L.L.C(A$(C))......S
T.64..".FILE ";A$;"       FOUND.":.110: 
1:.880...&..L..7.Y.870.'.0..:C.C.1:.870.
B.D.. *** TEXT WRITING ***.].N..204,1:.G
(14)"."A$(C);.P.X..A$:.A$."".600...B.I.F
(A$).127:.I.13.750...L..(D.1.A$." ").I.3
.I.17.I.19.I.18.I.29.I.34.600...V.D.0:.F
(A$).133..".";:.1400......A$.",".A$.",".
.....I.59.A$.";"......A$.";".A$.";".&...
.A$.":".A$.":".4....I.95.830.O....I..20.
I..94..A$;:.790.C....C(A$(C)).1.720...F.
A$(C).H(A$(C),C(A$(C)).1):.G(20);:.600..
.P.A$(C)."":C.C.1:L.L.C(A$(C)).H.Z..C(A$
(C)).39..". ..";......". .."I(A$(C),C(A$
(C)).1);:.600......C(A$(C))..39.X.225.B(
214):.X,(B(X).128).;....". "G(13);:E.0:L
.L.C(A$(C)).U....C.Z.L..8.Y..".":.860.N.
..C.C.1:A$(C).".":.600......E.0.C(A$(C))
.A.7.A$." ".820... .A$(C).A$(C).A$...*..
C(A$(C)).A.1.600..F.4.D.1:.760...>..Q.1.
T:.B(211)..T%(Q).1..:.600...H.P.T%(Q).B(
211).1:.W.1.P:A$(C).A$(C)." ":." ";:..5.
R.E.(Q.T).(T..1):.600.V.\.. ***DISPLAY/E
DIT ROUTINE***.P.F..".MEMORY FULL.":.110
.V.P.....Z.N.1:.".STARTING LINE#";N:.G(1
4)......140:.I.0.1400.X....:.".C.HANGE .
D.ELETE .I.NSERT .L.INK"......".  E.X.IT
   .F.ORWARD  .R.EVERSE".?....A$:.(A$."R
".N.10).A$."F".N.N.10.(A$."R").10.(A$."F
"):.900.P....A$."X".1400......A$."".(A$.
."D".A$.."C".A$.."I".A$.."L").930......"
."A$...J.."LINE# ";B......B.C.B.0.970...
...B.0.890.K...."..LINE #"B......A$."D".
.320:.900......A$."I".1080......A$."L".1
120.%....E.2..FR.250.A$."CHANGE":.190.W.
..D..1:.330:.160:.I(A$(B),C(A$(B)).1);:.
"..";A$.O.$..C(A$).A..180:.1050.....A$(B
).".".A$:D.1:.330:.900...8..E.2..R.300.C
.M.A$."INSERT":.190.W.B..I.C.B..1:A$(I.1
).A$(I):.:C.C.1...L..160:."..";A$:.C(A$)
.A..180:.1100...V..1070.E.`..R.B.C.1:A$.
A$(R):E$.A$(R.1):W.C(A$):K.C(E$):.K.2.W.
1.900.W.J..W.A.7..:.900.N.T..J(E$,2,1)."
 ".900...~..K.A.6.W.1180......B.A.5.W.K.
1:.J(E$,B,1)." ".B.A.1.W.1190...........
A$(R).A$." ".I(E$,K.1):B.R.1:.320:.R:.90
0.....A$(R).A$." ".J (E$,2,B.2):.J(E$,B.
1,1)." ".B.B.1.8...A$(R.1).".".I(E$,K.B)
:.R:.900.V.N.. *** PRINTER ROUTINE ***..
.X.."..TURN ON PRINTER":.110:.788,49:.4,
4,7.....G.0:."..CONFIGURE PRINT ROUTINE?
":.210:.A$."N".1280......"...DOUBLE LINE
-FEED?":. 210:S.(A$."Y")......"..MAX. LI
NES/PAGE......";H.'...."..LEFT MARGIN...
...";Q$.E...."...JUSTIFICATION?":.210:B$
.A$:D.1:."..":.I.1.C:A$.A$(I).....N.C(A$
):P.C(A$(I.1)):.B$."N".I.C.1340......P..
1..J(A$(I.1),2,1).." ".N.A.7.1310.C....1
340.S....N.A.1.1340...(.Q.1:.350:Q.0:.35
0:.D.2.1320...2.A$.H(A$,D)." ".J(A$,D.1)
:N.N.1:.1310.K.<..I(A$,N.1):.4,CHR(16)(Q
$)A$:G.G.1:.S..1..4.Z.F..G..H.1370...P..
"..MAX.";H;"LINES/PAGE":.".ADJUST PAPER 
"...Q..110:G.0:."."...Z..: 4.O.X..788,52
:.G(142);"..    ***MAIN MENU***......". 
[F1] ADD  TEXT......". [F2] READ FROM TA
PE. ....". [F3] REVIEW/EDIT TEXT.?. ..".
 [F4] SAVE TEXT ON TAPE.\....". [F5] PRI
NT HARD COPY.N....". [F6] QUIT......". [
F7] INSTRUCTIONS......240:.".  . BYTES F
REE "FR"..":." SELECT F1-F6".P.H..A$:.A$
."".1480...R..B(197).3.B(197).6.1480....
.X.F(A$).132.'....X.590,890,1240,1550,52
0,300,1520,1480.5....788,49:..N.... ***I
NSTRUCTIONS***......"....WORD PRO. IS A 
SIMPLE EASY .TEXT PROCESSOR......".IT FE
ATURES:...,..".UP TO 70 CHARACTERS/LINE 
(MAX.).R.6.."UP TO 10 TABS...;.."JUSTIFI
CATION OF RIGHT MARGIN.A.<.."RUN/STOP DI
SABLED (WITH POKE788,52       NORMAL VAL
UE IS POKE788,49).K.@..110:.".....NOTES 
WHEN ENTERING TEXT:...O..".PRESS '_' FOR
 TAB...Q.."USE RETURN KEY TO START NEW L
INE.N.T.."USE INST/DEL FOR CORRECTIONS..
.^.."CURSOR KEYS DO NOT WORK IN THIS MOD
E.(.H.."WHEN FINISHED WITH TEXT PRESS [F
1]":.110.E.R.."....REVIEW/EDIT NOTES:.Z.
W.."(CURSOR CONTROL KEYS CAN BE USED IN 
THIS MODE)...|..".PRESSING =RESULT......
".'C'+LINE#=ALLOWS YOU TO EDIT LINE.....
."'D'+LINE#=DELETES THAT LINE......"'I'+
LINE#=INSERTS NEW LINE.E...."'L'+LINE#=L
INKS THAT LINE AND NEXT LINE  (UP TO MAX
 LINE LENGHT).Q...."'F'      =DISPLAYS N
EXT BLOCK OF TEXT......"'R'      =DISPLA
YS PRECEEDING BLOCK OF   TEXT.L.B.."'X' 
     =CONTINUES WITH PROGRAM...L.."(NOTE
) USE LINE# OF '0' TO ABORT EDITING.....
.110:.1400...
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL