TECHNICAL INFORMATION
18
87-900-067-01 (B)
END IF
PRINT
CASE "u", "U"
PRINT #1, "U"; CHR$(&HAB);
answer 2
IF risp$ = "" THEN
PRINT "NOT CONNECTED"
ELSE
b% = ASC(LEFT$(risp$, 1))
IF b% THEN
PRINT "SET-POINT ON"
ELSE
PRINT "SET-POINT OFF"
END IF
END IF
PRINT
CASE "H", "h"
INPUT "ADJ. COEFFICIENT : ", ct%
IF (ct% >>= 100) AND (ct% <<= 4170) THEN
cm$ = "H" + MKI$(ct%)
crc = 0
PRINT
FOR i = 1 TO LEN(cm$)
crc = crc - ASC(MID$(cm$, i, 1))
PRINT HEX$(ASC(MID$(cm$, i, 1))); " ";
NEXT
crc = crc AND &HFF
PRINT HEX$(crc)
cm$ = cm$ + CHR$(crc)
PRINT #1, cm$;
answer 10
IF risp$ = "" THEN
PRINT "NOT CONNECTED"
ELSE
PRINT "RECEIVED : "; LEN(risp$)
FOR i = 1 TO LEN(risp$)
PRINT HEX$(ASC(MID$(risp$, i, 1))); " ";
NEXT
PRINT
END IF
PRINT
END IF
CASE "K", "k"
INPUT "LANGUAGE ", l%
INPUT "MEASUREMENT UNIT ", u%
INPUT "MANTISSA ", m%
INPUT "EXPONENT ", e%
cm$ = "K" + CHR$(l%) + CHR$(u%) + CHR$(m%) + CHR$(e%)
crc = 0
PRINT
FOR i = 1 TO LEN(cm$)
crc = crc - ASC(MID$(cm$, i, 1))
PRINT HEX$(ASC(MID$(cm$, i, 1))); " ";
NEXT
crc = crc AND &HFF
PRINT HEX$(crc)
cm$ = cm$ + CHR$(crc)
PRINT #1, cm$;
answer 10
IF risp$ = "" THEN
PRINT "NOT CONNECTED"
END IF