home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / ECO30603.ZIP / ECO30603.LZH / ECOLIBCS / DEMOS / COLOURS.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-12-01  |  717 b   |  34 lines
  1. uses
  2.   eco_lib, crt, dos
  3.  
  4.   ;
  5.  
  6.  
  7. var
  8.   space,
  9.   f, b,
  10.   j, i  : byte;
  11.   w     : word;
  12.  
  13.  
  14.   function retcol(a: byte): string;
  15.   var b: byte;
  16.   begin
  17.     if a in [7, 9..13] then b := 6 else b := 1;
  18.     retcol := __juststr(copy(_colours[a], b, 4), ' ', 4, _left_just_str)
  19.   end;
  20.  
  21.  
  22. begin
  23.   __loc(1, 1, f, b);
  24.   for i := 1 to _currows do __write(1, i, f, b, __rep(_curcolumns, ' '));
  25.   __setblwin(false); space := 5;
  26.   if __inparams('/nospace', w) then space := 4;
  27.   __vid(25, 2, ' --- Background colours ---');
  28.   for j := 0 to 15 do begin
  29.     __vid(j * space + 1, 3, retcol(j));
  30.     for i := 0 to 15 do __write(j * space + 1, i + 5, i, j, retcol(i));
  31.   end;
  32.   gotoxy(1, _currows - 3);
  33. end.
  34.