home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / arexx / moos / demos / rexx_exec.rexx < prev    next >
OS/2 REXX Batch file  |  1997-03-18  |  2KB  |  78 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.  *    ReBoot()
  13.  */
  14. CALL print(4,'#',"ReBoot()")
  15.  
  16. CALL print(20,'-','ReBoot()')
  17. SAY "Do you really want to reset your system?"
  18. SAY "Use CTRL-Amiga-Amiga... :-)"
  19. /* CALL ReBoot() */
  20.  
  21.                                                                               
  22. /*
  23.  *    GetSysBase()
  24.  */
  25. CALL print(4,'#',"GetSysBase(options)")
  26.  
  27. CALL print(20,'-','GetSysBase("sys.")')
  28. CALL GetSysBase("sys.")
  29. SAY "sys.ColdCapture  ==" sys.ColdCapture
  30. SAY "sys.CoolCapture  ==" sys.CoolCapture
  31. SAY "sys.WarmCapture  ==" sys.WarmCapture
  32. SAY "sys.KickMemPtr   ==" sys.KickMemPtr
  33. SAY "sys.KickTagPtr   ==" sys.KickTagPtr
  34. SAY "sys.KickCheckSum ==" sys.KickCheckSum
  35. SAY "sys.ThisTask     ==" sys.ThisTask
  36. SAY "sys.SysCPU       ==" sys.SysCPU
  37. SAY "sys.SysFPU       ==" sys.SysFPU
  38.  
  39. DROP sys.
  40.  
  41.                                                                               
  42. /*
  43.  *    FlushMem()
  44.  */
  45. CALL print(4,'#',"FlushMem(options)")
  46.  
  47. CALL print(20,'-','FlushMem()')
  48. CALL FlushMem()
  49.  
  50.                                                                               
  51. /*
  52.  *    AvailMem()
  53.  */
  54. CALL print(4,'#',"AvailMem(options)")
  55.  
  56. CALL print(20,'-','AvailMem("mem.")')
  57. CALL AvailMem("mem.")
  58. SAY "mem.Mem_Any      ==" mem.Mem_Any
  59. SAY "mem.Mem_Public   ==" mem.Mem_Public
  60. SAY "mem.Mem_Chip     ==" mem.Mem_Chip
  61. SAY "mem.Mem_Fast     ==" mem.Mem_Fast
  62. SAY "mem.Mem_Local    ==" mem.Mem_Local
  63. SAY "mem.Mem_24bitdma ==" mem.Mem_24bitdma
  64. SAY "mem.Mem_Kick     ==" mem.Mem_Kick
  65.  
  66.                                                                               
  67.  
  68. ADDRESS COMMAND 'Wait' 2
  69.  
  70. SAY
  71. EXIT 0
  72.  
  73. print: PROCEDURE
  74.     PARSE ARG pos,char,str
  75.     IF char = '#' THEN SAY '0a0a'x
  76.     SAY COPIES(char,pos) || OVERLAY(" "str" ",COPIES(char,78 - pos))
  77.     RETURN
  78.