home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c329 / 2.img / EXAMPLES / VIDEO.F < prev   
Encoding:
Text File  |  1989-08-09  |  730 b   |  29 lines
  1.       PROGRAM VIDEO
  2.  
  3. c Purpose: demonstrates calling NDP C from NDP Fortran
  4. c NDP C routine returns non-zero if an EGA board is present.
  5. c
  6.  
  7. c          Color Graphics Adapter
  8. c            Monochrome Display Adapter
  9. c                Enhanced Graphics Adapter
  10.       INTEGER     CDCGA,  CDMONO, CDEGA
  11.       PARAMETER (CDCGA=0,CDMONO=1,CDEGA=2)
  12.       INTEGER    INTNUM, EGA_FLAG, EGA_EXIST
  13.       CHARACTER*11 MSG
  14. c The following include file defines storage areas for
  15. c use of DOS and ROM BIOS services
  16.         INCLUDE "DOS.FH"
  17.       
  18.     EGA_FLAG = EGA_EXIST()
  19.  
  20.     IF (EGA_FLAG .EQ. 0) THEN
  21.           MSG = 'not present'
  22.     ELSE
  23.           MSG = 'present'
  24.     END IF
  25.       WRITE (*,100) 'Enhanced Graphics Adapter ',MSG
  26.   100 FORMAT (1X,A,A)
  27.  
  28.       END
  29.