> 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 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL