$STORAGE: 4
$DO66
      SUBROUTINE FRNT(NA,NB)
C                       PUTS FOREGROUND SYMBOLS IN THE OUTPUT LINES
C     FROM NA+MOVE THROUGH NB+MOVE.
C
      COMMON MOVE
      COMMON /LINES/ LINE(132),LINEX(132)
	CHARACTER*1 LINE,LINEX
      COMMON /SYMBOL/ NBLANK,NSYM,NSYMX,LFRONT,LFRNTX,LBACK,LBACKX
      I = NA + MOVE
      J = NB + MOVE - 1
      DO 10 K=I,J
      LINEX(K) = LFRNTX
10    LINE(K) = LFRONT
      RETURN
      END

