OpenEuphoria

Re: problem

• Posted by eddo Jul 05, 2015
• 1366 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()------##