10 INPUT"[147]FILENAME";FF$:POKE19,65:INPUT"[147]";A$:POKE19,0:SYS57812"I."+FF$,8,0
20 POKE193,0:POKE194,4:POKE174,232:POKE175,7:SYS62954