! Set date and time for a filestore, GDMR, 18/02/86

%include "INC:FS.IMP"
%include "INC:UTIL.IMP"

%begin
   %string(127) param
   %string(31) d, t, x, y
   %integer i
      %on 3 %start
         printstring("Error:");  printstring(event_message)
         newline
         %stop
      %finish
      param = CLI param
      %if param = "" %start
         printstring("TIME (and optionally DATE) must be specified")
         newline
         %stop
      %finish
      d = date %and t = param %unless param -> d . (" ") . t
      t = x . y %while t -> x . (" ") . y
      x = "9," . d . " " . t
      !! printstring("-> ");  printstring(x);  newline
      i = fcomm(']' << 8, x)
      printstring("Date and time set to ")
      printstring(date);  printstring(" at ");  printstring(time)
      newline
%end %of %program
