∞ Memory ∞

ClrText
0 A~Z
{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}->List 1     //36 0's
"PLACING CARDS..."
For 1 A To 16
Locate 19,3,(Int (A/16 x 100)
For 1 C To 2
Lbl 1
Int 32Ran#+1 B
List 1[B] ≠ 0 Goto 1
A List 1[B]
Next
Next
ClrText
For 1 B To 7 Step 2
For 4 A To 18 Step 2
Locate A, B, "O "    ' 1 espaço depois do O '
Next
Next
1 Z
4 G
1 H
1 I
While Z=1
Lbl 2
GetKey L
L ≠ 0 8( ( (H+1) /2) –1) + (G–2) /2 I
Locate G,H," "       ' 1 espaço '
If E=0 Or E=1
Then List 1[I] ≠ 0 Locate G, H, "O"
IfEnd
E ≠ 0 List 1[I] ≠ 0 Locate U, W, N
L ≠ 0 Goto 2
If L=28
Then H=1 3 H
H–2 H
IfEnd
If L=37
Then H=7 5 H
H+2 H
IfEnd
If L=38
Then G=4 6 G
G–2 G
IfEnd
If L=27
Then G=18 16 G
G+2 G
IfEnd
If L=31
Then If E=1
Then If G=U And H=W
Then Goto 3
IfEnd
0 E
If N=List1[I]
Then 0 List 1[I]
8 x ( ( (W–1) /2) –1) + (U–2) /2 R
0 List 1[R]
Locate U, W, "  "   ' 2 espaços '
Locate G, H, "  "    ' 2 espaços '
Isz K
Isz T
Goto 3
IfEnd
If N ≠ List 1[I]
Then 0 E
Isz T
Locate G, H, List 1[I]
For 1 A To 50
cos 30
Next
Locate U, W, "O "    ' 1 espaço depois do O '
Locate G, H, "O "     ' 1 espaço depois do O '
IfEnd
Goto 3
IfEnd
If E=0
Then 1 E
G U:H W
List 1[I] N
IfEnd
IfEnd
Lbl 3
K=16 Goto 4
WhileEnd
Lbl 4
ClrText
ClrList
Locate 8,2,"YOU WIN"
Locate 7,4,"TRIES:"
Locate 14,4,T

Instruções

Use as teclas direccionais para escolher a carta e <EXE> para virá-la.