Datasheet

Jon Waddington
85
showdate(0, 0)
showtime(35, 0)
text.str(string(" "))
repeat i from (dp*10) to ((dp*10) + 9)
if name[i]
text.out(name[i])
else
i := (dp * 10) + 9
text.str(string(13,13," On"))
text.str(string(13," Off"))
if type[dp]
text.str(string(13," Dim"))
i:=2
else
i:= 1
text.str(string($0A,4,$0B,6,"Return"))
repeat until (code == enter) & ((sel == 2) | (sel == 3))
case sel
0 : text.str(string($0A,3,$0B,3,">"))
text.str(string($0A,3,$0B,4," "))
text.str(string($0A,3,$0B,5," "))
text.str(string($0A,3,$0B,6," "))
1 : text.str(string($0A,3,$0B,3," "))
text.str(string($0A,3,$0B,4,">"))
text.str(string($0A,3,$0B,5," "))
text.str(string($0A,3,$0B,6," "))
i : text.str(string($0A,3,$0B,3," "))
text.str(string($0A,3,$0B,4," "))
text.str(string($0A,3,$0B,5,">"))
text.str(string($0A,3,$0B,6," "))
i+1:text.str(string($0A,3,$0B,3," "))
text.str(string($0A,3,$0B,4," "))
text.str(string($0A,3,$0B,5," "))
text.str(string($0A,3,$0B,6,">"))
code := wait
if (code == up)
++sel
if sel == i+2
sel := 0
if (code == down)
sel := --sel <# i+1
if (code == enter)
case sel
0 : x10.do(addr[dp],on)
1 : x10.do(addr[dp],off)
i : dim_in(dp)
code := enter
PRI dim_in(dp) | i, j
text.out($00)
showdate(0, 0)
showtime(35, 0)
text.str(string(13," Dim : "))
repeat i from 0 to 2