home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast.iso / pcmag / vol9n09.zip / FFORMAT.PAN < prev    next >
Text File  |  1990-02-09  |  1KB  |  48 lines
  1.         ************************************************************
  2.         ***                                                      ***
  3.         *** Fancy PAN script for use with the DOS Format utility ***
  4.         ***                                                      ***
  5.         ************************************************************
  6.  
  7. Load "c:\dos\format.com"
  8. Else
  9.     Output "^M^J^GPAN is unable to load the format program.  Please edit the file FORMAT.PAN and^M^J"
  10.     Output "correct the 'IfLoad' command to include the appropriate pathname for PAN to^M^J"
  11.     Output "locate the file FORMAT.COM on your PC."
  12.     Quit
  13. EndIf
  14. Wipe
  15. Video 70
  16. Cursor 25 0
  17. Screen 08 30 / ╔══════════════════╗ /
  18. Screen 09 30 / ║  Format drive    ║ /
  19. Screen 10 30 / ║     A:   B:      ║ /
  20. Screen 11 30 / ╚══════════════════╝ /
  21.  
  22. Label try_again
  23. GetKey
  24. IfKey "Aa"
  25.     Wipe
  26.     Output "A^M^J"
  27.     Go "A:"
  28.     Jump waiter
  29. EndIf
  30. IfKey "Bb"
  31.     Wipe
  32.     Output "B^M^J"
  33.     Go "B:"
  34.     Jump waiter
  35. EndIf
  36. IfKey "[Esc]^C"
  37.     Quit
  38. Else
  39.     Output "^G"
  40.     Jump try_again
  41. EndIf
  42. Label waiter
  43. Key "[Enter]"
  44. WaitChild
  45. Quit
  46. Go ""
  47. Cursor 0 75
  48.