home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Exec 4 / CD_Magazyn_EXEC_nr_4.iso / Recent / util / libs / IdentifyDev.lha / Identify / arexx / alert.ify next >
Text File  |  1997-04-24  |  845b  |  30 lines
  1. /*****************************************************************
  2. **                                                              **
  3. **  alert.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.  
  16. SAY "Please enter a system alert code (e.g. 81000005)"
  17. PULL alert
  18.  
  19. SAY "Alert Code ..." alert
  20. SAY "Deadend ......" ID_Alert(alert,"DEAD")
  21. SAY "Subsystem ...." ID_Alert(alert,"SUBSYS")
  22. SAY "General ......" ID_Alert(alert,"GENERAL")
  23. SAY "Specific ....." ID_Alert(alert,"SPEC")
  24.  
  25. SAY ""
  26.  
  27. EXIT
  28.  
  29.  
  30.