> > SCREEN 12
> > CONST PI = 3.1415
> > WINDOW SCREEN (-1,1)-(1,-1)
> > DO
> > LINE (0,0)-(COS(a% * PI / 180),SIN(a% * PI / 180)), 0
> > a% = a% + 1
> > IF a% >= 360 THEN a% = 1
> > LINE (0,0)-(COS(a% * PI / 180),SIN(a% * PI / 180)), 14
> > LOOP WHILE INKEY$ = ""
> > END