    !
    ! use the following two routines only if you must!
    !
    ! Status values are to be found in Imp_Include:CLIMSG.Inc
    record  format  desc fm (integer  len, addr)
    external  integer      function  spec  Cli Present a alias  "CLI$PRESENT" C
                                               (record (desc fm)name  label)
    external  integer      function  spec  Cli Value a   alias  "CLI$GET_VALUE" C
                                               (record (desc fm)name  label, value,
                                                shortname  reslen)
    external  integer  fn  spec  stoi alias  "IMP_S_TO_I" (string (127) value)
    !
    external  integer      function  Cli Present ( string (63) Label )
       record (desc fm) lab
       lab_len = length(label); lab_addr = addr(label)+1
       result  = CLI Present a(lab)
    end

    external  integer  function  Cli Value   ( string (63) Label,
                                               string (*) name  V )
      integer  i
      short  reslen
      record (desc fm) lab, res
      lab_len = length(label); lab_addr = addr(label)+1
      res_len = 127          ; res_addr = addr(v)+1
      i = cli value a(lab, res, reslen)
      length(v) <- reslen
      result  = i
    end

    external  routine                spec  Cli End Parse alias  "CLI$END_PARSE"

    !
    ! Normally, programs will use the following:
    !
    external  predicate              Qualifier Present alias  "IMP_QUALIFIER_PRESENT" c
                                                       ( string (63) Label )
       integer  j
       j = CLI Present(label)
       true  if  J = 16_3fd19 {Explicit} or  j = 16_3FD21 {DEFAULT}
       false
    end

    external  integer      function  Qualifier I      alias  "IMP_QUALIFIER_I" c
                                                       ( string (63) Label )
       string (127) v
       integer  i
       i = cli value(label,v)
       result  = stoi(v) if  i = 1
       result  = 0
    end

    external  string (127) function  Qualifier S      alias  "IMP_QUALIFIER_S" c
                                                       ( string (63) Label )
       string (127) v
       integer  i
       i = cli value(label,v)
       result  = v if  i = 1
       result  = ""
    end

    external  long  real   function  Qualifier R      alias  "IMP_QUALIFIER_R" c
                                                       ( string (63) Label )
      result  = 0.0
    end
    endoffile