home *** CD-ROM | disk | FTP | other *** search
/ Fish 'n' More 2 / fishmore-publicdomainlibraryvol.ii1991xetec.iso / dirs / rxgen_459.lzh / Rxgen / rexx / db.rexx < prev    next >
OS/2 REXX Batch file  |  1991-02-18  |  325b  |  12 lines
  1. /* AREXX program */
  2. LIBS.intuition = '00 00 00 00'x
  3. LIBS.intuition.OPENCOUNT = 0
  4. LIBS.intuition.DisplayBeep='FFA0'x||I||'2009'x
  5.  
  6. if ~show('L','rxgen.library') then call addlib('rxgen.library',0,-30,0)
  7.  
  8. /* no fuss here */
  9. call GenOpenLib("intuition",0)
  10. call GenACall("intuition","DisplayBeep",0)
  11. call GenCloseLib("intuition")
  12.