do i=0 to 255
call charout,countstr(1,x2b(d2x(i)))
end