Как создать множество вложенных папок - QBasic

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

Хочется сделать вот так - с помощью программы создаём десять папок, в ней еще десять папок и так далее до вложенности тоже десять(простите, не знаю как правильно сформулировать). Помогите с кодом.

Решение задачи: «Как создать множество вложенных папок»

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

FOR a = 1 TO 10
 MKDIR CHR$(64 + a)
 CHDIR CHR$(64 + a)
  FOR b = 1 TO 10
   MKDIR CHR$(64 + b)
   CHDIR CHR$(64 + b)
    FOR c = 1 TO 10
     MKDIR CHR$(64 + c)
     CHDIR CHR$(64 + c)
      FOR d = 1 TO 10
       MKDIR CHR$(64 + d)
       CHDIR CHR$(64 + d)
        FOR e = 1 TO 10
         MKDIR CHR$(64 + e)
         CHDIR CHR$(64 + e)
          FOR f = 1 TO 10
           MKDIR CHR$(64 + f)
           CHDIR CHR$(64 + f)
            FOR g = 1 TO 10
             MKDIR CHR$(64 + g)
             CHDIR CHR$(64 + g)
              FOR h = 1 TO 10
               MKDIR CHR$(64 + h)
               CHDIR CHR$(64 + h)
                FOR i = 1 TO 10
                 MKDIR CHR$(64 + i)
                 CHDIR CHR$(64 + i)
                  FOR j = 1 TO 10
                   MKDIR CHR$(64 + j)
                  NEXT j
                 CHDIR ".."
                NEXT i
               CHDIR ".."
              NEXT h
             CHDIR ".."
            NEXT g
           CHDIR ".."
          NEXT f
         CHDIR ".."
        NEXT e
       CHDIR ".."
      NEXT d
     CHDIR ".."
    NEXT c
   CHDIR ".."
  NEXT b
 CHDIR ".."
NEXT a

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

Создать цикл от 1 до 10 с помощью оператора FOR.
Внутри цикла изменить текущую рабочую директорию на значение переменной a, используя команду CHDIR и конкатенацию символов.
Создать вложенный цикл от 1 до 10 с помощью оператора FOR.
Внутри вложенного цикла изменить текущую рабочую директорию на значение переменной b, используя команду CHDIR и конкатенацию символов.
Создать еще один вложенный цикл от 1 до 10 с помощью оператора FOR.
Внутри третьего вложенного цикла изменить текущую рабочую директорию на значение переменной c, используя команду CHDIR и конкатенацию символов.
Создать еще один вложенный цикл от 1 до 10 с помощью оператора FOR.
Внутри четвертого вложенного цикла изменить текущую рабочую директорию на значение переменной d, используя команду CHDIR и конкатенацию символов.
Создать еще один вложенный цикл от 1 до 10 с помощью оператора FOR.
Внутри пятого вложенного цикла изменить текущую рабочую директорию на значение переменной e, используя команду CHDIR и конкатенацию символов.
Создать еще один вложенный цикл от 1 до 10 с помощью оператора FOR.
Внутри шестого вложенного цикла изменить текущую рабочую директорию на значение переменной f, используя команду CHDIR и конкатенацию символов.
Создать еще один вложенный цикл от 1 до 10 с помощью оператора FOR.
Внутри седьмого вложенного цикла изменить текущую рабочую директорию на значение переменной g, используя команду CHDIR и конкатенацию символов.
Создать еще один вложенный цикл от 1 до 10 с помощью оператора FOR.
Внутри восьмого вложенного цикла изменить текущую рабочую директорию на значение переменной h, используя команду CHDIR и конкатенацию символов.
Создать еще один вложенный цикл от 1 до 10 с помощью оператора FOR.
Внутри девятого вложенного цикла изменить текущую рабочую директорию на значение переменной i, используя команду CHDIR и конкатенацию символов.
Создать еще один вложенный цикл от 1 до 10 с помощью оператора FOR.
Внутри десятого вложенного цикла изменить текущую рабочую директорию на значение переменной j, используя команду CHDIR и конкатенацию символов.
Выйти из десятого вложенного цикла с помощью оператора NEXT.
Выйти из девятого вложенного цикла с помощью оператора NEXT.
Выйти из восьмого вложенного цикла с помощью оператора NEXT.
Выйти из седьмого вложенного цикла с помощью оператора NEXT.
Выйти из шестого вложенного цикла с помощью оператора NEXT.
Выйти из пятого вложенного цикла с помощью оператора NEXT.
Выйти из четвертого вложенного цикла с помощью оператора NEXT.
Выйти из третьего вложенного цикла с помощью оператора NEXT.
Выйти из второго вложенного цикла с помощью оператора NEXT.
Выйти из первого вложенного цикла с помощью оператора NEXT.
Выйти из цикла от 1 до 10 с помощью оператора NEXT.