10 DIM X(3),Y(3),XD(3),YD(3):COLOR 1,15:SCREEN2
30 R=60:XL=10:YU=17
50 FOR K=1 TO 2:FOR L=1 TO 3
70 X(0)=XL:X(1)=XL+R:X(2)=XL+R:X(3)=XL
90 IF KMOD2=0 AND LMOD2=0 THEN 130 '
W
W�
100 IF KMOD2=1 AND LMOD2=1 THEN 130 '
W
W�
110 Y(0)=YU+R:Y(1)=YU+R:Y(2)=YU:Y(3)=YU
120 GOTO 140 '
W
W�
130 Y(0)=YU :Y(1)=YU::Y(2)=YU+R:Y(3)=YU+R
140 SMU=.08:RMU=1-SMU
160 FOR I=1 TO 21:FOR J=0 TO 3
180 XD(J)=RMU*X(J)+SMU*X((J+1)MOD4)
190 YD(J)=RMU*Y(J)+SMU*Y((J+1)MOD4)
200 NEXT
210 FOR J=0 TO 3
220 LINE(X(J),Y(J))-(X((J+1)MOD 4),Y((J+1)MOD4))
230 NEXT
240 FOR J=0 TO 3:X(J)=XD(J):Y(J)=YD(J):NEXT:NEXT
290 XL=XL+R:NEXT:XL=10:YU=YU+R:NEXT
330 GOTO 330