Filter
Top Products
48
390 CALL TRANSMIT (X$,STATUS%) ′SET NEW 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%) ′READ 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