aUCBLogo Demos and Tests / xcopytest


to xcopytest
   l=iseq 1 1000
   l2=int rseq 0 0 1000
   xcopy "l2 l
   setitem 2 l2 -99999999
   pr l
   pr l2
end