10REM Basic>Text file converter
20REM Will not work with GOTO/GOSUB!!
!
30REM Sorry only works with Elk/BBC (
at te moment)
40MODE7
50*.
60REPEAT
70INPUT"Filename of BASIC program:"A$
80A%=OPENINA$
90UNTILA%<>0
100S%=EXT#A%
110CLOSE#A%
120INPUT"Save text file as:"D$
130loc=PAGE+&400
140OSCLI"LOAD "+A$+" "+STR$÷loc
150OSCLI"SPOOL "+D$
160PRINT"*BASIC"+CHR$13+"AUTO";
170FORX=loc TOloc+S%
180IF?X=13VDU13:X=X+3:NEXT ELSEA%=?X:C
ALL&B50E:NEXT ELSENEXT
190*SPOOL