Slight amendment in case your positioned in middle of screen. PASSWD = '' LOOP CHR = KEYIN() UNTIL CHR = CHAR(13) DO BEGIN CASE CASE CHR # CHAR(8) CRT "*": PASSWD := CHR CASE PASSWD # '' CRT CHAR(8):' ':CHAR(8): PASSWD = PASSWD[1,LEN(PASSWD)-1] END CASE REPEAT CRT CRT PASSWD
Cheers, 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
