aUCBLogo Demos and Tests / testto

be testto
   ::v=400
;   local [::L]
   ::L=500
   b1 100 200 3
   be b1 a b c
      pr L
      pr a
      b2 300
      t4
      be b2 d
         pr L
         pr d
         pr a
         pr v
      end
   end
   pr t2 100 200 3
   to t1 a
      pr a
   end
   t1 600
end

to t2 d e f
   pr L
   a=t1 d e f
   pr a
   a=t3 d e f
   output a
end

be t1 a b c
   if c==0 [(pr a b c) pause output ::v]
   output 1+t1 a+1 b+1 c-1
end
be t3 a b c
   if c==0 [(pr a b c) output v]
   count_=1+t3 a+1 b+1 c-1
   output count_
end

to t4
   b2
end