Tektronix 494AP ANDRENREMorE, JGPIBvERlFlcArtoH Cotapr-erEo, JJLrsrEN!TALKTLF OCrnoiness, Message

I

o

performance

check procedure-

4g4Ar4g4Ap

o

servrcevor. 1

C 1 7 1 2 0P R N T '0 L

o l _ 0 L O O O OI ,

o

17130

cosuB 19d70

17140PRTNT

a

@A1:'REF?,,

17150INPUT

@At:V $

I

17160tF v$<>"REFLVL

17170co To 18000

+0.0.THEN17180

I

11199lltu

IJ{LSrEN

ONLYMODE'r.FAL*.Gn

o

17190

co To 19530

17200REM

e

17210REM

C

17220REM

17230REM

17240REM

o

'8OOOREM"'INTERFACE

','

CLEARANDREMOTEENABLETEST......IFC

o

18010PAGE

& REN

rFc(TNTERFACE

a

CLEAR),

13333fiBlI.6gilT:-"

ANDREN(REMorE

ENABLE)"

18040T6-3

o

180s0

GosuB19390

l!999llfNr

lJcHEgK-rHE4expcRr, FOR

BETWEEN

;

18070

rHE vERflCAL"

o

PRTNT"OISPLAY

ANDTHE

pRtNT

r"IirrN'E

ATTENREADOUTS."

18080

"JPRESSRETURN

18090INPUT

rO Corvrir.ruE.,;

I

18100tNtT

P$

a

18110PRINTUF

AN"

"L" "IS STILL PRESENT,

pRtNT'lF

THE IFC LINE IS FAULW,,

18120

THE""L""VANSHID,'tr-crEsreo

o

18130PRINT

ox."

pRopER

lJcHEc^KALSOTHE4bipraor'rrpANaL

'lF

FoR

LocAL coNTRoL'

o

18140PRI

THEFRONTPANEL

18150PRINT"NOT,

rSiOcxeo

--'

ouT, THanir.t r_rivEts FAUL,",tF,

RENTESTEDOK;-

a

]9199nryr

!J{GPIBvERlFlcArtoH

cotapr-erEo"

18170END

o

18180REM

18190REM

o

18200REM*'REAR

o

19OOOREM

P4NELINTERFACE

SWITCH

19010PRINT"SETGPIBADDRES'

TESTTEXTROUTTNE

"'

e

SWIiCTTESrO,.

199?9fllNr

"JJLrsrEN!_TALKTLF

oCrnoiness"

19030pRtNT. ONLy!_ONLy!_Eor!_roq

2 l"

o

19040pRtNT*---t

s

---l ----t ___--------

19050RETURN

O

19060REM'''

t

19070REM

REARPANELTESTTEXTROUTINE

1?gg?llfNr

"',;

o

IJAFTERCHANGINGrHEswrrcHEs,

19090PRINT"PRESS

THE REMOTCIUObIiBUTTONONCEJJ.

o

"r-(NorE:you

eer i eiia rNieRiobE

lglgglllNr

rF

,'!_

L"#o=n

trI4EANS*rer rr_reswrrcH6Sl

MESSAGE,"

19110PRINT

C

19120PR]NT-!-

WERENbi "

19130PRINT1

READCORRECTLY.IORE-TEST,TYPE"

o

rouowEo

ei rHe LINENUMBERIN THE"

19140PRTNT'!_ ERROR

MESSAGE)'

lJ!_pREssRETURN

o

19119IINI

<ch> WHEN

DoNE";

19160INPUTT$

o

19170RETURN

19180REM

o

19190REM"'-

TESTADDRESS

19200PRINT

SWITCH

"'

o

@At:,,1D?"

19210INPUT

@A1:T $

o

19220T$:SEGCr$,1,9)

19230tF T$-,lD TEK/49"THEN19260

o

19240PRINT'ADDRESS

SWITCHTEST

FAIL"

o

19250cO TO 19530

a

)o	4-45
o