10REM Unformat ASCII - USE THIS OR EL
SE!!!!
20CLS:INPUT"Filename to convert : "lo
ad$
30INPUT"Filename to save as : "save$
40W%=OPENIN load$:X%=OPENOUT save$
50REPEAT:Z%=BGET#W%
60IF Z%=13 THEN PROCchange ELSE BPUT#
X%,Z%
70UNTIL EOF#W%:CLOSE#W%:CLOSE#X%:END
80DEFPROCchange:Z%=BGET#W%
90IF Z%=13 THEN BPUT#X%,13:BPUT#X%,13
ELSE BPUT#X%,32:BPUT#X%,Z%
100ENDPROC