Lbl E
Menu("2048","Start",R,"New Game",D,"Help",H,"Stoppen",F
Lbl R
Lbl W
ClrHome
Output(10,1,"Score:")
Output(10,7,Y)
Output(10,12,"Highscore:")
Output(10,22,M)
Output(2,4,D)
Output(2,10,E)
Output(2,16,F)
Output(2,22,G)
Output(4,4,I)
Output(4,10,J)
Output(4,16,K)
Output(4,22,L)
Output(6,4,N)
Output(6,10,O)
Output(6,16,P)
Output(6,22,Q)
Output(8,4,S)
Output(8,10,T)
Output(8,16,U)
Output(8,22,V)
Input "Richting",Z
If Z=8
Goto A
If Z=4
Goto B
If Z=2
Goto C
If Z=6
Goto R
If Z=5
Goto F
End
Lbl A
If I=D and I!=0 and D!=0
Then
2*D->D
0->I
M+D->M
1->X
End
If D=0 and I!=0
Then
I->D
0->I
1->X
End
If N=I and I!=0 and N!=0
Then
2*I->I
0->N
M+I->M
1->X
End
If I=0 and N!=0
Then
N->I
0->N
1->X
End
If S=N and S!=0 and N!=0
Then
2*N->N
0->S
M+N->M
1->X
End
If N=0 and S!=0
Then
S->N
0->S
1->X
End
If I=D and I!=0 and D!=0
Then
2*D->D
0->I
M+D->M
1->X
End
If D=0 and I!=0
Then
I->D
0->I
1->X
End
If N=I and N!=0 and I!=0
Then
2*I->I
0->N
M+I->M
1->X
End
If I=0 and N!=0
Then
N->I
0->N
1->X
End
If I=D and I!=0 and D!=0
Then
2*D->D
0->I
M+D->M
1->X
End
If D=0 and I!=0
Then
I->D
0->I
1->X
End
If J=E and J!=0 and E!=0
Then
2*E->E
0->J
M+E->M
1->X
End
If E=0 and J!=0
Then
J->E
0->J
1->X
End
If O=J and J!=0 and O!=0
Then
2*J->J
0->O
M+J->M
1->X
End
If J=0 and O!=0
Then
O->J
0->O
1->X
End
If T=O and T!=0 and O!=0
Then
2*O->O
0->T
M+O->M
1->X
End
If O=0 and T!=0
Then
T->O
0->T
1->X
End
If J=E and J!=0 and E!=0
Then
2*E->E
0->J
M+E->M
1->X
End
If E=0 and J!=0
Then
J->E
0->J
1->X
End
If O=J and J!=0 and O!=0
Then
2*J->J
0->O
M+J->M
1->X
End
If J=0 and O!=0
Then
O->J
0->O
1->X
End
If J=E and J!=0 and E!=0
Then
2*E->E
0->J
M+E->M
1->X
End
If E=0 and J!=0
Then
J->E
0->J
1->X
End
If K=F and K!=0 and F!=0
Then
2*F->F
0->K
M+F->M
1->X
End
If F=0 and K!=0
Then
K->F
0->K
1->X
End
If P=K and P!=0 and K!=0
Then
2*K->K
0->P
M+K->M
1->X
End
If K=0 and P!=0
Then
P->K
0->P
1->X
End
If U=P and U!=0 and P!=0
Then
2*P->P
0->U
M+P->M
1->X
End
If P=0 and U!=0
Then
U->P
0->U
1->X
End
If K=F and K!=0 and F!=0
Then
2*F->F
0->K
M+F->M
1->X
End
If F=0 and K!=0
Then
K->F
0->K
1->X
End
If P=K and P!=0 and K!=0
Then
2*K->K
0->P
M+K->M
1->X
End
If K=0 and P!=0
Then
P->K
0->P
1->X
End
If K=F and K!=0 and F!=0
Then
2*F->F
0->K
M+F->M
1->X
End
If F=0 and K!=0
Then
K->F
0->K
1->X
End
If L=G and L!=0 and G!=0
Then
2*G->G
0->L
M+G->M
1->X
End
If G=0 and L!=0
Then
L->G
0->L
1->X
End
If Q=L and Q!=0 and L!=0
Then
2*L->L
0->Q
M+L->M
1->X
End
If L=0 and Q!=0
Then
Q->L
0->Q
1->X
End
If V=Q and V!=0 and Q!=0
Then
2*Q->Q
0->V
M+Q->M
1->X
End
If Q=0 and V!=0
Then
V->Q
0->V
1->X
End
If L=G and L!=0 and G!=0
Then
2*G->G
0->L
M+G->M
1->X
End
If G=0 and L!=0
Then
L->G
0->L
1->X
End
If Q=L and Q!=0 and L!=0
Then
2*L->L
0->Q
M+L->M
1->X
End
If L=0 and Q!=0
Then
Q->L
0->Q
1->X
End
If L=G and L!=0 and G!=0
Then
2*G->G
0->L
M+G->M
1->X
End
If G=0 and L!=0
Then
L->G
0->L
1->X
End
Goto R
Lbl B
If E=D and E!=0 and D!=0
Then
2*D->D
0->E
M+D->M
1->X
End
If D=0 and E!=0
Then
E->D
0->E
1->X
End
If F=E and F!=0 and E!=0
Then
2*E->E
0->F
M+E->M
1->X
End
If E=0 and F!=0
Then
F->E
0->F
1->X
End
If G=F and G!=0 and F!=0
Then
2*F->F
0->G
M+F->M
1->X
End
If F=0 and G!=0
Then
G->F
0->G
1->X
End
If E=D and E!=0 and D!=0
Then
2*D->D
0->E
M+D->M
1->X
End
If D=0 and E!=0
Then
E->D
0->E
1->X
End
If F=E and F!=0 and E!=0
Then
2*E->E
0->F
M+E->M
1->X
End
If E=0 and F!=0
Then
F->E
0->F
1->X
End
If E=D and E!=0 and D!=0
Then
2*D->D
0->E
M+D->M
1->X
End
If D=0 and E!=0
Then
E->D
0->E
1->X
End
If J=I and J!=0 and E!=0
Then
2*I->I
0->J
M+I->M
1->X
End
If I=0 and J!=0
Then
J->I
0->J
1->X
End
If K=J and J!=0 and K!=0
Then
2*J->J
0->K
M+K->M
1->X
End
If J=0 and K!=0
Then
K->J
0->K
1->X
End
If L=K and L!=0 and K!=0
Then
2*K->K
0->L
M+K->M
1->X
End
If K=0 and L!=0
Then
L->K
0->L
1->X
End
If J=I and J!=0 and E!=0
Then
2*I->I
0->J
M+I->M
1->X
End
If I=0 and J!=0
Then
J->I
0->J
1->X
End
If K=J and J!=0 and K!=0
Then
2*J->J
0->K
M+K->M
1->X
End
If J=0 and K!=0
Then
K->J
0->K
1->X
End
If J=I and J!=0 and E!=0
Then
2*I->I
0->J
M+I->M
1->X
End
If I=0 and J!=0
Then
J->I
0->J
1->X
End
If O=N and O!=0 and N!=0
Then
2*N->N
0->O
M+N->M
1->X
End
If N=0 and O!=0
Then
O->N
0->O
1->X
End
If P=O and P!=0 and O!=0
Then
2*O->O
0->P
M+O->M
1->X
End
If O=0 and P!=0
Then
P->O
0->P
1->X
End
If Q=P and Q!=0 and P!=0
Then
2*P->P
0->Q
M+P->M
1->X
End
If P=0 and Q!=0
Then
Q->P
0->Q
1->X
End
If O=N and O!=0 and N!=0
Then
2*N->N
0->O
M+N->M
1->X
End
If N=0 and O!=0
Then
O->N
0->O
1->X
End
If P=O and P!=0 and O!=0
Then
2*O->O
0->P
M+O->M
1->X
End
If O=0 and P!=0
Then
P->O
0->P
1->X
End
If O=N and O!=0 and N!=0
Then
2*N->N
0->O
M+N->M
1->X
End
If N=0 and O!=0
Then
O->N
0->O
1->X
End
If T=S and T!=0 and S!=0
Then
2*S->S
0->T
M+S->M
1->X
End
If S=0 and T!=0
Then
T->S
0->T
1->X
End
If U=T and U!=0 and T!=0
Then
2*T->T
0->U
M+T->M
1->X
End
If T=0 and U!=0
Then
U->T
0->U
1->X
End
If V=U and V!=0 and Q!=0
Then
2*U->U
0->V
M+U->M
1->X
End
If U=0 and V!=0
Then
V->U
0->V
1->X
End
If T=S and T!=0 and S!=0
Then
2*S->S
0->T
M+S->M
1->X
End
If S=0 and T!=0
Then
T->S
0->T
1->X
End
If U=T and U!=0 and T!=0
Then
2*T->T
0->U
M+T->M
1->X
End
If T=0 and U!=0
Then
U->T
0->U
1->X
End
If T=S and T!=0 and S!=0
Then
2*S->S
0->T
M+S->M
1->X
End
If S=0 and T!=0
Then
T->S
0->T
1->X
End
Goto R
Lbl C
If N=S and N!=0 and S!=0
Then
2*S->S
0->N
M+S->M
1->X
End
If S=0 and N!=0
Then
N->S
0->N
1->X
End
If I=N and I!=0 and N!=0
Then
2*N->N
0->I
M+N->M
1->X
End
If N=0 and I!=0
Then
I->N
0->I
1->X
End
If D=I and D!=0 and I!=0
Then
2*I->I
0->D
M+I->M
1->X
End
If I=0 and D!=0
Then
D->I
0->D
1->X
End
If N=S and N!=0 and S!=0
Then
2*S->S
0->N
M+S->M
1->X
End
If S=0 and N!=0
Then
N->S
0->N
1->X
End
If I=N and I!=0 and N!=0
Then
2*N->N
0->I
M+N->M
1->X
End
If N=0 and I!=0
Then
I->N
0->I
1->X
End
If N=S and N!=0 and S!=0
Then
2*S->S
0->N
M+S->M
1->X
End
If S=0 and N!=0
Then
N->S
0->N
1->X
End
If O=T and O!=0 and T!=0
Then
2*T->T
0->O
M+T->M
1->X
End
If T=0 and O!=0
Then
O->T
0->O
1->X
End
If J=O and J!=0 and O!=0
Then
2*O->O
0->J
M+O->M
1->X
End
If O=0 and J!=0
Then
J->O
0->J
1->X
End
If E=J and E!=0 and J!=0
Then
2*J->J
0->E
M+J->M
1->X
End
If J=0 and E!=0
Then
E->J
0->E
1->X
End
If O=T and O!=0 and T!=0
Then
2*T->T
0->O
M+T->M
1->X
End
If T=0 and O!=0
Then
O->T
0->O
1->X
End
If J=O and J!=0 and O!=0
Then
2*O->O
0->J
M+O->M
1->X
End
If O=0 and J!=0
Then
J->O
0->J
1->X
End
If O=T and O!=0 and T!=0
Then
2*T->T
0->O
M+T->M
1->X
End
If T=0 and O!=0
Then
O->T
0->O
1->X
End
If P=U and P!=0 and U!=0
Then
2*U->U
0->P
M+U->M
1->X
End
If U=0 and P!=0
Then
P->U
0->P
1->X
End
If K=P and K!=0 and P!=0
Then
2*P->P
0->K
M+P->M
1->X
End
If P=0 and K!=0
Then
K->P
0->K
1->X
End
If F=K and F!=0 and K!=0
Then
2*K->K
0->F
M+K->M
1->X
End
If K=0 and F!=0
Then
F->K
0->F
1->X
End
If P=U and P!=0 and U!=0
Then
2*U->U
0->P
M+U->M
1->X
End
If U=0 and P!=0
Then
P->U
0->P
1->X
End
If K=P and K!=0 and P!=0
Then
2*P->P
0->K
M+P->M
1->X
End
If P=0 and K!=0
Then
K->P
0->K
1->X
End
If P=U and P!=0 and U!=0
Then
2*U->U
0->P
M+U->M
1->X
End
If U=0 and P!=0
Then
P->U
0->P
1->X
End
If Q=V and Q!=0 and V!=0
Then
2*V->V
0->Q
M+V->M
1->X
End
If V=0 and Q!=0
Then
Q->V
0->Q
1->X
End
If L=Q and L!=0 and Q!=0
Then
2*Q->Q
0->L
M+Q->M
1->X
End
If Q=0 and L!=0
Then
L->Q
0->L
1->X
End
If G=L and G!=0 and L!=0
Then
2*L->L
0->G
M+L->M
1->X
End
If L=0 and G!=0
Then
G->L
0->G
1->X
End
If Q=V and Q!=0 and V!=0
Then
2*V->V
0->Q
M+V->M
1->X
End
If V=0 and Q!=0
Then
Q->V
0->Q
1->X
End
If L=Q and L!=0 and Q!=0
Then
2*Q->Q
0->L
M+Q->M
1->X
End
If Q=0 and L!=0
Then
L->Q
0->L
1->X
End
If Q=V and Q!=0 and V!=0
Then
2*V->V
0->Q
M+V->M
1->X
End
If V=0 and Q!=0
Then
Q->V
0->Q
1->X
End
Goto R
Lbl R
If F=G and F!=0 and G!=0
Then
2*G->G
0->F
M+G->M
1->X
End
If G=0 and F!=0
Then
F->G
0->F
1->X
End
If E=F and E!=0 and F!=0
Then
2*F->F
0->E
M+F->M
1->X
End
If F=0 and E!=0
Then
E->F
0->E
1->X
End
If D=E and D!=0 and E!=0
Then
2*E->E
0->D
M+E->M
1->X
End
If E=0 and D!=0
Then
D->E
0->D
1->X
End
If F=G and F!=0 and G!=0
Then
2*G->G
0->F
M+G->M
1->X
End
If G=0 and F!=0
Then
F->G
0->F
1->X
End
If E=F and E!=0 and F!=0
Then
2*F->F
0->E
M+F->M
1->X
End
If F=0 and E!=0
Then
E->F
0->E
1->X
End
If F=G and F!=0 and G!=0
Then
2*G->G
0->F
M+G->M
1->X
End
If G=0 and F!=0
Then
F->G
0->F
1->X
End
If K=L and K!=0 and L!=0
Then
2*L->L
0->K
M+L->M
1->X
End
If L=0 and K!=0
Then
K->L
0->K
1->X
End
If J=K and J!=0 and K!=0
Then
2*K->K
0->J
M+O->M
1->X
End
If K=0 and J!=0
Then
J->K
0->J
1->X
End
If I=J and I!=0 and J!=0
Then
2*J->J
0->I
M+I->M
1->X
End
If J=0 and I!=0
Then
I->J
0->I
1->X
End
If K=L and K!=0 and L!=0
Then
2*L->L
0->K
M+L->M
1->X
End
If L=0 and K!=0
Then
K->L
0->K
1->X
End
If J=K and J!=0 and K!=0
Then
2*K->K
0->J
M+O->M
1->X
End
If K=0 and J!=0
Then
J->K
0->J
1->X
End
If K=L and K!=0 and L!=0
Then
2*L->L
0->K
M+L->M
1->X
End
If L=0 and K!=0
Then
K->L
0->K
1->X
End
If P=Q and P!=0 and Q!=0
Then
2*Q->Q
0->P
M+Q->M
1->X
End
If Q=0 and P!=0
Then
P->Q
0->P
1->X
End
If O=P and O!=0 and P!=0
Then
2*P->P
0->O
M+P->M
1->X
End
If P=0 and O!=0
Then
K->P
0->O
1->X
End
If N=O and N!=0 and O!=0
Then
2*O->O
0->N
M+O>M
1->X
End
If O=0 and N!=0
Then
N->O
0->N
1->X
End
If P=Q and P!=0 and Q!=0
Then
2*Q->Q
0->P
M+Q->M
1->X
End
If Q=0 and P!=0
Then
P->Q
0->P
1->X
End
If O=P and O!=0 and P!=0
Then
2*P->P
0->O
M+P->M
1->X
End
If P=0 and O!=0
Then
K->P
0->O
1->X
End
If P=Q and P!=0 and Q!=0
Then
2*Q->Q
0->P
M+Q->M
1->X
End
If Q=0 and P!=0
Then
P->Q
0->P
1->X
End
If U=V and U!=0 and V!=0
Then
2*V->V
0->U
M+V->M
1->X
End
If V=0 and U!=0
Then
U->V
0->U
1->X
End
If T=U and T!=0 and U!=0
Then
2*U->U
0->T
M+U->M
1->X
End
If U=0 and T!=0
Then
T->U
0->T
1->X
End
If S=T and S!=0 and T!=0
Then
2*T->T
0->S
M+L->M
1->X
End
If T=0 and S!=0
Then
S->T
0->S
1->X
End
If U=V and U!=0 and V!=0
Then
2*V->V
0->U
M+V->M
1->X
End
If V=0 and U!=0
Then
U->V
0->U
1->X
End
If T=U and T!=0 and U!=0
Then
2*U->U
0->T
M+U->M
1->X
End
If U=0 and T!=0
Then
T->U
0->T
1->X
End
If U=V and U!=0 and V!=0
Then
2*V->V
0->U
M+V->M
1->X
End
If V=0 and U!=0
Then
U->V
0->U
1->X
End
Goto R
Lbl D
0->D:0->E:0->F:0->G:0->I:0->J:0->K:0->L:0->N:0->O:0->P:0->Q:0->S:0->T:0->U:0->V:0->M:1->X
Goto R
Lbl H
ClrHome
Disp "8=Omhoog"
Disp "6=Links"
Disp "2=Omlaag"
Disp "6=Rechts"
Disp "5=Stoppen"
Pause 
Goto E
End
Lbl F
Stop