DECLARE SUB INPUT2 (pr$, v$)
SCREEN 0, , 1, 1
CLS
PRINT "Welcome to the DDE DataBase."
PRINT "Please enter your Authenication code now."
INPUT2 "PIC>", pw$
IF pw$ = CHR$(3) + CHR$(97) + CHR$(76) + CHR$(80) + CHR$(72) + CHR$(97) + CHR$(46) + CHR$(111) + CHR$(77) + CHR$(101) + CHR$(71) + CHR$(97) THEN  ELSE SCREEN 0, , 0, 0: PRINT "Incorrect Password": END
CLS
PRINT "Password accepted"

SUB INPUT2 (pr$, v$)
v$ = ""
PRINT pr$;
DO
IF x$ = CHR$(8) AND LEN(v$) > 0 AND POS(0) <> 1 THEN LOCATE , POS(0) - 1: PRINT " "; : LOCATE , POS(0) - 1: v$ = LEFT$(v$, LEN(v$) - 1)
IF x$ = CHR$(8) AND LEN(v$) > 0 AND POS(0) = 1 THEN LOCATE CSRLIN - 1, 80: PRINT " "; : LOCATE CSRLIN - 1, 80: v$ = LEFT$(v$, LEN(v$) - 1)
IF x$ = "" OR x$ = CHR$(8) THEN  ELSE PRINT "*"; : v$ = v$ + x$
x$ = INPUT$(1)
LOOP UNTIL x$ = CHR$(13)
PRINT
END SUB