; Secret Entry PPE
; [SOURCE CODE] + EXPLANATION WHAT EACH LINE IS DOING!
; Coded by Zorkey [DOA]
;------------------------------------------------------------------------------
; Reading the vars:

    STRING     VAR001
    STRING     VAR002
    STRING     VAR003

;------------------------------------------------------------------------------

;Reading the 1st line in the SECRET!.CFG file, and put it as a VAR002

    LET VAR002=READLINE((PPEPATH()+"SECRET!.CFG"),1)

;Reading the 2nd line in the SECRET!.CFG file, and put it as a VAR003

    LET VAR003=READLINE((PPEPATH()+"SECRET!.CFG"),2)
    NEWLINE 

;Printing VAR002 (look above).

    PRINT VAR002

;Waiting for the ENTER or the pwd.

    INPUTSTR "@X07_",VAR001,7,1,VAR003,ECHODOTS

;If the user pressed ENTER, it will skip like nothing happend,
;but if the user typed the pwd, he will enter to the secret entry.

    IF (VAR001=VAR003) GOTO LABEL001
    IF (VAR001="") GOTO LABEL000
    END 

:LABEL000
    END 

:LABEL001
    PRINTLN "@X0F"
    PRINTLN "@X0F"
    PRINTLN "@X0F"
    DELAY 1
    PRINT "C"
    DELAY 1
    PRINT "o"
    DELAY 1
    PRINT "d"
    DELAY 1
    PRINT "e"
    DELAY 1
    PRINT "d"
    DELAY 1
    PRINT " "
    DELAY 1
    PRINT "b"
    DELAY 1
    PRINT "y"
    DELAY 1
    PRINT " "
    DELAY 1
    PRINT "Z"
    DELAY 1
    PRINT "O"
    DELAY 1
    PRINT "R"
    DELAY 1
    PRINT "K"
    DELAY 1
    PRINT "E"
    DELAY 1
    PRINT "Y"
    DELAY 1
    PRINT " "
    DELAY 1
    PRINT "["
    DELAY 1
    PRINT "D"
    DELAY 1
    PRINT "O"
    DELAY 1
    PRINT "A"
    DELAY 1
    PRINT "]"
    DELAY 5
    DISPFILE PPEPATH()+"SECRET!.PCB",DEFS

;------------------------------------------------------------------------------
;Statements used:
;
;     2 END
;     2 GOTO
;     2 LET
;    22 PRINT
;     3 PRINTLN
;     2 IF
;     1 DISPFILE
;     1 INPUTSTR
;    22 DELAY
;     1 NEWLINE
;
;Functions used:
;
;     3 +
;     2 =
;     3 PPEPATH
;     2 READLINE
;
;------------------------------------------------------------------------------