Перевод из Visual Basic в qBasic - VB

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

                    Листинг программы
                
 
                        
                          
                    
Sub My()
Dim i As Integer, summ As Single, t As Single
Dim x As Integer, f As Boolean
 
t = CSng(InputBox("vvedite"))
summ = 0
i = 1
x = -1
f = False
Do While Not f
x = x * (-1)
summ = summ + x / (2 * i - 1)
If t > Abs(x / (2 * i - 1)) Then
f = True
Else
i = i + 1
End If
Loop
MsgBox (summ)
MsgBox (i)
End Sub

Не получается заменить чем-либо логический тип переменной, отказывается работать. Boolean. Пишет: Тип не определён.

Решение задачи: «Перевод из Visual Basic в qBasic»

textual
                            Листинг программы 
                        
 
                        
                          
                    
DIM i AS INTEGER, summ AS SINGLE, t AS SINGLE
DIM x AS INTEGER, f AS INTEGER
 
INPUT t
summ = 0
i = 1
x = -1
f = 0
DO WHILE f = 0
   x = x * (-1)
   summ = summ + x / (2 * i - 1)
   IF t > ABS(x / (2 * i - 1)) THEN
     f = 1
   ELSE
     i = i + 1
   END IF
LOOP
PRINT summ
PRINT i
END