start tok64 d64-ULot7C
0 POKE53280,6:POKE53281,6:PRINT"{light blue}{clear}{down}{right}{ct n}{ct h}TFC3 Notepad to Seq-file converter
1 PRINT"(c) 1991 Mr.P. of SoftWolves!
2 INPUT"Which file to be converted";n$:IFLEN(n$)<1ORLEN(n$)>16THEN2
3 INPUT"Name of Seq-file";s$:IFLEN(s$)<1ORLEN(s$)>16THEN3
4 OPEN15,8,15,"i0:":OPEN2,8,2,s$+",s,w":GOSUB8:OPEN3,8,3,n$+",p,r":GOSUB8
5 PRINT"{clear}Files open.. Transfering data..":GET#3,a$,a$
6 GET#3,a$:IFstTHENPRINT"End of datas":CLOSE2:CLOSE3:GOSUB8:CLOSE15:END
7 PRINTa$;:PRINT#2,a$;:GOSUB8:GOTO6
8 INPUT#15,e,e$,t,s:IFe<2THENRETURN
9 PRINT:PRINT"Disk Error : "e$
10 PRINTt","s:CLOSE2:CLOSE3:CLOSE15:END
stop tok64
(bastext 1.0)