10 REM--SAMPLE PROGRAM TO DEMONSTRATE RANDEV
20 M=0
30 S=1
40 FOR A=1 TO 20
50 GOSUB 9000
60 PRINT R0;
70 NEXT A
75 GOTO 9999
9000REM******RANDEV********STATISTICS SUBROUTINE
9001REM *****VERSION 1*****7/31/69*****
9002REM GENERATES RANDOM DEVIATES
9003 R0=0
9004 FOR Z9=1 TO 48
9005 R0=R0+RND
9006 NEXT Z9
9007 R0=S*R0/2+M-12*S
9008 RETURN
9999END