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
