6-42
Remote Programming
EXPONENT% = RXBUF%(2 * I% + 1) - 124
' compute the floating point value
R = MANTISSA% * 2! ^ EXPONENT%
PRINT "I ="; I%; "
R ="; R
NEXT I%
END
SUB FINDERR STATIC
PRINT "IBFIND ERROR"
END SUB
SUB TXLIA (LIA%, SND$)
CALL IBWRT(LIA%, SND$)
' wait until the command is finished executing
DO
CALL IBRSP(LIA%, SPR%)
LOOP WHILE (SPR% AND 2) <> 2
END SUB