home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / Index / Scripts / startsearch < prev   
AmigaDOS Script File  |  1995-09-11  |  642b  |  29 lines
  1. .key LANGUAGE/A,DB/A,DEV
  2. .bra {
  3. .ket }
  4.  
  5. CD {DEV}:
  6.  
  7. IF NOT EXISTS ENV:MPPATTERN
  8.     Echo >ENV:MPPATTERN NOLINE "#?"
  9. ENDIF
  10.  
  11. IF {Language} EQ "deutsch"
  12.     :C/RequestString "Wonach soll gesucht werden?" "" ENV:MPPATTERN ENV:MPPATTERN
  13.     IF WARN
  14.         Skip endsearch
  15.     ENDIF
  16. ELSE
  17.     :C/RequestString "What shall I search for?" "" ENV:MPPATTERN ENV:MPPATTERN
  18.     IF WARN
  19.         Skip endsearch
  20.     ENDIF
  21. ENDIF
  22.  
  23. :C/ESCChars <ENV:MPPATTERN >ENV:MPPATTERN2
  24. :C/ESCChars <ENV:MPPATTERN2 >ENV:MPPATTERN3
  25. Run >NIL: Execute :Index/Scripts/makesearchguide "$MPPATTERN3" :Index/Guides/bricks/{LANGUAGE}-guide-{DB} {LANGUAGE}
  26. ;Delete QUIET ENV:MPPATTERN2 ENV:MPPATTERN3
  27.  
  28. LAB endsearch
  29.