CALL "C:\Docume~1\ana\Desktop\KIX\Development\enabled\NOTICE.kix"
$test = NOTICE
CALL $test

Function RUN_ENABLED($path)
  $count = 0
  $runenabled = Dir("$path\*.*")
  While $runenabled <> '' AND @ERROR = 0
    If Left($runenabled, 1) <> '.'
      If Right($runenabled, 4) = '.kix'
        CALL "$path\$runenabled"
        If Open(3,"$path\$runenabled",2) = 0
          $Line = Trim(ReadLine(3))
          While @ERROR = 0
            If InStr($Line, 'Function') = 1
              $Fn = Trim(Split(SubStr($Line, 10), '(')[0])
              CALL $Fn
              ;CALL NOTICE
            EndIf
            $Line = Trim(ReadLine(3))
          Loop
        $ = Close(3)
        EndIf     
      EndIf
    EndIf
  $runenabled = Dir()
  Loop  
EndFunction