Datasheet

Jon Waddington
84
dp--
devcom(dp)
PRI AllDevices | dp, j, i
{{Method displays all devices}}
sel := 0
dp := 0
text.out($00)
showdate(0, 0)
showtime(35, 0)
text.str(string(" Home Automation", 13))
repeat j from 0 to (dvcnum - 1)
text.str(string(13," "))
repeat i from (dp*10) to ((dp*10) + 9)
if name[i]
text.out(name[i])
else
i := (dp * 10) + 9
dp++
sel := 0
code := 0
repeat until (code == enter)
text.xy(2, 3)
text.str(string(" "))
text.xy(2, dvcnum + 2)
text.str(string(" "))
text.xy(2, sel+2)
text.str(string(" "))
text.xy(2, sel+3)
text.str(string(" >"))
text.xy(2, sel+4)
text.str(string(" "))
code := wait
if code == up
++sel
if sel == dvcnum
sel := 0
if code == down
sel := --sel <# dvcnum - 1
devcom(sel)
sel := 0
PRI devcom(dp) | i
repeat until (sel == i+1)
sel := 0
code:= 0
rc.flush
text.out($00)