home *** CD-ROM | disk | FTP | other *** search
/ C++ Games Programming / CPPGAMES.ISO / fgl / fglight / expas.arj / TEMP / 03-05.PAS < prev    next >
Pascal/Delphi Source File  |  1995-01-20  |  604b  |  38 lines
  1. program main;
  2. uses fgmain, fgbitmap, fgmisc;
  3.  
  4. var
  5.   lines     : integer;
  6.   old_lines : integer;
  7.   old_mode  : integer;
  8.  
  9. begin
  10.   fg_initpm;
  11.   old_lines := fg_getlines;
  12.   old_mode := fg_getmode;
  13.   fg_setmode(3);
  14.   fg_cursor(0);
  15.  
  16.   fg_setcolor(15);
  17.   fg_text('first line',10);
  18.   fg_waitkey;
  19.  
  20.   if (fg_testmode(16,0) = 1) then
  21.   begin
  22.     fg_setlines(43);
  23.     fg_cursor(0);
  24.     fg_waitkey;
  25.   end;
  26.  
  27.   if (fg_testmode(17,0) = 1) then
  28.   begin
  29.     fg_setlines(50);
  30.     fg_cursor(0);
  31.     fg_waitkey;
  32.   end;
  33.  
  34.   fg_setmode(old_mode);
  35.   fg_setlines(old_lines);
  36.   fg_reset;
  37. end.
  38.