%include "inc:util.imp"
%begin
   %string (255) input, output, facility, param
   %routine Fail (%string (255) File)
      %on 9 %start
          print string (File)
          newline
          %stop
      %finish
      Select input (0)
      %cycle
         skip symbol   { Throw away pending commands }
      %repeat
   %end
   param = cli param
   facility = "" %unless param -> ("-").facility
   input = "" %unless param -> input.("/")
   output = "" %unless param -> ("/").output
   %if output -> output.("-") %start; %finish
   %if facility="ILAP" %start
       %if input = "" %start
           fail ("ILAP requires a parameter, eg.   ILAP FILE")
       %finish
   %else %if facility="MINIMO"
       %if input = "" %or output = "" %start
           fail ("MINIMO reqiures two parameters, eg.    MINIMO  MYTABLE/REDUCED")
       %finish
   %else
       fail (facility." ".input." ".output)
   %finish
%end %of %program
