#author("2018-06-16T00:33:46+09:00","","")
**ＮＯ＿４９２＿ＥＤＩＴ [#heca9ff4]

ちょっと簡易エディタもどき作ってます~
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