home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Exec 4 / CD_Magazyn_EXEC_nr_4.iso / Recent / util / libs / IdentifyDev.lha / Identify / arexx / primary.ify < prev    next >
Text File  |  1997-07-31  |  1KB  |  43 lines
  1. /*****************************************************************
  2. **                                                              **
  3. **  primary.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)<4 THEN DO
  16.   SAY "This script requires at least rexxidentify.library release 4!"
  17.   EXIT
  18. END
  19.  
  20.   /* Get the number of present expansions */
  21. number = ID_NumBoards()
  22.  
  23.   /* Check these expansions */
  24. SAY "This are my expansion boards:"
  25.  
  26. DO i=0 TO ID_NumBoards()-1
  27.   IF ID_Expansion(i,"SECONDARY") = "Primary" THEN DO
  28.  
  29.     manuf   = ID_Expansion(i,"MANUF")
  30.     prod    = ID_Expansion(i,"PROD")
  31.     class   = ID_Expansion(i,"CLASS")
  32.  
  33.     SAY "  " manuf prod class
  34.  
  35.   END
  36. END
  37.  
  38. SAY ""
  39.  
  40. EXIT
  41.  
  42.  
  43.