   10 SYS "Brandy_TekEnabled",1, 115200
   20 VDU5:CLG
   30 S%=400
   40 VDU29,640;512;
   50 MOVE 0,0
   60 FOR A=0 TO 126 STEP .125: DRAW S%*SINA,S%*COSA*SIN(A*.95):NEXT
   70 VDU4
