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