3 REM[b]a:atthestart[/b]
5 CLEAR65119
10 LETstart=999:LETh=65532:LETm=h+1:LETs=m+1:POKEh,INT
(start/24):POKEm,INT((start-PEEKh*24)/60):POKEs,start-PEEKh
*24-PEEKm*60:LETfinish=9000:RANDOMIZEUSR65120
1000 REM[b]b:somewhereinthemainprogramloop[/b]
1001 LEThr=PEEKh:LETmi=PEEKm:LETse=PEEKs:LEThms=hr+mi+se
:PRINTAT0,0;hr;":";mi;":";se;"":GOTO(PEEK23621+256*PEEK
23622+1ANDhms)+(finishANDNOThms)
1002 PAUSE50:GOTO1001
9000 REMfinish=9000
9001 STOP