Table of Contents
Advertisement
1080 HT=30
1090 PRINT'TJO-
1100 PRINT"D
PERFORMRNCE TEST"
1110 PRINT"
•'
1120 PRINT
1130 PRINT"
JIINSERT SCRflTCH"
1140 PRINT
1150 PRINT"
DISKETTE IN DRIVE"
1160 PRINT
1170 PRINT"M
PRESS ^RETURN!"
1180 PRINT
1130 PRINT"
WHEN RERDVM"
1200 FOR 1=0 TO 50:GET ft*:NEXT
1.210 GET R$:IF fl*OCHR$<13> THEN 1210
1220 :
1230
•
1.240 TI $="000000"
1250 TT=13
1260 PRINT*1,"N0'TEST DISK,00"
1270 Cl$="ii
DISK NEW COMMflND
"
1280 C2$="3M WRIT RBOUT 80 SECONDS"
1290 CC$=C1$+C2$GOSUB 1840
1300 IF TKNTTHEN1370
1310 PRTNT"»3VSTEM IS"
1320 PRINT"H
NOT RESPONDING"
1330 PRINT" CORRECTLY TO COMMRNDS"
1340 GOSUB 1330
1350
" •
1360 :
1370 PRINT"MDRIVE PfiSS"
1380 PRINT"
MECHRNICRL TESTW"
1390 TT=21
1400 OPEN 2,3,2,"0=TEST FILE,S,W"
1410 CC*»"OPEN WRITE FILE"
:GOSUB 1840
1450 CH»2:CC$-"MRITE DRTfl"
:GOSUB 1930
1430 CC$="CLOSE "+CC$
:GOSUB 1840
1440 OPEN 2,8,2,"0:TEST FILE,S,R"
1450 CC**"OPEN RERD FILE"
-GOSUB 1840
1460 CH=2
:GOSUB 1990
1470 PRINT#1/'S0-TEST FILE"
1480 CC$="SCRRTCH FILEW"-TT=1
:GOSUB 1840
1490
• •
1510 TT«21
1520 OPEN 4,8,4,"#"
1530 NN5i»< 1+RND<TI >*254+NNSORND255: PRINT#1, "B-P"; 4;
1540 NN*-MII:FOR 1-1 TO 255:NN$«NN*+CHR$<I) :NEXT
1550 PRINTS 4,NN$;
1560 PRINT* 1/'U2'";4;0;LT;0
1570 CC*="WRITE TRRCK"+LT$-GOSUB 1840
1580 PPINT#i/'U2-";4;0;i;0
1530 CCS="WRITE TRRCK 1"
:GOSUB 1840
I600 PRlNT#i/'ur";4;0;LT;0
1610 CC$="RERD TRRCK"+LT$
:GOSUB 1840
1620 PRINT#l,«Ul:H;4;e:l;0
1630 CCf="RERD TRRCK 1"
:GOSUB 1840
1640 CLOSE 4
1650
:
1660
' ■
75
Advertisement
Table of Contents
