home *** CD-ROM | disk | FTP | other *** search
/ Fish 'n' More 2 / fishmore-publicdomainlibraryvol.ii1991xetec.iso / dirs / rxgen_459.lzh / Rxgen / rexx / alert.rexx next >
OS/2 REXX Batch file  |  1991-02-18  |  554b  |  17 lines
  1. /* AREXX program */
  2. LIBS.intuition = '00 00 00 00'x
  3. LIBS.intuition.OPENCOUNT = 0
  4. LIBS.intuition.DisplayAlert='FFA6'x||ISI||'20010902'x
  5. if ~show('L','rxgen.library') then call addlib('rxgen.library',0,-30,0)
  6.  
  7. /* have fun with user defined alert   */
  8. /* this should appear GREEN under 2.0 */
  9.  
  10. Alert=0
  11. AlertString1='0065 0A'x||"Yoho here is the Guru !"||'00'x
  12. AlertString2='0065 14'x||"Don't you laugh at me !"||'00'x
  13. call GenOpenLib("intuition",0)
  14. call GenACall("intuition","DisplayAlert",Alert,AlertString1 AlertString2,40)
  15. call GenCloseLib("intuition")
  16.  
  17.