Datasheet

Jon Waddington
93
text.str(string($0A,13,$0B,6," "))
text.str(string($0A,13,$0B,7,"> "))
room[j] := sel
code := wait
if (code == up)
++sel
if sel == 4
sel := 0
if (code == down)
sel := --sel <# 3
sel := 0
PRI Type_in(j)
sel := 0
code := 0
text.out($00)
showdate(0, 0)
showtime(35, 0)
text.str(string(13," Add Device",13,13," Type: > Appliance",13," Lamp"))
repeat until ((code == enter))
case sel
0 : text.str(string($0A,13,$0B,4,"> "))
text.str(string($0A,13,$0B,5," "))
type[j] := sel
1 : text.str(string($0A,13,$0B,4," "))
text.str(string($0A,13,$0B,5,"> "))
type[j] := sel
code := wait
if (code == up)
++sel
if sel == 2
sel := 0
if (code == down)
sel := --sel <# 1
PRI Address_in(j) | i
text.out($00)
showdate(0, 0)
showtime(35, 0)
dvc[j] := 0
text.str(string(13," Add Device",13,13," Addr: "))
repeat i from 0 to 1
rc.flush
rcflag := rc.gettoggle
repeat until ((rcflag <> rc.gettoggle) AND ((rc.getcommand => 0) AND (rc.getcommand =< 9)))
rcflag := rc.gettoggle
if i == 0
dvc[j] := rc.getcommand * 10
else
dvc[j] := dvc[j] + rc.getcommand
text.dec(rc.getcommand)