Перевод кода из Fortran в QBasic

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

Здравствуйте. Подскажите пожалуйста с переводом кода из Fortran.

       DO 5 I=1,N
5      Y1(I)=Z(I)*H
       IF (E_1) 6, 7, 6
6      IF (E_2) 8, 9, 8
8      IF (E_3) 10, 11, 10
10     IF (E_4) 12, 13, 12

тд. Если перевести в QBasic то тогда это будет так?

            Do while 5
               For I=1 to N
5           Y1(I)=Z(I)*H
            IF (E_1) Then GOTO 6
            IF (E_1) Then GOTO 7
            IF (E_1) Then GOTO 6
...............и тд............................
                Next I
            Loop

Или нужно делать оператор Do без While?

Решение задачи: «Перевод кода из Fortran в QBasic»

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

SELECT CASE K
   CASE IS < 1:               '  Тут действие 1
   CASE 1:                    '  Тут действие 2
   CASE IS > 1:               '  Тут действие 3
END SELECT

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

Объявляется переменная K типа целое число.
Выполняется оператор SELECT CASE, который проверяет значение переменной K.
В случае, если значение переменной K меньше 1, выполняется действие 1.
Если значение переменной K равно 1, выполняется действие 2.
Если значение переменной K больше 1, выполняется действие 3.