10 OPTION ANGLE RADIANS
20 PRINT 'IN;SP1;SC0,279,-179,0'
30 FOR Z=10 TO 0 STEP -.20 @ FOR X=10 TO 0 STEP -.20
40 Y=-10*COS(3*SQR((X-5)*(X-5)+(Z-5)*(Z-5)))/2+50
50 A=X*20+Z*3+20 @ B=-(Y+Z*10)
60 PRINT 'PU;PA';A;',';B;';PD;PR.6,0'
70 NEXT X @ NEXT Z
80 END
