Filename:PONG
'Z=X (F)
'S=SENS
'A,B=FONCTION
'D=ACCELERATION BALLE(1=OUI)
'List 1-2=CADRE
'List 3-4=BALLE
'K=NB VICT. J1
'L=NB VICT. J2
0K
0L
ClrText
Locate 6,3,"Bienvenue"
Locate 6,4,"sur PONG !"
Prog " PATIENT"
ClrText
Locate 1,1,"Quelle vitesse ?"
Locate 2,2,"Soporifique"
Locate 2,3,"3 #E601 l'heure"
Locate 2,4,"10 ans et moins"
Locate 2,5,"Pas mal#E594"
Locate 2,6,"Ca dechire grave !"
Locate 2,7,"O_o FIOOOOUUUU !"
1.1J
6M
1C
Prog "CURSEUR"
C=11S
C=21.5S
C=32S
C=42.5S
C=53S
C=65S
ClrText
Locate 1,1,"Acceleration de la"
Locate 1,2,"balle en cour de jeux"
Locate 1,4,"OUI"
Locate 1,5,"NON"
1C
2M
1.3J
Prog "CURSEUR"
CD
Lbl 1
FuncOff
Deg
CoordOff
GridOff
AxesOff
LabelOff
Cls
0A
0B
0G
ClrText
"AZ+B"1
ViewWindow 0,126,1,0,62,1
S-WindMan
S-Gph1 DrawOff
S-Gph2 DrawOn,xyLine,List 3,List 4,1,Square
200I
S-Gph3 DrawOn,xyLine,List 1,List 2,1,Dot
{0,126,126,0,0,I,30,30,I,100,100}List 1
{0,0,62,62,0,I,20,40,I,20,40}List 2
{60}List 3
35-List 3[1]AJ
{J}List 4
(List 4[1])B
(List 3[1])Z
1List 4[1]
While 1
GetkeyG
List 3[1]+SList 3[1]
List 3[1]Z
'SI TAPE HAUT OU BAS
If (List 4[1])61-Abs (A) Or (List 4[1])1+Abs (A)
Then 
((A)List 3[1]-List 4[1])-((S)(A))B
AA

IfEnd
'SI TAPE GCHE DTE
If (List 3[1])125-Abs (S) Or (List 3[1])1+Abs (S) Or (List 3[1]List 1[8] And List 4[1]List 2[7] And List 4[1]List 2[8]) Or (List 3[1]List 1[11] And List 4[1]List 2[10] And List 4[1]List 2[11])
Then 
S<07I
S>010I
(List 4[1]-(List 2[I]-1))100(List 2[I+1]+1-List 2[I])P
If (S<0 And P50) Or (S>0 And P50)
Then 
A-((32500)P^(2)+(325)P+(3))A
IfEnd
If (S<0 And P50) Or (S>0 And P50)
Then 
A+((32500)P^(2)+(325)P+(3))A
IfEnd
((A)List 3[1]-List 4[1])+ASB
AA
SS
IfEnd
'INTERRACTION
If G>9
Then 
If G=72 And S<0
Then 
2+List 2[7]List 2[7]
2+List 2[8]List 2[8]
IfEnd
If G=74 And S<0
Then 
2+List 2[7]List 2[7]
2+List 2[8]List 2[8]
IfEnd
If G=52 And S>0
Then 
2+List 2[10]List 2[10]
2+List 2[11]List 2[11]
IfEnd
If G=54 And S>0
Then 
2+List 2[10]List 2[10]
2+List 2[11]List 2[11]
IfEnd

'FIN INTERRACTION
IfEnd
'PERDU
If List 3[1]List 1[10]+Abs (S) Or List 3[1]List 1[7]-Abs (S)
Then 
Cls
ClrText
If List 3[1]List 1[7]-Abs (S)
Then 
Isz L
Locate 1,1,"Le joueur 1 a perdu!"
Else 
Isz K
Locate 1,1,"Le joueur 2 a perdu!"
IfEnd
Locate 1,3,"Score :"
Locate 2,4,"J1="
Locate 6,4,K
Locate 2,5,"J2="
Locate 6,5,L
Prog " PATIENT"
Goto 1
IfEnd
'EFFETS
If 1=2
Then 
"AZ+B"1



IfEnd
D=1SAbs (S)14+SS
'FIN EFFET

Cls
1List 4[1]
DrawStat

WhileEnd
