DECLARE SUB ga (x!, y!, s!)
DIM SHARED colr         ' this variable holds fractal color
                        ' and because it is 'SHARED' it is accessible
                        ' from within sub module.
SCREEN 12

colr = 10                               ' display single fractel
ga 320, 240, 127

FOR a = 1 TO 50
  SOUND 0, 1
NEXT a
CLS

FOR a = 1 TO 128 STEP 5                 ' display fractal serie
  colr = RND * 7 + 7
  ga 320, 240, a
NEXT a

FOR a = 1 TO 50
  SOUND 0, 1
NEXT a

CHAIN "khkdemo5.bas"

SUB ga (x, y, s)
IF s >= 1 THEN
  LINE (x - s, y - s)-(x + s, y + s), colr, B
  ga x - s, y - s, s / 2.3  ' each fractel sub element is 2.3 times smaller
  ga x + s, y - s, s / 2.3  ' than previous.
  ga x + s, y + s, s / 2.3
  ga x - s, y + s, s / 2.3
END IF
END SUB