do i=1 to 95
call charout,d2c(i+31)d2c(32-22*(i//16=0))
end