home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C++ Games Programming
/
CPPGAMES.ISO
/
fgl
/
fglight
/
expas.arj
/
TEMP
/
17-01.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1995-01-20
|
1KB
|
48 lines
{$M 16384,0,0}
program main;
uses fgmain, fgmisc, fgsvga;
var
status : integer;
mode, old_mode : integer;
original, mem0, mem1, mem2 : longint;
begin
write('Which video mode? ');
readln( mode );
fg_initpm;
status := fg_svgainit(0);
if (fg_testmode(mode,0) = 0) then
begin
writeln('Your system does not support that video mode.');
exit;
end;
if (fg_testmode(mode,3) = 0) then
begin
writeln('Your system does not have enough memory.');
exit;
end;
original := fg_memavail;
old_mode := fg_getmode;
fg_setmode(mode);
mem0 := fg_memavail;
status := fg_allocate(1);
mem1 := fg_memavail;
status := fg_allocate(2);
mem2 := fg_memavail;
status := fg_freepage(1);
status := fg_freepage(2);
fg_setmode(old_mode);
fg_reset;
writeln('originally = ',original);
writeln('after setmode = ',mem0);
writeln('after 1st page = ',mem1);
writeln('after 2nd page = ',mem2);
writeln('at end = ',fg_memavail);
end.