X0=MM.HRES\2: Y0=MM.VRES\2
Do
 X=MM.HRES/800:Y=0
 Inc I,.1: If i=360 Then i=1
 C=Cos(i): S=Sin(i)
 CLS
 For R=1 To 320
   Pixel X0+R*X,Y0+R*Y
   T=X*C-Y*S
   Y=X*S+Y*C
   X=T
 Next
 Pause 50
Loop While Inkey$=""