Filename:REAC-NEW
Locate 14,5,"   "
Mat D[1,1]+1->Mat D[1,1]
Mat D[1,1]->G
Locate 14,6,G
0.13->L
-1->H
Do
H+1->H
Locate 14,5,H
Mat D[1,2]+H->J
Locate 4,6,J
Do
Int (Ran#*4)+1->Q
LpWhile Q=P
Q->P
P*5-2->D
If P=1
Then 72->U
IfEnd
If P=2
Then 62->U
IfEnd
If P=3
Then 52->U
IfEnd
If P=4
Then 42->U
IfEnd
Locate D,3,"*"
Prog "S-GKTIME"
If Z=31
Then U->Z
IfEnd
Locate D,3," "
L-0.001->L
LpWhile Z=U
Mat D[1,2]+H->Mat D[1,2]
If H>Mat D[1,3]
Then H->Mat D[1,3]
IfEnd
Mat D[1,2]->H
Locate 4,6,H
Locate 7,1,"********"