10 REM View to Wordwise Converter 20 REM (C) 1996 Jon Ripley 30 REM This program is PD 40 REM Please DO NOT ALTER this program 50 DEFFNS="View>WW" 60 ONERRORPRINT"Error...":END 70 MODE135 80 S%=((TOP DIV256)+2)*256:E%=HIMEM-&100 90 PRINT"View to Wordwise (ASCII) text conversion" 100 PRINT"(C) 1996 Jon Ripley"' 110 INPUT"Name of View file:"A$ 120 INPUT"Save Wordwise file as:"B$ 130 A%=OPENINA$ 140 IF EXT#A%>(E%-S%) PRINT"File to large.":CLOSE#A%:END 150 R%=S%:E%=S%+EXT#A%:W%=S%:E%?1=13 160 CLOSE#A% 170 OSCLI"Load "+A$+" "+STR$~S% 180 PRINT'"Working..."; 190 FORR%=S%TOE% 200 C%=?R% 210 IF C%=&80 R%=R%+2:NEXT:PROCend 220 IF C%=&81 REPEATR%=R%+1:UNTIL?R%=13:NEXT:PROCend 230 IF C%=9 ?W%=&DD:W%=W%+1:NEXT:PROCend 240 IF C%=13 AND R%?1=13 ?W%=13:W%?1=13:W%=W%+2:R%=R%+1:NEXT:PROCend 250 D%=-1:IF C%=13 D%=R%?1:IF (D%>31 AND D%<127) OR D%=&1A OR D%=&1B OR D%=&1D ?W%=32:W%=W%+1:NEXT:PROCend ELSEIF D%<>-1 ?W%=13:W%=W%+1:NEXT:PROCend 260 IF C%>31 AND C%<127 ?W%=C%:W%=W%+1 270 NEXT 280 DEFPROCend 290 PRINT'"Saving..." 300 E%=W% 310 OSCLI"Save "+B$+" "+STR$~S%+" "+STR$~E%+" 0 0"