0 SYS42926
30 PRINT"[147]"
35 PRINT"     MARKIEREN  DEFEKTER  SEKTOREN     "
36 PRINT"               IN DER BAM            OK"
37 INPUT"DEF.  DISKETTE EINLEGEN UND RETURN";A$:PRINT"MOMENT BITTE...."
38 OPEN1,8,15,"V:":CLOSE1
39 PRINT"[147]     BITTE GEBEN SIE NACHEINANDER"
40 PRINT"DIE  DEFEKTEN [146]SPUR-UND SEKTORNUMMERN AN:":J=0
45 DIMQ (255)
47 GOTO 90
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
69 SP = SP * 4:BY=INT(SE/8):BI=SE-8*BY:BI=2^BI
70 SP=SP+BY+1
71 IF(Q(SP)ANDBI)=0THEN PRINT" DIESER SEKTOR WAR SCHON BELEGT! ":RETURN
72 Q(SP)=Q(SP) AND (255-BI):SP=SP-BY-1
73 IFQ(SP)THENQ(SP)=Q(SP)-1:PRINT"UEBRIGE BLOECKE DIESER SPUR:"Q(SP):J=J+1:RETURN
74 PRINT"SPUR 18 KAPUTT! DISK NICHT VERWENDEN.":STOP
80 PRINT"BITTE KONTROLLIEREN:";J" BLOECKE":INPUT"SOLLEN GEKILLT WERDEN J/N";A$
82 IF A$<>"J"THEN RUN
83 RETURN
90 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 SE=0 THEN 200
199 GOTO 187
200 GOSUB80: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
239 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."