SUBROUTINE HEADR
C** HEADR WRITE THE STAR TREK HEADER
       TYPE *,' '
       TYPE *,'   SPACE...  THE FINAL FRONTIER.'
       TYPE *,'  THESE ARE VOYAGES OF THE STARSHIP ENTERPRISE.'
       TYPE *,'  ITS FIVE YEAR MISSION :'
       TYPE *,'   TO EXPLORE STRANGE NEW WORLDS;'
       TYPE *,'   TO SEEK OUT NEW LIFE AND NEW CIVILIZATIONS;'
       TYPE *,'   TO BOLDLY GO WHERE NO MAN HAS GONE BEFORE.'
       TYPE *,' '
       TYPE 1001
       TYPE 1002
       TYPE 1003
       TYPE 1004
       TYPE 1005
 1001  FORMAT(1X,'SSSS  TTTTTT    AAA    RRRRR  ',
     1 '       TTTTTT  RRRRR    EEEEE  KK  KK')
 1002  FORMAT(1X,'SS      TT     AA AA   RR  RR ',
     1 '         TT    RR  RR   EE     KK KK')
 1003  FORMAT(1X,'SSSS    TT    AA   AA  RRRRR  ',
     1 '         TT    RRRRR    EEEE   KKK')
 1004  FORMAT(1X,'  SS    TT    AAAAAAA  RR  RR ',
     1 '         TT    RR  RR   EE     KK KK')
 1005  FORMAT(1X,'SSSS    TT    AA   AA  RR   RR',
     1 '         TT    RR   RR  EEEEE  KK   KK')
        RETURN
        END