Virtual x(41), y1(41), y2(41) c do 10 i = 1, 41 x(i) = .05 * (i - 1) xx = 3.141592654 * x(i) y1(i) = cos(xx) y2(i) = sin(xx) 10 continue c call iniplt(7, 10., 7.) call FRAME(0., 5., 0., 7.) call WINDOW(1., 4., 1.4, 5.6) call scale(0., 2., -1., 1.) call axis(.5, .5, 'x', 1, 2, 1, 'y', 1, 2, 1) call VDASHL(x, y1, 41, 1, -1, 2, 1, 0) call VDASHL(x, y2, 41, 2, -1, 2, 1, 5) call inilgn(1., 5., 5., 6.5) call wrilgn('curve 1', 7, 1, -1, 1, 0) call wrilgn('curve 2', 7, 2, -1, 1, 5) call endlgn c call FRAME(5., 10., 0., 7.) call WINDOW(1., 4., 1.4, 5.6) call scale(0., 2., -1., 1.) call axis(.5, .5, 'x', 1, 2, 1, 'y', 1, 2, 1) call VDASHL(x, y1, 41, 3, 3, 2, 1, 8) call VDASHL(x, y2, 41, 4, 2, 2, 1, -1) call inilgn(6., 10., 5., 6.5) call wrilgn('curve 3', 7, 3, 3, 1, 8) call wrilgn('curve 4', 7, 4, 2, 1, -1) call endlgn c call frame(0., 10., 0., 7.) call pltstr(289, 661, 'An uninteresting example', 24, 1, 3) call endplt c end