$STORAGE: 4
      SUBROUTINE SHADER(LINE,ME,X)
      IMPLICIT INTEGER (A-Z)
      DIMENSION LINE(ME),HLINE(120),OLINE(120)
	COMMON/HLNNN/HLINE,OLINE,M
C      DIMENSION ICH(32),JCH(32)
	CHARACTER*4 CRQ
	INTEGER*4 RQ
	EQUIVALENCE(CRQ,RQ)
      DATA CRQ/'   Q'/
      DATA BL/32/
C      DATA ICH/' ','1','2','3','4','5','6','7','8','9','A','B',
C     1   'C','D','E','F','G','H','I','J','K','L','M','N','O','P',
C     1   'Q','R','S','T','U','*'/
C      DATA JCH/'+','=',' ','=',' ','*',' ',' ',' ','X',' ',' ',' ',
C     1   ' ','A',' ','B',' ',' ',' ','E',' ',' ',' ','H',' ','Q',
C     1   ' ','Z','I','O','0'/
      IF (X.NE.RQ) RETURN
      IF (ME.GT.120) RETURN
      M=ME-1
      DO 10 I=2,M
      HLINE(I-1)=LINE(I)
      LINE(I)=BL
   10 CONTINUE
      RETURN
	END



