SRS Labs SR510 - 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