home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 8 / CDASC08.ISO / VRAC / 4D_LOAD.ZIP / 4D.BAT < prev    next >
Encoding:
DOS Batch File  |  1993-06-15  |  916 b   |  44 lines
  1. @echo off
  2. if %1.==FromWin. goto LoadWin
  3. if "%@eval[2+2]" == "4" SetErLev 0
  4. if not "%@eval[2+2]" == "4" SetErLev 1
  5. if not ErrorLevel 1 goto Loaded
  6. goto Load
  7.  
  8. :Loaded
  9. echo Current shell is 4DOS.
  10. ready Do you want to invoke a secondary 4DOS shell (Y/N)? \060Y\062: /a:nNyY /a:13 /a:32
  11. if not ErrorLevel 3 goto END
  12. goto Load
  13.  
  14. :Load
  15. if %1.==FromWin. goto LoadWin
  16. echo Loading 4DOS ...
  17. c:\4dos\4dos %1 %2 %3 %4 %5 %6 %7 %8 %9
  18. 4dosOn
  19. if ErrorLevel 255 goto 1st
  20. if not "%@eval[2+2]" == "4" goto 1st
  21.  
  22. echo 4Dos Shell %[_Shell]
  23. goto END
  24.  
  25. :LoadWin
  26. MODE co80
  27. echo.
  28. echo.
  29. echo 4DOS/Windows shell ...
  30. fast
  31. c:\4dos\4dos
  32. echo 4Dos - returning to Windows ...
  33. Ready Close 4DOS task (Y/N)? \060Y\062: /a:nNyY /a:13 /a:32
  34. if not ErrorLevel 3 4d FromWin
  35. goto END
  36.  
  37. :1st
  38. echo Exited to %comspec%
  39. Ready Reload 4DOS shell (Y/N)? \060Y\062: /a:nNyY /a:13 /a:32
  40. if not ErrorLevel 3 goto END
  41. 4d
  42.  
  43. :END
  44.