:FnOff :ClrDraw :ClrHome :0 -> Xmin :0 -> Ymin :93 -> Xmax :62 -> Ymax :0 -> A :0 -> B :0 -> C :0 -> D :0 -> E :0 -> F :0 -> G :Disp "NOMBRE DE LANCES" :Input Z :int Z -> Z :ClrHome :Horizontal 25 :Horizontal 37.5 :Horizontal 50 :Line(0,25,0,50) :Line(15.5,25,15.5,50) :Line(31,25,31,50) :Line(46.5,25,46.5,50) :Line(62,25,62,50) :Line(77.5,25,77.5,50) :Line(93,25,93,50) :Text(15,7,"1" :Text(15,23,"2" :Text(15,38,"3" :Text(15,53,"4" :Text(15,69,"5" :Text(15,85,"6" :Text(3,0,"NBRE DEMANDE:" :Text(3,53,Z :Lbl 0 :A+1 -> A :Text(57,0,"LANCES EFFECTUES:" :Text(57,57,62,A :Text(40,20,"PATIENTEZ S.V.P" :iPart 6rand+1 -> H :If H=1 :B+1 -> B :If H=2 :C+1 -> C :If H=3 :D+1 -> D :If H=4 :E+1 -> E :If H=5 :F+1 -> F :If H=6 :G+1 -> G :If getkey=21 or A=Z :Goto 1 :Goto 0 :Lbl 1 :Text(40,20," (70 espaces) " :Text(40,42,"FINI" :Text(27,5,B :Text(27,21,C :Text(27,36,D :Text(27,51,E :Text(27,67,F :Text(27,83,G :Stop-> = petite flèche (STO)