Syntax error при выводе строки на экран - QBasic

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

Здравствуйте я хотел бы научится писать программы и приобрел книгу там первое задание на qbasic я сам эту программу не нашел для win 7 64 bit и установил PureBasic (x64) и теперь у меня токай вопрос Введите в программном окне текст вот такой:

                    Листинг программы
                
 
                        
                          
                    
PRINT "Сообщите пароль, шеф"
INPUT PS
CLS
PRINT "Стой! Пароль?"
PRINT "У Вас две попытки"
FOR A = 1 TO 2
INPUT AS
IF AS  = PS THEN A = 2: GOTO 130
PRINT "Неправельно"
NEXT A
PRINT "Прочь, шпион!"
END
PRINT "Проходите, друг!"
END

я его пишу все правильно в программе PureBasic (x64) но выводит вот такую ошибку Line 1:Syntax error пожалуйста подскажите что делать или я что делаю не так ?? Зарание спасибо

Решение задачи: «Syntax error при выводе строки на экран»

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

OpenConsole()
 
PrintN("Сообщите пароль, шеф")
P$=Input()
PrintN("Стой! Пароль?")
PrintN("У Вас две попытки")
 
For A = 1 To 2
  A$=Input()
  If A$ = P$ 
    Goto m1
  Else
    PrintN("Неправельно")
  EndIf
Next A
 
Print("Прочь, шпион!")
Input()  ; Чтобы консоль не закрылась. Нажать Enter для закрытия.
End
 
m1:
PrintN("Проходите, друг!")
Input()  ; Чтобы консоль не закрылась. Нажать Enter для закрытия.
End

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

В этом коде есть две основные части:

Пользователю сообщается, что нужно ввести пароль. Затем пользователю даются две попытки ввести пароль. Если введённый пароль совпадает с оригинальным, то выводится сообщение Прочь, шпион!. Если нет - Неправельно.
Если пароль верный, пользователю сообщается, что он может пройти. После этого программа завершается. Если пароль неверный, программа также завершается, но выводится сообщение Прочь, шпион!.