100 CLOSE
110 OPEN "com1:300,n,8,1,ds" FOR INPUT AS #1
120 CLS
130 L%=1
140 GOSUB 410
150 ON INSTR("NCE+Z/",B$) GOTO 170,200,240,290,330,370
160 GOTO 140
170 '
180 N$=""
190 GOTO 140
200 '
210 GOSUB 410
220 N$=N$+B$
230 GOTO 140
240 '
250 PRINT "Transfering file = ";N$
260 CLOSE #2
270 OPEN N$ FOR OUTPUT AS #2
280 GOTO 140
290 '
300 GOSUB 410
310 PRINT #2,B$;
320 GOTO 140
330 '
340 CLOSE #2
350 GOTO 140
360 '
370 CLOSE
380 PRINT "Files all transfered"
390 STOP
400 '
410 IF L%>LEN(A$) THEN 450
420 B$=MID$(A$,L%,1)
430 L%=L%+1
440 RETURN
450 IF EOF(1) THEN 450
460 A$=INPUT$(LOC(1),#1)
470 L%=2
480 B$=MID$(A$,1,1)
490 RETURN