1 CLR:DIMM$(683):REM BLOCKANZAHL 1541ER
2 POKE53280,0:POKE53281,0:T=0:B=0
3 PRINT"[147]  REFRESH":INPUT"[155]  DEVICE ";G:IFG<8THEN3
4 PRINT"  INPUT DISK IN DRIVE-NR."G
5 PRINT" ... AND PRESS A KEY":POKE198,0:WAIT198,1
6 OPEN1,G,15:PRINT#1,"M-W"CHR$(106)CHR$(0)CHR$(1)CHR$(10):REM LESEVERSUCHE(10)
7 PRINT#1,"M-W"CHR$(7)CHR$(28)CHR$(1)CHR$(60):PRINT#1,"I":REM ZUGRIFFZEIT(60)
8 T=T+1:IFT>35THEN19:REM TRACK/SEKTOR
9 GOSUB15:FORS=0TOX:OPEN3,G,3,"#"
10 PRINT#1,"U1:"3;0;T;S:REM LESEN
11 INPUT#1,F,F$,TF,SF:PRINT"[147]"T"/"S TAB(11)F;F$;TF;SF:IFF=0THEN13
12 M$(B)=STR$(TF)+" /"+STR$(SF):B=B+1:GOTO14
13 PRINT#3,"U2:"3;0;T;S:REM SCHREIBEN
14 CLOSE3:NEXT:GOTO8
15 IFT<18THENX=20:RETURN
16 IFT<25THENX=18:RETURN
17 IFT<31THENX=17:RETURN
18 X=16:RETURN
19 CLOSE3:CLOSE1:B$="[147]  BAD BLOCKS[155] : ":GOSUB27:FORI=0TOB-1STEP4
20 PRINTM$(I)TAB(10)M$(I+1)TAB(20)M$(I+2)TAB(30)M$(I+3)
21 IFPEEK(214)=20THENGOSUB26
22 NEXT:PRINT"[153] ANOTHER DISK (J/N) ?"
23 GETK$:IFK$="J"THEN1
24 IFK$<>"N"THEN23
25 POKE53280,14:POKE53281,6:PRINT"[147][154]":END
26 POKE214,22:POKE211,16:SYS58640:PRINT"<TASTE>[146]":POKE198,0:WAIT198,1
27 PRINTB$;B"":RETURN