MODE 8
      MOVE 800,400
      GCOL 11
      PROCdragon(512, 12, 1)
      END

      DEF PROCdragon(size, split%, d)
      PRIVATE angle
      IF split% = 0 THEN
        DRAW BY -COS(angle)*size, SIN(angle)*size
      ELSE
        angle += d*PI/4
        PROCdragon(size/SQR(2), split%-1, 1)
        angle -= d*PI/2
        PROCdragon(size/SQR(2), split%-1, -1)
        angle += d*PI/4
      ENDIF
      ENDPROC