User`s manual

167121PRINT"J.1 UNIT HAS PASSED"
168121PRINT" PERFORMANCE TEST!"
16913 PRINT")) PULL DISKETTE FROM"
171313PRINT")) DRIVE BEFORE TURNING"
1713 PRINT" POI~ER OFF."
172121END
1730
17413 :
175121 PRINT" J.1CONTINUE (.../N)?";
17613 FOR 1=13 TO
50:GET A$:NEXT
17713 GET A$: IF A$="" THEt~ 177121
178121PRINT A$"JII"
17913 IF Af="N" THEN END
181313 IF A$=""''' THEN RETURN
18110
GOTO 17613
18210
183121
18413
18513
18613
187121
18813
18913
191313
19113
19213
19313
1940
19513
19613
19713
19813
19910
21300
20113
21320
20313
2040
2050
212160
PRIm CC$
INPUT# 1,EN,EM$,ET,ES
PRUITTAB( 12)" "EN; Et1$; ET; ES; ""
IF
EN<2 THEN RETURN
PRINT"JII UNIT IS FAILING"
PRINT"JII PERFORMANCE TEST"
TM$=TI$:GOSUB 175e:TI$=TM$:RETURN
PRINT"WRITING DATA"
FOR 1=1131310TO 2ee13:PRINT#CH,I:NEXT
GOSUB185e
CLOSE CH:RETURN
PRun"READum DATA"
GETA$
FOR 1=1131313TO 213130
INPun CH,J
IF JOI THEN PRItn"~EAD
t.IEXT
GOSUB
18513
CLOSE CH: RETUR~I
ERROR:!!!":GOSUB 18513
53