%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:3259
File Name:NIV SERP
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
L=1.987654\=>\GotoY
\Lbl X
\Int 5\Ran#\->A
\Lbl Y
1.123456\->L
A=0\ And S\<>0\=>\Goto0
A=1\ And S\<>1\=>\Goto1
A=2\ And S\<>2\=>\Goto2
A=3\ And S\<>3\=>\Goto3
A=4\ And S\<>4\=>\Goto4
\GotoX
\Lbl 0
[[2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2][2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2][2,1,2,2,1,2,2,1,2,2,1,2,2,1,2,2,1,2,2,1,2,2,2,1,2][2,1,2,2,1,2,2,1,2,2,1,2,2,1,2,2,1,2,2,1,2,2,2,1,2][2,1,0,0,1,0,0,1,0,0,1,0,0,1,0,0,1,0,0,1,0,0,0,1,2][2,1,2,2,2,2,2,1,2,2,2,2,2,1,2,2,2,2,2,1,2,2,2,1,2][2,1,0,0,1,0,0,1,0,0,1,0,0,1,0,0,1,0,0,1,0,0,0,1,2][2,1,2,2,1,2,2,2,2,2,1,2,2,2,2,2,1,2,2,2,2,2,2,1,2][2,1,0,0,1,0,0,1,0,0,1,0,0,1,0,0,1,0,0,1,0,0,0,1,2][2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2]\->\Mat C
72\->R
\Lbl Z
{7,5,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1}\->\List 1
A\->S
\Prog "SERPENT"
\Lbl 1
[[2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2][2,0,1,1,1,0,2,2,1,0,0,0,1,1,1,0,0,0,1,1,1,0,0,1,2][2,1,2,2,0,1,1,2,1,1,2,1,2,0,2,2,2,2,2,1,2,2,2,1,2][2,1,2,1,1,2,1,0,0,1,2,0,1,0,2,1,1,1,2,0,0,1,2,1,2][2,0,0,0,2,2,2,2,2,2,2,2,2,1,1,1,0,1,1,1,2,1,2,0,2][2,1,2,1,1,1,1,1,0,2,0,1,0,1,2,2,2,2,2,2,2,0,1,1,2][2,0,2,1,1,0,2,1,1,1,1,1,2,0,0,0,1,1,2,1,1,0,2,1,2][2,1,2,2,2,1,2,2,2,2,2,2,2,1,1,2,1,1,2,0,1,2,2,0,2][2,1,1,1,1,1,0,1,0,1,0,1,1,1,1,2,2,0,1,0,1,0,0,1,2][2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2]\->\Mat C
80\->R
\GotoZ
\Lbl 2
[[2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2][2,0,0,1,2,1,0,1,1,1,1,1,2,1,1,0,0,0,1,0,1,0,0,1,2][2,1,1,1,2,1,2,2,2,1,2,0,2,1,1,0,1,2,0,2,1,2,2,0,2][2,1,2,2,2,1,1,1,2,1,2,1,2,2,2,1,1,2,1,0,1,1,1,1,2][2,1,0,0,0,0,2,1,2,1,2,0,0,0,0,1,1,2,0,2,2,2,2,0,2][2,2,2,1,2,1,2,1,1,1,1,1,2,1,2,0,0,0,1,1,1,1,0,1,2][2,1,1,0,0,0,2,1,0,2,2,2,2,0,2,2,1,2,1,2,2,2,2,1,2][2,1,2,0,2,2,2,2,2,1,1,1,1,0,1,2,1,2,1,2,2,2,2,0,2][2,1,1,1,0,0,1,0,1,0,1,2,2,2,1,1,1,2,0,1,1,1,1,1,2][2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2]\->\Mat C
80\->R
\GotoZ
\Lbl 3
[[2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2][2,0,1,1,2,0,1,1,2,1,1,0,2,0,0,0,2,1,1,1,1,1,1,1,2][2,2,2,1,2,1,2,0,0,0,2,0,0,0,2,1,2,1,2,1,2,1,2,1,2][2,2,2,1,1,1,0,0,2,2,2,1,2,2,2,1,0,0,0,1,1,1,1,1,2][2,2,2,2,2,2,1,2,2,1,1,1,2,2,0,0,2,2,2,2,2,2,2,1,2][2,0,0,0,0,1,0,0,2,1,2,2,1,1,1,1,1,2,0,0,0,0,0,1,2][2,2,1,2,2,2,2,1,2,1,2,1,1,2,2,2,2,2,1,2,2,2,1,2,2][2,1,0,1,2,0,0,0,2,1,1,1,1,2,0,1,1,0,0,0,2,1,1,1,2][2,1,1,1,1,1,2,1,1,1,1,1,1,1,1,1,0,2,2,1,1,1,1,1,2][2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2]\->\Mat C
80\->R
\GotoZ
\Lbl 4
[[2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2][2,0,2,1,1,1,2,2,1,0,1,2,1,0,1,2,0,2,2,1,0,0,0,1,2][2,0,2,1,0,0,1,2,1,0,1,2,0,2,0,2,0,2,1,1,2,2,0,1,2][2,0,0,2,1,0,0,1,0,0,2,2,1,2,1,2,1,1,0,2,1,1,1,2,2][2,2,1,2,0,0,1,1,1,1,0,1,0,2,1,1,1,0,0,1,1,2,1,1,2][2,1,0,2,1,0,1,2,0,2,0,2,2,2,0,2,0,1,2,1,2,1,2,1,2][2,0,2,1,0,2,0,0,0,2,0,2,0,0,1,0,1,2,1,0,1,0,1,1,2][2,0,2,0,2,1,0,0,0,1,2,2,0,2,0,0,2,2,0,0,0,1,0,1,2][2,1,0,1,2,1,0,0,0,1,2,2,1,0,1,1,0,2,1,0,1,0,1,1,2][2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2]\->\Mat C
65\->R
\GotoZ

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1502
File Name:SERPENT
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
\Cls
O=2.123456\=>\Goto8
\Locate 7,2,"CENTIPEDE"
\Locate 7,3,"---------"
\Locate 2,5,"PAR LHOMME AURELIEN"
L\<>1.123456\=>\Prog "NIV SERP"
\Locate 3,7,"APPUYER SUR [EXE]"
\Do:\LpWhile \Getkey\<>31
\Lbl 8
\CoordOff
\AxesOff
1\->A~Q
1\->T~Z
\Cls
\Lbl 1
\Mat C[B,A\->Y
Y=1\=>\Text E,F,"."
Y=2\=>\Green \Text E,F,"L"
Y=0\=>\Text E,F," "
A+1\->A
F+4\->F
A=26\=>E+6\->E
A=26\=>B+1\->B
A=26\=>1\->F
A=26\=>1\->A
B=11\=>\Goto2
\Goto1
\Lbl 2
0\->A~Q
0\->T~Z
7\->M
5\->N
2\->A~B
7\->C
5\->D
1\->P
1\->L
\Lbl A
\Text 15,110,".:   "
\Text 15,117,R
\Lbl S
\Text M,N,"O"
L=251\=>1\->L
P=249\=>1\->P
R=0\=>\GotoW
\Getkey=28\=>\GotoH
\Getkey=27\=>\GotoD
\Getkey=37\=>\GotoB
\Getkey=38\=>\GotoG
\GotoS
\Lbl H
B-1\->B
B=0\=>1\->B
\Mat C[B,A\->Z
\If Z=2
\Then B+1\->B
\GotoA
\IfEnd
\If Z=0
\Then \List 1[L]\->C
\List 1[L+1]\->D
\Text C,D," "
(C-1)/6+1\->E
(D-1)/4+1\->F
0\->\Mat C[E,F
3\->\Mat C[B,A]
L+2\->L
P+2\->P
M-6\->\List 1[P]
N\->\List 1[P+1]
M-6\->M
\IfEnd
\If Z=1
\Then M-6\->M
P+2\->P
R-1\->R
M\->\List 1[P]
N\->\List 1[P+1]
3\->\Mat C[B,A]
\IfEnd
Z=3\=>\GotoF
\GotoA
\Lbl B
B+1\->B
\Mat C[B,A\->Z
\If Z=2
\Then B-1\->B
\GotoA
\IfEnd
\If Z=0
\Then \List 1[L]\->C
\List 1[L+1]\->D
\Text C,D," "
L+2\->L
P+2\->P
M+6\->\List 1[P]
N\->\List 1[P+1]
(C-1)/6+1\->E
(D-1)/4+1\->F
0\->\Mat C[E,F
3\->\Mat C[B,A
M+6\->M
\IfEnd
\If Z=1
\Then M+6\->M
R-1\->R
P+2\->P
M\->\List 1[P]
N\->\List 1[P+1]
3\->\Mat C[B,A
\IfEnd
Z=3\=>\GotoF
\GotoA
\Lbl G
A-1\->A
\Mat C[B,A\->Z
\If Z=2
\Then A+1\->A
\GotoA
\IfEnd
\If Z=0
\Then \List 1[L]\->C
\List 1[L+1]\->D
\Text C,D," "
L+2\->L
P+2\->P
M\->\List 1[P]
N-4\->\List 1[P+1]
(C-1)/6+1\->E
(D-1)/4+1\->F
0\->\Mat C[E,F
3\->\Mat C[B,A
N-4\->N
\IfEnd
\If Z=1
\Then N-4\->N
P+2\->P
R-1\->R
M\->\List 1[P]
N\->\List 1[P+1]
3\->\Mat C[B,A
\IfEnd
Z=3\=>\GotoF
\GotoA
\Lbl D
A+1\->A
\Mat C[B,A\->Z
\If Z=2
\Then A-1\->A
\GotoA
\IfEnd
\If Z=0
\Then \List 1[L]\->C
\List 1[L+1]\->D
\Text C,D," "
L+2\->L
P+2\->P
M\->\List 1[P]
N+4\->\List 1[P+1]
(C-1)/6+1\->E
(D-1)/4+1\->F
0\->\Mat C[E,F
3\->\Mat C[B,A
N+4\->N
\IfEnd
\If Z=1
\Then N+4\->N
P+2\->P
R-1\->R
M\->\List 1[P]
N\->\List 1[P+1]
3\->\Mat C[B,A
\IfEnd
Z=3\=>\GotoF
\GotoA
\Lbl F
\Cls
\ClrText
\Locate 7,4,"PERDU!!"
\CoordOn
\AxesOn
1.987654\->L
S\->A
0.5\->S
\Prog "NIV SERP"
\Lbl W
\Cls
\ClrText
\Locate 7,4,"GAGNE!!"
\CoordOn
\AxesOn
2.123456\->O
\Prog "NIV SERP"

%End