30.01 C***** SUBROUTINE 'NORAND' ***** FOR FOCAL8-150 FRAN ONLY 30.02 C-----GENERATES A NORMALLY DISTRIBUTED RANDOM NUMBER 30.03 C----- FOR A GIVEN POPULATION STANDARD DEVIATION (S) 30.10 S X=FRAN(0)*5;S Y=(FRAN(0)+1)/2;I (1/FEXP(X*X/2)-Y)30.1;S X=X*S *