start tok64 d64-bepcVK
0 POKE53280,6:POKE53281,6:PRINT"{light blue}{clear}{down}{right}{ct n}{ct h}Seq file to TFC3 Notepad converter
1 PRINT"(c) 1991 Mr.P. of SoftWolves!
2 INPUT"Which file to be converted";s$:IFLEN(s$)<1ORLEN(s$)>16THEN2
3 INPUT"Name of notepad file";n$:IFLEN(n$)<1ORLEN(n$)>16THEN3
4 OPEN15,8,15,"i0:":OPEN2,8,2,s$+",s,r":GOSUB8:OPEN3,8,3,n$+",p,w":GOSUB8
5 PRINT"{clear}Files open.. Transfering data..":PRINT#3,CHR$(245)CHR$(127);
6 GET#2,a$:IFstTHENPRINT"End of datas":CLOSE2:CLOSE3:GOSUB8:CLOSE15:END
7 PRINTa$;:PRINT#3,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)