C     .TITLE WANTED
C
C   5 SEP 73 - READ IN FILE NAME OF POSTER FROM TTY
C  27 AUG 73 - MAKE SELF-CENTERED LINES
C  23 AUG 73 - PAUL HENDERSON
C
C  PROGRAM TO PRODUCE 'WANTED' POSTER
C
      CHARACTER*1 LINE,ITEM(75)
      CHARACTER*9 POSTER
      CHARACTER*188 A,B,C
      COMMON /ALPHA/LINE(11)
      EQUIVALENCE (ITEM(1),A),(ITEM(2),B)
      WRITE (4,*) ' ENTER FILE NAME OF POSTER, DEVICE 5'
      READ  (4,*) POSTER
   1  CALL OPEN (5,POSTER)
      READ (5,999,END=4) LINE
      WRITE (6,995)
      WRITE (6,996)
      CALL ALPHAS
   2  READ (5,998,END=3) ITEM
C
C  FIND OUT HOW MANY TRAILING SPACES WE HAVE
C
      IF (ITEM(75) .NE. ' ') GO TO 24
      DO 21 K=1,75
      IF (ITEM(76-K) .NE. ' ') GO TO 22
  21  CONTINUE
C
C  NOW MOVE LINE RIGHT BY HALF THE NUMBER OF TRAILING SPACES
C
  22  K = (K-1)/2
      IF (K .EQ. 0) GO TO 24
      DO 23 I=1,K
      C = A
      B = C
      ITEM(1) = ' '
  23  CONTINUE
  24  WRITE (6,997) ITEM
      GO TO 2
   3  CALL CLOSE (5)
      CALL CLOSE (6)
      GO TO 1
   4  STOP 7
 999  FORMAT (11A1)
 998  FORMAT (75A1)
 997  FORMAT (' ',75A1//)
 996  FORMAT (//////)
 995  FORMAT ('0  ')
      END
