10 CLS
20 PRINT "NORMAL DISTRIBUTIONN" 
30 DEFDBL A-Z : DEFSNG I,J,K
40 PRINT 
50 PRINT "(0=STANDARD, 1=NON-STANDARD)" 
60 PRINT "WHICH TYPE OF VARIABLE"; 
70 INPUT S 
80 IF S=0 THEN 140  
90 PRINT "MEAN"; 
100 INPUT M 
110 PRINT "STANDARD DEVIATION"; 
120 INPUT S 
130 GOTO 150  
140 S=1 
150 PRINT 
160 PRINT "(TO END PROGRAM ENTER X=99999)"
170 PRINT "X ="; 
180 INPUT Y
190 IF Y=99999 THEN 310
200 Y=ABS((Y-M)/S)
210 R=EXP(-Y^2/2)/2.5066282746
220 PRINT "FREQUENCY =";R 
230 Z=Y
240 Y=1/(1+.33267*ABS(Y))
250 T=.5-R*(.4361836*Y-.1201676*Y^2+.937298*Y^3)
260 IF Z>=0 THEN 280  
270 T=1-T 
280 PRINT "PROBABILITY =";T 
290 PRINT 
300 GOTO 170  
310 END