PASS$="" 'パスワードが入る変数 WHILE TRUE CLS PASS$=PASS$+INKEY$() PRINT "●"*LEN(PASS$) WAIT WEND こんな感じでもできるはず。