an overcomplicated solution:

Go() [] PUBLIC
{
    s cont = 0,pos = 1,lines = 0
    do {
        set line = $Text(Go+pos)
        set cont = cont + (($LENGTH(line,"{")-1)-($LENGTH(line,"}")-1))
        set lines = lines + 1
        set pos = pos + 1
    } while (cont > 0)
    s x=1
    if (x=1) { s a=x }
    f i=0:1:lines w $Text(Go+i),!
    s x=1
    if (x=1) { s a=x }
    if (a=x) {
        s b=a
    }
}