1: DECLARE SUB INPUT2 (pr$, v$) 2: SCREEN 0, , 1, 1 3: CLS 4: PRINT "Welcome to the DDE DataBase." 5: PRINT "Please enter your Authenication code now." 6: INPUT2 "PIC>", pw$ 7: 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 8: CLS 9: PRINT "Password accepted" 10: 11: SUB INPUT2 (pr$, v$) 12: v$ = "" 13: PRINT pr$; 14: DO 15: 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) 16: 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) 17: IF x$ = "" OR x$ = CHR$(8) THEN ELSE PRINT "*"; : v$ = v$ + x$ 18: x$ = INPUT$(1) 19: LOOP UNTIL x$ = CHR$(13) 20: PRINT 21: END SUB 22: |