aUCBLogo Demos and Tests / hsbatest


to HSBAtest
   cS
   imax=200
   repeat imax 
   [   setPC HSBA 360*repcount/imax 1 1 1-repCount/imax  
      box 
      rt 30 fd 1 lt 30
   ]
end