start tok64 d64-cUGhW3
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{ct a}{ct h}b{ct h}
63999 REM "Invalid BASIC input d64-cUGhW3
stop tok64
(bastext 1.0)