home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / msdos / animutil / fastgfx / fg303e / expas.arj / FGDOC / EXAMPLES / PASCAL / 01-01.PAS next >
Encoding:
Pascal/Delphi Source File  |  1993-09-30  |  236 b   |  14 lines
  1. program main;
  2. uses fgmain;
  3.  
  4. var
  5.   Major : integer;
  6.   Minor : integer;
  7.   Version : real;
  8.  
  9. begin
  10.   fg_version(Major,Minor);
  11.   Version := Major + Minor * 0.01;
  12.   writeln('This is version ',Version:4:2,' of Fastgraph.');
  13. end.
  14.