SUBROUTINE PLAQUE 
      COMMON/PLAQ/ISCORE,PERDATE,ISKILL 
	LOGICAL*1 IHS,IHR,IHC,IHK,IHE,IHF,IHBLANK,IHDOT,IHP,IHB
	1 ,IHSTAR,IHT,IHQUEST,IHNUM,NAME(30)
      COMMON/HOLLER/IHEOL,IHREAL,IHALPHA,IHS,IHR,IHC,IHK,IHGREEN,IHRED, 
     +IHYELLO,IHDOCKD,IHE,IHF,IHBLANK,IHDOT,IHQUEST,IHP,IHSTAR,IHB
     +,IHT,IHNUM  
	COMMON/SCANBF/KEY,AITEM
	COMMON/PRLUN/LUN
11	CALL PROMPT(40HENTER NAME (UP TO 30 CHARACTERS:             ,40)
	READ(1,20,ERR=11,END=11) ICHAR,NAME
20	FORMAT(Q,30A1)
	NSKIP=65-ICHAR/2
	LUN=2
	CALL CLOSE(2)
	CALL ASSIGN(2,'LP:')
	WRITE(2,30)
30	FORMAT('1')
	CALL SKIP(4)
C--------DRAW ENTERPRISE PICTURE. 
	CALL PROUT(114H                                                  
     +              EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE, 
     +114) 
      CALL PROUT (114H                                      EEE         
     +             E  : :                                         :  E, 
     +114) 
      CALL PROUT (114H                                    EE   EEE      
     +             E  : :                   NCC-1701              :  E, 
     +114) 
      CALL PROUT (113H                    EEEEEEEEEEEEEEEE        EEEEEE 
     +EEEEEEEEE    E  : :                                         : E,
     +114) 
      CALL PROUT (112H                     E                            
     +         E    EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE
	1 ,114)
      CALL PROUT (81H                      EEEEEEEEE               EEEEE
     +EEEEEEEE                 E  E ,81) 
      CALL PROUT (81H                               EEEEEEE   EEEEE    E
     +          E              E  E ,81) 
      CALL PROUT (81H                                      EEE          
     + E          E            E  E ,81) 
      CALL PROUT (81H                                                   
     +    E         E          E  E ,81) 
      CALL PROUT (81H                                                   
     +      EEEEEEEEEEEEE      E  E ,81) 
      CALL PROUT (87H                                                   
     +   EEE :           EEEEEEE  EEEEEEEE,87) 
      CALL PROUT (88H                                                   
     + :E    :                 EEEE       E,88)
      CALL PROUT (88H                                                   
     +.-E   -:-----                       E,88)
      CALL PROUT (88H                                                   
     + :E    :                            E,88)
      CALL PROUT (87H                                                   
     +   EE  :                    EEEEEEEE,87) 
      CALL PROUT (81H                                                  
     +     EEEEEEEEEEEEEEEEEEEEEEE   ,81)
      CALL SKIP(3)
      CALL PROUT(74H                                                    
     +   U. S. S. ENTERPRISE,74) 
 5    CALL SKIP(1)
      CALL SKIP(3)
      CALL PROUT(93H                                  FOR DEMONSTRATING 
     +OUTSTANDING ABILITY AS A STARSHIP CAPTAIN,93) 
      CALL SKIP(1)
      CALL PROUT(81H                                                STAR      
     +FLEET COMMAND BESTOWS TO YOU ,81)
      CALL SKIP(1)
      DO 8 I=1,NSKIP
 8    CALL CRAM(1H )
	CALL CRAMS(NAME,ICHAR)
      CALL CREND
      CALL SKIP(1)
      CALL PROUT(71H                                                    
     +       THE RANK OF ,71)   
	CALL SKIP(1)
      CALL PROUT(75H                                                    
     +   "COMMODORE EMERITUS",75) 
	CALL SKIP(1)
      CALL CRAM(58H                     
     +                                     )
      IF(ISKILL .EQ. 4) CALL CRAM(8H EXPERT ) 
      IF(ISKILL .EQ. 5) CALL CRAM(9HEMERITUS )
      CALL CRAMDMP(5HLEVEL)
	CALL SKIP(1)
      CALL CRAM(66H                                                     
	1 THIS DAY OF )
	CALL DATE(NAME)
	CALL CRAMS(NAME,9)
	CALL CREND
      CALL SKIP(1)
      CALL CRAM(69H                                                     
	1   YOUR SCORE:  )
	CALL CRAMI(ISCORE,0)
	CALL CREND
      CALL SKIP(1)
      CALL CRAM(76H                                                    
	1KLINGONS PER STARDATE:   )
	CALL CRAMF(PERDATE,0,2)
	CALL CREND
	LUN=1
      RETURN      
      END