/*蛇足(解決していますが切りだし方2点とarray:notesel"\n"なら切りだせる)*/
mes "0=ABC 1=DEF 2=GHI 3=JKL"
mes xxx("ABC\nDEF\nGHI\nJKL",0,0,'\n')
mes xxx("ABC\nDEF\nGHI\nJKL",2,3,'\n')
mes xxx("ABC\nDEF\nGHI\nJKL",3,2,'\n')
repeat zzz("ABC\nDEF\nGHI\nJKL",2,3,'\n',xx)
mes strf("%d %s",cnt,xx(cnt))
loop
stop
#defcfunc xxx str p1,int p2,int p3,int p4,local cc,local ii
cc = p1 :poke cc(1),0,p4 :ii = 0,0
repeat :await
getstr cc(2),cc,ii,p4
if (strsize == 0) {break}
if (ii(1) >= p2) {cc(3)+=cc(2)+cc(1) :if (ii(1) >= p3) {break}}
ii(1)++ :ii+=strsize+1
loop
return cc(3)
#defcfunc zzz str p1,int p2,int p3,int p4,array p5,local ss,local rr,local ii
rr = "","" :poke rr,0,p4 :ss = p1 :split ss,rr,ss
repeat :await
if (cnt >= p2) {p5(ii) = ss(cnt)+rr:ii++ :if (cnt >= p3) {break}}
loop
return ii