Specifications

SR400 with the GPIB Interface
55
390 X = X+.005 'INCREMENT PORT1 VALUE
400 IF X>10 THEN X=0 'RESET PORT1 AT 10 VOLTS
410 PRINT " PORT1 = "; X
420 P$=P1$ + STR$(X) 'MAKE PORT1 COMMAND STRING
430 CALL SEND(SR400%,P$,STATUS%):GOSUB 480
440 '
450 GOTO 300 'LOOP FOREVER
460 '
470 '
480 'CHECK STATUS OF LAST GPIB COMMUNICATION FOR ERRORS
490 IF STATUS%=0 THEN RETURN 'STATUS OK
500 PRINT "GPIB ERROR STATUS CODE = ";STATUS% 'ELSE ERROR
510 STOP