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

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