ループ内で inkey$ で一文字ずつ読んで、 その文字を print する代わりに "*" を print すればいいです。 x$="" while 1 vsync y$=inkey$() if y$=chr$(10) then break if y$!="" then ? "*"; x$=x$+y$ wend ? x$