home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 8 / FreshFishVol8-CD2.bin / bbs / dev / oberon-a-1.4ß.lha / Oberon-A / rexx / DoRun.rexx < prev    next >
OS/2 REXX Batch file  |  1994-08-08  |  544b  |  21 lines
  1. /* DoRun - run an Oberon program, with stdio set up */
  2.  
  3. options results
  4.  
  5. if ~show('L','rexxsupport.library') then
  6.    call addlib('rexxsupport.library',0,-30)
  7. if ~show('L','RexxDosSupport.library') then
  8.    call addlib('RexxDosSupport.library',0,-30)
  9.  
  10. parse arg program screenname
  11.  
  12. call close 'STDERR'
  13. call open 'STDERR','NIL:','W'
  14. call close 'STDIN'
  15. call close 'STDOUT'
  16. call open 'STDOUT','CON:10/25/540/165/Running.../CLOSE/WAIT/AUTO/SCREEN'||screenname,'RW'
  17. call pragma '*','STDOUT'
  18. call pragma 'Stack', 10000
  19.  
  20. address command program '>* <*'
  21.