(11C) Random Move

[Gamo]

This program simulate the Random Walk by observing the digit #8

Frist initialize screen display 1,111,111,111
When run the screen display 1,111,181,111 then
Number 8 will move randomly one digit left, right or stay put until
it move out of the screen either left or right edge and fall off.

--------------------------------------------

Procedure:

[A] Initialize display 1,111,111,111
[B] display 1,111,181,111 then #8 will randomly move until fall off the screen !!

Once you catch the #8 that fall out then Display show the Total Move.

--------------------------------------------
Program: FIX 9

Code:


LBL A
10
ENTER
10
Y^X
9
1/x
x
STO 1
7
EEX
4
STO 2
0
STO 0
RCL 1
RTN
-------------------------------
LBL B
1
STO+0
RCL 1
RCL 2
+
PSE
GSB 0
X=0
GTO B
X<0
GTO 1
RCL 2
10
x
STO 2
10
ENTER
10
Y^X
X<>Y
X>Y
GTO 2
GTO B
---------------------------
LBL 1
RCL 2
10
÷
STO 2
1
X>Y
GTO 2
GTO B
--------------------------
LBL 2
RCL 0
RTN
-------------------------
LBL 0
RAN#
3
x
INT
1
-
RTN

Gamo