@BPRINT"TO USE THIS PROGRAM, TYPE THESE TWO LINES:" @@@CPRINT"    1 GO TO 5"\PRINT"    5 DEF FNA(Z)= (FUNCTION TO BE PLOTTED)"@@@DPRINT"    RUN"\STOP @@@E DEF FNA(Z)=30*EXP(-Z*Z/100)@@@( PRINT@@@- LET I1=1 @@@2 FOR X=-30 TO 30 STEP 1.5 @@@< LET L1=-1@@AF LET Y1=5*INT(SQR(900.01-X*X)/5)@@AP FOR Y=Y1 TO -Y1 STEP -5@@AZ LET Z=INT(25+FNA(SQR(X*X+Y*Y))-.7*Y) @@A$ IF L1=-1 THEN 140@@A. IF Z>L1 THEN 180 @@A8 IF Z<L2 THEN 150 @@BB GOTO 200 @@BL LET L1=Z @@BV LET L2=Z @@B  IF Z=I1-1 THEN 166 @@B! FOR I=I1 TOZ @@B" PRINT " "; @@B$ NEXT I @@B& PRINT "*"; @@B' LET I1=Z+2 @@B* GOTO 200 @@B4 LET L1=Z @@B> GOTO 160 @@CH NEXT Y @@CR PRINT@@CW LET I1=1 @@C\ NEXT X @@C& PRITNT @@C0 END@@
?@@C0 END@@
?@@10";TAB(35);"0";@@E- PRINT TAB(44);"+10";TAB(54);"+20";TAB(64);"+30"; @@E2 GOTO 390 @@E< PRINT TAB(35);".";TAB(Y);"*" @@FF NEXT X @@FP PRINT TAB(33);"X =";X2 @@FZ PRINT@@F8 END@@
?@@YD%\IE\K%=*CI>>(+1H YDH X?H\Y@I>8!HXYA%\I>X:%;IAK>= +)8!HX=H+?XXY>-<I>>(+9: ID> $E@O%\+U;T=?$E@AA@@V@&@F?8?GM<LKL/M
[?.M@@[?YR%:JAYUK??(**%'H?> **: