PREFIX :Random: %%% %%% Random: see Vol 2 page 185 %%% M GREG 2147483647 A GREG 48271 Q GREG 44488 R GREG 3399 X GREG 2147483647-1 :Random DIV $0,X,Q MUL $0,$0,R GET $1,:rR MUL $1,$1,A SUB X,$1,$0 BNN X,1F ADD X,X,M 1H SET $0,X POP 1,0 PREFIX :