10 INPUT"FILENAME";F$
20 F$="H."+F$:SYS(57812)F$,8:POKE193,0:POKE194,4:POKE174,231:POKE175,7
30 PRINTCHR$(147);
40 POKE204,0:POKE198,0:WAIT198,1:GETA$:POKE205,2:WAIT207,1,1:POKE204,1
50 IFA$=CHR$(140)THENSYS62957:END
60 PRINTA$;:GOTO40