home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Simtel MSDOS - Coast to Coast
/
simteldosarchivecoasttocoast.iso
/
pcmag
/
vol9n09.zip
/
FFORMAT.PAN
< prev
next >
Wrap
Text File
|
1990-02-09
|
1KB
|
48 lines
************************************************************
*** ***
*** Fancy PAN script for use with the DOS Format utility ***
*** ***
************************************************************
Load "c:\dos\format.com"
Else
Output "^M^J^GPAN is unable to load the format program. Please edit the file FORMAT.PAN and^M^J"
Output "correct the 'IfLoad' command to include the appropriate pathname for PAN to^M^J"
Output "locate the file FORMAT.COM on your PC."
Quit
EndIf
Wipe
Video 70
Cursor 25 0
Screen 08 30 / ╔══════════════════╗ /
Screen 09 30 / ║ Format drive ║ /
Screen 10 30 / ║ A: B: ║ /
Screen 11 30 / ╚══════════════════╝ /
Label try_again
GetKey
IfKey "Aa"
Wipe
Output "A^M^J"
Go "A:"
Jump waiter
EndIf
IfKey "Bb"
Wipe
Output "B^M^J"
Go "B:"
Jump waiter
EndIf
IfKey "[Esc]^C"
Quit
Else
Output "^G"
Jump try_again
EndIf
Label waiter
Key "[Enter]"
WaitChild
Quit
Go ""
Cursor 0 75