Commodore 1541 - Check Disk

4. CHECK DISK
1 FEM CHECK BISK — VER 1.4
2 PN»B=REM FLOPPY DEVICE NUfiBER
5 Bifrr<iee>-pirisci80>-«EM brd truck,
sector
10 PRINT" CHECK DISC
12 PRINT"
20 If*-"0"
3Q 0PEN15 DH. 15
33 PPIItTltl?. "V"B*
4? HK-RHD<T]
SP PRINT: PRIHT*2*fl*;
M PPINT*15- "E-fli-DI-T.^S
IBS IHPUT#15,EM,En*.ET.ES
ireT-0THEN29B-pEM END
134 H?=HB+l PPIhtT" CHECKEB BLGCKS'NB
135 PRINT-1 TRACK IMWT" SECTOR
143 tHPUT#15.EN*EH»,ES»CT
159 IF EN-DTHEHe3
1(58 F<J5»T:SCJ>"S J"J*I
155 PRINT"MHPfiD BLOCK III" , T. S" "
170
212 CLOSE2
315 IFJ=OTH£NPRIHT"mi»MHO BflP BLOCKS t "
^17 OPEN2.DH3. "#ri
21P PftINT"1WBFi:D FLOCKS". "TPflCK" , "^
235 PPIHT#15.r'E-P
24e print. .■m>,sa>
2^0 NEHT
2^S PP-INT1 'VJ"BflD BLOCKS HHVE BEEN FtLLOCfiTED"
27" CL05E2 END
?J5? IriPMTttl^.EN^EMJ.ET, ES
?ie tF EN=0 THEM RETURN
S2O PRINT "HMERROR H"EM, EI«; ET; E5"11
930