home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l291 / 6.ddi / COLOR.FO$ / COLOR.bin
Encoding:
Text File  |  1989-01-16  |  751 b   |  26 lines
  1. CC  COLOR.FOR - Sets a medium resolution mode
  2. CC              with maximum color choices. 
  3.  
  4.       INCLUDE  'FGRAPH.FI'
  5.       INCLUDE  'FGRAPH.FD'
  6.  
  7.       INTEGER*2            dummy
  8.       RECORD /videoconfig/ vc
  9.  
  10. C
  11. C     Set mode for maximum number of colors.
  12. C
  13.       IF( setvideomode( $MAXCOLORMODE ) .EQ. 0 )
  14.      +    STOP 'Error:  no color graphics capability'
  15.       CALL getvideoconfig( vc )
  16.  
  17.       WRITE (*, 9000) vc.numcolors, vc.numxpixels, vc.numypixels
  18.       READ (*,*)       ! Wait for ENTER key to be pressed
  19.       CALL clearscreen( $GCLEARSCREEN )
  20.       dummy = setvideomode( $DEFAULTMODE )
  21.  
  22.  9000 FORMAT( ' available colors: ', I5 / ' horizontal pixels:', I5 /
  23.      +        ' vertical pixels:  ', I5 )
  24.  
  25.       END
  26.