How about

       PASSWD = ''
       LOOP
          CHR = KEYIN()
       UNTIL CHR = CHAR(13) DO
          IF CHR # CHAR(8) THEN
             CRT "*":
             PASSWD := CHR
          END ELSE
             CRT CHAR(8):' ':CHAR(8):
             PASSWD = PASSWD[1,LEN(PASSWD)-1]
          END
       REPEAT
       CRT
       CRT PASSWD
    END

HTH,
Andy


________________________________
From: nschroth <[email protected]>
To: [email protected]
Sent: Tuesday, 16 August 2011, 19:51
Subject: [U2]  Simple Masking of Password Input (Universe Basic)


Does anyone have a simple routine for entering a password and only displaying
an asterisk for the character entered?
-- 
View this message in context: 
http://old.nabble.com/Simple-Masking-of-Password-Input-%28Universe-Basic%29-tp32274238p32274238.html
Sent from the U2 - Users mailing list archive at Nabble.com.

_______________________________________________
U2-Users mailing list
[email protected]
http://listserver.u2ug.org/mailman/listinfo/u2-users
_______________________________________________
U2-Users mailing list
[email protected]
http://listserver.u2ug.org/mailman/listinfo/u2-users

Reply via email to