home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1995 November / PCWK1195.iso / inne / podstawy / dos / 4dos / 4uzytki / 4dtnt.exe / AUTOEXEC.ZIP / AUTOEXEC.BAT next >
DOS Batch File  |  1991-11-03  |  3KB  |  136 lines
  1. @echo off
  2. rem pause
  3.  
  4. set bootd=%[_boot]:
  5. set drp=%bootd%\DRIVERS\
  6.  
  7. gosub setramd
  8. gosub cdpath
  9.  
  10. set csize=%@eval[%@ems[k]-512]
  11. if %csize gt 2048 set csize=2048
  12.  if %csize gt 512 %drp%loadhi  %drp%adcache -w0.2 -e%csize
  13. unset csize
  14.  
  15. if %@name[%_dosver] lt 5 %drp%loadhi  %drp%buffers +3
  16. %drp%loadhi  %drp%files +80
  17. %drp%loadhi  %drp%fcbs +20,2
  18.  
  19. gosub uvsetup
  20.  
  21. %drp%loadhi  %drp%uvreset
  22. %drp%loadhi  %drp%4dos24h
  23. %drp%loadhi  c:\dos\mode lpt1,,b 
  24. %drp%loadhi  %drp%dmp /NV /G+ /MXP /D%ramd%
  25. %drp%loadhi  %drp%kstack.com
  26. %drp%loadhi  %bootd%\dos\trakball dos
  27.  
  28. loadbtm on
  29.  
  30. %ramd%
  31. copy %bootd%\ramdisk\*.* %ramd% >& NUL
  32. set compath=%@path[%comspec%]
  33.  
  34. iff "%_4ver" ne "" then
  35.  copy %compath%\copylib\*.* %ramd% >& NUL
  36.  set comspec=%ramd%\4DOS.COM
  37. endiff
  38.  
  39. iff %_ansi == 0 then
  40.  prompt $P$g
  41. else
  42.  prompt $e[37;44m$P$g
  43. endiff
  44.  
  45. set temp4dos=%ramd%
  46. set temp=%ramd%
  47. set tmp=%ramd%
  48. set pktmp=%ramd%
  49.  
  50. iff exist %compath%4dos286.exe then
  51.  path %ramd%\;%bootd%\dos
  52. else
  53.  path %ramd%\;.;%bootd%\dos
  54. endiff
  55.  
  56. if "%_4ver" eq "" set 4dshell=/u /s:b%ramd%\ /e+256u
  57.  
  58. unalias *
  59.  
  60. iff %@name[%_dosver] ge 5 then
  61.  
  62.   alias /R %compath%aliases.500
  63.  else
  64.   alias /R %compath%aliases
  65. endiff
  66.  
  67. rem toggle n > NUL
  68. fastatkb 00
  69. unset compath
  70.  
  71. inkey /W15 Are you there? %%x
  72. iff "%x" ne "" then
  73.  keystack "%x"
  74.  unset x
  75.  goto exit
  76. else
  77.  dazzle
  78.  goto exit
  79. endiff
  80.  
  81. goto exit
  82. :exit
  83. quit
  84. rem
  85. rem **********************************************************************
  86. rem *                     COMMON SUBROUTINES                             *
  87. rem **********************************************************************
  88. rem
  89. rem                        SET UP ULTRAVISION
  90. rem
  91. :uvsetup
  92. %drp%loadhi  g:\uv\uv.com
  93. %drp%loadhi  g:\uv\prtsc.com
  94. set uv=%ramd%
  95. return
  96. rem
  97. rem                     FIND RAMDISK AND SETRAMD
  98. rem
  99. :setramd
  100. set work=ZYXWVUTSRQPONMLKJIHGFEDC
  101. set count=0
  102. :ramdloop
  103. set foo=%@substr[%work,%count,1]:
  104. iff %@ready[%foo] == 1 .and. %@removable[%foo] == 0 .and. %@remote[%foo] == 0 then
  105.   set ramd=%foo
  106.   unset work count foo
  107.   goto ramdexit
  108.  else
  109.   set count=%@eval[%count+1]
  110. endiff
  111. iff %count lt 24 then 
  112.  goto ramdloop
  113. else
  114.  set ramd=%_boot\ramdisk
  115.  unset count work foo
  116.  goto ramdexit
  117. endiff
  118. :ramdexit
  119. return
  120. rem
  121. rem                           SET CDPATH
  122. rem
  123. :cdpath
  124. set work=CDEFGHIJKLMNOPQRSTUVWXYZ
  125. set count=1
  126. set cdpath=C:\
  127. :cdloop
  128. set d=%@substr[%work,%count,1]:
  129. if %d gt %[_lastdisk]: goto cdexit
  130. if %@eval[%@ready[%d]+%@removable[%d]] gt 0 set cdpath=%[cdpath];%d\
  131. set count=%@eval[%count+1]
  132. goto cdloop
  133. :cdexit
  134. unset work count d
  135. return
  136.