QBasic - Sistema password in Qbasic ??

Ciao a tutti !

sto girando in giro per il web alla ricerca di quanto detto sopra, ma non riesco proprio a trovare niente !

sono arrivato qui:

INPUT "PASSWORD: " ,p$
IF p$ = "1234" THEN
PRINT "PASSWORD CORRETTA!"
END
ELSE
PRINT "PASSWORD ERRATA!"
'ma qui ?? cosa metto per far in modo che ritorni a chiedermi la password ?
END IF

Qulcuno sa aiutarmi per favore ?
Grazie molto!

Usa un ciclo Do ... Loop Until.