SUBROUTINE SKIP(N)
      DO 10 L=1,N 
      CALL PROUT(0,1) 
 10   CONTINUE
      RETURN
      END