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

 

′INIT ANSWER STRING

470

ANS$=SPACE$(10)

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

 

 

48