dim x as byte
dim y as byte
x=poti/10
for y=1 to x
printbin Bar1
next y