.K PAT,DIR,-l/S

;A primitive -- and very partial -- emulation of the *n*x 'ls' command.
;Works on the current directory; for others you need the keyword 'DIR'.

if "<-l>" EQ ""
 if "<PAT>" EQ ""
  list dir <DIR$""> QUICK
 else
  list dir <DIR$""> p <PAT> QUICK
 endif
else
 if "<PAT>" EQ ""
  list dir <DIR$"">
else
  list dir <DIR$""> p <PAT>
 endif
endif