1 POKE45,PEEK(174):POKE46,PEEK(175):CLR
10 POKE53280,0:POKE53281,0:PRINT"[147][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]";
20 PRINT"[213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]";
30 PRINT"[194][129]       D I S K  -  S A F E T Y        [146][194]";
40 PRINT"[171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179]";
50 PRINT"[194][158]  COPYRIGHT <C> 1985 BY DIETER PLAUM  [146][194]";
60 PRINT"[202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]";
70 PRINT"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
80 PRINT"DIESES PROGRAMM SCHUETZT IHRE DISKETTE  VOR UNBEABSICHTIGTEM ";
90 PRINTCHR$(34)"WEICHEN"CHR$(34)" FORMA-   TIEREN ( D.H. OHNE ID )."
100 PRINT"WARNUNG ! DIESER SCHUTZ KANN NICHT MEHR RUECKGAENGIG GEMACHT WERDEN !"
120 PRINT"[158]WOLLEN SIE IHRE DISK SCHUETZEN < J/N > ?"
121 FORI=0TO10:PRINT""TAB(33)"J[158]/[144]N":NEXT
122 FORI=0TO10:PRINT""TAB(33)"[144]J[158]/N":NEXT
123 FORI=1TO10:PRINT"WARNUNG !":NEXT
124 FORI=1TO10:PRINT"WARNUNG !":NEXT
130 GETE$:IFE$=""THEN121
140 IFE$="N"THEN5000
150 IFE$="J"THEN200
160 GOTO130
200 OPEN1,8,15:OPEN2,8,2,"#":PRINT#1,"U1 2 0 18 0":PRINT#1,"B-P 2 2":A$="E":PRINT#2,A$
210 PRINT#1,"U2 2 0 18 0":CLOSE2:PRINT#1,"I0":CLOSE1
5000 PRINT"[147]":POKE53280,0:POKE53281,0
5001 PRINTTAB(8)"PROGRAMM BEENDEN      [1]"
5002 PRINTTAB(8)"PROGRAMM WIEDERHOLEN  [2]"
5003 PRINTTAB(8)"ZUM HAUPTMENUE        [3]"
5004 POKE198,0:WAIT198,1:GETE$
5005 IFE$="1"THENSYS64738
5006 IFE$="2"THENCLR:GOTO10
5007 IFE$="3"THENPRINTTAB(13)"BITTE WARTEN":LOAD"MENUE",8
5008 GOTO5004