自力で入力ボックスを作るとなるとgetkeyでも可能ですが、大変です。そこで、onkeyのwparam値にキーコードが代入されるのを利用します。
全角だと拾えないのと、割り込みをしてるのでゲームなどの処理でウェイトが崩壊します。後者のほうは問題ですかね。ASTEROIDはこの方法なんですが、名前を打つとき、ゲームのスピードが狂います。まあ比較的、お勧めな方法です(ショートなら特に)。
;===========================================================
; onkeyを利用した入力ボックス
;===========================================================
onkey gosub*push_key
sdim inp
font "Impact",40
*main
redraw 0
color 255,255,255 : boxf
color 0,0,0 : pos 0,0
mes "ENTER YOUR NAME\n"+inp
if mcnt\40/20=0 : boxf ginfo_mesx,ginfo_mesy,ginfo_mesx+5,ginfo_mesy+ginfo_mesy-5
redraw 1
await 30
mcnt++
goto*main
*push_key
if wparam!8{
if strlen(inp)<16 & wparam!13 : sdim v1:poke v1,0,iparam:inp += v1
}else{
inp = strmid(inp,0,strlen(inp)-1)
}
return
