ちょっと簡易エディタもどき作ってます
Peasライクにしよーかな。と
#define WM_COMMAND 0x0111 // WM_COMMAND を捕まえる oncmd gosub *lbl_WM_COMMAND, WM_COMMAND objsize 640,480 sdim _4note,65000 notesel _4note _4note="a\nb\nc" stat4listbox=0 listbox stat4listbox,100,_4note ID4listbox=stat screen 1,300,70 stat4input="" input stat4input,300,40 ;button "OK",*set_lb_str stop *lbl_WM_COMMAND if ( ( ( wparam >> 16 ) & 0xFFFF ) == 0x0002 ) { ; dialog "リストの " + stat4listbox + " 番目の要素が選択されました。",0 gsel 1 tmp="" if stat4listbox!=-1{ noteget tmp,stat4listbox objprm 0,tmp } } objsize 100,20 pos 0,40 button "上書き",*set_lb_str pos 100,40 button "挿入",*insert_lb_str pos 200,40 button "末尾挿入",*insert_last_lb_str return *set_lb_str noteadd stat4input,stat4listbox,1 gsel 0 objprm ID4listbox,_4note gsel 1 clrobj 1,-1 stop *insert_lb_str noteadd stat4input,stat4listbox,0 gsel 0 objprm ID4listbox,_4note gsel 1 clrobj 1,-1 stop *insert_last_lb_str noteadd stat4input,-1,0 gsel 0 objprm ID4listbox,_4note gsel 1 clrobj 1,-1 stop