bwBASIC/BAS-EXAMPLES/curve.bas

   50 rem 12/13/2019 Ken  curve
   60 SHELL "cls"
  100 REM PLOT A NORMAL DISTRIBUTION CURVE
  120 DEF FNN(X) = EXP(-(X^2/2))/SQR(2*3.14159265)
  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