SUBROUTINE SSCOPY (FROM, TO)
      INTEGER FROM(1), TO(1)
      I = 0
23000 CONTINUE
      I=I+1
      TO(I)=FROM(I)
23001 IF(.NOT.(((TO(I).AND.177400K).EQ.0) .OR. ((TO(I).AND.377K).EQ.0)))
     *GOTO 23000
23002 CONTINUE
      RETURN
      END