5 hires 13,0 10 dim m(255) 15 a=cos(3.141592654/4) 20 for y=1 to 141 step 5 25 e=ay 27 c=y-70 29 c=cc 30 for x=1 to 141 34 d=x-70 40 z=80exp(-0.001(c+d*d)) 50 x1=x+e 60 y1=z+e 70 if y1>=m(x1) then m(x1)=y1: plot x1,199-y1,1 80 next x,y 90 goto 90