home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1995 November / PCWK1195.iso / inne / podstawy / dos / 4dos / 4uzytki / ez-btm11.exe / COPYCOM.BTM < prev    next >
Text File  |  1994-02-02  |  2KB  |  58 lines
  1. : COPYCOM.BTM
  2. : (Itamar Even-Zohar, Tel Aviv U., itamarez@plato.tau.ac.il)
  3. :   COPYCOM.BTM handles copying of MS-DOS original
  4. :   COMMAND.COM to diskettes formatted with /s in 4DOS, if you
  5. :   had to have 4DOS.COM under the name COMMAND.COM for misbehaved
  6. :   programs like XyWrite anf Nota Bene. The original COMMAND.COM
  7. :   must be kept in your ROOT directory under the name COMMAND.OLD, or
  8. :   if you use multiple configuration, in a subdirectory called
  9. :   MSDOS.
  10. :   You can run this batch independently, after you have formatted
  11. :   a diskette, or it will run from the FORMAT.BTM menu automatically,
  12. :   if you selected first option "A" for "formatting with system".
  13. :
  14. if "%1" == "" (echo.^echo USAGE: COPYCOM d:^quit)
  15. setlocal
  16. alias quix `endlocal^set fail=^quit`
  17.  
  18. inkey /K"YN" Transfer original COMMAND.COM to %@upper[%1] (Y/N)? %%user
  19. if %user=Y goto check
  20. if %user=N Echo canceled ^ quix^
  21.  
  22. :  If the target diskette is formatted, this batch will copy MS-DOS
  23. :  COMMAND.COM to it (it goes to label "copcom"). Otherwise, you will
  24. :  get the message: "Diskette has no systen. Format first!"
  25.  
  26. :check
  27. iff exist %1IBM*.COM .or. exist %1IO.SYS then
  28.  goto copcom^
  29. else
  30.  echo Diskette %@upper[%1] has no system. Format (or transfer system) first!^ quix
  31. endiff
  32.  
  33. :  If this batch is run as a secondary batch from FORMAT.BTM, and
  34. :  you canceled formatting at the level of that batch (by pressing '0', or
  35. :  CTRL-C after selection of an option), you will get a "formatting canceled"
  36. :  message.
  37.  
  38. :copcom
  39. set comm=%_boot:\command.old
  40. if exist %_boot:\msdos\command.com (set comm=%_boot:\msdos\\command.com^goto check2)
  41. if not exist \command.old (echo.^echo Original COMMAND.COM not found!^echo   (should be in ROOT under name COMMAND.OLD)^quix)
  42.  
  43. if not exist %1command.com goto copy
  44.  
  45. :check2
  46. iff exist %1command.com .and. %@filesize[%1command.com,b] lt 60000 then
  47. echo !!The original COMMAND.COM already exists on %1!!
  48. @dir %1
  49. quix
  50.  endiff
  51.  
  52. :copy
  53. echo.
  54. echo Copying now MS-DOS original COMMAND.COM!
  55. copy %comm %1command.com
  56. @dir %1
  57. quix
  58.