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