;===========================================================
; getkeyを利用した入力ボックス
;===========================================================
sdim inp,200
font "Impact",40
*main
;A～Z, BS, SP
repeat 45
rcnt=cnt+48
if cnt=43:rcnt=8
if cnt=44:rcnt=32
getkey key2,rcnt
if (key2=1){
if (v1!rcnt)|(v2>10){
if rcnt=8 : inp=strmid(inp,0,strlen(inp)-1)
if rcnt!8 & strlen(inp)<16 : poke inp,strlen(inp),rcnt
if v1!rcnt:v2=0
v1=rcnt
}
v2++
}
if (key2=0)&(v1=rcnt) : v1=0
loop
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
