image of READY prompt

Wang2200.org

Listing of file='22A' on disk='vmedia/glbr_22.wvd.zip'

# Sector 534, program filename = '22A'
0001 X=1
0010 PRINT "NO.\A0O\C6 RANDOM NORMAL DEVIATES"
0020 INPUT N
0025 PRINT
0030 FOR I=1 TO N
0040 IF A=2.347 THEN 110
0050 A=2.347
0060 B=SQR(-2*LOG(RND(X)))
0070 C=6.2831853*RND(X)
0080 D=B*COS(C)
0090 B=B*SIN(C)
0100 GOTO 130
0110 D=B
0120 A=1
0130 PRINT D,
0140 NEXT I
0150 PRINT
0160 END