10 REM A file nobody can read: Basic26 secret.abas --scramble
20 DIM A$(20)
30 PRINT "What is the password";:INPUT A$
40 IF A$="SESAME" THEN PRINT "The door opens.":END
50 PRINT "Nothing happens."