44 lines
No EOL
549 B
Text
44 lines
No EOL
549 B
Text
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,"********" |