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

DM3 Menu Overlay * CopyRight 1989-90 By Marc Perkel

This is a File Compression Overlay fo DM3. This allows
you to format floppy disks.

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

Var ForeColor BackColor %Option %Message

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
BoxBorderColor LCyan Blue
BoxInsideColor White Blue
BoxHeader = ' Drive '
DrawBox 50 12 11 5
TextColor Yellow Blue
ClearLine 205
TextColor White Blue
UseArrows
Writeln
Writeln '   A:'
Write   '   B:'

OnKey 'A'
  @Echo Off
  @Echo Formatting Drive A: %Message
  @Echo To abort, press CTRL-C.
  @Echo .
  FORMAT A:%Option

OnKey 'B'
  @Echo Off
  @Echo Formatting Drive B: %Message
  @Echo To abort, press CTRL-C.
  @Echo .
  FORMAT B:%Option