PROGRAM COLOR; {a short demo to show how to set colors and modes}
VAR
  MODE:INTEGER;
  LETTERCOLOR:INTEGER;


BEGIN
  WRITE('enter a mode(0..6 for graphics board, 7 for mono): ');
  READLN(MODE);
  SETMODE(MODE);
  REPEAT
    WRITE('enter a color: ');
    READLN(LETTERCOLOR);
    TEXTCOLOR(LETTERCOLOR);
    WRITELN('this is color ',LETTERCOLOR);
  UNTIL LETTERCOLOR = 7;
END.