workbench/s/SPat

   1 .key COM/A,PAT/A,OPT1,OPT2,OPT3,OPT4
   2 .bra {
   3 .ket }
   4
   5 ; Wildcards for commands with no wildcard support
   6 ; Only the first argument can be a wildcard
   7
   8 FailAt 21
   9
  10 List TO T:q{$$} {PAT} LFORMAT "{COM} *"%s%s*" {OPT1} {OPT2} {OPT3} {OPT4}"
  11
  12 IF NOT FAIL
  13     Execute T:q{$$}
  14 Else
  15     Echo "{PAT} not found"
  16 EndIF
  17
  18 Delete T:q{$$} QUIET >NIL:
  19
  20 FailAt 10