home *** CD-ROM | disk | FTP | other *** search
/ Resource Library: Graphics / graphics-16000.iso / msdos / animutil / fastgfx / fg303e / expas.arj / FGDOC / EXAMPLES / PASCAL / 03-05.PAS < prev    next >
Pascal/Delphi Source File  |  1993-09-30  |  580b  |  37 lines
  1. program main;
  2. uses fgmain, fgmisc;
  3.  
  4. var
  5.   lines     : integer;
  6.   old_lines : integer;
  7.   old_mode  : integer;
  8.  
  9. begin
  10.   old_lines := fg_getlines;
  11.   old_mode := fg_getmode;
  12.   fg_setmode(3);
  13.   fg_cursor(0);
  14.  
  15.   fg_setcolor(15);
  16.   fg_text('first line',10);
  17.   fg_waitkey;
  18.  
  19.   if (fg_testmode(16,0) = 1) then
  20.   begin
  21.     fg_setlines(43);
  22.     fg_cursor(0);
  23.     fg_waitkey;
  24.   end;
  25.  
  26.   if (fg_testmode(17,0) = 1) then
  27.   begin
  28.     fg_setlines(50);
  29.     fg_cursor(0);
  30.     fg_waitkey;
  31.   end;
  32.  
  33.   fg_setmode(old_mode);
  34.   fg_setlines(old_lines);
  35.   fg_reset;
  36. end.
  37.