start bastext 16385
start tok128 d64-lDb7rC
0 REM ed to basic converter
1 FAST:TRAP2:GOTO3
2 CLOSE1:PRINT:PRINT"Done.":END
3 PRINTCHR$(14);"Unix 128 - Editor to BASIC Converter":PRINT "(Type '*' to return to Unix 128":PRINT"{down}Filename: ";:OPEN1,0:INPUT#1,f$:CLOSE1:PRINT
4 IF f$="*" THEN RUN"unix 128 v*":RUN
5 PRINT "(Save the program when finished{.*3})"
6 OPEN 1,8,8,"0:"+f$:SYS65478,0,1
stop tok128
(bastext 1.0)