! 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