Not only do I have different ways to do this thanks to all you guys I am also learning how code like this works with different ways to achieve the result,so once again many thanks to you all.
1 REM ; the 800 characters 10 LET C=-22400 ; the counter 800 * code "0" 20 FOR A=16514 TO 17313 ; the address loop (800 step)
30 LET C=C+PEEK A ; set counter
40 NEXT A
50 PRINT "1=";C,"0=";800-C ; the results
Hoops, sorry !
Nice code...
Xavier ...on the Facebook groupe : "Zx81 France"(fr)