SUBROUTINE STATUS
C** WRITE STATUS REPORT
       COMMON /GENDTA/SDATE,COND(2),KLING,TMLEFT,ITORP,ENERGY,SHELDS
       COMMON /QUAD/IQAD(8,8),IQX,IQY
       COMMON /SECT/SEC(64,64),ISX,ISY,ISX8,ISY8
       TYPE *,'  STATUS REPORT'
       TYPE 1001,IQX,IQY,ISX8,ISY8
 1001  FORMAT(' ENTERPRISE IN QUADRANT ',2I3,/,17X,'SECTOR ',2I3)
       TYPE 1101,SDATE
 1101  FORMAT(15X,'STARDATE ',F8.2)
       TYPE 1002,COND,ENERGY,SHELDS
 1002  FORMAT(14X,'CONDITION  ',2A4,/,17X,'ENERGY ',F7.1
     * ,/,16X,'SHIELDS ',F7.1)
       TYPE 1003,ITORP,KLING,TMLEFT
1003   FORMAT(9X,'TORPEDOES LEFT ',I4,/,10X,'KLINGONS LEFT ',I4,
     * /,14X,'TIME LEFT ',F5.1)
       RETURN
       END