- GOTO SCREEN begin
*>SCREEN begin
- PUT LARGE TEXT AT (1,1): "PASSWORD PROTECTION!"
- PUT TEXT AT (1,4): "This program demonstrates the use of"
- PUT TEXT AT (1,5): "hidden password protection for screen"
- PUT TEXT AT (1,6): "entry."
- DELAY 1500
- GOTO SCREEN main
*>SCREEN main
- PUT LARGE TEXT AT (3,1): "ENTER A PASSWORD:"
- PUT TEXT AT (11,6): "(HINT - TRY EASON)"
  pos 14,4
  pass$=""
- LABEL pass1
  a$=inkey$():if a$="" then goto pass1
  print "*";
  if a$=chr$(13) then goto check1
  pass$=pass$+a$
- GOTO LABEL pass1
- LABEL check1
  if pass$="EASON" then goto secret
- GOTO SCREEN failed
*>SCREEN secret
- PUT REVERSE LARGE TEXT AT (4,1): "YOU MADE IT TO"
- PUT REVERSE LARGE TEXT AT (2,2): "THE SECRET SCREEN!"
- DELAY 1500
- GOTO SCREEN main
*>SCREEN failed
- PUT REVERSE LARGE TEXT AT (3,1): "YOU ENTERED THE"
- PUT REVERSE LARGE TEXT AT (3,2): "WRONG PASSWORD!"
- PUT TEXT AT (4,6): "THIS SYSTEM WILL SELF DESTRUCT IN"
- PUT TEXT AT (3,7): "5 MINUTES... JUST KIDDING, TRY AGAIN."
- DELAY 1500
- GOTO SCREEN main
- END OF PSEUDOCODE