aUCBLogo Demos and Tests / xcopytest


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