DIM K(3,3)=300
K(0,1)=100,100,100,100
KL=12
KD=0

*START
GOSUB *MAE
IF K(0,0)<-50 THEN K(0,0)=300
GOTO *START
END

*MAE
FOR I=0 TO 40 STEP 5
 W=ABS(ABS(I-10)-20)-10
 K(0,0)=K(0,0)-4
 K(1,0)=K(0,0)+KL
 K(2,0)=K(1,0)+COSAG(KD+W)*KL
 K(3,0)=K(2,0)+COSAG(KD-2.5*W)*KL
 K(2,1)=K(1,1)+SINAG(KD+W)*KL
 K(3,1)=K(2,1)+SINAG(KD-2.5*W)*KL
 GOSUB *LINE
NEXT I
RETURN

*LINE
COLORFG 255,255,255
LINE K(0,2),K(0,3),K(1,2),K(1,3)
LINE K(1,2),K(1,3),K(2,2),K(2,3)
LINE K(2,2),K(2,3),K(3,2),K(3,3)
COLORFG 255,0,0
LINE K(0,0),K(0,1),K(1,0),K(1,1)
LINE K(1,0),K(1,1),K(2,0),K(2,1)
LINE K(2,0),K(2,1),K(3,0),K(3,1)
K(0,2)=K(0,0),K(1,0),K(2,0),K(3,0),K(0,1),K(1,1),K(2,1),K(3,1)
RETURN