home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / arexx / moos / demos / rexx_asl.rexx < prev    next >
OS/2 REXX Batch file  |  1997-03-25  |  2KB  |  87 lines

  1. /*
  2.  * rexx_[SUB].library
  3.  *
  4.  * Test file...
  5.  */
  6.  
  7. OPTIONS RESULTS
  8. lib = 'rexxMOOS.library'; IF ~SHOW('L',lib) THEN CALL ADDLIB(lib,100,-30)
  9.  
  10.                                                                               
  11. /*
  12.  *    AslFileReq()
  13.  */
  14. CALL print(4,'#',"AslFileReq(file,dir,options)")
  15.  
  16. CALL print(20,'-','AslFileReq()')
  17. SAY AslFileReq()
  18.  
  19. CALL print(20,'-','AslFileReq(,,"Stem req.* Multi")')
  20. IF AslFileReq(,,"Stem req.* Multi") THEN DO
  21.     SAY "req.FileName ==" req.FileName
  22.     SAY "req.Drawer   ==" req.Drawer
  23.     SAY "req.Pattern  ==" req.Pattern
  24.     DO n = 1 FOR req.0
  25.         SAY "req."n "==" req.n
  26.     END
  27. END
  28.  
  29. DROP req.
  30.  
  31.  
  32. /*
  33.  *    AslFontReq()
  34.  */
  35. CALL print(4,'#',"AslFontReq(options)")
  36.  
  37. CALL print(20,'-','AslFontReq()')
  38. SAY AslFontReq()
  39.  
  40. CALL print(20,'-','AslFontReq("Stem fo.")')
  41. IF AslFontReq("Stem fo.") THEN DO
  42.     SAY "fo.Name     ==" fo.Name
  43.     SAY "fo.YSize    ==" fo.YSize
  44.     SAY "fo.Style    ==" fo.Style
  45.     SAY "fo.Flags    ==" fo.Flags
  46.     SAY "fo.FrontPen ==" fo.FrontPen
  47.     SAY "fo.BackPen  ==" fo.BackPen
  48.     SAY "fo.DrawMode ==" fo.DrawMode
  49. END
  50.  
  51. DROP fo.
  52.  
  53.  
  54. /*
  55.  *    AslScreenReq()
  56.  */
  57. CALL print(4,'#',"AslScreenReq(options)")
  58.  
  59. CALL print(20,'-','AslScreenReq()')
  60. SAY AslScreenReq()
  61.  
  62. opts = "Stem sm. WidthGad HeightGad"
  63. CALL print(20,'-','AslScreenReq("'opts'")')
  64. IF AslScreenReq(opts) THEN DO
  65.     SAY "sm.DisplayID     ==" sm.DisplayID
  66.     SAY "sm.DisplayWidth  ==" sm.DisplayWidth
  67.     SAY "sm.DisplayHeight ==" sm.DisplayHeight
  68.     SAY "sm.DisplayDepth  ==" sm.DisplayDepth
  69.     SAY "sm.OverscanType  ==" sm.OverscanType
  70.     SAY "sm.AutoScroll    ==" sm.AutoScroll
  71. END
  72.  
  73. DROP sm.
  74.  
  75.                                                                               
  76.  
  77. ADDRESS COMMAND 'Wait' 2
  78.  
  79. SAY
  80. EXIT 0
  81.  
  82. print: PROCEDURE
  83.     PARSE ARG pos,char,str
  84.     IF char = '#' THEN SAY '0a0a'x
  85.     SAY COPIES(char,pos) || OVERLAY(" "str" ",COPIES(char,78 - pos))
  86.     RETURN
  87.