form Copy selected files...
  word Prefix
  word Suffix _copy
  boolean Keep_original 1
endform

total_objects = numberOfSelected()
for i to total_objects
  my_object[i] = selected(i)
endfor
for i to total_objects
  selectObject: my_object[i]
  @copy()
  new[i] = selected()
endfor
if total_objects
  selectObject: new[1]
  for i from 2 to total_objects
    plusObject: new[i]
  endfor
endif

procedure copy ()
  .name$ = extractWord$(selected$(), " ")
  Copy: prefix$ + .name$ + suffix$
endproc
