aUCBLogo Demos and Tests / labeltest

to labeltest
   cs
   setLabelSize [50 50]
   setLabelAlign 1 -1
   setLabelFont [times]
   labels
   setLabelFont [cour]
   rt 90
   labels
   setLabelFont [arial]
   rt 90
   labels
   setLabelFont [symbol]
   rt 90
   labels
   rt 90
end

to labels
   repeat 4
   [   setLabelWeight repcount*200
      label [Hallo]
      fd 200
      rt 90
   ]
end