00100 C OLINE(X,Y,N,K)
00200 C THIS PROGRAM DRAWS A LINE THROUGH THE POINTS
00300 C (X(1),Y(1)),(X(1+K),Y(1+K)),(X(1+2K),Y(1+2K)),...,(X(N),Y(N)).
00400 SUBROUTINE OLINE(X,Y,N,K)
00500 DIMENSION X(1),Y(1)
00600 CALL OPLOT(X(1),Y(1),3)
00700 DO 1 I=1,N,K
00800 1 CALL OPLOT(X(I),Y(I),2)
00900 CALL OPLOT(X(N),Y(N),2)
01000 RETURN
01100 END