```
Lbl GM:0→θ:RecallPic 0:Text(-1,0,7,P:0→H
If D>5:Then:{0→L_OUT:0→D:Text(30,10,"TOO MANY CARDS CHOSEN":Text(40,20,"CHOOSE AGAIN":Pause :Text(-1,30,10," ":Text(-1,40,20," ":
Goto DT:End
(V-1)/9+1+10(U=7)→C
For(W,48,54:Pxl-On(W+U,V:End
While θ=0:getKey→θ:End
If θ=15:Goto Q
For(W,48,54:Pxl-Off(W+U,V:End
If θ=24 and V=1:Then:If U=7:Then:82→V:10→C:0→U:Goto GM:End:If U=0:Then:19→V:7→U:Goto GM:End:End
If θ=24 and V≠1:Then:V-9→V:C-1→C:Goto GM:End
If θ=26
Then
If U=0 and V≠82:Then:V+9→V:Goto GM:End
If U=7 and V≠19:Then:V+9→V:Goto GM:End
If V=82 and U=0:Then:1→V:7→U:Goto GM:End
If V=19 and U=7:Then:1→V:0→U:Goto GM:End
End
If θ=25 and U=0 and V≤19:Then:7→U:Goto GM:End
If θ=25 and U=7 and V≤19:Then:0→U:Goto GM:End
If θ=34 and U=7 and V≤19:Then:0→U:If V≤3:C-10→C:Goto GM:End
If θ=34 and U=0 and V≤19:Then:7→U:If V≤3:C+10→C:Goto GM:End
If (θ=34 and (U=0 and V>19)) or (θ=25 and U=0 and V>19):Goto GM
If θ=21 and C≤dim(L_INPLY):Then:If L_INPLY(C)=0:Goto GM:End
If θ=21 and C≤dim(L_INPLY):Then:If L_INPLY(C)≠0:Then:For(X,1,8:Pxl-On(W+U-1,V+X:End:augment(L_OUT,{L_INPLY(C→L_OUT:0→L_INPLY(C:D+1→D:Goto GM:End:End
If θ=14 and T≠0 and G=3:Then:Text(-1,30,15,"CANNOT PASS":Pause :Text(-1,30,10," ":Goto GM:End
If θ=14 and T≠0 and G≠3:Then:{0→L_OUT:T+1→T:G+1→G:Goto DS:End
If θ=14 and T=0:Then:Text(25,3,"CAN NOT PASS ON FIRST PLAY":4→G:Pause :For(θ,0,16:Text(-1,25,5θ," ":End:Goto GM:End
If θ=13:Goto DT
If θ=105
Then
If 1=dim(L_OUT:Goto GM
If 1≠dim(L_OUT:Goto AC
End
Goto GM
```