1 REM копирование данных из одного файла в другой
10 CLS
20 DRAWSTRING "wait...",0,0
30 REPAINT
40 OPEN #0,"file:///TFCard/Fantastik.lis","input"
50 OPEN #1,"file:///TFCard/azaza.txt","output"
60 TRAP 100
61 REM при возникновении ошибки переходит 100, лучше это использовать,чем for
70 GET #0,BYTE%
71 REM put принимает только числовое значение
80 PUT #1,BYTE%
90 GOTO 70
100 CLOSE #0
110 CLOSE #1
120 CLS
130 DRAWSTRING "done!",0,0
140 REPAINT
150 IF INKEY(0) THEN END
160 GOTO 150