100 OPEN "com1:300,n,8,1,ds" FOR OUTPUT AS #1
110 CLS
120 PRINT :PRINT :PRINT "                          Bootstrap to different media"
130 N$="config.s"
140 GOSUB 240
150 N$="net0.sys"
160 GOSUB 240
170 N$="ps.com"
180 GOSUB 240
190 PRINT #1,"/";
200 CLOSE
210 PRINT "Files all transfered"
220 STOP
230 '
240 PRINT #1,"N";
250 FOR L%=1 TO LEN(N$)
260 PRINT #1,"C";MID$(N$,L%,1);
270 NEXT L%
280 PRINT #1,"E";
290 ON ERROR GOTO 340
300 OPEN N$ AS #2 LEN=1
310 FIELD 2,1 AS B$
320 GOTO 390
330 '
340 BEEP
350 PRINT "Error openning ";N$
360 CLOSE #2
370 STOP
380 '
390 ON ERROR GOTO 560
400 '
410 IF EOF(2) THEN 480
420 GET #2
430 PRINT #1,"+";B$;
440 LOCATE 1,1:SZ%=SZ%+1:PRINT SZ%;
450 FOR L=1 TO 100:NEXT L
460 GOTO 410
470 '
480 PRINT #1,"Z";
490 CLOSE #2
500 LOCATE 12,30
510 PRINT N$;" Transfered           "
520 ON ERROR GOTO 0
530 SZ%=0
540 RETURN
550 '
560 ON ERROR GOTO 0
570 PRINT "Data line error"
580 CLOSE #2
590 RETURN