64 lines
No EOL
703 B
Text
64 lines
No EOL
703 B
Text
Filename:LOLLER
|
|
Lbl 1
|
|
ClrText
|
|
0->A~Z
|
|
1->N
|
|
Do
|
|
Lbl 2
|
|
If N=1
|
|
Then Int (Ran#*7)+1->Mat C[1,N]
|
|
N+1->N
|
|
IfEnd
|
|
If N!=1
|
|
Then N-1->R
|
|
Mat C[1,R]+Int (Ran#*3)-1->A
|
|
IfEnd
|
|
A->Mat C[1,N]
|
|
If Mat C[1,N]>7 Or Mat C[1,N]<1
|
|
Then Goto 2
|
|
IfEnd
|
|
N+1->N
|
|
LpWhile N<22
|
|
Lbl 2
|
|
1->N
|
|
Do
|
|
Mat C[1,N]->A
|
|
Locate N,A,"_"
|
|
A+1->R
|
|
While R<8
|
|
Locate N,R,"|"
|
|
R+1->R
|
|
WhileEnd
|
|
N+1->N
|
|
LpWhile N<22
|
|
1->N
|
|
0->Mat C[2,1]
|
|
-1->Mat C[2,2]
|
|
-2->Mat C[2,3]
|
|
Lbl 4
|
|
1->Q
|
|
Do
|
|
Mat C[2,Q]+1->Mat C[2,Q]
|
|
Mat C[2,Q]->G
|
|
If G<1 Or G>21
|
|
Then Goto 3
|
|
IfEnd
|
|
Mat C[1,G]->H
|
|
If Q=1 Or Q=3
|
|
Then Locate G,H,"L"
|
|
IfEnd
|
|
If Q=2
|
|
Then Locate G,H,"0"
|
|
IfEnd
|
|
Lbl 3
|
|
Q+1->Q
|
|
If Q=4 And G>1 And G<23
|
|
Then G-1->K
|
|
Mat C[1,K]->J
|
|
Locate K,J,"_"
|
|
IfEnd
|
|
LpWhile Q<4
|
|
If G<27
|
|
Then Goto 4
|
|
IfEnd
|
|
Goto 1 |