;----- To run this menu type: MARX SAMPLE

TextColor Red Brown
ClearScreen '±'

;----- Here we set up colors!

BoxBorderColor Green Blue
BoxInsideColor Yellow Blue
BoxHeaderColor White Cyan
InverseColor Yellow Mag

UseArrows
BoxHeader ' * Sample Menu * '
BoxFooter ' * ESC to Exit * '
DrawBox 28 10 23 7

;----- Here we display our choices!

DrawBar
Writeln
Writeln '  A - Free Space'
Writeln '  B - Ram Map'
Writeln '  C - Edit the Menu'
DrawBar

;----- OnKey statements are just like writing batch files!

OnKey 'A'
  Free
  Pause

OnKey 'B'
  RamMap
  Pause

OnKey 'C'
  ME SAMPLE.MNU

;----- Yes, it can be this simple!

Procedure DrawBar
   TextColor LCyan Blue
   ClearLine 'Í'
   TextColor Yellow Blue
EndProc