Примерно так:
Код:
REM Вывод шапки
CLS
LOCATE 1, 10
PRINT "Таблица Пифагора"
LOCATE 3, 5
FOR i = 1 TO 9
PRINT USING "###"; i;
NEXT i
PRINT
PRINT "--------------------------------"
REM Вывод таблицы Пифагора
FOR i = 1 TO 9
PRINT i; "|";
FOR j = 1 TO 9
PRINT USING "###"; i * j;
NEXT j
PRINT
NEXT i
END