Norm
3ÞV
3ÞL
Lbl I
ClrText
" "
Locate 9,1,"VIDAS"
Locate 11,4,VÝ
0ÞC
0ÞK
ClrText
{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
{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}ÞList 2
Fill(0,Mat Z)
4ÞY
11ÞX
If V=0
Then "©©©©©GAME©©©OVER©©©©©"
Stop
IfEnd
If L=2
Then For 5ÞP To 17
1ÞMat Z[4,P]
Locate P,4,"#"
Next
2ÞY
IfEnd
If L=3
Then For 2ÞQ To 6
1ÞMat Z[Q,7]
1ÞMat Z[Q,15]
Locate 7,Q,"#"
Locate 15,Q,"#"
Next
1ÞO
0ÞE
0ÞA
0ÞB
3ÞS
Lbl P
Int (18Ran#‰2)ÞP
Int (4Ran#‰2)ÞQ
Mat Z[Q,P]=1ãGoto P
Locate P,Q,(S™1)¹2
While 1
Bá0 Or Aá0ã1ÞC
GetkeyÞK
If X=P And Y=Q
Then S‰2ÞS
If S=21
Then L‰1ÞL
Goto I
IfEnd
GetkeyÞK
Goto P
IfEnd
Lbl C
X‰AÞX
Y™BÞY
O=Sã1ÞJ
GetkeyÞK
If J=1 And List 1[O]á0
Then Locate List 1[O],List 2[O]," "
0ÞMat Z[List 2[O],List 1[O]
IfEnd
GetkeyÞK
If X>0 And X<22 And Y>0 And Y<8
Then Locate X,Y,"O"
Else V™1ÞV
Goto I
IfEnd
GetkeyÞK
If Mat Z[Y,X]=1 And C=1
Then V™1ÞV
Locate X,Y,"X"Ý
Goto I
IfEnd
GetkeyÞK
1ÞMat Z[Y,X]
XÞList 1[O]
YÞList 2[O]
O=Sã0ÞO
O‰1ÞO
GetkeyÞK
If K=27 Or K=53
Then 0ÞB
A=0ã1ÞA
IfEnd
If K=38 Or K=73
Then 0ÞB
A=0ã‡1ÞA
IfEnd
GetkeyÞK
If K=28 Or K=64
Then 0ÞA
B=0ã1ÞB
IfEnd
If K=37 Or K=62 Or K=63
Then 0ÞA
B=0ã‡1ÞB
IfEnd
GetkeyÞK
WhileEnd