User`s manual

4. CHECK DISK
1 REM CHECK DISK -- VER 1.4
2 DN=8:REM FLOPP~ DEVICE NUMBER
5 DIMT(laa):DIMS(laa):REM BAD TRACK, SECTOR ARRA~
51 PRINT":'MWOO
"
113 PRINT" CHECK DISK PROGRAM"
12 PRINT"
213 D$="a"
313 OPEN15,DN,15
35
PRHITII15,"V"D$
45 N~=RND(TI)*255
513 A$= ''"':FOR I= 1 T0255 :A$=A$+CHR$ (255AND (1 +Nr.» :NEXT
6a GOSUBSlaa
713 OPEN2,DN,2, "II"
813 PRINT:PRINT#2,A$;
85 T=l: 5=13
913 PRINTII15, "B-A: "D$; T.:$
11313INPUTII15,EN,EM$,ET,ES
1113 IFEN=aTHEN13a
115 IFET=aTHEN2aa:REM END
1213 PRINTII15, "B-A: "D$.:ET; ES: T=ET: S=ES
1313 PRINTII15."U2:2,"D$;T;$
134 NB=NB+l:PRINT" CHECKED BLOCKS"NB
135 PRINT" TRACK IIIII"T;" SECTOR 11111" S ":11"
1413 INPUT#15.EN,EM$.ES,ET
150 IF EN=0THEN85
1613 T(J)=T:S(J)=S:J=J+l
165 PRINT"~AD BLOCK: III",T; 5''"'
1713 GOT085
21313PRINTII15,"I"D$
2113 G05UBSla13
212 CLOSE2
215 IFJ=aTHENPRINT"mlD..tlO BAD BLOCKS!":END
2170PEN2.DN,2."#"
218 PRINT"~AD BLOCKS","TRACK","SECTOR"
2213 FORI=aTOJ-l
2313 PRINTII15,"B-A:";D$,T(I);S(I)
2413PRINT"T(I>.S(I) .
2513 NEXT
2613 PRINT":.I"J"BAD BLOCKS HAVE BEEN ALLOCATED"
2713 CLOSE2:END
511313INPUT#15.EN,EM$,ET,ES
9113 IF EN=a THEN RETURN
$1213PRINT":.lERROR !!"EN, EI1$;ET; E5''"'
9313 PRINTII15,"I"D$
5. PERFORMANCE TEST
1131313REM PERFORMANCE TEST 2.13
113113
113213REM VIC-2a AND COMMODORE 64
113313REM SINGLE FLOPP~ DISK DRIVE
113413
113513OPEN 1,S,15:0PEN15,S,15
113613LT=35
113713LT$=STR$(LT>
51