home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 17 / CD_ASCQ_17_101194.iso / vrac / 4btmutil.zip / 4START.BTM < prev    next >
Text File  |  1994-06-08  |  3KB  |  110 lines
  1. @echo off
  2. LoadBTM on
  3. set dospath=%@PATH[ %COMSPEC ]
  4. set CDPATH=c:\cserve;d:\win
  5. echo %0 %1 %2 %3 %4 %5 %6 %7 %8 %9 CurrentDir [%_CWD] Shell(%_shell)
  6.  
  7. set .zip=pkunzip
  8.  
  9. if %_shell gt 0 goto secondary
  10.  
  11. set path=%dospath%;c:\dos
  12. call %dospath%onceaday `scandisk /autofix /nosummary /nosave /all`
  13. call %dospath%onceamth `defrag c: /f /h^defrag d: /f /h^msav c: d: /c /r`
  14. call %dospath%onceawek `defrag c: /u /h^defrag d: /u /h^msav c: d: /c /r`
  15.  
  16. :if "%@search[find]"=="" set path=c:\dos;%path%
  17.  
  18. iff %@diskfree[%_boot:,m] lt 1 then
  19.     del c:\temp\*.* /sqxp
  20. endiff
  21.  
  22. c:\dos\mem /d | c:\dos\find "SRDISK" | set CMDLINE=%@line[con,0]
  23. iff not "%CMDLINE"=="**EOF**" then
  24.    set size=0
  25.    input Enter RAM Disk size in KB? %%size
  26.    c:\bin\srdisk Z: %size
  27.    unset size
  28. endiff
  29. c:\dos\mem /d | c:\dos\find "STACKER" | set CMDLINE=%@line[con,0]
  30. iff not "%CMDLINE"=="**EOF**" then
  31.    C:\STACKER\CHECK /WP
  32. endiff
  33.  
  34. iff exist %dospath%aliases.dat .and. %@date[%@filedate[%dospath%aliases.dat]] ge %@date[%@filedate[%0.btm]] .and. %@time[%@filetime[%dospath%aliases.dat]] ge %@time[%@filetime[%0.btm]] then
  35.    alias /r %dospath%aliases.dat
  36. else
  37.    alias search=`for %i in (%&) echo %@search[%i]`
  38.    alias ?=`iff "%&"=="" then *?^else^@echo %@eval[%&]^endiff`
  39.    alias park=`smartdrv/c^pause Power Off System`
  40.    alias dos=`set oldcomspec=%comspec^set comspec=command.com^command /c %&^set comspec=%oldcomspec^unset oldcomspec`
  41.    alias pk*zip=`*pkzip -o -bd: %&`
  42.    alias zipzip=`except (*.zip) pkzip -z %@date[%_date]%@time[%_time]`
  43.    alias zipsrc=`zipzip *.c *.h *.def *.mak *.rc *.dlg *.cpp %&`
  44.    alias zipvb=`zipzip *.frm *.frx *.mak *.bas *.ico *.hlp *.bmp %&`
  45.    alias wh*ereis=`dir /sbfp`
  46.    alias del*ete=`*del`
  47.    alias save=`4exit.btm`
  48.    rem UNIX commands emulator
  49.    alias pg=list /s
  50.    alias ls=dir /t
  51.    alias cp=copy
  52.    alias mv=move
  53.    alias > %dospath%aliases.dat
  54. endiff
  55. alias @alt-f1=@c:\dos\doshelp%@char[13]
  56. alias @alt-s =@4exit%@char[13]
  57.  
  58. iff not "%Config%" == "Games" then
  59.   set win=y^inkey /W5 Load WFW? (y/n) %win: %%win
  60. endiff
  61.  
  62. iff %_ANSI gt 0 then
  63.     prompt $e[s$e[1;1f$e[0;45;37;1m$e[K($z)  $d  $t$e[u$e[0;44;36;1m$p$g
  64. else
  65.     prompt $p$g
  66. endiff
  67. set colordir=bat exe com btm:yellow
  68. cls cyan on blue border bright cyan
  69.  
  70. if exist %dospath%4winhist history /r %dospath%4winhist
  71. if exist %dospath%4wincwd cdd %@line[%dospath%4wincwd, 0]
  72.  
  73. quit
  74.  
  75. :secondary
  76. if exist %dospath%4winhist history /r %dospath%4winhist
  77. if exist %dospath%4wincwd cdd %@line[%dospath%4wincwd, 0]
  78. alias @alt-x =@exit%@char[13]
  79.  
  80. call env
  81. if %_win gt 0 goto in_windows
  82.  
  83. quit
  84.  
  85. :in_windows
  86. alias @alt-f4=@exit%@char[13]
  87. (edos | if %@lines[con] gt 1 etitle "EDOS/4DOS %_4ver (%_shell)") >& nul
  88. ver | set winver=%@line[con,0]
  89. ver | set dosver=%@line[con,1]
  90. if "%dosver"="**EOF**" set dosver=MSDOS %_dosver
  91.  
  92. iff ".%winver" == "." then
  93.         iff %_win == 1 then
  94.            set winver=Windows 2.x
  95.         elseiff %_win == 2 then
  96.            set winver=Windows 386 Enhanced Mode
  97.         elseiff %_win == 3 then
  98.            set winver=Windows 3.x Real or Standard Mode
  99.         elseiff %_win == 20 then
  100.            set winver=OS/2 2.0 DOS Box
  101.         endiff
  102. endiff
  103.  
  104. set prompt=%dosver Running under %winver%$_$p$g
  105. iff exist %dospath%aliases.dat then
  106.    alias /r %dospath%aliases.dat
  107. endiff
  108. quit
  109.  
  110.