home *** CD-ROM | disk | FTP | other *** search
/ C++ Games Programming / CPPGAMES.ISO / fgl / fglight / expas.arj / TEMP / 08-09.PAS < prev    next >
Pascal/Delphi Source File  |  1995-01-20  |  655b  |  36 lines
  1. {$M 16384,0,0}
  2.  
  3. program main;
  4. uses fgmain;
  5.  
  6. var
  7.   old_mode       : integer;
  8.   active, visual : integer;
  9.   page0, page1   : word;
  10.   status         : integer;
  11.  
  12. begin
  13.   fg_initpm;
  14.   old_mode := fg_getmode;
  15.   fg_setmode(4);
  16.   status := fg_allocate(1);
  17.  
  18.   fg_setpage(1);
  19.   active := fg_getpage;
  20.   visual := fg_getvpage;
  21.  
  22.   fg_setpage(0);
  23.   page0 := fg_getaddr;
  24.   fg_setpage(1);
  25.   page1 := fg_getaddr;
  26.  
  27.   status := fg_freepage(1);
  28.   fg_setmode(old_mode);
  29.   fg_reset;
  30.  
  31.   writeln('Active page is ',active);
  32.   writeln('Visual page is ',visual);
  33.   writeln('Page 0 address is ',page0);
  34.   writeln('Page 1 address is ',page1);
  35. end.
  36.