for i=0to 15for j=0to 15?hex$(mod(i*j,16));next
?next