Datasheet

Jon Waddington
91
text.dec(dvc[dp])
text.str(string(13," Delete"))
code := 0
repeat until code == enter
case sel
0 : text.str(string($0A,1,$0B,1,">"))
text.str(string($0A,1,$0B,2," "))
text.str(string($0A,1,$0B,3," "))
text.str(string($0A,1,$0B,4," "))
text.str(string($0A,1,$0B,5," "))
1 : text.str(string($0A,1,$0B,1," "))
text.str(string($0A,1,$0B,2,">"))
text.str(string($0A,1,$0B,3," "))
text.str(string($0A,1,$0B,4," "))
text.str(string($0A,1,$0B,5," "))
2 : text.str(string($0A,1,$0B,1," "))
text.str(string($0A,1,$0B,2," "))
text.str(string($0A,1,$0B,3,">"))
text.str(string($0A,1,$0B,4," "))
text.str(string($0A,1,$0B,5," "))
3 : text.str(string($0A,1,$0B,1," "))
text.str(string($0A,1,$0B,2," "))
text.str(string($0A,1,$0B,3," "))
text.str(string($0A,1,$0B,4,">"))
text.str(string($0A,1,$0B,5," "))
4 : text.str(string($0A,1,$0B,1," "))
text.str(string($0A,1,$0B,2," "))
text.str(string($0A,1,$0B,3," "))
text.str(string($0A,1,$0B,4," "))
text.str(string($0A,1,$0B,5,">"))
code := wait
if code == up
++sel
if sel == 5
sel := 0
if code == down
sel := --sel <# 4
case sel
0 : rcname_in(dp*10)
1 : room_in(dp)
2 : Type_in(dp)
3 : Address_in(dp)
4 : delete(dp)
backup
PRI keyname_in(i) | j, e, t
t := i
repeat j from i to i+9
name[j]~
i := t
text.out($00)
showdate(0, 0)
showtime(35, 0)
text.str(string(13," Add Device (Keyboard)",13,13," Name: "))
repeat until (e == $0D) | (i == t+9)