home *** CD-ROM | disk | FTP | other *** search
/ C++ Games Programming / CPPGAMES.ISO / fgl / fglight / expas.arj / TEMP / 01-01.PAS next >
Pascal/Delphi Source File  |  1995-01-20  |  298b  |  19 lines
  1. program main;
  2. {$IFDEF DPMI}
  3. uses fgmain;
  4. {$ELSE}
  5. uses fgmain;
  6. {$ENDIF}
  7.  
  8. var
  9.   Major : integer;
  10.   Minor : integer;
  11.   Version : real;
  12.  
  13. begin
  14.   fg_initpm;
  15.   fg_version(Major,Minor);
  16.   Version := Major + Minor * 0.01;
  17.   writeln('This is version ',Version:4:2,' of Fastgraph.');
  18. end.
  19.