home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgLangD.iso / FORTRAN / DISK6 / EGA.FO$ / EGA.bin
Text File  |  1989-01-19  |  1KB  |  42 lines

  1. CC  EGA.FOR - Demonstrates use of EGA palettes.
  2.  
  3.       INCLUDE  'FGRAPH.FI'
  4.       INCLUDE  'FGRAPH.FD'
  5.  
  6.       INTEGER*2        dummy2
  7.       INTEGER*4        dummy4
  8.       RECORD /xycoord/ xy
  9.  
  10.       dummy2 = setvideomode( $ERESCOLOR )
  11.       dummy2 = setcolor( 4 )
  12.       dummy2 = rectangle( $GFILLINTERIOR, 50, 50, 200, 200 )
  13. C
  14. C     Display normal palette message.
  15. C
  16.       CALL settextposition( 1, 1, xy )
  17.       CALL outtext( 'Normal palette   ' )
  18.       CALL outtext( 'Press ENTER to continue' )
  19.       READ (*,*)          ! Wait for ENTER key to be pressed
  20.       dummy4 = remappalette( 4, $BLUE )
  21. C
  22. C     Display new palette message.
  23. C
  24.       CALL settextposition( 1, 1, xy )
  25.       CALL outtext( 'Remapped palette ' )
  26.       CALL outtext( 'Press ENTER to continue' )
  27.       READ (*,*)
  28.       dummy4 = remappalette( 4, $RED )
  29. C
  30. C     Display original palette message.
  31. C
  32.       CALL settextposition( 1, 1, xy )
  33.       CALL outtext( 'Restored palette ' )
  34.       CALL outtext( 'Press ENTER to clear the screen' )
  35.       READ (*,*)
  36. C
  37. C     Return to original video mode.
  38. C
  39.       CALL clearscreen( $GCLEARSCREEN )
  40.       dummy2 = setvideomode( $DEFAULTMODE )
  41.       END
  42.