Умножить два числа не используя умножения (циклы) - QBasic

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

всем доброго времени суток во первых - всем спасибо кто помогал мне в прошлой темы и перед ними я извиняюсь так как алгебраический модуль отношения к теме не имел вообщем надо умножить два числа (допустим a и n) не используя умножения(только +или -) используя только ветвения присваивания и циклы for в прошлой теме мне подсказали

CLS
 LET r=0
 FOR i=1 TO n STEP 1
  LET r=r+a 
 NEXT i
 PRINT i;

всё работает только есть загвоздка (в дальнейшем + это положительное число а - это отрицательное , 0 это ноль) выполняется только тогда когда + и + - и + - и 0 а при остальных вариантов не работает причины создания новой темы - не мало флуда и офтопа в старой ещё раз извеняюсь good morning , geh

Решение задачи: «Умножить два числа не используя умножения (циклы)»

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

'a*b=c
FOR i=1 TO ABS(b) STEP 1
c=c+ABS(a)
NEXT i
IF SGN(a)<>SGN(b) THEN c=-c

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

Задача кода - умножение двух чисел без использования операции умножения и циклов.
Используются следующие переменные:
- a - первое число для умножения
- b - второе число для умножения
- c - результат умножения
В начале присваивается значение переменной c равное нулю.
Затем используется цикл FOR для выполнения операции сложения переменной c и абсолютного значения переменной a ABS(a) столько раз, сколько значение переменной b больше нуля.
После окончания цикла, проверяется знак переменных a и b. Если они имеют разные знаки, то результат умножения c изменяется на противоположный.
Значение переменной c является результатом умножения двух чисел.