Try this:

CLS

FOR y = 0 to 10

FOR x = 1 to 10

z = x * y

z$ = RIGHT$(STR$(z), LEN(STR$(z)) - 1)

x$ = RIGHT$(STR$(x), LEN(STR$(x)) - 1)

y$ = RIGHT$(STR$(y), LEN(STR$(y)) - 1)

LOCATE y + 4, (x * 8) - 7: PRINT USING "&*&=&"; x$; y$; z$

NEXT x

NEXT y

END

Notice that you can't fit the a 10 by 10 grid on an 80 column

screen without doing a bit of data compression. Thats what

necessitated the wierd string manipulations.

Even this method still wraps the last digit in the last answer,

so try this also, the "table" method:

CLS

SCREEN 12

FOR x = 1 TO 10

COLOR 10: LOCATE 4, (x * 7) + 1: PRINT USING "###"; x

NEXT x

FOR y = 0 TO 10

COLOR 10: LOCATE y + 6, 1: PRINT USING "####"; y

FOR x =1 TO 10

z = x * y

COLOR 11: LOCATE y + 6, (x * 7): PRINT USING "####"; z

NEXT x

NEXT y

END

Mess around with all this till you get what you like.

Dex