Important Notice

The pages on this site contain documentation for very old MS-DOS software, purely for historical purposes. If you're looking for up-to-date documentation, particularly for programming, you should not rely on the information found here, as it will be woefully out of date.

                                             ◄Up► ◄Contents► ◄Index► ◄Back►
────────────────────────────────────────────────────────────────────────────
 
CC  EGA.FOR - Demonstrates use of EGA palettes.
 
      INCLUDE  'FGRAPH.FI'
      INCLUDE  'FGRAPH.FD'
 
      INTEGER*2        dummy2
      INTEGER*4        dummy4
      RECORD /xycoord/ xy
 
      dummy2 = setvideomode( $ERESCOLOR )
      dummy2 = setcolor( 4 )
      dummy2 = rectangle( $GFILLINTERIOR, 50, 50, 200, 200 )
C
C     Display normal palette message.
C
      CALL settextposition( 1, 1, xy )
      CALL outtext( 'Normal palette   ' )
      CALL outtext( 'Press ENTER to continue' )
      READ (*,*)          ! Wait for ENTER key to be pressed
      dummy4 = remappalette( 4, $BLUE )
C
C     Display new palette message.
C
      CALL settextposition( 1, 1, xy )
      CALL outtext( 'Remapped palette ' )
      CALL outtext( 'Press ENTER to continue' )
      READ (*,*)
      dummy4 = remappalette( 4, $RED )
C
C     Display original palette message.
C
      CALL settextposition( 1, 1, xy )
      CALL outtext( 'Restored palette ' )
      CALL outtext( 'Press ENTER to clear the screen' )
      READ (*,*)
C
C     Return to original video mode.
C
      CALL clearscreen( $GCLEARSCREEN )
      dummy2 = setvideomode( $DEFAULTMODE )
      END