Model 6517A Getting Started Manual Remote Operation 3-29
WaitSRQ
IF (NOT (srq%)) THEN GOTO WaitSRQ
CALL spoll(27, poll%, status%)
If (poll% AND 64) = 0 THEN GOTO WaitSRQ
'Dump buffer readings to computer CRT:
CALL send(27, ":TRACE:DATA?", status%)
CALL enter(DATA1$, length%, 27, status%)
A = 1
FOR I = 1 TO 11
r$ = MID$(DATA!$, A, 13)
PRINT r$
A = A + 14
NEXT I
END
To Next Page
Loading...
