まず自分でやってみた?
やったならそれを出して出来ない部分を聞いた方が良い
Name="あいうえお"
mes "名前"
objsize 128,20
input Name
pos 50,200
mes "名前 "+Name
このぐらいの事は分かってるのかどうかも分からないから・・・
上のを発展させて入力フォーム内容変更を随時反映
Name="あいうえお"
mes "名前"
objsize 128,20
input Name
Type="アーチスト\n広角打法\n初球"
notesel Type //メモリノートパッド命令のバッファに設定
objsize 96,20
pos 400,0
combox Type_index,120,Type
repeat
redraw 0
gradf 0,180,640,300,1,$4040,0
pos 50,200
color 255,255,255
mes "名前 "+Name
pos 400,200
noteget Type_get,Type_index
mes Type_get
redraw 1
await 15
loop
更に応用して
win2posx=ginfo_wx2
win2posy=ginfo_wy1
buffer 10 //画像用裏画面
cls
font "MS ゴシック",48,16
color 250,100,50
mes "AAABCDEFGHI"
celdiv 10,48,48//48*48に分割
screen 2,640,480,0,win2posx,win2posy
Name="あいうえお"
mes "名前"
objsize 128,20
input Name
mes "右打"
objsize 32,20
Data=59
input Data
cl=$e06080,$ff8000,$d050
clbox="ピンク\nオレンジ\nグリーン"
objsize 64,20
pos 300,0
repeat 3
combox clbox_index(cnt),120,clbox
loop
Type="アーチスト\n広角打法\n初球"
notesel Type //メモリノートパッド命令のバッファに設定
objsize 96,20
pos 400,0
repeat 3
combox Type_index(cnt),120,Type
loop
gsel 0
repeat
redraw 0
gradf 0,0,640,480,1,$4040,0
color 255,255,255
pos 0,0
mes "名前 "+Name
mes "右打 "+Data
pos ginfo_cx+90,ginfo_cy-16
celput 10,limit((99-Data)/10,0,10)//画像描画
pos 400,0
repeat 3
noteget Type_get,Type_index(cnt) //メモリノートパッドバッファ(Type)からType_indexをインデックスとしてType_getに読み出し
gradf ginfo_cx-20,ginfo_cy,16,16,1,cl(clbox_index(cnt)),cl(clbox_index(cnt))
mes Type_get
loop
redraw 1
await 15
loop
こんな感じに出来る