%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:53
File Name:Pline1
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\theta\<>5.5\Pi\=>\Prog "J-Ppline"
\Xfct<2\=>1\->\Xfct
4\->T
0\->U~W
60\->P~R
4\->\D pitch
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:63
File Name:Pline2
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\theta\<>5.5\Pi\=>\Prog "Ppline"
A\<>64185\=>\Return
2\->\Xfct
9\->T
0\->U~W
2\->V
60\->P~R
4\->\D pitch

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:64
File Name:Pline3
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\theta\<>5.5\Pi\=>\Prog "Ppline"
A\<>89123\=>\Return
3\->\Xfct
14\->T
0\->U~W
3\->V
40\->P~R
4\->\D pitch

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:66
File Name:Pline4
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\theta\<>5.5\Pi\=>\Prog "Ppline"
A\<>74290\=>\Return
4\->\Xfct
19\->T
2\->U
4\->V
0\->W
40\->P~R
4\->\D pitch

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:63
File Name:Pline5
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\theta\<>5.5\Pi\=>\Prog "Ppline"
A\<>60657\=>\Return
5\->\Xfct
9\->T
4\->U
0\->V~W
10\->P~R
3\->\D pitch

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:60
File Name:Pline6
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\theta\<>5.5\Pi\=>\Prog "Ppline"
A\<>96723\=>\Return
6\->\Xfct
9\->T
2\->U
0\->V
40\->P~R
1\->W

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:61
File Name:Pline7
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\theta\<>5.5\Pi\=>\Prog "Ppline"
A\<>78134\=>\Return
7\->\Xfct
14\->T
5\->U
2\->V
1\->W
40\->P~R

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:59
File Name:Pline8
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\theta\<>5.5\Pi\=>\Prog "Ppline"
A\<>92045\=>\Return
8\->\Xfct
19\->T
1\->U~W
9\->V
35\->P~R

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:62
File Name:Pline9
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\theta\<>5.5\Pi\=>\Prog "Ppline"
91889\<>A\=>\Return
9\->\Xfct
24\->T
0\->U
15\->V
1\->W
30\->P~R

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1467
File Name:PlineM
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"Le but du jeu est d'arriver a mettre assez de tuyaux pour que le fluide ne s'echappe pas.
Vous deplacez les tuyaux avec les fleches(appuyer en continu); et vous les posez avec la touche [ALPHA] ou [EXE].
Certaines ''bizzaries'' apparaissent dans le quadrillage: ce sont des ralentisseurs (ils vous font gagner du temps); le fluide peut rentrer par un trou et ress\ortir par l'autre.
Un tuyau peut etre rempace, a condition qu'il ny ait pas de fluide dedant. ATTENTION, l\orsque vous posez un tuyau il faut lacher la touche qui a servi a le poser, au moins jusqu'a ce que le nouveau tuyau apparaisse dans le petit carre du bas."
\For -999\->A \To 1
\Next 
"ATTENTION, ne quitter jamais le jeu sans utiliser la fonction {5:quitter} (si vous avez quitte sans utiliser cette fonction, et qu'il y a un probleme, entrez la valeur 0 dans \r et \theta {0\->\r:0\->\theta})
Vous pouvez faire une pause en appuyant sur [P] (l'ecran change, pour le cas ou... le prof arriverait). Appuyez sur n'imp\orte quelle touche pour continuer.
La longueur res\tan te est le nombre de tuyaux que doit parcourir le fluide.
Chaque fois que vous posez un tuyau, vous perdez 5 points; mais chaque fois que le tuyau est utilise, vous gagnez 10 points.
Il y a 9 niveaux programmes, et accessibles par des codes. un code est donne chaque fois que vous reussissez un niveau.
Vous pouvez egalement creer vos propres niveaux; les inf\ormations sont stockees dans la matrice K (a ne pas effacer, et a conserver sur feuille en cas de pb)"
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1450
File Name:PlineP
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Norm
0\->E
\ClrText
"1:jouer
2:creer
3:modifier"?\->A
\ClrText
A=1\ Or A=3\=>\Goto1
"Les donnes de vos niveaux sont stockes dans la matrice K.
Si aucun niveau n'estenc\ore fait, tapez 888.
Sinon, tapez 0"?\->B
B=888\=>{2,1}\->\Dim \Mat K
\Lbl T
\ClrText
A=3\=>"Val Prec:"
\Locate 10,1,T
"Longueur de la tuyauterie de 0 a 99 (en nombre de tuyaux)"?\->T
T<0\ Or T>99\=>\GotoT
\Lbl U
\ClrText
A=3\=>"Val Prec:"
\Locate 10,1,U
"Nombre de ralentisseurs de 0 a 49"?\->U
U<0\ Or U>49\=>\GotoU
\Lbl V
\ClrText
A=3\=>"Val Prec:"
\Locate 10,1,V
"Nombre de cases pleines de 0 a 99"?\->V
V<0\ Or V>99\=>\GotoV
\Lbl P
\ClrText
A=3\=>"Val Prec:"
\Locate 10,1,P
"Temps avant l'ecoulement du fluide de 1 a 999 (en secondes)"?\->P
P<1\ Or P>999\=>\GotoP
\Lbl W
\ClrText
A=3\=>"Val Prec:"
\Locate 10,1,W
"0:pas d'arrivee
1:une arrivee"?\->W
W\<>0\ And W\<>1\=>\GotoW
2W\->W
\Lbl D
\ClrText
A=3\=>"Val Prec:"
1\->O
\D pitch=4\=>2\->O
\Locate 10,1,\D pitch/O
"0:n\ormal
2:deux fois plus de virages
3:deux fois plus de lignes droites"?\->\D pitch
\D pitch\<>0\ And \D pitch\<>2\ And \D pitch\<>3\=>\GotoD
\D pitch=2\=>4\->\D pitch
\If A=3
\Then \ClrText
"Top sc\ore:"
\Locate 11,1,\Mat K[2,\Xfct-9]
"0:effacer
1:garder"?\->H
H=0\=>0\->\Mat K[2,\Xfct-9]
\IfEnd
{2,1}\->\Dim \Mat J
T\10^x8+U\10^x6+V\10^x4+10P+W+\D pitch\->G
\If A=3
\Then G\->\Mat K[1,E+1]
\Else G\->\Mat J[1,1]
\Augment(\Mat K,\Mat J)\->\Mat K
\IfEnd
\If A\<>3
\Then \Mat K[1,1]+1\->\Mat K[1,1]
\Mat K[1,1]\->E
\IfEnd
"Phase de test,
appuyez sur [EXE]"\Disp0\->A
\Lbl 1
E=0\=>1\->E
\theta\<>5.5\Pi\=>\(-)5.5\Pi\->\theta
\ClrText
\Mat K[1,1]\->C
\If C>1
\Then A=1\=>"Niv desire de 1 a"
A=3\=>"Nv a modif de 1 a"
\If A\<>0
\Then \Locate 19,1,C
""?\->E
\IfEnd
\IfEnd
A\<>0\ And A\<>3\ And C>1\=>E<1\ Or E>C\=>\Goto1
0\->P~Z
0\->\D pitch
10+E\->\Xfct
\Mat K[1,E+1]\->F
10\Frac (F/10)\->G
G=2\ Or G=5\ Or G=6\=>1\->W
G=3\ Or G=5\=>3\->\D pitch
G=4\ Or G=6\=>4\->\D pitch
\Int (F/10)\->F
1000\Frac (F/1000)\->P~R
\Int (F/1000)\->F
100\Frac (F/100)\->V
\Int (F/100)\->F
100\Frac (F/100)\->U
\Int (F/100)\->F
F\->T
A=3\=>\GotoT
0\->A~O
0\->S
0\->X~Z
\theta\<>5.5\Pi\=>\Prog "Ppline"

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:4819
File Name:Ppline
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Cls
0\->\Xmin
126\->\Xmax
0\->\Ymin
62\->\Ymax
\CoordOff
\GridOff
\AxesOff
\LabelOff
\BG-None
\Norm
\Horizontal 0
\Horizontal 62
\Vertical 0
\Vertical 126
\Green \Text 40,38,"JEU DE TUYAUX"
\Green \Text 55,23,"CREE PAR XAVIER IZARD"
\Orange \Text 20,35,"P I P E L I N E"
\Orange \F-Line 20,37,106,37
\Orange \F-Line 20,45,106,45
\Orange \F-Line 10,36,21,36
\Orange \F-Line 105,36,116,36
\Orange \F-Line 10,46,21,46
\Orange \F-Line 105,46,116,46
\For 0\->A \To 30 \Step 2
\Orange \Text 20,63+A," "
\Orange \Text 20,63-A," "
\Next 
\Lbl 0
0\->\D Start
62\->\D End
\theta=\(-)5.5\Pi\=>\GotoG
0\->A~Z
0\->\D pitch
5.5\Pi\->\theta
1\->\Xfct
"1:jeu n\ormal
2:changer de niveau
3:niveaux personnels
4:le manuel
5:quitter"?\->A
\If A=5
\Then 0\->\r
0\->\theta
\Stop
\IfEnd
A=4\=>\Prog "PlineM"
A=1\=>\GotoD
A=3\=>\Prog "PlineP"
\Xfct>10\=>\GotoG
"code du niveau desire"?\->\Yfxt
\Lbl E
100\Frac (\Int (\Yfxt/10000)/10)\->A
10000\Frac (\Int (\Yfxt/1000)/10)+A\->A
10\Frac (\Int (\Yfxt/100)/10)+A\->A
100000\Frac (\Int (\Yfxt/10)/10)+A\->A
1000\Frac (\Int \Yfxt/10)+A\->A
\If Q\<>0
\Then 0\->Q
\Pi\->B
\IfEnd
B=\Pi\=>\GotoH
\Lbl D
\Prog "Pline1"
\Prog "Pline2"
\Prog "Pline3"
\Prog "Pline4"
\Prog "Pline5"
\Prog "Pline6"
\Prog "Pline7"
\Prog "Pline8"
\Prog "Pline9"
\Lbl G
\Cls
1+\Int (4\Ran#)\->D
9+6\Int (10\Ran#)\->B
9+6\Int (8\Ran#)\->C
0\->\theta
0\->\Xmin
126\->\Xmax
0\->\Ymin
62\->\Ymax
\r=3.3\e^x1\=>\GotoW
\For 0\->Y \To 68 \Step 6
\For 0\->X \To 73 \Step 6
0\->G~J
Y\<>0\=>1\->G
Y<60\=>1\->H
X\<>0\=>1\->I
X<70\=>1\->J
\Green \F-Line X,Y-G,X,Y+H
\Green \F-Line X-I,Y,X+J,Y
\Next 
\Next 
\StoPict 6
\Lbl W
\RclPict 6
0\->\r
\If \Xfct\>=10
\Then \Green \Text 57,75,"TOP"
\Green \Text 57,88,"SCORE:"
\Green \Text 57,112,\Mat K[2,\Xfct-9]
\IfEnd
\While U>0
9+6\Int (10\Ran#)\->N
9+6\Int (8\Ran#)\->O
\Int (2\Ran#)=1\=>\Goto9
\Orange \F-Line N-2,O-2,N+2,O-2
\Orange \F-Line N-1,O+3,N+1,O+3
\Orange \F-Line N+1,O,N+1,O+2
\Orange \F-Line N+2,O+1,N+3,O+1
\Orange \PlotOn N+3,O-1
\Orange \F-Line N-1,O-1,N-1,O+1
\Orange \PlotOn N-2,O-1
\Orange \PlotOn N,O-3
\Orange \PlotOn N,O+4
\GotoA
\Lbl 9
\Orange \F-Line N+3,O-1,N+3,O+1
\Orange \F-Line N,O+1,N+2,O+1
\Orange \F-Line N+1,O+2,N+1,O+3
\Orange \PlotOn N-1,O+3
\Orange \F-Line N-2,O-2,N-2,O+2
\Orange \F-Line N-1,O-1,N+1,O-1
\Orange \PlotOn N-1,O-2
\Orange \PlotOn N+4,O
\Orange \PlotOn N-3,O
\Lbl A
U-1\->U
\WhileEnd
\While V>0
3+6\Int (12\Ran#)\->N
3+6\Int (10\Ran#)\->O
\Green \F-Line N-2,O-2,N+2,O+2
\Green \F-Line N+2,O-2,N-2,O+2
V-1\->V
\WhileEnd
\If W\<>0
\Then 9+6\Int (10\Ran#)\->\D Start
9+6\Int (8\Ran#)\->\D End
\IfEnd
0\->U~W
0\->N~O
\Green \Text 35,80,"[P]=PAUSE"
\Text 10,88,"LONGUEUR"
\Text 17,80,"RESTANTE:"
\Text 26,80,"POINTS:"
\Orange \Text 42,80,"NIVEAU:"
\Orange \Text 42,110,\Xfct
\Xfct>10\=>\Orange \Text 42,110,"P"
\Orange \F-Line 122,59,122,60
\Green \F-Line 74,48,80,48
\Green \F-Line 74,48,74,60
\Green \F-Line 80,48,80,60
\Green \F-Line 74,54,80,54
\Green \F-Line 74,60,80,60
\Int (7\Ran#)\->Z
B\->E
C\->F
33\->K~L
P>40\=>40\->R
\(-)10\->U
1\->A
\Lbl B
\If D=1
\Then \Orange \F-Line B-1,C-1,B-1,C+3
\Orange \F-Line B+1,C-1,B+1,C+3
\Orange \F-Line B-1,C+A,B-3,C-A
\Orange \F-Line B+1,C+A,B+3,C-A
\Orange \PlotOn B,C-1
\IfEnd
\If D=2
\Then \Orange \F-Line B-1,C-1,B+3,C-1
\Orange \F-Line B-1,C+1,B+3,C+1
\Orange \F-Line B+A,C+1,B-A,C+3
\Orange \F-Line B+A,C-1,B-A,C-3
\Orange \PlotOn B-1,C
\IfEnd
\If D=3
\Then \Orange \F-Line B-1,C+1,B-1,C-3
\Orange \F-Line B+1,C+1,B+1,C-3
\Orange \F-Line B+1,C-A,B+3,C+A
\Orange \F-Line B-1,C-A,B-3,C+A
\Orange \PlotOn B,C+1
\IfEnd
\If D=4
\Then \Orange \F-Line B+1,C+1,B-3,C+1
\Orange \F-Line B+1,C-1,B-3,C-1
\Orange \F-Line B-A,C+1,B+A,C+3
\Orange \F-Line B-A,C-1,B+A,C-3
\Orange \PlotOn B+1,C
\IfEnd
M=0\=>\Orange \PlotOn B,C
\D Start\->B
\D End\->C
M\<>0\=>\GotoC
1\->M
\(-)1\->A
\D Start\<>0\=>\GotoB
\Lbl C
\Green \F-Line 122-R,59,122,59
\Green \F-Line 122-R,60,122,60
\Text 17,116,T-V+1
\Goto8
\Lbl 1
\Getkey\->M
M=73\=>\GotoI
\Lbl L
M\<>31\ And M\<>77\=>0\->B
B\<>\Pi\=>M=31\ Or M=77\=>\Goto2
L<57\ And M=28\=>L+6\->L
K<68\ And M=27\=>K+6\->K
L>3\ And M=37\=>L-6\->L
K>3\ And M=38\=>K-6\->K
0\->\r
\If A=0
\Then \F-Line K-1,L,K+1,L
\F-Line K,L-1,K,L+1
\IfEnd
A=1\=>\F-Line K-1,L,K+1,L
A=2\=>\F-Line K,L-1,K,L+1
\If A=3
\Then \F-Line K,L,K+1,L
\F-Line K,L,K,L+1
\IfEnd
\If A=4
\Then \F-Line K,L,K,L-1
\F-Line K,L,K+1,L
\IfEnd
\If A=5
\Then \F-Line K,L,K-1,L
\F-Line K,L,K,L-1
\IfEnd
\If A=6
\Then \F-Line K,L,K,L+1
\F-Line K,L,K-1,L
\IfEnd
\Lbl 3
\r=0\=>\Text 61-L,K," "
\If P<0
\Then U+1\->U
\Int (U/6)\->V
T-V=9\=>\Text 17,120," "
\If V=U/6\ Or U=\(-)9
\Then \Text 17,116,T-V
W+10\->W
W=\(-)95\ Or W=\(-)90\ Or W=\(-)5\ Or W=0\ Or W=5\ Or W=95\ Or W=995\=>\Text 26,112,"   "
\Text 26,108,W
\IfEnd
\Orange \PlotOn E,F
E<2\ Or E>70\ Or F<2\ Or F>58\=>\GotoF
\PxlTest 62-F,E+1
\Ans\->G
\PxlTest 63-F,E+2
\Ans\->H
\PxlTest 64-F,E+1
\Ans\->I
\PxlTest 63-F,E
\Ans\->J
\theta>0\=>\theta-3\->\theta
\theta<0\=>0\->\theta
G=1\ And H=1\ And I=1\ And J=1\=>\theta+5\->\theta
\PxlTest 63-\D End,1+\D Start
\Ans=1\=>\GotoF
\If D=1
\Then G=1\ And H=0\ And J=1\=>2\->D
G=1\ And J=0\ And H=1\=>4\->D
H=0\ And J=0\=>\GotoF
\IfEnd
\If D=2
\Then H=1\ And G=0\ And I=1\=>1\->D
H=1\ And G=1\ And I=0\=>3\->D
G=0\ And I=0\=>\GotoF
\IfEnd
\If D=3
\Then I=1\ And H=0\ And J=1\=>2\->D
I=1\ And H=1\ And J=0\=>4\->D
H=0\ And J=0\=>\GotoF
\IfEnd
\If D=4
\Then J=1\ And G=0\ And I=1\=>1\->D
J=1\ And G=1\ And I=0\=>3\->D
G=0\ And I=0\=>\GotoF
\IfEnd
D=1\=>\Isz F
D=2\=>\Isz E
D=3\=>\Dsz F
D=4\=>\Dsz E
\Else P-1\->P
\Int (PR/Q)\->S
\Green \PlotOff 121-S,59
\Green \PlotOff 121-S,60
\IfEnd
0\->G~J
\theta=4\=>\GotoF
\theta>10\=>0\->\theta
\Getkey\<>31\ And \Getkey\<>77\=>0\->B
\Goto1
\Lbl 2
0\->\r
\Lbl 7
\PxlTest 60-L,K+1
\Ans\->G
\PxlTest 66-L,K+1
\Ans\->I
\PxlTest 63-L,K-2
\Ans\->J
\PxlTest 63-L,K+4
\Ans\->H
\PxlTest 65-L,K-1
\Ans=1\ And \r=0\=>\Goto3
\PxlTest 63-L,K+1
\Ans=1\ Or Y=1\ Or G=1\ And D=3\ Or H=1\ And D=4\ Or I=1\ And D=1\ Or J=1\ And D=2\=>\r=0\=>\Goto3
0\->G~J
\PxlTest 62-L,K
\If \Ans=1
\Then \Orange \Text 60-L,K-1," "
\Orange \Text 60-L,K+1," "
\IfEnd
\r=0\=>W-5\->W
\If A=0
\Then \Orange \F-Line K-2,L-1,K+3,L-1
\Orange \F-Line K-2,L+1,K+3,L+1
\Orange \F-Line K-1,L-2,K-1,L+3
\Orange \F-Line K+1,L-2,K+1,L+3
\IfEnd
\If A=1
\Then \Orange \F-Line K-2,L-1,K+3,L-1
\Orange \F-Line K-2,L+1,K+3,L+1
\IfEnd
\If A=2
\Then \Orange \F-Line K-1,L-2,K-1,L+3
\Orange \F-Line K+1,L-2,K+1,L+3
\IfEnd
\If A=3
\Then \Orange \F-Line K-1,L,K-1,L+3
\Orange \F-Line K-1,L-1,K+3,L-1
\Orange \F-Line K+1,L+1,K+1,L+3
\Orange \F-Line K+2,L+1,K+3,L+1
\IfEnd
\If A=4
\Then \Orange \F-Line K-1,L+1,K+3,L+1
\Orange \F-Line K-1,L,K-1,L-2
\Orange \F-Line K+1,L-1,K+3,L-1
\Orange \PlotOn K+1,L-2
\IfEnd
\If A=5
\Then \Orange \F-Line K+1,L+1,K-2,L+1
\Orange \F-Line K+1,L,K+1,L-2
\Orange \F-Line K-1,L-1,K-2,L-1
\Orange \PlotOn K-1,L-2
\IfEnd
\If A=6
\Then \Orange \F-Line K+1,L-1,K+1,L+3
\Orange \F-Line K,L-1,K-2,L-1
\Orange \F-Line K-1,L+1,K-1,L+3
\Orange \PlotOn K-2,L+1
\IfEnd
\Lbl 8
\If \r=0
\Then K\->N
L\->O
\IfEnd
\r+1\->\r
Z\->A
77\->K
57\->L
\Lbl J
\If \r=2
\Then A\->M
\Int ((7+\D pitch)\Ran#)\->A
\If \D pitch=3
\Then A=7\=>2\->A
A=8\=>1\->A
A=9\=>0\->A
\IfEnd
\If \D pitch=4
\Then A=7\=>6\->A
A=8\=>5\->A
A=9\=>4\->A
A=10\=>3\->A
\IfEnd
A\->Z
77\->K
51\->L
\IfEnd
\r=2\=>M=A\=>\GotoJ
\r<3\=>\Goto7
M\->A
N\->K
O\->L
\Pi\->\r
\Getkey=31\ Or \Getkey=77\=>\Pi\->B
\Goto3
\Lbl F
3.3\e^x1\->\r
\Green \Text 35,80,"         "
V<T\=>\GotoP
\PxlTest 63-\D End,1+\D Start
\Ans=0\ And \D Start\<>0\=>\GotoP
\Orange \Text 35,80,"GAGNE"
\If \Xfct>10
\Then W>\Mat K[2,\Xfct-9]\=>W\->\Mat K[2,\Xfct-9]
\Text 1,1,""\Disp\IfEnd
\Xfct\>=10\=>\Goto0
\Lbl H
A\->\Yfxt
\Xfct=1\=>64185\->A
\Xfct=2\=>89123\->A
\Xfct=3\=>74290\->A
\Xfct=4\=>60657\->A
\Xfct=5\=>96723\->A
\Xfct=6\=>78134\->A
\Xfct=7\=>92045\->A
\Xfct=8\=>91889\->A
Q\<>0\=>A\->\Yfxt
Q\<>0\=>\GotoE
\Xfct+1\->\Xfct
\If \Xfct=10
\Then \Orange \Text 49,80,"VOUS ETES"
\Orange \Text 56,80,"LE CHAMPION"\Disp\Else \Orange \Text 49,75,"[EXE]=SUIVANT"\Disp\IfEnd
0\->\D pitch
0\->\D Start
62\->\D End
0\->B
\Orange \Text 49,75,"CODE DU NIV."
\Orange \Text 56,75,"SUIV.:"
\Orange \Text 56,99,\Yfxt\Disp5.5\Pi\->\theta
\GotoD
\Lbl I
\ClrText
\Locate 1,1,"568.95*25/100"
\Locate 14,2,"142.2375"
\Getkey=73\=>\GotoI
\Do
\Getkey\->M
\LpWhile M=0
\GotoL
\Lbl P
\Orange \Text 35,80,"PERDU"

%End