xoff: local c%,dat$(20) c%=0 off beep 100,50 print"READY" print"Press ON/CLEAR -" dat$=left$(datim$,11)+mid$(datim$,17,5) escape off do c%=c%+1 if c%>3000 goto missed:: endif until key<>0 escape on return missed:: escape on cls off beep 100,400 print"- ALARM missed -"; beep 50,300 print dat$ beep 100,200 beep 50,400 get return