Ввод достоверного пароля — QBasic(Бейсик)

WHILE WORD$ <> "TERMINATOR"
    INPUT "vvedite parol"; WORD$
WEND
PRINT "pravilno! vy dopusheny k prodoljeniyu raboty"