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

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

Var
  Env, Env2, BoxDim, SetString, SetA, SetB

ClearScreenOnExit Off

ReadEnvironment(Env)

UseArrows
BoxBorderColor Green Blue
BoxInsideColor Yellow Blue
if ColorScreen
   BoxHeaderColor Yellow Mag
   InverseColor Yellow Red
else
   BoxHeaderColor Black Grey
   InverseColor Black Grey
endif
BoxHeader ' Dolist Menu '
DrawBox 24 3 32 9
TextColor LCyan Blue
ClearLine 205
TextColor Yellow Blue
Writeln
Writeln '   A - Environment'
Writeln '   B - Trace On'
Writeln '   C - Trace Off'
Writeln '   D - Return Codes On'
Writeln '   E - Return Codes Off'
Write   '   F - Help'

OnKey 'A'
   |Overlay 'ENV'
   |ExitMenu


Onkey 'B'
   |StuffKBD = '@Trace On' + CR
   |ExitMenu


OnKey 'C'
   |StuffKBD = '@Trace Off' + CR
   |ExitMenu


OnKey 'D'
   |StuffKBD = '@RC On' + CR
   |ExitMenu


OnKey 'E'
   |StuffKBD = '@RC Off' + CR
   |ExitMenu


OnKey 'F'
   |StuffKBD = 'DoHelp' + CR
   |ExitMenu