18
330'
340 CALL SEND(PS300%,IR$,STATUS%):GOSUB 480 'QUERY CURRENT
350 ANS$=SPACE$(20) 'CLEAR RESULT STRING
360 CALL ENTER(ANS$,LENGTH%,PS300%,STATUS%):GOSUB 480 'READ CURRENT
370 N=VAL(ANS$) 'INTO VARIABLE N
380 PRINT " CURRENT = "; N 'PRINT VALUE
390 '
400 IF X<1000 THEN GOTO 290 'LOOP
410 STOP
420 '
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
To Next Page
Loading...
