GridOff
AxesOff
LabelOff
BG-None
CoordOff
ViewWindow 0,126,1,0,62,1
ClrText
[[0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0]]ŢMat A
Locate 1,1,"TAPEZ VOTRE MOT '=F1"
Locate 1,2,"PUIS APPUYEZ SUR EXE"
0ŢA~Z
1ŢB
Fill(1,Mat A)
Lbl 0
Getkey=ÍăGoto 0
GetkeyŢÍ
Í=0ăGoto 0
Í=27 Or Í=28 Or Í=29 Or Í=37 Or Í=38 Or Í=39 Or Í=47 Or Í=48 Or Í=49 Or Í=51 Or Í=57 Or Í=58 Or Í=59 Or Í=67 Or Í=68 Or Í=69 Or Í=77 Or Í=78ăGoto 0
Í=31ăGoto W
If Í=44
Then B=1ăGoto 0
B™1ŢB
Locate B,4," "
1ŢMat A[B,1]
Goto 0
IfEnd
B>20ăGoto 0
ÍŢMat A[B,1]
Locate B,4,"*"
Isz B
Goto 0
Lbl W
Cls
For 1ŢA To 20
Mat A[A,1]
Ansá0 And Ansá1 And Ansá61 And Ansá41ăText 5,6A,"_"
If Ans=41
Then Text 5,6A,"‡"
B™1ŢB
IfEnd
Ans=61ăB™1ŢB
If Ans=79
Then Text 5,6A,"'"
B™1ŢB
IfEnd
Next
Text 57,1,"NB DE COUP RESTANT 10"
Text 1,1,""
11ŢJ
Lbl 1
GetkeyŢÍ
Í=0ăGoto 1
0ŢG
Lbl L
For 1ŢH To 20
Í=0 And LáĐăGoto A
If Mat A[H,1]=Í Or L=Đ
Then ĐŢG
L=ĐăMat A[H,1]ŢÍ
6HŢI
Í=76ăText 5,I,"A"
Í=66ăText 5,I,"B"
Í=56ăText 5,I,"C"
Í=46ăText 5,I,"D"
Í=36ăText 5,I,"E"
Í=26ăText 5,I,"F"
Í=75ăText 5,I,"G"
Í=65ăText 5,I,"H"
Í=55ăText 5,I,"I"
Í=45ăText 5,I,"J"
Í=35ăText 5,I,"K"
Í=25ăText 5,I,"L"
Í=74ăText 5,I™1,"M"
Í=64ăText 5,I,"N"
Í=54ăText 5,I,"O"
Í=73ăText 5,I,"P"
Í=63ăText 5,I,"Q"
Í=53ăText 5,I,"R"
Í=43ăText 5,I,"S"
Í=33ăText 5,I,"T"
Í=72ăText 5,I,"U"
Í=62ăText 5,I,"V"
Í=52ăText 5,I™1,"W"
Í=42ăText 5,I,"X"
Í=32ăText 5,I,"Y"
Í=71ăText 5,I,"Z"
Text 1,1,""
1ŢMat A[H,1]
0ŢM
L=Đ And H=20ăGoto Z
LáĐăB™1ŢB
B=1ăGoto V
Else If GáĐ And H=20
Then Dsz J
If J=1
Then ĐŢL
Text 20,1,"PENDU"
Text 30,1,"SOLUTION"
ĐŢN
IfEnd
J=10ăGreen F-Line 70,10,110,10
J=9ăGreen F-Line 85,10,85,50
J=8ăGreen F-Line 85,50,100,50
J=7ăGreen F-Line 100,50,100,45
J=6ăGreen Circle 100,40,5
J=5ăGreen F-Line 100,35,100,25
J=4ăGreen F-Line 100,25,90,15
J=3ăGreen F-Line 100,25,110,15
J=2ăGreen F-Line 100,30,110,30
J=1ăGreen F-Line 100,30,90,30
Text 57,80,"  "
Orange Text 57,84,J™1
Text 1,1,""
N=ĐăGoto L
IfEnd
IfEnd
Lbl A
Next
Goto 1
Lbl V
ĐŢM
Lbl Z
For 1ŢZ To 88
Text 20,1,"      "
L=ĐăText 20,1,"PENDU"
M=ĐăText 20,1,"GAGNE"
Next
Stop