do i=1 to 12
do j=1 to 12
call charout,right(i*j,3)d2c(32-(j=12)*22)
end
end