Topspeed_JPI/TS/MODBASE/MSCOLORS.MOD

IMPLEMENTATION MODULE MsColors;
(*
 *  REPERTOIRE
 *  Release 1.6
 *  By Charles Bradford and Cole Brecheen
 *  (c) Copyright 1985-1992 PMI
 *  Green Bay, Wisconsin
 *  All rights reserved
 *  (414) 468-6040
 *
 *  $Header:   D:/logfiles/mods/mscolors.mov   1.7   10 Mar 1991 15:29:40   coleb  $
 *
 *)


(*EntryDiag:
IMPORT Diagnostics;
:EntryDiag*)



VAR
  Initialized : BOOLEAN;

  PROCEDURE Init();
    BEGIN
      IF Initialized THEN
        RETURN;
      ELSE
        Initialized := TRUE;
      END;
(*EntryDiag:
      Diagnostics.Init();
:EntryDiag*)
(*EntryDiag:
      Diagnostics.diagS( 'Entering MSColors', '' );
:EntryDiag*)

      plain := 0C;
      bold := 1C;
      underscored := 2C;
      blinking := 3C;
      ReverseVideo := 4C;
      invisible := 5C;

      black := CHR(0);
      blue := CHR(1);
      green := CHR(2);
      cyan := CHR(3);
      red := CHR(4);
      magenta := CHR(5);
      brown := CHR(6);
      lightgrey := CHR(7);
      darkgrey := CHR(8);
      lightblue := CHR(9);
      lightgreen := CHR(10);
      lightcyan := CHR(11);
      lightred := CHR(12);
      lightmagenta := CHR(13);
      yellow := CHR(14);
      brightwhite := CHR(15);

(*EntryDiag:
      Diagnostics.diagS( 'Exiting MSColors', '' );
:EntryDiag*)
    END Init;

BEGIN
  Initialized := FALSE;
  Init();
END MsColors.