Wordfix

   1 GOTO 130
   2 IF C$="" THEN LET X=999
   3 RETURN 
   4 LET Z$=""
   5 RETURN 
   6 LET Z$=Z$+""
   7 RETURN 
 100 LET Z$=""
 120 LET A=0
 130 GOSUB 400
 140 IF X=227 THEN STOP 
 150 IF X>63 AND X<>192 THEN GOTO 500
 160 LET X$=CHR$ X
 165 GOSUB 450
 169 GOTO 130
 200 GOSUB 400
 210 IF X=116 THEN GOTO 130
 220 IF X=119 THEN GOTO 330
 230 IF X=121 OR X=118 THEN GOSUB X*30+1000
 235 GOSUB 1080
 240 IF X>10 AND X<63 THEN GOTO 300
 250 LET X$="\' \ '\ .\. \: \..\''\ :\.:\:.\:'\':\.'\'.\##\~~\,,\!!\;;\@@% "+CHR$ 117+" AND THEN TO "+CHR$ 114+CHR$ 113+CHR$ 112+CHR$ 115+""" OR STEP <=<>>= STOP LPRINT SLOW FAST LLIST **"+CHR$ 118
 260 FOR J=22 TO 42
 270 IF X=CODE X$(J) THEN GOTO 290
 280 NEXT J
 289 GOTO 200
 290 LET X$=X$(J-21)
 299 GOTO 320
 310 LET X=X+128
 320 GOSUB 450
 329 GOTO 200
 330 GOSUB 4570
 339 GOTO 200
 400 CLS 
 410 IF A=0 THEN PRINT ">";
 420 PRINT Z$
 449 GOTO 1000
 450 IF A=0 THEN LET Z$=X$+Z$
 460 IF A>0 AND A<LEN Z$ THEN LET Z$=Z$(1 TO A)+X$+Z$(A+1 TO )
 470 IF A=LEN Z$ THEN LET Z$=Z$+X$
 480 LET A=A+1
 499 RETURN 
 500 IF X=116 THEN GOTO 200
 505 IF X=227 THEN GOTO 140
 510 IF X=228 THEN GOTO 100
 520 GOSUB X*30+1000
 530 IF X=226 AND X$>"" THEN SAVE X$
 560 IF X=117 THEN GOTO 600
 570 IF X=0 OR X=12 OR X=67 THEN GOTO 160
 580 IF A>LEN Z$ THEN LET A=LEN Z$
 590 IF A<1 THEN GOTO 120
 599 GOTO 130
 600 GOSUB 1060
 608 IF X=118 OR X=121 THEN GOTO 130
 609 GOTO 500
\n1000 GOSUB 1090
\n1010 LET Q=Q+A+INT ((A-1)/32)
\n1020 IF A=0 THEN LET Q=Q+2
\n1030 LET X=PEEK Q
\n1040 GOSUB 1080
\n1045 REM IF A>0 THEN IF CODE Z$(A)=67 THEN GOTO 1051
\n1050 IF X=0 OR X>10 AND X<64 THEN POKE Q,X+128
\n1060 PAUSE 40000
\n1061 POKE 16437,255
\n1062 LET X=CODE INKEY$
\n1069 RETURN 
\n1080 IF X=192 THEN LET X=11
\n1089 RETURN 
\n1090 LET Q=PEEK 16396+256*PEEK 16397
\n1099 RETURN 
\n1100 PRINT AT 20,0;
\n1110 FOR J=28 TO 59
\n1120 PRINT CHR$ J;
\n1130 NEXT J
\n1140 PRINT "ENTER L.H. MARGIN"
\n1150 GOSUB 1060
\n1160 IF X<28 OR X>59 THEN GOTO 1180
\n1170 LET L=X-28
\n1180 PRINT AT 21,6;"R"
\n1190 GOSUB 1060
\n1200 IF X<28 OR X>59 THEN GOTO 1220
\n1210 LET R=60-X
\n1220 CLS 
\n1230 FOR J=1 TO LEN Z$
\n1235 IF PEEK 16442<3 THEN GOTO 1490
\n1240 GOSUB 1370
\n1245 GOTO 1420
\n1250 LET K=J
\n1260 LET J=J+32-R
\n1270 IF J<=LEN Z$ THEN GOTO 1290
\n1280 PRINT Z$(K TO )
\n1289 GOTO 1360
\n1290 IF Z$(J)>" " THEN GOTO 1320
\n1300 PRINT Z$(K TO J-1)
\n1310 GOTO 1350
\n1320 LET J=J-1
\n1330 IF Z$(J)=" " THEN GOTO 1300
\n1340 GOTO 1320
\n1350 NEXT J
\n1365 LET X=117
\n1369 RETURN 
\n1370 IF L=0 THEN RETURN 
\n1380 FOR L=1 TO L
\n1390 PRINT " ";
\n1400 NEXT L
\n1410 LET L=L-1
\n1419 RETURN 
\n1420 FOR K=J TO J+32-R
\n1425 IF K>LEN Z$ THEN GOTO 1449
\n1430 IF Z$(K)=CHR$ 67 THEN GOTO 1450
\n1440 NEXT K
\n1449 GOTO 1246
\n1450 IF K=J THEN GOTO 1480
\n1460 PRINT Z$(J TO K-1);
\n1470 LET J=K
\n1479 GOTO 1240
\n1480 PRINT 
\n1489 GOTO 1350
\n1490 GOSUB 1060
\n1500 IF X<>121 AND X<>118 THEN RETURN 
\n1510 IF X=118 THEN SCROLL 
\n1511 IF X=121 THEN CLS 
\n1519 GOTO 1231
\n1520 PRINT AT 21,0;"FILE REF (A TO W)"
\n1529 GOTO 1060
\n1600 GOSUB 1520
\n1610 IF X<38 OR X>59 THEN RETURN 
\n1620 POKE 16529,X
\n1630 GOSUB 2
\n1640 IF X=999 THEN GOTO 1670
\n1650 PRINT AT 21,0;"WARNING - ";CHR$ X;"$ IN USE"
\n1660 GOSUB 1060
\n1669 IF X<>PEEK 16529 THEN GOTO 1610
\n1670 POKE 16559,PEEK 16529
\n1671 POKE 16562,63
\n1672 POKE 16563,13
\n1679 GOTO 4
\n1680 POKE 16559,61
\n1681 POKE 16562,X
\n1682 POKE 16563,13
\n1689 RETURN 
\n1700 GOSUB 1520
\n1710 IF X<38 OR X>59 THEN RETURN 
\n1720 GOSUB 1680
\n1750 GOSUB 4
\n1759 GOTO 450
\n1760 LET J=A
\n1770 GOSUB 1060
\n1772 IF X>111 AND X<116 THEN GOSUB X*30+1000
\n1773 IF A>LEN Z$ THEN LET A=LEN Z$
\n1774 IF A<J THEN LET A=J
\n1775 IF X=119 THEN GOTO 1840
\n1776 IF X<112 OR X>119 THEN GOTO 1880
\n1778 GOSUB 1090
\n1780 LET Q=Q+A+INT ((A-1)/32)
\n1790 IF A=0 THEN LET Q=Q+2
\n1800 LET X=PEEK Q
\n1810 GOSUB 1080
\n1820 REM IF A>0 THEN IF CODE Z$(A)=67 THEN GOTO 1770
\n1830 IF X=0 OR X>10 AND X<64 THEN POKE Q,X+128
\n1839 GOTO 1770
\n1840 IF J<2 THEN LET Z$=Z$(A+1 TO )
\n1850 IF J>1 AND A<LEN Z$ THEN LET Z$=Z$(1 TO J-1)+Z$(A+1 TO )
\n1860 IF J>1 AND A>=LEN Z$ THEN LET Z$=Z$(1 TO J-1)
\n1880 LET A=J
\n1889 RETURN 
\n4360 LET A=A-32
\n4369 RETURN 
\n4390 IF A=0 AND Z$>"" THEN LET A=1
\n4400 LET A=A+32
\n4409 RETURN 
\n4420 LET A=A-1
\n4429 RETURN 
\n4450 LET A=A+1
\n4459 RETURN 
\n4510 GOTO 1100
\n4520 RETURN 
\n4540 LET X=0
\n4549 RETURN 
\n4570 IF A=LEN Z$ THEN GOTO 4580
\n4572 IF A<2 THEN LET Z$=Z$(2 TO )
\n4574 IF A>1 THEN LET Z$=Z$(1 TO A-1)+Z$(A+1 TO )
\n4579 GOTO 4581
\n4580 LET Z$=Z$(1 TO LEN Z$-1)
\n4582 LET A=A-1
\n4589 RETURN 
\n4630 LET X=12
\n4639 RETURN 
\n7540 GOTO 1700
\n7570 LET Z$=""
\n7571 FOR J=1 TO 704
\n7573 LET Z$=Z$+CHR$ PEEK (32000+J)
\n7574 NEXT J
\n7580 FOR J=704 TO 1 STEP -1
\n7582 IF Z$(J)>" " THEN RETURN 
\n7584 LET Z$=Z$(1 TO J-1)
\n7586 NEXT J
\n7600 GOSUB 1090
\n7602 FOR J=1 TO 704
\n7604 POKE 32000+J,PEEK (Q+J+INT ((J-1)/32))
\n7606 NEXT J
\n7609 RETURN 
\n7660 GOTO 1760
\n7689 RETURN 
\n7690 LET X=67
\n7699 RETURN 
\n7750 GOTO 1600
\n7780 PRINT AT 21,0;"ENTER PROGRAM NAME"
\n7790 INPUT X$
\n7799 RETURN 
\n7870 GOSUB 1520
\n7872 POKE 16559,X
\n7873 POKE 16562,11
\n7874 POKE 16563,11
\n7879 GOTO 4
\n7899 RETURN 
\n9000 REM COPYRIGHT N.GODWIN 1982