begin ; !stamp - change date of file(s)

include  "inc:fs.imp"

  routine  stamp(string (255)file,date)
  integer  x
    onevent  3,4,9 start 
      printstring(event_message); newline
      return 
    finish 
    x = fcomm('C0'+userno,file.",".date)
  end 

  routine  group(string (255)files,date)
  string (255)file,fore,aft
    date = fore." ".aft if  date -> fore.(":").aft
    date = date." 00.00" unless  date -> (" ")
    files = files.","
    stamp(file,date) while  files -> file.(",").files
  end 

string (255)parm,date,files

  parm = cliparam

  prompt("Date:")
  while  parm#"" cycle 
    files = parm and  read(parm) unless  parm -> files.("/").parm
    date = parm and  parm = "" unless  parm -> date.(",").parm
    group(files,date)
  repeat 

endofprogram