graphsize 600,600
cls
color red
rect 0,0,graphwidth,graphheight
clg
imgload 300,400,"fourmi.png"
open 1,"cigale.txt"
reset 1
open 2,"canvas.txt"
reset 2
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+","
enreg1$="t1.lineTo("+mousex+ ","+mousey+");"
# print enreg$;
print enreg1$

write 1,enreg$
writeline 2,enreg1$
return
fin:
close 1
close 2
end
# enreg$ c'est le format BASIC 256 
# On peut récupérer les coordonnées dans la fenêtre Text Output, et par copier coller les introduire dans le programme BASIC 256. On les trouve aussi dans le fichier «to16.txt»
# enreg1$ c'est le format Canvas. On peut récupérer les coordonnées dans le fichier «canvas.txt»