Add bin and edit workflow

2026-09-16 13:11:16 -06:00
parent c8ac4fcae5
commit 4cee170d66
17576 changed files with 895740 additions and 2 deletions
@@ -0,0 +1,26 @@
+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