home *** CD-ROM | disk | FTP | other *** search
/ C++ Games Programming / CPPGAMES.ISO / fgl / fglight / exfor.arj / TEMP / 03-09.FOR < prev    next >
Text File  |  1995-01-20  |  1KB  |  50 lines
  1. $INCLUDE: 'C:\FG\FASTGRAF.FI'
  2.  
  3.       PROGRAM MAIN
  4.  
  5.       INTEGER ID, MAJOR, MINOR
  6.       INTEGER FG_MEMORY, FG_SVGAINIT
  7.  
  8.       CHARACTER*35 DESCRIPTION(0:27)
  9.       DATA DESCRIPTION/
  10.      +   'cannot be determined',
  11.      +   'VESA',
  12.      +   'Ahead A',
  13.      +   'Ahead B',
  14.      +   'ATI 18800',
  15.      +   'ATI 18800-1',
  16.      +   'ATI 28800/38800/68800/88800',
  17.      +   'Chips & Technologies 82c451/455/456',
  18.      +   'Chips & Technologies 82c452',
  19.      +   'Chips & Technologies 82c453',
  20.      +   'Genoa 6000 series',
  21.      +   'Oak OTI-067',
  22.      +   'Paradise PVGA1a',
  23.      +   'Paradise WD90C00/WD90C10',
  24.      +   'Paradise WD90C11/30/31/33',
  25.      +   'Trident 8800',
  26.      +   'Trident 8900/9000',
  27.      +   'Tseng ET3000',
  28.      +   'Tseng ET4000',
  29.      +   'Video7',
  30.      +   'Cirrus Logic 5400 series',
  31.      +   'S3',
  32.      +   'NCR 77C22/77C32',
  33.      +   'Oak OTI-077',
  34.      +   'Oak OTI-087',
  35.      +   ' ',
  36.      +   'Cirrus Logic 6400 series',
  37.      +   'Avance Logic 2000 series'/
  38.  
  39.       CALL FG_INITPM
  40.       ID = FG_SVGAINIT(0)
  41.       CALL FG_SVGAVER (MAJOR, MINOR)
  42.       WRITE(6,1000) DESCRIPTION(ID), FG_MEMORY(), MAJOR, MINOR
  43.       
  44. 1000  FORMAT(' SVGA chipset:  ',A,/,
  45.      +       ' video memory:  ',I4,' kilobytes',/,
  46.      +       ' SVGA version:  ',I1,'.',I2.2)
  47.  
  48.       STOP ' '
  49.       END
  50.