%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:875
File Name:AVION
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Do
\AxesOff
\CoordOff
0\->C~Z:12\->A:1\->B:1\->O:1\->E
\ClrText
\Locate 8,2,"AVION"
\Locate 8,3,"-----"
\Locate 2,5,"PAR LHOMME AURELIEN"
\Locate 4,7,"APPUYER SUR EXE"
\Do:\LpWhile \Getkey\<>31
\ClrText
\Locate A,B,">"
\Do
\Getkey\->T
\If T=27\ Or O=1
\Then \Locate A,B," "
A<21\=>\Isz A
\Locate A,B,">"
1\->E:0\->H:1\->O
\IfEnd
\If T=38\ Or O=2
\Then \Locate A,B," "
A>1\=>\Dsz A
\Locate A,B,"<"
-1\->E:0\->H:2\->O
\IfEnd
\If T=28\ Or O=3
\Then \Locate A,B," "
B>1\=>\Dsz B
\Locate A,B,"^"
0\->E:-1\->H:3\->O
\IfEnd
\If T=37\ Or O=4
\Then \Locate A,B," "
B<7\=>\Isz B
\Locate A,B,"Y"
0\->E:1\->H:4\->O
\IfEnd
\If W=0
\Then \Do
\Int 21\Ran#+1\->F
\Int 7\Ran#+1\->G
\LpWhile F<A+6\ And F>A-6\ And G>B-5\ And G<B+5
\Isz W
\IfEnd
\Locate F,G," "
F>A\=>\Dsz F
F<A\=>\Isz F
G>B\=>\Dsz G
G<B\=>\Isz G
\Locate F,G,"O"
\If D=F\ And G=C
\Then 0\->W
\Locate F,G,"X"
\Locate F,G," "
0\->Z:S+10\->S:0\->C:0\->D
\IfEnd
\If \Getkey=78\ And Z=0
\Then H=-1\=>B\<=2\=>\Goto8
H=1\=>B\>=6\=>\Goto8
E=1\=>A\>=20\=>\Goto8
E=-1\=>A\<=2\=>\Goto8
\Isz Z
A+E\->D:E\->U:H\->V:B+H\->C
\IfEnd
\Lbl 8
\If Z=1
\Then D+U\->D
C+V\->C
\Locate D,C,"."
\Locate D-U,C-V," "
U\<>0\=>D\>=21\ Or D\<=1\=>\Dsz Z
V\<>0\=>C\>=7\ Or C\<=1\=>\Dsz Z
\If D=F\ And C=G
\Then \Dsz W
\Locate F,G,"X"
\Locate F,G," "
0\->Z:S+10\->S:0\->C~D
\IfEnd
\IfEnd
\LpWhile A\<>F\ Or B\<>G
\Cls
\Graph Y>-10
\Graph Y<-10
\ClrText
\Locate 7,1,"GAME OVER"
\Locate 1,4,"SCORE:"
\Locate 8,4,S
\Do
\Getkey\->T
\LpWhile T\<>31\ And T\<>47
\LpWhile T=31
\ClrText
\Stop

%End