aUCBLogo Demos and Tests / testwritefiles


to testwritefiles
   imax=20
   x=rSeqFA 0 360 imax
   y=sin x
   fn="test.dat
   openwrite fn
   setwriter fn
   for [i 1 imax]
   [   (print x.i y.i)
   ]
   setWriter []
   close fn
end