ViewWindow 1,127,0,63,1,0
Cls
Green F-Line 2,2,125,2
Green F-Line 125,2,125,61
Green F-Line 125,61,2,61
Green F-Line 2,61,2,2
GetkeyăGoto Î
Orange F-Line 23,12,15,30
Orange F-Line 15,30,26,31
Orange F-Line 29,22,36,23
Orange F-Line 36,23,35,32
Orange F-Line 35,32,29,30
Orange F-Line 29,30,28,27
Orange F-Line 28,27,35,26
GetkeyăGoto Î
Orange F-Line 41,14,39,32
Orange F-Line 40,31,46,30
Orange F-Line 46,30,46,26
Orange F-Line 46,26,41,24
Orange F-Line 48,24,51,31
Orange F-Line 54,23,48,40
GetkeyăGoto Î
Text 18,62,8
Text 22,62,8
Text 26,62,8
Text 18,65,"Ś"
Text 21,67,"Ś"
Text 23,65,"Ś"
PlotOn 68,23
Text 26,67,"Ś"
Text 28,69,"Ś"
PlotOn 68,28
Text 20,75,8
Text 24,75,8
Text 18,78,"Ś"
Text 28,78,"Ś"
GetkeyăGoto Î
Text 20,81,8
Text 24,81,8
Text 20,87,8
Text 24,87,8
Text 18,90,"Ś"
Text 18,93,"Ś"
Text 28,90,"Ś"
Text 28,93,"Ś"
Text 18,100,8
Text 22,100,8
Text 26,100,8
Text 18,108,"Ś"
GetkeyăGoto Î
Text 21,105,"Ś"
Text 23,103,"Ś"
PlotOn 106,23
Text 25,105,"Ś"
Text 28,108,"Ś"
Green F-Line 113,18,115,18
Green PlotOn 114,19
Green F-Line 117,18,119,18
Green PlotOn 117,19
Green PlotOn 119,19
Do
Green Text 54,30,"    par Nowix    "
For 1ŢA To 200
GetkeyăBreak
Next
Green Text 54,30,"www.nowix.fr.st"
For 1ŢA To 200
GetkeyăBreak
Next
Getkey
LpWhile Ans=0
Lbl Î
Cls
ClrText
Green " "
Orange " "
" "
" "
" "
" "
Orange " "
Locate 7,1,"LABY‡ROCK"
Locate 2,2,"™™™™™™™™™™™™™™™™™™™"
Locate 8,3,"Jouer"
Locate 8,4,"Editeur"
Locate 8,5,"Code"
Locate 8,6,"Quitter"
Locate 2,7,"™™™™™™™™™™™™™™™™™™™"
3ŢA
1ŢN
Do
Locate 7,A,"Ţ"
Do
Getkey
LpWhile Ans=0
Locate 7,A," "
Ans=28ăDsz A
Ans=37ăIsz A
A=2ă6ŢA
A=7ă3ŢA
LpWhile Ansá78 And Ansá31
If A=6
Then Cls
ClrText
"Presse [MENU]"
Stop
IfEnd
If A=4
Then Goto 5
IfEnd
If A=5
Then ClrText
Orange "Code "?ŢC
C=732654ă2ŢN
C=835641ă3ŢN
C=531067ă4ŢN
C=357901ă5ŢN
C=265093ă6ŢN
N=1ăOrange "NON VALIDE        "
N=1ăGoto Î
Green "VALIDE        "
IfEnd
ClrText
Green " "
Orange " "
Locate 8,1,"Jouer ?"
Locate 2,2,"™™™™™™™™™™™™™™™™™™™"
Locate 6,4,"Jeu normal"
Locate 6,5,"Niveau edite"
4ŢA
Do
Locate 5,A,"Ţ"
Do
Getkey
LpWhile Ans=0
Ans=47ăGoto Î
Locate 5,A," "
Ans=28 Or Ans=37ăIsz A
A=6ă4ŢA
Ans=47ăGoto Î
LpWhile Ansá31 And Ansá78
If A=5
Then Mat MŢMat N
0ŢN
R StartŢF Start
R EndŢF End
IfEnd
Lbl R
A=4ăGoto 7
Lbl 8
ClrText
For 21ŢA To 1 Step ‡1.5
Locate A,4,"Niveau  "
Next
For 1ŢA To 6
Locate A,4," Niveau"
Next
For 1ŢA To 10
Locate 15,4,N
Locate 15,4," "
Locate 15,4,N
Next
ClrText
Locate 1,1,"#####################"
For 2ŢA To 6
For 1ŢB To 21
Mat N[A,B]ŢC
C=1ăLocate B,A,"O"
C=2ăLocate B,A,"©"
C=3ăLocate B,A,"#"
Next
Next
Locate 1,7,"#####################"
Lbl 0
F StartŢA
F EndŢB
Do
Locate B,A,"Î"
B=21ăGoto G
Do
GetkeyŢÎ
LpWhile Î=0
Î=47ăGoto Î
Locate B,A," "
If Î=28
Then Mat N[A™1,B]ŢC
C=0ăDsz A
C=2ăGoto P
If C=1 And A>3
Then AŢE
If Mat N[A™2,B]=0
Then Locate B,A™1,"Î"
Locate B,A™2,"O"
0ŢMat N[A™1,B]
1ŢMat N[A™2,B]
A™1ŢE
IfEnd
If Mat N[A™2,B]=2
Then Locate B,A™1,"Î"
Locate B,A™2," "
0ŢMat N[A™1,B]
0ŢMat N[A™2,B]
A™1ŢE
IfEnd
EŢA
IfEnd
IfEnd
If Î=37
Then Mat N[A‰1,B]ŢC
C=0ăIsz A
C=2ăGoto P
If C=1 And A<5
Then AŢE
If Mat N[A‰2,B]=0
Then Locate B,A‰1,"Î"
Locate B,A‰2,"O"
0ŢMat N[A‰1,B]
1ŢMat N[A‰2,B]
A‰1ŢE
IfEnd
If Mat N[A‰2,B]=2
Then Locate B,A‰1,"Î"
Locate B,A‰2," "
0ŢMat N[A‰1,B]
0ŢMat N[A‰2,B]
A‰1ŢE
IfEnd
EŢA
IfEnd
IfEnd
If Î=38
Then Mat N[A,B™1]ŢC
C=0ăDsz B
C=2ăGoto P
If C=1 And B>3
Then BŢE
If Mat N[A,B™2]=0
Then Locate B™1,A,"Î"
Locate B™2,A,"O"
0ŢMat N[A,B™1]
1ŢMat N[A,B™2]
B™1ŢE
IfEnd
If Mat N[A,B™2]=2
Then Locate B™1,A,"Î"
Locate B™2,A," "
0ŢMat N[A,B™1]
0ŢMat N[A,B™2]
B™1ŢE
IfEnd
EŢB
IfEnd
IfEnd
If Î=27
Then Mat N[A,B‰1]ŢC
C=0ăIsz B
C=2ăGoto P
If C=1 And B<20
Then BŢE
If Mat N[A,B‰2]=0
Then Locate B‰1,A,"Î"
Locate B‰2,A,"O"
0ŢMat N[A,B‰1]
1ŢMat N[A,B‰2]
B‰1ŢE
IfEnd
If Mat N[A,B‰2]=2
Then Locate B‰1,A,"Î"
Locate B‰2,A," "
0ŢMat N[A,B‰1]
0ŢMat N[A,B‰2]
B‰1ŢE
IfEnd
EŢB
IfEnd
IfEnd
LpWhile 0=0
Lbl P
Î=28ăDsz A
Î=37ăIsz A
Î=38ăDsz B
Î=27ăIsz B
For 1ŢC To 10
Locate B,A,"‰"
Locate B,A,"©"
Next
ClrText
For 1ŢA To 10
Locate 3,4,"Tu es tombe dans"
Locate 3,5,"un trou..."
Next
Goto Î
Lbl G
ClrText
" "
" "
" "
" "
" "
Orange " "
Locate 8,3,"Gagne «"
Ná0ăLocate 6,6,"Code"
N=1ă732654
N=2ă835641
N=3ă531067
N=4ă357901
N=5ă265093
For 1ŢA To 10
Ná0ăLocate 11,6,Ans
Next
Do
Getkey
LpWhile Ans=0
Isz N
N=7ăGoto 6
4ŢA
Goto R
Lbl 5
ClrText
Cls
Text 57,2,"OUI"
Text 57,112,"NON"
Locate 4,4,"Reset Editeur ?"
Do
LpWhile Getkeyá79 And Getkeyá29
Getkey=79ăGoto 4
Lbl 1
Cls
ClrText
For 1ŢA To 21
3ŢMat M[1,A]
3ŢMat M[7,A]
Next
Locate 1,1,"#####################"
For 2ŢA To 6
For 1ŢB To 21
3ŢMat M[A,1]
Mat M[A,B]ŢC
C=1ăLocate B,A,"O"
C=2ăLocate B,A,"©"
C=3ăLocate B,A,"#"
Next
Next
Locate 1,7,"#####################"
6ŢA
2ŢB
1ŢC
Lbl 2
Do
C=ĐăLocate B,A,"Î"
C=0ăLocate B,A,"‡"
C=1ăLocate B,A,"O"
C=2ăLocate B,A,"©"
C=3ăLocate B,A,"#"
Do
GetkeyŢG
LpWhile G=0
G=44ăGoto 4
Mat M[A,B]ŢD
D=0ăLocate B,A," "
D=1ăLocate B,A,"O"
D=2ăLocate B,A,"©"
D=3ăLocate B,A,"#"
G=78ăC=ĐăGoto 3
G=78ăCŢMat M[A,B]
G=28ăA>2ăDsz A
G=37ăA<6ăIsz A
G=38ăB>2ăDsz B
G=27ăB<21ăIsz B
If G=77
Then C=0ă1
C=1ă2
C=2ă3
C=3ă0
AnsŢC
IfEnd
LpWhile Gá47 And Gá48 And Gá31
ĐŢC
Goto 2
Lbl 3
Mat M[A,B]á0ăGoto 2
AŢR Start
BŢR End
ClrText
For 1ŢA To 10
Locate 3,4,"Niveau sauvegarde"
Next
Goto Î
Lbl 4
{7,21}ŢDim Mat M
Goto 1
Lbl 6
ClrText
Green " "
Orange " "
Locate 1,2,"™™™™™™™™™™™™™™™™™™™™™"
Locate 3,4,"Vous etes un as «"
Locate 3,6,"Vous avez termine"
Locate 3,7,"le jeu."
1ŢA~B
Do
A‰BŢA
A=1 Or A=7ă‡BŢB
Locate A,1," FELICITATIONS "
LpWhile Getkeyá31
ClrText
Orange "Codes :"
For 2ŢA To 6
A=2ă732654
A=3ă835641
A=4ă531067
A=5ă357901
A=6ă265093
Locate 5,A,"Niv."
Locate 9,A,A
Locate 12,A,Ans
Next
Cls
Orange Horizontal 56
Green Text 58,3,"par Nowix    www.nowix.fr.st"
Locate 1,1,"C"
Do:LpWhile Getkeyá31
ClrText:Cls
"Presse [MENU]":Stop
Lbl 7
If N=1
Then [[3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3][3,0,0,0,0,3,0,1,0,0,0,0,3,0,0,0,0,1,0,0,3][3,0,0,0,0,3,0,3,3,3,1,3,3,0,0,0,3,1,0,0,3][3,0,0,0,1,1,0,0,3,3,0,0,0,3,0,0,3,0,3,3,3][3,0,0,0,0,3,0,3,3,3,0,0,0,3,1,1,3,0,0,0,0][3,0,0,0,0,3,2,0,0,1,0,0,0,2,0,0,3,0,0,0,0][3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3]]ŢMat N
3ŢF Start
3ŢF End
IfEnd
If N=2
Then [[3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3][3,0,0,0,3,0,0,3,0,0,0,0,0,0,0,0,0,2,3,2,0][3,0,0,0,0,0,0,3,0,0,2,3,3,3,3,3,3,0,3,0,3][3,3,0,0,3,0,0,3,0,2,0,0,0,0,1,0,3,1,3,0,3][3,0,1,3,0,0,0,3,3,1,3,3,3,3,3,0,1,2,3,1,3][3,0,0,3,0,1,0,0,0,0,2,1,0,0,2,2,3,2,0,0,3][3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3]]ŢMat N
6ŢF Start
2ŢF End
IfEnd
If N=3
Then [[3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3][3,0,0,3,0,0,0,2,2,3,0,0,3,0,0,3,0,2,3,2,0][3,0,1,2,0,1,0,0,2,2,2,0,3,0,0,2,2,2,3,0,3][3,2,0,3,0,1,0,0,2,3,1,1,3,0,1,3,0,0,3,0,3][3,1,1,3,0,2,3,1,3,3,0,0,2,0,0,3,1,1,0,0,1][3,0,0,3,0,0,0,0,0,3,0,0,3,0,0,3,2,2,0,0,3][3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3]]ŢMat N
6ŢF Start
2ŢF End
IfEnd
If N=4
Then [[3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3][3,0,3,0,1,0,2,1,2,2,2,2,2,2,2,2,2,2,2,0,2][3,0,2,1,2,0,2,0,1,0,0,0,2,0,0,2,0,2,2,1,2][3,0,1,3,3,0,2,3,3,3,3,3,1,3,3,3,0,1,2,3,3][3,0,1,2,3,0,3,0,1,2,0,3,0,0,0,3,0,0,1,0,3][3,0,1,3,3,0,1,2,3,0,0,1,0,2,2,1,0,1,2,3,3][3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3]]ŢMat N
2ŢF Start
2ŢF End
IfEnd
If N=5
Then [[3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3][3,1,0,1,0,2,1,0,2,3,0,2,1,0,0,0,0,2,0,0,3][3,0,1,2,1,0,1,2,1,3,0,0,0,1,0,1,1,2,1,2,3][3,3,3,3,2,3,3,3,0,3,3,1,3,3,3,0,3,3,3,1,3][3,0,1,0,1,2,1,0,2,3,0,0,3,0,2,2,2,0,1,2,3][3,2,1,0,2,1,0,2,1,2,2,3,0,0,0,2,1,0,1,2,2]]ŢMat N
3ŢF Start
2ŢF End
IfEnd
If N=6
Then [[3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3][3,0,1,0,0,0,0,2,0,0,2,1,3,0,1,2,3,2,0,1,2][3,2,1,2,1,1,1,2,3,2,1,0,1,2,3,0,3,2,1,0,3][3,2,1,2,0,0,3,3,2,3,2,3,3,0,1,0,3,3,3,0,3][3,1,2,2,1,0,2,0,1,0,2,3,0,1,3,0,1,0,1,2,3][3,0,2,1,2,3,2,1,0,1,2,1,2,2,0,1,2,1,2,3,3][3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3]]ŢMat N
6ŢF Start
9ŢF End
IfEnd
Goto 8