%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
