home *** CD-ROM | disk | FTP | other *** search
- /* AREXX program */
- LIBS.intuition = '00 00 00 00'x
- LIBS.intuition.OPENCOUNT = 0
- LIBS.intuition.DisplayBeep='FFA0'x||I||'2009'x
-
- if ~show('L','rxgen.library') then call addlib('rxgen.library',0,-30,0)
-
- /* no fuss here */
- call GenOpenLib("intuition",0)
- call GenACall("intuition","DisplayBeep",0)
- call GenCloseLib("intuition")
-