Datasheet

Jon Waddington
88
tempout := 0
repeat bit from 18 to 19
tempout += XB.dtset(bit)
if bit == 18
tempout <<= 8
if (tempout < 10000)
text.dec((((tempout*1200)/1023)-500)/10)
PRI X10Setup
{{Method shows X10 setup Menu}}
repeat until ((code == enter) & (sel == 2))
rc.flush
in.start(26, 27)
sel := 0
code := 0
text.out($00)
showdate(0, 0)
showtime(35, 0)
text.str(string(13," X10 Setup",13,13," Add Device",13," Edit Device",13,13,13," Return to main
menu"))
repeat until (code == enter)
case sel
0 : text.str(string($0A,3,$0B,4,"> "))
text.str(string($0A,3,$0B,5," "))
text.str(string($0A,3,$0B,8," "))
1 : text.str(string($0A,3,$0B,4," "))
text.str(string($0A,3,$0B,5,"> "))
text.str(string($0A,3,$0B,8," "))
2 : text.str(string($0A,3,$0B,4," "))
text.str(string($0A,3,$0B,5," "))
text.str(string($0A,3,$0B,8,"> "))
code := wait
if (code == up)
++sel
if sel == 3
sel := 0
if (code == down)
sel := --sel <# 2
if (code == enter)
case sel
0 : AddDevice
1 : EditDevice
sel := 2
PRI AddDevice | i, j ' 'i' is used to point to the byte in 'name', 'j' points to the byte of each device variable
{{Method allows user to add X10 devices}}
text.out($00)
j := dvcnum
i := dvcnum * 10
if in.present