30 PRINT"[147]"
35 PRINT" --- MARKIEREN  DEFEKTER  SEKTOREN ---"
36 PRINT" ---           IN DER BAM          ---"
37 INPUT"DEF.  DISKETTE EINLEGEN UND RETURN";A$
38 PRINT"     BITTE GEBEN SIE NACHEINANDER  "
39 PRINT"DIE DEFEKTEN SPUR- UND SEKTORNUMMERN AN:"
45 DIMQ (255)
47 GOTO 80
50 SP=0:SE=0
55 INPUT"SPUR, SEKTOR (0,0 = ENDE!)";SP,SE:IF SP=0 AND SE=0 THEN RETURN
60 IF (SP > 35 OR SP<1) OR (SE<0  OR SE > 20) THEN PRINT"UNGUELTIG !":GOTO50
70 SP = SP * 4:BY=INT(SE/8):BI=SE-8*BY:BI=2^BI :SP=SP+BY+1
75 Q(SP)=Q(SP) AND (255-BI):RETURN
80 OPEN15,8,15:OPEN5,8,5,"#":PRINT#15,"U1:5,"0,18,0
140 FORI=0TO255
150 GET#5,A$:Q(I)=ASC(A$+CHR$(0))
170 NEXT
175 CLOSE5
187 GOSUB 50:IF SP=0 AND SP=0 THEN 200
199 GOTO 187
200 OPEN2,8,2,"#"
210 FORI=2TO255
212 PRINT#15,"B-P:"2,I
214 PRINT#2,CHR$(Q(I));
216 NEXT
220 PRINT#15,"U2:2,"0,18,0
230 CLOSE2
240 PRINT"[158]ERLEDIGT!  "
250 PRINT#15,"I":CLOSE15
300 PRINT"TIP: AUF DIESER DISKETTE "
310 PRINT"KEIN VALIDATE DURCHFUEHREN!!"
320 PRINT"DIE DEFEKTEN SEKTOREN WERDEN"
330 PRINT"     SONST WIEDER FREI."