      SUBROUTINE SHOWDATA
C CALLS THE SUBROUTINES THAT PLOT THE BOX AND THE POINTS ON THE SCREEN
      IMPLICIT UNDEFINED (A-Z)
      INCLUDE 'PARAMETR.INC'
      INCLUDE 'ELLIPSE.INC'
      REAL*8   ANGLE
      CHARACTER*25 XRYRSTR, B1B2STR, PERPSTR

C MAKE THE GRAPHICS BOX
      CALL PGSCI(5)                           ! 5 = CYAN
      CALL PGRNGE(RAMAX,RAMIN,RAHI,RALO)      ! NOTE MAX/MIN REVERSAL
                                              ! ALONG R.A. AXIS
C      WRITE(PR,'(1X,A,4(E11.4,1X))')
C     1 'SHOWDATA: RAMAX,RAMIN,RAHI,RALO=',RAMAX,RAMIN,RAHI,RALO
      CALL PGRNGE(DECMIN,DECMAX,DECLO,DECHI)
C      WRITE(PR,'(1X,A,4(E11.4,1X))')
C     1 'SHOWDATA: DECMIN,DECMAX,DECLO,DECHI=',DECMIN,DECMAX,DECLO,DECHI
      CALL PGSCH(1.5)                         ! BIG CHARS=>LOTSA ROOM
      CALL PGENV(RAHI,RALO,DECLO,DECHI,1,AXIS)
      CALL EGA_RESTORE_DEFAULT
C UPDATE AND WRITE TITLES
      ANGLE = A_ANGLE / RPDEG
      IF (TRUFIT) THEN
          WRITE (TITLE(4),1001) A_TRUE, E_TRUE, PERIOD, EPOCH
          WRITE (TITLE(5),1002) INCLIN/RPDEG, ASC_NODE/RPDEG, 
     1                          ARG_PERI/RPDEG,CHISQ
      ELSE
          WRITE (TITLE(4),1003) A_APP, B_APP, E_APP, ANGLE, CRA, CDEC
          WRITE (TITLE(5),1004) ARA(1),ADEC(1),ARA(2),ADEC(2),
     1                      BRA(1),BDEC(1),BRA(2),BDEC(2)
      END IF
      CALL PGSCI(1)                           ! 1 = WHITE
      CALL PGSCH(1.5)
      CALL PGMTEXT('T',1.5,0.5,0.5,TITLE(1))
      CALL PGSCH(1.0)
      CALL PGMTEXT('B',3.0,0.5,0.5,TITLE(2))
      CALL PGMTEXT('L',3.0,0.5,0.5,TITLE(3))
      CALL PGMTEXT('B',4.0,0.5,0.5,TITLE(4))
      CALL PGMTEXT('B',5.0,0.5,0.5,TITLE(5))
      IF (ELLFIT) CALL PGMTEXT('R',2.0,0.5,0.5,TITLE(6))

C PLOT POINTS AND ERROR BARS ON THE SCREEN

      CALL EGA_RESTORE_DEFAULT
      CALL POINTPLT

C PLOT THE ELLIPSE ON THE SCREEN

      CALL ELLPLOT

  100 RETURN

 1001 FORMAT(' a = ',F6.2,' mas    e = ',F5.3,'    P = ',F9.4,
     1       'd     T = JD ',F11.3)                     ! 69 CHARACTERS
 1002 FORMAT(' i = ',F6.2,' deg   |gW = ',F6.2,         
     1       ' deg   |gw = ',F6.2,' deg     |gx|u2|d = ',F10.2)
                                                        ! 79 CHARACTERS
 1003 FORMAT(' A=',F5.1,'; B=',F5.1,'; E=',F5.3,'; THETA=',F6.1,
     1        '; CTR=',F6.1,','1X,F6.1)           ! 60 CHARACTERS
 1004 FORMAT(' MAJ AX ',F6.1,1X,F6.1,'; ',F6.1,1X,F6.1,'; MIN',
     1        ' AX ',F6.1,1X,F6.1'; ',F6.1,1X,F6.1)    ! 76 CHARS

      END


