<ROUTINE I-ADVANCE-CLOCK ()
      <SETG MINS <+ ,MINS 1>>
      <COND (<G=? ,MINS 60>
             <SETG HOURS <+ ,HOURS </ ,MINS 60>>>
             <SETG MINS <MOD ,MINS 60>>)>
      <COND (<G=? ,HOURS 24>
             <SETG HOURS <MOD ,HOURS 24>>)>>

<ROUTINE 12HOUR ("AUX" H)
      <SET H <MOD ,HOURS 12>>
      <OR .H 12>>

<ROUTINE PM? ()
      <G=? ,HOURS 12>>

<ROUTINE TELL-NRS (NUM)
      <COND (<L? .NUM 10> <TELL " ">)>
      <TELL N .NUM>>

<ROUTINE TELL-NR0 (NUM)
      <COND (<L? .NUM 10> <TELL "0">)>
      <TELL N .NUM>>

<ADD-TELL-TOKENS
      NRS *       <TELL-RJS .X>
      NR0 *       <TELL-RJ0 .X>>

<ROUTINE PRINT-TIME ("AUX" H M AMPM)
      <SET H <12HOUR>>
      <SET M ,MINS>
      <SET AMPM <COND (<PM?> "PM") (ELSE "AM")>>
      <TELL NRS .H ":" NR0 .M " " .AMPM>>