28 lines
No EOL
221 B
Text
28 lines
No EOL
221 B
Text
Filename:DICEGRID
|
|
ClrText
|
|
0->A~Z
|
|
"Formula (X,Y)"?->Y1
|
|
ClrText
|
|
"
|
|
|
|
|
|
|
|
|
|
"
|
|
1->W
|
|
6->Y
|
|
-2->V
|
|
Do
|
|
V+3->V
|
|
X+1->X
|
|
If X=7
|
|
Then Y-1->Y
|
|
W+1->W
|
|
1->X
|
|
1->V
|
|
IfEnd
|
|
If Y=0
|
|
Then Break
|
|
IfEnd
|
|
Locate V,W,Y1
|
|
LpWhile L=0 |