Comment
===================================================

DM3 Menu Overlay * CopyRight 1989-91 By Marc Perkel

===================================================
EndComment

Var Option Message FDrive Ch

if ColorScreen
   BoxHeaderColor Yellow Mag
   InverseColor Yellow Mag
   BoxBorderColor LGreen Brown
   BoxInsideColor Grey Brown
else
   BoxHeaderColor Black Grey
   InverseColor Black Grey
   BoxBorderColor White Black
   BoxInsideColor Grey Black
endif

ClearScreenOnExit Off
BlankTime = 10
BlankMessage = 'Executing DM3'

BoxHeader = ' Format Floppy Disk Menu '
DrawBox 21 7 44 7
TextColor Yellow Brown
ClearLine 205
TextColor Grey Brown
UseArrows
CapsColor Yellow Brown

Writeln
Writeln '  1 - Format 360      5 - Format /S 360'
Writeln '  2 - Format 1.2M     6 - Format /S 1.2M'
Writeln '  3 - Format 720      7 - Format /S 720'
Write   '  4 - Format 1.4M     8 - Format /S 1.4M'

OnKey '1'
  |Message = '360k Format with no System Files.'
  |Option = '/4'
  |Format2

OnKey '2'
  |Message = '1.2m Format with no System Files.'
  |Option = ''
  |Format2

OnKey '3'
  |Message = '720k Format with no System Files.'
  |Option = '/N:9/T:80'
  |Format2

OnKey '4'
  |Message = '1.4m Format with no System Files.'
  |Option = '/N:18/T:80'
  |Format2

OnKey '5'
  |Message = '360k Format with System Files.'
  |Option = '/4/S'
  |Format2

OnKey '6'
  |Message = '1.2m Format with System Files.'
  |Option = '/S'
  |Format2

OnKey '7'
  |Message = '720k Format with System Files.'
  |Option = '/N:9/T:80/S'
  |Format2

OnKey '8'
  |Message = '1.4m Format with System Files.'
  |Option = '/N:18/T:80/S'
  |Format2

OnKey 'E'
  ME %MenuFileName


:Format2

if DosVersionString >= '5.00'
   Option = Option + '/U'     ;unconditional
   Option = Option + '/V:DOS' ;automatically adds volume label
endif

BoxBorderColor LCyan Blue
BoxInsideColor White Blue
BoxHeader = ' Drive '
DrawBox 51 13 11 Floppies + 3
TextColor Yellow Blue
ClearLine 205
TextColor White Blue
UseArrows
Writeln
Loop Floppies
   Write '   ' char(LoopIndex + 64) ':'
   if LoopIndex <> LoopLimit then Writeln
endloop

OnKey 'A'
  |ExecFormat ('A')

OnKey 'B'
  |ExecFormat ('B')

OnKey "C"
  |ExecFormat ('C')

OnKey "D"
  |ExecFormat ('D')


;----- Execute FORMAT in a DOS Window

Procedure ExecFormat (Drv)
var FormatProg

   FormatProg = ExistOnPath('FORMAT.EXE')
   if FormatProg = '' then FormatProg = ExistOnPath('FORMAT.COM')
   if FormatProg = ''
      Error('FORMAT program not Found!')
      Return
   endif

   BoxHeader = ' Formatting Drive ' + Drv + ': ' + Message + ' '
   DrawBox 4 4 74 19
   Window  7 5 70 17
   Cursor Off
   DosWindow
   Writeln
   Execute 'FORMAT ' + Drv + ': ' + Option
   ExitMenu
EndProc

;----- Display Error and Wait for a Key

Procedure Error (Err)
var Ch
   BoxHeader = ' Error * Press any Key '
   DrawBox 19 15 length(Err) + 4 3
   Cursor Off
   UseArrows Off
   Write ' ' Err Char(7)
   Ch = ReadKey
   ExitMenu
EndProc