10  PRINT 
20  PRINT 
30  PRINT "PLEASE ENTER ONE CHARACTER AS YOUR PLOT CONSTANT. EX (*)....";
40  INPUT A$
50  PRINT 
60  PRINT 
70  DEF FNA()=30*EXP(-*/100)
80  PRINT 
90  FOR X=-30 TO 30 STEP 1.5
100  L=0
110  Y1=5*INT(SQR(900-X*X)/5)
120  FOR Y=Y1 TO -Y1 STEP -5
130  Z=INT(25+FNA(SQR(X*X+Y*Y))-.7*Y)
140  IF Z <= L THEN 170
150  L=Z
160  PRINT TAB(Z);A$;
170  NEXT Y
180  PRINT 
190  NEXT X
200  END 
