Datasheet

Jon Waddington
98
8 : text.str(string("Aug"))
9 : text.str(string("Sep"))
10 : text.str(string("Oct"))
11 : text.str(string("Nov"))
OTHER : text.str(string("Dec")) 'if m is out of range, set to 12
m := 12
repeat until rc.getcommand 'wait until a button is pressed
code := rc.getcommand 'code = RC5 code
rc.flush 'flush RC5
if code == down 'increment month
++m
if m == 13 'loop month
m := 1
if code == up 'decrement month
--m
text.xy(10, 3) 'show set date in white
text.colour(0)
case m
1 : text.str(string("Jan"))
2 : text.str(string("Feb"))
3 : text.str(string("Mar"))
4 : text.str(string("Apr"))
5 : text.str(string("May"))
6 : text.str(string("Jun"))
7 : text.str(string("Jul"))
8 : text.str(string("Aug"))
9 : text.str(string("Sep"))
10 : text.str(string("Oct"))
11 : text.str(string("Nov"))
12 : text.str(string("Dec"))
code := 0
text.colour(2)
text.str(string($20, "20")) 'show year
repeat until code == enter
text.xy(16, 3) 'show year (BCD)
text.dec(y>>4 & $0F)
text.dec(y & $0F)
repeat until rc.getcommand 'wait until button is pressed
code := rc.getcommand
rc.flush
if code == down 'increment year
++y
if (y & $0F) => 10
y &= $F0
y += 16
if y => $9A 'loop year
y := 0
if code == up 'decrement year
if (y & $0F) > 0
--y
elseif (y & $F0) > 0
y -= 16
y |= $09
else