Brookfield CAP2000 Viscometer - Manual (Page 36)

Brookfield Engineering Labs., Inc. Page 36 Manual No. M/94-310F
2000 ‘ If overflow, take the
‘ complement
2005 IF SGN(DECIMALNUM) = -1 THEN DECIMALNUM = 65536! + DECIMALNUM
2010 RETURN
2015 ‘
2020 ‘
2025 ‘ Routine to clear the com port input buffer
2030 ‘
2035 WHILE LOC(1) > 0 ‘ If data in input buffer
2040 DUMMY$ = INPUT$(LOC(1), #1) ‘ Dump it out
2045 GOSUB 1455
2050 WEND
2055 RETURN
2060 ‘
2065 ‘
2070 ‘ Routine to close communications channel
2075 ‘
2080 CLOSE #1
2085 RETURN