/*
 *   $VER: SEARCHPATTERN.MENU 4.0039 (22-Mai-95)
 */

VERSIONCHECK 40000 "SEARCHPATTERN.MENU"


ITEMBAR

ITEM "Suche nach Muster ..." ""
  GETSTRING "Bitte geben sie das Suchmuster ein:\n(Case)" _PATCASE 
  SETVAR "_PatCase" _RS
  FINDPATTERN @CURSOR @EOT {@CASE};

ITEM "Suche noch einmal" ""
  FINDPATTERN @CURSOR @EOT {@CASE};

ITEM "Suche nach Muster (no Case) ..." "Ö"
  GETSTRING "Bitte geben sie das Suchmuster ein:\n(No case)" _PATNOCASE 
  SETVAR "_PatNoCase" _RS
  FINDPATTERN @CURSOR @EOT {@NOCASE};

ITEM "Suche noch einmal" "Ä"
  FINDPATTERN @CURSOR @EOT {@NOCASE};