%%HP: T(1)A(D)F(.);
 
 -40 SF          @ Ticking clock displayed at all times.
 -41 CF          @ 12-hour clock.
 { 
  { "START" 
   
    TIME IP
    DUP
    IF 23  THEN           @  = Not Equal.
       1 + DATE            @ first time = time + 1 hour.
       ELSE DROP 0
       DATE 1 DATE+
    END
    SWAP             
     
     TIME IP DUP                  
     IF 13  THEN               @  = >= .
        12 - 
     END  
     DUP
     IF 0 == THEN             
        DROP 12  
     END  
     1 SWAP 
     FOR A 
       1104 .101 BEEP .15 WAIT 
       911 .132 BEEP .65 WAIT 
     NEXT 
     DROP OFF 
     
    3600 UBASE UVAL 8192 *          @ every hour.
    4 LIST STOALARM 'alarm' STO
    {
     { "STOP" 
       
       alarm DELALARM 
       "   (c)2000 Tal Dagan"
       1 DISP 1 WAIT  
       2 MENU 
       
     }
     { } { } { } { } { }
    }
    TMENU
   
  } 
  { } { } { } { } { }
 } 
 TMENU
 
  