do
a=0
for j=1to 451a=a+"*"=chr$(peek(0))next
?a/5loop