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

Color Menu
This menu displays color combinations.

On monochrome monitors and color monitors set in BW mode, MarxMenu
will map the colors in such a way as to maintain a high degree of
compatibility between mono and color systems. The suggested colors
are the most safe generic colors to choose on a non-color screen.
These are the colors the rest are mapped to.

This menu will let you see what all the colors look like on your
screen. If you are running a composite monitor, or and LCD screen,
you might want to use the command "MODE BW80" in you AUTOEXEC.BAT
file. This will put MarxMenu (and many other programs) into the
black and white mode.

Note on monochrome screens the color BLUE becomes underline.

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

TEXTMODE(3)

ClearScreen
ClearScreenOnExit Off

Var ForeColor BackColor St

Blink
BrightBackground on

Loop 16
   ForeColor = LoopIndex - 1
   Loop 16
      BackColor = LoopIndex - 1
      GotoPrintColor
   EndLoop
EndLoop

Writeln
St = ReadKey

;------ Procedures

Procedure HexNum (N)
   N = N + 48
   if N > 57 then N = N + 7
   Return Char(N)
EndProc

Procedure PrintColor
var X Y
   TextColor ForeColor BackColor
   X = HexNum(ForeColor)
   Y = HexNum(BackColor)
   Write ' ' X Char(4) Y ' '
EndProc

Procedure GotoPrintColor
   GotoXY((BackColor * 4 + 1),ForeColor + 1)
   PrintColor
EndProc