Merci...
Sinon j'ai des problème avec mon code, des que le cercle est tracé le programme dit "ok"

:Cercle(4,4,4)
:Lbl 1
:While (TRUE)
:If codeTouche=42:Goto A
:End
:Lbl A
:While (TRUE)
:If codeTouche=71:Goto B
:End
:Lbl B
:While (TRUE)
:codeTouche->K
:If K=105:Goto C
:If K =/= 105 et K =/= 0
:Goto 1
:End
:Lbl C
:Output(1,1,"OK")
:Pause :EffEcr