STATIC FUNCTION m3uCreate( cFil ) 
    LOCAL lUse  := .F., cAls 
    LOCAL cDbf  := left(cFil, RAt(".", cFil))+"dbf" 
    LOCAL cCdx  := left(cFil, RAt(".", cFil))+"cdx" 
    LOCAL cCfg  := left(cFil, RAt(".", cFil))+"cfg" 
    LOCAL aStru := {}, cBuf, aBuf, oBuf 
    LOCAL aOut  := {}, cTmp, nTmp 
    LOCAL nLen  := 500 
  
    IF ! file( cDbf ) 
       AAdd(aStru, {"NHTTP"  , "C",   1, 0}) 
       AAdd(aStru, {"YHTTP"  , "C",   1, 0}) 
       AAdd(aStru, {"EXTINF" , "C",  30, 0}) 
       AAdd(aStru, {"EXTGRP" , "C",  20, 0}) 
       AAdd(aStru, {"HTTP"  , "C", nLen, 0}) 
       AAdd(aStru, {"FAVOUR" , "N",   4, 0}) 
       cBuf := hb_memoread(cFil) 
       aBuf := hb_ATokens(cBuf, CRLF) 
       FOR EACH cBuf IN aBuf 
           cBuf := alltrim(hb_Utf8ToStr(cBuf)) 
           IF Empty(cBuf) .or. "#EXTM3U" $ cBuf .or. lower(right(cBuf, 4)) == ".mp4" ; LOOP 
           ENDIF 
           IF "#EXTINF" $ cBuf 
              oBuf:EXTINF := "" 
              oBuf:EXTGRP := "" 
              oBuf:HTTP   := "" 
              oBuf:EXTVLCOPT := "" 
              oBuf := oKeyData() 
              cTmp := subs(cBuf, At(":", cBuf)+1) 
              cBuf := cTmp 
              IF ( nTmp := At('group-title="', cTmp) ) > 0 
                 cTmp := subs(cTmp, nTmp+13) 
                 oBuf:EXTGRP := left(cTmp, At('"', cTmp) - 1) 
              ENDIF 
              IF ( nTmp := RAt(",", cBuf) ) > 0 ; cBuf := subs(cBuf, nTmp + 1) 
              ENDIF 
              oBuf:EXTINF := cBuf 
           ELSEIF "#EXTGRP" $ cBuf 
              oBuf:EXTGRP := subs(cBuf, At(":", cBuf)+1) 
              IF "Android" $ cBuf     ;   oBuf:EXTVLCOPT := "Только Android" 
              ELSEIF "Украина" $ cBuf ;   oBuf:EXTVLCOPT := "Украина" 
              ENDIF 
           ELSEIF "#EXTVLCOPT" $ cBuf 
              oBuf:EXTVLCOPT := subs(cBuf, At(":", cBuf)+1) 
              IF "Android" $ cBuf 
                 oBuf:EXTVLCOPT := "Только Android" 
              ENDIF 
           ELSEIF "http" == left(cBuf, 4) 
              oBuf:HTTP := trim(cBuf) 
              IF "/spacetv." $ cBuf .or. "/ott." $ cBuf .or. "/myott." .or. cBuf .or. "/mytv." $ cBuf .or. ; 
                "/tvmedia2." $ cBuf .or. "/hlss.goodgame." $ cBuf .or. "/cdn01.dyndns." $ cBuf 
                 oBuf:EXTVLCOPT := "Ограничение устройств" 
              ENDIF 
              IF "Украи" $ oBuf:EXTGRP ; oBuf:EXTVLCOPT := "Пропустить Украина каналы" 
              ENDIF 
              IF Empty(oBuf:EXTVLCOPT) .and. ! "==" $ oBuf:EXTINF ;               // не раб. строка 
                                       .and. ! "FORKPLAY" $ upper(oBuf:EXTGRP) ;  // не VLC player 
                                       .and. ! "/variant.m3u8" $ oBuf:HTTP       // не Wink адрес 
                 AAdd(aOut, oBuf)                                               // адрес iptv добавим в список 
              ENDIF 
           ENDIF 
       NEXT 
       fErase(cCdx) 
       fErase(cCfg) 
       dbCreate( cDbf, aStru, , .T., "_TMP_", , "RU866" ) 
       FOR EACH oBuf IN aOut 
           IF Len(oBuf:HTTP) > nLen 
              ? "Len(oBuf:HTTP) > "+hb_ntos(nLen), Len(oBuf:HTTP), oBuf:EXTINF, oBuf:HTTP 
           ELSE 
              APPEND BLANK 
              REPLACE EXTINF with oBuf:EXTINF, ; 
                      EXTGRP with oBuf:EXTGRP, ; 
                      HTTP  with oBuf:HTTP 
           ENDIF 
       NEXT 
       dbCloseArea() 
    EndIf 
  
    BEGIN SEQUENCE WITH { |e|break(e) } 
       USE ( cDbf ) ALIAS M3U NEW CODEPAGE "RU866" 
       lUse := Used() 
    END SEQUENCE 
  
    IF lUse 
       cAls := Alias() 
       cBuf := "#EXTM3U"+CRLF 
       GO TOP 
       DO WHILE !EOF() 
          cBuf += "#EXTINF"+":"+"-1,"+alltrim((cAls)->EXTINF)+CRLF 
          cBuf += "#EXTGRP"+":"+alltrim((cAls)->EXTGRP)+CRLF 
          cBuf += alltrim((cAls)->HTTP)+CRLF 
          SKIP 
       ENDDO 
       GO TOP 
       hb_MemoWrit(cCfg, cBuf) 
    ENDIF 
  
 RETURN lUse