User guide

BB2-7040 User Guide – Rev. 1.2 Page 43
c = c - 48
e = e * 16 + c
next i
unstuff = e
END FUNCTION
open "API" for comm as 1
$api = "Remote," & stuff(201) & ",00:13:A2:00:40:48:5A:2B,Y,IS"
print #1, $api
timeout 10
line input #1, $r
print $r, "\n"
$hv = mid($r,53,4)
print $hv
n = unstuff($hv)
print "\n", n
setreg 4, n/10
end