100 REM TRAZA UNA CURVA DE DISTRIBUCION NORMAL 110 120 DEF FNN(X) = EXP(-(X^2/2))/SQR(2*3.14159265) 130 140 FOR X = -2 TO 2 STEP .1 150 LET Y = FNN(X) 160 LET Y = INT(100*Y) 170 FOR Z = 1 TO Y 180 PRINT " "; 190 NEXT Z 200 PRINT "*" 210 NEXT X 220 END