%begin
  %option  "-low-nocheck-nodiag-notrace-noline-nostack"
  %include "INC:UTIL.IMP"
  %include "INC:DICT.IMP"

  %conststring(25) str = "CLOCK:TIMEINT.MOB"
  %record%format f1 (%half feoo,hours,minutes,seconds,
                           alhrs,almins,alsecs,tsec,onoff)
  %record(f1)%name ft
  %integer start
  
  start = refname(str,fildict)
  %if start > 0 %start
    !** background job object already preloaded
    ft == record(integer(start))

    %if ft_feoo # 16_FE00 %start
      !** clock program already going
      %if ft_alhrs # 25 %start
        printstring("Alarm will sound at ")
        printsymbol('0') %if ft_alhrs < 10
        write(ft_alhrs,0); printsymbol(':')
        printsymbol('0') %if ft_almins < 10
        write(ft_almins,0); printsymbol(':')
        printsymbol('0') %if ft_alsecs < 10
        write(ft_alsecs,0)
      %finish %else printstring("Alarm disabled.")
      printstring(" Time now is ")
      printsymbol('0') %if ft_hours < 10
      write(ft_hours,0); printsymbol(':')
      printsymbol('0') %if ft_minutes < 10
      write(ft_minutes,0); printsymbol(':')
      printsymbol('0') %if ft_seconds < 10
      write(ft_seconds,0)
      newline
    %finish %else %start
      printstring("Clock not running.")
      newline
    %finish
  %finish %else %start
    !** background job object not preloaded
    printstring("Clock not running, timeint not preloaded")
    newline
  %finish

%endofprogram