Datasheet

Jon Waddington
90
text.out(name[i])
else
i := (dp * 10) + 9
dp++
rc.flush
sel := 0
code := 0
repeat until (code == enter)
text.xy(2, 2)
text.str(string(" "))
text.xy(2, dvcnum + 1)
text.str(string(" "))
text.xy(2, sel+1)
text.str(string(" "))
text.xy(2, sel+2)
text.str(string(" >"))
text.xy(2, sel+3)
text.str(string(" "))
code := wait
if code == up
++sel
if sel == dvcnum
sel := 0
if code == down
sel := --sel <# dvcnum - 1
Edit(sel)
PRI Edit(dp) | i
sel := 0
text.out($00)
showdate(0, 0)
showtime(35, 0)
text.str(string(" Name : "))
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," Room : "))
case room[dp]
0 : text.str(string("Bedroom"))
1 : text.str(string("Living Room"))
2 : text.str(string("Dining Room"))
3 : text.str(string("Kitchen"))
text.str(string(13," Type : "))
case type[dp]
0 : text.str(string("Appliance"))
1 : text.str(string("Lamp"))
text.str(string(13," Address : A"))