PerformanceCheckprocedure_ 4g4Ll4g4ApServiceVol. 1

14190PAGE 14200A1-16

14210GOSUB19000

1 4 2 2 0 P R N T0" L 0 l 0 l _ 1 o 0 o o . 14230GOSUB19070

14240GOSUB19190

14250REM

14260REM

14270REM

14280REM

14290REM

15000REM., nLFroR ,EOl.swlTcH .," 15010PAGE

1502041:1

15030cosuB 19000

1 5 0 4 0 P R N T0. t o L 1 ! _ 0 O O O 1 "

1s050GosuB 19070

15060PRINT"JJTESTTNG "EOt''SwtTcH" 15070cosuB 19190

15080WBYTE@32+A1:73,68,63,10 15090INPUT

@A1:T$ 15100 r$-sEG cr$,1,9)

15110lFT$-"lDTEK/49,THEN15140

15120 PRINTU*LF" .OR'uEOl"'swlTcH 15130GOTO 19530

15140 T6-2

15150GOSUB19390 15160REM 15170REM 15180REM 15190REM 15200REM

16000REM'" TALKONLYMODE"" 16010PAGE

16020cosuB 19000

1 6 0 3 0 P R N T0" ! _1 ! _ 0 ! _ o o o o 1 ' 16040cosuB 19070

16050PRTNTTALK

!{JTESTNG ONLY" 16060INPUT

@A1:V$

16070I7-POS(V$,"rrNeoFF",l)

160801Ft7<>0 THEN17000

16090PRINT''JJJTALK O" rr'GT

ONLYMODE FAIL

16100co To 19530 1 6 1 1 0R E M 16120REM 16130REM 16140REM 16150REM

17OOOREM'" LISTENONLYMODE"' 17010PAGE

17020GOSUB19000

1 7 0 3 0 P R N T1'! _ 0 ! _ 0 ! _ 0 0 0 0 1 " 17040cosuB 19070

17050pRtNT"JJJTESTTNGLISTENONLY" 17060PRINT@A1:"tNt',

17070T6-0.5

17080GOSUB19390

17090WBYTE92,69,70,32,_48 17100PAGE 17110GOSUB19000

4-44

o

O

o

t

o

o o o c

c

o

t

?

o

o

Io

t

I

I

o o o o

I

o o o o

Io

a

o o a

o o a

I

o o o

,

O

Page 92
Image 92
Tektronix 494AP O c, 16000REM Talkonlymode 16010PAGE, 16050PRTNTTALK Jtestng only 16060INPUT, Onlymode Fail