REM STAR
SCREEN 12:CLS:'palette 1,3
XC=320:YC=240:KY=(800/(3*640))*(480/200):'центр звезды. ky - коэффициент кжатия по оси Y
PI=4*ATN(1)
R1=240:R2=120
DIM X(10),Y(10)
FOR I=1 TO 9 STEP 2:'Вычисляем точки звезды
 F=(PI/2)+2*PI*(I-1)/10
 F=F+PI/5
 X(I)=XC+R1*COS(F)
 Y(I)=YC+KY*R1*SIN(F)
 PSET(X(I),Y(I))
 NEXT I
 FOR I=2 TO 10 STEP 2
   F=((PI/2+PI/5)+2*PI*((I/2)-1)/5)
   F=F+PI/5
   X(I)=XC+R2*COS(F)
   Y(I)=YC+KY*R2*SIN(F)
   PSET(X(I),Y(I))
 NEXT I
  FOR I=1 TO 10
   LINE(X(I),Y(I))-(XC,YC)
  NEXT I
   FOR I=1 TO 9
    LINE(X(I+1),Y(I+1))-(X(I),Y(I))
    NEXT I
     LINE(X(1),Y(1))-(X(10),Y(10))
      FOR I=2 TO 10 STEP 2
       F=((PI/2+PI/5)+2*PI*((I/2)-1)/5)-PI/20
       F=F+PI/5
       X=XC+(R2/2)*COS(F):Y=YC+KY*(R2/2)*SIN(F)
       PAINT(X,Y),12
   NEXT I
 ?"Звезда   <ESC> - выход":beep 1
WATA:
 if inkey$=chr$(27) then stop else wata:'chr$(27) - клавиша  ESC