Clock

10 REM  INTERUPT CLOCK                 By Eric Boisvert                ©1987 BYTE POWER         
   25 REM  USR CALLS 
   30 REM 64770 ENTER TIME,      Keys [H]our,[M]inutes,[S]econds and [ENTER]
   40 REM 65303 STOP CLOCK
   50 REM 65296 START CLOCK
   60 REM  USEFULL POKES 
   70 REM 64970,SECONDS
   80 REM 64971,MINUTES
   90 REM 64972,HOURS
  100 REM 64887,201  NO DISPLAY
  110 REM 64887,33   DISPLAY ON
  120 REM 64894,COLOR OF CLOCK
  130 REM 64858,60 T/S 2068
  140 REM 64858,50 ZX SPECTRUM
  150 REM  SPECIAL POKES 
  160 REM 64888,COLOR POSITION
  170 REM 64902,NUMBERS POSITION
  175 IF PEEK 23681=0 THEN CLS : LIST 9999: STOP 
  180 STOP 
 9000 REM LOAD CODES
 9010 LOAD "CLOCK Mc"CODE : IF PEEK 23681<>0 THEN RANDOMIZE USR 65296: CLS : LIST 
 9020 CLS : LIST 9999: STOP 
 9999 SAVE "CLOCK" LINE 9000: SAVE "CLOCK Mc"CODE 64770,536: VERIFY "": VERIFY ""CODE