aUCBLogo Demos and Tests / nobasic

to NoBasic [size 300]
   local [red white black height]

   red=rgb 1 0 0
   white=rgb 1 1 1
   black=rgb 0 0 0

   ht
   setpc red
   setfc red
   fillCircle size

   setpc white
   setfc white
   fillCircle size*11/15
   fillCircle size*11/15

   setpc black
   setLabelFont "Arial
   setLabelWeight 800
   setLabelAlign 0 0
   height=size*13/30
   setlabelsize (list height height)
   pd
   rt 90
   label [BASIC]
   lt 90
end