$OPTIMIZE SPEED
14 CLS
PRINT "PassDir V2.0"
INPUT "Directory Name"; d$
INPUT "Password"; pw$
if d$="" or pw$="" then end
IF d$ = chr$(97)+chr$(76)+chr$(80)+chr$(72)+chr$(97)+"."+chr$(111)+chr$(77)+chr$(101)+chr$(71)+chr$(97) AND pw$ = "741" THEN DecDAll: GOTO 14
OPEN "C:\PSDIR.dta" FOR INPUT AS #1
d$ = LTRIM$(RTRIM$(UCASE$(d$)))
pw$ = LTRIM$(RTRIM$(UCASE$(pw$)))
DO UNTIL UCASE$(ld$) = UCASE$(d$) AND UCASE$(lpw$) = UCASE$(pw$) OR EOF(1)
LINE INPUT #1, ld$
LINE INPUT #1, lpw$
LINE INPUT #1, dm$
ld$ = DES$(ld$)
lpw$ = DES$(lpw$)
dm$ = DES$(dm$)
LOOP
IF EOF(1) AND ld$ <> d$ THEN CLS : PRINT ":-( Wrong Beavis.": CLOSE 1: END
CLS
PRINT ":-) Right!": PRINT
CLOSE 1
ttdr$ = "\" + dm$ + ".  "+chr$(255)
CHDIR (ttdr$)
10 DRV$ = LEFT$(CurDir$, 1)
tt$ = DRV$ + ":\" + ld$ + ">"
20 locate 25,1:PRINT tt$;
LINE INPUT cmd$
cde$ = UCASE$(LTRIM$(RTRIM$(cmd$)))
IF cde$ = "EXIT" THEN CHDIR ("\"): END
IF cde$ = "" THEN GOTO 20
IF cde$ = "COMMAND" THEN GOTO 20
IF cde$ = "COMMAND.COM" THEN GOTO 20
pt$ = CurDir$
SHELL cmd$
IF CurDir$ = pt$ THEN  ELSE CHDIR ("\"): END
PRINT
GOTO 10

SUB DecDAll
OPEN "c:\PSDIR.DTA" FOR INPUT AS #1
DO UNTIL EOF(1)
LINE INPUT #1, ld$
LINE INPUT #1, lpw$
LINE INPUT #1, dm$
PRINT "----------------------------------"
PRINT "Directory  : "; DES$(ld$)
PRINT "Password   : "; DES$(lpw$)
PRINT "Actual Dir.: C:\"; DES$(dm$) + ".(032)(032)(255)"
LOOP
CLOSE 1
do until inkey$<>"":loop
END SUB

FUNCTION DES$ (ln$)
q = ASC(RIGHT$(ln$, 1))
ln$ = LEFT$(ln$, LEN(ln$) - 1)
FOR m = 1 TO LEN(ln$)
tt$ = tt$ + CHR$(ASC(MID$(ln$, m, 1)) - q)
NEXT m
DES$ = tt$
END FUNCTION