home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / SDE_300.ZIP / MASK.XM! < prev    next >
Text File  |  1993-02-09  |  402b  |  21 lines
  1.  
  2. @Comment{External macro to set directory file mask}
  3.  
  4. @Set
  5. {
  6.   (newmask)
  7.   (
  8.     @Menu
  9.     {
  10.       (All)(*.*)
  11.       (Name of hilited)(@Hilited(N).*)
  12.       (Ext of hilited)(*.@Hilited(E))
  13.       (Input name)(@Prompt(Name for mask)@Input().*)
  14.       (Specified ext)(@Prompt(Ext for mask)*.@Input())
  15.       (Given mask)(@Prompt(Mask)@Input())
  16.     }
  17.   )
  18. }
  19. @Key(ENTER @Val(newmask) ENTER)
  20.  
  21.