Datasheet

Jon Waddington
83
PRI DisplayRoom(r) | dp, j, i, n
{{still needs work}}
text.out($00)
showdate(0, 0)
showtime(35, 0)
dp := 0
case r
0 : text.str(string(13," Bedroom",13))
1 : text.str(string(13," Living Room",13))
2 : text.str(string(13," Dining Room",13))
3 : text.str(string(13," Kitchen",13))
n := 0
repeat j from 0 to (dvcnum - 1)
if room[dp] == r
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
n++
dp++
sel := 0
code := 0
repeat until code == enter
text.xy(2, 4)
text.str(string(" "))
text.xy(2, n + 3)
text.str(string(" "))
text.xy(2, sel+3)
text.str(string(" "))
text.xy(2, sel+4)
text.str(string(" >"))
text.xy(2, sel+5)
text.str(string(" "))
code := wait
if code == up
++sel
if sel == n
sel := 0
if code == down
sel := --sel <# n - 1
dp := 0
repeat j from 0 to (dvcnum - 1)
if room[dp] == r & j == sel
j := dvcnum - 1
dp++