'Nibbles by Lionel Baboud
'casio site:http://perso.wanadoo.fr/duobab/
'e-mail:roland.baboud@wanadoo.fr
'---------

Characters translation :
------------------------
|  >=   : greater or equal
|  <=   : less or equal
|  <>   : not equal
|  ->   : the single arrow
|  =>   : the double arrow


0.2 -> O
2 -> P
3 -> W
3 -> Z
5 -> A
6 -> B
0 -> C
37 -> K
ClrGraph
AxesOff
Horizontal -3
Horizontal 3
For -3+Z -> M To 3-Z Step Z
Horizontal M
For -6 -> N To 6 Step O
Int PRan#=0 => PlotOff N,M
Next
Next
Vertical -6
Vertical 6
For -6+W -> M To 6-W Step W
Vertical M
For -3 -> N To 3 Step O
Int PRan#=0 => PlotOff M,N
Next
Next
Do
Green PxlOn A,B
C+1 -> C
Getkey -> L
L <> 0 => L -> K
K=37 => A+1 -> A
K=28 => A-1 -> A
K=27 => B+1 -> B
K=38 => B-1 -> B
PxlTest A,B
LpWhile Ans=0
"NOMBRE DE PIXELS TRAVERSES:":C