Как написать программу на VB или хотя бы алгоритм, чтобы нарисовать "змейку" с ЛЮБЫМИ задаваемыми параметрами (а не только с указанными на рисунке): амплитуда и количество зигзагов?

Задача очень простая. И Бейсик язык простой, на нём очень легко состряпать примитивную программку даже если уроки информатики у тебя были ...дцать лет тому назад.
Естественно, настоящие программисты посмеются над ней и её недалёким автором, но... работает она.
Это не VB, это QuickBasic для DOS, но Бейсик - он и в Африке...
Змейка наша циклична (вправо, влево, и снова, по числу зигзагов), потому используем циклы.
Для формирования отступа используем функцию SPC(n), печатающую заданное число пробелов.
Писал программулинку с отступами, для читаемости, но наш Большой Вопрос их убирает. Разберетесь.
CLS
INPUT "Число зигзагов:", nz
INPUT "Амплитуда:", a
FOR i = 1 TO nz
FOR j = 1 TO a
PRINT SPC(j - 1); "@"
NEXT j
FOR k = a - 1 TO 2 STEP -1
PRINT SPC(k - 1); "@"
NEXT k
NEXT i
PRINT "@"

Программа не моя. Я нашла среди своих записей. Текст "обучалки" неизвестного автора с подробными объяснениями. Надеюсь они вам помогут. Я пробовала модифицировать из консолди DOS под Виндовс, но мне это надоело. Вижел бэйсик - это не моя тема. Но если вам интересно, надеюсь разберётесь.