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