60100 directory:input" filename ";n$
60110 open1,8,8,n$
60120 printchr$(147)
60130 print
60140 print
60150 get#1,x$:x=asc(x$)
60160 ifx>47andx<58thenf=1
60170 iff=1thenprintx$;
60180 ifx=200thenprint"close1":goto60220
60190 ifx<>13goto60150
60200 ifst=0thenprint"poke151,1:goto60120"
60210 ifst<>0thenprint"close 1"
60220 printchr$(19)
60230 poke239,3
60240 fori=1319to1321:pokei,13:next
60250 end
ready.