home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l291 / 6.ddi / RGINIT.FO$ / RGINIT.bin
Encoding:
Text File  |  1990-10-23  |  851 b   |  35 lines
  1. CC  RGINIT.FOR - Function to enter graphics mode for REALG.
  2.  
  3. $NOTRUNCATE
  4. $NOTSTRICT
  5.  
  6.       INCLUDE  'FGRAPH.FI'
  7.  
  8.       LOGICAL FUNCTION fourcolors()
  9.  
  10.       INCLUDE  'FGRAPH.FD'
  11.  
  12.       INTEGER*2            dummy
  13.       RECORD /videoconfig/ screen
  14.       COMMON               screen
  15.  
  16. C
  17. C     Set to maximum number of available colors.
  18. C
  19.       CALL getvideoconfig( screen )
  20.       SELECT CASE( screen.adapter )
  21.          CASE( $CGA, $OCGA )
  22.             dummy = setvideomode( $MRES4COLOR )
  23.          CASE( $EGA, $OEGA )
  24.             dummy = setvideomode( $ERESCOLOR )
  25.          CASE( $VGA, $OVGA )
  26.             dummy = setvideomode( $VRES16COLOR )
  27.          CASE DEFAULT
  28.             dummy = 0
  29.       END SELECT
  30.  
  31.       CALL getvideoconfig( screen )
  32.       fourcolors = .TRUE.
  33.       IF( dummy .EQ. 0 ) fourcolors = .FALSE.
  34.       END
  35.