WORD PROCESSOR
FILE INFORMATION
FILENAME(S): WORD PROCESSOR
FILE TYPE(S): PRG
FILE SIZE: 7.5K
FIRST SEEN: 2025-11-02 17:01:56
APPEARS ON: 1 disk(s)
FILE HASH
e68021d8ac07fa068f4dd8c6718c77d9d59092a00c7fa7eb905c200cf69cc378
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MISC02 | WORD PROCESSOR | PRG | Treasure Chest - Spook | 20 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 07 08 00 00 9C 00 29 08 01 00 97 36 35 30 |........)....650|
00000010: 2C 31 32 38 20 20 20 3A 8F 20 41 4C 4C 20 4B 45 |,128 :. ALL KE|
00000020: 59 53 20 52 45 50 45 41 54 00 53 08 02 00 8F 20 |YS REPEAT.S.... |
00000030: 50 4F 4B 45 37 38 38 2C 35 32 20 20 20 20 3A 52 |POKE788,52 :R|
00000040: 45 4D 20 52 55 4E 2F 53 54 4F 50 20 44 49 53 41 |EM RUN/STOP DISA|
00000050: 42 4C 45 00 75 08 03 00 97 35 33 32 38 30 2C 20 |BLE.u....53280, |
00000060: 31 32 20 3A 8F 20 53 43 52 45 45 4E 20 2F 20 42 |12 :. SCREEN / B|
00000070: 4F 52 44 45 52 00 91 08 04 00 97 35 33 32 38 31 |ORDER......53281|
00000080: 2C 20 31 32 20 3A 8F 20 20 20 43 4F 4C 4F 55 52 |, 12 :. COLOUR|
00000090: 53 00 B5 08 06 00 9F 31 2C 33 2C 31 20 20 20 20 |S......1,3,1 |
000000A0: 20 3A 8F 20 43 48 41 4E 4E 45 4C 20 54 4F 20 53 | :. CHANNEL TO S|
000000B0: 43 52 45 45 4E 00 DC 08 0A 00 8F 2A 2A 2A 2A 2A |CREEN......*****|
000000C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 03 09 14 |************....|
000000E0: 00 8F 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 |..* |
000000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000100: 20 20 2A 00 2A 09 1E 00 8F 2A 22 20 20 20 20 20 | *.*....*" |
00000110: 57 4F 52 44 20 50 52 4F 43 45 53 53 4F 52 20 20 |WORD PROCESSOR |
00000120: 20 20 20 20 20 20 20 20 22 2A 00 51 09 28 00 8F | "*.Q.(..|
00000130: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* |
00000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000150: 2A 00 77 09 6E 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |*.w.n..*********|
00000160: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000170: 2A 2A 2A 2A 2A 2A 2A 00 BE 09 82 00 8F 20 22 46 |*******...... "F|
00000180: 4F 52 20 20 0E 20 20 48 49 54 20 43 54 52 4C 20 |OR . HIT CTRL |
00000190: 4E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |N |
000001A0: 20 20 20 20 20 20 20 28 53 57 49 54 43 48 20 54 | (SWITCH T|
000001B0: 4F 20 4C 4F 57 45 52 20 43 41 53 45 29 22 00 05 |O LOWER CASE)"..|
000001C0: 0A 8C 00 8F 20 22 46 4F 52 20 20 08 20 20 48 49 |.... "FOR . HI|
000001D0: 54 20 43 54 52 4C 20 48 20 20 20 20 20 20 20 20 |T CTRL H |
000001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 54 | (T|
000001F0: 55 52 4E 20 53 48 49 46 54 20 4C 4F 47 4F 20 4F |URN SHIFT LOGO O|
00000200: 46 46 29 20 22 00 44 0A 96 00 8F 20 22 46 4F 52 |FF) ".D.... "FOR|
00000210: 20 20 93 20 20 48 49 54 20 53 48 49 46 54 20 43 | . HIT SHIFT C|
00000220: 4C 52 2F 48 4F 4D 45 20 20 20 20 20 20 20 20 20 |LR/HOME |
00000230: 20 20 20 20 20 28 43 4C 45 41 52 20 53 43 52 45 | (CLEAR SCRE|
00000240: 45 4E 29 22 00 82 0A 9B 00 8F 20 22 46 4F 52 20 |EN)"...... "FOR |
00000250: 20 13 20 20 48 49 54 20 43 4C 52 2F 48 4F 4D 45 | . HIT CLR/HOME|
00000260: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000270: 20 20 20 20 28 43 55 52 53 4F 52 20 48 4F 4D 45 | (CURSOR HOME|
00000280: 29 22 00 BB 0A A0 00 8F 20 22 85 3D 46 31 20 89 |)"...... ".=F1 .|
00000290: 3D 46 32 20 86 3D 46 33 20 8A 3D 46 34 20 87 3D |=F2 .=F3 .=F4 .=|
000002A0: 46 35 20 8B 3D 46 36 20 20 20 20 20 20 20 20 20 |F5 .=F6 |
000002B0: 20 20 88 3D 46 37 20 8C 3D 46 38 00 F2 0A AA 00 | .=F7 .=F8.....|
000002C0: 8F 20 22 90 3D 42 4C 4B 20 05 3D 57 48 54 20 1C |. ".=BLK .=WHT .|
000002D0: 3D 52 45 44 20 9F 3D 43 59 4E 20 9C 3D 50 55 52 |=RED .=CYN .=PUR|
000002E0: 20 1E 3D 47 52 4E 20 1F 3D 42 4C 55 20 9E 3D 59 | .=GRN .=BLU .=Y|
000002F0: 45 4C 00 28 0B B4 00 8F 20 22 11 3D 43 52 53 52 |EL.(.... ".=CRSR|
00000300: 20 44 4F 57 4E 20 91 3D 43 52 53 52 20 55 50 20 | DOWN .=CRSR UP |
00000310: 1D 3D 43 52 53 52 20 52 49 47 48 54 20 9D 3D 43 |.=CRSR RIGHT .=C|
00000320: 52 53 52 20 4C 45 46 54 00 44 0B BE 00 8F 20 20 |RSR LEFT.D.... |
00000330: 49 4E 49 54 49 41 4C 49 53 45 20 56 41 52 49 41 |INITIALISE VARIA|
00000340: 42 4C 45 53 00 52 0B C8 00 86 20 53 24 28 32 35 |BLES.R.... S$(25|
00000350: 30 29 00 60 0B D2 00 54 52 55 45 20 20 B2 AB 31 |0).`...TRUE ..1|
00000360: 00 6D 0B DC 00 46 41 4C 53 45 20 B2 30 00 7A 0B |.m...FALSE .0.z.|
00000370: E6 00 43 4F 20 20 20 20 B2 30 00 87 0B F0 00 54 |..CO .0.....T|
00000380: 20 20 20 20 20 B2 31 00 94 0B FA 00 53 43 20 20 | .1.....SC |
00000390: 20 20 B2 31 00 A1 0B 04 01 4C 49 20 20 20 20 B2 | .1.....LI .|
000003A0: 31 00 D6 0B 0E 01 53 50 24 20 20 20 B2 22 20 20 |1.....SP$ ." |
000003B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003D0: 20 20 20 20 20 22 00 E4 0B 18 01 4C 49 24 20 20 | ".....LI$ |
000003E0: 20 B2 22 22 00 F5 0B 22 01 49 47 20 20 20 20 B2 | .""...".IG .|
000003F0: 46 41 4C 53 45 00 06 0C 2C 01 53 20 20 20 20 20 |FALSE...,.S |
00000400: B2 46 41 4C 53 45 00 17 0C 36 01 45 4E 20 20 20 |.FALSE...6.EN |
00000410: 20 B2 46 41 4C 53 45 00 28 0C 40 01 50 41 20 20 | .FALSE.(.@.PA |
00000420: 20 20 B2 46 41 4C 53 45 00 39 0C 4A 01 53 4B 20 | .FALSE.9.J.SK |
00000430: 20 20 20 B2 46 41 4C 53 45 00 4A 0C 54 01 57 4F | .FALSE.J.T.WO|
00000440: 20 20 20 20 B2 46 41 4C 53 45 00 7C 0C 5E 01 44 | .FALSE.|.^.D|
00000450: 4F 24 B2 22 13 11 11 11 11 11 11 11 11 11 11 11 |O$."............|
00000460: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000470: 11 11 11 11 11 11 11 11 11 11 11 22 00 8A 0C A4 |..........."....|
00000480: 01 4C 25 20 20 20 20 B2 33 38 00 A8 0C 12 02 8D |.L% .38......|
00000490: 20 31 30 31 30 20 20 20 20 3A 8F 20 44 49 53 50 | 1010 :. DISP|
000004A0: 4C 41 59 20 4D 45 4E 55 00 CB 0C 1C 02 3A 20 20 |LAY MENU.....: |
000004B0: 20 20 20 20 20 20 20 20 20 20 20 3A 8F 20 42 41 | :. BA|
000004C0: 43 4B 20 54 4F 20 42 41 53 49 43 00 D7 0C 26 02 |CK TO BASIC...&.|
000004D0: 97 37 38 38 2C 34 39 00 F5 0C 30 02 A0 31 20 20 |.788,49...0..1 |
000004E0: 20 20 20 20 20 20 3A 8F 20 43 4C 4F 53 45 20 53 | :. CLOSE S|
000004F0: 43 52 45 45 4E 00 FB 0C 3A 02 9C 00 13 0D 44 02 |CREEN...:.....D.|
00000500: 99 C7 28 31 34 37 29 3B C7 28 31 34 32 29 3B C7 |..(147);.(142);.|
00000510: 28 39 29 00 19 0D 4E 02 80 00 1F 0D 58 02 20 00 |(9)...N.....X. .|
00000520: 42 0D E8 03 3A 20 20 20 20 20 20 20 20 20 20 20 |B...: |
00000530: 20 3A 8F 20 4D 45 4E 55 20 53 45 4C 45 43 54 49 | :. MENU SELECTI|
00000540: 4F 4E 00 4E 0D F2 03 99 22 93 08 05 0E 22 00 5F |ON.N...."...."._|
00000550: 0D FC 03 99 A3 31 38 29 3B 22 CD C5 CE D5 22 00 |.....18);"....".|
00000560: 70 0D 06 04 99 A3 31 38 29 3B 22 2D 2D 2D 2D 22 |p.....18);"----"|
00000570: 00 8C 0D 10 04 99 A3 35 33 29 3B 22 9E 28 31 29 |.......53);".(1)|
00000580: 20 D4 45 58 54 20 C9 4E 50 55 54 22 00 A6 0D 1A | .EXT .NPUT"....|
00000590: 04 99 A3 35 33 29 3B 22 28 32 29 20 D4 45 58 54 |...53);"(2) .EXT|
000005A0: 20 C5 44 49 54 22 00 C0 0D 24 04 99 A3 35 33 29 | .DIT"...$...53)|
000005B0: 3B 22 28 33 29 20 D3 41 56 45 20 D4 45 58 54 22 |;"(3) .AVE .EXT"|
000005C0: 00 DA 0D 2E 04 99 A3 35 33 29 3B 22 28 34 29 20 |.......53);"(4) |
000005D0: CC 4F 41 44 20 D4 45 58 54 22 00 F5 0D 38 04 99 |.OAD .EXT"...8..|
000005E0: A3 35 33 29 3B 22 28 35 29 20 D0 52 49 4E 54 20 |.53);"(5) .RINT |
000005F0: D4 45 58 54 22 00 12 0E 42 04 99 A3 35 33 29 3B |.EXT"...B...53);|
00000600: 22 28 36 29 20 C9 4E 53 54 52 55 43 54 49 4F 4E |"(6) .NSTRUCTION|
00000610: 53 22 00 2E 0E 47 04 99 A3 35 33 29 3B 22 28 37 |S"...G...53);"(7|
00000620: 29 20 C5 4E 44 20 53 45 53 53 49 4F 4E 22 00 56 |) .ND SESSION".V|
00000630: 0E 4C 04 A1 20 41 24 20 3A 20 8B 20 41 24 20 B3 |.L.. A$ : . A$ .|
00000640: 20 22 31 22 20 B0 20 41 24 20 B1 20 22 37 22 20 | "1" . A$ . "7" |
00000650: A7 20 31 31 30 30 00 65 0E B0 04 4F 50 20 B2 20 |. 1100.e...OP . |
00000660: C5 28 41 24 29 00 76 0E BA 04 8B 20 4F 50 20 B2 |.(A$).v.... OP .|
00000670: 20 37 20 A7 20 8E 00 A0 0E C4 04 91 20 4F 50 20 | 7 . ....... OP |
00000680: 8D 20 32 30 30 30 2C 33 30 30 30 2C 34 30 30 30 |. 2000,3000,4000|
00000690: 2C 35 30 30 30 2C 36 30 30 30 2C 31 35 30 30 30 |,5000,6000,15000|
000006A0: 00 AB 0E CE 04 89 20 31 30 31 30 00 B1 0E D8 04 |...... 1010.....|
000006B0: 20 00 D0 0E C6 07 3A 20 20 20 20 20 20 20 20 20 | .....: |
000006C0: 20 20 20 3A 8F 20 49 4E 50 55 54 20 54 45 58 54 | :. INPUT TEXT|
000006D0: 00 DA 0E D0 07 99 22 93 22 3B 00 F7 0E DA 07 99 |......".";......|
000006E0: A3 31 33 29 3B 22 1C CE 45 57 20 D4 45 58 54 20 |.13);"..EW .EXT |
000006F0: 28 D9 2F CE 29 3F 22 00 00 0F E4 07 A1 20 54 24 |(./.)?"...... T$|
00000700: 00 21 0F EE 07 8B 20 54 24 20 B2 20 22 59 22 20 |.!.... T$ . "Y" |
00000710: B0 20 54 24 20 B2 20 22 D9 22 20 A7 20 32 30 37 |. T$ . "." . 207|
00000720: 30 00 43 0F F8 07 8B 20 54 24 B3 B1 20 22 4E 22 |0.C.... T$.. "N"|
00000730: 20 AF 20 54 24 20 B3 B1 20 22 CE 22 20 A7 20 32 | . T$ .. "." . 2|
00000740: 30 32 30 00 4F 0F 02 08 8D 20 31 30 30 30 30 00 |020.O.... 10000.|
00000750: 5B 0F 0C 08 89 20 20 32 31 32 30 00 67 0F 16 08 |[.... 2120.g...|
00000760: 8D 20 31 34 30 30 30 00 71 0F 20 08 54 20 20 B2 |. 14000.q. .T .|
00000770: 31 00 7B 0F 2A 08 4C 49 20 B2 31 00 85 0F 34 08 |1.{.*.LI .1...4.|
00000780: 43 4F 20 B2 30 00 8F 0F 3E 08 53 43 20 B2 31 00 |CO .0...>.SC .1.|
00000790: 9D 0F 48 08 45 4E 20 B2 46 41 4C 53 45 00 A8 0F |..H.EN .FALSE...|
000007A0: 52 08 8D 20 32 32 30 30 00 B3 0F 5C 08 8D 20 32 |R.. 2200...\.. 2|
000007B0: 34 30 30 00 E1 0F 66 08 8B 20 45 4E 20 B3 B1 20 |400...f.. EN .. |
000007C0: 54 52 55 45 20 AF 20 4F 50 20 B3 B1 20 32 20 AF |TRUE . OP .. 2 .|
000007D0: 20 53 20 B3 B1 20 54 52 55 45 20 A7 20 32 31 33 | S .. TRUE . 213|
000007E0: 30 00 E7 0F 70 08 20 00 F8 0F 7A 08 8B 20 53 20 |0...p. ...z.. S |
000007F0: A7 20 8D 20 38 30 30 30 00 FE 0F 84 08 20 00 04 |. . 8000..... ..|
00000800: 10 8E 08 8E 00 29 10 97 08 3A 20 20 20 20 20 20 |.....)...: |
00000810: 20 20 20 20 20 20 3A 8F 20 47 45 54 20 4C 49 4E | :. GET LIN|
00000820: 45 20 4F 46 20 54 45 58 54 00 5B 10 98 08 99 22 |E OF TEXT.[...."|
00000830: 13 12 05 D7 4F 52 44 20 C3 4F 55 4E 54 20 20 20 |....ORD .OUNT |
00000840: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000850: 20 20 20 20 20 20 20 20 20 20 22 00 8C 10 9D 08 | ".....|
00000860: 99 22 12 20 20 20 20 20 20 20 20 20 20 20 20 20 |.". |
00000870: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000880: 20 20 20 20 20 20 20 20 20 20 9E 22 00 A4 10 A2 | ."....|
00000890: 08 99 C8 28 44 4F 24 2C 32 32 29 3B 53 50 24 3B |...(DO$,22);SP$;|
000008A0: 22 91 91 22 00 B1 10 AC 08 4C 49 24 20 B2 20 22 |"..".....LI$ . "|
000008B0: 22 00 DF 10 B6 08 8B 20 50 41 20 B2 20 54 52 55 |"...... PA . TRU|
000008C0: 45 20 A7 20 50 41 B2 46 41 4C 53 45 3A 4C 49 24 |E . PA.FALSE:LI$|
000008D0: B2 22 20 20 20 20 20 20 20 20 20 20 20 20 22 00 |." ".|
000008E0: EA 10 C0 08 8D 31 31 30 30 30 00 05 11 CA 08 A1 |.....11000......|
000008F0: 41 24 3A 8B 41 24 B2 22 85 22 A7 20 45 4E 20 B2 |A$:.A$.".". EN .|
00000900: 20 54 52 55 45 00 48 11 D4 08 8B 28 41 24 B1 B2 | TRUE.H....(A$..|
00000910: 22 20 22 AF 41 24 B3 B2 22 5A 22 29 20 B0 20 28 |" ".A$.."Z") . (|
00000920: 41 24 B1 B2 22 C1 22 AF 41 24 B3 B2 22 DA 22 29 |A$..".".A$..".")|
00000930: 20 A7 20 4C 49 24 B2 4C 49 24 AA 41 24 3A 99 41 | . LI$.LI$.A$:.A|
00000940: 24 22 90 23 9E 9D 22 3B 00 5E 11 DE 08 8B 41 24 |$".#..";.^....A$|
00000950: B2 C7 28 31 33 29 A7 50 41 B2 54 52 55 45 00 96 |..(13).PA.TRUE..|
00000960: 11 E8 08 8B 41 24 B2 C7 28 32 30 29 AF 4C 49 24 |....A$..(20).LI$|
00000970: B3 B1 22 22 A7 4C 49 24 B2 C8 28 4C 49 24 2C C3 |.."".LI$..(LI$,.|
00000980: 28 4C 49 24 29 AB 31 29 3A 99 22 9D 90 23 9E 20 |(LI$).1):."..#. |
00000990: 20 9D 9D 9D 22 3B 00 C3 11 F2 08 8B 41 24 B2 22 | ...";......A$."|
000009A0: 20 22 AF 20 57 4F 20 B2 46 41 4C 53 45 20 A7 20 | ". WO .FALSE . |
000009B0: 8D 20 31 31 30 30 30 20 3A 20 57 4F 20 B2 20 54 |. 11000 : WO . T|
000009C0: 52 55 45 00 FB 11 FC 08 8B 28 41 24 B1 B2 22 21 |RUE......(A$.."!|
000009D0: 22 AF 41 24 B3 B2 22 5A 22 29 20 B0 20 28 41 24 |".A$.."Z") . (A$|
000009E0: B1 B2 22 C1 22 AF 41 24 B3 B2 22 DA 22 29 20 A7 |..".".A$..".") .|
000009F0: 20 57 4F 20 B2 20 46 41 4C 53 45 00 33 12 06 09 | WO . FALSE.3...|
00000A00: 8B 20 45 4E B3 B1 20 54 52 55 45 20 AF 20 B9 28 |. EN.. TRUE . .(|
00000A10: 30 29 20 B3 B1 20 33 39 20 AF 20 50 41 20 B3 B1 |0) .. 39 . PA ..|
00000A20: 20 54 52 55 45 20 AF 20 4F 50 B3 B1 32 20 A7 32 | TRUE . OP..2 .2|
00000A30: 32 35 30 00 39 12 10 09 8E 00 3F 12 56 09 20 00 |250.9.....?.V. .|
00000A40: 5E 12 5B 09 3A 20 20 20 20 20 20 20 20 20 20 20 |^.[.: |
00000A50: 20 3A 8F 20 53 54 4F 52 45 20 54 45 58 54 00 6F | :. STORE TEXT.o|
00000A60: 12 60 09 53 24 28 4C 49 29 20 B2 20 4C 49 24 00 |.`.S$(LI) . LI$.|
00000A70: 7D 12 6A 09 53 43 20 B2 20 53 43 AA 31 00 92 12 |}.j.SC . SC.1...|
00000A80: 74 09 99 C8 28 44 4F 24 2C 53 43 AA 31 29 3B 4C |t...(DO$,SC.1);L|
00000A90: 49 24 00 A0 12 7E 09 4C 49 20 B2 20 4C 49 AA 31 |I$...~.LI . LI.1|
00000AA0: 00 A9 12 88 09 54 B2 4C 49 00 C0 12 92 09 8B 20 |.....T.LI...... |
00000AB0: 4C 49 20 B1 32 35 30 20 A7 20 53 B2 54 52 55 45 |LI .250 . S.TRUE|
00000AC0: 00 D0 12 9C 09 8B 20 53 43 B3 32 30 20 A7 20 8E |...... SC.20 . .|
00000AD0: 00 DE 12 A6 09 99 22 93 11 11 22 4C 49 24 00 E9 |......"..."LI$..|
00000AE0: 12 B0 09 53 43 20 B2 20 32 00 EF 12 BA 09 8E 00 |...SC . 2.......|
00000AF0: F5 12 C3 09 20 00 14 13 B7 0B 3A 20 20 20 20 20 |.... .....: |
00000B00: 20 20 20 20 20 20 3A 8F 20 20 20 45 44 49 54 20 | :. EDIT |
00000B10: 54 45 58 54 00 24 13 B8 0B 8B 20 54 20 B2 20 31 |TEXT.$.... T . 1|
00000B20: 20 A7 20 8E 00 2F 13 BD 0B 8D 20 33 31 30 30 00 | . ../.... 3100.|
00000B30: 47 13 C2 0B 8B 20 42 24 20 B2 22 85 22 20 20 20 |G.... B$ ."." |
00000B40: 20 20 20 20 A7 20 8E 00 61 13 D6 0B 8B 20 42 24 | . ..a.... B$|
00000B50: 20 B2 C7 28 32 30 29 20 20 A7 20 8D 20 37 33 30 | ..(20) . . 730|
00000B60: 30 00 7B 13 E0 0B 8B 20 42 24 20 B2 C7 28 31 34 |0.{.... B$ ..(14|
00000B70: 38 29 20 A7 20 8D 20 37 35 30 30 00 98 13 EA 0B |8) . . 7500.....|
00000B80: 8B 20 42 24 20 B2 22 86 22 20 20 20 20 20 20 20 |. B$ ."." |
00000B90: A7 20 8D 20 37 34 30 30 00 B5 13 F4 0B 8B 20 42 |. . 7400...... B|
00000BA0: 24 20 B2 22 87 22 20 20 20 20 20 20 20 A7 20 8D |$ ."." . .|
00000BB0: 20 37 39 30 30 00 C0 13 FE 0B 89 20 33 30 30 30 | 7900...... 3000|
00000BC0: 00 D8 13 1B 0C 3A 20 20 20 20 20 20 20 20 20 20 |.....: |
00000BD0: 3A 8F 20 20 45 44 49 54 00 E3 13 1C 0C 42 4F 20 |:. EDIT.....BO |
00000BE0: B2 20 31 00 19 14 26 0C 99 22 93 1C D0 52 45 53 |. 1...&.."...RES|
00000BF0: 53 20 12 20 D3 D0 C1 C3 C5 20 92 20 54 4F 20 53 |S . ..... . TO S|
00000C00: 43 52 4F 4C 4C 20 41 4E 44 20 12 20 D3 20 92 20 |CROLL AND . . . |
00000C10: 54 4F 20 53 54 4F 50 9F 22 00 24 14 30 0C 53 43 |TO STOP.".$.0.SC|
00000C20: 20 B2 20 31 00 3A 14 3A 0C 81 20 4C 49 20 B2 20 | . 1.:.:.. LI . |
00000C30: 42 4F 20 A4 20 42 4F AA 31 39 00 46 14 44 0C 99 |BO . BO.19.F.D..|
00000C40: 53 24 28 4C 49 29 00 54 14 4E 0C 53 43 20 B2 20 |S$(LI).T.N.SC . |
00000C50: 53 43 AA 31 00 5A 14 58 0C 82 00 69 14 62 0C 42 |SC.1.Z.X...i.b.B|
00000C60: 4F 20 B2 20 42 4F AA 32 30 00 82 14 6C 0C A1 53 |O . BO.20...l..S|
00000C70: 24 20 3A 20 8B 20 53 24 B2 22 22 20 A7 20 33 31 |$ : . S$."" . 31|
00000C80: 38 30 00 9F 14 76 0C 8B 20 53 24 B3 B1 22 53 22 |80...v.. S$.."S"|
00000C90: 20 AF 20 42 4F B3 B2 54 20 A7 20 33 31 31 30 00 | . BO..T . 3110.|
00000CA0: AE 14 7B 0C 42 4F 20 B2 20 42 4F AB 32 30 00 E9 |..{.BO . BO.20..|
00000CB0: 14 80 0C 99 C8 28 44 4F 24 2C 32 34 29 3B 22 12 |.....(DO$,24);".|
00000CC0: 1C 20 C6 31 20 D2 45 54 55 52 4E 20 54 4F 20 4D |. .1 .ETURN TO M|
00000CD0: 45 4E 55 20 20 20 20 C6 33 20 C4 45 4C 45 54 45 |ENU .3 .ELETE|
00000CE0: 20 4C 49 4E 45 20 20 20 22 00 1A 15 8A 0C 99 22 | LINE "......"|
00000CF0: 12 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
00000D00: C6 35 20 D2 45 50 4C 41 43 45 20 20 20 20 20 20 |.5 .EPLACE |
00000D10: 20 20 20 20 20 20 20 20 13 22 00 25 15 94 0C 53 | .".%...S|
00000D20: 43 20 B2 20 30 00 55 15 9E 0C 99 22 13 22 3B 53 |C . 0.U....".";S|
00000D30: 50 24 3B 22 13 11 22 3B 20 3A 20 A1 23 31 2C 43 |P$;".."; : .#1,C|
00000D40: 55 24 20 3A 20 99 22 9D 12 1C 22 3B 43 55 24 3B |U$ : ."...";CU$;|
00000D50: 22 9D 92 22 3B 00 6E 15 A8 0C A1 42 24 20 3A 20 |"..";.n....B$ : |
00000D60: 8B 20 42 24 B2 22 22 20 A7 20 33 32 34 30 00 7A |. B$."" . 3240.z|
00000D70: 15 B2 0C 8D 20 31 32 30 30 30 00 B1 15 BC 0C 8B |.... 12000......|
00000D80: 20 28 42 24 B3 22 85 22 20 B0 20 42 24 B1 22 8A | (B$."." . B$.".|
00000D90: 22 29 20 AF 20 42 24 20 B3 B1 C7 28 32 30 29 20 |") . B$ ...(20) |
00000DA0: AF 20 42 24 B3 B1 C7 28 31 34 38 29 A7 33 32 34 |. B$...(148).324|
00000DB0: 30 00 B7 15 C6 0C 8E 00 BD 15 E2 0C 20 00 CB 15 |0........... ...|
00000DC0: 15 0E 55 50 20 B2 20 A8 20 55 50 00 E3 15 3B 0F |..UP . . UP...;.|
00000DD0: 8F 20 4D 4F 56 45 20 41 52 52 41 59 20 55 50 20 |. MOVE ARRAY UP |
00000DE0: 4F 4E 45 00 EE 15 3C 0F 54 25 20 B2 20 49 00 05 |ONE...<.T% . I..|
00000DF0: 16 46 0F 81 20 49 20 B2 20 54 20 A4 20 4C 49 AA |.F.. I . T . LI.|
00000E00: 31 20 A9 AB 31 00 19 16 50 0F 53 24 28 49 AA 31 |1 ..1...P.S$(I.1|
00000E10: 29 20 B2 20 53 24 28 49 29 00 1F 16 5A 0F 82 00 |) . S$(I)...Z...|
00000E20: 3A 16 64 0F 49 20 B2 20 54 25 20 3A 20 54 20 B2 |:.d.I . T% : T .|
00000E30: 20 54 20 AA 20 31 20 3A 20 8E 00 54 16 6D 0F 8F | T . 1 : ..T.m..|
00000E40: 20 4D 4F 56 45 20 41 52 52 41 59 20 44 4F 57 4E | MOVE ARRAY DOWN|
00000E50: 20 4F 4E 45 00 5F 16 6E 0F 54 25 20 B2 20 49 00 | ONE._.n.T% . I.|
00000E60: 72 16 78 0F 81 20 49 20 B2 20 4C 49 AA 31 20 A4 |r.x.. I . LI.1 .|
00000E70: 20 54 00 86 16 82 0F 53 24 28 49 29 20 B2 20 53 | T.....S$(I) . S|
00000E80: 24 28 49 AA 31 29 00 8C 16 8C 0F 82 00 A7 16 96 |$(I.1)..........|
00000E90: 0F 49 20 B2 20 54 25 20 3A 20 54 20 B2 20 54 20 |.I . T% : T . T |
00000EA0: AB 20 31 20 3A 20 8E 00 BF 16 9F 0F 8F 20 53 41 |. 1 : ....... SA|
00000EB0: 56 45 20 54 45 58 54 20 54 4F 20 54 41 50 45 00 |VE TEXT TO TAPE.|
00000EC0: E8 16 A0 0F 99 22 93 90 12 D0 4C 45 41 53 45 20 |....."....LEASE |
00000ED0: 49 4E 53 45 52 54 20 44 41 54 41 20 54 41 50 45 |INSERT DATA TAPE|
00000EE0: 2C 20 54 48 45 4E 05 22 00 F3 16 AA 0F 9F 32 2C |, THEN."......2,|
00000EF0: 31 2C 31 00 01 17 AF 0F 98 32 2C 28 4C 49 AB 31 |1,1......2,(LI.1|
00000F00: 29 00 0B 17 B4 0F 50 4C 25 B2 31 00 1C 17 BE 0F |).....PL%.1.....|
00000F10: 81 20 59 41 20 B2 20 31 20 A4 20 54 00 2A 17 C8 |. YA . 1 . T.*..|
00000F20: 0F 98 32 2C 53 24 28 59 41 29 00 35 17 D2 0F 8D |..2,S$(YA).5....|
00000F30: 20 37 32 30 30 00 3B 17 DC 0F 82 00 42 17 E6 0F | 7200.;.....B...|
00000F40: A0 32 00 48 17 F0 0F 8E 00 62 17 87 13 8F 20 4C |.2.H.....b.... L|
00000F50: 4F 41 44 20 54 45 58 54 20 46 52 4F 4D 20 54 41 |OAD TEXT FROM TA|
00000F60: 50 45 00 AD 17 88 13 99 22 93 11 11 11 20 20 20 |PE......".... |
00000F70: 20 20 20 D9 4F 55 20 57 49 4C 4C 20 4C 4F 41 44 | .OU WILL LOAD|
00000F80: 20 54 48 45 20 4E 45 58 54 20 46 49 4C 45 20 20 | THE NEXT FILE |
00000F90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000FA0: 20 4F 4E 20 54 48 45 20 54 41 50 45 22 00 DA 17 | ON THE TAPE"...|
00000FB0: 8D 13 99 22 20 20 20 20 20 90 12 D0 4C 45 41 53 |..." ...LEAS|
00000FC0: 45 20 49 4E 53 45 52 54 20 44 41 54 41 20 54 41 |E INSERT DATA TA|
00000FD0: 50 45 2C 20 54 48 45 4E 05 22 00 E5 17 92 13 9F |PE, THEN."......|
00000FE0: 32 2C 31 2C 30 00 EE 17 97 13 84 32 2C 54 00 F8 |2,1,0......2,T..|
00000FF0: 17 9C 13 50 4C 25 B2 31 00 06 18 A6 13 81 59 41 |...PL%.1......YA|
00001000: B2 31 A4 54 AB 31 00 14 18 B0 13 84 32 2C 53 24 |.1.T.1......2,S$|
00001010: 28 59 41 29 00 20 18 BA 13 99 53 24 28 59 41 29 |(YA). ....S$(YA)|
00001020: 00 28 18 C4 13 82 59 41 00 41 18 CE 13 8F 49 46 |.(....YA.A....IF|
00001030: 20 53 54 20 3D 20 30 20 54 48 45 4E 20 35 30 34 | ST = 0 THEN 504|
00001040: 30 00 53 18 D8 13 8F 20 20 54 20 3D 20 59 41 20 |0.S.... T = YA |
00001050: 2D 20 31 00 5A 18 E2 13 A0 32 00 60 18 EC 13 8E |- 1.Z....2.`....|
00001060: 00 7B 18 6F 17 8F 20 53 45 4E 44 20 54 45 58 54 |.{.o.. SEND TEXT|
00001070: 20 54 4F 20 50 52 49 4E 54 45 52 00 87 18 70 17 | TO PRINTER...p.|
00001080: 50 4C 25 20 B2 20 31 00 D3 18 7A 17 99 22 93 D4 |PL% . 1...z.."..|
00001090: 55 52 4E 20 59 4F 55 52 20 50 52 49 4E 54 45 52 |URN YOUR PRINTER|
000010A0: 20 4F 4E 20 41 4E 44 20 50 52 45 53 53 20 27 D2 | ON AND PRESS '.|
000010B0: C5 D4 D5 D2 CE 27 20 20 20 20 28 4F 52 20 51 20 |.....' (OR Q |
000010C0: 54 4F 20 52 45 54 55 52 4E 20 54 4F 20 4D 45 4E |TO RETURN TO MEN|
000010D0: 55 29 22 00 F4 18 84 17 A1 41 24 3A 8B 41 24 B3 |U)"......A$:.A$.|
000010E0: B1 C7 28 31 33 29 AF 20 41 24 B3 B1 22 51 22 A7 |..(13). A$.."Q".|
000010F0: 36 30 32 30 00 06 19 86 17 8B 20 41 24 B2 22 51 |6020...... A$."Q|
00001100: 22 A7 36 30 39 30 00 1F 19 89 17 9F 34 2C 36 3A |".6090......4,6:|
00001110: A0 34 3A 20 8B 53 54 B3 B1 30 A7 36 30 30 30 00 |.4: .ST..0.6000.|
00001120: 28 19 8E 17 99 22 93 22 00 41 19 98 17 9F 34 2C |(....".".A....4,|
00001130: 36 3A 9F 20 36 2C 36 2C 36 3A 98 36 2C 31 3A 9D |6:. 6,6,6:.6,1:.|
00001140: 34 00 52 19 A2 17 81 20 59 41 20 B2 20 31 20 A4 |4.R.... YA . 1 .|
00001150: 20 54 00 5D 19 AC 17 8D 20 37 32 30 30 00 63 19 | T.].... 7200.c.|
00001160: B6 17 82 00 73 19 C0 17 98 34 20 3A 20 A0 34 3A |....s....4 : .4:|
00001170: A0 20 36 00 79 19 CA 17 8E 00 9B 19 57 1B 8F 20 |. 6.y.......W.. |
00001180: 52 45 43 4F 55 4E 54 20 57 4F 52 44 53 20 41 46 |RECOUNT WORDS AF|
00001190: 54 45 52 20 45 44 49 54 49 4E 47 00 AF 19 58 1B |TER EDITING...X.|
000011A0: 47 25 20 B2 20 31 20 3A 20 43 25 20 B2 20 49 00 |G% . 1 : C% . I.|
000011B0: BA 19 62 1B 43 4F 20 B2 20 30 00 C8 19 6C 1B 57 |..b.CO . 0...l.W|
000011C0: 4F 20 B2 20 54 52 55 45 00 D9 19 76 1B 81 20 49 |O . TRUE...v.. I|
000011D0: 20 B2 20 31 20 A4 20 4C 25 00 15 1A 80 1B 8B 20 | . 1 . L%...... |
000011E0: CA 28 53 24 28 47 25 29 2C 49 2C 31 29 20 B2 20 |.(S$(G%),I,1) . |
000011F0: 22 20 22 20 AF 20 57 4F 20 B2 20 46 41 4C 53 45 |" " . WO . FALSE|
00001200: 20 A7 20 8D 20 31 31 30 30 30 20 3A 57 4F 20 B2 | . . 11000 :WO .|
00001210: 20 54 52 55 45 00 3D 1A 8A 1B 8B 20 CA 28 53 24 | TRUE.=.... .(S$|
00001220: 28 47 25 29 2C 49 2C 31 29 20 B3 B1 20 22 20 22 |(G%),I,1) .. " "|
00001230: 20 A7 20 57 4F 20 B2 20 46 41 4C 53 45 00 43 1A | . WO . FALSE.C.|
00001240: 94 1B 82 00 53 1A 9E 1B 47 25 20 B2 20 47 25 20 |....S...G% . G% |
00001250: AA 20 31 00 67 1A A8 1B 8B 20 47 25 20 B3 20 54 |. 1.g.... G% . T|
00001260: 20 A7 20 37 30 33 30 00 82 1A B2 1B 99 22 93 1D | . 7030......"..|
00001270: 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 05 22 43 4F 22 9D |..........."CO".|
00001280: 20 22 00 88 1A BC 1B 8E 00 A0 1A 1F 1C 8F 20 56 | "............ V|
00001290: 49 45 57 20 4C 49 4E 45 20 4F 46 20 54 45 58 54 |IEW LINE OF TEXT|
000012A0: 00 B2 1A 20 1C 50 4C 25 20 B2 20 50 4C 25 20 AA |... .PL% . PL% .|
000012B0: 20 31 00 D2 1A 2A 1C 8B 20 50 4C 25 20 B2 20 32 | 1...*.. PL% . 2|
000012C0: 32 20 A7 20 50 4C 25 20 B2 20 31 20 3A 20 99 22 |2 . PL% . 1 : ."|
000012D0: 93 22 00 EB 1A 34 1C 99 C8 28 44 4F 24 2C 50 4C |."...4...(DO$,PL|
000012E0: 25 AA 31 29 3B 53 24 28 59 41 29 00 F1 1A 3E 1C |%.1);S$(YA)...>.|
000012F0: 8E 00 FE 1A 83 1C 8F 20 44 45 4C 45 54 45 00 09 |....... DELETE..|
00001300: 1B 84 1C 8D 20 37 38 30 30 00 28 1B 8E 1C 8B 20 |.... 7800.(.... |
00001310: 53 24 28 4C 49 29 20 B2 20 22 22 20 B0 20 4C 49 |S$(LI) . "" . LI|
00001320: 20 B1 20 54 20 A7 20 8E 00 3B 1B 98 1C 4C 45 20 | . T . ..;...LE |
00001330: B2 20 C3 28 53 24 28 4C 49 29 29 00 49 1B A2 1C |. .(S$(LI)).I...|
00001340: 50 4F 20 B2 20 B9 28 30 29 00 5C 1B AC 1C 8B 20 |PO . .(0).\.... |
00001350: 50 4F 20 B1 B2 20 4C 45 20 A7 20 8E 00 8C 1B B6 |PO .. LE . .....|
00001360: 1C 53 24 28 4C 49 29 20 B2 20 C8 28 53 24 28 4C |.S$(LI) . .(S$(L|
00001370: 49 29 2C 28 50 4F 29 29 AA C9 28 53 24 28 4C 49 |I),(PO))..(S$(LI|
00001380: 29 2C 28 4C 45 AB 50 4F AB 31 29 29 00 92 1B C0 |),(LE.PO.1))....|
00001390: 1C 8E 00 A0 1B E7 1C 8F 20 43 4C 4F 53 45 55 50 |........ CLOSEUP|
000013A0: 00 AB 1B E8 1C 8D 20 37 38 30 30 00 BD 1B F2 1C |...... 7800.....|
000013B0: 81 20 59 41 20 B2 20 4C 49 20 A4 20 54 00 D3 1B |. YA . LI . T...|
000013C0: FC 1C 53 24 28 59 41 29 20 B2 20 53 24 28 59 41 |..S$(YA) . S$(YA|
000013D0: AA 31 29 00 D9 1B 06 1D 82 00 E7 1B 10 1D 54 20 |.1)...........T |
000013E0: B2 20 54 20 AB 20 31 00 ED 1B 1A 1D 8E 00 FA 1B |. T . 1.........|
000013F0: 4B 1D 8F 20 49 4E 53 45 52 54 00 05 1C 4C 1D 8D |K.. INSERT...L..|
00001400: 20 37 38 30 30 00 18 1C 6A 1D 4C 45 20 B2 20 C3 | 7800...j.LE . .|
00001410: 28 53 24 28 4C 49 29 29 00 26 1C 74 1D 50 4F 20 |(S$(LI)).&.t.PO |
00001420: B2 20 B9 28 30 29 00 3C 1C 7E 1D A1 49 4E 24 3A |. .(0).<.~..IN$:|
00001430: 8B 49 4E 24 B2 22 22 A7 37 35 35 30 00 47 1C 88 |.IN$."".7550.G..|
00001440: 1D 8D 20 37 36 30 30 00 4D 1C 92 1D 8E 00 58 1C |.. 7600.M.....X.|
00001450: AF 1D 8F 20 53 45 52 54 00 73 1C B0 1D 8B 20 50 |... SERT.s.... P|
00001460: 4F 20 B1 20 4C 45 20 A7 20 8D 20 37 37 30 30 20 |O . LE . . 7700 |
00001470: 3A 20 8E 00 84 1C BA 1D 8B 20 4C 49 20 B1 20 54 |: ....... LI . T|
00001480: 20 A7 20 8E 00 B4 1C C4 1D 53 24 28 4C 49 29 20 | . ......S$(LI) |
00001490: B2 20 C8 28 53 24 28 4C 49 29 2C 50 4F 29 AA 49 |. .(S$(LI),PO).I|
000014A0: 4E 24 AA C9 28 53 24 28 4C 49 29 2C 28 4C 45 AB |N$..(S$(LI),(LE.|
000014B0: 50 4F 29 29 00 CE 1C CE 1D 8B 20 C3 28 53 24 28 |PO))...... .(S$(|
000014C0: 4C 49 29 29 20 B3 B2 20 4C 25 20 A7 20 8E 00 00 |LI)) .. L% . ...|
000014D0: 1D D8 1D 8B 20 C8 28 53 24 28 4C 49 AA 31 29 2C |.... .(S$(LI.1),|
000014E0: 32 29 20 B2 20 22 20 20 22 20 A7 20 8D 20 33 39 |2) . " " . . 39|
000014F0: 30 30 20 3A 20 53 24 28 4C 49 29 20 B2 20 22 22 |00 : S$(LI) . ""|
00001500: 00 2F 1D E2 1D 53 24 28 4C 49 AA 31 29 B2 C9 28 |./...S$(LI.1)..(|
00001510: 53 24 28 4C 49 29 2C 28 C3 28 53 24 28 4C 49 29 |S$(LI),(.(S$(LI)|
00001520: 29 AB 4C 25 29 29 AA 53 24 28 4C 49 AA 31 29 00 |).L%)).S$(LI.1).|
00001530: 47 1D EC 1D 53 24 28 4C 49 29 B2 C8 28 53 24 28 |G...S$(LI)..(S$(|
00001540: 4C 49 29 2C 4C 25 29 00 57 1D F6 1D 4C 49 20 B2 |LI),L%).W...LI .|
00001550: 20 4C 49 20 AA 20 31 00 73 1D 00 1E 8B 20 C3 28 | LI . 1.s.... .(|
00001560: 53 24 28 4C 49 29 29 20 B1 20 4C 25 20 A7 20 37 |S$(LI)) . L% . 7|
00001570: 36 34 30 00 79 1D 0A 1E 8E 00 8B 1D 13 1E 8F 20 |640.y.......... |
00001580: 45 58 54 52 41 20 53 50 41 43 45 00 C1 1D 14 1E |EXTRA SPACE.....|
00001590: 53 24 28 4C 49 29 B2 53 24 28 4C 49 29 AA CA 28 |S$(LI).S$(LI)..(|
000015A0: 53 50 24 2C C3 28 53 24 28 4C 49 29 29 2C 28 50 |SP$,.(S$(LI)),(P|
000015B0: 4F AB C3 28 53 24 28 4C 49 29 29 29 29 AA 49 4E |O..(S$(LI)))).IN|
000015C0: 24 00 C7 1D 28 1E 8E 00 D5 1D 77 1E 8F 20 50 4F |$...(.....w.. PO|
000015D0: 53 46 49 4E 44 00 EB 1D 78 1E 50 47 20 B2 20 B5 |SFIND...x.PG . .|
000015E0: 28 4C 49 AD 32 30 29 20 AB 20 31 00 01 1E 82 1E |(LI.20) . 1.....|
000015F0: 4C 49 20 B2 20 28 50 47 AC 32 30 29 AA 53 43 AA |LI . (PG.20).SC.|
00001600: 31 00 22 1E 8C 1E 8B 20 53 24 28 4C 49 29 20 B2 |1.".... S$(LI) .|
00001610: 20 22 22 20 A7 20 53 24 28 4C 49 29 20 B2 20 53 | "" . S$(LI) . S|
00001620: 50 24 00 3C 1E 91 1E 8B 20 4C 49 20 B1 20 54 20 |P$.<.... LI . T |
00001630: A7 20 54 20 B2 20 4C 49 20 AA 20 31 00 42 1E 96 |. T . LI . 1.B..|
00001640: 1E 8E 00 50 1E DB 1E 8F 20 52 45 50 4C 41 43 45 |...P.... REPLACE|
00001650: 00 5B 1E DC 1E 8D 20 37 33 30 30 00 71 1E E6 1E |.[.... 7300.q...|
00001660: A1 49 4E 24 3A 8B 49 4E 24 B2 22 22 A7 37 39 31 |.IN$:.IN$."".791|
00001670: 30 00 81 1E F0 1E 4C 45 20 B2 20 4C 45 20 AB 20 |0.....LE . LE . |
00001680: 31 00 8C 1E FA 1E 8D 20 37 36 30 30 00 92 1E 04 |1...... 7600....|
00001690: 1F 8E 00 A0 1E 3F 1F 8F 20 4D 45 53 53 41 47 45 |.....?.. MESSAGE|
000016A0: 00 A9 1E 40 1F 99 22 93 22 00 D2 1E 4A 1F 99 22 |...@.."."...J.."|
000016B0: D4 48 45 20 41 52 52 41 59 20 49 53 20 4E 4F 57 |.HE ARRAY IS NOW|
000016C0: 20 43 4F 4D 50 4C 45 54 45 4C 59 20 46 55 4C 4C | COMPLETELY FULL|
000016D0: 2E 22 00 FE 1E 54 1F 99 22 11 D0 4C 45 41 53 45 |."...T.."..LEASE|
000016E0: 20 44 55 4D 50 20 54 45 58 54 20 54 4F 20 54 41 | DUMP TEXT TO TA|
000016F0: 50 45 20 4F 52 20 50 52 49 4E 54 45 52 22 00 17 |PE OR PRINTER"..|
00001700: 1F 5E 1F 99 22 11 41 4E 44 20 53 54 41 52 54 20 |.^..".AND START |
00001710: 41 47 41 49 4E 2E 22 00 43 1F 68 1F 99 22 11 11 |AGAIN.".C.h.."..|
00001720: 11 11 D0 4C 45 41 53 45 20 50 52 45 53 53 20 27 |...LEASE PRESS '|
00001730: D3 D0 C1 C3 C5 27 20 54 4F 20 43 4F 4E 54 49 4E |.....' TO CONTIN|
00001740: 55 45 22 00 59 1F 72 1F A1 41 24 3A 8B 41 24 B3 |UE".Y.r..A$:.A$.|
00001750: B1 22 20 22 A7 38 30 35 30 00 67 1F 7C 1F 53 20 |." ".8050.g.|.S |
00001760: B2 20 46 41 4C 53 45 00 6D 1F 86 1F 8E 00 8D 1F |. FALSE.m.......|
00001770: 0F 27 3A 20 20 20 20 20 20 20 20 20 20 20 20 3A |.': :|
00001780: 8F 20 52 45 43 41 4C 4C 20 54 45 58 54 00 9A 1F |. RECALL TEXT...|
00001790: 10 27 99 22 93 11 11 9E 22 3B 00 A9 1F 1A 27 81 |.'."....";....'.|
000017A0: 20 4C 49 B2 31 20 A4 20 54 00 B5 1F 24 27 99 53 | LI.1 . T...$'.S|
000017B0: 24 28 4C 49 29 00 BB 1F 2E 27 82 00 D3 1F 33 27 |$(LI)....'....3'|
000017C0: 81 20 49 20 B2 20 31 20 A4 20 34 20 3A 20 99 20 |. I . 1 . 4 : . |
000017D0: 3A 20 82 00 F1 1F 38 27 53 43 20 B2 20 AB 28 54 |: ....8'SC . .(T|
000017E0: B3 32 30 29 AC 54 AB 28 54 B1 B2 32 30 29 AC 32 |.20).T.(T..20).2|
000017F0: 30 00 FF 1F 42 27 4C 49 20 B2 20 4C 49 AB 31 00 |0...B'LI . LI.1.|
00001800: 0B 20 4C 27 54 20 20 B2 20 4C 49 00 11 20 56 27 |. L'T . LI.. V'|
00001810: 8E 00 1F 20 F8 2A 43 4F 20 B2 20 43 4F AA 31 00 |... .*CO . CO.1.|
00001820: 3B 20 02 2B 99 22 13 1D 1D 1D 1D 1D 1D 1D 1D 1D |; .+."..........|
00001830: 1D 12 05 22 43 4F 22 05 9D 20 22 00 76 20 0C 2B |..."CO".. ".v .+|
00001840: 99 C8 28 44 4F 24 2C 32 33 29 3B 22 12 1C C6 31 |..(DO$,23);"...1|
00001850: 20 3A 20 D2 45 54 55 52 4E 20 54 4F 20 4D 41 49 | : .ETURN TO MAI|
00001860: 4E 20 4D 45 4E 55 20 20 20 20 20 20 20 20 20 20 |N MENU |
00001870: 20 20 20 20 20 22 00 A8 20 16 2B 99 22 12 20 20 | ".. .+.". |
00001880: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001890: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000018A0: 20 20 20 20 20 9E 92 22 00 C3 20 20 2B 99 C8 28 | ..".. +..(|
000018B0: 44 4F 24 2C 32 32 29 3B 4C 49 24 3B 22 90 23 9D |DO$,22);LI$;".#.|
000018C0: 9E 22 3B 00 C9 20 2A 2B 8E 00 FE 20 E0 2E 8B 20 |.";.. *+... ... |
000018D0: 42 24 B2 22 91 22 20 AF 20 53 43 B1 30 20 A7 20 |B$."." . SC.0 . |
000018E0: 8D 20 31 32 35 30 30 20 3A 53 43 20 B2 20 53 43 |. 12500 :SC . SC|
000018F0: AB 31 20 3A 20 4C 49 20 B2 20 4C 49 AB 31 00 33 |.1 : LI . LI.1.3|
00001900: 21 F4 2E 8B 20 42 24 B2 22 11 22 20 AF 20 53 43 |!... B$."." . SC|
00001910: B3 31 39 20 A7 20 8D 20 31 32 35 30 30 20 3A 53 |.19 . . 12500 :S|
00001920: 43 20 B2 20 53 43 AA 31 20 3A 20 4C 49 B2 20 4C |C . SC.1 : LI. L|
00001930: 49 AA 31 00 52 21 FE 2E 8B 20 42 24 B2 22 1D 22 |I.1.R!... B$."."|
00001940: 20 AF 20 B9 28 30 29 B3 33 38 20 A7 20 31 32 35 | . .(0).38 . 125|
00001950: 30 30 00 70 21 08 2F 8B 20 42 24 B2 22 9D 22 20 |00.p!./. B$."." |
00001960: AF 20 B9 28 30 29 B1 30 20 A7 20 31 32 35 30 30 |. .(0).0 . 12500|
00001970: 00 76 21 12 2F 8E 00 8C 21 D4 30 99 22 9F 22 3B |.v!./...!.0.".";|
00001980: 43 55 24 3B 22 9D 9F 22 3B 42 24 3B 00 AB 21 F2 |CU$;"..";B$;..!.|
00001990: 30 A1 23 31 2C 43 55 24 3A 8B 43 55 24 B2 C7 28 |0.#1,CU$:.CU$..(|
000019A0: 31 33 29 A7 43 55 24 B2 22 20 22 00 C0 21 FC 30 |13).CU$." "..!.0|
000019B0: 99 22 9D 12 1C 22 3B 43 55 24 3B 22 9D 92 22 3B |."...";CU$;"..";|
000019C0: 00 C6 21 06 31 8E 00 CC 21 AE 36 20 00 EF 21 AF |..!.1...!.6 ..!.|
000019D0: 36 3A 20 20 20 20 20 20 20 20 20 20 20 3A 8F 20 |6: :. |
000019E0: 43 4C 45 41 4E 20 4F 55 54 20 41 52 52 41 59 00 |CLEAN OUT ARRAY.|
000019F0: FF 21 B0 36 81 20 49 20 B2 20 31 20 A4 20 54 00 |.!.6. I . 1 . T.|
00001A00: 0E 22 BA 36 53 24 28 49 29 20 B2 20 22 22 00 14 |.".6S$(I) . ""..|
00001A10: 22 C4 36 82 00 1E 22 CE 36 54 20 B2 20 31 00 29 |".6...".6T . 1.)|
00001A20: 22 D8 36 43 4F 20 B2 20 30 00 34 22 E2 36 53 43 |".6CO . 0.4".6SC|
00001A30: 20 B2 20 31 00 3F 22 EC 36 4C 49 20 B2 20 31 00 | . 1.?".6LI . 1.|
00001A40: 45 22 F6 36 8E 00 5E 22 98 3A 99 22 93 22 A3 31 |E".6..^".:.".".1|
00001A50: 35 29 22 CA 55 53 54 20 D7 4F 52 44 53 22 00 74 |5)".UST .ORDS".t|
00001A60: 22 A2 3A 99 A3 31 35 29 22 2D 2D 2D 2D 2D 2D 2D |".:..15)"-------|
00001A70: 2D 2D 2D 22 00 A4 22 AC 3A 99 22 11 20 D4 48 49 |---"..".:.". .HI|
00001A80: 53 20 50 52 4F 47 52 41 4D 20 49 53 20 41 20 53 |S PROGRAM IS A S|
00001A90: 49 4D 50 4C 45 20 57 4F 52 44 20 50 52 4F 43 45 |IMPLE WORD PROCE|
00001AA0: 53 53 4F 52 00 C9 22 B6 3A 99 22 46 4F 52 20 54 |SSOR..".:."FOR T|
00001AB0: 48 45 20 C3 C2 CD 20 36 34 20 CD 49 43 52 4F 43 |HE ... 64 .ICROC|
00001AC0: 4F 4D 50 55 54 45 52 2E 22 00 F8 22 C0 3A 99 22 |OMPUTER."..".:."|
00001AD0: 11 11 20 C4 41 54 41 20 43 41 4E 20 42 45 20 45 |.. .ATA CAN BE E|
00001AE0: 4E 54 45 52 45 44 20 46 52 4F 4D 20 53 43 52 41 |NTERED FROM SCRA|
00001AF0: 54 43 48 20 2C 4F 52 22 00 28 23 CA 3A 99 22 41 |TCH ,OR".(#.:."A|
00001B00: 44 44 45 44 20 54 4F 20 54 45 58 54 20 50 52 45 |DDED TO TEXT PRE|
00001B10: 56 49 4F 55 53 4C 59 20 53 54 4F 52 45 44 20 4F |VIOUSLY STORED O|
00001B20: 4E 20 54 41 50 45 2E 22 00 5D 23 D4 3A 99 22 91 |N TAPE.".]#.:.".|
00001B30: CE 45 57 20 54 45 58 54 20 43 41 4E 20 42 45 20 |.EW TEXT CAN BE |
00001B40: 53 41 56 45 44 20 4F 4E 20 54 41 50 45 20 46 4F |SAVED ON TAPE FO|
00001B50: 52 20 4C 41 54 45 52 20 55 53 45 2E 22 00 83 23 |R LATER USE."..#|
00001B60: DE 3A 99 22 11 20 D4 45 58 54 20 49 53 20 54 59 |.:.". .EXT IS TY|
00001B70: 50 45 44 20 49 4E 20 57 48 45 4E 20 49 4E 20 54 |PED IN WHEN IN T|
00001B80: 48 45 22 00 A9 23 E8 3A 99 22 27 C9 4E 50 55 54 |HE"..#.:."'.NPUT|
00001B90: 20 54 45 58 54 27 20 4D 4F 44 45 2E 20 D4 48 45 | TEXT' MODE. .HE|
00001BA0: 20 54 45 58 54 20 49 53 22 00 D9 23 F2 3A 99 22 | TEXT IS"..#.:."|
00001BB0: 41 55 54 4F 4D 41 54 49 43 41 4C 4C 59 20 53 54 |AUTOMATICALLY ST|
00001BC0: 4F 52 45 44 20 49 4E 20 4D 45 4D 4F 52 59 20 41 |ORED IN MEMORY A|
00001BD0: 4E 44 20 41 20 4E 45 57 22 00 0A 24 FC 3A 99 22 |ND A NEW"..$.:."|
00001BE0: 91 4C 49 4E 45 20 53 45 4C 45 43 54 45 44 20 57 |.LINE SELECTED W|
00001BF0: 48 45 4E 20 41 54 20 54 48 45 20 45 4E 44 20 4F |HEN AT THE END O|
00001C00: 46 20 41 20 4C 49 4E 45 2E 22 00 34 24 06 3B 99 |F A LINE.".4$.;.|
00001C10: 22 20 C1 20 4E 45 57 20 50 41 52 41 47 52 41 50 |" . NEW PARAGRAP|
00001C20: 48 20 43 41 4E 20 42 45 20 53 54 41 52 54 45 44 |H CAN BE STARTED|
00001C30: 20 42 59 22 00 4C 24 10 3B 99 22 50 52 45 53 53 | BY".L$.;."PRESS|
00001C40: 49 4E 47 20 D2 C5 D4 D5 D2 CE 2E 22 00 58 24 1A |ING .......".X$.|
00001C50: 3B 8D 20 31 36 30 30 30 00 87 24 24 3B 99 22 93 |;. 16000..$$;.".|
00001C60: 20 D4 45 58 54 20 43 41 4E 20 42 45 20 45 44 49 | .EXT CAN BE EDI|
00001C70: 54 45 44 20 49 4E 20 54 48 45 20 27 C5 44 49 54 |TED IN THE '.DIT|
00001C80: 20 54 45 58 54 27 22 00 B2 24 2E 3B 99 22 4D 4F | TEXT'"..$.;."MO|
00001C90: 44 45 2C 20 57 48 49 43 48 20 41 4C 4C 4F 57 53 |DE, WHICH ALLOWS|
00001CA0: 20 43 48 41 52 41 43 54 45 52 53 20 54 4F 20 42 | CHARACTERS TO B|
00001CB0: 45 22 00 DA 24 38 3B 99 22 44 45 4C 45 54 45 44 |E"..$8;."DELETED|
00001CC0: 2C 20 52 45 50 4C 41 43 45 44 2C 20 41 4E 44 20 |, REPLACED, AND |
00001CD0: 49 4E 53 45 52 54 45 44 2E 22 00 04 25 42 3B 99 |INSERTED."..%B;.|
00001CE0: 22 C6 4F 52 20 45 58 41 4D 50 4C 45 2C 20 54 4F |".OR EXAMPLE, TO|
00001CF0: 20 49 4E 53 45 52 54 20 41 20 43 48 41 52 2C 20 | INSERT A CHAR, |
00001D00: 59 4F 55 22 00 33 25 4C 3B 99 22 50 4F 53 49 54 |YOU".3%L;."POSIT|
00001D10: 49 4F 4E 20 54 48 45 20 43 55 53 4F 52 20 4F 56 |ION THE CUSOR OV|
00001D20: 45 52 20 54 48 45 20 41 50 50 52 4F 50 52 49 41 |ER THE APPROPRIA|
00001D30: 54 45 22 00 63 25 56 3B 99 22 43 48 41 52 20 54 |TE".c%V;."CHAR T|
00001D40: 48 45 4E 20 50 52 45 53 53 20 54 48 45 20 C9 CE |HEN PRESS THE ..|
00001D50: D3 2F C4 C5 CC 20 4B 45 59 20 46 4F 4C 4C 4F 57 |./... KEY FOLLOW|
00001D60: 45 44 22 00 8C 25 60 3B 99 22 91 42 59 20 54 48 |ED"..%`;.".BY TH|
00001D70: 45 20 43 48 41 52 41 43 54 45 52 20 54 4F 20 42 |E CHARACTER TO B|
00001D80: 45 20 49 4E 53 45 52 54 45 44 2E 22 00 BD 25 6A |E INSERTED."..%j|
00001D90: 3B 99 22 11 C9 4E 20 54 48 49 53 20 4D 4F 44 45 |;."..N THIS MODE|
00001DA0: 2C 20 54 45 58 54 20 43 41 4E 20 41 4C 53 4F 20 |, TEXT CAN ALSO |
00001DB0: 42 45 20 4A 55 53 54 49 46 49 45 44 22 00 E5 25 |BE JUSTIFIED"..%|
00001DC0: 74 3B 99 22 91 41 4E 44 20 57 48 4F 4C 45 20 4C |t;.".AND WHOLE L|
00001DD0: 49 4E 45 53 20 43 41 4E 20 42 45 20 44 45 4C 45 |INES CAN BE DELE|
00001DE0: 54 45 44 2E 22 00 FA 25 80 3E A1 41 24 3A 8B 41 |TED."..%.>.A$:.A|
00001DF0: 24 B2 22 22 A7 31 36 30 30 30 00 00 26 8A 3E 8E |$."".16000..&.>.|
00001E00: 00 00 00 |... |
........)....650,128 :. ALL KEYS REPEA
T.S.... POKE788,52 :REM RUN/STOP DISA
BLE.U....53280, 12 :. SCREEN / BORDER...
...53281, 12 :. COLOURS......1,3,1
:. CHANNEL TO SCREEN......*************
********************......*
*.*....*" WORD PRO
CESSOR "*.Q.(..*
*.W.N..*****************
***************...... "FOR . HIT CTRL
N (SWITCH TO LOWER
CASE)"...... "FOR . HIT CTRL H
(TURN SHIFT LOGO OFF) ".D.
... "FOR . HIT SHIFT CLR/HOME
(CLEAR SCREEN)"...... "FOR . HIT
CLR/HOME (CURSOR HOME
)"... .. ".=F1 .=F2 .=F3 .=F4 .=F5 .=F6
.=F7 .=F8...... ".=BLK .=WHT .
=RED .=CYN .=PUR .=GRN .=BLU .=YEL.(....
".=CRSR DOWN .=CRSR UP .=CRSR RIGHT .=C
RSR LEFT.D.... INITIALISE VARIABLES.R.H
.. S$(250).`.R.TRUE ..1.M...FALSE .0.Z.
..CO .0.....T .1.....SC .1....
.LI .1.V...SP$ ."
".....LI$ .""..."
.IG .FALSE...,.S .FALSE...6.EN
.FALSE.(.@.PA .FALSE.9.J.SK .FALS
E.J.T.WO .FALSE.|.^.DO$."............
...........................".....L% .
38...... 1010 :. DISPLAY MENU.K...:
:. BACK TO BASIC.W.&..788,49.
..0. 1 :. CLOSE SCREEN...:.....D.
.G(147);G(142);G(9)...N.....X. .B...:
:. MENU SELECTION.N...."...."._
.....18);"MENU".P.....18);"----".......5
3);".(1) TEXT INPUT".......53);"(2) TEXT
EDIT"...$...53);"(3) SAVE TEXT".Z.....5
3);"(4) LOAD TEXT"...8...53);"(5) PRINT
TEXT"...B...53);"(6) INSTRUCTIONS"...G..
.53);"(7) END SESSION".V.L.. A$ : . A$ .
"1" . A$ . "7" . 1100.E...OP . E(A$).V.
... OP . 7 . .. .D.. OP . 2000,3000,4000
,5000,6000,15000...N.. 1010...X. .P.F.:
:. INPUT TEXT.Z.P..".";...Z..
.13);".NEW TEXT (Y/N)?"...... T$.!.... T
$ . "Y" . T$ . "Y" . 2070.C.... T$.. "N"
. T$ .. "N" . 2020.O.... 10000.[.... 2
120.G.... 14000.Q. .T .1.{.*.LI .1...4.
CO .0...>.SC .1...H.EN .FALSE...R.. 2200
...\.. 2400...F.. EN .. TRUE . OP .. 2 .
S .. TRUE . 2130...P. ...Z.. S . . 8000
..... .......)...: :. GET LIN
E OF TEXT.[...."...WORD COUNT
"......".
."......H(DO$,
22);SP$;"..".....LI$ . ""...... PA . TRU
E . PA.FALSE:LI$." "......110
00...J..A$:.A$.".". EN . TRUE.H.T..(A$..
" ".A$.."Z") . (A$.."A".A$.."Z") . LI$.L
I$.A$:.A$".#..";.^....A$.G(13).PA.TRUE..
....A$.G(20).LI$.."".LI$.H(LI$,C(LI$).1)
:."..#. ...";.C....A$." ". WO .FALSE .
. 11000 : WO . TRUE......(A$.."!".A$.."Z
") . (A$.."A".A$.."Z") . WO . FALSE.3...
. EN.. TRUE . .(0) .. 39 . PA .. TRUE .
OP..2 .2250.9.....?.V. .^.[.:
:. STORE TEXT.O.`.S$(LI) . LI$.}.J.SC .
SC.1...T..H(DO$,SC.1);LI$. .~.LI . LI.1
.....T.LI...... LI .250 . S.TRUE.P.... S
C.20 . ......."..."LI$.....SC . 2.......
..C. .....: :. EDIT TEXT.$..
.. T . 1 . ../.... 3100.G.B.. B$ ."."
. ..A.V.. B$ .G(20) . . 7300.{....
B$ .G(148) . . 7500...... B$ ."."
. . 7400...... B$ ."." . . 7900...
... 3000.X...: :. EDIT.....BO
. 1...&.."..PRESS . SPACE . TO SCROLL AN
D . S . TO STOP.".$.0.SC . 1.:.:.. LI .
BO . BO.19.F.D..S$(LI).T.N.SC . SC.1.Z.X
...I.B.BO . BO.20...L..S$ : . S$."" . 31
80...V.. S$.."S" . BO..T . 3110...{.BO .
BO.20......H(DO$,24);".. F1 RETURN TO M
ENU F3 DELETE LINE "......".
F5 REPLACE .".%...S
C . 0.U....".";SP$;".."; : .#1,CU$ : .".
..";CU$;"..";.N....B$ : . B$."" . 3240.Z
.... 12000...... (B$."." . B$.".") . B$
..G(20) . B$..G(148).3240...F....... .K.
..UP . . UP...;.. MOVE ARRAY UP ONE...<.
T% . I...F.. I . T . LI.1 ..1...P.S$(I.1
) . S$(I)...Z...:.D.I . T% : T . T . 1 :
..T.M.. MOVE ARRAY DOWN ONE._.N.T% . I.
R.X.. I . LI.1 . T.....S$(I) . S$(I.1)..
.........I . T% : T . T . 1 : ....... SA
VE TEXT TO TAPE... .."...PLEASE INSERT D
ATA TAPE, THEN."......2,1,1......2,(LI.1
).....PL%.1...... YA . 1 . T.*.H..2,S$(Y
A).5.R.. 7200.;.....B... 2.H.....B.... L
OAD TEXT FROM TAPE......".... YOU W
ILL LOAD THE NEXT FILE
ON THE TAPE".Z...." ..PLEASE INSERT
DATA TAPE, THEN."......2,1,0......2,T..
...PL%.1......YA.1.T.1......2,S$(YA). ..
..S$(YA).(.D..YA.A.N..IF ST = 0 THEN 504
0.S.X.. T = YA - 1.Z... 2.`.....{.O.. S
END TEXT TO PRINTER...P.PL% . 1.S.Z..".T
URN YOUR PRINTER ON AND PRESS 'RETURN'
(OR Q TO RETURN TO MENU)"......A$:.A$.
.G(13). A$.."Q".6020...... A$."Q".6090..
....4,6: 4: .ST..0.6000.(....".".A....4,
6:. 6,6,6:.6,1:.4.R.... YA . 1 . T.]....
7200.C.....S....4 : 4: 6.Y.J.....W..
RECOUNT WORDS AFTER EDITING...X.G% . 1 :
C% . I...B.CO . 0.H.L.WO . TRUE.Y.V.. I
. 1 . L%...... J(S$(G%),I,1) . " " . WO
. FALSE . . 11000 :WO . TRUE.=.... J(S$
(G%),I,1) .. " " . WO . FALSE.C.....S...
G% . G% . 1.G.... G% . T . 7030......"..
..........."CO". "....... .... VIEW LINE
OF TEXT... .PL% . PL% . 1.R.*.. PL% . 2
2 . PL% . 1 : ."."...4..H(DO$,PL%.1);S$(
YA)...>........ DELETE...... 7800.(....
S$(LI) . "" . LI . T . ..;...LE . C(S$(L
I)).I...PO . .(0).\.... PO .. LE . .....
.S$(LI) . H(S$(LI),(PO)).I(S$(LI),(LE.PO
.1))....... .... CLOSEUP...... 7800.....
. YA . LI . T.S...S$(YA) . S$(YA.1).Y...
......T . T . 1.........K.. INSERT...L..
7800...J.LE . C(S$(LI)).&.T.PO . .(0).<
.~..IN$:.IN$."".7550.G.... 7600.M.....X.
... SERT.S.... PO . LE . . 7700 : ......
. LI . T . ....D.S$(LI) . H(S$(LI),PO).I
N$.I(S$(LI),(LE.PO)).N.N.. C(S$(LI)) ..
L% . ....X.. H(S$(LI.1),2) . " " . . 39
00 : S$(LI) . ""./...S$(LI.1).I(S$(LI),(
C(S$(LI)).L%)).S$(LI.1).G...S$(LI).H(S$(
LI),L%).W...LI . LI . 1.S.... C(S$(LI))
. L% . 7640.Y.......... EXTRA SPACE.A...
S$(LI).S$(LI).J(SP$,C(S$(LI)),(PO.C(S$(L
I)))).IN$.G.(...U.W.. POSFIND...X.PG . .
(LI.20) . 1.....LI . (PG.20).SC.1."....
S$(LI) . "" . S$(LI) . SP$.<.... LI . T
. T . LI . 1.B.....P.... REPLACE.[.... 7
300.Q....IN$:.IN$."".7910.....LE . LE .
1...... 7600....... .?.. MESSAGE...@..".
".R.J.."THE ARRAY IS NOW COMPLETELY FULL
."...T..".PLEASE DUMP TEXT TO TAPE OR PR
INTER"...^..".AND START AGAIN.".C.H.."..
..PLEASE PRESS 'SPACE' TO CONTINUE".Y.R.
.A$:.A$.." ".8050.G.|.S . FALSE.M.......
.': :. RECALL TEXT....'."....
";....'. LI.1 . T...$'.S$(LI)....'..S.3'
. I . 1 . 4 : . : ....8'SC . .(T.20).T.(
T..20).20...B'LI . LI.1.. L'T . LI.. V'
... .*CO . CO.1.; .+."............."CO".
. ".V .+.H(DO$,23);"..F1 : RETURN TO MAI
N MENU ".. .+.".
..".C +.H(
DO$,22);LI$;".#..";.I *+... ... B$."." .
SC.0 . . 12500 :SC . SC.1 : LI . LI.1.3
!... B$."." . SC.19 . . 12500 :SC . SC.1
: LI. LI.1.R!... B$."." . .(0).38 . 125
00.P!./. B$."." . .(0).0 . 12500.V!./...
!T0.".";CU$;"..";B$;..!.0.#1,CU$:.CU$.G(
13).CU$." "..!.0."...";CU$;"..";.F!.1..L
!.6 ..!.6: :. CLEAN OUT ARRAY.
.!.6. I . 1 . T..".6S$(I) . "".."D6..."N
6T . 1.)"X6CO . 0.4".6SC . 1.?".6LI . 1.
E".6..^".:.".".15)"JUST WORDS".T".:..15)
"----------"..".:.". THIS PROGRAM IS A S
IMPLE WORD PROCESSOR.I".:."FOR THE CBM 6
4 MICROCOMPUTER."..".:.".. DATA CAN BE E
NTERED FROM SCRATCH ,OR".(#J:."ADDED TO
TEXT PREVIOUSLY STORED ON TAPE.".]#T:.".
NEW TEXT CAN BE SAVED ON TAPE FOR LATER
USE."..#.:.". TEXT IS TYPED IN WHEN IN T
HE"..#.:."'INPUT TEXT' MODE. THE TEXT IS
".Y#.:."AUTOMATICALLY STORED IN MEMORY A
ND A NEW"..$.:.".LINE SELECTED WHEN AT T
HE END OF A LINE.".4$.;." A NEW PARAGRAP
H CAN BE STARTED BY".L$.;."PRESSING RETU
RN.".X$.;. 16000..$$;.". TEXT CAN BE EDI
TED IN THE 'EDIT TEXT'"..$.;."MODE, WHIC
H ALLOWS CHARACTERS TO BE".Z$8;."DELETED
, REPLACED, AND INSERTED."..%B;."FOR EXA
MPLE, TO INSERT A CHAR, YOU".3%L;."POSIT
ION THE CUSOR OVER THE APPROPRIATE".C%V;
."CHAR THEN PRESS THE INS/DEL KEY FOLLOW
ED"..%`;.".BY THE CHARACTER TO BE INSERT
ED."..%J;.".IN THIS MODE, TEXT CAN ALSO
BE JUSTIFIED"..%T;.".AND WHOLE LINES CAN
BE DELETED."..%.>.A$:.A$."".16000..&.>.
...
> CLICK IMAGE PREVIEW FOR FULL MODAL