5 DEF FNA(Z)=30*EXP(-Z*Z/100)
  10 ' DEF FNA(Z)=SQR(900.01-Z*Z)*.9-2
  20 ' DEF FNA(Z)=30*(COS(Z/16))^2
  30 ' DEF FNA(Z)=30-30*SIN(Z/18)
  40 ' DEF FNA(Z)=30*EXP(-COS(Z/16))-30
  50 ' DEF FNA(Z)=30*SIN(Z/10)
 100 PRINT
 110 FOR X=-30 TO 30 STEP 1.5
 120 L=0
 130 Y1=5*INT(SQR(900-X*X)/5)
 140 FOR Y=Y1 TO -Y1 STEP -5
 150 Z=INT(25+FNA(SQR(X*X+Y*Y))-.7*Y)
 160 IF Z<=L THEN 190
 170 L=Z
 180 PRINT TAB(Z)"*";
 190 NEXT Y
 200 PRINT
 210 NEXTX
 300 END