C THIS DEMONSTRATES THE USE OF GRAF2, BY PLOTTING C SEVERAL GRAPHS ON THE SAMPLE PLOT FRAME. C REAL X(100), Y(100) DO 10 J=1,100 X(J) = J Y(J) = SIN(X(J)/5.0) * EXP(-X(J)/30.0) + 1.0 10 CONTINUE C C DRAW THE CURVE, WITH AUTOSCALED AXES. C CALL GRYETK !DRAW MINOR TICK MARKS CALL GRAF2 (X, Y, 100, 2, 1, 1, 5661, 1 'Sample 4 - lin/lin', 'X axis', 'Y axis') C C draw another curve beside previous one C CALL GRAF2 (X, Y, 100, 3, 1, 4, 9981, 1 'Sample 4 - log/log', 'X axis', 'Y axis') CALL EXIT END