OpenEuphoria

goto and label

• Posted by Lnettnay Jun 28, 2022
• 668 views

Trying to test the following program from November 2004 https://openeuphoria.org/forum/28873.wc?last_id=28875

object d 
d = {0,0,0,0,0} 
 
procedure r(integer x, integer y) 
    d[x] = y 
    if x = 5 then 
        if d[1]+d[2]+d[3]+d[4]+d[5] = 10 then 
            puts(1, "success") 
            -- (print d here) 
            goto "okay" 
        end if 
    else 
        for i = 0 to 3 do 
            r(x+1, i) 
        end for 
    end if 
end procedure 
 
for i = 0 to 3 do 
    r(1, i) 
end for 
label "okay" 
    puts(1, "program end") 

And I get the following error

<0156>:: Unknown label 'okay' 
            goto "okay" 
                      ^ 

What am I doing wrong?

Lonny