DIM X(3), Y(3), XD(3), YD(3)

R = 95: XL = 10: YU = 5

FOR K = 1 TO 2
  FOR L = 1 TO 3
    X(0) = XL
    X(1) = XL + R
    X(2) = XL + R
    X(3) = XL
    IF K MOD 2 = 0 AND L MOD 2 = 0 THEN Goto l1 ENDIF
    IF K MOD 2 = 1 AND L MOD 2 = 1 THEN Goto l1 ENDIF
    Y(0) = YU + R
    Y(1) = YU + R
    Y(2) = YU
    Y(3) = YU
    GOTO l2
l1:
    Y(0) = YU
    Y(1) = YU
    Y(2) = YU + R
    Y(3) = YU + R
l2:
    SMU = .08: RMU = 1 - SMU
    FOR I = 1 TO 21
       FOR J = 0 TO 3
         XD(J) = RMU * X(J) + SMU * X((J + 1) MOD 4)
         YD(J) = RMU * Y(J) + SMU * Y((J + 1) MOD 4)
       NEXT

       FOR J = 0 TO 3
         DrawLine X(J), Y(J),X((J + 1) MOD 4), Y((J + 1) MOD 4)
       NEXT

       FOR J = 0 TO 3
         X(J) = XD(J)
         Y(J) = YD(J)
       NEXT
    NEXT

    XL = XL + R
  NEXT

  XL = 10: YU = YU + R
NEXT

DrawText "Press any key to exit...", 350,110
while not readkey wend