home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgLangD.iso / Fortran.51 / DISK6 / RGMAIN.FO$ / RGMAIN.bin
Text File  |  1990-10-22  |  404b  |  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.