10 cls
20 ds "wait...",0,0
25 re
30 open #1,"/t.txt","input"
40 point #1,-1
50 note #1,s%
60 open #2,"file:///e:/azaza.txt","output"
70 for i%=0 to s%-1
80 point #1,i%
90 get #1,b%
100 put #2,chr$(b%)
110 next i%
120 cls
130 ds "ready!",0,0
140 re
150 sleep 2000
160 end