User`s manual

1"'81:1 NT=30
\1390 !>!>.IN,'':N
~~1%~~i~~':, ?ERFQR\~~HCE ,I::S,"
1121:1 PRINT
1131:1 PRINT" INSERT SCRATCH"
1.1413 PRINT
1150 PRINT" DISKETTE IN DRIVE"
11613 PRINT
11713 PRHIT"~ PRESS ~ETURN!!!"
1180 PRINT
1Ige PRINT" WHEN READ'r'JII"
1200 FOR 1=0 TO 50:GET A$:NEXT
12110 GET A$:IF A$()CHR$(13) THEN 1210
'220
1230
1240 TI $=" 000000"
1250 TT=18
1260 PRINT#I, "N0:TEST DISK,e0"
12713 Cl$=" DISK NEW COMMAND "+CHR$( 13)
1280 C2$="JII WAIT ABOUT 80 SECONDS"
1290 CC$=Cl$+C2$:GOSUB 1840
131313
IF TI(NTTHENI37e
13113 PRINT"~'r'STEM IS"
1320 PRINT"~ NOT RESPONDING"
13313 PRH~T" CORRECTL'r' TO COMMANDS"
13410 GOSUB 18813
1358
13613
13713 PRINT":.IDRIVE PASS"
13813 PRINT" MECHANICAL TESTJII"
13913 TT=21
141313OPEN 2.8,2, "0:TEST FILE,S,W"
1410 CC$="OPEN WRITE FILE" :GOSUB 18413
1.420 CH=2:CC$="WRITE DATA" :GOSUB 19313
1430 CC$="CLOSE "+CC$ : GOSUB 18413
14413 OPEN 2.8,2, "13:TEST FILE,S,R"
14513 CC$="OPEN READ FILE" :GOSUB 1840
1460 CH=2:GOSUB 1990
1470 PRINT#l, "S0: TEST FILE"
1488 CC$="SCRATCH FILEJII":TT=1 :GOSUB 1848
14913
15013
15113 TT=21
15213 OPEN 4.8,4,"#"
15313 N~I~=( 1+RND(T I ) .254+NN~) AND255 :PR INTIT1 , "B-P" ; 4; NN~
15413 NN$="":FOR 1=1 TO 255:NN$=NN$+CHR$(I):NEXT
1550 PRINT# 4,NN$;
15613 PRINT# 1,"U2:";4;8;LT;13
15713 CC$="WRITE TRACK"+LTS:GOSUB 18413
15813 PRINT#I,"U2:";4;13;I;e
15913 CC$="WRITE TRACK 1" :GOSUB 1840
161313 PRINT#I,"Ul:";4;e;LT;e
16113 CC$="READ TRACK"+LTS :GOSUB 18413
16213 PRINT#I,"Ul:";4;e;I;13
16313 CC$=" READ TRACK 1" : GOSUB 18413
16413 CLOSE 4
16513 : !
16613 :
52