start tok64 d64-rewi61
0 REM{blue}
1 POKE54296,15:w=54276:POKEw+1,17:POKEw+2,18:POKEw,128:POKEw-4,100:POKEw-3,100
2 INPUT"{clear}{down*3}slag/min";sm:sl=60/sm*60:ti$="{0*6}":q=sl
3 PRINT"{home} time:"," next:"," left:"
4 PRINT"{home}{down}"ti,:IFti<qTHENPRINTINT(q),INT(q-ti+.5)"{left} ",," "ti$:GOTO4
5 POKEw,129:FORi=.TO5:NEXT:POKEw,128:q=q+sl:GOTO4:REMmetronom{white}
stop tok64
(bastext 1.0)