Lbl W
ClrHome
Output(2,2,D)
Output(2,8,E)
Output(2,14,F)
Output(2,20,G)
Output(3,2,I)
Output(3,8,J)
Output(3,14,K)
Output(3,20,L)
Output(4,2,N)
Output(4,8,O)
Output(4,14,P)
Output(4,20,Q)
Output(5,2,S)
Output(5,8,T)
Output(5,14,U)
Output(5,20,V)
Input "Richting",Z
If Z=8
//Rij 1
If I=D and I!=0 and D!=0
Then
2*D->D
0->I
End
If D=0 and I!=0
Then
I->D
0->I
End
If N=I and I!=0 and N!=0
Then
2*I->I
0->N
End
If I=0 and N!=0
Then
N->I
0->N
End
If S=N and S!=0 and N!=0
Then
2*N->N
0->S
End
If N=0 and S!=0
Then
S->N
0->S
End
If I=D and I!=0 and D!=0
Then
2*D->D
0->I
End
If D=0 and I!=0
Then
I->D
0->I
End
If N=I and N!=0 and I!=0
Then
2*I->I
0->N
End
If I=0 and N!=0
Then
N->I
0->N
End
If I=D and I!=0 and D!=0
Then
2*D->D
0->I
End
If D=0 and I!=0
Then
I->D
0->I
End
//Rij 2
If J=E and J!=0 and E!=0
Then
2*E->E
0->J
End
If E=0 and J!=0
Then
J->E
0->J
End
If O=J and J!=0 and O!=0
Then
2*J->J
0->O
End
If J=0 and O!=0
Then
O->J
0->O
End
If T=O and T!=0 and O!=0
Then
2*O->O
0->T
End
If O=0 and T!=0
Then
T->O
0->T
End
If J=E and J!=0 and E!=0
Then
2*E->E
0->J
End
If E=0 and J!=0
Then
J->E
0->J
End
If O=J and J!=0 and O!=0
Then
2*J->J
0->O
End
If J=0 and O!=0
Then
O->J
0->O
End
If J=E and J!=0 and E!=0
Then
2*E->E
0->J
End
If E=0 and J!=0
Then
J->E
0->J
End
//Rij 3
If K=F and K!=0 and F!=0
Then
2*F->F
0->K
End
If F=0 and K!=0
Then
K->F
0->K
End
If P=K and P!=0 and K!=0
Then
2*K->K
0->P
End
If K=0 and P!=0
Then
P->K
0->P
End
If U=P and U!=0 and P!=0
Then
2*P->P
0->U
End
If P=0 and U!=0
Then
U->P
0->U
End
If K=F and K!=0 and F!=0
Then
2*F->F
0->K
End
If F=0 and K!=0
Then
K->F
0->K
End
If P=K and P!=0 and K!=0
Then
2*K->K
0->P
End
If K=0 and P!=0
Then
P->K
0->P
End
If K=F and K!=0 and F!=0
Then
2*F->F
0->K
End
If F=0 and K!=0
Then
K->F
0->K
End
//Rij 4
If L=G and L!=0 and G!=0
Then
2*G->G
0->L
End
If G=0 and L!=0
Then
L->G
0->L
End
If Q=L and Q!=0 and L!=0
Then
2*L->L
0->Q
End
If L=0 and Q!=0
Then
Q->L
0->Q
End
If V=Q and V!=0 and Q!=0
Then
2*Q->Q
0->V
End
If Q=0 and V!=0
Then
V->Q
0->V
End
If L=G and L!=0 and G!=0
Then
2*G->G
0->L
End
If G=0 and L!=0
Then
L->G
0->L
End
If Q=L and Q!=0 and L!=0
Then
2*L->L
0->Q
End
If L=0 and Q!=0
Then
Q->L
0->Q
End
If L=G and L!=0 and G!=0
Then
2*G->G
0->L
End
If G=0 and L!=0
Then
L->G
0->L
End