PASSWORD:
LOCAL a$(5)
ONERR start::
start::
OFF
CLS :PRINT"Enter password"
INPUT a$
IF a$<>"NUTS"
 GOTO start::
ENDIF

