REM Enter password.  Take length from commandline
REM CALL SETPASS password after running this to set password variable
password$ = ""
length = VAL(COMMAND$)
IF length <= 1 THEN length = 15

PRINT "Password: ";
DO
   SLEEP
   in$ = INKEY$
   SELECT CASE in$
      CASE CHR$(8)
         IF LEN(password$) > 0 THEN
            password$ = LEFT$(password$, LEN(password$) - 1)
            LOCATE , POS(0) - 1: PRINT " "; : LOCATE , POS(0) - 1
         ELSE
            PLAY "L32C"
         END IF
      CASE CHR$(13), CHR$(27)
         REM End with CR or Esc
      CASE " " TO "}"
         REM Only accept space to }
         IF LEN(password$) < length THEN
            password$ = password$ + in$
            PRINT "*";
         ELSE
            PLAY "L32C"
         END IF
      CASE ELSE
         PLAY "L32C"
   END SELECT
LOOP UNTIL in$ = CHR$(13) OR in$ = CHR$(27)

OPEN "SETPASS.bat" FOR OUTPUT AS #1
   PRINT #1, "@SET %1=" + password$
CLOSE #1