1 REM DISK-SCHREIBSCHUTZ
2 REM COMMODORE DISC/TC
3 PRINT"[147]":Q$=CHR$(13)
4 U$="                                        ":KB=198:SF=653:KL=203
5 POKE53280,1:POKE53281,1:F1=4:F7=3
6 GOSUB117:GOTO102
7 PRINT#15,"U1";2;0;T;S:GOTO65
8 PRINT#15,"B-P 2 0":PRINT#15,"U2";2;0;T;S:GOTO65
9 T=PEEK(681):S=PEEK(682):RETURN
10 REM
11 PRINT"[147]ALLE FILES SCHUETZEN":PRINTU$:GOSUB64:T=18:S=1
12 P=2:GOSUB7
13 GET#2,A$:T1=ASC(A$+CHR$(0)):GET#2,A$:S1=ASC(A$+CHR$(0))
14 FORI=0TO7:PRINT#15,"B-P";2;P+32*I
15 GET#2,A$:A=ASC(A$+CHR$(0)):IFA=0THEN18
16 IFAAND64THEN18
17 PRINT#15,"B-P";2;P+32*I:PRINT#2,CHR$(AOR64);
18 NEXT:GOSUB8:IFETHENRETURN
19 PRINT"SPUR"T"SEKTOR"S" IST GESCHUETZT":T=T1:S=S1:IFTTHEN12
20 GOSUB71:GOSUB72:RETURN
21 H$=CHR$(18):PRINT"[147]ZUM ANHALTEN[146] SHIFT DRUECKEN"
22 GOSUB64:PRINT#15,"M-R"CHR$(144)CHR$(7)CHR$(23)
23 FORI=0TO22:GET#15,A$:H$=H$+(A$+CHR$(0)):NEXT:PRINTH$"[144]":POKE140,1:T=18:S=1
24 GOSUB7:SYS828:GOSUB9:IFPEEK(SF)THENWAITSF,1,1
25 IFTTHEN24
26 PRINT#15,"M-R"CHR$(250)CHR$(2):GET#15,LO$:PRINT#15,"M-R"CHR$(252)CHR$(2)
27 GET#15,HI$:PRINTASC(LO$+CHR$(0))+256*ASC(HI$+CHR$(0))" BLOECKE FREI"
28 GOSUB71:GOSUB72:POKE140,0:RETURN
29 PRINT"<F1> HAUPTMENUE       <F7> DIRECTORY"
30 PRINT"FILE-NAME "CU$;:POKEKB,0:F$=""
31 KQ=PEEK(KL):GETA$:IFA$=""ANDKQ=64THEN31
32 IFKQ=F1ORKQ=F7THENPRINTCHR$(20):RETURN
33 IFA$=CHR$(20)ANDF$=""THEN31
34 IFA$=CHR$(13)ANDF$<>""THENPRINTCHR$(20):RETURN
35 IFA$=CHR$(13)ANDF$=""THEN31
36 IFA$=CHR$(20)THENPRINTCHR$(20)A$CU$;:F$=LEFT$(F$,LEN(F$)-1):GOTO31
37 PRINTCHR$(20)A$CU$;:F$=F$+A$:GOTO31
38 PRINT"[147]";
39 PRINT"FILE SCHUETZEN":PRINTU$
40 GOSUB29:IFKQ=F1THENRETURN
41 IFKQ=F7THENGOSUB21:GOTO39
42 POKE679,1:GOSUB75:GOSUB64:T=18:S=1
43 GOSUB7:SYS828:A=PEEK(252):IFATHEN46
44 GOSUB9:IFTTHEN43
45 PRINT"FILE NICHT GEFUNDEN[144]":GOTO40
46 IF(AAND64)THENPRINTF$:PRINT" IST BEREITS GESCHUETZT":GOSUB71:GOSUB72:GOTO50
47 P=PEEK(255):GOSUB7:PRINT#15,"B-P";2;P:PRINT#2,CHR$(AOR64);
48 GOSUB8:IFETHEN38
49 GOSUB71:PRINTF$:PRINT"IST GESCHUETZT":GOSUB72
50 POKE679,0:GOTO38
51 PRINT"[147]";
52 PRINT"FILE FREIGEBEN":PRINTU$
53 GOSUB29:IFKQ=F1THENRETURN
54 IFKQ=F7THENGOSUB21:GOTO52
55 POKE679,1:GOSUB75:GOSUB64:T=18:S=1
56 GOSUB7:SYS828:A=PEEK(252):IFATHEN59
57 GOSUB9:IFTTHEN56
58 PRINT"FILE NICHT GEFUNDEN[144]":GOTO53
59 IF(AAND64)=0THENPRINTF$Q$"IST BEREITS FREIGEGEBEN"":GOSUB730:GOSUB740:GOTO640
60 P[178][194](255):[141]7:[152]15,"B-P";2;P:[152]2,[199](A[175]135);
61 [141]8:[139]E[167]51
62 [141]71:[153]F$:[153]"IST FREIGEGEBEN":[141]72
63 [151]679,0:[137]51
64 [160]2:[160]15:[159]15,8,15,"I0":[159]2,8,2,"#"
65 [132]15,E,EM$,ET,ES
66 [139]E[178]73[176]E[178]26[167][141]71:[137]69
67 [139]E[167][153]"DISKFEHLER:":[153]E","EM$","ET","ES"STOP":[141]71:[128]
68 [142]
69 [139]E[178]73[167][153]"DISKETTE IST GESCHUETZT":[141]72:[142]
70 [153]"SCHREIBKERBE NICHT VORHANDEN/UEBERKLEBT":[141]72:[142]
71 [160]2:[160]15:[142]
72 [153]"TASTE DRUECKEN":[151]KB,0
73 KQ[178][194](KL):[161]A$:[139]A$[178]""[175]KQ[178]64[167]73
74 [142]
75 [139][195](F$)[179]16[167]F$[178]F$[170][199](160):[137]75
76 [129]I[178]1[164][195](F$):[151]683[170]I,[198]([202](F$,I,1)):[130]:[151]700,0:[142]
77 [153]"LOADGESAMTE DISK SCHUETZEN":[153]U$
78 [153]"DISKETTE EINLEGEN  <F1>=ABBRUCH":[129]D[178]1[164]900:[130]:[141]72
79 [139]KQ[178]F1[167][142]
80 [141]64:T[178]18:S[178]0:[141]7:[152]15,"B-P 2 2"
81 [152]2,[199](66);:[152]15,"B-P 2 166":[152]2,[199](66);:[141]8:[139]E[167]77
82 [141]71:[141]64:[141]71
83 [153]"DISKETTE IST JETZT SCHREIBGESCHUETZT":[141]72:[142]
84 [153]"LOAD";
85 [153]"DISK-FILE LOESCHEN":[153]U$
86 [141]29:[139]KQ[178]F1[167][142]
87 [139]KQ[178]F7[167][141]21:[137]85
88 [133]"SIND SIE SICHER";A$:[139]A$[179][177]"J"[167]84
89 [141]64:[152]15,"S0:"[170]F$:[132]15,E,EM$,ET,ES:[139]E[177]1[167][141]66:[137]84
90 [141]71:[139]ET[178]0[167][153]"FILE IST GESCHUETZT BZW.NICHT AUF DISKSTOP":[141]72:[137]84
91 [139]ET[177]1[167][153]ET;EM$:[141]72:[137]84
92 [153]F$:[153]" IST GELOESCHT.":[141]72:[137]84
93 [153]"LOADGESAMTE DISK FREIGEBEN":[153]U$
94 [153]"DISKETTE EINLEGEN  <F1>=ABBRUCH":[129]D[178]1[164]900:[130]:[141]72
95 [139]KQ[178]F1[167][142]
96 [141]64:T[178]18:S[178]0:[141]7
97 [152]15,"M-W";[199](1);[199](1);[199](1);[199](65);
98 [152]15,"B-P 2 2":[152]2,[199](65);:[152]15,"B-P 2 166"
99 [152]2,[199](65);:[141]8:[139]E[167]93
100 [141]7:[141]71:[153]"DISK IST FREIGEGEBEN"
101 [141]72:[142]
102 [153]"LOADSTOP"[163]5)"*** DISK-SCHREIBSCHUTZ ***":[153]U$
103 [153]" (1) DIRECTORY
104 PRINT" (2) ALLE FILES SCHUETZEN
105 [153]" (3) EINZELNES FILE SCHUETZEN
106 PRINT" (4) EINZELNES FILE FREIGEBEN
107 [153]" (5) GESAMTE DISKETTE SCHUETZEN"
108 [153]" (6) GESAMTE DISKETTE FREIGEBEN"
109 [153]" (7) FILE AUF DISK LOESCHEN"
110 [153]" (8) PROGRAMM-ENDE
111 PRINT""U$
112 GETA$:IFA$=""THEN112
113 C=VAL(A$):IFC<1ORC>8THEN112
114 ONCGOSUB21,11,38,51,77,93,84,116
115 GOTO102
116 CLOSE2:CLOSE15:END
117 POKE679,0:POKE140,0:CU$=CHR$(161)+CHR$(144)
118 FORI=828TO1006:READD:POKEI,D:NEXT:RETURN
119 DATA169,0,141,168,2,133,253,162,2,32,198,255,32
120 DATA228,255,141,169,2,32,228,255,141,170,2,230,253
121 DATA230,253,32,228,255,133,252,165,253,133,255,32,228
122 DATA255,32,228,255,230,253,230,253,160,0,32,228,255
123 DATA230,253,153,189,2,200,24,192,16,144,242,160,243
124 DATA32,228,255,230,253,165,144,240,3,141,168,2,200
125 DATA208,241,165,252,208,7,173,168,2,208,22,240,191
126 DATA165,140,240,3,32,199,3,173,167,2,240,3,32
127 DATA175,3,173,168,2,240,171,32,204,255,96,160,0
128 DATA185,172,2,240,8,217,189,2,208,7,200,208,243
129 DATA238,168,2,96,169,0,133,252
130 DATA96,160,0,185,189,2,240,6,32,210,255,200,208
131 DATA245,165,252,41,64,240,10,169,144,32,210,255,169,95,32,210,255,169
132 DATA13,32,210,255,169,144,32,210,255,96