^{EffEcr
Disp "    SNACK
Disp "    VERS 1.6
Disp "
Disp " PROGRAMMING BY
Disp "    TETAR 27
Output(7,1,"TETAR-27.WEBNODE.FR
For(U,1,300
1 -> A
End
EffEcr
Output(1,1,"SURVIVEZ LE PLUSLONGTEMPS EN    EVITANT VOTRE   QUEUE.VOUS      POUVEZ APPUIVEZ SUR ENTRER QUANDVOTRE POUVOIR   EST ACTIVE
Pause
0 -> Xmin
94 -> Xmax
-62 -> Ymin
0 -> Ymax
EffDessin
Ligne(0,-62,94,-62
Ligne(0,-1,94,-1
Ligne(0,0,94,0
Ligne(0,0,0,-62
Ligne(94,-62,94,0
0 -> C
{1,47,30} -> L1
0 -> S
1 -> A
While A
S+1 -> S
C+1 -> C
codeTouch( -> K
If K≥24 et (K≤26 ou K=34)
Then
(K=24)*4+(K=25)+(K=26)*2+(K=34)*3 -> L1(1)
End
L1(2)+(L1(1)=2)*3-(L1(1)=4)*3 -> L1(2)
L1(3)+(L1(1)=3)*3-(L1(1)=1)*3 -> L1(3)
If L1(3)=0
Then
60 -> L1(3)
Else
If L1(3)=63:3 -> L1(3)
End
If L1(2)=-1
Then
92 -> L1(2)
Else
If (L1(2)=95):2 -> L1(2)
End
1-(pxl-Test(L1(3)-1,L1(2))) -> A
Pt-Aff(L1(2),-L1(3),2
Pt-Aff(L1(2),-L1(3)
If C>50
Then
Pt-NAff(L1(2),-L1(3)
If K=105
Then
For(Y,2,93,3
Pt-NAff(Y,-L1(3),2
Pt-NAff(Y,-L1(3)
End
For(Y,3,61,3
Pt-NAff(L1(2),-Y,2
Pt-NAff(L1(2),-Y
End
0 -> C
End
End
End
EffEcr
Disp "SCORE:",S}