aUCBLogo Demos and Tests / fortest


be fortest
   o=Obj
   o2=Obj
;   ignore Obj::f
   show o'f
   show o2'f
end

be Obj
   be f
      local [i j m]
      m=1
      for [i m 3]
      [   if i==2
         [   output i
         ]
      ]
   end
end