home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 (Alt) / MACD 5.bin / workbench / libs / rexmooslib.lha / MOOS / Tests / rexx_exec.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1997-02-03  |  1.3 KB  |  58 lines
  1. /*
  2.  * rexx_dos.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.  *    FlushMem()
  24.  */
  25. CALL print(4,'#',"FlushMem(options)")
  26.  
  27. CALL print(20,'-','FlushMem()')
  28. CALL FlushMem()
  29.  
  30.                                                                               
  31. /*
  32.  *    AvailMem()
  33.  */
  34. CALL print(4,'#',"AvailMem(options)")
  35.  
  36. CALL print(20,'-','AvailMem("mem.")')
  37. CALL AvailMem("mem.")
  38. SAY "mem.Mem_Any      ==" mem.Mem_Any
  39. SAY "mem.Mem_Public   ==" mem.Mem_Public
  40. SAY "mem.Mem_Chip     ==" mem.Mem_Chip
  41. SAY "mem.Mem_Fast     ==" mem.Mem_Fast
  42. SAY "mem.Mem_Local    ==" mem.Mem_Local
  43. SAY "mem.Mem_24bitdma ==" mem.Mem_24bitdma
  44. SAY "mem.Mem_Kick     ==" mem.Mem_Kick
  45.  
  46.                                                                               
  47.  
  48. ADDRESS COMMAND 'Wait' 2
  49.  
  50. SAY
  51. EXIT 0
  52.  
  53. print: PROCEDURE
  54.     PARSE ARG pos,char,str
  55.     IF char = '#' THEN SAY '0a0a'x
  56.     SAY COPIES(char,pos) || OVERLAY(" "str" ",COPIES(char,78 - pos))
  57.     RETURN
  58.