C     .TITLE ALPH
C
C  27 AUG 73 - CHANGE TO 19 'CHARACTERS' PER LINE
C  22 AUG 73 - PAUL HENDERSON
C
C  MAINLINE PROGRAM FOR TESTING SUBROUTINE ALPHAS
C
      CHARACTER*1 LINE
      COMMON /ALPHA/LINE(19)
   1  READ (5,999) LINE
      CALL ALPHAS
      GO TO 1
 999  FORMAT (19A1)
      END