Datasheet

Jon Waddington
94
case dvc[j]
1 : addr[j] := d1
2 : addr[j] := d2
3 : addr[j] := d3
4 : addr[j] := d4
5 : addr[j] := d5
6 : addr[j] := d6
7 : addr[j] := d7
8 : addr[j] := d8
9 : addr[j] := d9
10 : addr[j] := d10
11 : addr[j] := d11
12 : addr[j] := d12
13 : addr[j] := d13
14 : addr[j] := d14
15 : addr[j] := d15
16 : addr[j] := d16
PRI delete(dp) | i
repeat i from dp*10 to ((dvcnum-1) * 10) + 9
name[i] := name[i+10]
repeat i from dp to dvcnum - 1
room[i] := room[i+1]
type[i] := type[i+1]
dvc[i] := dvc[i+1]
addr[i] := addr[i+1]
dvcnum--
PRI Settings
rc.flush
text.out($00)
showdate(0, 0)
showtime(35, 0)
text.str(string(13," Settings"))
text.str(string(13,13,13," . Set Time",13,13," . Set Date",13,13," Return"))
code := 0
sel := 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," "))
1 : text.str(string($0A,7,$0B,5,"1."))
text.str(string($0A,7,$0B,7,"> "))
text.str(string($0A,7,$0B,9," "))
2 : text.str(string($0A,7,$0B,5,"1."))
text.str(string($0A,7,$0B,7,"2."))
text.str(string($0A,7,$0B,9,"> "))
code := wait
if ((code => 1) & (code =< 3))
sel := code - 1
if (code == up)
++sel
if sel == 3
sel := 0