ちなみに、INKEY$()という関数が用意されていて
キーボードの入力があると、この関数から受け取れますが手順もいっぱい必要です
NAME$=""
WHILE 1
VSYNC
LOCATE 0,0:?NAME$+" "
C$=INKEY$()
IF C$==CHR$(8) THEN 削除'
D$=POP(NAME$)
ELSEIF C$==CHR$(13) THEN '終わり
BREAK
ELSEIF C$!="" THEN '1文字ずつ追加
NAME$=NAME$+C$
ENDIF
WEND
3そうだね プレイ済み