home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
AMOS PD CD
/
amospdcd.iso
/
s
/
dpat
< prev
next >
Wrap
AmigaDOS Script File
|
1994-02-10
|
668b
|
27 lines
.key com/a,pat/a,dir/a,opt1,opt2,opt3,opt4
failat 21
.bra {
.ket }
echo >ENV:qw{$$} "{dir}" first=256
IF $qw{$$} EQ ":"
list >t:q{$$} {pat} lformat="{com} *"%s%s*" *"{dir}%s*" {opt1} {opt2} {opt3} {opt4}"
skip doit
ENDIF
IF $qw{$$} EQ "/"
list >t:q{$$} {pat} lformat="{com} *"%s%s*" *"{dir}%s*" {opt1} {opt2} {opt3} {opt4}"
skip doit
ENDIF
IF EXISTS {dir}
list >t:q{$$} {pat} lformat="{com} *"%s%s*" *"{dir}/%s*" {opt1} {opt2} {opt3} {OPT4}"
ELSE
list >t:q{$$} {pat} lformat="{com} *"%s%s*" *"{dir}*" {opt1} {opt2} {opt3} {OPT4}"
ENDIF
lab doit
IF NOT FAIL
execute t:q{$$}
ELSE
echo "{pat} not found"
ENDIF
failat 10
;do wildcards for double arg command