%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:2635
File Name:PLTFORM
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
\Cls
\ViewWindow 1,127,0,1,63,0
\Orange "     Plate FORME"
"     -----------"
" "
" "
" "
\Green "Par: LHOMME Aurelien"
\Do:\LpWhile \Getkey\<>31
1\->A~N
3\->V
\GotoP
\Lbl D
\Do
A>0\=>\Text A,B,"\theta"
\Getkey\->F
B\->D
\If F
\Then \If F=27
\Then A>0\=>\PxlTest A,B+4
\Ans\=>\GotoA
B+3\->B
\IfEnd
\If F=38\ And B\<>1
\Then A>0\=>\PxlTest A,B-2
\Ans\=>\GotoA
B-3\->B
\IfEnd
\IfEnd
\Lbl A
B=124\=>\GotoP
A>0\=>\PxlTest A+6,B+1
M=0\=>\Dsz M
\Ans\=>0\->M
\Getkey=78\=>M=0\=>4\->M
A\->C
\If M<0
\Then A+6\->A
\IfEnd
\If M>0
\Then \Dsz M
A-6\->A
\IfEnd
C>0\=>\Text C,D," "
\LpWhile A\<>61
\Lbl P
\Cls
\ClrText
\If A=61
\Then \Locate 1,1,"Perdu!!"
\Dsz V
\Locate 1,2,"Il vous reste"
\Locate 15,2,V
\Locate 17,2,"vie"
\Do:\LpWhile \Getkey\<>31
V=0\=>\Stop
\IfEnd
\If B=124
\Then "Niveau    fini"
\Locate 8,1,N
\Isz N
\If \Int (N/2)=N/2
\Then \Isz V
"+1VIE"
\IfEnd
V\Disp\IfEnd
25\->A~C
1\->B
N\<>19\=>\F-Line 1,33,8,33
\If N=1
\Then \F-Line 8,33,8,39
\F-Line 8,39,29,39
\F-Line 41,39,65,39
\F-Line 65,39,65,33
\F-Line 65,33,83,33
\F-Line 92,45,113,45
\F-Line 122,51,127,51
\IfEnd
\If N=2
\Then \F-Line 17,33,20,33
\F-Line 29,3,44,3
\F-Line 44,15,50,15
\F-Line 53,27,62,27
\F-Line 59,39,68,39
\F-Line 74,45,77,45
\F-Line 86,45,110,45
\IfEnd
\If N=3
\Then \F-Line 17,63,17,15
\F-Line 17,3,35,3
\F-Line 32,15,17,15
\F-Line 41,27,23,27
\F-Line 41,3,41,15
\F-Line 56,39,68,39
\F-Line 83,39,92,39
\F-Line 110,9,113,9
\IfEnd
\If N=4
\Then \F-Line 14,45,17,45
\F-Line 35,3,47,3
\F-Line 44,15,44,63
\F-Line 44,15,53,15
\F-Line 53,27,59,27
\F-Line 53,39,50,39
\F-Line 65,45,80,45
\F-Line 80,45,80,9
\F-Line 95,9,101,9
\F-Line 113,9,127,9
\IfEnd
\If N=5
\Then \PlotOn 23,33
\PlotOn 44,15
\PlotOn 56,21
\PlotOn 74,21
\PlotOn 86,27
\PlotOn 104,3
\PlotOn 113,3
\IfEnd
\If N=6
\Then \F-Line 17,45,29,45
\F-Line 50,45,50,3
\PlotOn 68,3
\F-Line 86,3,89,3
\F-Line 98,9,107,9
\IfEnd
\If N=7
\Then \F-Line 20,63,20,15
\F-Line 20,3,26,3
\F-Line 26,3,26,21
\F-Line 26,21,20,21
\F-Line 20,39,26,39
\F-Line 56,3,59,3
\F-Line 68,9,80,9
\F-Line 89,21,98,21
\PlotOn 113,9
\IfEnd
\If N=8
\Then \F-Line 41,3,50,3
\F-Line 65,15,68,15
\PlotOn 74,27
\PlotOn 80,39
\F-Line 92,39,92,3
\PlotOn 101,3
\F-Line 107,27,107,63
\F-Line 125,51,125,3
\PlotOn 116,9
\PlotOn 122,21
\PlotOn 116,33
\PlotOn 119,45
\IfEnd
\If N=9
\Then \F-Line 26,39,44,39
\F-Line 44,3,38,3
\F-Line 26,3,26,39
\F-Line 50,63,50,27
\F-Line 32,27,50,27
\PlotOn 56,3
\PlotOn 71,15
\PlotOn 59,27
\PlotOn 71,45
\PlotOn 113,3
\IfEnd
\If N=10
\Then \PlotOn 26,33
\PlotOn 32,51
\F-Line 47,45,47,3
\F-Line 53,15,53,33
\F-Line 53,3,80,3
\F-Line 53,15,71,15
\F-Line 71,39,71,15
\F-Line 71,39,113,39
\F-Line 125,63,125,21
\PlotOn 101,3
\PlotOn 110,15
\IfEnd
\If N=11
\Then \F-Line 20,45,20,21
\PlotOn 26,9
\F-Line 29,27,29,63
\PlotOn 38,21
\PlotOn 62,3
\PlotOn 71,15
\PlotOn 83,27
\PlotOn 92,39
\IfEnd
\If N=12
\Then \PlotOn 41,3
\PlotOn 41,21
\PlotOn 62,21
\PlotOn 62,39
\F-Line 101,3,125,3
\IfEnd
\If N=13
\Then \F-Line 8,34,8,51
\F-Line 20,57,20,27
\F-Line 14,27,14,15
\PlotOn 14,3
\PlotOn 29,9
\PlotOn 41,15
\PlotOn 41,33
\F-Line 53,39,68,39
\F-Line 68,39,68,3
\F-Line 95,3,95,9
\F-Line 110,9,116,9
\IfEnd
\If N=14
\Then \PlotOn 26,39
\PlotOn 53,3
\PlotOn 65,9
\F-Line 80,9,83,9
\F-Line 92,21,92,9
\F-Line 101,33,101,15
\F-Line 125,3,125,27
\F-Line 125,39,125,63
\IfEnd
\If N=15
\Then \F-Line 23,9,26,9
\F-Line 23,21,23,63
\F-Line 23,21,44,21
\F-Line 44,3,50,3
\F-Line 44,21,44,57
\F-Line 59,15,62,15
\PlotOn 74,27
\PlotOn 41,39
\PlotOn 74,45
\PlotOn 110,3
\F-Line 50,63,50,15
\IfEnd
\If N=16
\Then \PlotOn 29,33
\PlotOn 59,3
\PlotOn 77,9
\PlotOn 80,27
\PlotOn 83,45
\IfEnd
\If N=17
\Then \F-Line 14,45,14,3
\PlotOn 41,3
\F-Line 38,27,125,27
\F-Line 125,27,125,63
\F-Line 50,9,50,9
\PlotOn 62,3
\F-Line 74,3,83,3
\PlotOn 83,3
\PlotOn 92,9
\PlotOn 104,3
\PlotOn 113,3
\IfEnd
\If N=18
\Then \F-Line 14,45,14,3
\F-Line 14,57,14,63
\F-Line 38,33,38,3
\F-Line 38,45,38,63
\F-Line 53,39,53,3
\F-Line 53,51,53,63
\F-Line 80,9,80,3
\F-Line 80,21,80,63
\F-Line 95,21,95,3
\F-Line 95,33,95,63
\IfEnd
\If N=19
\Then \ClrText
\Green "      BRAVO!!!"
" "
" "
\Orange "VOUS AVEZ FINI"
" "
\Green "   TOUS LES NIVEAUX"
\Stop
\IfEnd
\GotoD
%End