58
PRINT “IEEE-488 port timed out when trying to read input.”
RETURN
END IF
CALL IBRD(device.number%, IEEEin$) ‘Read IEEE-488 port
IEEEin$ = RTRIM$(IEEEin$) ‘Trim trailing spaces
IF (LEN(IEEEin$) > 0) THEN ‘If something was read from port
PRINT IEEEin$; ‘print the input string
ELSE
PRINT “Error occurred when reading IEEE-488 port.”
END IF
RETURN
RETURN
‘timeout: Set timeout.error% flag. This routine is called if t seconds, as defined
‘by the ON TIMER(t) function call, has elapsed between TIMER ON and TIMER OFF.
timeout:
timeout.error% = 1
RETURN
END ‘End of Program Listing
To Next Page
Loading...
