見当違いの回答をして、その上、消してしまったお詫びに、
#module
#defcfunc Create array q_ , int ra_ , int rb_
sdim txt_return
txt_return=q_
repeat length(q_)-1,1
txt_return+strf("% 3d%s",rnd(rb_-ra_)+ra_,q_.cnt)
loop
return txt_return
#deffunc EnumLabelName var string_,var txt_after_,array Status_,local t,local e
sdim txt_after_
split string_,",",Status_
repeat stat
t=instr(status_.cnt,0,"[")
e=instr(status_.cnt,t,"]")
txt_after_+=strmid(status_.cnt,0,t)+"\n"
Status_.cnt=strmid(status_.cnt,t+1,e-1)
loop
poke txt_after_,strlen(txt_after_)-2,0
return
#global
txt_libdata="libA[#*#=],libB[#*(#*#/#)=]"
EnumLabelName txt_libdata,labelname,labelstatus
screen 0,200,300:color 200,200,200:boxf
objsize ginfo_winx-10
pos 5,5:button gosub"作成",*label_run
pos ,ginfo_cy+5:total=10:input total
cy=ginfo_cy+5:pos,cy:listbox lidx,ginfo_winy-(cy+10),labelname
screen 1
txt_mesbox=""
mesbox txt_mesbox,ginfo_winx,ginfo_winy
oid_mesbox=stat
stop
*label_run
gsel 0
sdim q:split labelstatus.lidx,"#",q
txt_mesbox=""
repeat total,1
txt_mesbox+=strf("(%02d) %s\n",cnt,Create(q,1,20))
loop
gsel 1,1:objprm oid_mesbox,txt_mesbox
return