%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:256
File Name:AIDE
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"POUR TOUTE VALIDATION AUTRE QUE ENTRER DES VALEURS, CETTE VALIDATION CE FAIT PAR LA TOUCHE SHIFT POUR UNE MEILLEUR ERGONOMIE. POUR PLUS D'AIDE, VEUILLEZ ENVOYER UN E-MAIL A CETTE ADRESSE : clement.raux@free.fr CELLE ADRESSE EST AUSSI UNE ADRESSE MSN."

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1965
File Name:FIGHTER
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
"clement.raux@free.fr                           THE FIGHTER             V 1.0              BY CLEM27                        "
\Goto0
\Lbl 1
\ClrText
0\->B~Z
10\->X
3\->V
\Locate 10,7," + "
1\->C
\Locate 1,1,"WAIT THE MOMENT YOU"
\Locate 1,2,"ENTER IN SPEED,"
\Locate 1,3,"AFTER THIS MOMENT"
\Locate 1,4,"THE GAME BEGIN !!!"
\For 1\->M \To 1500
\Next 
\Locate 1,1,"                     "
\Locate 1,2,"                     "
\Locate 1,3,"                     "
\Locate 1,4,"                     "
\Int (\Ran#*20)+2\->B
\Locate 1,3,"3"
1\->C
\Do
\For 1\->Z \To A
\If \Getkey=38\ And X>1:\Then X-1\->X:\Locate X,7," + ":\IfEnd
\If \Getkey=27\ And X<20:\Then X+1\->X:\Locate X,7," + ":\IfEnd
\If C=7:\Then \Locate B,C," ":1\->C:V-1\->V:\Locate 1,3,V:\Break:\IfEnd
\If \Getkey=78:\Then \Locate X+1,5,".":\Locate X+1,3,".":\Locate X+1,5," ":\Locate X+1,3," ":\If X+1=B:\Then S+1\->S:0\->D:\Break:\IfEnd:\IfEnd
\Next 
\Locate B,C," "
\If D=1:\Then C+1\->C:B+(\Int (\Ran#*3)-1)\->B:\If B=1:\Then 2\->B:\IfEnd:\If B=22:\Then 21\->B:\IfEnd:\IfEnd
\If D=0:\Then 1\->D:\Int (\Ran#*20)+2\->B:1\->C:\IfEnd
\Locate B,C,"*"
\LpWhile V\<>0
\Locate 7,3,"GAME OVER"
\Locate 7,4,"SCORE :"
\Locate 14,4,S
\If S\>=\Mat Q[1,1]\ Or S\>=\Mat Q[2,1]\ Or S\>=\Mat Q[3,1]:\Then \Locate 1,5,"IT'S A BEST SCORE !!!":\IfEnd
0\->N
\For 1\->X \To 3
\If S\>=\Mat Q[X,1]\ And N=0:\Then 1\->N:S\->\Mat Q[X,1]:A\->\Mat Q[X,2]:\IfEnd
\Next 
\For 1\->M \To 1500
\Next 
\Lbl 0
0\->A~Z
3\->Y
\ClrText
"THE ULTIMATE FIGHTER!"
\Locate 3,3,"NEW GAME"
\Locate 3,4,"BEST SCORE"
\Locate 3,5,"INITIALISER"
\Locate 3,6,"CREDIT"
\Locate 3,7,"EXIT"
\Locate 1,3,"\->"
\Locate 1,2,"clement.raux@free.fr"
\Do
\If Y>3\ And \Getkey=28:\Then \Locate 1,Y," ":Y-1\->Y:\Locate 1,Y,"\->":\IfEnd
\If Y<7\ And \Getkey=37:\Then \Locate 1,Y," ":Y+1\->Y:\Locate 1,Y,"\->":\IfEnd
\LpWhile \Getkey\<>78
\If Y=3:\Then \ClrText:"SPEED"?\->A:\Goto1:\IfEnd
\If Y=6:\Then \ClrText:"CE PROGRAMME A ETE DEVELOPPE PAR CLEM27":\For 1\->X \To 200:\Next :\Goto0:\IfEnd
\If Y=7:\Then \ClrText:"BYE THE FIGHTER, ALL MODIFICATION IS ALLOWED.                          ":\ClrText:\Stop:\IfEnd
\If Y=5:\Then \ClrText:"PRESS EXE FOR INITIALISER OR EXIT FOR CANCEL.":\Do:\Getkey=47\=>\Goto0:\LpWhile \Getkey\<>31:{3,2}\->\Dim \Mat Q:\Goto0:\IfEnd
\If Y=4:\Then \ClrText:3\->\Dim \List 1:\Mat->ListQ,1)\->\List 1:\Min(\List 1)\->C:\Max(\List 1)\->A:\Median\List 1)\->B:"    THE ROSTRUM :":\Locate 8,2,A:\Locate 2,3,B:\Locate 16,4,C:\Locate 9,4,"I":\Locate 3,5,"II":\Locate 16,6,"III":\Locate 6,3,"[------]":\Locate 13,4,"]":\Locate 1,4,"-----[":\Locate 13,5,"]--------":\Locate 1,5,"[":\Locate 1,6,"[":\Locate 21,6,"]":\Locate 6,7,"PRESS SHIFT!":\Do:\LpWhile \Getkey\<>78:\ClrText:" MORE INFORMATION :":\Locate 1,3,"1=":\Locate 1,4,"2=":\Locate 1,5,"3=":\Locate 3,3,A:\Locate 3,4,B:\Locate 3,5,C:\For 3\->M \To 5:\Locate 10,M,"SPEED=":\Next :\For 3\->M \To 5:\Locate 16,M,\Mat Q[M-2,2]:\Next :\Locate 6,7,"PRESS SHIFT!":\Do:\LpWhile \Getkey\<>78:\Goto0:\IfEnd

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:2312
File Name:FIGHTER2
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
"clement.raux@free.fr                           THE FIGHTER             V 1.6              BY CLEM27                        "
\Goto0
\Lbl 1
\ClrText
0\->B~Z
10\->X
3\->V
\Locate 10,7," + "
1\->C
\Locate 1,1,"WAIT THE MOMENT YOU"
\Locate 1,2,"ENTER IN SPEED,"
\Locate 1,3,"AFTER THIS MOMENT"
\Locate 1,4,"THE GAME BEGIN !!!"
\For 1\->M \To 1500
\Next 
\Locate 1,1,"                     "
\Locate 1,2,"                     "
\Locate 1,3,"                     "
\Locate 1,4,"                     "
\Int (\Ran#*20)+2\->B
\Locate 1,3,"3"
1\->C
10\->E
5\->G
\Do
\For 1\->Z \To A
\If \Getkey=38\ And X>1:\Then X-1\->X:\Locate X,7," + ":\IfEnd
\If \Getkey=27\ And X<20:\Then X+1\->X:\Locate X,7," + ":\IfEnd
\If C=7:\Then \Locate B,C," ":1\->C:V-1\->V:\Locate 1,3,V:\Break:\IfEnd
\If \Getkey=78:\Then Z+5\->Z:\Locate X+1,5,".":\Locate X+1,3,".":\Locate X+1,5," ":\Locate X+1,3," ":\If S\<>E\ And X+1=B:\Then S+1\->S:0\->D:\Break:\IfEnd:\If S=E:\Then \If X+1=B\ Or X=B\ Or X-1=B:\Then G-1\->G:\Break:\IfEnd:\IfEnd:\IfEnd
\If B=X\ And E=S:\Then \Locate B+1,4,"I":\Locate B+1,6,"I":\Locate B+1,6," ":\Locate B+1,4," ":\Locate B+1,6," ":V-1\->V:\Locate 1,3,V:\Break:\IfEnd
\Next 
\Locate B,C," "
\If E=S:\Then 4\->C:\Locate B,1,"   ":\Locate B+1,2," ":\Int (\Ran#*19)+1\->B:\Locate B,1,"***":\Locate B+1,2,"*":\If G\<=0:\Then S+10\->S:E+20\->E:5\->G:\Locate 1,1,"                     ":\Locate 1,2,"                     ":\IfEnd:\If V=0:\Then \Break:\IfEnd:\IfEnd
\If E\<>S:\Then \If D=1:\Then C+1\->C:B+(\Int (\Ran#*3)-1)\->B:\If B=1:\Then 2\->B:\IfEnd:\If B=22:\Then 21\->B:\IfEnd:\IfEnd
\If D=0:\Then 1\->D:\Int (\Ran#*20)+2\->B:1\->C:\IfEnd
\Locate B,C,"*"
\IfEnd
\LpWhile V\<>0
\Locate 7,3,"GAME OVER"
\Locate 7,4,"SCORE :"
\Locate 14,4,S
\If S\>=\Mat Q[1,1]\ Or S\>=\Mat Q[2,1]\ Or S\>=\Mat Q[3,1]:\Then \Locate 1,5,"IT'S A BEST SCORE !!!":\IfEnd
0\->N
\For 1\->X \To 3
\If S\>=\Mat Q[X,1]\ And N=0:\Then 1\->N:S\->\Mat Q[X,1]:A\->\Mat Q[X,2]:\IfEnd
\Next 
\For 1\->M \To 1500
\Next 
\Lbl 0
0\->A~Z
3\->Y
\ClrText
"THE ULTIMATE FIGHTER!"
\Locate 3,3,"NEW GAME"
\Locate 3,4,"BEST SCORE"
\Locate 3,5,"INITIALISER"
\Locate 3,6,"CREDIT"
\Locate 3,7,"EXIT"
\Locate 1,3,"\->"
\Locate 1,2,"clement.raux@free.fr"
\Do
\If Y>3\ And \Getkey=28:\Then \Locate 1,Y," ":Y-1\->Y:\Locate 1,Y,"\->":\IfEnd
\If Y<7\ And \Getkey=37:\Then \Locate 1,Y," ":Y+1\->Y:\Locate 1,Y,"\->":\IfEnd
\LpWhile \Getkey\<>78
\If Y=3:\Then \ClrText:"SPEED"?\->A:\Goto1:\IfEnd
\If Y=6:\Then \ClrText:"CE PROGRAMME A ETE DEVELOPPE PAR CLEM27":\For 1\->X \To 200:\Next :\Goto0:\IfEnd
\If Y=7:\Then \ClrText:"BYE THE FIGHTER, ALL MODIFICATION IS ALLOWED.                          ":\ClrText:\Stop:\IfEnd
\If Y=5:\Then \ClrText:"PRESS EXE FOR INITIALISER OR EXIT FOR CANCEL.":\Do:\Getkey=47\=>\Goto0:\LpWhile \Getkey\<>31:{3,2}\->\Dim \Mat Q:\Goto0:\IfEnd
\If Y=4:\Then \ClrText:3\->\Dim \List 1:\Mat->ListQ,1)\->\List 1:\Min(\List 1)\->C:\Max(\List 1)\->A:\Median\List 1)\->B:"    THE ROSTRUM :":\Locate 8,2,A:\Locate 2,3,B:\Locate 16,4,C:\Locate 9,4,"I":\Locate 3,5,"II":\Locate 16,6,"III":\Locate 6,3,"[------]":\Locate 13,4,"]":\Locate 1,4,"-----[":\Locate 13,5,"]--------":\Locate 1,5,"[":\Locate 1,6,"[":\Locate 21,6,"]":\Locate 6,7,"PRESS SHIFT!":\Do:\LpWhile \Getkey\<>78:\ClrText:" MORE INFORMATION :":\Locate 1,3,"1=":\Locate 1,4,"2=":\Locate 1,5,"3=":\Locate 3,3,A:\Locate 3,4,B:\Locate 3,5,C:\For 3\->M \To 5:\Locate 10,M,"SPEED=":\Next :\For 3\->M \To 5:\Locate 16,M,\Mat Q[M-2,2]:\Next :\Locate 6,7,"PRESS SHIFT!":\Do:\LpWhile \Getkey\<>78:\Goto0:\IfEnd

%End