Stanford Research Systems SR530 Manual page 56

390 '
400 PRINT "CH1 = ";V1; "
410 '
420 X = X + .0025
430 IF X>10 THEN X
440 X$ = X6$ + STR$(X) + "' 13"
450 CALL TRANSMIT (X$,STATUS%)
460 GOSUB 600
470 '
480 GOTO 300
490 '
500 ' GET AN ANSWER STRING FROM THE SR530
510 CALL TRANSMIT(LISN$,STATUS%) 'MAKE SR530 A TALKER
520 GOSUB 600
530 ANS$=SPACE$(10)
540 CALL RECV(ANS$,LENGTH%STATUS%)
550 GOSUB 600
560 RETURN
570 '
580 '
590 ' CHECK STATUS OF LAST TRANSMISSION FOR ERRORS
600 IF STATUS%=0 THEN RETURN
610 PRINT "STATUS CODE = ";STATUS%;" ON GPIB: ERROR"
620 STOP
CH2 =";V2
'INCREMENT X6 OUTPUT BY 2.5 MV
'RESET RAMP
0
'MAKE X6 COMMAND STRING
'SET NEW X6 VOLTAGE
'LOOP FOREVER
'INIT ANSWER STRING
'STATUS OKAY
'READ RESULT INTO ANS$
52