Re: Entering Passwords
Posted in 1992
Quoting Jim Nielsen... > > I have been looking for some mechanism to allow entry of the password without > displaying on the screen. > > I have done this in countless other languages and environments very easily > but I am drawing a blank in 4GL. I feel like an idiot because it seems > like it should be so obvious. Any suggestions (about the password) would be > appreciated. > This is what I use in my programs... it came straight from "Tech Notes Spring 1990". Hope it helps. Here --------- Snip Here --------- Snip Here --------- Snip Here --------- Snip MAIN DEFINE c CHAR(1) DEFINE psw CHAR(8) DEFINE i SMALLINT OPTIONS PROMPT LINE 22 FOR i = 1 TO 8 PROMPT "Enter password: " FOR CHAR c IF (c IS NULL) THEN EXIT FOR ELSE LET psw = psw CLIPPED, c END IF END FOR END MAIN Here --------- Snip Here --------- Snip Here --------- Snip Here --------- Snip DAS -- David A. Snyder @ Snide Inc. - Folcroft, PA Current Release is db4glgen-3.4 UUCP: ..!uunet!das13!dave INTERNET: Dave.Snyder@snide.com