home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C++ Games Programming
/
CPPGAMES.ISO
/
fgl
/
fglight
/
expas.arj
/
TEMP
/
05-10.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1995-01-20
|
413b
|
32 lines
program main;
uses fgmain, fgmisc;
const
COLORS : integer = 256;
var
base : integer;
color : integer;
mode : integer;
x : integer;
begin
fg_initpm;
mode := fg_getmode;
fg_setmode(19);
x := 0;
for color := 0 to COLORS-1 do
begin
fg_setcolor(color);
fg_rect(x,x,0,199);
inc(x);
end;
fg_waitkey;
fg_setmode(mode);
fg_reset;
end.