10 PRINT"[147]        DISKETTE SCHREIBSCHUETZEN       [146]"
20 GOSUB 200
30 PRINT"WOLLEN SIE:"
40 PRINT"-----------"
45 X=1
50 IF A$="A" THEN PRINT"(D)ISKETTE SICHERN":X=2:GOTO60
55 PRINT"(D)ISKETTE ENTSICHERN"
60 PRINT"(N)EUE DISK BEHANDELN"
70 PRINT"(P)ROGRAMM BEENDEN"
80 GETX$:IFX$=""THEN80
90 IFX$="N" THEN 500
100 IFX$="P"THEN END
110 IFX$="D"THEN ON X GOSUB 300,400:RUN
120 GOTO80
130 :
140 :
200 OPEN1,8,15,"I"
210 PRINT#1,"M-R";CHR$(1);CHR$(1);CHR$(1)
220 GET#1,A$
230 PRINT"DISKETTE IST ";
240 IFA$="A"THENPRINT"NICHT ";
250 PRINT"GESCHUETZT!"
260 CLOSE1:RETURN
270 :
280 :
300 OPEN1,8,15,"I":OPEN2,8,2,"#"
310 PRINT#1,"U1 2 0 18 0"
320 PRINT#1,"M-W";CHR$(1);CHR$(1);CHR$(1);CHR$(65);
330 PRINT#1,"B-P 2 2"
340 PRINT#2,"A";
350 PRINT#1,"U2 2 0 18 0"
360 PRINT#1,"I"
370 CLOSE1:CLOSE2:RETURN
380 :
390 :
400 OPEN1,8,15,"I":OPEN2,8,2,"#"
410 PRINT#1,"U1 2 0 18 0"
430 PRINT#1,"B-P 2 2"
440 PRINT#2,"B";
450 PRINT#1,"U2 2 0 18 0"
460 PRINT#1,"I"
470 CLOSE1:CLOSE2:RETURN
480 :
490 :
500 PRINT"NEUE DISK EINLEGEN UND TASTE DRUECKEN!"
510 GETX$:IFX$=""THEN510
520 RUN