home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Hráč 1997 February
/
Hrac_09_1997-02_cd.bin
/
UTILS
/
PROGRAM
/
1SVGA.ZIP
/
COLOR1.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1994-05-26
|
611b
|
27 lines
{ Show Text-Mode Mixed 16 Colors }
uses Txt;
{ ─────────────── ShowColor ─────────────── }
procedure ShowColor(Ty,X,Y:integer);
const Pattern:array[1..3] of char=('▒','░','▓');
var I,J:integer;
begin
for I:=0 to 15 do for J:=0 to 15 do
TextBar(X+3*J,Y+I,3,1,16*I+J,Pattern[Ty]);
end;
var I,K:integer;
begin
TextBar(1, 1,80, 1,$3E,' ');
TextBar(1, 2,80,23,$1E,' ');
TextBar(1,25,80, 1,$3E,' ');
PrintChar(4,1,'Show Text-Mode Mixed 16 Colors');
PrintChar(4,25,'Press any key...');
SetFlash(0);
for I:=1 to 3 do begin
ShowColor(I,15,5);
K:=Key;
end;
end.