zipsfx 348 B

123456789
  1. | zipsfx 0.1
  2. | Written by Darren Salt
  3. | Assumes that unzipsfx is on Run$Path (eg. in !Boot.Library)
  4. | Assumes that IfThere is available as either *command or utility
  5. If "%1" = "" Then Error 220 Syntax: zipsfx |<archive> |<SEA>
  6. If "%0" = "" Then Error 220 Syntax: zipsfx |<archive> |<SEA>
  7. Copy Run:unzipsfx %1 A~C~D~F~L~N~R~S~T~V
  8. Print %0 { >> %1 }