%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:6034
File Name:Labyrock
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\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\theta
\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\theta
\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\theta
\Text 18,62,8
\Text 22,62,8
\Text 26,62,8
\Text 18,65,"\Dms"
\Text 21,67,"\Dms"
\Text 23,65,"\Dms"
\PlotOn 68,23
\Text 26,67,"\Dms"
\Text 28,69,"\Dms"
\PlotOn 68,28
\Text 20,75,8
\Text 24,75,8
\Text 18,78,"\Dms"
\Text 28,78,"\Dms"
\Getkey\=>\Goto\theta
\Text 20,81,8
\Text 24,81,8
\Text 20,87,8
\Text 24,87,8
\Text 18,90,"\Dms"
\Text 18,93,"\Dms"
\Text 28,90,"\Dms"
\Text 28,93,"\Dms"
\Text 18,100,8
\Text 22,100,8
\Text 26,100,8
\Text 18,108,"\Dms"
\Getkey\=>\Goto\theta
\Text 21,105,"\Dms"
\Text 23,103,"\Dms"
\PlotOn 106,23
\Text 25,105,"\Dms"
\Text 28,108,"\Dms"
\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 \theta
\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 \Goto5
\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\theta
\Green "VALIDE        "
\IfEnd
\ClrText
\Green " "
\Orange " "
\Locate 8,1,"Jouer ?"
\Locate 2,2,"-------------------"
\Locate 6,4,"Jeu n\ormal"
\Locate 6,5,"Niveau edite"
4\->A
\Do
\Locate 5,A,"\->"
\Do
\Getkey
\LpWhile \Ans=0
\Ans=47\=>\Goto\theta
\Locate 5,A," "
\Ans=28\ Or \Ans=37\=>\Isz A
A=6\=>4\->A
\Ans=47\=>\Goto\theta
\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\=>\Goto7
\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,"\theta"
B=21\=>\GotoG
\Do
\Getkey\->\theta
\LpWhile \theta=0
\theta=47\=>\Goto\theta
\Locate B,A," "
\If \theta=28
\Then \Mat N[A-1,B]\->C
C=0\=>\Dsz A
C=2\=>\GotoP
\If C=1\ And A>3
\Then A\->E
\If \Mat N[A-2,B]=0
\Then \Locate B,A-1,"\theta"
\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,"\theta"
\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 \theta=37
\Then \Mat N[A+1,B]\->C
C=0\=>\Isz A
C=2\=>\GotoP
\If C=1\ And A<5
\Then A\->E
\If \Mat N[A+2,B]=0
\Then \Locate B,A+1,"\theta"
\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,"\theta"
\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 \theta=38
\Then \Mat N[A,B-1]\->C
C=0\=>\Dsz B
C=2\=>\GotoP
\If C=1\ And B>3
\Then B\->E
\If \Mat N[A,B-2]=0
\Then \Locate B-1,A,"\theta"
\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,"\theta"
\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 \theta=27
\Then \Mat N[A,B+1]\->C
C=0\=>\Isz B
C=2\=>\GotoP
\If C=1\ And B<20
\Then B\->E
\If \Mat N[A,B+2]=0
\Then \Locate B+1,A,"\theta"
\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,"\theta"
\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
\theta=28\=>\Dsz A
\theta=37\=>\Isz A
\theta=38\=>\Dsz B
\theta=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\theta
\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\=>\Goto6
4\->A
\GotoR
\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\=>\Goto4
\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=\Pi\=>\Locate B,A,"\theta"
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\=>\Goto4
\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=\Pi\=>\Goto3
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
\Pi\->C
\Goto2
\Lbl 3
\Mat M[A,B]\<>0\=>\Goto2
A\->\R Start
B\->\R End
\ClrText
\For 1\->A \To 10
\Locate 3,4,"Niveau sauvegarde"
\Next 
\Goto\theta
\Lbl 4
{7,21}\->\Dim \Mat M
\Goto1
\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
\Goto8
%End