$STORAGE: 4
$DO66
      SUBROUTINE BAXX(N,J)
C                       PUTS BACKGROUND SYMBOLS IN THE OUTPUT LINES;
C     FOR J.NE.1, PRINTS N LINES OF BACKGROUND.
C
      COMMON /LINES/ LINE(132),LINEX(132)
	CHARACTER*1 LINE,LINEX
      COMMON /SYMBOL/ NBLANK,NSYM,NSYMX,LFRONT,LFRNTX,LBACK,LBACKX
61    FORMAT(1X,132A1)
62    FORMAT(1H+,132A1)
      DO 10 I=1,132
      LINE(I) = LBACK
10    LINEX(I) = LBACKX
      IF(J.EQ.1) RETURN
      DO 20 I=1,N
      WRITE(2,61) LINE
      IF(LBACK.EQ.NBLANK) GO TO 20
      WRITE(2,62) LINEX
20    CONTINUE
      RETURN
      END

