SRS Labs SR510 User Manual
Page 52
48
390 CALL TRANSMIT (X$,STATUS%)
′SET NE
W X6 VOLTAGE
400 GOSUB 540
410
′
420 GOTO 280
′LOOP FOREVER
430
′
440
′
GET AN ANSWER STRING FROM THE SR510
450 CALL TRANSMIT(LISN$,STATUS%)
′MAKE SR510 A TALKER
460 GOSUB 540
470 ANS$=SPACE$(10)
′INIT ANSWER STRING
480 CALL RECV(ANS$,LENGTH%STATUS%)
′R
EAD RESULT INTO ANS$
490 GOSUB 540
500 RETURN
510
′
520
′
530
′
CHECK STATUS OF LAST TRANSMISSION FOR ERRORS
540 IF STATUS%=0 THEN RETURN
′STATUS OKAY
550 PRINT
″STATUS CODE = ″
;STATUS%;
″ ON GPIB: ERROR″
560 STOP