home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / FGL304F.ZIP;1 / EXFOR.ARJ / FGDOC / EXAMPLES / FORTRAN / 03-09.FOR < prev    next >
Encoding:
Text File  |  1994-01-24  |  1.2 KB  |  44 lines
  1. $INCLUDE: 'C:\FG\INTRFACE.FOR'
  2.  
  3.       PROGRAM MAIN
  4.  
  5.       INTEGER*2 ID, MAJOR, MINOR
  6.       INTEGER*2 FG_MEMORY, FG_SVGAINIT
  7.  
  8.       CHARACTER*35 DESCRIPTION(0:22)
  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',
  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/WD90C30/WD90C31',
  25.      +   'Trident 8800',
  26.      +   'Trident 8900',
  27.      +   'Tseng ET3000',
  28.      +   'Tseng ET4000',
  29.      +   'Video7',
  30.      +   'Cirrus Logic 5400 series',
  31.      +   'S3',
  32.      +   'Trident 8900B/8900C/9000'/
  33.  
  34.       ID = FG_SVGAINIT(0)
  35.       CALL FG_SVGAVER (MAJOR, MINOR)
  36.       WRITE(6,1000) DESCRIPTION(ID), FG_MEMORY(), MAJOR, MINOR
  37.       
  38. 1000  FORMAT(' SVGA chipset:  ',A,/,
  39.      +       ' video memory:  ',I4,' kilobytes',/,
  40.      +       ' SVGA version:  ',I1,'.',I2.2)
  41.  
  42.       STOP ' '
  43.       END
  44.