Datasheet

Jon Waddington
82
text.str(string($0A,5,$0B,8," "))
1 : text.str(string($0A,5,$0B,4," "))
text.str(string($0A,5,$0B,6,">"))
text.str(string($0A,5,$0B,8," "))
2 : text.str(string($0A,5,$0B,4," "))
text.str(string($0A,5,$0B,6," "))
text.str(string($0A,5,$0B,8,">"))
code := wait
if code == up
++sel
if sel == 3
sel := 0
if code == down
sel := --sel <# 2
case sel
0 : AllDevices
1 : ChooseRoom
2 : sel := 0
PRI ChooseRoom
text.out($00)
sel := 0
text.out($00)
showdate(0, 0)
showtime(35, 0)
text.str(string(" Home Automation", 13,13," Bedroom",13," Living Room",13," Dining Room",13,"
Kitchen"))
code := 0
repeat until (code == enter)
case sel
0 : text.str(string($0A,5,$0B,3,">"))
text.str(string($0A,5,$0B,4," "))
text.str(string($0A,5,$0B,5," "))
text.str(string($0A,5,$0B,6," "))
1 : text.str(string($0A,5,$0B,3," "))
text.str(string($0A,5,$0B,4,">"))
text.str(string($0A,5,$0B,5," "))
text.str(string($0A,5,$0B,6," "))
2 : text.str(string($0A,5,$0B,3," "))
text.str(string($0A,5,$0B,4," "))
text.str(string($0A,5,$0B,5,">"))
text.str(string($0A,5,$0B,6," "))
3 : text.str(string($0A,5,$0B,3," "))
text.str(string($0A,5,$0B,4," "))
text.str(string($0A,5,$0B,5," "))
text.str(string($0A,5,$0B,6,">"))
code := wait
if code == up
++sel
if sel == 4
sel := 0
if code == down
sel := --sel <# 3
DisplayRoom(sel)