*** ACL test ***

global k l m

program teste2
  define x
  for x=1 to 10
    print "["
    print k
    print "]"
    delay 10
  endfor
end

program teste

define x y

set x = 10
set k = x + 1

print "k="
println k

for x=1 to 2
  for y=5 to 4
    print x
    print " "
    println y
    if y = 4
       andif x = 1
      println " y = 4 && x = 1 "
    else
      println " ... "
    endif
    set k = k + 1
    delay 10
  endfor
endfor

stop teste2

goto 1

println "nada"

label 1

end

run teste2
gosub teste
gosub teste

read "type a value" k
println k

stop

run teste2
println "end"