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