Re: problem
- Posted by eddo Jul 05, 2015
- 1365 views
OK-here 'tis
function getseq( sequence xz ) sequence ret={},vs object xx integer ind=0 while ind+1<=length(xz) do vs = value(xz,1+ind,GET_LONG_ANSWER) if vs[1]=GET_SUCCESS then ret&=vs[2] ind+=vs[3]+1 if length(ret)>=3 then exit end if else beep() text_color(BRIGHT_RED) puts(1,"ERROR - on getting parts of ") printf(1,"%s",{z}) abiquit(0) end if end while return ret end function --getseq()------##