home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1995 November / PCWK1195.iso / inne / podstawy / dos / 4dos / 4uzytki / ez-btm11.exe / FORMAT2.BTM < prev    next >
Text File  |  1994-02-02  |  4KB  |  118 lines
  1. : FORMAT2.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 TWO FLOPPY DRIVES (3½ and 5¼).
  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=B:
  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.     3. Format a 5¼ diskette of 360  K
  68.     4. Format a 5¼ diskette of 1.2  M
  69.  
  70. endtext
  71. :selection
  72. inkey /K"0[esc]1234s" Which option / further option? %%userchoice
  73.      iff "%userchoice"=="0" .or. %userchoice==%@char[27] then
  74.       echo (Operation canceled)^quix
  75.      choice S set 1=/s ^ set trans=on ^goto selection
  76.      choice 1 set disk=%disk3
  77.         ech 720 in 1.44M Drive %disk
  78.         %format %disk /n:9 /t:80 %1 
  79.         gosub fix
  80.         quix
  81.      choice 2 set disk=%disk3
  82.         ech 1.44M in Drive %disk
  83.         %format %Disk %1
  84.         gosub fix
  85.         quix
  86.      choice 3 set disk=%disk5
  87.         ech 362 in 1.2M Drive %disk
  88.         %format %Disk/4 %1
  89.         gosub fix
  90.         quix
  91.      choice 4 set disk=%disk5
  92.         ech 1.2 in Drive %disk
  93.         %format %Disk %1
  94.         gosub fix
  95.         quix
  96. else
  97. :      (The user entered an invalid option)
  98.   scrput 23 0 bri whi on red Invalid choice, try again
  99. endiff
  100. :      Loop back to the beginning
  101. goto dispmenu
  102.  
  103. :fix
  104. :      This "fix" runs a batch file to handle copying of MS-DOS original
  105. :      COMMAND.COM to diskettes formatted with /s. In 4DOS, if you had
  106. :      to have 4DOS.COM under the name COMMAND.COM for misbehaved
  107. :      programs like XyWrite and Nota Bene. The original COMMAND.COM
  108. :      must be kept in your ROOT directory under the name COMMAND.OLD, or
  109. :      in an MSDOS subdirectory under COMMAND.COM. Make sure that
  110. :      COPYCOM.BTM is in your path.
  111. if %@eval[%?] ge 3 (echo Disk not formatted^return)
  112. if not exist %@search[COPYCOM.BTM] (echo COPYCOM.BTM not found^quix)
  113. iff .%trans==.on then
  114. call copycom %disk
  115. cancel
  116. endiff
  117.  return
  118.