TITLE RN RANDOM REAL FROM 1.0 TO 131071. SUBTTL V.001 J. BURCHFIEL 28 MAY 1969 ENTRY RN INTERN RN EXTERN RANDOM P=17 RN: Z PUSH P,1 JSA 16,RANDOM JUMP 2,[1.0] JUMP 2,[^D131071.] POP P,1 JRA 16,1(16) END