%begin
   %include "mach:extl1.imp"
   %include "inc:maths.imp"
   %integer i, j
   clear
   colour(white)
   line(0,255,687,255)
   line(343, 0, 343, 511)
   colour(blue)
   %for i = -343, 1, 344 %cycle
      plot(i+343, intpt(cos(i/100)*200)+255)
   %repeat
   colour(red)
   %for i = -343, 1, 344 %cycle
      plot(i+343, intpt(sin(i/100)*200)+255)
   %repeat
   colour(green)
   %for i = -343, 1, 384 %cycle
      plot(i+343, intpt(sqrt(i/400)*200)+255)
      plot(i+343, 255-intpt(sqrt(i/400)*200))
   %repeat
%end %of %program