[Back to COLOR SWAG index]  [Back to Main SWAG index]  [Original]

PROGRAM Change_Color;
USES Crt;
VAR Tel, Tel2 : Byte;

(**********************************************************************)
(*   Copyright for this procedure by Steven Debruyn 1994              *)
(*   Hereby donated to Public Domain                                  *)
(*   Feel free to put this in the SWAG if you think it's any good     *)
(**********************************************************************)
PROCEDURE Say(Zin : String);
VAR Kleur : Byte;
     Code : Integer;
     Zin1 : String;
     Zin2 : String;
  TempZin : String;
   Gedaan : Boolean;
BEGIN
  WHILE Pos('\\',Zin) <> 0 DO BEGIN
    Zin1 := Copy(Zin, Pos('\\',Zin)+2, Pos('\\',Zin)+Pos(' ',Zin)-4);
    Val(Zin1,Kleur,Code);
    TextAttr:= Kleur;
    Zin2 := Copy(Zin, Pos('\\',Zin)+Length(Zin1)+2,Length(Zin));
    TempZin := Copy(Zin2, Pos(' ',Zin2), Pos('\\',Zin2)-1);
    Write(TempZin);
    Zin := Copy(Zin2, Pos(TempZin,Zin2)+Length(TempZin), Length(Zin2));
  END;
  WriteLn;
END;

BEGIN
  TextAttr:=0;
  ClrScr;
  Say('\\5 Hello\\9 World out there,\\79 this is a test\\154 !\\');
  Say('\\14 I can change color\\23 and \\220 background.\\138 and'+
      ' BLINK at the same time.\\');
  Say('\\15 Press\\11 [\\14 ENTER\\11 ]\\');
  ReadLn;
  ClrScr;
  Tel2:=1;
  FOR Tel := 1 TO 255 DO
  BEGIN
    TextAttr := Tel;
    WriteLn('This is Color : ',Tel);
    Inc(Tel2);
    IF Tel2 = 24 THEN
    BEGIN
      ReadLn;
      TextAttr:=0;
      ClrScr;
      Tel2 := 1;
    END;
  END
END.

[Back to COLOR SWAG index]  [Back to Main SWAG index]  [Original]