ちなみに、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