Сформировать и вывести таблицу умножения в восьмеричной системе счисления - QBasic

Формулировка задачи:

Сформировать и вывести таблицу умножения в восьмеричной системе счисления. Вывод осуществить в виде таблицы, на пересечении i–ой строки и j–ого столбца которой располагается результат перемножения 8-ричных цифр «i» и «j».

Решение задачи: «Сформировать и вывести таблицу умножения в восьмеричной системе счисления»

Листинг программы

FOR i=1 TO 7
  FOR j=1 TO 7
    LOCATE j*2, (i-1)*8
    GOSUB pr
  NEXT j
NEXT i
END
 
pr:
  s=j*i
  o=s MOD 8
  s$=STR$((s-o)/8)+STR$(o)
  PRINT s$
RETURN

Объяснение кода листинга программы

Переменная i и j получает значения от 1 до 7.
Первая итерация i=1, j=1 соответствует позиции (2,1) в таблице умножения.
Переменная s вычисляет произведение i и j.
Переменная o вычисляет остаток от деления s на 8.
Переменная s$ формирует строковое представление числа s с использованием функции STR$.
Значение переменной s$ выводится на экран с помощью функции PRINT.
Процедура GOSUB выполняет переход к подпрограмме pr.
В конце основной программы после выполнения всех итераций выводится символ RETURN.