Tektronix 494A 8070INPUT, 8100PRINT, 9040PRTNT10OMSGEOS, 1OO1OPRINTSELECTEDDEVICE-CLEAR...SDC

Performance	procedure
		-
Check			4g4Ll4g4Ap
				ServiceVol. 1
8060PRINT@A1:'TlM?,
8070INPUT
@41:T6
8080tF R<>T6 THEN8100
8090GO TO 9000			'*	*rG,
8100PRINT

"J".. GOTO LOCAL...........GTLFAIL

8110cO TO 19530 8120REM 8130REM 8140REM 8150REM 8160REM

9OOOREM"' GROUPEXECUTETRIGGER........GET'*'

9O1OPRINT"'''GROUPEXECUTETRIGGER...GET "TS

9O2OON SRQTHEN9120 9030r7-0

9040PRTNT10OM;SG;EOS

@A1:"]NlT;TtMON" 9050WBYTE@32+41,8:

9060T6-3 9070cosuB 19390

9080PRINT@A1:"EOSOFF', 9090rF 17<>'tTHEN9150 91OOON SRQTHEN19280

9110GOTO 10000 9120WBYTE@20: 9130l7*1 9140RETURN

9150PRINT"GROUPEXECUTETRIGGER...G 9160cO TO 19530

9170REM 9't80 REM

9190 REM 92OOREM 9210REM

lOOOOREM'"SELECTEDDEVICE..' CLEAR...SDC

1OO1OPRINT""'SELECTEDDEVICE-""CLEAR...SDC

10020PRINT

@A1:'tD?" 10030WBYTE@32+A1,4: 10040WBYTE@64+A1: lOO5ORBYTER

10060tF ABS(R)<>2s5 THEN10080 10070coTo 11000

10090pRtNT"... SELECTEDDEVICE*r .'.G' CLEAR........SDCFAtL

10090Go To 19530 10100REM 10't10REM 10120 REM 10130REM 10140REM

11000REM.'.DEVICECLEAR...........DCL.'.

pRtNT DEVTCE..'"

11010 "... CLEAR,...........DCL

11020PRINT

@A1:"lD?'

11030WBYTE@20: 11040WBYTE@621+A1: 11O5ORBYTER

11060rF ABS(R)<>255THEN11080 11070GOTO 12000 11080pRINT.'."

DEVICECLEAR...........DCL

11090GOTO 19530 1 1 1 0 0R E M

1 1 1 1 0R E M

4-42

o o o

I

a

a

t

o o

o

o

o o o

o o o

o t

o o o o o

I

o o o

C

t

o o a

to

I

a o o a a

I

)

o