home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD2.mdf / doc / intlist / folio / os2folio / sample.cmd < prev    next >
Encoding:
Text File  |  1993-10-13  |  395 b   |  12 lines
  1. /* Rexx command file for StartDos (comment mandatory on first line!) */ 
  2.  parse arg szCommandComArgs 
  3.  if 'STARTDOS' <> address()  then do 
  4.    say 'Expected STARTDOS environment' 
  5.    return 2 
  6.  end 
  7.  rc = AddDosSetting( 'DPMI_MEMORY_LIMIT=8' ) 
  8.  rc = AddDosSetting( 'DOS_HIGH=ON'  ) 
  9. /* override the default and start the session in a PM window */ 
  10.  rc = StartWindowed() 
  11.  return 0 
  12.