aUCBLogo Demos and Tests / callstest

to callstest
   ct
   pr [in callstest]
   p1 1 2 3
   pr [end of callstest]
end

to p1 a b c
   pr [in (p1 1 2 3)]
   p2 4 5 6
   pr [end of p1]
end

to p2 d e f
   pr [in (p2 4 5 6)]
   local [g]
   g=7
   show calls
;   updateCalls
   pause
   pr [end of p2]
end