home *** CD-ROM | disk | FTP | other *** search
- Echo Off
- REM
- REM Written by Gary Conway Infinity Design Concepts
- REM
- REM 11/05/86
- REM All Infinity Design Programs can be located on the
- REM SoftStone RCP/M BBS, Louisville, Kentucky (502)241-4109
- REM
- REM ANSI.SYS must be installed and YESNO.COM and FORMAT.COM must
- REM be in your DOS path.
- REM
- REM This batch file will format floppy disks. It is a bit slow
- REM with screen writes (as are all batch files), but it does
- REM allow continuous formatting of floppy diskettes without
- REM continually hitting ENTER between disk swaps.
- REM It is best utilized on systems with two floppy drives.
- REM Both drives can be formatted continuously without operator
- REM intervention. This is handy when you wish to format a lot
- REM of diskettes and don't wish to keep answering a lot of
- REM repetative questions.
- REM The program will format drives A and B, if you desire other
- REM drives, then simply change this BATch file with your editor.
- REM Note also the different usages of YESNO.COM.
- REM
- REM NOTE: On some machines, it has been noted that when
- REM formatting, the FORMAT program won't wait for a user
- REM response the first time around (subsequent formats
- REM proceed without any input required). If this is the
- REM case on your machine, you may wish to make the
- REM statements that I have surrounded by * 's into non
- REM REM statements. This will allow the user to hit
- REM ENTER before the first disk is formatted, however the
- REM remaining disks will be formatted automatically.
- Break ON
- Cls
- YESNO 13 10 27 "[35m"
- Echo ┌─────────────────────────────────────────────────┐
- Echo │ Infinity Design Concepts (c) 1986│
- Echo └─────────────────────────────────────────────────┘
- :GETANS
- YESNO 27 "[5;1H" 27 "[33;40m"
- YESNO 13 10 9 9 9 "0. Exit"
- YESNO 13 10 9 9 9 "1. Format Drive A......(one time)"
- YESNO 13 10 9 9 9 "2. Format Both A and B (one time)"
- YESNO 13 10 9 9 9 "3. Format Drive A......Continuously"
- YESNO 13 10 9 9 9 "4. Format Both A and B Continuously"
- YESNO Resp 13 10 9 9 9 9 "Enter Selection ==> "
- Rem
- If Errorlevel 48 Goto LowrangeOK
- Goto GETANS
- :LowrangeOK
- IF Errorlevel 53 Goto GETANS
- If Errorlevel 52 Goto BOTHM
- If Errorlevel 51 Goto SINGM
- If Errorlevel 50 Goto BOTH
- If Errorlevel 49 Goto SING
- If Errorlevel 48 Goto DONE
- Goto GETANS
- REM
- :SING
- Set RETURN=SINGLE
- Goto KILLLINES
- :SINGLE
- YESNO 27 "[5;1H"
- YESNO 13 10 10 "Formatting Drive ""A"""
- YESNO 27 "[1;32m" 13 10 "│" 13 10
- Set MULT=NO
- Goto NEXT
- :SINGM
- Set MULT=YES
- Set RETURN=SINGLEM
- Goto KILLLINES
- :SINGLEM
- YESNO 27 "[5;1H"
- YESNO 13 10 10 "Formatting Drive ""A"" Continuously" 13 10 27 "[1;32m"
- YESNO "│ Hit " 27 "[5;31m" "CTRL-BREAK" 27 "[0;1;32m" " Twice to Exit" 13 10
- :NEXT
- Echo │ ╔════════════════════════════════════╗
- Echo └───────────────────»║ Insert a Blank Diskette into the ║
- Echo ║ - A - drive ║
- Echo ╚════════════════════════════════════╝
- REM ***********************************
- REM ECHO Hit any key to start
- REM PAUSE > NULL
- REM ***********************************
- If %MULT%==YES Goto CONT1
- REM format one floppy and exit
- YESNO 13 "N" 13 | format A:
- YESNO 27 "[13;1H" 27 "[K"
- Goto DONE
- REM format one floppy continuously
- :CONT1
- YESNO 27 "[14;1H" 07
- YESNO 13 "N" 13 | format A:
- YESNO 27 "[14;1H" 27 "[K" 13 10 27 "[K" 13 10 27 "[K" 13 10
- YESNO 27 "[K" 13 10 27 "[K" 13 10 27 "[K" 13 10 27 "[K" 13 10
- YESNO 27 "[K" 13 10 27 "[K"
- Goto CONT1
- :BOTH
- Set MULT=NO
- Set RETURN=BOTH1
- Goto KILLLINES
- :BOTH1
- YESNO 13 10 10 "Formatting Drives ""A"" and ""B""" 27 "[1;32m" 13 10
- Goto CONT4
- :BOTHM
- Set MULT=YES
- Set RETURN=BOTHM1
- Goto KILLLINES
- :BOTHM1
- YESNO 13 10 10 "Formatting Drives ""A"" and ""B"" Continuously"
- YESNO 27 "[1;32m" 13 10
- :CONT4
- YESNO "│ Hit" 27 "[5;31m" " CTRL-BREAK" 27 "[0;1;32m" " Twice to Exit" 13 10
- Echo │ ╔══════════════════════════════════════╗
- Echo └─────────────────»║ Insert Blank Diskettes into Drives ║
- Echo ║ A and B ║
- Echo ╚══════════════════════════════════════╝
- REM ********************************************
- REM ECHO Hit any key to continue
- REM PAUSE > NULL
- REM ********************************************
- :CONT2
- YESNO 27 "[13;1H" 27 "[K" 13 10 27 "[K" 13 10
- YESNO 27 "[K" 13 10 27 "[K" 13 10 27 "[K"
- YESNO 13 10 27 "[K" 13 10 27 "[K" 13 10 27 "[K" 13 10 27 "[K"
- YESNO 13 10 27 "[K" 13 10 27 "[K" 27 "[31m"
- YESNO 07 27 "[13;1H" "Change Disks in B:" 13 10 27 "[32m"
- YESNO 13 "N" 13 | format A:
- YESNO 27 "[13;1H" 27 "[K" 13 10 27 "[K" 13 10 27 "[K" 13 10
- YESNO 27 "[K"
- YESNO 13 10 27 "[K" 13 10 27 "[K" 13 10 27 "[K" 13 10
- YESNO 27 "[K" 13 10 27 "[K" 13 10 27 "[K" 13 10 27 "[K"
- If %MULT%==YES Goto YESHOW
- :NOSHOW1
- YESNO 27 "[13;1H" 13 10
- Goto NOSHOW
- :YESHOW
- YESNO 07 27 "[31m" 27 "[13;1H" "Change Disks in A:" 13 10 27 "[32m"
- :NOSHOW
- YESNO 13 "N" 13 | format B:
- If %MULT%==YES Goto CONT2
- Goto DONE
- :KILLLINES
- YESNO 27 "[6;1H" 27 "[K" 13 10 27 "[K" 13 10 27 "[K"
- YESNO 13 10 27 "[K" 13 10 27 "[K" 13 10 27 "[K" 27 "[5;1H"
- Goto %RETURN%
- :DONE
- YESNO 27 "[14;1H" 27 "[K" 13 10 27 "[K" 13 10 27 "[K" 13 10
- YESNO 27 "[K" 13 10 27 "[K" 13 10 27 "[K" 13 10 27 "[K" 13 10
- YESNO 27 "[K" 13 10 27 "[K" 13 10 27 "[K" 13 10 27 "[K"
- cd\
- YESNO 27 "[14;1H" "Finished..."
- Set MULT=
- Set RETURN=