Datasheet

Jon Waddington
81
i:=0
repeat
rc.flush
text.out($00)
showdate(0, 0)
showtime(35, 0)
text.str(string(13," Information System"))
text.str(string(13,13,13," . Home Automation",13,13," . Temperature",13,13," . X10
Setup",13,13," . Settings"))
code := 0
repeat until (code == enter)
case sel
0 : text.str(string($0A,7,$0B,5,"> "))
text.str(string($0A,7,$0B,7,"2."))
text.str(string($0A,7,$0B,9,"3."))
text.str(string($0A,7,$0B,11,"4. "))
1 : text.str(string($0A,7,$0B,5,"1."))
text.str(string($0A,7,$0B,7,"> "))
text.str(string($0A,7,$0B,9,"3."))
text.str(string($0A,7,$0B,11,"4. "))
2 : text.str(string($0A,7,$0B,5,"1."))
text.str(string($0A,7,$0B,7,"2."))
text.str(string($0A,7,$0B,9,"> "))
text.str(string($0A,7,$0B,11,"4. "))
3 : text.str(string($0A,7,$0B,5,"1."))
text.str(string($0A,7,$0B,7,"2."))
text.str(string($0A,7,$0B,9,"3 "))
text.str(string($0A,7,$0B,11,"> "))
code := wait
if ((code => 1) & (code =< 4))
sel := code - 1
if (code == up)
++sel
if sel == 4
sel := 0
if (code == down)
sel := --sel <# 3
code := 0
case sel
0 : HomeAutomation
1 : Temperature
2 : X10Setup
3 : Settings
PRI HomeAutomation
text.out($00)
sel := 0
text.out($00)
showdate(0, 0)
showtime(35, 0)
text.str(string(13," Home Automation", 13,13," All Devices",13,13," List by room",13,13," Return"))
code := 0
repeat until (code == enter)
case sel
0 : text.str(string($0A,5,$0B,4,">"))
text.str(string($0A,5,$0B,6," "))