home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / OTL-MS02.DMS / in.adf / Guide / MovieShop / tl_search.msx < prev    next >
Encoding:
Text File  |  1995-03-18  |  523 b   |  24 lines
  1. /*
  2.   Suche nach Operatoren
  3. */
  4.  
  5. Search:
  6.   PARSE ARG OpName
  7.  
  8.   OPTIONS RESULTS
  9.  
  10.   If (Exists('MS_Ops:'OpName)) Then OpFullName = 'MS_Ops:'OpName
  11.   Else Do
  12.     OldDir = Pragma('D','MS_Ops:')
  13.     ADDRESS COMMAND 'Search #? >T:SearchOutput' OpName 'FILE ALL QUIET'
  14.     If (Open('SO','T:SearchOutput','READ')) Then Do
  15.       OpFullName = ReadLn('SO')
  16.       Call Close('SO')
  17.     End
  18.     Else Exit 10
  19.     Call Pragma('D',OldDir)
  20.     ADDRESS COMMAND 'Delete >NIL: T:SearchOutput'
  21.   End
  22.   Call SetClip('OpFullName',OpFullName)
  23. Exit 0
  24.