Compucolor.org – Virtual Media

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