C		OLINE(X,Y,N,K)
C THIS PROGRAM DRAWS A LINE THROUGH THE POINTS
C (X(1),Y(1)),(X(1+K),Y(1+K)),(X(1+2K),Y(1+2K)),...,(X(N),Y(N)).
	SUBROUTINE OLINE(X,Y,N,K)
	DIMENSION X(1),Y(1)
	CALL OPLOT(X(1),Y(1),3)
	DO 1 I=1,N,K
1	CALL OPLOT(X(I),Y(I),2)
	CALL OPLOT(X(N),Y(N),2)
	RETURN
	END

