home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Club Amiga de Montreal - CAM
/
CAM_CD_1.iso
/
files
/
499.lha
/
Rxgen_v1.0
/
rexx
/
alert.rexx
next >
Wrap
OS/2 REXX Batch file
|
1991-04-08
|
554b
|
17 lines
/* AREXX program */
LIBS.intuition = '00 00 00 00'x
LIBS.intuition.OPENCOUNT = 0
LIBS.intuition.DisplayAlert='FFA6'x||ISI||'20010902'x
if ~show('L','rxgen.library') then call addlib('rxgen.library',0,-30,0)
/* have fun with user defined alert */
/* this should appear GREEN under 2.0 */
Alert=0
AlertString1='0065 0A'x||"Yoho here is the Guru !"||'00'x
AlertString2='0065 14'x||"Don't you laugh at me !"||'00'x
call GenOpenLib("intuition",0)
call GenACall("intuition","DisplayAlert",Alert,AlertString1 AlertString2,40)
call GenCloseLib("intuition")