LBL "RAND"
ENTER
INT
RCL Y
FRC
1000
*
LBL "RNDYX"
STO Z
RCL Y
-
1
+
100
/
STO 00
RDN
X<>Y
TIME
1/X
10000
*
FRC
100
*
RCL 00
*
RCL Z
+
INT
STO 00
RDN
1000
/
+
RCL 00
STOP
RDN
GTO "RAND"
END