home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / arexx / moos / demos / rexx_intuition.rexx < prev    next >
OS/2 REXX Batch file  |  1997-03-25  |  2KB  |  80 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.  *    SetPubScreen()
  13.  */
  14. CALL print(4,'#',"SetPubScreen(options)")
  15.  
  16. CALL print(20,'-','SetPubScreen("Modes")')
  17. SAY SetPubScreen("Modes")
  18.  
  19.                                                                               
  20. /*
  21.  *    GetPubScreen()
  22.  */
  23. CALL print(4,'#',"GetPubScreen(options)")
  24.  
  25. CALL print(20,'-','GetPubScreen()')
  26. SAY GetPubScreen()
  27.  
  28. CALL print(20,'-','GetPubScreen("pubs.*")')
  29. CALL GetPubScreen('pubs.*')
  30. DO n = 1 FOR pubs.0
  31.     SAY "screen" n "==" pubs.n
  32. END
  33.  
  34. DROP pubs.
  35.  
  36.                                                                               
  37. /*
  38.  *    WBenchScreen()
  39.  */
  40. CALL print(4,'#',"WBenchScreen(options)")
  41.  
  42. CALL print(20,'-','WBenchScreen("C")')
  43. IF WBenchScreen('C') THEN
  44.     SAY "WorkBench screen closed..."
  45. ELSE SAY "Can't close WorkBench's screen..."
  46.  
  47. CALL print(20,'-','WBenchScreen("O")')
  48. IF WBenchScreen('O') THEN
  49.     SAY "WorkBench screen reopened..."
  50.  
  51. CALL print(20,'-','WBenchScreen("B")')
  52. IF WBenchScreen('B') THEN
  53.     SAY "WorkBench screen sent to back..."
  54.  
  55. CALL print(20,'-','WBenchScreen("F")')
  56. IF WBenchScreen('F') THEN
  57.     SAY "WorkBench screen brought to front..."
  58.  
  59.                                                                               
  60. /*
  61.  *    Beep()
  62.  */
  63. CALL print(4,'#',"Beep()")
  64.  
  65. CALL print(20,'-','Beep()')
  66. CALL Beep()
  67.  
  68.                                                                               
  69.  
  70. ADDRESS COMMAND 'Wait' 2
  71.  
  72. SAY
  73. EXIT 0
  74.  
  75. print: PROCEDURE
  76.     PARSE ARG pos,char,str
  77.     IF char = '#' THEN SAY '0a0a'x
  78.     SAY COPIES(char,pos) || OVERLAY(" "str" ",COPIES(char,78 - pos))
  79.     RETURN
  80.