summaryrefslogtreecommitdiff
path: root/acorn/zipsfx
diff options
context:
space:
mode:
Diffstat (limited to 'acorn/zipsfx')
-rw-r--r--acorn/zipsfx9
1 files changed, 9 insertions, 0 deletions
diff --git a/acorn/zipsfx b/acorn/zipsfx
new file mode 100644
index 0000000..7d63492
--- /dev/null
+++ b/acorn/zipsfx
@@ -0,0 +1,9 @@
+| zipsfx 0.1
+| Written by Darren Salt
+| Assumes that unzipsfx is on Run$Path (eg. in !Boot.Library)
+| Assumes that IfThere is available as either *command or utility
+
+If "%1" = "" Then Error 220 Syntax: zipsfx |<archive> |<SEA>
+If "%0" = "" Then Error 220 Syntax: zipsfx |<archive> |<SEA>
+Copy Run:unzipsfx %1 A~C~D~F~L~N~R~S~T~V
+Print %0 { >> %1 } \ No newline at end of file