graphsize 800,500 cls color red rect 0,0,graphwidth,graphheight clg imgload 144,176,"to16.png" open 1,"to16.txt" reset 1 cls print "Cliquez avec le bouton gauche en suivant la ligne à tracer." print "Bouton droit de la souris pour terminer" loop: if mouseb = 1 then gosub souris if mouseb = 2 then gosub fin goto loop souris: color black circle mousex, mousey, 1 pause 0.5 enreg$=mousex+ ","+mousey+"," print enreg$ write 1,enreg$ return fin: close 1 end