home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / Low Level Languages / FORTRAN.500 / DISK6 / RGMAIN.FO$ / RGMAIN.bin
Encoding:
Text File  |  1990-10-22  |  404 b   |  19 lines
  1. CC  RGMAIN.FOR - Illustrates real coordinate graphics.
  2.  
  3. $NOTRUNCATE
  4. $NOTSTRICT
  5.  
  6.       INCLUDE  'FGRAPH.FI'
  7.       INCLUDE  'FGRAPH.FD'
  8.  
  9.       LOGICAL  fourcolors
  10.       EXTERNAL fourcolors
  11.  
  12.       IF( fourcolors() ) THEN
  13.          CALL threegraphs()
  14.       ELSE
  15.          WRITE (*,*) ' This program requires a CGA, EGA, or',
  16.      +               ' VGA graphics card.'
  17.       END IF
  18.       END 
  19.