home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a016 / 1.ddi / CLP / SWAPDEMO.PRG < prev    next >
Encoding:
Text File  |  1992-03-15  |  2.1 KB  |  67 lines
  1. *****************************************************************************
  2. * Blinker 2.0 swap function demo
  3. *
  4. * Clipper S'87 / 5.01
  5. *
  6. * Compile: Clipper swapdemo -m
  7. *
  8. *****************************************************************************
  9.  
  10. enable  = .t.
  11. disable = .f.
  12.  
  13.   ? "Clipper Swap example"
  14.   ? "===================="
  15.   ?
  16.   ? "Swap defaults      "
  17.   ?
  18.   ? "Use EMS memory                  : ",SWPUSEEMS(disable)
  19.   ? "Use XMS memory                  : ",SWPUSEXMS(disable)
  20.   ? "Use UMBs                        : ",SWPUSEUMB(disable)
  21.   ? "Save/restore video mode         : ",SWPVIDMDE(disable)
  22.   ? "Save/restore directory          : ",SWPCURDIR(disable)
  23.   ? "Display message                 : ",SWPDISMSG(disable)
  24.   ? "Wait for keypress               : ",SWPGETKEY(disable)
  25.   ? "Suppress <Ctrl><Alt><Del>       : ",SWPNOBOOT(disable)
  26.   ?
  27.  
  28.   ? "Program already running?        : ",SWPGETPID("swapdemo.prg")
  29.   ? "Set program ID to swapdemo.prg  : ",SWPSETPID("swapdemo.prg")
  30.   ?
  31.  
  32.   * enable ems / xms / umbs
  33.  
  34.   i = SWPUSEEMS(enable)
  35.   i = SWPUSEXMS(enable)
  36.   i = SWPUSEUMB(enable)
  37.  
  38.   * save / restore current directory and video mode
  39.   * video buffer contents are not saved
  40.  
  41.   i = SWPCURDIR(enable)
  42.   i = SWPVIDMDE(enable)
  43.  
  44.   if ! SWPGETPID("swapdemo.prg")
  45.      * if we're not running already
  46.  
  47.      ? "Shelling to DOS..."
  48.      ? "Run swapdemo again to see BLIGETPID."
  49.      ? "-------------------------------------------------------------------------"
  50.  
  51.      * status = SWPRUNCMD(ChildProg, Memory, Shell Directory, Temporary directory)
  52.  
  53.      i = SWPRUNCMD( "", 0, "", "")
  54.  
  55.      ? "-------------------------------------------------------------------------"
  56.      ? "Back from shell, status is      : ",i
  57.      ? "Major error code is             : ",SWPERRMAJ()
  58.      ? "Minor error code is             : ",SWPERRMIN()
  59.      ? "Child process return code was   : ",SWPERRLEV()
  60.  
  61.   else
  62.      * we're already running, terminate the program
  63.      ? "Terminating (swapdemo.prg already executing)"
  64.      ? "Type EXIT to return to previous swapdemo.prg"
  65.   endif
  66.  
  67.