Table of Contents
Advertisement
4. CHECK
DISK
1 REM CHECK DISK — VER 1.4
2 BN=8:REM FLOPPV DEVICE NUMBER
5 DIMT<100>:DIMS<100):REri BflD TRflCK, SECTOR flRRflY
9 PRINTMBKW
";
19 PRINT"
CHECK DISK PROGRRM"
12 PRINT"
"
20 D$="0"
39 0PEN15,DN,15
35 PRINT#15,"y"D*
45 N/i=RND<TI)*255
50 fl$="": FORI=:1TO255 = fl*=fl*+CHR$<255flNIKI+N/i)): NEXT
60 GOSUB900
70 0PEN2.DN,2.II#"
80 PRINT:PRINT#2,fi$;
85 T=i:S=0
90 PRINT#15,"B-fl:"D*;T;S
100 INPUT#15,EH,EM$,ET,ES
110 IFEN=0THEN130
115 IFET=0THEN200:REM END
120
130
134 NB=NB+i:PRINT" CHECKED
BLOCKS"NB
135 PRINT" TRflCK
liHI"T;" SECTOR
IHm"S".Tl"
140 INPUT#15>EN,EM$,ES,ET
150 IF EN=0THEN35
160 T(J>=T S<-J>=S:J=J+1
165 PRINT"MWBflD BLOCK:III",T;S"S"
170 G0T035
200 PRINT#15,"rD$
210 GOSUB900
212 CL0SE2
215 IF>0THENPRINT")Ttt»»HO BflD BLOCKS! ":END
217 0PEN2>DN,2,"#"
213 PRINT"W)«flD BLOCKS","TRflCK","SECTORS"
220 FORI=0TOJ-1
230 PRINT#15,"B-fl-";D$,T<I>,S<I>
240 PRINT,,T<I),S<I)
250 NEXT
260 PRINT"M"J"BflD BLOCKS HflVE BEENflLLOCflTED"
270 CLOSE2=END
900 INPUT#15,EN,EM$,ET,ES
910 IF EN=0 THEN RETURN
920 PRIkr'MHERROR #"EN,EM$;ET;ES"3"
930 PRINT#15,"I"D*
5. PERFORMANCE
TEST
1600 REM
PERFORMflNCE TEST
1.1
1010 :
1020 REM
VIC-1340 SINGLE FLQPPV DISK DRIVE
1630
'
1040
:
1050 OPEN 1,9,15--0PEN13,8i13
1060 LT=35
1070 LT$*STR$(LT)
74
Advertisement
Table of Contents
