* trochu zkrasni food600.ini

#DEFINE CRLF CHR(13)+CHR(10)

*IF m.issql   netestuje se, funguje i pro sql


obsah = FILETOSTR(m.gcini_file)
poradi = 2
DO WHILE .t.
    pozice = AT( CRLF + "[", obsah, poradi )
    IF pozice = 0
       EXIT 
    ENDIF 
    IF SUBSTR(obsah, pozice-2, 2) # CRLF
        obsah = LEFT(obsah, pozice-1) + CRLF + SUBSTR(obsah, pozice)
    ENDIF 
    poradi = poradi + 1
ENDDO 
STRTOFILE(obsah, m.gcini_file)

