100 PRINT"[147]";TAB(16);"TIME CLOCK"
110 PRINTTAB(13);"COPYRIGHT 1990"
120 PRINTTAB(13);"RUN MAGAZINE       "
130 PRINTTAB(13);"ALL RIGHTS RESERVED"
200 INPUT"   TIME (HHMMSS)";T$
450 POKE56587,16*VAL(MID$(T$,1,1))+VAL(MID$(T$,2,1))
475 POKE56586,16*VAL(MID$(T$,3,1))+VAL(MID$(T$,4,1))
500 POKE56585,16*VAL(MID$(T$,5,1))+VAL(MID$(T$,6,1))
525 POKE56584,0
550 SYS 2345:NEW