home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / CDRom / ACDFS3_5.DMS / in.adf / ARexx_Samples.lha / ARexx_Samples / AsimTunes / get_alarm.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1995-08-23  |  389 b   |  23 lines
  1. /*  This example will demonstrate the use of the get_alarm command
  2.     in AsimTunes.
  3.  
  4.     (C)1993-1995 Asimware Innovations Inc.                               */
  5.  
  6.  
  7. options results
  8.  
  9. address "AsimTunes_ARexx"
  10.  
  11. get_alarm
  12. if rc ~= 0 then do
  13.     say 'Failed with 'rc'.'
  14.     exit
  15. end
  16.  
  17.  
  18. if( result )
  19.     then say 'The Alarm? menu item is selected.'
  20.     else say 'The Alarm? menu item is not selected.'
  21.  
  22. exit
  23.