SUBROUTINE REPORT
C** REPORT CURRENT CONTIONS
       COMMON /ALANDS/VELCTY,GRAVTY,RETROR,TMPACT,ALTUDE,FUELR
       COMMON /DRAWER/ITIME,IHIGH
       DATA NONE/'  '/
C************************************************************
       CALL CURSOR(11,65,2,0,NONE)
       TYPE 1001,ALTUDE
       CALL CURSOR(11,65,3,0,NONE)
       TYPE 1001,VELCTY
       CALL CURSOR(11,65,5,0,NONE)
       TYPE 1001,TMPACT
       CALL CURSOR(11,65,6,0,NONE)
       TYPE 1001,FUELR
 1001  FORMAT(F8.3)
C** PLACE CAPSULE
       IY = (IHIGH - ALTUDE)/IHIGH*18 + 2.5
       IX = 8 + (ITIME-1)*2
       CALL CURSOR(11,IX,IY,1,'A')
       ITIME = ITIME + 1
       IF(ITIME .GT. 36)ITIME = 1
       RETURN
       END