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