Listing of file='DTST3.BAS;01' on disk='vmedia/taylor_7-sector.ccvf'
1 PLOT 12,22,15 5 INPUT " DO YOU WISH TO CYCLE? (Y/N) ";A$ 7 IF A$= "Y"THEN P= 0 8 IF A$= "N"THEN P= 1 10 PLOT 22 20 PRINT " DISKDRIVE READ TEST (2) " 25 PLOT 8 30 FOR I= 1TO 1000:NEXT 40 PLOT 27,68 50 PRINT "REA 00 7100 F00 60 PRINT "REA 18 7100 F00 70 PRINT "REA 36 7100 F00 80 PRINT "REA 54 7100 F00 90 PRINT "REA 72 7100 F00 100 PRINT "REA 90 7100 F00 110 PRINT "REA 108 7100 F00 120 PRINT "REA 126 7100 F00 130 PRINT "REA 144 7100 F00 140 PRINT "REA 162 7100 F00 162 PRINT "REA 172 7100 F00 260 PLOT 27,27 270 PLOT 8,11,19 275 IF P= 1THEN 450 276 IF P< > 1THEN 280 280 PRINT " CYCLED ";:X= X+ 1:PRINT X 290 FOR I= 1TO 2000:NEXT 300 GOTO 40 425 GOTO 10 450 PRINT " END OF TEST." 475 INPUT " DO YOU WISH TO RESTART TEST? (Y/N)";A$ 476 IF A$= "Y"THEN 1 477 IF A$= "N"THEN 480 480 LOAD "MENU":RUN