home *** CD-ROM | disk | FTP | other *** search
/ High Voltage Shareware / high1.zip / high1 / DIR13 / BAT_FORM.ZIP / BAT_FORM.BTM next >
Text File  |  1993-09-01  |  4KB  |  118 lines
  1. @echo off
  2.  
  3. rem
  4. rem     Clear the screen to bright cyan on black and put the initial
  5. rem     screen information on the screen
  6. rem
  7.  
  8. @cls Bright Cyan on Black border @bla
  9. @ScrPut 02 25 Bright Cyan on Black "
  10. ScrPut 02 26 Bright Yellow on Black Batch
  11. ScrPut 02 31 Bright Cyan on Black " Format Drive
  12. ScrPut 02 46 Bright Blue on Black (
  13. ScrPut 02 47 Bright Yellow on Black A
  14. ScrPut 02 48        Cyan on Black /
  15. ScrPut 02 49 Bright Yellow on Black B
  16. ScrPut 02 50 Bright Blue on Black )
  17. ScrPut 02 51 Bright White on Black :
  18. ScrPut 04 31 Bright Cyan on Black Which Density Floppy
  19. ScrPut 04 51 Bright White on Black :
  20. ScrPut 06 25 Bright Yellow on Black 1
  21. ScrPut 06 26 Bright Blue on Black )
  22. ScrPut 06 28 Bright Cyan on Black 3½" Double Density
  23. ScrPut 06 47 Bright Blue on Black (
  24. ScrPut 06 49 Bright Magenta on Black 720
  25. ScrPut 07 25 Bright Yellow on Black 2
  26. ScrPut 07 26 Bright Blue on Black )
  27. ScrPut 07 28 Bright Cyan on Black 3½"  High  Density
  28. ScrPut 07 47 Bright Blue on Black (
  29. ScrPut 07 48 Bright Magenta on Black 1.44
  30. ScrPut 08 25 Bright Yellow on Black 3
  31. ScrPut 08 26 Bright Blue on Black )
  32. ScrPut 08 28 Bright Cyan on Black 3½" Extra  Density
  33. ScrPut 08 47 Bright Blue on Black (
  34. ScrPut 08 48 Bright Magenta on Black 2.88
  35. ScrPut 09 25 Bright Yellow on Black 4
  36. ScrPut 09 26 Bright Blue on Black )
  37. ScrPut 09 28 Bright Cyan on Black 5¼" Double Density
  38. ScrPut 09 47 Bright Blue on Black (
  39. ScrPut 09 49 Bright Magenta on Black 360
  40. ScrPut 10 25 Bright Yellow on Black 5
  41. ScrPut 10 26 Bright Blue on Black )
  42. ScrPut 10 28 Bright Cyan on Black 5¼"  High  Density
  43. ScrPut 10 47 Bright Blue on Black (
  44. ScrPut 10 48 Bright Magenta on Black 1.2
  45. ScrPut 06 52        White on Black k
  46. ScrPut 06 53 Bright Blue on Black )
  47. ScrPut 07 52        White on Black M
  48. ScrPut 07 53 Bright Blue on Black )
  49. ScrPut 08 52     White on Black M
  50. ScrPut 08 53 Bright Blue on Black )
  51. ScrPut 09 52     White on Black k
  52. ScrPut 09 53 Bright Blue on Black )
  53. ScrPut 10 52     White on Black M
  54. ScrPut 10 53 Bright Blue on Black )
  55.  
  56. rem
  57. rem     Position the cursor, erase anything left after the prompts on
  58. rem     the lines, and get the keystrokes in response to the Drive and
  59. rem     Density options...
  60. rem
  61.  
  62. :ReStart
  63.  
  64. Color Bright White on Black
  65. Screen 02 53 
  66. @Inkey /k"AB[Esc]" %%Drive
  67. If "%Drive" == "" @Goto The_End
  68. Screen 04 53 
  69. Inkey /k"12345[Esc]" %%Size
  70. If "%Size" == "" Goto The_End
  71.  
  72. rem
  73. rem     The actual "Format" Loop, set the color and clear the
  74. rem     formatting information display area of the screen before
  75. rem     beginning the actual formatting.  The %? is the 4Dos variable
  76. rem     that holds the result code of the Format command.  I test this
  77. rem     to see whether to loop back to the start of the batch file or
  78. rem     to continue with the formatting.  It will detect a Control+C
  79. rem     interrupt, improper formatting options (3½" & 1.2M), and such...
  80. rem
  81.  
  82. :@DiskFormat
  83.  
  84. Color Bright @Gre on Bla
  85. Screen 13 00
  86. Echo 
  87. Echo 
  88. Echo 
  89. Echo 
  90. Screen 13 00
  91. If "%Size" == "1" FORMAT %Drive%: /U /F:720 /@AUTOTEST
  92. If "%Size" == "2" FORMAT %Drive%: /U /F:1.44 /AUTOTEST
  93. If "%Size" == "3" FORMAT %Drive%: /U /F:2.88 /AUTOTEST
  94. If "%Size" == "4" FORMAT %Drive%: /U /F:360 /AUTOTEST
  95. If "%Size" == "5" FORMAT %Drive%: /U /F:1.2 /AUTOTEST
  96. If %? NE 0 Beep 600 4 450 1
  97. If %? NE 0 Goto Restart
  98. Color Bright Cyan on Bla
  99. Beep 1000 2 900 1 1000 2 900 1 1000 2 900 1
  100. ScrPut 11 00 Bright Magenta on Black Format Another
  101. ScrPut 11 15 Bright Yellow on Black ?
  102. Color Bright White on Bla
  103. Screen 11 17
  104. Inkey /k"@YN[Enter][Esc]" %%@DoIt
  105. If "%DoIt" == "N" Goto The_End
  106. If "%DoIt" == "" Goto The_End
  107. echo A
  108. GoTo DiskFormat
  109.  
  110. rem
  111. rem     The "Exit" area...  Position the cursor below all the formatting
  112. rem     info and end the batch...
  113. rem
  114.  
  115. :The_End
  116. Screen 15 00
  117. Quit
  118.