home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga MA Magazine 1998 #6
/
amigamamagazinepolishissue1998.iso
/
coders
/
arexx
/
moos
/
demos
/
rexx_asl.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1997-03-25
|
2KB
|
87 lines
/*
* rexx_[SUB].library
*
* Test file...
*/
OPTIONS RESULTS
lib = 'rexxMOOS.library'; IF ~SHOW('L',lib) THEN CALL ADDLIB(lib,100,-30)
/*
* AslFileReq()
*/
CALL print(4,'#',"AslFileReq(file,dir,options)")
CALL print(20,'-','AslFileReq()')
SAY AslFileReq()
CALL print(20,'-','AslFileReq(,,"Stem req.* Multi")')
IF AslFileReq(,,"Stem req.* Multi") THEN DO
SAY "req.FileName ==" req.FileName
SAY "req.Drawer ==" req.Drawer
SAY "req.Pattern ==" req.Pattern
DO n = 1 FOR req.0
SAY "req."n "==" req.n
END
END
DROP req.
/*
* AslFontReq()
*/
CALL print(4,'#',"AslFontReq(options)")
CALL print(20,'-','AslFontReq()')
SAY AslFontReq()
CALL print(20,'-','AslFontReq("Stem fo.")')
IF AslFontReq("Stem fo.") THEN DO
SAY "fo.Name ==" fo.Name
SAY "fo.YSize ==" fo.YSize
SAY "fo.Style ==" fo.Style
SAY "fo.Flags ==" fo.Flags
SAY "fo.FrontPen ==" fo.FrontPen
SAY "fo.BackPen ==" fo.BackPen
SAY "fo.DrawMode ==" fo.DrawMode
END
DROP fo.
/*
* AslScreenReq()
*/
CALL print(4,'#',"AslScreenReq(options)")
CALL print(20,'-','AslScreenReq()')
SAY AslScreenReq()
opts = "Stem sm. WidthGad HeightGad"
CALL print(20,'-','AslScreenReq("'opts'")')
IF AslScreenReq(opts) THEN DO
SAY "sm.DisplayID ==" sm.DisplayID
SAY "sm.DisplayWidth ==" sm.DisplayWidth
SAY "sm.DisplayHeight ==" sm.DisplayHeight
SAY "sm.DisplayDepth ==" sm.DisplayDepth
SAY "sm.OverscanType ==" sm.OverscanType
SAY "sm.AutoScroll ==" sm.AutoScroll
END
DROP sm.
ADDRESS COMMAND 'Wait' 2
SAY
EXIT 0
print: PROCEDURE
PARSE ARG pos,char,str
IF char = '#' THEN SAY '0a0a'x
SAY COPIES(char,pos) || OVERLAY(" "str" ",COPIES(char,78 - pos))
RETURN