;===========================================================
;	inputを利用した入力ボックス
;===========================================================

	sdim inp,200
	input inp,0,0,15
	font "",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

• getkeyを利用した入力ボックス
• onkeyを利用した入力ボックス