;DM3 Menu Overlay

Var ForeColor BackColor VPos %Menu

if ColorScreen
  ForeColor = Yellow
  BackColor = Mag
  InverseColor Yellow Cyan
  VPos = 2
else
  ForeColor = Black
  BackColor = Grey
  InverseColor White Black
  VPos = 4
endif

Procedure VerticalBox
   SingleLineBox
   BoxBorderColor Yellow Red
   BoxInsideColor Grey Red
EndProc

Explode On
ExplodeDelay = 10
ClearScreenOnExit Off
PullMenu On
BoxBorderColor Cyan Blue
BoxInsideColor Yellow Mag
CapsColor LCyan Mag
BlankTime = 10

if ColorScreen
   NoBoxBorder
   DrawBox 2 1 78 1
else
   SingleLineBox
   DrawBox 1 1 80 3
endif
Write '      Single   Marked   Directory   Other   Config   Quit'
UseArrows
Explode Off

OnKey 'E'
  EDIT DM3MAIN.MNU

OnKey 'Z'
  |Execute 'C:\COMMAND.COM'

OnKey 'S'
  ^Single

OnKey 'M'
  ^Marked

OnKey 'D'
  ^Directory

OnKey 'O'
  ^Other

OnKey 'C'
  ^Config

OnKey 'Q'
  ^Quit

:Single
VerticalBox
DrawBox 6 VPos 15 12
InverseColor Yellow Mag
CapsColor Yellow Red
UseArrows
Writeln ' Copy'
Writeln ' Delete'
Writeln ' Move'
Writeln ' Rename'
Writeln ' Time & date'
Writeln ' Edit'
Writeln ' View'
Writeln ' eXecute'
Writeln ' Attributes'
Write   ' Patch'

OnKey 'C'
  |StuffKbd = 'C'
  |ExitMenu

OnKey 'D'
  |StuffKbd = 'D'
  |ExitMenu

OnKey 'M'
  |StuffKbd = 'M'
  |ExitMenu

OnKey 'A'
  |StuffKbd = 'A'
  |ExitMenu

OnKey 'R'
  |StuffKbd = 'R'
  |ExitMenu

OnKey 'T'
  |StuffKbd = 'T'
  |ExitMenu

OnKey 'E'
  |StuffKbd = 'E'
  |ExitMenu

OnKey 'P'
  |StuffKbd = 'P'
  |ExitMenu

OnKey 'V'
  |StuffKbd = 'V'
  |ExitMenu

OnKey 'X'
  |StuffAKey $3C00
  |ExitMenu

:Marked
VerticalBox
DrawBox 15 VPos 15 7
InverseColor Yellow Mag
CapsColor Yellow Red
UseArrows
Writeln ' Copy'
Writeln ' Delete'
Writeln ' Move'
Writeln ' Time & date'
Write   ' Attributes'

Onkey 'C'
  |StuffAKey $2E00
  |ExitMenu

Onkey 'D'
  |StuffAKey $2000
  |ExitMenu

Onkey 'M'
  |StuffAKey $3200
  |ExitMenu

Onkey 'T'
  |StuffAKey $1400
  |ExitMenu

Onkey 'A'
  |StuffAKey $1E00
  |ExitMenu

:Directory
VerticalBox
DrawBox 24 VPos 15 7
InverseColor Yellow Mag
CapsColor Yellow Red
UseArrows
Writeln ' Change dir'
Writeln ' Prev dir'
Writeln ' Root dir'
Writeln ' Drive'
Write   ' New path'

Onkey 'C'
  |StuffAKey $4100
  |ExitMenu

Onkey 'P'
  |StuffKbd '-'
  |ExitMenu

Onkey 'R'
  |StuffKbd '\'
  |ExitMenu

Onkey 'D'
  |StuffAKey $3F00
  |ExitMenu

Onkey 'N'
  |StuffAKey $4000
  |ExitMenu


:Other
VerticalBox
DrawBox 36 VPos 15 8
InverseColor Yellow Mag
CapsColor Yellow Red
UseArrows
Writeln ' Free'
Writeln ' Sort'
Writeln ' Reread'
Writeln ' Wildcard'
Writeln ' reVerse'
Write   ' Time'

OnKey 'F'
  |StuffKbd = 'F'
  |ExitMenu

OnKey 'S'
  |StuffKbd = 'S'
  |ExitMenu

OnKey 'R'
  |StuffKbd = 'L'
  |ExitMenu

OnKey 'W'
  |StuffKbd = 'W'
  |ExitMenu

OnKey 'V'
  |StuffKbd = 'X'
  |ExitMenu

OnKey 'T'
  |StuffKbd = 'Z'
  |ExitMenu

:Config
VerticalBox
DrawBox 44 VPos 15 5
InverseColor Yellow Mag
CapsColor Yellow Red
UseArrows
Writeln ' Key setup'
Writeln ' Edit menu'
Write   ' Other menus'

OnKey 'K'
  |StuffAKey = $4200
  |ExitMenu

OnKey 'E'
  EDIT DM3MAIN.MNU

OnKey 'O'
  |%Menu = PickFile '*.MNU' 60 5 17
  EDIT %Menu

:Quit
VerticalBox
DrawBox 53 VPos 15 4
InverseColor Yellow Mag
CapsColor Yellow Red
UseArrows
Writeln ' Quit'
Write   ' Current dir'

OnKey 'Q'
  |StuffKbd 'QQ'
  |ExitMenu

OnKey 'C'
  |StuffKbd 'QC'
  |ExitMenu