vous me ferez cent lignes

rem escape pour sortir
 dim ya,yb,xa,xb,a ,b ,y ,x ,w
 width 0,2000
 height  0,1100
 color 0, 140,255,120
 rem y=a*x+b
 rem a coef directeur
rem  1/calculer a
rem entrer les valeurs
 for w=1 to 500
 ya=rnd(1100)
 yb=rnd(1100)
 xa= rnd(2000)
 xb=rnd(2000)
a=(yb-ya)/(xb-xa)

display


rem 2/ calculer b



b=  ya-(a*xa)
y=(a*xa)+b

for xa =1 to 2000 step 4
if key_down_code  = 27 then terminate
 y=(a*xa)+b
 2d_circle xa,y,6
  2d_circle y+25,xa,6
  2d_circle y+100,xa-100,6
rem on peut rajouter "cls " ici
 next xa
 2d_fill_color rnd(255),rnd(255),rnd(255)
 wait 600


 next w
end