home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / cenvi23.zip / ALTHOME.CMD < prev    next >
OS/2 REXX Batch file  |  1995-10-11  |  1KB  |  40 lines
  1. @echo off
  2. REM ******************************************************************
  3. REM *** AltHome.cmd - Switch between full-screen OS/2 session and  ***
  4. REM *** ver.1         Windowed OS/2 session, similar to the way    ***
  5. REM ***               the Alt-Home key combination switches in DOS ***
  6. REM ******************************************************************
  7.  
  8. IF "%1"=="CALLING_MYSELF" GOTO CALLING_MYSELF
  9. CEnvi2 %0.cmd %1 %2 %3 %4 %5 %6 %7 %8 %9
  10. GOTO CENVI_EXIT
  11.  
  12. #include <DosCalls.lib>
  13.  
  14. #define SESSION_WINDOWABLEVIO 2
  15.  
  16. NowWindowed = ( SESSION_WINDOWABLEVIO == GetSessionType() );
  17. SCREEN_WIDTH = ScreenSize().col;
  18. SCREEN_HEIGHT = ScreenSize().row;
  19.  
  20. system("START /F %s AltHome.cmd CALLING_MYSELF",
  21.        NowWindowed ? "/FS" : "/WIN" );
  22.  
  23. GetSessionType()  // return the type of this session
  24. {
  25.    DosGetInfoBlocks(tInfo,pInfo);
  26.    return peek(pInfo + (6 * 4),UWORD32);
  27. }
  28.  
  29. :CENVI_EXIT
  30. EXIT
  31.  
  32.  
  33. :CALLING_MYSELF
  34. echo on
  35. MODE %SCREEN_WIDTH%,%SCREEN_HEIGHT%
  36. @echo off
  37. cls
  38. SET SCREEN_WIDTH=
  39. SET SCREEN_HEIGHT=
  40.