home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Exec 4 / CD_Magazyn_EXEC_nr_4.iso / Recent / util / libs / IdentifyDev.lha / Identify / arexx / gfxaudio.ify < prev    next >
Text File  |  1997-10-07  |  1KB  |  42 lines
  1. /*****************************************************************
  2. **                                                              **
  3. **  gfxaudio.ify        rexxidentify.library demonstration      **
  4. **                                                              **
  5. ******************************************************************
  6. **
  7. **      (c) 1997 by Richard Körber -- All Rights Reserved
  8. **
  9. **      You may use this example freely for your own programs.
  10. **
  11. */
  12.  
  13.   /* Add the library functions */
  14. CALL AddLib("/libs/rexxidentify.library",0,-30,0)
  15. IF Word(ID_Release(),1)<5 THEN DO
  16.   SAY "This script requires at least rexxidentify.library release 5!"
  17.   EXIT
  18. END
  19.  
  20.   /* Get the number of present expansions */
  21. number = ID_NumBoards()
  22.  
  23. SAY "These Graphics boards were found:"
  24. DO i=0 TO number-1
  25.   classid = ID_Expansion(i,"CLASSID")
  26.   IF (classid=19 | classid=20) & (ID_Expansion(i,"SECONDARY")~="Secondary")
  27.     THEN SAY "  ·" ID_Expansion(i,"PROD")
  28. END
  29. SAY ""
  30.  
  31. SAY "These Sound boards were found:"
  32. DO i=0 TO number-1
  33.   classid = ID_Expansion(i,"CLASSID")
  34.   IF (classid=10) & (ID_Expansion(i,"SECONDARY")~="Secondary")
  35.     THEN SAY "  ·" ID_Expansion(i,"PROD")
  36. END
  37. SAY ""
  38.  
  39. EXIT
  40.  
  41.  
  42.