; ************************* 
; Math/Utilities Library 12
; *************************
; Random Numbers 
; (Original TI-59)

#EMULATOR c:\ti-59\mu\12\MU-12.t59

#LISTING c:\ti-59\mu\12\MU-12.LST

#AZEMULATOR c:\ti-59\mu\12\MU-12.TI

lbl a                                  ;000
( ( 2 4 2 9 8 * rcl 9 + 9 9 9 9 1
) / 1 9 9 0 7 1 sto 9 ) ( ( inv int 
prd 9 * 5 inv log ) int / 5 inv log )
rtn

lbl b                                  ;047
a pgm 13 b rtn

#end