home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1995 November / PCWK1195.iso / inne / podstawy / dos / 4dos / 4uzytki / ez-btm11.exe / FORMAT1.BTM < prev    next >
Encoding:
Text File  |  1994-02-02  |  3.7 KB  |  116 lines
  1. : FORMAT1.BTM
  2. :      Allows formatting for various diskette sizes, based on
  3. :      Ray Tackett's 4MENU.BTM, included in SAMPLES.BTM (in the
  4. :      4DOS package. If you had to copy 4DOS.COM as COMMAND.COM for
  5. :      misbehaving programs, you must also have COPYCOM.BTM accessible.
  6. :      (Itamar Even-Zohar, Porter Chair, Tel Aviv U.,
  7. :      itamarez@plato.tau.ac.il)
  8. ::===> THIS VERSION handles computers with ONE FLOPPY DRIVE (3½).
  9. setlocal
  10. cls
  11. :      If there are less than 300 bytes for aliases, save current aliases
  12. :      to a file called ABBR on the last available disk (if a RAM drive
  13. :      exists, then ABBR will be created on that drive), then unload all
  14. :      current aliases.
  15. if .%temp==. call settemp
  16. iff %@eval[%_alias] lt 300 then
  17.     alias >%temp\abbr
  18.     unalias *
  19. endiff
  20. :      Set the drives for 3½ and 5¼ diskettes (which may be defined
  21. :      differently on different machines).
  22. :      ATTENTION! B: is a 3½ drive; A: is a 5¼ drive. Change if it is
  23. :      otherwise in your system.
  24. set disk3=A:
  25. set disk5=A:
  26. :      Define several aliases which will be used several times in the
  27. :      remainder of this batch file.
  28. alias choice `elseiff "%userchoice" == "%1" then`
  29. alias ech `echo. ^ echo **Formatting:`
  30. :      if a file 'ABBR' was created, erase it
  31. alias quix `iff exist %temp\abbr then^unalias *^alias /R %temp\abbr^del /q %temp\abbr^endlocal^else^endlocal^quit^endiff ^quit`
  32. alias fix `goto fix`
  33.  
  34. cls
  35. :formattype
  36. screen 6 0
  37. text
  38.  Enter format type:
  39.     0. exit
  40.     1. Format unconditionally ("format /u")
  41.     2. Save unformat information (DOS default)
  42. endtext
  43. screen 11 2
  44. inkey /K"0[esc]12" Which option? %%userchoice
  45.     iff "%userchoice"=="0" .or. %userchoice==%@char[27] then
  46.       echo (Operation canceled)^quix
  47.     choice 1
  48.       set format=format /u
  49.     rem        ^^^^^^^ (change if you opted for a different solution)
  50.     choice 2
  51.       set format=format
  52.     rem        ^^^^^^^ (change if you opted for a different solution)
  53. endiff
  54. :
  55. cls
  56. :dispmenu
  57. screen 6 0
  58. text
  59.  
  60.  Enter your choice:
  61.  
  62.     0. EXIT
  63.     S. Format diskette with system
  64.        ───────────────────────────
  65.     1. Format a 3½ diskette of 720  K
  66.     2. Format a 3½ diskette of 1.44 M
  67.  
  68. endtext
  69. :selection
  70. inkey /K"0[esc]1234s" Which option / further option? %%userchoice
  71.      iff "%userchoice"=="0" .or. %userchoice==%@char[27] then
  72.       echo (Operation canceled)^quix
  73.      choice S set 1=/s ^ set trans=on ^goto selection
  74.      choice 1 set disk=%disk3
  75.         ech 720 in 1.44M Drive %disk
  76.         %format %disk /n:9 /t:80 %1 
  77.         gosub fix
  78.         quix
  79.      choice 2 set disk=%disk3
  80.         ech 1.44M in Drive %disk
  81.         %format %Disk %1
  82.         gosub fix
  83.         quix
  84.      choice 3 set disk=%disk5
  85.         ech 362 in 1.2M Drive %disk
  86.         %format %Disk/4 %1
  87.         gosub fix
  88.         quix
  89.      choice 4 set disk=%disk5
  90.         ech 1.2 in Drive %disk
  91.         %format %Disk %1
  92.         gosub fix
  93.         quix
  94. else
  95. :      (The user entered an invalid option)
  96.   scrput 23 0 bri whi on red Invalid choice, try again
  97. endiff
  98. :      Loop back to the beginning
  99. goto dispmenu
  100.  
  101. :fix
  102. :      This "fix" runs a batch file to handle copying of MS-DOS original
  103. :      COMMAND.COM to diskettes formatted with /s. In 4DOS, if you had
  104. :      to have 4DOS.COM under the name COMMAND.COM for misbehaved
  105. :      programs like XyWrite and Nota Bene. The original COMMAND.COM
  106. :      must be kept in your ROOT directory under the name COMMAND.OLD, or
  107. :      in an MSDOS subdirectory under COMMAND.COM. Make sure that
  108. :      COPYCOM.BTM is in your path.
  109. if %@eval[%?] ge 3 (echo Disk not formatted^return)
  110. if not exist %@search[COPYCOM.BTM] (echo COPYCOM.BTM not found^quix)
  111. iff .%trans==.on then
  112. call copycom %disk
  113. cancel
  114. endiff
  115.  return
  116.