Datasheet

Jon Waddington
46
PRI wait : c | m, i
{{waits for key press while updating time}}
rc.flush 'flush RC5
m := getminute 'get minute value
repeat until rc.getcommand 'repeat until button is pressed
repeat i from 0 to 19 'repeat 20 times
waitcnt(cnt + 4_000_000) 'wait 50ms
if rc.getcommand 'if button is pressed
i := 19 'exit repeat
if m <> getminute 'if minute value has changed
showtime(35, 0) 'show time
showdate(0, 0) 'show date
m := getminute 'update minute
c := rc.getcommand 'return RC5 code
rc.flush 'flush RC5 code