Category : Files from Magazines
Archive   : VOL9N09.ZIP
Filename : FFORMAT.PAN

 
Output of file : FFORMAT.PAN contained in archive : VOL9N09.ZIP

************************************************************
*** ***
*** 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