PROGRAM TGRATS
      DIMENSION KPX(6),KPY(6)
C                     test the graphics utitlities
      CHARACTER *1 ANS
C                    OPEN THE GRAPHICS STREAM
      DATA KPX/100,300,800,1000,800,300/
      DATA KPY/500,200,200,500,800,800/
      CALL GRATS(10)
      OPEN( 5,FILE='KB:',ERR=90,IOSTAT=IOS)
      PRINT *,' hit any key to start'
      READ (5,101)ANS
      CALL MODE(1)
      CALL WINDOW(32,31,39,0)
      PRINT *,' Rectangle fill'
       CALL GCOL(0,2)
C             SET COLOUR,  & fill whole screen
    6 PRINT *,'Enter top right x,y'
      READ(5,*,END=80,ERR=6)IX,IY
  102 FORMAT(2I4)
       CALL RECTAN(0,0,IX,IY)
       CALL GCOL(0,1)
       PRINT *,' now make filled polygon'
       READ(5,101)ANS
       CALL POLY(6,KPX,KPY)
       PRINT *,' now make it cyan'
       READ(5,101)ANS
       CALL VDU19(1,6)
C           TEXT window for commands
       READ(5,101)ANS
  101 FORMAT(A1)
C             CHANGE COLOUR
       CALL GCOL(0,1)          
       CALL COLOUR(1)
      PRINT *,'Linefill'
C              fill screen with lines
       DO 10 IY=0,1020,4
       CALL LINE(0,IY,1020,IY)
   10 CONTINUE
      READ(5,101)ANS      
      CALL COLOUR(2)
      CALL GCOL(0,3)
      PRINT *,'SPOTFILL'
C             now fill screen with spots
       DO 20 IX=0,1020,20
       DO 20 IY=0,1020,20
       CALL SPOT(IX,IY)
   20  CONTINUE          
       PRINT *,' circle'   
       CALL GCOL(3,2)
       CALL MOVE(640,512)
       CALL PLOT(153,200,0)         
       STOP
   80  PRINT *,' eof on input'
       STOP 
   90  PRINT *,' error from OPEN '
       STOP
       END