8-Bit Software Online Conversion

View To Wordwise And ASCII - Listing

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"