home *** CD-ROM | disk | FTP | other *** search
/ Amiga Elysian Archive / AmigaElysianArchive.iso / prog / arexx / cygcc.lha / FindWind < prev    next >
Encoding:
Text File  |  1990-08-23  |  274 b   |  17 lines
  1. /****************** CYGCC ***************/
  2. if address()~='rexx_ced' then return 0
  3. arg window_name
  4. options results
  5. 'Status 66'
  6. num_views = result
  7. found = 0
  8. do for num_views until found
  9. 'Status 21'
  10. if upper(result)=window_name then
  11. found=1
  12. else 
  13. 'Next view'
  14. end
  15. return found
  16.  
  17.