   10SYS"Brandy_TekEnabled",1,115200
   30VDU5:CLG
   40VDU 29,640;512;
   50TIME=0:FOR I=1 TO 1000 STEP 2.4
   60D=16*SQRI:MOVE D*COSI,D*SINI:POINT D*COSI,D*SINI
   70NEXT
   80VDU 4
