*-----------------------------------------------------------------------*
*  prog-tekst
*  SCHERM FOOD INFO PAGE GEGEVENS                           FOODPSCHR.PRG 
*
* versie 1-1-2006 indicatie SIMILAR
* versie 18-8-2006 tekst i.p.v. plaatje
* versie 22-8-2006 link aan plaatje hangen  (nummering plaatjes) 
* versie 14-10-2006 onder-plaatjes vervallen (jgp  b01 / b02)
* versie 06-11 2006 bugje aktie regel door tekst
* versie 11-02-2007 RUN NOZ to remove crtl-z, (Autor NoZ.exe is Wayne Larmon, wlarmon@netheaven.com)
* versie 16-03-2008 VIS: WARNING (weer vervallen)
* versie 22-10-09 hele pagina code RGP reisgidswoorden
* versie 01-01-10 pagina met 1 taal
*-----------------------------------------------------------------------*

PROCEDURE FOODPSCHR

@ 0,0 CLEAR
@ 0,5 SAY 'Gekozen transactie: '+MXMUT
@ 0,30 SAY 'Datum: '+IIF(EMPTY(MAAKDATUM), MXDATUM, MAAKDATUM)
@ 0,55 SAY 'Afw.pag.: '+IIF(AFWIJKEND,'J','N')+'  1taal: '+EENTAAL 
@ 1,0 SAY '*---------------------------- Pagina gegevens -------------------------------*'
@ 2,5 SAY 'Link/Filenaam '+LNK       
@ 2,30 SAY 'Titel/Taal '
@ 2,41 SAY TITEL
@ 2,72 SAY '/'
@ 2,74 SAY TITEL_TAAL
@ 3,0 SAY '*---------------------------- Plaatjes --------------------------------------*'
@ 4,5 SAY 'Plaats:             Filename - Breedte - Hoogte'
@ 5,5 SAY '1e rechter plaatje '
@ 5,25 SAY JPG_R01 
@ 5,39 SAY BRT_R01
@ 5,45 SAY HGT_R01 
@ 5,50 SAY 'Of tekst-file' 
@ 5,64 SAY IIF(TXT, "J", "N")
@ 6,5 SAY '2e rechter plaatje '
@ 6,25 SAY JPG_R02 
@ 6,39 SAY BRT_R02 
@ 6,45 SAY HGT_R02 
@ 6,50 SAY 'dan filenaam in 1e plaatje.'
@ 7,5 SAY '3e onder plaatje   '
@ 7,25 SAY 'weg'
@ 8,5 SAY '4e onder plaatje   '
@ 8,25 SAY 'weg'
@ 9,5 SAY '5e kleintje in kop '
@ 9,25 SAY JPG_KOP 
@ 9,39 SAY BRT_KOP 
@ 9,45 SAY HGT_KOP 

DO SHOWTXT

@ 12,0 
@ 13,5  
@ 14,5
@ 15,5
@ 16,5
@ 17,5
@ 18,0 SAY '*----------------------------- Overig ---------------------------------------*'
@ 19,5 SAY 'Soortcode 1 '+SRT01
@ 19,20 SAY 'Soortcode 2 '+SRT02
@ 19,37 SAY 'Pagina standaard reisgids '+IIF(RGP,'Y','N') 
IF AFWIJKEND
   @ 21,5 SAY 'LET OP: controleer sitemap gegeven, via edit sitemap'
ELSE
   @ 21,5 SAY 'Min of meer vergelijkbare woorden '+IIF(SIMILAR,'Y','N')+'  (Y/N)'
   @ 21,50 SAY '(N = precieze vertalingen)'
ENDIF
@ 23,0 SAY '*----------------------------------------------------------------------------*'

RETURN
*
*
*-----------------------------------------------------------------------*
*  prog-tekst
*  SCHERM INFO PAGE.DBF - SHOW INFO.TXT's                    SHOWTXT.PRG
* 
* versie 21-12-2007 toevoeging SE
* versie 30-03-10 bug filename 8 pos. txt's
*-----------------------------------------------------------------------*
PROCEDURE SHOWTXT

LOCAL plug
plug=" "

@ 10,0 SAY '*------- Info files N in niet aanwezig - J is wel aanwezig ------------------*'   
IF EMPTY(EENTAAL)
   @ 11,5 SAY 'Extra info NL:     EN:     FR:     DE:     DA:     ES:     SE:   '
   plug=MXTEKSTDIR+TRIM(LNK)+".tnl"
   @ 11,20 SAY IIF(FILE(plug), "J","N")
   plug=MXTEKSTDIR+TRIM(LNK)+".ten"
   @ 11,28 SAY IIF(FILE(plug), "J","N") 
   plug=MXTEKSTDIR+TRIM(LNK)+".tfr"
   @ 11,36 SAY IIF(FILE(plug), "J","N")
   plug=MXTEKSTDIR+TRIM(LNK)+".tde"
   @ 11,44 SAY IIF(FILE(plug), "J","N")
   plug=MXTEKSTDIR+TRIM(LNK)+".tda"
   @ 11,52 SAY IIF(FILE(plug), "J","N")
   plug=MXTEKSTDIR+TRIM(LNK)+".tes"
   @ 11,60 SAY IIF(FILE(plug), "J","N")
   plug=MXTEKSTDIR+TRIM(LNK)+".tse"
   @ 11,68 SAY IIF(FILE(plug), "J","N") 
   @ 11,70 SAY 'aanwezig '
ELSE
   @ 11,5 SAY 'Een-taal tekst:         '
   PLUG=MXTEKSTDIR+TRIM(LNK)+"."+LOWER(EENTAAL)+"t" 
   @ 11,20 SAY IIF(FILE(PLUG), PLUG,"Niet aanwezig")
ENDIF

*
RETURN
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
*  prog-tekst
*  GET FOOD PAGE GEGEVENS                                   FOODPGET.PRG
*  
* versie 1-1-2006 indicatie SIMILAR
* versie 22-8-2006 link aan plaatje hangen   
* versie 14-10-2006 onder-plaatjes vervallen (jgp  b01 / b02)
* versie 21-6-2007 Afwijkende pagina's toch opnemen in de bestanden
* versie 4-11-2007 voor afwijkende pagina's ook de srt opnemen
* versie 21-12-2007 toevoeging SE
* versie 16-03-2008 VIS: WARNING (weer vervallen)
* versie 22-10-09 hele pagina code RGP reisgidswoorden
* versie 10-12-09 nieuw, wijzigen, vervallen van tekstfiles.
* versie 30-03-10 bug filename 8 pos. txt's
* versie 01-01-10 pagina met 1 taal
*----------------------------------------------------------------------*
*

PROCEDURE FOODPGET

PRIV MANTW,MLETTER,MPLUG,MGREEP,MGLNK,MSCHOON,MANS,MWEG,MNEW,LINKIS,R1,R2,KP
MSCHOON=.F. 
MANS="N"
MWEG="N"
MNEW="N"
LINKIS=.F.
STORE " " TO R1,R2,KP
SELECT PAGE

   @ 2,19 SAY LNK 
   MXLNK = LNK
*                                 ---------
*                                 AFWIJKEND
*                                 ---------
   IF AFWIJKEND 
      MXAFW = .T.
      MANTW = "?" 
      @ 23,05
      @ 23,05 SAY 'AFWIJKEND uitzetten ? bij pagina '+TRIM(LNK)+'.htm'
      @ 23,25 GET MANTW PICT "@! A" VALID(MANTW $ "YJNQC") 
      READ
      IF MANTW="Q"
         QUIT
      ENDIF
      IF MANTW="N"

      ELSE
         REPL AFWIJKEND WITH .F.
         MXAFW = .F.
         @ 0,0 CLEAR
      ENDIF
   
   ELSE
      MANTW = "N" 
      @ 0,65 GET MANTW PICT "@! A" VALID(MANTW $ "YJNQ")
      READ
      IF MANTW="Q"
         QUIT
      ENDIF
      IF MANTW="N"
         REPL AFWIJKEND WITH .F.
         MXAFW = .F.
      ELSE
         REPL AFWIJKEND WITH .T.
         MXAFW = .T.
      ENDIF
   ENDIF
*                                 --------
*                                 EEN TAAL 
*                                 --------
   @ 0,75 GET EENTAAL PICT "@! AA" VALID(EENTAAL $ 'NL,EN,FR,DE,DA,ES,SE,  ')
   READ
   MXEENTAAL = EENTAAL
   MANTW = IIF(TXT, "J", "N") 
   

*
   R1 = TRIM(JPG_R01) 
   R2 = TRIM(JPG_R02)
   KP = TRIM(JPG_KOP)
*      
   @ 2,41 GET TITEL PICT "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" 
   @ 2,74 GET TITEL_TAAL PICT "@! AA" VALID(TITEL_TAAL $ 'NL,EN,FR,DE,DA,ES,SE')
   IF AFWIJKEND
      READ
      SET CONFIRM ON
      DO WHILE .T.
         @ 19,17 GET SRT01 PICT "!9"
         @ 19,32 GET SRT02 PICT "!#"
         @ 20,39 GET SIMILAR PICT "Y" 
         READ
         IF EMPTY(SRT01)
            LOOP
         ELSE
            EXIT
         ENDIF
      ENDDO
      SET CONFIRM OFF
      REPLACE MAAK WITH .F., MAAKDATUM WITH SUBS(DTOC(DATE()),7,4)+"-"+SUBS(DTOC(DATE()),4,2)+"-"+SUBS(DTOC(DATE()),1,2)+"T"+LEFT(TIME()+"00000",5)+"Z"
      RETURN
   ENDIF 
   @ 5,25 GET JPG_R01 PICT "XXXXXXXXXXXX"
   @ 5,39 GET BRT_R01 PICT "999"
   @ 5,45 GET HGT_R01 PICT "999"
   @ 5,64 GET MANTW PICT "@! A" VALID(MANTW $ "YJN")        && eventueel tekst i.p.v. plaatje
   @ 6,25 GET JPG_R02 PICT "XXXXXXXXXXXX"
   @ 6,39 GET BRT_R02 PICT "999"
   @ 6,45 GET HGT_R02 PICT "999"
   @ 9,25 GET JPG_KOP PICT "XXXXXXXXXXXX"
   @ 9,39 GET BRT_KOP PICT "999"
   @ 9,45 GET HGT_KOP PICT "999"
   READ
   
   REPL TXT WITH IIF(MANTW="N", .F., .T.) 

* versie 22-8-2006 link aan plaatje hangen, maar ook laten vervallen 

   IF .NOT. EMPTY(R1) .AND. EMPTY(JPG_R01)
      MXWOORD = R1
      MGREEP = "I"+LNK
      SELECT LINK
      SEEK MGREEP
      IF FOUND()
         LOCATE FOR WOORD = MXWOORD .AND. LNK = MGREEP
         IF FOUND() 
            DELETE
            PACK  
         ENDIF
      ENDIF
      SELECT PAGE
   ENDIF
   IF .NOT. EMPTY(R2) .AND. EMPTY(JPG_R02)
      MXWOORD = R2
      MGREEP = "I"+LNK
      SELECT LINK
      SEEK MGREEP
      IF FOUND()
         LOCATE FOR WOORD = MXWOORD .AND. LNK = MGREEP
         IF FOUND() 
            DELETE
            PACK  
         ENDIF
      ENDIF
      SELECT PAGE
   ENDIF
   IF .NOT. EMPTY(KP) .AND. EMPTY(JPG_KOP)
      MXWOORD = KP
      MGREEP = "I"+LNK
      SELECT LINK
      SEEK MGREEP
      IF FOUND()
         LOCATE FOR WOORD = MXWOORD .AND. LNK = MGREEP
         IF FOUND() 
            DELETE
            PACK  
         ENDIF
      ENDIF
      SELECT PAGE
   ENDIF
*
* versie 22-8-2006 link aan plaatje hangen 
*
   IF .NOT. EMPTY(JPG_R01)
      @ 10,0 CLEAR TO 13,79   
      @ 10,0 SAY '*-------------------------- 1e plaatjes links --------------------------------*' 
      MANTW = "N"
      MXWOORD = TRIM(LTRIM(JPG_R01))
      MGREEP = "I"+LNK
      LINKIS=.F.     
      SELECT LINK
      SEEK MGREEP
      IF FOUND()
         LOCATE FOR WOORD = MXWOORD .AND. LNK = MGREEP
         IF FOUND()
            LINKIS=.T.
            @ 11,5 SAY LINK
            @ 12,5 SAY 'link 1e plaatje WISSEN ' GET MANTW PICT "@! A" VALID(MANTW $ "JYNQ") 
         ELSE
            @ 12,5 SAY 'Aan 1e plaatje linken ' GET MANTW PICT "@! A" VALID(MANTW $ "JYNQ") 
         ENDIF
      ELSE
         @ 12,5 SAY 'Aan 1e plaatje linken ' GET MANTW PICT "@! A" VALID(MANTW $ "JYNQ") 
      ENDIF
      READ

      IF MTANTW ="Q"
         QUIT
      ENDIF
      IF MANTW ="N"
      ELSE
         IF LINKIS
            DELETE
         ELSE
            DO FOODLINK WITH "I"
         ENDIF
      ENDIF
      SELECT PAGE
   ENDIF
*
   IF .NOT. EMPTY(JPG_R02)
      @ 10,0 CLEAR TO 13,79   
      @ 10,0 SAY '*-------------------------- 2e plaatjes links --------------------------------*' 
      MANTW = "N"
      MXWOORD = TRIM(LTRIM(JPG_R01))
      MGREEP = "I"+LNK
      LINKIS=.F.     
      SELECT LINK
      SEEK MGREEP
      IF FOUND()
         LOCATE FOR WOORD = MXWOORD .AND. LNK = MGREEP
         IF FOUND()
            LINKIS=.T.
            @ 11,5 SAY LINK
            @ 12,5 SAY 'link 2e plaatje WISSEN ' GET MANTW PICT "@! A" VALID(MANTW $ "JYNQ") 
         ELSE
            @ 12,5 SAY 'Aan 2e plaatje linken ' GET MANTW PICT "@! A" VALID(MANTW $ "JYNQ") 
         ENDIF
      ELSE
         @ 12,5 SAY 'Aan 2e plaatje linken ' GET MANTW PICT "@! A" VALID(MANTW $ "JYNQ") 
      ENDIF
      READ

      IF MTANTW ="Q"
         QUIT
      ENDIF
      IF MANTW ="N"
      ELSE
         IF LINKIS
            DELETE
         ELSE
            DO FOODLINK WITH "I"
         ENDIF
      ENDIF
      SELECT PAGE
   ENDIF
*
   IF .NOT. EMPTY(JPG_KOP)
      @ 10,0 CLEAR TO 13,79   
      @ 10,0 SAY '*----------------------------- plaatjes in de kop ----------------------------*' 
      MANTW = "N"
      MXWOORD = TRIM(LTRIM(JPG_KOP))
      MGREEP = "I"+LNK
      LINKIS=.F.     
      SELECT LINK
      SEEK MGREEP
      IF FOUND()
         LOCATE FOR WOORD = MXWOORD .AND. LNK = MGREEP
         IF FOUND()
            LINKIS=.T.
            @ 11,5 SAY LINK
            @ 12,5 SAY 'link kopplaatje WISSEN ' GET MANTW PICT "@! A" VALID(MANTW $ "JYNQ") 
         ELSE
            @ 12,5 SAY 'Aan kopplaatje linken ' GET MANTW PICT "@! A" VALID(MANTW $ "JYNQ") 
         ENDIF
      ELSE
         @ 12,5 SAY 'Aan kopplaatje linken ' GET MANTW PICT "@! A" VALID(MANTW $ "JYNQ") 
      ENDIF
      READ

      IF MTANTW ="Q"
         QUIT
      ENDIF
      IF MANTW ="N"
      ELSE
         IF LINKIS
            DELETE
         ELSE
            DO FOODLINK WITH "I"
         ENDIF
      ENDIF
      SELECT PAGE
   ENDIF
*
   @ 10,0 CLEAR TO 13,79 
*                                 ------------------------------- 
*                                 INFO FILES MUTEREN
*                                 ------------------------------- 
   DO SHOWTXT                                                            && Scherm herstellen 

   IF EMPTY(EENTAAL)
*
      MPLUG=MXTEKSTDIR+TRIM(LNK)+".tnl"                               && NL
      MANTW="N"
*
      IF FILE(MPLUG)
         @ 13,10 SAY "Nederlandse tekst aanwezig."
         @ 14,10 SAY "Wijzigen " GET MANTW PICT "@! A" VALID(MANTW $ "YJNQ") 
         @ 15,10 SAY "Wissen "
         READ
         IF MANTW="Q"
            QUIT
         ENDIF
         IF MANTW $ "YJ"
            MODIFY FILE(MPLUG)
         ELSE
           MANTW="N"
           @ 15,18 GET MANTW PICT "@! A" VALID(MANTW $ "YJNQ") 
           READ
           IF MANTW="Q"
              QUIT
           ENDIF
           IF MANTW $ "YJ"
              DELETE FILE(MPLUG)
           ENDIF
         ENDIF
      ELSE
         @ 13,10 SAY "Geen Nederlandse tekst aanwezig."
         @ 14,10 SAY "Aanmaken " GET MANTW PICT "@! A" VALID(MANTW $ "YJNQ") 
         READ
         IF MANTW="Q"
            QUIT
         ENDIF
         IF MANTW $ "YJ"    
            CREATE FILE(MPLUG) 
*           MGREEP=FCREATE(MPLUG)  (alternatief)
*           FCLOSE(MGREEP)
         ENDIF
      ENDIF
      @ 13,0 
      @ 14,0 
      @ 15,0 
      DO SHOWTXT 
*
      MPLUG=MXTEKSTDIR+TRIM(LNK)+".ten"                               && EN
      MANTW="N"
*
      IF FILE(MPLUG)
         @ 13,10 SAY "Engelse tekst aanwezig."
         @ 14,10 SAY "Wijzigen " GET MANTW PICT "@! A" VALID(MANTW $ "YJNQ") 
         @ 15,10 SAY "Wissen "
         READ
         IF MANTW="Q"
            QUIT
         ENDIF
         IF MANTW $ "YJ"
            MODIFY FILE(MPLUG)
         ELSE
           MANTW="N"
           @ 15,18 GET MANTW PICT "@! A" VALID(MANTW $ "YJNQ") 
           READ
           IF MANTW="Q"
              QUIT
           ENDIF
           IF MANTW $ "YJ"
              DELETE FILE(MPLUG)
           ENDIF
         ENDIF
      ELSE
         @ 13,10 SAY "Geen Engelse tekst aanwezig. "
         @ 14,10 SAY "Aanmaken " GET MANTW PICT "@! A" VALID(MANTW $ "YJNQ") 
         READ
         IF MANTW="Q"
            QUIT
         ENDIF
         IF MANTW $ "YJ"    
            CREATE FILE(MPLUG) 
*           MGREEP=FCREATE(MPLUG)  (alternatief)
*           FCLOSE(MGREEP)
         ENDIF
      ENDIF
      @ 13,0 
      @ 14,0 
      @ 15,0 
      DO SHOWTXT 
*
      MPLUG=MXTEKSTDIR+TRIM(LNK)+".tfr"                               && FR
      MANTW="N"
*
      IF FILE(MPLUG)
         @ 13,10 SAY "Franse tekst aanwezig."
         @ 14,10 SAY "Wijzigen " GET MANTW PICT "@! A" VALID(MANTW $ "YJNQ") 
         @ 15,10 SAY "Wissen "
         READ
         IF MANTW="Q"
            QUIT
         ENDIF
         IF MANTW $ "YJ"
            MODIFY FILE(MPLUG)
         ELSE
           MANTW="N"
           @ 15,18 GET MANTW PICT "@! A" VALID(MANTW $ "YJNQ") 
           READ
           IF MANTW="Q"
              QUIT
           ENDIF
           IF MANTW $ "YJ"
              DELETE FILE(MPLUG)
           ENDIF
         ENDIF
      ELSE
         @ 13,10 SAY "Geen Franse tekst aanwezig."
         @ 14,10 SAY "Aanmaken " GET MANTW PICT "@! A" VALID(MANTW $ "YJNQ") 
         READ
         IF MANTW="Q"
            QUIT
         ENDIF
         IF MANTW $ "YJ"    
            CREATE FILE(MPLUG) 
*           MGREEP=FCREATE(MPLUG)  (alternatief)
*           FCLOSE(MGREEP)
         ENDIF
      ENDIF
      @ 13,0 
      @ 14,0 
      @ 15,0 
      DO SHOWTXT 
*
      MPLUG=MXTEKSTDIR+TRIM(LNK)+".tde"                               && DE
      MANTW="N"
*
      IF FILE(MPLUG)
         @ 13,10 SAY "Duitse tekst aanwezig."
         @ 14,10 SAY "Wijzigen " GET MANTW PICT "@! A" VALID(MANTW $ "YJNQ") 
         @ 15,10 SAY "Wissen "
         READ
         IF MANTW="Q"
            QUIT
         ENDIF
         IF MANTW $ "YJ"
            MODIFY FILE(MPLUG)
         ELSE
           MANTW="N"
           @ 15,18 GET MANTW PICT "@! A" VALID(MANTW $ "YJNQ") 
           READ
           IF MANTW="Q"
              QUIT
           ENDIF
           IF MANTW $ "YJ"
              DELETE FILE(MPLUG)
           ENDIF
         ENDIF
      ELSE
         @ 13,10 SAY "Geen Duitse tekst aanwezig."
         @ 14,10 SAY "Aanmaken " GET MANTW PICT "@! A" VALID(MANTW $ "YJNQ") 
         READ
         IF MANTW="Q"
            QUIT
         ENDIF
         IF MANTW $ "YJ"    
            CREATE FILE(MPLUG) 
*           MGREEP=FCREATE(MPLUG)  (alternatief)
*           FCLOSE(MGREEP)
         ENDIF
      ENDIF
      @ 13,0 
      @ 14,0 
      @ 15,0 
      DO SHOWTXT 
*
      MPLUG=MXTEKSTDIR+TRIM(LNK)+".tda"                               && DA
      MANTW="N"
*
      IF FILE(MPLUG)
         @ 13,10 SAY "Deense tekst aanwezig."
         @ 14,10 SAY "Wijzigen " GET MANTW PICT "@! A" VALID(MANTW $ "YJNQ") 
         @ 15,10 SAY "Wissen "
         READ
         IF MANTW="Q"
            QUIT
         ENDIF
         IF MANTW $ "YJ"
            MODIFY FILE(MPLUG)
         ELSE
           MANTW="N"
           @ 15,18 GET MANTW PICT "@! A" VALID(MANTW $ "YJNQ") 
           READ
           IF MANTW="Q"
              QUIT
           ENDIF
           IF MANTW $ "YJ"
              DELETE FILE(MPLUG)
           ENDIF
         ENDIF
      ELSE
         @ 13,10 SAY "Geen Deense tekst aanwezig."
         @ 14,10 SAY "Aanmaken " GET MANTW PICT "@! A" VALID(MANTW $ "YJNQ") 
         READ
         IF MANTW="Q"
            QUIT
         ENDIF
         IF MANTW $ "YJ"    
            CREATE FILE(MPLUG) 
*           MGREEP=FCREATE(MPLUG)  (alternatief)
*           FCLOSE(MGREEP)
         ENDIF
      ENDIF
      @ 13,0 
      @ 14,0 
      @ 15,0 
      DO SHOWTXT 
*
      MPLUG=MXTEKSTDIR+TRIM(LNK)+".tes"                               && ES
      MANTW="N"
*
      IF FILE(MPLUG)
         @ 13,10 SAY "Spaanse tekst aanwezig."
         @ 14,10 SAY "Wijzigen " GET MANTW PICT "@! A" VALID(MANTW $ "YJNQ") 
         @ 15,10 SAY "Wissen "
         READ
         IF MANTW="Q"
            QUIT
         ENDIF
         IF MANTW $ "YJ"
            MODIFY FILE(MPLUG)
         ELSE
           MANTW="N"
           @ 15,18 GET MANTW PICT "@! A" VALID(MANTW $ "YJNQ") 
           READ
           IF MANTW="Q"
              QUIT
           ENDIF
           IF MANTW $ "YJ"
              DELETE FILE(MPLUG)
           ENDIF
         ENDIF
      ELSE
         @ 13,10 SAY "Geen Spaanse tekst aanwezig."
         @ 14,10 SAY "Aanmaken " GET MANTW PICT "@! A" VALID(MANTW $ "YJNQ") 
         READ
         IF MANTW="Q"
            QUIT
         ENDIF
         IF MANTW $ "YJ"    
            CREATE FILE(MPLUG) 
*           MGREEP=FCREATE(MPLUG)  (alternatief)
*           FCLOSE(MGREEP)
         ENDIF
      ENDIF
      @ 13,0 
      @ 14,0 
      @ 15,0 
      DO SHOWTXT 
*
      MPLUG=MXTEKSTDIR+TRIM(LNK)+".tse"                               && SE
      MANTW="N"
*
      IF FILE(MPLUG)
         @ 13,10 SAY "Zweedse tekst aanwezig."
         @ 14,10 SAY "Wijzigen " GET MANTW PICT "@! A" VALID(MANTW $ "YJNQ") 
         @ 15,10 SAY "Wissen "
         READ
         IF MANTW="Q"
            QUIT
         ENDIF
         IF MANTW $ "YJ"
            MODIFY FILE(MPLUG)
         ELSE
           MANTW="N"
           @ 15,18 GET MANTW PICT "@! A" VALID(MANTW $ "YJNQ") 
           READ
           IF MANTW="Q"
              QUIT
           ENDIF
           IF MANTW $ "YJ"
              DELETE FILE(MPLUG)
           ENDIF
         ENDIF
      ELSE
         @ 13,10 SAY "Geen Zweedse tekst aanwezig."
         @ 14,10 SAY "Aanmaken " GET MANTW PICT "@! A" VALID(MANTW $ "YJNQ") 
         READ
         IF MANTW="Q"
            QUIT
         ENDIF
         IF MANTW $ "YJ"    
         CREATE FILE(MPLUG) 
*           MGREEP=FCREATE(MPLUG)  (alternatief)
*           FCLOSE(MGREEP)
         ENDIF
      ENDIF
*
   ELSE                             && NOT EMPTY EENTAAL
*
      MPLUG=MXTEKSTDIR+TRIM(LNK)+"."+LOWER(EENTAAL)+"t"                         && EENTAAL
      MANTW="N"
*
      IF FILE(MPLUG)
         @ 13,10 SAY "Een-taal tekst aanwezig."
         @ 14,10 SAY "Wijzigen " GET MANTW PICT "@! A" VALID(MANTW $ "YJNQ") 
         @ 15,10 SAY "Wissen "
         READ
         IF MANTW="Q"
            QUIT
         ENDIF
         IF MANTW $ "YJ"
            MODIFY FILE(MPLUG)
         ELSE
           MANTW="N"
           @ 15,18 GET MANTW PICT "@! A" VALID(MANTW $ "YJNQ") 
           READ
           IF MANTW="Q"
              QUIT
           ENDIF
           IF MANTW $ "YJ"
              DELETE FILE(MPLUG)
           ENDIF
         ENDIF
      ELSE
         @ 13,10 SAY "Geen een-taal tekst aanwezig."
         @ 14,10 SAY "Aanmaken " GET MANTW PICT "@! A" VALID(MANTW $ "YJNQ") 
         READ
         IF MANTW="Q"
            QUIT
         ENDIF
         IF MANTW $ "YJ"    
            CREATE FILE(MPLUG) 
*           MGREEP=FCREATE(MPLUG)  (alternatief)
*           FCLOSE(MGREEP)
         ENDIF
      ENDIF
      @ 13,0 
      @ 14,0 
      @ 15,0 
*
   ENDIF
*
   DO SHOWTXT 
*
   @ 12,0 SAY '*----------------------------- See also / more information -------------------*'

   @ 13,0 CLEAR TO 17,79

   IF MXMUT="N"
      MANTW="N"
      @ 13,5 SAY 'SEE ALSO / MORE INFO regel invoeren 'GET MANTW PICT "@! A" VALID(MANTW $ "YJNQ")       
      READ
      IF MANTW="Q"
         QUIT
      ENDIF
      IF MANTW="N"
         
      ELSE
         SELECT LINK 
         DO FOODLINK WITH 'N'
      ENDIF
      @ 13,5 CLEAR TO 17,79
   ELSE                                            && BIJ WIJZIGINGEN
      MGLNK="P"+TRIM(LNK) 
      SELECT LINK 
      SEEK MGLNK 
      IF FOUND()           
         DO WHILE MGLNK = LNK
         
            MANTW="N"
            MANS="N"
            MWEG="N"
            MNEW="N"
            @ 13,5 SAY IIF(SEE,"See also: ","More info: ")+LANG+" [ "+TRIM(OMS)+" ]"
            @ 14,5 SAY "H Ref: "+TRIM(LINK)       
            @ 15,5 SAY 'Deze regel WIJZIGEN    Deze regel laten VERVALLEN  '
            @ 16,5 SAY 'Hier een nieuwe regel TUSSENVOEGEN    (er na)'
            @ 17,5 SAY 'Een regel TOEVOEGEN  '

            @ 15,25 GET MANTW PICT "@! A" VALID(MANTW $ "YJNQ")                && WIJZIGEN
            READ
            IF MANTW="Q"
               QUIT
            ENDIF
            IF MANTW $ "YJ"                            && WIJZIGEN
               DO FOODLINK WITH 'W'
               SKIP
               LOOP
            ENDIF 
   
            @ 15,55 GET MWEG PICT "@! A" VALID(MWEG $ "YJNQ")                  && VERVALLEN 
            READ
            IF MANS="Q"
               QUIT
            ENDIF
            IF MWEG $ "YJ"                             && VERVALLEN
               DELETE
               SKIP
               MSCHOON=.T.
               LOOP
            ENDIF 

            @ 16,40 GET MANS PICT "@! A" VALID(MANS $ "YJNQ")                  && INSERT
            READ
            IF MWEG="Q"
               QUIT
            ENDIF
            IF MANS $ "YJ"                             && TUSSENVOEGEN 
               DO FOODLINK WITH 'T'
               LOOP 
            ENDIF

            @ 17,25 GET MNEW PICT "@! A" VALID(MNEW $ "YJNQ")                  && APPEND
            READ
            IF MNEW="Q"
               QUIT
            ENDIF
            IF MNEW $ "YJ"                             && TOEVOEGEN 
               DO FOODLINK WITH 'N'
               LOOP
            ENDIF
            SKIP
            @ 13,5 CLEAR TO 17,79
         ENDDO
         IF MSCHOON
            PACK
         ENDIF

      ELSE                                            && NOT FOUND
         MANTW="N"
         @ 13,5 SAY 'SEE ALSO / MORE INFO regel invoeren 'GET MANTW PICT "@! A" VALID(MANTW $ "YJNQ")       
         READ
         IF MANTW="Q"
            QUIT
         ENDIF
         IF MANTW="N"
         ELSE                                         && TOEVOEGEN 
            SELECT LINK 
            DO FOODLINK WITH 'N'
         ENDIF
         @ 13,5 CLEAR TO 17,79
      ENDIF  
   ENDIF

   SELECT PAGE 


   SET CONFIRM ON
   DO WHILE .T.
      @ 19,17 GET SRT01 PICT "!9"
      @ 19,32 GET SRT02 PICT "!#"
      @ 19,63 GET RGP PICT "Y"
      @ 21,39 GET SIMILAR PICT "Y" 
      READ
      IF EMPTY(SRT01)
         LOOP
      ELSE
         EXIT
      ENDIF
   ENDDO
   SET CONFIRM OFF

RETURN
*
*
*
*----------------------------------------------------------------------*
*  prog-tekst
*  VERVALLEN PAGINA VERVANGEN DOOR VERWIJZING              DELPAGE.PRG                     
*
*
*  OUD-, EN NWPAGE INCL. .HTM
*
* versie 14-3-2005 toegevoegd: <meta name="ROBOTS" content="noindex,follow">
* versie 11-2-2007 RUN noz.exe; remove ctrl-z (Autor NoZ.exe is Wayne Larmon, wlarmon@netheaven.com)
* versie 29-03-2007 nieuwe stijl
*----------------------------------------------------------------------*
PROCEDURE DELPAGE 

LOCAL DELLIJST,NWPAGE

DELLIJST = MXINHOUDDIR+MXWEGPAGE+'.htm' 
NWPAGE = MXNAARPAGE+'.htm'
SET ALTERNATE TO (DELLIJST)
SET ALTERNATE ON
DO FDOCTYPE WITH "NFI"
? '<title lang="EN">Deleted page.</title>'
? '<!--                                                       1) new address -->'
? '<meta http-equiv="refresh" content="3;http://www.foodlexicon.net/'+NWPAGE+'" />'
? '<meta name="description" content="Deleting page " />'
? '<meta name="build" content="29-03-2007" />'
? '<meta name="keywords" content="deleting" />'
? '</head><body id="foodlexicon">' 
? '<div id="container"><h1> NOTA BENE </h1> <!--                   CONTAINER -->'
? '<div id="intro"> <!--                                               INTRO -->'
? '<h1>The page is moved to <br />'
? '<!--                                                       2) new address -->'
? '<a href="http://www.foodlexicon.net/'+NWPAGE+'" />'
? '<!--                                                       3) nieuwe adres -->'
? 'http://www.foodlexicon.net/'+NWPAGE
? '</a></h1></div></div></body></html>'
SET ALTERNATE OFF
CLOSE ALTERNATE
DELLIJST = "NOZ "+DELLIJST
RUN (DELLIJST)

*                                           ----------------
*                                           SIDEMAP BIJWERKEN
*                                           ----------------
*
SELE SMAP
DELLIJST= MXWEGPAGE+'.htm'
SEEK DELLIJST
IF .NOT. FOUND()
ELSE 
   DELETE 
   PACK
ENDIF 
*
RETURN
*
*
*
*-----------------------------------------------------------------------*
*  prog-tekst
*  INVOER VAN REGELS             6-8-2006                  FOODLINK.PRG
*  SEE ALSO / MORE INFO                         
*  (N = nieuw -en nog een-, W = wijzigen, T = tussenvoegen
*   O = aan woord koppelel) 
* versie 10-8-2006 link aan een woord hangen.
* versie 22-8-2006 link aan plaatje hangen  
* versie 17-01-2007 indicatie belangrijk       
* versie 23-05-2007 link-taal LA mogelijk                    
*-----------------------------------------------------------------------*
PROCEDURE FOODLINK (MINFO)

PRIV MLETTER

MLETTER="?"



SELECT LINK
* versie 10-8-2006  link aan een woord hangen.
*                                 ------------------------------- 
*                                 LINK AAN WOORD, NIEUW = TOEVOEGEN
*                                 -------------------------------

IF MINFO = "O"

   APPEND BLANK
   REPL LNK WITH "W"+MXLNK, SEE WITH .F., WOORD WITH MXWOORD 
   @ 18,5 CLEAR TO 20,79
   DO WHILE .T.
      MLETTER="?"
      @ 18,5 SAY 'Kale tekst link: ' GET LINK PICT "AXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
      @ 19,5 SAY 'Omschrijving:    ' GET OMS  PICT "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
      @ 20,5 SAY 'Taalcode omschrijving: 'GET LANG PICT "@! AA" VALID(LANG $ 'NL,EN,FR,DE,DA,ES,SE')
      @ 20,33 SAY 'Belangrijk?: 'GET WICHTIG PICT "L"
      READ
      IF EMPTY(LANG) .OR. EMPTY(LINK) .OR. EMPTY(OMS)
         @ 20,15 SAY 'Er is iets niet ingevuld, stoppen ' GET MLETTER PICT "@! A" VALID(MLETTER $ "JYNQ")
         READ 
         IF MLETTER="Q"
            QUIT
         ENDIF
         IF MLETTER="N"
            LOOP
         ELSE
            DELETE
            PACK
            EXIT 
         ENDIF
      ELSE
         EXIT
      ENDIF
   ENDDO 
   @ 18,5 CLEAR TO 20,79
   RETURN   

ENDIF

* versie 22-8-2006 link aan plaatje hangen 
*                                 ------------------------------- 
*                                 LINK AAN PLAATJE, TOEVOEGEN
*                                 -------------------------------
*
IF MINFO = "I"
*
   APPEND BLANK
   REPL LNK WITH "I"+MXLNK, SEE WITH .F., WOORD WITH MXWOORD     && MXWOORD = filenaam plaatje
   @ 11,5 CLEAR TO 13,79
   DO WHILE .T.
      MLETTER="?"
      @ 11,5 SAY 'Link: . . . . ' GET LINK PICT "AXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
      @ 12,5 SAY 'Omschrijving: ' GET OMS  PICT "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
      @ 13,5 SAY 'Taalcode omschrijving: 'GET LANG PICT "@! AA" VALID(LANG $ 'NL,EN,FR,DE,DA,ES,SE')
      @ 13,33 SAY 'Belangrijk?: 'GET WICHTIG PICT "L"
      READ
      IF EMPTY(LANG) .OR. EMPTY(LINK) .OR. EMPTY(OMS)
         @ 17,15 SAY 'Er is iets niet ingevuld, stoppen ' GET MLETTER PICT "@! A" VALID(MLETTER $ "JYNQ")
         READ 
         IF MLETTER="Q"
            QUIT
         ENDIF
         IF MLETTER="N"
            LOOP
         ELSE
            DELETE
            PACK
            EXIT 
         ENDIF
      ELSE
         EXIT
      ENDIF
   ENDDO 
   @ 11,5 CLEAR TO 13,79
   RETURN   
ENDIF

@ 13,5 CLEAR TO 17,79


*                                 ------------------------------- 
*                                 SEE ALSO PAGE NIEUW = TOEVOEGEN
*                                 -------------------------------

IF MINFO = "N"
   DO WHILE .T. 
      MLETTER="N"

      @ 13,5 SAY 'Wordt het SEE ALSO  ' GET MLETTER PICT "@! A" VALID(MLETTER $ "JYNQ") 
      @ 14,5 SAY 'of wordt het MORE INFO  '  
      READ
      IF MLETTER="Q"
         QUIT
      ENDIF
      IF MLETTER="N"
         @ 14,29 GET MLETTER PICT "@! A" VALID(MLETTER $ "JYNQ") 
         READ
         IF MLETTER="Q"
            QUIT
         ENDIF
         IF MLETTER="N"
         ELSE
            APPEND BLANK
            REPL LNK WITH "P"+MXLNK, SEE WITH .F. 
         ENDIF
      ELSE
         @ 14,29 SAY "N"
         APPEND BLANK
         REPL LNK WITH "P"+MXLNK, SEE WITH .T.
      ENDIF

      IF MLETTER="N"
         @ 13,5 CLEAR TO 17,79
         RETURN   
      ELSE
         DO WHILE .T.
            @ 13,5 SAY 'Het wordt '+IIF(SEE, 'SEE ALSO','MORE INFO')
            @ 14,5
            @ 14,5 SAY 'Link: . . . . ' GET LINK PICT "AXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
            @ 15,5 SAY 'Omschrijving: ' GET OMS  PICT "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
            @ 16,5 SAY 'Taalcode omschrijving: 'GET LANG PICT "@! AA" VALID(LANG $ 'NL,EN,FR,DE,DA,ES,LA,SE')
            @ 16,33 SAY 'Belangrijk?: 'GET WICHTIG PICT "L"
            READ
            IF EMPTY(LANG) .OR. EMPTY(LINK) .OR. EMPTY(OMS)  
               MLETTER="?"
               @ 16,15 SAY 'Er is iets niet ingevuld, stoppen ' GET MLETTER PICT "@! A" VALID(MLETTER $ "JYNQ")
               READ 
               IF MLETTER="Q"
                  QUIT
               ENDIF
               IF MLETTER="N"
                  LOOP
               ELSE
                  DELETE
                  PACK
                  @ 13,5 CLEAR TO 17,79
                  RETURN  
               ENDIF
            ELSE
               EXIT
            ENDIF
         ENDDO 
*
         MLETTER="N"
         @ 17,5 SAY 'Nog een regel invoeren ' GET MLETTER PICT "@! A" VALID(MLETTER $ "JYNQ")        
         READ
         IF MLETTER="Q"
            QUIT
         ENDIF
          @ 13,5 CLEAR TO 17,79
         IF MLETTER="N"
            EXIT
         ELSE
            LOOP
         ENDIF
      ENDIF
   ENDDO
ENDIF
*                                 ----------------------- 
*                                 SEE ALSO  TUSSENVOEGEN
*                                 -----------------------
IF MINFO = "T"
   DO WHILE .T. 
      MLETTER="N"

      @ 13,5 SAY 'Wordt het "SEE ALSO" ' GET MLETTER PICT "@! A" VALID(MLETTER $ "JYNQ") 
      @ 14,5 SAY 'of wordt het "MORE INFO"  '  
      READ
      IF MLETTER="Q"
         QUIT
      ENDIF
      IF MLETTER="N"
         @ 14,29 GET MLETTER PICT "@! A" VALID(MLETTER $ "JYNQ") 
         READ
         IF MLETTER="Q"
            QUIT
         ENDIF
         IF MLETTER="N"
         ELSE
            INSERT BLANK
            REPL LNK WITH "P"+MXLNK, SEE WITH .F. 
         ENDIF
      ELSE
         @ 14,29 SAY "N"
         INSERT BLANK
         REPL LNK WITH "P"+MXLNK, SEE WITH .T.
      ENDIF

      IF MLETTER="N"
*        @ 13,5 CLEAR TO 17,79
         RETURN   
      ELSE
         DO WHILE .T.
            @ 13,5 SAY 'Het wordt '+IIF(SEE, 'SEE ALSO','MORE INFO')
            @ 14,5
            @ 14,5 SAY 'Link: . . . . ' GET LINK PICT "AXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
            @ 15,5 SAY 'Omschrijving: ' GET OMS  PICT "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
            @ 16,5 SAY 'Taalcode omschrijving: 'GET LANG PICT "@! AA" VALID(LANG $ 'NL,EN,FR,DE,DA,ES,LA,SE')
            @ 16,33 SAY 'Belangrijk?: 'GET WICHTIG PICT "L"
            READ
            IF EMPTY(LANG) .OR. EMPTY(LINK) .OR. EMPTY(OMS)
               MLETTER="?"
               @ 17,15 SAY 'Er is iets niet ingevuld, stoppen ' GET MLETTER PICT "@! A" VALID(MLETTER $ "JYNQ")
               READ 
               IF MLETTER="Q"
                  QUIT
               ENDIF
               IF MLETTER="N"
                  LOOP
               ELSE
                  DELETE
                  PACK
                  @ 13,5 CLEAR TO 17,79
                  RETURN 
               ENDIF
            ELSE
               EXIT
            ENDIF
         ENDDO 
*
         MLETTER="?"
         @ 17,5 SAY 'Nog een regel TUSSENVOEGEN ' GET MLETTER PICT "@! A" VALID(MLETTER $ "JYNQ")        
         READ
         IF MLETTER="Q"
            QUIT
         ENDIF
          @ 13,5 CLEAR TO 17,79
         IF MLETTER="N"
            EXIT
         ELSE
            LOOP
         ENDIF
      ENDIF
   ENDDO
ENDIF
*                                 -------------------
*                                 SEE ALSO  WIJZIGEN
*                                 -------------------

IF MINFO = "W" 
   DO WHILE .T.
      MLETTER="N"
      @ 13,5 SAY 'Thans '+IIF(SEE, 'SEE ALSO ','MORE INFO ')+'Dit veranderen ' GET MLETTER PICT "@! A" VALID(MLETTER $ "JN")  
      @ 14,5 SAY 'Link: . . . . ' GET LINK PICT "AXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
      @ 15,5 SAY 'Omschrijving: ' GET OMS  PICT "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
      @ 16,5 SAY 'Taalcode omschrijving: 'GET LANG PICT "@! AA" VALID(LANG $ 'NL,EN,FR,DE,DA,ES,LA,SE')
      @ 16,33 SAY 'Belangrijk?: 'GET WICHTIG PICT "L"
      READ
      IF MLETTER = "J"
         REPL SEE WITH IIF(SEE, .F.,.T.)
      ENDIF

      IF EMPTY(LANG) .OR. EMPTY(LINK) .OR. EMPTY(OMS)
         MLETTER="?"
         @ 16,15 SAY 'Leeg gemaakt, moet de link vervallen ' GET MLETTER PICT "@! A" VALID(MLETTER $ "JYNQ")
         READ 
         IF MLETTER="Q"
            QUIT
         ENDIF
         IF MLETTER="N"
            @ 16,15 SAY 'Vul dan het lege veld nog even in.   '
            LOOP
         ELSE
            DELETE
            PACK
            EXIT 
         ENDIF
      ELSE
         EXIT
      ENDIF
   ENDDO 
ENDIF
@ 13,5 CLEAR TO 16,79
RETURN
*
*-----------------------------------------------------------------------*
*  prog-tekst
*  SCHERM WOORD GEGEVENS                                   FOODWSCHR.PRG
* 
* versie 10-09-2007 Zweeds
* versie 7-08-2009 reisgids
*-----------------------------------------------------------------------*
PROCEDURE FOODWSCHR  
*
@ 0,0 CLEAR
@ 0,5 SAY 'Gekozen transactie: '+MXMUT
@ 0,30 SAY 'Link/Filenaam '+LNK 
@ 1,0 SAY '*---------------------------- Woord gegevens -------------------------------*'
@ 2,2 SAY 'Het woord: '+WOORD
@ 2,65  SAY ' '
@ 3,2 SAY '2e regel:  '+OMS01 
@ 3,75 SAY IIF(CRLF, 'T', 'F')
@ 4,2 SAY '3e regel:  '+OMS02
*
@ 6,5 SAY 'Voorkeur '+IIF(NOTE, 'J', 'N')
@ 6,20 SAY 'IND '+IND
@ 7,5 SAY 'Reisgids '+IIF(RG, 'J', 'N')
@ 7,20 SAY 'Dubieus: '+IIF(DUBIEUS, 'J','  ' ) && WIJZ. 18-10-05
@ 7,32 SAY 'Alternatief'+IIF(ROOD, 'J', 'N')
@ 7,45 SAY 'Dialect of oud '+IIF(DIALECT, 'J', 'N')
@ 7,63 SAY 'Circa '+IIF(CIRCA, 'J', 'N')             
@ 9,5 SAY 'NL '+IIF(NL, 'J', 'N')
@ 9,15 SAY 'Omschrijving '
@ 9,28 SAY 'NL '+IIF(NLOMS, 'J', 'N')
@ 10,5 SAY 'FR '+IIF(FR, 'J', 'N') 
@ 10,28 SAY 'FR '+IIF(FROMS, 'J', 'N')
@ 11,5 SAY 'DE '+IIF(DE, 'J', 'N') 
@ 11,28 SAY 'DE '+IIF(DEOMS, 'J', 'N')
@ 12,5 SAY 'EN '+IIF(EN, 'J', 'N')
@ 12,28 SAY 'EN '+IIF(ENOMS, 'J', 'N')
@ 13,5 SAY 'DA '+IIF(DA, 'J', 'N')
@ 13,28 SAY 'DA '+IIF(DAOMS, 'J', 'N')
@ 14,5 SAY 'ES '+IIF(ES, 'J', 'N')
@ 14,28 SAY 'ES '+IIF(ESOMS, 'J', 'N')
@ 15,5 SAY 'SE '+IIF(SE, 'J', 'N')
@ 15,28 SAY 'SE '+IIF(SEOMS, 'J', 'N')
@ 16,5 SAY 'LA '+IIF(LAT, 'J', 'N')
@ 16,20 SAY 'Extra taal  '+EXTRA_TAAL

@ 17,0 CLEAR 

RETURN
*
*
*-----------------------------------------------------------------------*
*  GET FOOD WOORD GEGEVENS                                   FOODWGET.PRG
* 
* V02 INVOERING NOTE; SCHERM AANPASSING
* V03 DIALECT TOEVOEGEN OUD
* V04 DIRECT IND AANMAKEN
* && WIJZ. 18-10-05: toegevoegd indicatie DUBIEUS
* V10-08-2006 H-link aan woord hangen
* v 14-2-2007 soundex
* versie 21-6-2007 Afwijkende pagina's toch opnemen in de bestanden
* versie 12 sept 2007 zweeds correct indexeren, (was fout door dat stomme prisma woordenboekje).
* v 13-10-2010 MXEENTAAL
*-----------------------------------------------------------------------*

PROC FOODWGET

LOCAL MOIND, GETANTW, ISLINK, LIANTW


MOIND = " "                 && IND  
LIANTW = " "       
GETANTW=""                  && antwoordkey
ISLINK=.F.                  && TAAL ingevuld?
*                                 -------------------
*                                 SELE MOEDER
*                                 -------------------
SELECT MOEDER
MXWOORD = TRIM(LTRIM(WOORD))
*                                                              *-----------------*   
*                                                               INVOER WOORD INFO
*                                                              *-----------------*   
DO WHILE .T.
   @ 2,13 GET WOORD PICT "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
*   @ 3,75 GET CRLF PICT "L"
   @ 3,13 GET OMS01 PICT "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
   @ 4,13 GET OMS02 PICT "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
   
   @ 6,14 GET NOTE PICT "L"
   @ 7,14 GET RG PICT "L"
   @ 7,29 GET DUBIEUS PICT "L"      
   @ 7,43 GET ROOD PICT "L"
   @ 7,60 GET DIALECT PICT "L"
   @ 7,69 GET CIRCA PICT "L"             

   @ 9,8 GET NL PICT "L"  
   @ 10,8 GET FR PICT "L"
   @ 11,8 GET DE PICT "L"
   @ 12,8 GET EN PICT "L"
   @ 13,8 GET DA PICT "L"
   @ 14,8 GET ES PICT "L"
   @ 15,8 GET SE PICT "L"
   @ 16,8 GET LAT PICT "L"
   @ 9,31 GET NLOMS PICT "L" 
   @ 10,31 GET FROMS PICT "L"
   @ 11,31 GET DEOMS PICT "L"
   @ 12,31 GET ENOMS PICT "L"
   @ 13,31 GET DAOMS PICT "L"
   @ 14,31 GET ESOMS PICT "L"
   @ 15,31 GET SEOMS PICT "L"
   @ 16,31 GET EXTRA_TAAL
   
   READ

   MOIND = LTRIM(WOORD)
   REPL WOORD WITH MOIND
   
   MOIND = TRIM(LTRIM(UPPER(WOORD)))

   IF EMPTY(MOIND)
      GETANTW="?"   
      @ 18,5 SAY 'Het woord is niet ingevuld, STOPPEN ' GET GETANTW PICT "@! A" VALID(GETANTW $ "JYN")
      READ
      IF GETANTW ="N"
         LOOP
      ELSE
         MXMUT ="?"
         DELETE
         RETURN
      ENDIF 
   ENDIF

   ISLINK=.F.
   IF NL
      ISLINK=.T.
   ENDIF
   IF FR 
      ISLINK=.T.      
   ENDIF
   IF DE
      ISLINK=.T.
   ENDIF
   IF EN
      ISLINK=.T.
   ENDIF
   IF DA
      ISLINK=.T. 
   ENDIF
   IF ES
      ISLINK=.T.
   ENDIF
   IF SE
      ISLINK=.T.
   ENDIF
   IF NLOMS
      ISLINK=.T.
   ENDIF
   IF FROMS 
      ISLINK=.T.      
   ENDIF
   IF DEOMS
      ISLINK=.T.
   ENDIF
   IF ENOMS
      ISLINK=.T.
   ENDIF
   IF DAOMS
      ISLINK=.T. 
   ENDIF
   IF ESOMS
      ISLINK=.T.
   ENDIF
   IF SEOMS
      ISLINK=.T.
   ENDIF
   IF LAT
      ISLINK=.T.
   ENDIF
   IF .NOT. ISLINK
      @ 19,5 SAY 'Geen enkele taal ingevuld, '
      WAIT
      @ 19,0
      @ 20,0
      LOOP
   ENDIF

   MXWOORD = TRIM(LTRIM(WOORD))
   MXLNK = LNK 

   SELE PAGE
   SEEK MXLNK
   IF FOUND()
      MXEENTAAL=EENTAAL
   ELSE
      MXEENTAAL=" "
   ENDIF 

   SELECT MOEDER
   MXIND = " "
*                                                              *-----------------*   
*                                                               MAKEIND
*                                                              *-----------------*   
   GETANTW = "WORD"
   DO MAKEIND WITH GETANTW
*
   SELE MOEDER
*
   IF MXMUT ="?"
      DELETE
      RETURN
   ENDIF
*
   IF GETANTW = "Geen PUNT-KOMMA gevonden"
      GETANTW='?'  
      @ 19,5 SAY 'Geen PUNT-KOMMA gevonden. INVOER aanpassen J/N? 'GET GETANTW PICT "!"
      READ 
      @ 19,5    
      IF GETANTW = "J"
         @ 19,0
         LOOP
      ELSE 
         MXMUT ="?"
         DELETE
         RETURN
      ENDIF
   ENDIF
*
   IF GETANTW = "Het WOORD aanpassen." 
      GETANTW='?'
      @ 19,5 SAY 'Het WOORD aanpassen. J/N? 'GET GETANTW PICT "!"
      READ
      @ 19,5
      IF GETANTW = "J"
         SELE MOEDER
         @ 19,0
         LOOP
      ELSE 
         MXMUT ="?"
         DELETE
         RETURN
      ENDIF
   ENDIF
*
   MXIND = GETANTW
*
*                                                              *-----------------*   
*                                                               MAKESND 
*                                                              *-----------------*   
   GETANTW = "WORD"
   DO MAKESND WITH GETANTW
*
   SELE MOEDER
   IF MXMUT ="?"
      DELETE
      RETURN
   ENDIF
   EXIT
ENDDO
*


@ 6,20 SAY 'IND: '+IND

IF .NOT. MXAFW

*                                 -------------------
*                                 LINK MUTEREN
*                                 -------------------
* versie 10-8-2006  link aan een woord hangen.
*
   MOIND = TRIM(LTRIM(WOORD))
   LIANTW= "W"+LNK
   GETANTW="N"
   ISLINK=.F.
*                                 -------------------
*                                 SELE LINK 
*                                 -------------------   
   SELECT LINK
   
   IF .NOT. EMPTY(MXWOORD)
   
      SEEK LIANTW
      IF FOUND()
         LOCATE FOR WOORD = MXWOORD .AND. LNK = LIANTW
         IF FOUND() 
            IF EMPTY(MOIND)
               DELETE
               PACK
*                                 -------------------
*                                 SELE MOEDER
*                                 -------------------
               SELECT MOEDER 
               RETURN
            ENDIF 
            ISLINK=.T.
            @ 18,5 SAY LINK
            @ 19,5 SAY 'Deze link WISSEN ' GET GETANTW PICT "@! A" VALID(GETANTW $ "JYNQ") 
         ELSE
            @ 18,5 SAY 'Aan woord linken ' GET GETANTW PICT "@! A" VALID(GETANTW $ "JYNQ") 
         ENDIF
      ELSE
         @ 18,5 SAY 'Aan woord linken ' GET GETANTW PICT "@! A" VALID(GETANTW $ "JYNQ") 
      ENDIF
   ELSE
*                                 -------------------
*                                 SELE MOEDER
*                                 -------------------
      SELECT MOEDER
      MXWOORD = TRIM(LTRIM(WOORD))
      SELECT LINK
      @ 18,5 SAY 'Aan woord linken ' GET GETANTW PICT "@! A" VALID(GETANTW $ "JYNQ")
   ENDIF
   
   READ
   
   IF ISLINK
      REPL WOORD WITH MOIND
   ENDIF
   
   IF GETANTW ="Q"
      QUIT
   ENDIF
   IF GETANTW ="N"
   ELSE
      IF ISLINK
         DELETE
      ELSE
         DO FOODLINK WITH "O"
      ENDIF
   ENDIF
   @ 17,5 
ENDIF
*                                 -------------------
*                                 SELE MOEDER
*                                 -------------------
SELECT MOEDER
*
RETURN
*
*----------------------------------------------------------------------------*
*  
*                                                              Fnwords.PRG 
*       NIEUWE WOORDEN toevoegen aan een pagina      
*                                               
*----------------------------------------------------------------------------*
PROC FNWORDS  
*
PRIV NWMUT
NWMUT="?"
*
DO WHILE .T.
* 
   SELE PAGE
   MXAFW = AFWIJKEND
   MXLNK = LTRIM(TRIM(LOWER(MXLNK)))
   MXEENTAAL=EENTAAL
   SELE MOEDER
   GO BOTTOM
   APPEND BLANK
   REPL LNK WITH MXLNK, CRLF WITH .T.
   DO FOODWSCHR
   DO FOODWGET 
   IF EMPTY(WOORD)
      DELETE
      MXMPACK=.T.
   ELSE
      FLUSH
      MXIND = IND
      DO FMONIEUW WITH MXIND                  && (in foodproc)
      DO FTABEL WITH (MXIND)
      SELECT MOEDER 
      IF .NOT. MXAFW
         IF EMPTY(MXBLOK)
            MXBLOK = MXLNK
         ENDIF
      ENDIF
   ENDIF
   NWMUT="?"
   @ 23,05
   @ 23,05 SAY 'Nog een woord inbrengen ? bij pagina '+TRIM(MXLNK)+'.htm'
   @ 23,29 GET NWMUT PICT "@! A" VALID(NWMUT $ "YJNQC") 
   READ
   IF NWMUT="Q"
      EXIT
   ENDIF
   IF NWMUT="C"
      EXIT
   ENDIF
   IF NWMUT="N"
       EXIT      
   ELSE
      LOOP
   ENDIF
ENDDO
*
RETURN
*
*
*
*
*----------------------------------------------------------------------------*
*  prog-tekst
*                                                              Foodblok.PRG 
* FUNKTIONS:            
*                 
* 
*            -maak pagina's per ind-waarde van de woorden in de moedertab.   
*
* (Voortgekomen uit fblokken.prg)      
* param in: niks
*               
*   output: pages per woord in HTM-format
*   LET OP: Alleen mogelijk per aanroep 1 page te makem 
*  
* versie 14-3-2005 toegevoegd: <meta name="ROBOTS" content="index,nofollow">
*   en: <meta name="description" content="Translatons of food terms, between EN FR DE DA ES NL">
* versie 15-3-2005 toegevoegd: <meta name="keywords" content= ...> 
* versie 15-7-2005 Google toegevoegd 2x  
* versie 18-10-2005, dubieus toegevoegd  TRIM(WOORD)+IIF(DUBIEUS,'? ',' ')
* versie 3-11, zwart printen en tidy ok (afsluiting en stop), border="0" weg
* versie 6-11, AdSense knopje en IE passend 
* versie 1-12, Linkline google en betere opmaak
* versie 5-12-2005 fsidemap.dbf t.b.v. sidemap
* versie 1-1-2006 indicatie SIMILAR
* versie 12-2-2006 PDA 
* versie 4-8-2006 voorbereiding See also en More Info: verplaatst.
* versie 6-8-2006 See also en More Info: UIT NIEUWE BESTANDEN.
* versie 10-8-2006  link aan een woord hangen.
* versie 18-8-2006 tekst i.p.v. plaatje
* versie 26-8-2006 titel characters uit teken.dbf halen
* versie 14-10-2006 onder-plaatjes vervallen (jgp  b01 / b02)
* versie 16-10-2006 vernieuwing html lay-out: CSS (zen design)
* versie 19-12-2006 reparatie nieuwe lay-out zen design II  
* versie 25-12-2006 bugs
* versie 17-01-2007 indicatie belangrijk 
* versie 17-01-2007 class img.regel
* versie 11-02-2007 RUN noz.exe; remove ctrl-z (Autor NoZ.exe is Wayne Larmon, wlarmon@netheaven.com)
* versie 12-o2-2007 plaatjes see also, more info.
* versie 14-02-2007 soundex
* versie 17-02-2007 bug soundex waarde XXX (in fsoundex)
* versie 25-02-2007 soundex: pagina zelf niet nogmaals melden (in fsoundex)
* versie 05-03-2007 soundex: bug filter over page
* versie 08-03-2007 soundex: overigen 
* versie 22-04-2007 google zoeken: intern en extern.
* versie 1.5.2007 foodlex.txt HAND-indicatie H=handwerk, W=woord, X=wordsindex en O=overigen. 
* versie 27-5-2007 EXTRA_TAAL toegevoegd aan omschrijving #
* versie 10-09-2007 Zweeds
* versie 23-12-2007 Aanvullende info zweeds
* versie vanaf 07-01-2008 vernieuwing google opzet.
* versie 16-03-2008 VIS: Denk na en Niet doen
* versie 16-05-2008 Custom Search van Google
* versie 21-07-2008 fout in signaal rood en dialect ][ **
* versie okt. 2008 parameter i.p.v. filter
* versie 22 jul 2009 MSC link bij vis 
* versie 21-10-09 hele pagina krijgt RG indicatie
* versie 22-10-09 hele pagina IS indicatie RGP
* versie 30-03-10 bug filename 8 pos. txt's
* versie 01-01-10 pagina met 1 taal
* vervie 23-09-10 subdir inhoud: terug met .. 
* versie 08-10-10 MXPICSDIR
* versie 18-10-10 soundex: BUG teveel melden 
* versie 01-11-10 bug plaatje see.png werd niet getoond
* versie 30-04-11 indicatie vegetarisch
* versie 04-05-11 indicatie vegetarisch ook voor cat 2.
* versie 28-03-12 speciale aandacht voor links ipv []

*-----------------------------------------------------------------------------

PROCEDURE FOODBLOK (LNKBKODE)


PRIV LIJST,TIETEL,TIETAAL,KOP,LIJNTJE, CAT01NAAM, CAT02NAAM, CAT01,CAT02,MOERECNO,CLNCDE,INFOO, TEKTEL, SKWER, LOPMAAK, FISK 
PRIV FRTEL, DETEL, DATEL, ENTEL, ESTEL, NLTEL, LATEL, SETEL, FKOMMA, CAT03, NHANDLE, LMORE, LLINK, LINKLNK, WOPMAAK, PAGRECNO

*                                                ----------------
*                                                define variables 
*                                                ----------------
*                                                LNKBKODE=LNK
LINKLNK = " "               && W+LNK
CLNCDE =" "                 && FILENAAM INFO-FILE
NHANDLE=0                   && FILEHENDEL 
LIJST = ".htm"              && DIR\-PAGE-.HTM
BLOKFILE = " "              && -PAGE-.HTM
TIETEL= " "                 && title <title lang="NL"> NL: babi - translations </title>
TIETAAL = " "               && title language 
KOP = " "                   && kop
LIJNTJE = .F.               && EXTRA <HR>
FKOMMA=.F.                  && komma tussen keywords zetten.
STORE 1 TO FRTEL, DETEL, DATEL, ENTEL, ESTEL, NLTEL, LATEL, SETEL, TEKTEL         && teller
CAT01=" "
CAT02=" "
CAT03= .F.                  && VERGELIJKBAAR J/N
CAT01NAAM =" "
CAT02NAAM =" "
FISK=" "                    && VISKODE V
* TEKENS=.F.                && GEEN SIGNS (dialect etc.) BUITEN GEBRUIK
INFOO=.F.                   && GEEN SUB-KOP INFORMATION
SKWER=.T.                   && ruimte voor 125 x 125 plaatje
MOERECNO= 1                 && RECNO() MOEDER
PAGRECNO= 1                 && RECNO() PAGE
LMORE = .T.
LLINK = .F.                 && EEN WOORD-LINK BIJ DEZE PAGINA
LOPMAAK = " "               && OPMAAK WOORD T.B.V. OPMAAK LINK
WOPMAAK = " "               && OPMAAK WOORD MET/ZONDER LINK / REGELS INFO/ LETTERS CONVERSIE IN TITEL

*
SET CENTURY ON
*
*                                                ****************
*                                                * MAIN PROCESS *
*                                                ****************
*                                                ----------------
*                                                PAGE
*                                                ----------------
SELECT PAGE                            && LEADING TABEL
SEEK LNKBKODE
IF .NOT. FOUND()
  ? 'Foodblok: Pagina niet gevonden in PAGE: '+LNKBKODE 
  WAIT 
  GO TOP
  RETURN 
ENDIF
PAGRECNO = RECNO()               && VOOR ALLE ZEKERHEID

DO WHILE .NOT. EOF()

*                                                ----------------
*                                                IS ER EEN WOORD- LINK
* versie 22-8-2006 link aan plaatje hangen       IS ER EEN PLAATJES- LINK
*                                                ----------------
   LINKLNK= "W"+LNK
   LINKPLT= "I"+LNK
   LLINK = .F.
   LPINK = .F.      
   SELECT LINK
   SEEK LINKLNK
   IF FOUND()
      LLINK = .T.
   ENDIF
   SEEK LINKPLT
   IF FOUND()
      LPINK = .T. 
   ENDIF
*
   SELECT PAGE
*
*                                                ----------------
*                                                AFWIJKEND
*                                                ----------------
*    TEKENS=.F.                  && GEEN SIGNS 

   IF AFWIJKEND                  && NIET DOEN
      RETURN 
   ELSE
*                                                ----------------
*                                                FPAGE.DBF
*                                                ----------------

      MXEENTAAL=EENTAAL
      LIJST = MXINHOUDDIR+TRIM(LNK)+".htm"
      BLOKFILE = LOWER(TRIM(LNK))+".htm"

      STORE 1 TO FRTEL, DETEL, DATEL, ENTEL, ESTEL, SETEL, NLTEL 
   
      CAT01 = SRT01
      CAT02 = SRT02
      CAT03 = SIMILAR
      REPLACE MAAKDATUM WITH SUBS(DTOC(DATE()),7,4)+"-"+SUBS(DTOC(DATE()),4,2)+"-"+SUBS(DTOC(DATE()),1,2)+"T"+LEFT(TIME()+"00000",5)+"Z"
*                                                ----------------
*                                                FMOE.DBF
*                                                ----------------
      TIETEL=" "
*                                                *--------------*
*                                                 NIET EEN TAAL
*                                                *--------------*
      IF EMPTY(MXEENTAAL) 
         SELECT MOEDER
         SEEK LNKBKODE
         IF .NOT. FOUND() 
            MXWEGPAGE=MXWEGPAGE+' '+LNKBKODE             
            SELECT PAGE
            DELETE
            PACK
            SELECT MOEDER
            RETURN
         ENDIF
*            
         MOERECNO = RECNO() 
*
         DO WHILE LNK = LNKBKODE
            IF EN
               TIETEL = TRIM(WOORD)
            ENDIF
            IF .NOT. EOF()
               IF MXMUT = "R" 
                  REPLACE RG WITH .T.
               ENDIF
               SKIP
            ELSE
               EXIT
            ENDIF
         ENDDO
*
         GOTO MOERECNO   
      ENDIF
*                                                ----------------
*                                                bloklijst header 
*                                                ----------------

      SET ALTERNATE TO (LIJST)
      SET ALTERNATE ON
      SET DATE ITALIAN
      SET CENTURY ON
      _WRAP = .F.

*                                                ----------------
*                                                FPAGE.DBF: TITEL
*                                                ----------------
      SELECT PAGE
      DO FDOCTYPE WITH "INI"
      IF .NOT. EMPTY(EENTAAL)
         ? '<title lang="'+TRIM(UPPER(TITEL_TAAL))+'"> '+TRIM(UPPER(TITEL_TAAL))+': '+TRIM(TITEL)+' - description </title>'
      ELSE
         IF .NOT. EMPTY(TIETEL)
            ? '<title lang="EN"> EN: '+TRIM(TIETEL)+' - translation </title>'
         ELSE
            ? '<title lang="'+TRIM(UPPER(TITEL_TAAL))+'"> '+TRIM(UPPER(TITEL_TAAL))+': '+TRIM(TITEL)+' - translations </title>'
         ENDIF
      ENDIF
      ? '<meta name="description" content="Translatons of food terms, between EN FR DE DA ES NL SE" />'
      ? '<meta name="build" content="01-01-2008" />'
      IF .NOT. EMPTY(EENTAAL)
         ? '<meta name="keywords" content="'+TRIM(TITEL)+'"'
      ELSE
         ? '<meta name="keywords" content="'
*
         SELECT MOEDER
*
         DO WHILE TRIM(LNK) = TRIM(LNKBKODE)
            FKOMMA=.F.
            IF .NOT. EMPTY(WOORD)
               IF LEFT(WOORD,1) <> "-"
                  ? TRIM(LTRIM(WOORD))
                   FKOMMA=.T.
               ENDIF
            ENDIF
            SKIP
   
            IF EOF()
               EXIT
            ELSE 
               IF TRIM(LNK) = TRIM(LNKBKODE)
                  IF FKOMMA
                     ?? ','
                  ENDIF
               ELSE
                  EXIT
               ENDIF
            ENDIF
         ENDDO
         ?? '" />'
*
         GOTO MOERECNO  
      ENDIF
* 
      SELECT PAGE
      CAT01 = TRIM(SRT01)
*
      SELECT SOORT
*
      SEEK CAT01
      IF FOUND()
         IF .NOT. EMPTY(IMG) 
            ? '<link rel="stylesheet" href=" ../'+TRIM(LTRIM(IMG))+'style.css" type="text/css" media="screen" />'
         ENDIF
      ENDIF
*
      SELECT PAGE
* 
      ? '</head><body id="foodlexicon">' 
      ? '<div id="container"><div id="intro">'
      ? '<!--                                                                Linkregel Google -->'
      ? '<div class="nietprinten">'
      ? '<script type="text/javascript"><!--'
      ? 'google_ad_client = "pub-5315539198167919";'
      ? 'google_ad_width = 728;'
      ? 'google_ad_height = 15;'
      ? 'google_ad_format = "728x15_0ads_al";'
      ? 'google_ad_channel ="";'
      ? 'google_color_border = "A8DDA0";'
      ? 'google_color_bg = "FDFFCA";'
      ? 'google_color_link = "006600";'
      ? 'google_color_url = "008000";'
      ? 'google_color_text = "000000";'
      ? '//--></script>'
      ? '<script type="text/javascript"'
      ? '  src="http://pagead2.googlesyndication.com/pagead/show_ads.js">'
      ? '</script></div>  <!--                                          EINDE Linkregel Google -->'
      ? '<div id="pageHeader"><p>'
      ? '<img src="'+MXPICSDIR+'_space.gif" width="10" height="43" alt="" border="0" />'
      DO FWWWKAP WITH "PICS"
      ?? '<br /> '
* hiro "_space.gif" =>" ./'+MXPLAATJESDIR+'/_space.gif"
      ? '<!--                                                        CATEGORIE  -->'
      ? '<img src="'+MXPICSDIR+'_space.gif" width="10" height="43" alt="" border="0" />'
      ? '<img src="'+MXPICSDIR+'_c.gif" width="12" height="43" alt="" border="0" /> '
      ? '<img src="'+MXPICSDIR+'a.gif" width="12" height="43" alt="" border="0" />'
      ? '<img src="'+MXPICSDIR+'t.gif" width="10" height="43" alt="" border="0" />'
      ? '<img src="'+MXPICSDIR+'e.gif" width="11" height="43" alt="" border="0" />'
      ? '<img src="'+MXPICSDIR+'g.gif" width="13" height="43" alt="" border="0" />'
      ? '<img src="'+MXPICSDIR+'o.gif" width="12" height="43" alt="" border="0" />'
      ? '<img src="'+MXPICSDIR+'r.gif" width="10" height="43" alt="" border="0" />'
      ? '<img src="'+MXPICSDIR+'y.gif" width="12" height="43" alt="" border="0" />'
      ? '<img src="'+MXPICSDIR+'_space.gif" width="15" height="43" alt="" border="0" />'
*      
      CAT02=IIF(CAT01 = CAT02, "  ", CAT02)
*                                                ----------------
*                                                FSOORT.DBF
*                                                ----------------
      SELECT SOORT
      STORE SPACE(1) TO CAT01NAAM, CAT02NAAM, FISK
      SEEK CAT01
      IF FOUND()
         CAT01NAAM =TRIM(EN)
         FISK = VISKODE
*                                                ----------------
*                                                FTEKENS.DBF: achtergrondje
*                                                ----------------
         SELECT TEKENS
         DO WHILE .NOT. EMPTY(CAT01NAAM)
            IF LEN(CAT01NAAM)>1
               WOPMAAK=LEFT(CAT01NAAM,1)
               CAT01NAAM=SUBS(CAT01NAAM,2)
               IF EMPTY(WOPMAAK)
                 ? '<img src="'+MXPICSDIR+'_space.gif" width="14" height="43" alt="" border="0" />'
                 LOOP
               ENDIF
            ELSE      
               WOPMAAK=CAT01NAAM
               CAT01NAAM=""
            ENDIF
            SEEK WOPMAAK
            IF FOUND()
               ? '<img src="'+MXPICSDIR+TRIM(PLAATJE)+'" width="'+TRIM(BREEDTE)+'" height="'+TRIM(HOOGTE)+'" alt="" border="0" />'
            ENDIF
         ENDDO
      ELSE
        ? '<img src="'+MXPICSDIR+'_streep.gif" width="13" height="43" alt="" border="0" />'
      ENDIF

*                                                ----------------
*                                                FSOORT.DBF
*                                                ----------------
      SELECT SOORT
*
      IF .NOT. EMPTY(CAT02)
         SEEK CAT02
         IF FOUND()
            CAT02NAAM = TRIM(EN)
            ? '<img src="'+MXPICSDIR+'_komma.gif" width="7" height="43" alt="" border="0" />'
            ? '<img src="'+MXPICSDIR+'_space.gif" width="15" height="43" alt="" border="0" />'
*                                                ----------------
*                                                FTEKENS.DBF
*                                                ----------------
            SELECT TEKENS
            DO WHILE .NOT. EMPTY(CAT02NAAM)
               IF LEN(CAT02NAAM)>1
                  WOPMAAK=LEFT(CAT02NAAM,1)
                  CAT02NAAM=SUBS(CAT02NAAM,2)
               ELSE      
                  WOPMAAK=CAT02NAAM
                  CAT02NAAM=""
               ENDIF
               SEEK WOPMAAK
               IF FOUND()
                  ? '<img src="'+MXPICSDIR+TRIM(PLAATJE)+'" width="'+TRIM(BREEDTE)+'" height="'+TRIM(HOOGTE)+'" alt="" border="0" />'
               ENDIF
            ENDDO      
         ENDIF
      ENDIF
      ? '</p><div class="nietprinten"><div id="kleintje">'
*                                                ----------------
*                                                BANNER IN DE KOP
*                                                ----------------
      ? '<!--                                                                       halve Banner    -->'
      ? '<script type="text/javascript"><!--'
      ? 'google_ad_client = "pub-5315539198167919";'
      ? '//HalveBanner234x60'
      ? 'google_ad_slot = "2938642183";'
      ? 'google_ad_width = 234;'
      ? 'google_ad_height = 60;'
      ? '//--></script>'
      ? '<script type="text/javascript"'
      ? 'src="http://pagead2.googlesyndication.com/pagead/show_ads.js">'
      ? '</script>   <!--                                                    EINDE  Halve Banner    -->'
      ? '</div></div></div>   <!--                         EINDE pageHeader, kleintje, niet printen -->'
      ? '<div id="koekelcol"><div class="nietprinten"> <!--         Google adds        GOOGLE KOLOM -->'
      ? '<script type="text/javascript"><!--'
      ? 'google_ad_client = "pub-5315539198167919";'
      ? '//Google kolom'
      ? 'google_ad_slot = "0842756741";'
      ? 'google_ad_width = 160;'
      ? 'google_ad_height = 600;'
      ? '//--></script>'
      ? '<script type="text/javascript"'
      ? 'src="http://pagead2.googlesyndication.com/pagead/show_ads.js">'
      ? '</script></div><br /><br /><br />      <!--         Google adds        EINDE  GOOGLE KOLOM -->'
      ? '<img class="nietprinten" src="'+MXPICSDIR+'pijltjes.png" width="150" border="0" height="68" usemap="#prikkaart" alt="navigation arrows" />'
      ? '<map name="prikkaart" id="gatenkaas">'
      ? '   <area shape="poly" coords="3,31,30,2,30,17,67,17,28,56" alt=""'
      ? '   href="javascript:history.go(-1)" title="Back to the previous page; Terug naar vorige pagina." />'
      ? '   <area shape="poly" coords="44,49,76,19,101,49,88,66,61,63" alt=""'
      ? '   href=" ../index.html" title="Back Home; Naar 1e pagina." />'
      ? '   <area shape="poly" coords="81,17,116,16,116,0,146,30,120,56" alt=""'
      ? [   href="javascript:void(0)" onclick="window.open(']+LOWER(BLOKFILE)+[')" ]     
      ? '   title="Open this page in a new window; Open deze pagina in een nieuwe window." />'
      ? '</map></div>      <!--                                                 EINDE div koekeltop -->'
      ?
      ? '<div id="uberzetsungen"><p>'
      
*                                                ----------------
*                                                FPAGE.DBF: PLAATJE IN DE KOP
*                                                ----------------
      SELECT PAGE

      IF .NOT. EMPTY(JPG_KOP)
         IF LPINK
            ? '&nbsp;&nbsp;&nbsp;&nbsp;'
            WOPMAAK = LTRIM(TRIM(JPG_KOP))
            SELECT LINK
            LOCATE FOR WOORD = WOPMAAK .AND. LNK = LINKPLT           
            IF FOUND()
               ? '<a href="'+TRIM(LTRIM(LINK))+'" title="'+TRIM(LTRIM(OMS))+'">'
               SELECT PAGE
               ? '<img src="'+MXPICSDIR+TRIM(JPG_KOP)+'" width="'+TRIM(BRT_KOP)+'" height="'+TRIM(HGT_KOP)+'"'
               ? 'align="top" border="0"  alt="'+TRIM(TITEL)+'" /></a><br />'
            ELSE 
               SELECT PAGE
               ? '<img src="'+MXPICSDIR+TRIM(JPG_KOP)+'" width="'+TRIM(BRT_KOP)+'" height="'+TRIM(HGT_KOP)+'"'
               ? 'align="top" border="0" alt="'+TRIM(TITEL)+'" /><br />'
            ENDIF
         ELSE
            SELECT PAGE
            ? '<img src="'+MXPICSDIR+TRIM(JPG_KOP)+'" width="'+TRIM(BRT_KOP)+'" height="'+TRIM(HGT_KOP)+'"'
            ? 'align="top" border="0" alt="'+TRIM(TITEL)+'" /><br />'
         ENDIF
      ENDIF
      IF EMPTY(EENTAAL)
         ? '<!--                                                                          TRANSLATIONS -->'
         ? '<img class="links" src="'+MXPICSDIR+'_t.gif" width="11" height="43" alt="" border="0" />' 
         ? '<img class="links" src="'+MXPICSDIR+'r.gif" width="10" height="43" alt="" border="0" />'
         ? '<img class="links" src="'+MXPICSDIR+'a.gif" width="12" height="43" alt="" border="0" />'
         ? '<img class="links" src="'+MXPICSDIR+'n.gif" width="11" height="43" alt="" border="0" />'
         ? '<img class="links" src="'+MXPICSDIR+'s.gif" width="10" height="43" alt="" border="0" />'
         ? '<img class="links" src="'+MXPICSDIR+'l.gif" width="7" height="43" alt="" border="0" />'
         ? '<img class="links" src="'+MXPICSDIR+'a.gif" width="12" height="43" alt="" border="0" />'
         ? '<img class="links" src="'+MXPICSDIR+'t.gif" width="10" height="43" alt="" border="0" />'
         ? '<img class="links" src="'+MXPICSDIR+'i.gif" width="7" height="43" alt="" border="0" />'		
         ? '<img class="links" src="'+MXPICSDIR+'o.gif" width="12" height="43" alt="" border="0" />'
         ? '<img class="links" src="'+MXPICSDIR+'n.gif" width="11" height="43" alt="" border="0" />'
         ? '<img class="links" src="'+MXPICSDIR+'s.gif" width="10" height="43" alt="" border="0" />'
         ? '<img class="links" src="'+MXPICSDIR+'_space.gif" width="15" height="43" alt="" border="0" />'
         IF LEFT(CAT01,1) $ "ABCDEFG"
             ? '<a href="http://en.wikipedia.org/wiki/Vegetarianism" title="Vegetarianism">'
             ? '<img class="links" src=" ./plaatjes/vegg.png" width="40" height="43" alt="" border="0" /></a>'
         ELSE
             IF LEFT(CAT02,1) $ "ABCDEFG"
                ? '<a href="http://en.wikipedia.org/wiki/Vegetarianism" title="Vegetarianism">'
                ? '<img class="links" src=" ./plaatjes/vegg.png" width="40" height="43" alt="" border="0" /></a>'
             ENDIF
         ENDIF
         ? '</p><br /><br />'
*     
         IF CAT03
            ? '<!--                                       CATEGORIE VERGELIJKBARE ZAKEN -->'
            ? '<a href="samme.htm" title="Category"> <b>&#x261E;</b> Comparable products ] </a>:<br /><br />'      
         ENDIF
         MXRGP = RGP

*
*                                                ----------------
*                                                FRANS:
*                                                FMOE.DBF
*                                                ----------------
*      
         SELECT MOEDER
         ? 
         ? '<!--                                                                FRANS -->'
         ? '<br /><p lang="FR"><img class="regel" src="'+MXPICSDIR+'fr01.gif" alt="" width="30" height="20" />&nbsp;'
   
         DO WHILE TRIM(LNK) = TRIM(LNKBKODE)
*                                                ----------------
*                                                FLINK.DBF  FR
*                                                ----------------
            IF FR .OR. FROMS
               LOPMAAK = LTRIM(TRIM(WOORD))
               WOPMAAK = LOPMAAK+" "+TRIM(LTRIM(TRIM(OMS01))+" "+LTRIM(TRIM(OMS02)))
*
*
               IF LLINK
                  SELECT LINK
                  LOCATE FOR WOORD = LOPMAAK .AND. LNK = LINKLNK           
                  IF FOUND()
                     WOPMAAK='<a href="'+TRIM(LTRIM(LINK))+'" title="'+TRIM(LTRIM(OMS))+'"><b>&#x261E;</b> '+WOPMAAK+' &#x2318;</a>'
                  ELSE
                     GO TOP   
                  ENDIF
                  SELECT MOEDER
               ENDIF
            ENDIF
*                                                ----------------
*                                                FMOE.DBF
*                                                ----------------
            IF FR 
*
               IF FRTEL = 1
                  ?? 'FR: '+WOPMAAK+IIF(DUBIEUS,'? ',' ')+TRIM(EXTRA_TAAL)+IIF(CIRCA,' (&#177;)','')  && V 2005
                  IF NOTE .OR. ROOD .OR. DIALECT .OR. RG .OR. MXRGP .OR. MXRGP
                     DO FNOTE
                  ENDIF 
               ELSE
                  ? '&nbsp;&nbsp;&nbsp;&nbsp;- '+WOPMAAK+IIF(DUBIEUS,'? ',' ')+TRIM(EXTRA_TAAL)+IIF(CIRCA,' (&#177;)','')  && V 2005
                  IF NOTE .OR. ROOD .OR. DIALECT .OR. RG .OR. MXRGP
                     DO FNOTE
                  ENDIF 
               ENDIF
*
               DO FSOUNDEX WITH CAT01, CAT02 
*
               ?? '<br />'
               FRTEL=FRTEL+1
*
            ELSE
               IF FROMS
                  IF FRTEL = 1
                     ?? 'FR: &#0040;- '+WOPMAAK+'&#0041;'+TRIM(EXTRA_TAAL)
                  ELSE
                     ? '&nbsp;&nbsp;&nbsp;&nbsp;&#0040;- '+WOPMAAK+'&#0041;'+TRIM(EXTRA_TAAL)
                  ENDIF
                  ?? '<br />'
                  FRTEL=FRTEL+1
               ENDIF
            ENDIF
            SKIP
            IF TRIM(LNK) <> TRIM(LNKBKODE)
               EXIT
            ENDIF
         ENDDO
         IF FRTEL = 1 
             ?? 'FR: ? <br />'
         ENDIF
         FRTEL = 1
*                                                ----------------
*                                                FR_LNK.TXT
*                                                ----------------
         CLNCDE =MXTEKSTDIR+TRIM(TRIM(LNKBKODE))+'.tfr'
         NHANDLE = 0
         IF FILE(CLNCDE)
            INFOO= .T.
            SKWER= .F.
            ? '<a href="#frinfo" title="information suppl&#xE9;mentaire"> [ information suppl&#xE9;mentaire ] </a>'
         ENDIF
         ?? '</p>' 
         ? 
         ? '<!--                                                                DUITS -->'
         ? '<p lang="DE"><img class="regel" src="'+MXPICSDIR+'de01.gif" alt="" width="30"  height="20" />&nbsp;'
*                                                ----------------
*                                                FMOE.DBF  -  DE
*                                                ----------------
         SELECT MOEDER
         GO MOERECNO
         DO WHILE TRIM(LNK) = TRIM(LNKBKODE)
*                                                ----------------
*                                                FLINK.DBF
*                                                ----------------
            IF DE .OR. DEOMS
*
               LOPMAAK = LTRIM(TRIM(WOORD))
               WOPMAAK = LOPMAAK+" "+TRIM(LTRIM(TRIM(OMS01))+" "+LTRIM(TRIM(OMS02)))
*
               IF LLINK
                  SELECT LINK
                  LOCATE FOR WOORD = LOPMAAK .AND. LNK = LINKLNK          
                  IF FOUND()
                     WOPMAAK='<a href="'+TRIM(LTRIM(LINK))+'" title="'+TRIM(LTRIM(OMS))+'">=> '+WOPMAAK+' &#x2318;</a>'
                  ELSE
                     GO TOP   
                  ENDIF
                  SELECT MOEDER
               ENDIF
            ENDIF        
*                                                ----------------
*                                                FMOE.DBF
*                                                ----------------
            IF DE
*
               IF DETEL = 1
                  ?? 'DE: '+WOPMAAK+IIF(DUBIEUS,'? ',' ')+TRIM(EXTRA_TAAL)+IIF(CIRCA,' (zirka)','')  && V 2005
                  IF NOTE .OR. ROOD .OR. DIALECT .OR. RG .OR. MXRGP
                     DO FNOTE
                  ENDIF 
               ELSE
                  ? '&nbsp;&nbsp;&nbsp;&nbsp;- '+WOPMAAK+IIF(DUBIEUS,'? ',' ')+TRIM(EXTRA_TAAL)+IIF(CIRCA,' (zirka)','')  && V 2005
                  IF NOTE .OR. ROOD .OR. DIALECT .OR. RG .OR. MXRGP
                     DO FNOTE
                  ENDIF 
               ENDIF
* 
               DO FSOUNDEX WITH CAT01, CAT02
*
               ? '<br />'
               DETEL=DETEL+1
*
            ELSE
               IF DEOMS
                  IF DETEL = 1
                     ?? 'DE: &#0040;- '+WOPMAAK+'&#0041;'+TRIM(EXTRA_TAAL)
                  ELSE
                     ? '&nbsp;&nbsp;&nbsp;&nbsp;&#0040;- '+WOPMAAK+'&#0041;'+TRIM(EXTRA_TAAL)
                  ENDIF
                  ? '<br />'
                  DETEL=DETEL+1
               ENDIF
            ENDIF
            SKIP
            IF TRIM(LNK) <> TRIM(LNKBKODE)
               EXIT
            ENDIF
         ENDDO
         IF DETEL = 1
             ?? 'DE: ?<br />'
         ENDIF 
         DETEL = 1
*                                                ----------------
*                                                DE_LNK.TXT
*                                                ----------------
         CLNCDE =MXTEKSTDIR+TRIM(TRIM(LNKBKODE))+'.tde'
         IF FILE(CLNCDE)
            INFOO= .T.
            SKWER= .F.
            ? '<a href="#deinfo" title="Weitere Informationen"> [ Weitere Informationen ] </a>'
         ENDIF
   
         ?? '</p>'
         ?
         ? '<!--                                                             ENGELS   -->'
         ? '<p lang="EN"><img class="regel" src="'+MXPICSDIR+'gb01.gif" alt="" width="30"  height="20" />&nbsp;'
*                                                ----------------
*                                                FMOE.DBF
*                                                ----------------
         SELECT MOEDER
         GO MOERECNO
         DO WHILE TRIM(LNK) = TRIM(LNKBKODE)
*                                                ----------------
*                                                FLINK.DBF - EN
*                                                ----------------
            IF EN .OR. ENOMS
*
               LOPMAAK = LTRIM(TRIM(WOORD))
               WOPMAAK = LOPMAAK+" "+TRIM(LTRIM(TRIM(OMS01))+" "+LTRIM(TRIM(OMS02)))
*
               IF LLINK
                  SELECT LINK
                  LOCATE FOR WOORD = LOPMAAK .AND. LNK = LINKLNK            
                  IF FOUND()
                     WOPMAAK='<a href="'+TRIM(LTRIM(LINK))+'" title="'+TRIM(LTRIM(OMS))+'">=> '+WOPMAAK+' &#x2318;</a>'
                  ELSE
                     GO TOP   
                  ENDIF
                  SELECT MOEDER
               ENDIF
            ENDIF        
*                                                ----------------
*                                                FMOE.DBF
*                                                ----------------
            IF EN
*
               IF ENTEL = 1
                  ?? 'EN: '+WOPMAAK+IIF(DUBIEUS,'? ',' ')+TRIM(EXTRA_TAAL)+IIF(CIRCA,' (circa)','')  && V 2005
                  IF NOTE .OR. ROOD .OR. DIALECT .OR. RG .OR. MXRGP
                     DO FNOTE
                  ENDIF 
               ELSE
                  ? '&nbsp;&nbsp;&nbsp;&nbsp;- '+WOPMAAK+IIF(DUBIEUS,'? ',' ')+TRIM(EXTRA_TAAL)+IIF(CIRCA,' (circa)','')  && V 2005
                  IF NOTE .OR. ROOD .OR. DIALECT .OR. RG .OR. MXRGP
                     DO FNOTE
                  ENDIF 
               ENDIF
* 
               DO FSOUNDEX WITH CAT01, CAT02
*
               ? '<br />'
               ENTEL=ENTEL+1
*         
            ELSE
               IF ENOMS
                  IF ENTEL = 1
                     ?? 'EN: &#0040;- '+WOPMAAK+'&#0041;'+TRIM(EXTRA_TAAL)
                  ELSE
                     ? '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&#0040;- '+WOPMAAK+'&#0041;'+TRIM(EXTRA_TAAL)
                  ENDIF
                  ? '<br />'
                  ENTEL=ENTEL+1
               ENDIF
            ENDIF
            SKIP
            IF TRIM(LNK) <> TRIM(LNKBKODE)
               EXIT
            ENDIF
         ENDDO
         IF ENTEL = 1
             ?? 'EN: ?<br />'
         ENDIF
         ENTEL = 1
*                                                ----------------
*                                                En_LNK.TXT
*                                                ----------------
         CLNCDE =MXTEKSTDIR+TRIM(TRIM(LNKBKODE))+'.ten'
         IF FILE(CLNCDE)
            INFOO= .T.
            SKWER= .F.
            ? '<a href="#eninfo" title="additional information"> [ additional information ] </a>'
         ENDIF
         ?? '</p>'
         ? 
         ? '<!--                                                               DEENS  -->'
         ? '<p lang="DA"><img class="regel" src="'+MXPICSDIR+'dk01.gif" alt="" width="30"  height="20" />&nbsp;'
*                                                ----------------
*                                                FMOE.DBF - DA
*                                                ----------------
         SELECT MOEDER
         GO MOERECNO
         DO WHILE TRIM(LNK) = TRIM(LNKBKODE)
*                                                ----------------
*                                                FLINK.DBF
*                                                ----------------
            IF DA .OR. DAOMS
*
               LOPMAAK = LTRIM(TRIM(WOORD))
               WOPMAAK = LOPMAAK+" "+TRIM(LTRIM(TRIM(OMS01))+" "+LTRIM(TRIM(OMS02)))
*
               IF LLINK
                  SELECT LINK
                  LOCATE FOR WOORD = LOPMAAK .AND. LNK = LINKLNK           
                  IF FOUND()
                     WOPMAAK='<a href="'+TRIM(LTRIM(LINK))+'" title="'+TRIM(LTRIM(OMS))+'">=> '+WOPMAAK+' &#x2318;</a>'
                  ELSE
                     GO TOP   
                  ENDIF
                  SELECT MOEDER
               ENDIF
            ENDIF        
*                                                ----------------
*                                                FMOE.DBF
*                                                ----------------
            IF DA
*
               IF DATEL = 1
                  ?? 'DA: '+WOPMAAK+IIF(DUBIEUS,'? ',' ')+TRIM(EXTRA_TAAL)+IIF(CIRCA,' (cirka)','')  && V 2005
                  IF NOTE .OR. ROOD .OR. DIALECT .OR. RG .OR. MXRGP
                     DO FNOTE
                  ENDIF
               ELSE
                  ? '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'+WOPMAAK+IIF(DUBIEUS,'? ',' ')+TRIM(EXTRA_TAAL)+IIF(CIRCA,' (cirka)','')  && V 2005
                  IF NOTE .OR. ROOD .OR. DIALECT .OR. RG .OR. MXRGP
                     DO FNOTE
                  ENDIF 
               ENDIF
*
               DO FSOUNDEX WITH CAT01, CAT02
*
               ? '<br />'
               DATEL=DATEL+1
*
            ELSE
               IF DAOMS
                  IF DATEL = 1
                     ?? 'DA: &#0040;- '+WOPMAAK+'&#0041;'+TRIM(EXTRA_TAAL)
                  ELSE
                     ? '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;- '+WOPMAAK+'&#0041;'+TRIM(EXTRA_TAAL)
                  ENDIF
                  ? '<br />'
                  DATEL=DATEL+1
               ENDIF
            ENDIF
            SKIP
            IF TRIM(LNK) <> TRIM(LNKBKODE)
               EXIT
            ENDIF
         ENDDO
         IF DATEL = 1
             ?? 'DA: ?<br />'
         ENDIF
         DATEL = 1
*                                                ----------------
*                                                DA_LNK.TXT
*                                                ----------------
         CLNCDE =MXTEKSTDIR+TRIM(TRIM(LNKBKODE))+'.tda'
         IF FILE(CLNCDE)
            INFOO= .T.
            SKWER= .F.
            ? '<a href="#dainfo" title="supplerende informationer">  [ supplerende informationer ] </a>'
         ENDIF
         ?? '</p>'
         ? 
         ? '<!--                                                           NEDERLANDS -->'
         ? '<p lang="NL"><img class="regel" src="'+MXPICSDIR+'nl01.gif" alt="" width="30"  height="20" />&nbsp;'
*                                                ----------------
*                                                FMOE.DBF - NL
*                                                ----------------
         SELECT MOEDER
         GO MOERECNO
         DO WHILE TRIM(LNK) = TRIM(LNKBKODE)
*                                                ----------------
*                                                FLINK.DBF
*                                                ----------------
            IF NL .OR. NLOMS
*
               LOPMAAK = LTRIM(TRIM(WOORD))
               WOPMAAK = LOPMAAK+" "+TRIM(LTRIM(TRIM(OMS01))+" "+LTRIM(TRIM(OMS02)))
*
               IF LLINK
                  SELECT LINK
                  LOCATE FOR WOORD = LOPMAAK .AND. LNK = LINKLNK            
                  IF FOUND()
                     WOPMAAK='<a href="'+TRIM(LTRIM(LINK))+'" title="'+TRIM(LTRIM(OMS))+'">=> '+WOPMAAK+' &#x2318;</a>'
                  ELSE
                     GO TOP   
                  ENDIF
                  SELECT MOEDER
               ENDIF
            ENDIF        
*                                                ----------------
*                                                FMOE.DBF
*                                                ----------------
            IF NL
* 
               IF NLTEL = 1
                  ?? 'NL: '+WOPMAAK+IIF(DUBIEUS,'? ',' ')+TRIM(EXTRA_TAAL)+IIF(CIRCA,' (circa)','')  && V 2005
                  IF NOTE .OR. ROOD .OR. DIALECT .OR. RG .OR. MXRGP
                     DO FNOTE
                  ENDIF 
               ELSE
                  ? '&nbsp;&nbsp;&nbsp;&nbsp;- '+WOPMAAK+IIF(DUBIEUS,'? ',' ')+TRIM(EXTRA_TAAL)+IIF(CIRCA,' (circa)','')  && V 2005
                  IF NOTE .OR. ROOD .OR. DIALECT .OR. RG .OR. MXRGP
                     DO FNOTE
                  ENDIF 
               ENDIF
* 
               DO FSOUNDEX WITH CAT01, CAT02
*
               ? '<br />'
               NLTEL=NLTEL+1
*
            ELSE
               IF NLOMS
                  IF NLTEL = 1
                     ?? 'NL: &#0040;- '+WOPMAAK+'&#0041;'+TRIM(EXTRA_TAAL)
                  ELSE
                     ? '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&#0040;- '+WOPMAAK+'&#0041;'+TRIM(EXTRA_TAAL)
                  ENDIF
                  ? '<br />'
                  NLTEL=NLTEL+1
               ENDIF
            ENDIF
            SKIP
            IF TRIM(LNK) <> TRIM(LNKBKODE)
               EXIT
            ENDIF
         ENDDO
         IF NLTEL = 1
            ?? 'NL: ?<br />'
         ENDIF
         NLTEL = 1
*                                                ----------------
*                                                NL_LNK.TXT
*                                                ----------------
         CLNCDE =MXTEKSTDIR+TRIM(TRIM(LNKBKODE))+'.tnl'
         IF FILE(CLNCDE)
            INFOO= .T.
            SKWER= .F.
            ? '<a href="#nlinfo" title="aanvullende informatie"> [ aanvullende informatie ] </a>'
         ENDIF
         ?? '</p>'
         ? 
         ? '<!--                                                             SPAANS -->'
         ? '<p lang="ES"><img class="regel" src="'+MXPICSDIR+'es01.gif" alt="" width="30"  height="20" />&nbsp;'
*                                                ----------------
*                                                FMOE.DBF - ES
*                                                ----------------
         SELECT MOEDER
         GO MOERECNO
         DO WHILE TRIM(LNK) = TRIM(LNKBKODE)
*                                                ----------------
*                                                FLINK.DBF
*                                                ----------------
            IF ES .OR. ESOMS
*
               LOPMAAK = LTRIM(TRIM(WOORD))
               WOPMAAK = LOPMAAK+" "+TRIM(LTRIM(TRIM(OMS01))+" "+LTRIM(TRIM(OMS02)))
*
               IF LLINK
                  SELECT LINK
                  LOCATE FOR WOORD = LOPMAAK .AND. LNK = LINKLNK           
                  IF FOUND()
                     WOPMAAK='<a href="'+TRIM(LTRIM(LINK))+'" title="'+TRIM(LTRIM(OMS))+'">=> '+WOPMAAK+' &#x2318;</a>'
                  ELSE
                     GO TOP   
                  ENDIF
                  SELECT MOEDER
               ENDIF
            ENDIF        
*                                                ----------------
*                                                FMOE.DBF
*                                                ----------------
            IF ES
*
               IF ESTEL = 1
                  ?? 'ES: '+WOPMAAK+IIF(DUBIEUS,'? ',' ')+TRIM(EXTRA_TAAL)+IIF(CIRCA,' (hacia)','')  && V 2005
                  IF NOTE .OR. ROOD .OR. DIALECT .OR. RG .OR. MXRGP
                     DO FNOTE
                  ENDIF 
               ELSE
                  ? '&nbsp;&nbsp;&nbsp;&nbsp;- '+WOPMAAK+IIF(DUBIEUS,'? ',' ')+TRIM(EXTRA_TAAL)+IIF(CIRCA,' (hacia)','')  && V 2005
                  IF NOTE .OR. ROOD .OR. DIALECT .OR. RG .OR. MXRGP
                     DO FNOTE
                  ENDIF 
               ENDIF
*
               DO FSOUNDEX WITH CAT01, CAT02
*
               ? '<br />'
               ESTEL=ESTEL+1
*
            ELSE
               IF ESOMS
                  IF ESTEL = 1
                     ?? 'ES: &#0040;- '+WOPMAAK+' &#0041; '+TRIM(EXTRA_TAAL)
                  ELSE
                     ? '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&#0040;- '+WOPMAAK+'&#0041;'+TRIM(EXTRA_TAAL)
                  ENDIF
                  ? '<br />'
                  ESTEL=ESTEL+1
               ENDIF
            ENDIF
            SKIP
            IF TRIM(LNK) <> TRIM(LNKBKODE)
               EXIT
            ENDIF
         ENDDO
         IF ESTEL = 1
            ?? 'ES: ? <br />'
         ENDIF
         ESTEL = 1
*                                                ----------------
*                                                ES_LNK.TXT
*                                                ----------------
         CLNCDE =MXTEKSTDIR+TRIM(TRIM(LNKBKODE))+'.tes'
         IF FILE(CLNCDE)
            INFOO= .T.
            SKWER= .F.
            ? '<a href="#esinfo" title="la informaci&#xF3;n adicional"> [ la informaci&#xF3;n adicional ] </a>'
         ENDIF
         ?? '</p>'
*
*
*
         ? 
         ? '<!--                                                                ZWEEDS -->'
   
         ? '<p lang="SE"><img class="regel" src="'+MXPICSDIR+'se01.gif" alt="" width="30" height="20" />&nbsp;'
   
         SELECT MOEDER
         GO MOERECNO
         DO WHILE TRIM(LNK) = TRIM(LNKBKODE)
*                                                ----------------
*                                                FLINK.DBF  SE
*                                                ----------------
            IF SE .OR. SEOMS
*
               LOPMAAK = LTRIM(TRIM(WOORD))
               WOPMAAK = LOPMAAK+" "+TRIM(LTRIM(TRIM(OMS01))+" "+LTRIM(TRIM(OMS02)))
*
               IF LLINK
                  SELECT LINK
                  LOCATE FOR WOORD = LOPMAAK .AND. LNK = LINKLNK           
                  IF FOUND()
                     WOPMAAK='<a href="'+TRIM(LTRIM(LINK))+'" title="'+TRIM(LTRIM(OMS))+'">=> '+WOPMAAK+' &#x2318;</a>'
                  ELSE
                     GO TOP   
                  ENDIF
                  SELECT MOEDER
               ENDIF
            ENDIF
*                                                ----------------
*                                                FMOE.DBF
*                                                ----------------
            IF SE 
*
               IF SETEL = 1
                  ?? 'SE: '+WOPMAAK+IIF(DUBIEUS,'? ',' ')+TRIM(EXTRA_TAAL)+IIF(CIRCA,' (&#177;)','')  
                  IF NOTE .OR. ROOD .OR. DIALECT .OR. RG .OR. MXRGP
                     DO FNOTE
                  ENDIF 
               ELSE
                  ? '&nbsp;&nbsp;&nbsp;&nbsp;- '+WOPMAAK+IIF(DUBIEUS,'? ',' ')+TRIM(EXTRA_TAAL)+IIF(CIRCA,' (&#177;)','')  && V 2005
                  IF NOTE .OR. ROOD .OR. DIALECT .OR. RG .OR. MXRGP
                     DO FNOTE
                  ENDIF 
               ENDIF
*
               DO FSOUNDEX WITH CAT01, CAT02 
*
               ?? '<br />'
               SETEL=SETEL+1
*
            ELSE
               IF SEOMS
                  IF SETEL = 1
                     ?? 'SE: &#0040;* '+WOPMAAK+'&#0041;'+TRIM(EXTRA_TAAL)
                  ELSE
                     ? '&nbsp;&nbsp;&nbsp;&nbsp;&#0040;* '+WOPMAAK+'&#0041;'+TRIM(EXTRA_TAAL)
                  ENDIF
                  ?? '<br />'
                  SETEL=SETEL+1
               ENDIF
            ENDIF
            SKIP
            IF TRIM(LNK) <> TRIM(LNKBKODE)
               EXIT
            ENDIF
         ENDDO
         IF SETEL = 1 
             ?? 'SE: ? <br />'
         ENDIF
         SETEL = 1
*                                                ----------------
*                                                SE_LNK.TXT
*                                                ----------------
         CLNCDE =MXTEKSTDIR+TRIM(TRIM(LNKBKODE))+'.tse'
         NHANDLE = 0
         IF FILE(CLNCDE)
            INFOO= .T.
            SKWER= .F.
            ? '<a href="#seinfo" title="kompletterande information"> [ kompletterande information ] </a>'
         ENDIF
         ?? '</p>' 
*
*
*
         ? '<!--                                                             LATIJN -->'
         LATEL = 1
*                                                ----------------
*                                                FMOE.DBF
*                                                ----------------
         SELECT MOEDER
         GO MOERECNO
         LATEL = 0
         DO WHILE TRIM(LNK) = TRIM(LNKBKODE)
            IF LAT
               LATEL = LATEL+1 
               IF LATEL = 1
                  ? '<p lang="LA"><img class="regel" src="'+MXPICSDIR+'la01.gif" alt="" width="30"  height="20" />&nbsp;'
                  ?? 'LA: '+TRIM(WOORD)+" "+TRIM(OMS01)+" "+TRIM(OMS02)+'<br />'
               ELSE
                  ? '&nbsp;&nbsp;&nbsp;&nbsp;- '+TRIM(WOORD)+" "+TRIM(OMS01)+" "+TRIM(OMS02)+'<br />'
               ENDIF
            ENDIF
            SKIP
            IF TRIM(LNK) <> TRIM(LNKBKODE)
               IF LATEL >0
                  ? '</p>'
               ENDIF
               EXIT
            ENDIF
         ENDDO
         TEKTEL=0
*                                                                         *-----------*
*                                                                           EEN TAAL
*                                                                         *-----------*
      ELSE                                              && NOT EMPTY EENTAAL
         ? '<!--                                                               1 TAAL -->'
         DO CASE
            CASE UPPER(MXEENTAAL) = "SE" 
               ? '<p lang="SE"><img class="regel" src="'+MXPICSDIR+'se01.gif" alt="" width="30" height="20" />&nbsp; '
            CASE UPPER(MXEENTAAL) = "DE" 
               ? '<p lang="DE"><img class="regel" src="'+MXPICSDIR+'de01.gif" alt="" width="30" height="20" />&nbsp; '
            CASE UPPER(MXEENTAAL) = "DA" 
               ? '<p lang="DA"><img class="regel" src="'+MXPICSDIR+'dk01.gif" alt="" width="30" height="20" />&nbsp; '
            CASE UPPER(MXEENTAAL) = "EN" 
               ? '<p lang="EN"><img class="regel" src="'+MXPICSDIR+'gb01.gif" alt="" width="30" height="20" />&nbsp; '
            CASE UPPER(MXEENTAAL) = "FR" 
               ? '<p lang="FR"><img class="regel" src="'+MXPICSDIR+'fr01.gif" alt="" width="30" height="20" />&nbsp; '
            CASE UPPER(MXEENTAAL) = "ES" 
               ? '<p lang="ES"><img class="regel" src="'+MXPICSDIR+'es01.gif" alt="" width="30" height="20" />&nbsp; '
            CASE UPPER(MXEENTAAL) = "NL" 
               ? '<p lang="NL"><img class="regel" src="'+MXPICSDIR+'nl01.gif" alt="" width="30" height="20" />&nbsp; '
         ENDCASE 
         CLNCDE =MXTEKSTDIR+TRIM(LNK)+"."+LOWER(MXEENTAAL)+"t" 
         IF FILE(CLNCDE)
            NHANDLE = FOPEN(CLNCDE,"R")
            IF NHANDLE > 0                     && Did file open?
               DO WHILE .NOT. FEOF(NHANDLE)
                  WOPMAAK = FGETS(NHANDLE)     && Return a line
                  ? WOPMAAK
                  TEKTEL=TEKTEL+LEN(WOPMAAK)
               ENDDO
               IF .NOT. FCLOSE(NHANDLE)
                  ? "Unable to close file. File error #:",;
                  LTRIM(STR(FERROR()))
               ENDIF
            ELSE
               ? "Unable to open file. File error #:",;
               LTRIM(STR(FERROR()))
            ENDIF
         ENDIF 
         ? '</p>'
      ENDIF
      ? '</div>       <!--                                      EINDE divs: footer,  uberzetsungen  -->'
      ?
      ? '<div id="infocol"> <!--                                           3E KOLOM PLAATJES ETC.   -->'
      ? '<div id="plaatjes"><div class="nietprinten">'
*                                                ----------------
*                                                MSC link bij vis 
*                                                ---------------- 
      IF FISK = "V"  
         ? '<object id="mcs"> <!--                                                         naar MCS vis-->'
         ? '<a href="http://www.msc.org/lang/"> [ Check your fish at <br />'
         ? 'MCS Marine Stewardship Council ]</a><br />'
         ? '<a href="grfisk.htm">[ Tips how to grill fish ]</a><br />'
         ? '<img src="'+MXPICSDIR+'mcs.png" alt="www.msc.org" border="0" width="143"  height="81" /><br />'
         ? '</object><br /><br /> <!--                                                         Einde MCS vis -->'
      ENDIF
*
      ? '<object id="goegel">    <!--                                            naar google search -->'
      ? '<!--                                                           SiteSearch Google with Logo -->'
      ?  'In www.foodlexicon.net:'
      ? '<div class="cse-branding-bottom">'
      ? '  <div class="cse-branding-form">'
      ? '    <form action="http://www.foodlexicon.net/zoek.htm" id="cse-search-box" target="_blank">'
      ? '      <div>'
      ? '        <input type="hidden" name="cx"'
      ? 'value="partner-pub-5315539198167919:sw5sj0-epyz" />'
      ? '        <input type="hidden" name="cof" value="FORID:10" />'
      ? '        <input type="text" name="q" size="28" />'
      ? '        <input type="submit" name="sa" value="Search" />'
      ? '      </div>'
      ? '    </form>'
      ? '  </div>'
      ? '  <div class="cse-branding-logo">'
      ? '    <img'
      ? 'src="http://www.google.com/images/poweredby_transparent/poweredby_FFFFFF.gif"'
      ? 'alt="Google" />'
      ? '  </div>'
      ? '  <div class="cse-branding-text">'
      ? '    Custom Search'
      ? '  </div>'
      ? '</div>'
      ? '</object><br /> <!--                                             Einde SiteSearch Google -->'
*                                                ----------------
*                                                SEE ALSO / MORE INFO
*                                                SELECT LINK
* VERSIE 5 AUG 2006                              ---------------- 
* versie 17-01-2007 indicatie belangrijk 
      LINKLNK="P"+LNKBKODE   
      SELECT LINK 
      SET EXACT OFF
      SEEK (LINKLNK)
      SET EXACT ON

      IF FOUND() 
*         SKWER= .F.
         ? '<!--                                                                             SEE ALSO -->'
         ? '&nbsp;&nbsp;&nbsp;&nbsp;'+IIF(SEE, '<img class="regel" src="'+MXPICSDIR+'see.png" width="65" height="11" title="See also; Zie ook:" alt="" /><br />', '<img class="regel" src="'+MXPICSDIR+'more.png" width="127" height="13" title="More information; Meer informatie:" /><br />')
         LMORE = SEE
         DO WHILE TRIM(LNK) = TRIM(LINKLNK)
            IF LMORE <> SEE
               ? IIF(SEE, '<img class="regel" src="'+MXPICSDIR+'see.png" width="65" height="11" title="See also; Zie ook:" /><br />', '<img class="regel" src="'+MXPICSDIR+'more.png" width="127" height="13" title="More information; Meer informatie:" /><br />')
               LMORE = SEE
            ENDIF
               IF WICHTIG
                  ? '&nbsp;&nbsp;&#61;&#x00BB;&nbsp;<a href="'+LTRIM(TRIM(LINK))+'" lang="'+LANG+'"> => '+TRIM(LTRIM(OMS))+' &#x2318; </a><br />' 
               ELSE
                  ? '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="'+LTRIM(TRIM(LINK))+'" lang="'+LANG+'"> => '+TRIM(LTRIM(OMS))+' &#x2318; </a><br />' 
               ENDIF 
            SKIP
         ENDDO

      ENDIF
      ? '</div><!--                                                             Einde niet printen -->'
      ?
*                                                ----------------
*                                                FPAGE.DBF: PLAATJES
*                                                ----------------
      SELECT PAGE
*                                                ----------------
*                                                1E PLAATJE RECHTS OF TEKST
*                                                ----------------
      IF TXT
         SKWER= .F.
         CLNCDE =MXTEKSTDIR+TRIM(JPG_R01)        && TEKSTFILE 
         IF FILE(CLNCDE)
            ? '<p>'
            NHANDLE = FOPEN(CLNCDE,"R")
            IF NHANDLE > 0                       && Did file open?
               
               DO WHILE .NOT. FEOF(NHANDLE)
                  ? FGETS(NHANDLE)               && Return a line
               ENDDO
               IF .NOT. FCLOSE(NHANDLE)
                  ? "Unable to close file. File error #:"
                  LTRIM(STR(FERROR()))
               ENDIF
            ELSE
               ? "Unable to open file. File error #:"
               LTRIM(STR(FERROR()))
            ENDIF
         ? '</p><br />'
         ENDIF
      ELSE                                       && 1E PLAATJE RECHTS
         IF .NOT. EMPTY(JPG_R01)
            SKWER= .F.
            ? '<p>'           
            IF LPINK
               WOPMAAK = LTRIM(TRIM(JPG_R01))
               SELECT LINK
               LOCATE FOR WOORD = WOPMAAK .AND. LNK = LINKPLT           
               IF FOUND()
                  ? '<br /><a href="'+TRIM(LTRIM(LINK))+'" title="'+TRIM(LTRIM(OMS))+'">'
                  SELECT PAGE
                  ? '<img class="nietprinten" src="'+MXPICSDIR+TRIM(JPG_R01)+'" width="'+TRIM(BRT_R01)+'" height="'+TRIM(HGT_R01)+'"'
                  ? ' border="0" alt="'+TRIM(TITEL)+'" /><br /></a>'
               ELSE
                  SELECT PAGE
                  ? '<br /><img class="nietprinten" src="'+MXPICSDIR+TRIM(JPG_R01)+'" width="'+TRIM(BRT_R01)+'" height="'+TRIM(HGT_R01)+'"'
                  ? ' border="0" alt="'+TRIM(TITEL)+'" /><br />'
               ENDIF
            ELSE
*                                                ----------------
*                                                SELE PAGE
*                                                ----------------
               SELECT PAGE
               ? '<br /><img class="nietprinten" src="'+MXPICSDIR+TRIM(JPG_R01)+'" width="'+TRIM(BRT_R01)+'" height="'+TRIM(HGT_R01)+'"'
               ? ' border="0" alt="'+TRIM(TITEL)+'" /><br />'
            ENDIF
            ? '</p>'
         ENDIF
      ENDIF
*                                                ----------------
*                                                2E PLAATJE RECHTS
*                                                ----------------
      IF .NOT. EMPTY(JPG_R02)
         SKWER= .F.
         ? '<p>'
         IF LPINK
            WOPMAAK = LTRIM(TRIM(JPG_R02))
*                                                ----------------
*                                                SELE LINK
*                                                ----------------
            SELECT LINK
            LOCATE FOR WOORD = WOPMAAK .AND. LNK = LINKPLT           
            IF FOUND()
               ? '<a href="'+TRIM(LTRIM(LINK))+'" title="'+TRIM(LTRIM(OMS))+'">'
*                                                ----------------
*                                                SELE PAGE
*                                                ----------------
               SELECT PAGE
               ? '<img class="nietprinten" src="'+MXPICSDIR+TRIM(JPG_R02)+'" width="'+TRIM(BRT_R02)+'" height="'+TRIM(HGT_R02)+'"'
               ? ' border="0" alt="'+TRIM(TITEL)+'" /></a>'
            ELSE
*                                                ----------------
*                                                SELE PAGE
*                                                ----------------
               SELECT PAGE
               ? '<img class="nietprinten" src="'+MXPICSDIR+TRIM(JPG_R02)+'" border="0" width="'+TRIM(BRT_R02)+'" height="'+TRIM(HGT_R02)+'"'
               ? 'alt="'+TRIM(TITEL)+'" />'
            ENDIF
         ELSE
*                                                ----------------
*                                                SELE PAGE
*                                                ----------------
            SELECT PAGE
            ? '<img class="nietprinten" src="'+MXPICSDIR+TRIM(JPG_R02)+'" border="0" width="'+TRIM(BRT_R02)+'" height="'+TRIM(HGT_R02)+'"'
            ? 'alt="'+TRIM(TITEL)+'" />'
         ENDIF
         ? '</p>'
      ENDIF
*
      IF SKWER
         ? '<!--                                                                   SQUARE 125 X 125   -->'
         ? '<script type="text/javascript"><!--'
         ? 'google_ad_client = "pub-5315539198167919";'
         ? '//square250x250'
         ? 'google_ad_slot = "7508911743";'
         ? 'google_ad_width = 250;'
         ? 'google_ad_height = 250;'
         ? '//--></script>'
         ? '<script type="text/javascript"'
         ? 'src="http://pagead2.googlesyndication.com/pagead/show_ads.js">'
         ? '</script>'
         ? '<!--                                                               einde  square250x250   -->'
      ENDIF
*
      ? '</div> <!-- einde div id="images"                         EINDE SEE ALSO / PLAATJES ETC.   -->'
*
      IF INFOO
         ? '<div id="info"><p> <!--                                               SUB-KOP    INFO   -->'
         ? '<img class="links" src="'+MXPICSDIR+'_i.gif" width="7" height="43" alt="" border="0" />' 
         ? '<img class="links" src="'+MXPICSDIR+'n.gif" width="11" height="43" alt="" border="0" />'
         ? '<img class="links" src="'+MXPICSDIR+'f.gif" width="9" height="43" alt="" border="0" />'
         ? '<img class="links" src="'+MXPICSDIR+'o.gif" width="12" height="43" alt="" border="0" />'
         ? '<img class="links" src="'+MXPICSDIR+'r.gif" width="10" height="43" alt="" border="0" />'
         ? '<img class="links" src="'+MXPICSDIR+'m.gif" width="17" height="43" alt="" border="0" />'
         ? '<img class="links" src="'+MXPICSDIR+'a.gif" width="12" height="43" alt="" border="0" />'
         ? '<img class="links" src="'+MXPICSDIR+'t.gif" width="10" height="43" alt="" border="0" />'
         ? '<img class="links" src="'+MXPICSDIR+'i.gif" width="7" height="43" alt="" border="0" />'	
         ? '<img class="links" src="'+MXPICSDIR+'o.gif" width="12" height="43" alt="" border="0" />'
         ? '<img class="links" src="'+MXPICSDIR+'n.gif" width="11" height="43" alt="" border="0" />'
         ? '</p><br /><br /><br />'
*
         CLNCDE =MXTEKSTDIR+TRIM(TRIM(LNKBKODE))+'.tfr'            && FR
         IF FILE(CLNCDE)
            ? '<object class="bijlage">'
            ? '<a name="frinfo"></a><div lang="FR">        <!--                INFO FR --> '
            ? '<img class="nietprinten" src="'+MXPICSDIR+'fr01.gif" width="25" height="19" align="top" border="0" alt="FR" />'
            NHANDLE = FOPEN(CLNCDE,"R")
            IF NHANDLE > 0                     && Did file open?
               DO WHILE .NOT. FEOF(NHANDLE)
                  WOPMAAK = FGETS(NHANDLE)     && Return a line
                  ? WOPMAAK
                  TEKTEL=TEKTEL+LEN(WOPMAAK)
               ENDDO
               IF .NOT. FCLOSE(NHANDLE)
                  ? "Unable to close file. File error #:",;
                  LTRIM(STR(FERROR()))
               ENDIF
            ELSE
               ? "Unable to open file. File error #:",;
               LTRIM(STR(FERROR()))
            ENDIF
            ? '</div></object><br />'
         ENDIF
*
         CLNCDE =MXTEKSTDIR+TRIM(TRIM(LNKBKODE))+'.tde'            && DE
         IF FILE(CLNCDE)
            ? '<object class="bijlage">'
            ? '<a name="deinfo"></a><div lang="DE">    <!--                INFO DE -->'
            ? '<img class="nietprinten" src="'+MXPICSDIR+'de01.gif" width="25" height="19" align="top" border="0" alt="DE" />'
            NHANDLE = FOPEN(CLNCDE,"R")
            IF NHANDLE > 0                     && Did file open?
               DO WHILE .NOT. FEOF(NHANDLE)
                  WOPMAAK = FGETS(NHANDLE)     && Return a line
                  ? WOPMAAK
                  TEKTEL=TEKTEL+LEN(WOPMAAK)
               ENDDO
               IF .NOT. FCLOSE(NHANDLE)
                  ? "Unable to close file. File error #:",;
                  LTRIM(STR(FERROR()))
               ENDIF
            ELSE
               ? "Unable to open file. File error #:",;
               LTRIM(STR(FERROR()))
            ENDIF
            ? '</div></object><br />'
         ENDIF
*
         CLNCDE =MXTEKSTDIR+TRIM(TRIM(LNKBKODE))+'.ten'            && EN
         IF FILE(CLNCDE)
            ? '<object class="bijlage">'
            ? '<a name="eninfo"></a><div lang="EN">    <!--                INFO EN -->'
            ? '<img class="nietprinten" src="'+MXPICSDIR+'gb01.gif" width="25" height="19" align="top" border="0" alt="EN" />'
            NHANDLE = FOPEN(CLNCDE,"R")
            IF NHANDLE > 0                     && Did file open?
               DO WHILE .NOT. FEOF(NHANDLE)
                  WOPMAAK = FGETS(NHANDLE)     && Return a line
                  ? WOPMAAK
                  TEKTEL=TEKTEL+LEN(WOPMAAK)
               ENDDO
               IF .NOT. FCLOSE(NHANDLE)
                  ? "Unable to close file. File error #:",;
                  LTRIM(STR(FERROR()))
               ENDIF
            ELSE
               ? "Unable to open file. File error #:",;
               LTRIM(STR(FERROR()))
            ENDIF
            ? '</div></object><br />'
         ENDIF
*
         CLNCDE =MXTEKSTDIR+TRIM(TRIM(LNKBKODE))+'.tda'            && DA
         IF FILE(CLNCDE)
            ? '<object class="bijlage">'
            ? '<a name="dainfo"></a><div lang="DA">    <!--                INFO DA -->'
            ? '<img class="nietprinten" src="'+MXPICSDIR+'dk01.gif" width="25" height="19" align="top" border="0" alt="DA" />'
            NHANDLE = FOPEN(CLNCDE,"R")
            IF NHANDLE > 0                     && Did file open?
               DO WHILE .NOT. FEOF(NHANDLE)
                  WOPMAAK = FGETS(NHANDLE)     && Return a line
                  ? WOPMAAK
                  TEKTEL=TEKTEL+LEN(WOPMAAK)
               ENDDO
               IF .NOT. FCLOSE(NHANDLE)
                  ? "Unable to close file. File error #:",;
                  LTRIM(STR(FERROR()))
               ENDIF
            ELSE
               ? "Unable to open file. File error #:",;
               LTRIM(STR(FERROR()))
            ENDIF
            ? '</div></object><br />'
         ENDIF
*
         CLNCDE =MXTEKSTDIR+TRIM(TRIM(LNKBKODE))+'.tnl'            && NL
         IF FILE(CLNCDE)
            ? '<object class="bijlage">'
            ? '<a name="nlinfo"></a><div lang="NL">    <!--                INFO NL -->'
            ? '<img class="nietprinten" src="'+MXPICSDIR+'nl01.gif" width="25" height="19" align="top" border="0" alt="NL" />'
            NHANDLE = FOPEN(CLNCDE,"R")
            IF NHANDLE > 0                     && Did file open?
               DO WHILE .NOT. FEOF(NHANDLE)
                  WOPMAAK = FGETS(NHANDLE)     && Return a line
                  ? WOPMAAK
                  TEKTEL=TEKTEL+LEN(WOPMAAK)
               ENDDO
               IF .NOT. FCLOSE(NHANDLE)
                  ? "Unable to close file. File error #:",;
                  LTRIM(STR(FERROR()))
               ENDIF
            ELSE
               ? "Unable to open file. File error #:",;
               LTRIM(STR(FERROR()))
            ENDIF
            ? '</div></object><br />'
         ENDIF
*
         CLNCDE =MXTEKSTDIR+TRIM(TRIM(LNKBKODE))+'.tse'            && SE
         IF FILE(CLNCDE)
            ? '<object class="bijlage">'
            ? '<a name="seinfo"></a><div lang="SE">    <!--                INFO SE -->'
            ? '<img class="nietprinten" src="'+MXPICSDIR+'se01.gif" width="25" height="19" align="top" border="0" alt="SE" />'
            NHANDLE = FOPEN(CLNCDE,"R")
            IF NHANDLE > 0                     && Did file open?
               DO WHILE .NOT. FEOF(NHANDLE)
                  WOPMAAK = FGETS(NHANDLE)     && Return a line
                  ? WOPMAAK
                  TEKTEL=TEKTEL+LEN(WOPMAAK)
               ENDDO
               IF .NOT. FCLOSE(NHANDLE)
                  ? "Unable to close file. File error #:",;
                  LTRIM(STR(FERROR()))
               ENDIF
            ELSE
               ? "Unable to open file. File error #:",;
               LTRIM(STR(FERROR()))
            ENDIF
            ? '</div></object><br />'
         ENDIF
*
         CLNCDE =MXTEKSTDIR+TRIM(TRIM(LNKBKODE))+'.tes'            && ES
         IF FILE(CLNCDE)
            ? '<object class="bijlage">'
            ? '<a name="esinfo"></a><div lang="ES">    <!--                INFO ES -->'
            ? '<img class="nietprinten" src="'+MXPICSDIR+'es01.gif" width="25" height="19" border="0" align="top" alt="ES" />'
            NHANDLE = FOPEN(CLNCDE,"R")
            IF NHANDLE > 0                     && Did file open?
               DO WHILE .NOT. FEOF(NHANDLE)
                  WOPMAAK = FGETS(NHANDLE)     && Return a line
                  ? WOPMAAK
                  TEKTEL=TEKTEL+LEN(WOPMAAK)
               ENDDO
               IF .NOT. FCLOSE(NHANDLE)
                  ? "Unable to close file. File error #:",;
                  LTRIM(STR(FERROR()))
               ENDIF
            ELSE
               ? "Unable to open file. File error #:",;
               LTRIM(STR(FERROR()))
            ENDIF
            ? '</div></object><br />'
         ENDIF

         ? '</div> <!--                                                                EINDE INFO   -->'
      ENDIF                                  && EINDE IF INFOO
      ?

*
*                                              ------------
*                                              EINDE PAGINA
*                                              ------------
*
      DO FOODVOET
*
      ? '</div></div><div id="breaker1" /><br /> <!--                EINDE divs: container ,intro    -->'
      ? '<div class="streep">&nbsp;</div></div> '
      ? '</body></html>'

      SET ALTERNATE OFF
      CLOSE ALTERNATE
      LIJST = "NOZ "+LIJST
      RUN (LIJST)
*
   ENDIF                     && IF AFWIJKEND, ELSE ..
*                                                ----------------
*                                                SIDEMAP BIJWERKEN
*                                                SELE SMAP
*                                                ----------------
   SELE SMAP
   SEEK BLOKFILE
   IF .NOT. FOUND()
      GO BOTTOM
      APPEND BLANK
      REPL HAND WITH "H", NAAM WITH BLOKFILE, DATUM WITH SUBS(DTOC(DATE()),7,4)+"-"+SUBS(DTOC(DATE()),4,2)+"-"+SUBS(DTOC(DATE()),1,2)+"T"+LEFT(TIME()+"00000",5)+"Z"
   ELSE 
      REPL HAND WITH "H", DATUM WITH SUBS(DTOC(DATE()),7,4)+"-"+SUBS(DTOC(DATE()),4,2)+"-"+SUBS(DTOC(DATE()),1,2)+"T"+LEFT(TIME()+"00000",5)+"Z"
   ENDIF 
   EXIT                                       && EINDE BATCH, nee nu 1 pagina 
ENDDO
*
*                                                ----------------
*                                                SELE PAGE + MOEDER
*                                                ----------------
IF EMPTY(MXEENTAAL)
   SELE MOEDER
   GO MOERECNO
ENDIF
SELE PAGE 
GO PAGRECNO 
SET CONS ON
RETURN
*
*----------------------------------------------------------------------------*
*----------------------------------------------------------------------------*
*                                                                  FNOTE.PRG
* FUNKTIONS:            
*            -handel de signs af.   
* nieuw per 21-7-2008
* (Voortgekomen uit Foodblok.PRG)  
* versie 6 aug 2009 toegevoegd travel guide 
* versie 25-20-09 hele pagina reisgids (MXRGP)
* versie 08-10-2010 '+MXPICSDIR+'   
*----------------------------------------------------------------------------*
PROCEDURE FNOTE

DO CASE
   CASE RG 
      ?? ' =<img class="regel" src="'+MXPICSDIR+'tg.png" width="10" height="18" title="Travel language guide; taalgidsje."' 
      ? ' alt="Travel language guide; reisgids." />='
   CASE MXRGP
      ?? ' =<img class="regel" src="'+MXPICSDIR+'tg.png" width="10" height="18" title="Travel language guide; taalgidsje."' 
      ? ' alt="Travel language guide; reisgids." />='
   CASE NOTE                               && SIGNS      
      ?? ' *<img class="regel" src="'+MXPICSDIR+'note.png" width="10" height="18" title="Sign: word is preferential; Preferent."' 
      ? ' alt="Sign: word is preferential; Preferent." />* '
   CASE ROOD
      ?? ' +<img class="regel" src="'+MXPICSDIR+'rood.png" width="10" height="18" title="Sign: word is alternative preferential; Alternatief."'
      ? ' alt="Sign: word is alternative preferential; Alternatief." />+ ' 
   CASE DIALECT
      ?? ' ]<img class="regel" src="'+MXPICSDIR+'dialect.png" width="10" height="18" title="Sign: word is dialectic or old; Dialect of ouderwets."'
      ? ' alt="Sign: Sign: word is dialectic or old; Dialect of ouderwets." />[ '
ENDCASE
RETURN
*
*----------------------------------------------------------------------------*
*----------------------------------------------------------------------------*
*                                                               FSOUNDEX 
* FUNKTIONS: 
*            
*         -PLAATS SOUNDEX-LINKS ACHTER DE WOORDEN OP DE VERTALINGEN-PAGINA'S   
*
*-----------------------------------------------------------------------------* 
*   v 14-02-2007 nieuw  
*   v 20-02-2007 bug: dubbelen
*   v 25-02-2007 pagina zelf niet nogmaals melden
*   v 04-03-2007 alleen links van de zelfde woord-categorie plaatsen.
*   V 08-03-2007 vul array met niet geselecteerde links
*   v 14-03-2007 beperk het aantal tot 6 per woord
*   v 08-10-2010 '+MXPICSDIR+'
*-----------------------------------------------------------------------------*
PROCEDURE FSOUNDEX 
PARA CAT1, CAT2
*                                                ----------------
*                                                define variables 
*                                                ----------------
LOCAL MARECNO,WSLIKE,MPAGE,PAGEREC,DOLLAR,SAANT,TELSND,SREEKS
*
WSLIKE= " "                 && CODE SOUNDEX
MPAGE= " "                  && REEDS GEVONDEN LINK-PAGINA'S
SNDLNK= " "                 && LNK VAN GEVONDEN RECORD
MARECNO= 1                  && RECNO() MOEDER TBV SOUNDEX
PAGEREC= 1                  && RECNO() PAGE
DOLLAR= " "                 && INHOUD SRT01 + SRT02
SAANT=0                     && AANTAL BEPERKEN TOT 6 
TELSND=1                    && AANTAL BEPERKEN TOT 5 
SREEKS= " "                 && REEDS VERMELDE PAGINA'S

SELECT PAGE
PAGEREC = RECNO()

SELECT MOEDER
MARECNO = RECNO()
*                                                ----------------
*                                                SOUNDEX LINKS
*                                                ----------------
* 

IF .NOT. EMPTY(SNDX) 
   IF SNDX <> "XXX"  
      WSLIKE=SNDX
      SAANT = SNTL 
      MPAGE=TRIM(LTRIM(LNK))                   && pagina zelf niet nogmaals melden
      SET ORDER TO SNDX
      SEEK (WSLIKE)
      IF FOUND()
   
         DO WHILE WSLIKE = SNDX
             SNDLNK=TRIM(LTRIM(LNK))            && lnk (PK) van de gevonden pagina 
             DO CASE
               CASE RECNO()=MARECNO             && ZELFDE REC ALS IN BEHANDELING
                  SKIP
                  IF EOF()
                     EXIT
                  ELSE
                     IF WSLIKE <> SNDX
                        EXIT
                     ENDIF
                  ENDIF
                  LOOP
               CASE WSLIKE <> SNDX              && UIT DE SERIE
                  EXIT
               CASE MPAGE = TRIM(LTRIM(LNK))    && REEDS GEHAD
                  SKIP
                  IF EOF()
                     EXIT
                  ELSE
                     IF WSLIKE <> SNDX
                        EXIT
                     ENDIF
                  ENDIF
                  LOOP
               CASE SAANT > (LEN(TRIM(IND))+3) .OR. SAANT < (LEN(TRIM(IND))-3)
                  SELECT MOEDER
                  SKIP
                  IF EOF()
                     EXIT
                  ELSE 
                     IF WSLIKE <> SNDX
                        EXIT
                     ENDIF
                  ENDIF
                  LOOP
               OTHER
                  
                  SELECT PAGE
                  SEEK SNDLNK
                  IF FOUND()
                     DOLLAR = TRIM(LEFT(SRT01,1)+IIF(EMPTY(SRT02),"",LEFT(SRT02,1)))
                     SELECT MOEDER
                     IF LEFT(CAT1,1) $ (DOLLAR) 
                     ELSE
                        IF LEFT(CAT2,1) $ (DOLLAR)
                        ELSE
                           SAANT = SAANT -1 
                           SKIP
                           IF EOF()
                              EXIT
                           ELSE 
                              IF WSLIKE <> SNDX
                                 EXIT
                              ENDIF
                           ENDIF
                           LOOP
                        ENDIF
                     ENDIF
                  ENDIF
                  
            ENDCASE
*
            SELECT MOEDER
            IF TELSND < 5                                   && maximaal 4
               PAGE = TRIM(LTRIM(LNK))
               IF PAGE $ SREEKS
                  EXIT
               ELSE
                  ? '<a href="'+PAGE+'.htm " title="Sounds alike; Klinkt als: '+TRIM(LTRIM(WOORD))+'">'
                  ? '<img class="regel" src="'+MXPICSDIR+'snx.png" width="14" height="16" alt="" /></a>'
                  TELSND = TELSND+1
                  SREEKS=TRIM(SREEKS)+PAGE+","
                  SKIP
               ENDIF
            ELSE
               EXIT
            ENDIF
            IF EOF() 
               EXIT
            ELSE
               LOOP
            ENDIF
         ENDDO 
      ENDIF
   ENDIF 
ENDIF 

SELECT PAGE
GO PAGEREC 
SELECT MOEDER
SET ORDER TO LNK
GO MARECNO 
*
RETURN
*
*----------------------------------------------------------------------------*
*  prog-tekst
*                                                               Fmovervallen 
* FUNKTIONS: 
*            -een record laten vervallen uit de fmolijst.dbf
* 
*
* param in: IND
*               
*-----------------------------------------------------------------------------  
* V01 
*-----------------------------------------------------------------------------
PROCEDURE FMOVERVALLEN(DELWRD)
*
*                                                ----------------
*                                                define variables 
*                                                ----------------
*                                                ----------------
*                                                DELETE in fmolijst.dbf
*                                                ----------------
DELWRD = UPPER(TRIM(LTRIM(DELWRD)))
SELECT LIJST
SEEK DELWRD
IF FOUND()
   DELETE
ELSE
   WAIT "indexwaarde niet gevonden in de fmolijst.dbf, hit-n-key" 
ENDIF

RETURN
*
*
*
*----------------------------------------------------------------------------*
*  prog-tekst
*                                                               Fmonieuw 
* FUNKTIONS: 
*            
*            -een record toevoegen aan de fmolijst.dbf 
*
* param in: ind  
*-----------------------------------------------------------------------------  
*   V01    
*-----------------------------------------------------------------------------
PROCEDURE FMONIEUW(NUWIND)

*
*                                                ----------------
*                                                define variables 
*                                                ----------------
LOCAL LKODE,BEGIN,MOWRD,ELKODE,MIWRD 

LKODE=" "                   && TAALKODE
BEGIN = " "                 && LNK
MIWRD = " "                 && IND
ELKODE = " "                && EXTRA TAAL 
MOWRD = " "                 && WOORD
*                                                ****************
*                                                * MAIN PROCESS *
*                                                ****************
SELE MOEDER

IF UPPER(TRIM(LTRIM(NUWIND))) <> UPPER(TRIM(LTRIM(IND)))
   WAIT " Niet het goede record in de moeder.dbf. Mep-n-knop "
   RETURN   
ENDIF 
IF LEN(TRIM(WOORD))=0
   WAIT " Het woord is blanko. Mep-n-knop "
   RETURN   
ENDIF 
IF LEFT(WOORD,1)="-"                          
   WAIT " Het woord is een - geval. Mep-n-knop "
   RETURN   
ENDIF
DO CASE
   CASE FR
      LKODE = 'FR'
   CASE DE
      LKODE = 'DE'
   CASE EN
      LKODE = 'EN'
   CASE DA
      LKODE = 'DA'
   CASE NL
      LKODE = 'NL'
   CASE ES
      LKODE = 'ES'
   CASE SE
      LKODE = 'SE'
   CASE LAT
      LKODE = 'LA'
   OTHER
      LKODE = ' '
ENDCASE
MOWRD = WOORD
MIWRD = IND
BEGIN = LNK
ELKODE = EXTRA_TAAL

SELE LIJST
APPEND BLANK
REPL IND WITH MIWRD, LANG WITH LKODE, LNK WITH BEGIN, WOORD WITH MOWRD, EXTRA_TAAL WITH ELKODE, EENTAAL WITH MXEENTAAL

RETURN
*
*
*----------------------------------------------------------------------------*
*  prog-tekst
*                                                               FTABEL.PRG
* FUNKTIONS: 
*            
*         -maak een enkele alfabetische lijst over 2 kolommen van fmolijst.dbf   
*
* param in: ind 
* output: XXWORDS page in HTM-format 
*-----------------------------------------------------------------------------  
*   V01 
*   v02 alsnog Google search toegevoegd 14-12-2005
*   v03 alsnog Google linklist 14-12-2005  
*   v04 Zen css versie 13-11-2006
*   v 27-12-2006 XHTML 
*   v 11-02-2007 RUN noz.exe; remove ctrl-z (Autor NoZ.exe is Wayne Larmon, wlarmon@netheaven.com)
*   v 1.5.2007 foodlex.txt HAND-indicatie H=handwerk, W=woord, X=wordsindex en O=overigen. 
*   v 06-01-2008 vernieuwing google opzet.
*   v 17-05-2008 Google Custom Search Internet
*   v 03-07-2008 Google Pack weg
*   v 22-12-2009 lijst maken met FMOLIST
*   v 24-12-2009 uitgebreidere selectie htm-files
*   v 23-9-2010 MXINHOUDDIR
*   pos 1 en 2 ZIJN nu 9 COMBINATIES
*   - + - /'
*   - + N  (N is kap) /'
*   - + n  (n is ok) /'
*   N + - 
*   n + -        
*   N + a  
*   n + a 
*   n + N
*   N + N  (AA t/m ZZ)    /' nu nog samengenomen tot --words
*-----------------------------------------------------------------------------
PROCEDURE FTABEL(LIJSTIND)
*
*                                                ----------------
*                                                define variables 
*                                                ----------------
LOCAL LETTRS
*
LETTRS = " "                && beginletters van de lijst
*
*                                                ----------------
*                                                xxwords.html bepalen
*                                                ----------------
IF EMPTY(LIJSTIND) 
   WAIT " De indexcode is blanko. Mep-n-knop "
   RETURN   
ENDIF
*
LIJSTIND = LIJSTIND+SPACE(2)
LETTRS = LEFT(LIJSTIND,2)
*
IF LEFT(LETTRS,1) $ [!"#$%&'()*+,-./0123456789;<=>?@\^_`{|}~?]   && pos.left == -
   LETTRS = "-"+RIGHT(LETTRS,1)
ENDIF
IF RIGHT(LETTRS,1) $ [!"#$%&'()*+,-./0123456789;<=>?@\^_`{|}~?]  && pos.right == -
   LETTRS = LEFT(LETTRS,1)+"-"   
ELSE
   IF EMPTY(RIGHT(LETTRS,1))                                     && pos.right == -
      LETTRS = LEFT(LETTRS,1)+"-"
   ENDIF
ENDIF
IF RIGHT(LETTRS,1) $ "abcdef"
   LETTRS = LEFT(LETTRS,1)+"a"
ENDIF 
* HIRO
MXNAAMWORDS =LETTRS+"words.htm"                                  && naam van de xxwords.html 
*
DO FMOLIST WITH "PAGE"
*
RETURN
*
*----------------------------------------------------------------------------*
*                                                                  FGOOGLE.PRG
* FUNKTIONS:            
*            - google sitemap maken
*            - Site last revised on: 2008-12-12   
* nieuw per 12-12-2008
* (Deels voortgekomen uit Food.PRG) 
* versie 31-08-2010 feestdagen selectie     
*----------------------------------------------------------------------------*
PROCEDURE FGOOGLE(FEESTDGN)
*
IF EMPTY(FEESTDGN) 
   WAIT " De feestdagen-code is blanko. Mep-n-knop "
   RETURN   
ENDIF
*
*                                                ----------------
*                                                foodlex.xml
*                                                ----------------
SELE SMAP
SET ALTERNATE TO foodlex.xml
SET ALTERNATE ON
GO TOP
?? '<?xml version="1.0" encoding="UTF-8"?>' AT 0
? '<urlset xmlns="http://www.google.com/schemas/sitemap/0.84"'
? 'xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"'
? 'xsi:schemaLocation="http://www.google.com/schemas/sitemap/0.84'
? 'http://www.google.com/schemas/sitemap/0.84/sitemap.xsd">'
? '<url><loc>http://www.foodlexicon.net/</loc>'
? '<lastmod>'+MXDATUM+'</lastmod></url>'
DO WHILE .NOT. EOF()
   IF HAND = 'X'                        && xxwords files
      SKIP
      LOOP
   ENDIF
   ? '<url><loc>http://www.example.com/'+TRIM(NAAM)+'</loc>'
   IF .NOT. EMPTY(DATUM)
      ? '<lastmod>'+LEFT(DATUM,10)+'</lastmod></url>'
   ENDIF
   SKIP
ENDDO
? '</urlset>'
SET ALTERNATE OFF
CLOSE ALTERNATE
RUN NOZ foodlex.xml
*                                                ----------------
*                                                index.html
*                                                ----------------
SET ALTERNATE TO index.htm
SET ALTERNATE ON
DO FDOCTYPE WITH "IFM"
? '<title>Food terms translation EN DE FR DA ES SE NL.</title>'
? '<meta name="build" content="2010-09-24" />'
? '<!--    Google id: verify-v1 content="KsOy2qVBK+iYFNsTlPv11lwNDdpeuZCm3LPI4AmM0Zc=               -->'
? '<meta name="verify-v1" content="KsOy2qVBK+iYFNsTlPv11lwNDdpeuZCm3LPI4AmM0Zc=" />'
? '<meta name="description" content="Translatons of food terms, between EN FR DE DA ES NL" />'
? '<meta name="keywords" content='
? '"foodlexicon, Food lexicon, Food-terms, Dictionary, ordbog, dictionaire, '
? 'translations English French German Danish Dutch, W&ouml;rterbuch,'
? 'Kooktermen, Netherlands, Conversion of measures, lexicon, '
? 'E-numbers, E-nummers, levensmiddelen, ingredient, provisions, '
? 'victuals, Lebensmittel, Zutat, vivres, alimentaires, '
? 'lexique de cuisine, termes de cuisine, Koch Lexikon, '
? 'Kochw&ouml;rter, Kochausdruck, koge ordbog, kogeord,'
? 'mad leksikon, chasse aux mots gastronomiques, madudtryk og '
? 'f&oslash;devarer" />'
? '<meta name="description" content='
? '"The food-lexicon gives you food terms translations English '
? 'French German Danish Spanish and Dutch plus additional information about food." />'
*
? '<script type="text/javascript" language="JavaScript">'
? '<!--'
? 'function helpchar(){'
? '    wintekst='+CHR(39)+'<a href="javascript:window.close()">[ <span class="rood"><u>C<\/u><\/span>lose ] this window <\/a>'+CHR(39)+';'
? "    hchartekst='The Food lexicon gives you food terms translations between<br />English, French, German, Danish, Spanish, Swedish and Dutch,<br />plus additionalinformation about the terms.<br />Take the first and the second character of the word you are looking for.<br />With those characters you go to a list of words starting with that<br />two characters.<br />For numbers and signs take starting [Blanc], or following [blanc] .<br /><br />Find the first of those two characters here and select it. ';"
? 
? '    // create a window'
? "    options='toolbar=no,status=no,menubar=no,scrollbars=no,resizable=no,width=630,height=280';"
? '    showwindow=window.open("","result",options);'
? '    showwindow.document.write('+CHR(39)+'<html><head>'+CHR(39)+')'
? '    showwindow.document.write('+CHR(39)+'<meta http-equiv="Content-Style-Type" content="text/css">'+CHR(39)+')'
? '    showwindow.document.write('+CHR(39)+'<link rel="stylesheet" href="foodcss.css" type="text/css">'+CHR(39)+')'
? '    showwindow.document.write('+CHR(39)+'<body><div id="popWin">'+CHR(39)+')'
? '    showwindow.document.write(hchartekst)'
? '    showwindow.document.write('+CHR(39)+'<br \><br \>'+CHR(39)+')'
? '    showwindow.document.write(wintekst)'
? '    showwindow.document.write('+CHR(39)+'</div>'+CHR(39)+')'
? '    showwindow.document.close()'
? '}'
? '// -->'
? '</script>'
? '</head><body id="foodlexicon">                                  <!--  hack  Netscape Navigator 4 -->'
? '<div id="container"> <!--                                                              container -->'
? '<div id="intro"> <!--                                                                      intro -->'
? '<!--                                                                            Linkregel Google -->'
? '<div class="nietprinten">'
? '<script type="text/javascript"><!--'
? 'google_ad_client = "pub-5315539198167919";'
? 'google_ad_width = 728;'
? 'google_ad_height = 15;'
? 'google_ad_format = "728x15_0ads_al";'
? 'google_ad_channel ="";'
? 'google_color_border = "A8DDA0";'
? 'google_color_bg = "FDFFCA";'
? 'google_color_link = "006600";'
? 'google_color_url = "008000";'
? 'google_color_text = "000000";'
? '//--></script>'
? '<script type="text/javascript"'
? '  src="http://pagead2.googlesyndication.com/pagead/show_ads.js">'
? '</script></div>  <!--                                                     EINDE Linkregel Google -->'
? '<div id="pageHeader"><p> <!--                                                   Foodlexicon logo -->'
DO FWWWKAP WITH "INHPICS"
? '<!--                                                                      Food terms dictionary  -->'
? '<img src="'+MXINHPICSDIR+'_space.gif" width="10" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'_space.gif" width="10" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'_streep.gif" width="13" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'_space.gif" width="10" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'_space.gif" width="10" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'_f.gif" width="12" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'o.gif" width="12" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'o.gif" width="12" height="43" alt="" border="0" /> '
? '<img src="'+MXINHPICSDIR+'d.gif" width="13" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'_space.gif" width="10" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'t.gif" width="10" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'e.gif" width="11" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'r.gif" width="10" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'m.gif" width="17" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'s.gif" width="10" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'_space.gif" width="10" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'d.gif" width="13" height="43" alt="" border="0" /> '
? '<img src="'+MXINHPICSDIR+'i.gif" width="7" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'c.gif" width="11" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'t.gif" width="10" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'i.gif" width="7" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'o.gif" width="12" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'n.gif" width="11" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'a.gif" width="12" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'r.gif" width="10" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'y.gif" width="12" height="43" alt="" border="0" />'
? '<br /><!--                                                                         TRANSLATIONS  -->'
? '<img class="links" src="'+MXINHPICSDIR+'_t.gif" width="11" height="43" alt="" border="0" />'
? '<img class="links" src="'+MXINHPICSDIR+'r.gif" width="10" height="43" alt="" border="0" />'
? '<img class="links" src="'+MXINHPICSDIR+'a.gif" width="12" height="43" alt="" border="0" />'
? '<img class="links" src="'+MXINHPICSDIR+'n.gif" width="11" height="43" alt="" border="0" />'
? '<img class="links" src="'+MXINHPICSDIR+'s.gif" width="10" height="43" alt="" border="0" />'
? '<img class="links" src="'+MXINHPICSDIR+'l.gif" width="7" height="43" alt="" border="0" />'
? '<img class="links" src="'+MXINHPICSDIR+'a.gif" width="12" height="43" alt="" border="0" />'
? '<img class="links" src="'+MXINHPICSDIR+'t.gif" width="10" height="43" alt="" border="0" />'
? '<img class="links" src="'+MXINHPICSDIR+'i.gif" width="7" height="43" alt="" border="0" />'
? '<img class="links" src="'+MXINHPICSDIR+'o.gif" width="12" height="43" alt="" border="0" />'
? '<img class="links" src="'+MXINHPICSDIR+'n.gif" width="11" height="43" alt="" border="0" />'
? '<img class="links" src="'+MXINHPICSDIR+'s.gif" width="10" height="43" alt="" border="0" />'
? '<img class="links" src="'+MXINHPICSDIR+'_space.gif" width="10" height="43" alt="" border="0" />'
? '<img class="links" src="'+MXINHPICSDIR+'i.gif" width="7" height="43" alt="" border="0" /> '
? '<img class="links" src="'+MXINHPICSDIR+'n.gif" width="11" height="43" alt="" border="0" />'
? '<img class="links" src="'+MXINHPICSDIR+'t.gif" width="10" height="43" alt="" border="0" /> '
? '<img class="links" src="'+MXINHPICSDIR+'o.gif" width="12" height="43" alt="" border="0" />'
? '<img class="links" src="'+MXINHPICSDIR+'_space.gif" width="10" height="43" alt="" border="0" />'
? '<img class="links" src="'+MXINHPICSDIR+'7.gif" width="10" height="43" alt="" border="0" />'
? '<img class="links" src="'+MXINHPICSDIR+'_space.gif" width="10" height="43" alt="" border="0" />'
? '<img class="links" src="'+MXINHPICSDIR+'l.gif" width="7" height="43" alt="" border="0" />'
? '<img class="links" src="'+MXINHPICSDIR+'a.gif" width="12" height="43" alt="" border="0" />'
? '<img class="links" src="'+MXINHPICSDIR+'n.gif" width="11" height="43" alt="" border="0" />'
? '<img class="links" src="'+MXINHPICSDIR+'g.gif" width="13" height="43" alt="" border="0" />'
? '<img class="links" src="'+MXINHPICSDIR+'u.gif" width="12" height="43" alt="" border="0" />'
? '<img class="links" src="'+MXINHPICSDIR+'a.gif" width="12" height="43" alt="" border="0" />'
? '<img class="links" src="'+MXINHPICSDIR+'g.gif" width="13" height="43" alt="" border="0" />'
? '<img class="links" src="'+MXINHPICSDIR+'e.gif" width="11" height="43" alt="" border="0" />'
? '<img class="links" src="'+MXINHPICSDIR+'s.gif" width="10" height="43" alt="" border="0" />'
? '<img class="links" src="'+MXINHPICSDIR+'_dpunt.gif" width="7" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'_space.gif" width="10" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'_e.gif" width="11" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'_n.gif" width="15" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'_komma.gif" width="7" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'_space.gif" width="10" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'_d.gif" width="15" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'_e.gif" width="11" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'_komma.gif" width="7" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'_space.gif" width="10" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'_f.gif" width="12" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'_r.gif" width="13" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'_komma.gif" width="7" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'_space.gif" width="10" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'_d.gif" width="15" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'_a.gif" width="13" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'_komma.gif" width="7" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'_space.gif" width="10" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'_e.gif" width="11" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'_s.gif" width="13" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'_komma.gif" width="7" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'_space.gif" width="10" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'_s.gif" width="13" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'_e.gif" width="11" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'_komma.gif" width="7" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'_space.gif" width="10" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'_n.gif" width="15" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'_l.gif" width="9" height="43" alt="" border="0" />'
?
? '<br /><br />'
? '<!--                                                                              naar  nl index -->'
? '</p><div id="keuzeTaal">'
? '<span lang="nl"><a href="indnl.htm"><img src="'+MXINHPICSDIR+'nl01.gif" width="30" height="16" border="0" alt="" />'
? '&nbsp;[ Nederlandse tekst ]</a></span></div></div><!--               EINDE pageHeader, keuzeTaal -->'
? 
? '<div id="koekelcol">'
* weg met kolom
*? '<div class="nietprinten"> <!--                                   Google adds        GOOGLE KOLOM -->'
*? '<script type="text/javascript"><!--'
*? 'google_ad_client = "pub-5315539198167919";'
*? '//Google kolom'
*? 'google_ad_slot = "0842756741";'
*? 'google_ad_width = 160;'
*? 'google_ad_height = 600;'
*? '//--></script>'
*? '<script type="text/javascript"'
*? 'src="http://pagead2.googlesyndication.com/pagead/show_ads.js">'
*? '</script></div>
? '<br /><br />'
* huis te zweden
*? '<br /><br /><img src="'+MXINHPICSDIR+'_o.gif" width="15" height="43" alt="" border="0" />'
*? '<img src="'+MXINHPICSDIR+'u.gif" width="12" height="43" alt="" border="0" />'
*? '<img src="'+MXINHPICSDIR+'r.gif" width="10" height="43" alt="" border="0" />'
*? '<img src="'+MXINHPICSDIR+'_space.gif" width="10" height="43" alt="" border="0" />'
*? '<img src="'+MXINHPICSDIR+'h.gif" width="11" height="43" alt="" border="0" />'
*? '<img src="'+MXINHPICSDIR+'o.gif" width="12" height="43" alt="" border="0" />'
*? '<img src="'+MXINHPICSDIR+'u.gif" width="12" height="43" alt="" border="0" />'
*? '<img src="'+MXINHPICSDIR+'s.gif" width="10" height="43" alt="" border="0" />'
*? '<img src="'+MXINHPICSDIR+'e.gif" width="11" height="43" alt="" border="0" />'
*? '<br />'
*? '<img src="'+MXINHPICSDIR+'i.gif" width="7" height="43" alt="" border="0" />'
*? '<img src="'+MXINHPICSDIR+'n.gif" width="11" height="43" alt="" border="0" />'
*? '<img src="'+MXINHPICSDIR+'_space.gif" width="10" height="43" alt="" border="0" />'
*? '<img src="'+MXINHPICSDIR+'_s.gif" width="13" height="43" alt="" border="0" />'
*? '<img src="'+MXINHPICSDIR+'w.gif" width="16" height="43" alt="" border="0" />'
*? '<img src="'+MXINHPICSDIR+'e.gif" width="11" height="43" alt="" border="0" /> '
*? '<img src="'+MXINHPICSDIR+'d.gif" width="13" height="43" alt="" border="0" />'
*? '<img src="'+MXINHPICSDIR+'e.gif" width="11" height="43" alt="" border="0" />'
*? '<img src="'+MXINHPICSDIR+'n.gif" width="11" height="43" alt="" border="0" />'
*? '<br /><br />'
*? '<img class="links" src="'+MXINHPICSDIR+'zweden.png" width="160" height="166" border="0" '
*? 'alt="Our house in Sweden." /><p><br /><br /><br />'
? '<img src="'+MXINHPICSDIR+'_f.gif" width="12" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'o.gif" width="12" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'r.gif" width="10" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'_space.gif" width="10" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'s.gif" width="10" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'a.gif" width="12" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'l.gif" width="7" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'e.gif" width="11" height="43" alt="" border="0" />'
? '<br />'
? '<img src="'+MXINHPICSDIR+'i.gif" width="7" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'n.gif" width="11" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'_space.gif" width="10" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'_s.gif" width="13" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'w.gif" width="16" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'e.gif" width="11" height="43" alt="" border="0" /> '
? '<img src="'+MXINHPICSDIR+'d.gif" width="13" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'e.gif" width="11" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'n.gif" width="11" height="43" alt="" border="0" />'
? '<br /><br />'
? '<img class="links" src="'+MXINHPICSDIR+'klevsti.png" width="160" height="166" border="0" '
? 'alt="Klevstige 2, &Ouml;verum, Sweden." /><br /><br /><br /><p>'
? 'At<br /> <a href="http://objekt.fastighetsbyran.se/Objekt/?source=hemnet&ObjektGID=OBJ6260_1082699604" '
? 'target="_blank" title="For sale Klevstige 2, &Ouml;verum, Zweden."> [ Fastighetsbyr&aring;n ] </a></p>'
? '<br />'
? '<img class="links" src="'+MXINHPICSDIR+'harriet.png" width="160" height="166" border="0" '
? 'alt="Ringv&auml;gen 9, &Ouml;verum, Sweden." /><br /><br /><br /><p>'
? '<br /> <a href="mailto:info@foodlexicon.net">  [ For sale at Harriet. ] </p></a>'
? '<br /><br /><br />  <!--         Google adds              EINDE  GOOGLE KOLOM -->'
? '<img class="nietprinten" src="'+MXINHPICSDIR+'pijltjes.png" width="150" border="0" height="68" usemap="#prikkaart" alt="navigation arrows" />'
? '<map name="prikkaart" id="ponskaart">'
? '   <area shape="poly" coords="3,31,30,2,30,17,67,17,28,56" alt=""'
? '   href="javascript:history.go(-1)" title="Back to the previous page; Terug naar vorige pagina." />'
? '   <area shape="poly" coords="44,49,76,19,101,49,88,66,61,63" alt=""'
? '   href="index.html" title="Back Home; Naar 1e pagina." />'
? '   <area shape="poly" coords="81,17,116,16,116,0,146,30,120,56" alt=""'
? [   href="javascript:void(0)" onclick="window.open('index.html')" ]
? '   title="Open this page in a new window; Open deze pagina in een nieuwe window." />'
? '</map><br /><br />'
? '<img class="nietprinten" src="'+MXINHPICSDIR+'nocook.png" width="125" border="0" height="45" alt="no cookie site"'
? 'title="(We are NOT collecting any information from you.)" /></div>'
? '<!--                                                                      EINDE div koekeltop -->'
? '<br /><div id="mainPage"><!--                                                        mainPage -->'
? '<!--                                                                            H O T         -->'
? '<!--<p><span class="bggroen">'
? '<img src="'+MXINHPICSDIR+'hot.png" width="59" height="47" alt="" border="0" />'
? '<big>Yes, GoogleSearch is working again.</big><br />'
? '<br /><br /></span></p> -->'
?
IF FEESTDGN = "KERST"
   ? '<!--                                                                  MERRY CHRISTMAS         -->'
   ? '<p><span class="bggroen">'
   ? '<img class="nietprinten" src="'+MXINHPICSDIR+'kerstx.png" width="36" border="0" height="50"  alt="julnissen" />'
   ? '<img src="'+MXINHPICSDIR+'_space.gif" width="10" height="43" alt="" border="0" />'
   ? '<img src="'+MXINHPICSDIR+'_m.gif" width="17" height="43" alt="" border="0" /> '
   ? '<img src="'+MXINHPICSDIR+'e.gif" width="11" height="43" alt="" border="0" /> '
   ? '<img src="'+MXINHPICSDIR+'r.gif" width="10" height="43" alt="" border="0" />'
   ? '<img src="'+MXINHPICSDIR+'r.gif" width="10" height="43" alt="" border="0" />'
   ? '<img src="'+MXINHPICSDIR+'y.gif" width="12" height="43" alt="" border="0" />'
   ? '<img src="'+MXINHPICSDIR+'_space.gif" width="10" height="43" alt="" border="0" />'
   ? '<img src="'+MXINHPICSDIR+'_space.gif" width="10" height="43" alt="" border="0" />'
   ? '<img src="'+MXINHPICSDIR+'_c.gif" width="12" height="43" alt="" border="0" />'
   ? '<img src="'+MXINHPICSDIR+'h.gif" width="11" height="43" alt="" border="0" /> '
   ? '<img src="'+MXINHPICSDIR+'r.gif" width="10" height="43" alt="" border="0" /> '
   ? '<img src="'+MXINHPICSDIR+'i.gif" width="7" height="43" alt="" border="0" /> '
   ? '<img src="'+MXINHPICSDIR+'s.gif" width="10" height="43" alt="" border="0" /> '
   ? '<img src="'+MXINHPICSDIR+'t.gif" width="10" height="43" alt="" border="0" /> '
   ? '<img src="'+MXINHPICSDIR+'m.gif" width="17" height="43" alt="" border="0" /> '
   ? '<img src="'+MXINHPICSDIR+'a.gif" width="12" height="43" alt="" border="0" /> '
   ? '<img src="'+MXINHPICSDIR+'s.gif" width="10" height="43" alt="" border="0" /> '
   ? '<img src="'+MXINHPICSDIR+'_space.gif" width="10" height="43" alt="" border="0" />'
   ? '<img class="nietprinten" src="'+MXINHPICSDIR+'kerst.png" width="58" border="0" height="48"  alt="kerstboom" />'
   ? '</span><br /><br /></p> '
ENDIF 
IF FEESTDGN  = "NIEUWJAAR"
   ? '<!--                                                                       happy new year          -->'
   ? '<p><span class="bggroen">'
   ? '<img class="links" src="'+MXINHPICSDIR+'knal.png" width="50" border="0" height="50"  alt="12 pm" />'
   ? '<img class="links" src="'+MXINHPICSDIR+'_space.gif" width="10" height="43" alt="" border="0" />'
   ? '<img class="links" src="'+MXINHPICSDIR+'_h.gif" width="16" height="43" alt="" border="0" />'
   ? '<img class="links" src="'+MXINHPICSDIR+'a.gif" width="12" height="43" alt="" border="0" /> '
   ? '<img class="links" src="'+MXINHPICSDIR+'p.gif" width="13" height="43" alt="" border="0" /> '
   ? '<img class="links" src="'+MXINHPICSDIR+'p.gif" width="13" height="43" alt="" border="0" />'
   ? '<img class="links" src="'+MXINHPICSDIR+'y.gif" width="12" height="43" alt="" border="0" />'
   ? '<img class="links" src="'+MXINHPICSDIR+'_space.gif" width="10" height="43" alt="" border="0" />'
   ? '<img class="links" src="'+MXINHPICSDIR+'n.gif" width="11" height="43" alt="" border="0" />'
   ? '<img class="links" src="'+MXINHPICSDIR+'e.gif" width="7" height="43" alt="" border="0" />'
   ? '<img class="links" src="'+MXINHPICSDIR+'w.gif" width="16" height="43" alt="" border="0" />'
   ? '<img class="links" src="'+MXINHPICSDIR+'_space.gif" width="10" height="43" alt="" border="0" />'
   ? '<img class="links" src="'+MXINHPICSDIR+'y.gif" width="12" height="43" alt="" border="0" />'
   ? '<img class="links" src="'+MXINHPICSDIR+'e.gif" width="7" height="43" alt="" border="0" />'
   ? '<img class="links" src="'+MXINHPICSDIR+'a.gif" width="12" height="43" alt="" border="0" />'
   ? '<img class="links" src="'+MXINHPICSDIR+'r.gif" width="10" height="43" alt="" border="0" />'
   ? '<img class="links" src="'+MXINHPICSDIR+'_space.gif" width="10" height="43" alt="" border="0" />'
   ? '<img class="links" src="'+MXINHPICSDIR+'_uitroep.gif" width="8" height="43" alt="" border="0" />'
   ? '<img class="links" src="'+MXINHPICSDIR+'_space.gif" width="10" height="43" alt="" border="0" />'
   ? '<img class="links" src="'+MXINHPICSDIR+'nieuwjr.png" width="36" border="0" height="70"  alt="snow-man" />'
   ? '</span></p><br /><br /><br /><br />' 
ENDIF
?
? '<!--                                                                        naar 1e index letter -->'
? ' <img src="'+MXINHPICSDIR+'ffind.png" width="28" height="16" border="0" alt="">'
? ' Select the first character of the word to find: &nbsp;&nbsp;&nbsp;<br /><br /> '
? '<a href="--words.htm"> [ Blank ] </a> '
? '<a href="indxena.htm"> [ A ] </a> '
? '<a href="indxenb.htm"> [ B ] </a> '
? '<a href="indxenc.htm"> [ C ] </a> '
? '<a href="indxend.htm"> [ D ] </a> '
? '<a href="indxene.htm"> [ E ] </a> '
? '<a href="indxenf.htm"> [ F ] </a> '
? '<a href="indxeng.htm"> [ G ] </a>'
? '<a href="indxenh.htm"> [ H ] </a> '
? '<a href="indxeni.htm"> [ I ] </a> '
? '<a href="indxenj.htm"> [ J ] </a> '
? '<a href="indxenk.htm"> [ K ] </a> '
? '<a href="indxenl.htm"> [ L ] </a> '
? '<a href="indxenm.htm"> [ M ] </a><br /> '
? '<a href="indxenn.htm"> [ N ] </a> '
? '<a href="indxeno.htm"> [ O ] </a> '
? '<a href="indxenp.htm"> [ P ] </a> '
? '<a href="indxenq.htm"> [ Q ] </a> '
? '<a href="indxenr.htm"> [ R ] </a> '
? '<a href="indxens.htm"> [ S ] </a>'
? '<a href="indxent.htm"> [ T ] </a> '
? '<a href="indxenu.htm"> [ U ] </a> '
? '<a href="indxenv.htm"> [ V ] </a> '
? '<a href="indxenw.htm"> [ W ] </a> '
? '<a href="indxenx.htm"> [ X ] </a>'
? '<a href="indxeny.htm"> [ Y ] </a>'
? '<a href="indxenz.htm"> [ Z ] </a><br /> '
? '<a href="1awords.htm"> [ &#xC5; -dansk ] </a> '
? '<a href="2awords.htm"> [ &#xC5; -svensk ] </a> '
? '<a href="3awords.htm"> [ &#xC4; ] </a> '
? '<a href="4awords.htm"> [ &#xC6; ] </a> '
? '<a href="5awords.htm"> [ &#xD6; ] </a> '
? '<a href="6awords.htm"> [ &#xD8; ] </a> '
? '<br /><br /><object id="goegel"> '
? '<img src="'+MXINHPICSDIR+'ffind.png" width="28" height="16" border="0" alt="" />'
? 'Or fill in which word to find: <br />    '
? '<!--                                                               SiteSearch / InternetSearch -->'
? 'In www.foodlexicon.net:'
? '<div class="cse-branding-bottom"'
? 'style="background-color:#FFFFFF;color:#000000">'
? '  <div class="cse-branding-form">'
? '    <form action="http://www.foodlexicon.net/zoek.htm" id="cse-search-box">'
? '      <div>'
? '        <input type="hidden" name="cx"'
? 'value="partner-pub-5315539198167919:sw5sj0-epyz" />'
? '        <input type="hidden" name="cof" value="FORID:10" />'
? '        <input type="text" name="q" size="28" />'
? '        <input type="submit" name="sa" value="Search" />'
? '      </div>'
? '    </form>'
? '  </div>'
? '  <div class="cse-branding-logo">'
? '    <img'
? 'src="http://www.google.com/images/poweredby_transparent/poweredby_FFFFFF.gif"'
? 'alt="Google" />'
? '  </div>'
? '  <div class="cse-branding-text">'
? '    Custom Search'
? '  </div>'
? '</div>'
? '</object> <!--                                                          Einde SiteSearch Google -->'
? '<!--                                                                             CategorySearch -->'
? '<br /><object id="cats">'
? '<img src="'+MXINHPICSDIR+'ffind.png" width="28" height="16" border="0" alt="" />'
? 'Or search a <a href="categori.htm">&nbsp;[ category ] </a><br /><br />'
? '</object>'
? '<!--                                                                             halve Banner    -->'
? '<script type="text/javascript"><!--'
? 'google_ad_client = "pub-5315539198167919";'
? '//HalveBanner234x60'
? 'google_ad_slot = "2938642183";'
? 'google_ad_width = 234;'
? 'google_ad_height = 60;'
? '//--></script>'
? '<script type="text/javascript"'
? 'src="http://pagead2.googlesyndication.com/pagead/show_ads.js">'
? '</script>   <!--                                                          EINDE  Halve Banner    -->'
? '<br /> <!--                                                                      link menu -->'
? '<img src="'+MXINHPICSDIR+'finfo.png" width="28" height="16" border="0" alt="" />'
? '<a href="infoen.htm"> [ Informaton about the site ] </a><br />'
? '<img src="'+MXINHPICSDIR+'finfo.png" width="28" height="16" border="0" alt="" />'
? '<a href="schaalgb.htm"> [ Conversion of measures and temperatures ] </a><br />'
? '<img src="'+MXINHPICSDIR+'wfood.png" width="28" height="16" border="0" alt="" />'
? 'www.food-info.net: <a href="http://www.food-info.net/">'
? ' [ E-numbers, coding for food additives ] </a><br />'
? '<img src="'+MXINHPICSDIR+'finfo.png" width="28" height="16" border="0" alt="" />'
? '<a href="spechar.htm"> [ Special Characters. ]</a><br />'
? '<img src="'+MXINHPICSDIR+'finfo.png" width="28" height="16" border="0" alt="" />'
? '<a href="langen.htm"> [ Country-Language codes  ] </a><br />'
? '<img src="'+MXINHPICSDIR+'finfo.png" width="28" height="16" border="0" alt="" />'
? '<a href="indxentx.htm"> [ Help us with translations ] </a><br />'
? '<img src="'+MXINHPICSDIR+'de05.png" width="28" height="16" border="0" alt="" />'
? '<a href="http://www.lebensmittellexikon.de/"> [ www.lebensmittellexikon.de ] </a><br />'
? '<img src="'+MXINHPICSDIR+'lc.png" width="16" height="16" border="0" alt="Online dictionaries and language resources" />'
? '&nbsp;&nbsp;&nbsp;Online dictionaries:<a href="http://www.lexicool.com/"> [ www.lexicool.com ]'
? '<img src="'+MXINHPICSDIR+'inc1.png" width="16" height="16" border="0" alt="" /> </a><br /> '
? '<img src="'+MXINHPICSDIR+'four.png" width="28" height="16" border="0" alt="" />'
? '<a href="foodlink.htm#plekje"> [ Our favourite destinations ] </a><br />'
? '<img src="'+MXINHPICSDIR+'finfo.png" width="28" height="16" border="0" alt="" />'
? '<a href="foodlink.htm"> [ Our favourite links ] </a><br />'
? '<img src="'+MXINHPICSDIR+'finfo.png" width="28" height="16" border="0" alt="" />'
? '<a href="fsource.htm"> [ Our open source ] </a><br /><br /> '
? 
? '<object id="halvezool">'
? '<div id="footer"><br /> <!--                                                http: foodlex, mail  -->'
? '<a href="http://www.foodlexicon.net"> Web: [ www.foodlexicon.net ] </a><br />'
? '(More than 34,000 words.)<br />'
? 'If you find a mistake or completement, please let us know!<br />'
? '<a href="mailto:info@foodlexicon.net"> E-mail: [ info@foodlexicon.net ] <br />'
? '(We are NOT collecting any information from you).</a><br />'
? '&#x00A9; Webmasters Jos &#38; Marg Sparreboom.<br />'
? '<span lang="en">Page last revised on: 2011-10-29.<br />Site last revised on: '+MXDATUM
? '.<br />(yyyy-mm-dd).  Version '+MXVERSIE+'</span><br /><br /><p>'
? '  <a href="http://validator.w3.org/check?uri=referer"><img'
? '  src="http://www.w3.org/Icons/valid-xhtml10"'
? '  alt="Valid XHTML 1.0 Transitional" height="31" width="88" border="0" /></a></p><br />&nbsp;'
?
? '</div></object></div>  <!--                                                      EINDE  footer, mainPage  -->'
? '</div></div>  <!--                                                       EINDE container, intro  -->'
? '<div id="breaker1" />'
? '</body></html>'
SET ALTERNATE OFF
CLOSE ALTERNATE
RUN NOZ index.htm
*                                                ----------------
*                                                indnl.htm
*                                                ----------------
SET ALTERNATE TO indnl.htm
SET ALTERNATE ON
DO FDOCTYPE WITH "IFM"
? '<title>De Food lexicon in ontwikkeling.</title>'
? '<meta name="build" content="2006-12-22" />'
? '<meta name="description" content="Vertaling van kooktermen, in EN FR DE DA ES NL" />'
? '<meta name="keywords" content='
? '"foodlexicon, Food lexicon, Food-terms, Dictionary, ordbog, dictionaire, '
? 'translations English French German Danish Dutch, W&ouml;rterbuch,'
? 'Kooktermen, Netherlands, Conversion of measures, lexicon, '
? 'E-numbers, E-nummers, levensmiddelen, ingredient, provisions, '
? 'victuals, Lebensmittel, Zutat, vivres, alimentaires, '
? 'lexique de cuisine, termes de cuisine, Koch Lexikon, '
? 'Kochw&ouml;rter, Kochausdruck, koge ordbog, kogeord,'
? 'mad leksikon, chasse aux mots gastronomiques, madudtryk og '
? 'f&oslash;devarer" />'
? '<meta name="description" content='
? '"De food-lexicon geeft u vertalingen van kooktermen in Engels '
? 'Frans Duits Deens Spaans en Nederlands, plus aanvullende informatie." />'
? '<script type="text/javascript" language="JavaScript">'
? '<!--'
? 'function helpchar(){'
? 'wintekst='+CHR(39)+'<a href="javascript:window.close()">[ <span class="rood"><u>C<\/u><\/span>lose ] this window <\/a>'+CHR(39)+';'
? "hchartekst='Het woordenboek geeft vertalingen in Engels, Frans, Duits, Deens,<br />Spaans, Zweeds en Nederlands, eventueel met aanvullende informatie.<br />Neem de eerste en tweede letter van het woord dat u zoek.<br />Met die letters gaat u naar een lijst met woorden die deze <br />beginletters hebben. Woorden beginnend met nummers <br />of tekens neem [Blank] of erna [blank] .<br /><br /><br />Kies hier de eerste van de twee letters.<br />';"
?
? '// create a window'
? 'options='+CHR(39)+'toolbar=no,status=no,menubar=no,scrollbars=no,resizable=no,width=600,height=280'+CHR(39)+';'
? 'showwindow=window.open("","result",options);'
? 'showwindow.document.write('+CHR(39)+'<html><head>'+CHR(39)+')'
? 'showwindow.document.write('+CHR(39)+'<meta http-equiv="Content-Style-Type" content="text/css">'+CHR(39)+')'
? 'showwindow.document.write('+CHR(39)+'<link rel="stylesheet" href="foodcss.css" type="text/css">'+CHR(39)+')'
? 'showwindow.document.write('+CHR(39)+'<body><div id="popWin">'+CHR(39)+')'
? 'showwindow.document.write(hchartekst)'
? 'showwindow.document.write('+CHR(39)+'<br \><br \>'+CHR(39)+')'
? 'showwindow.document.write(wintekst)'
? 'showwindow.document.write('+CHR(39)+'</div>'+CHR(39)+')'
? 'showwindow.document.close()'
? '}'
? '// -->'
? '</script>'
?
? '</head><body id="foodlexicon"> '
? '<div id="container"> <!--                                                              container -->'
? '<div id="intro"> <!--                                                                      intro -->'
? '<!--                                                                            Linkregel Google -->'
? '<div class="nietprinten">'
? '<script type="text/javascript"><!--'
? 'google_ad_client = "pub-5315539198167919";'
? 'google_ad_width = 728;'
? 'google_ad_height = 15;'
? 'google_ad_format = "728x15_0ads_al";'
? 'google_ad_channel ="";'
? 'google_color_border = "A8DDA0";'
? 'google_color_bg = "FDFFCA";'
? 'google_color_link = "006600";'
? 'google_color_url = "008000";'
? 'google_color_text = "000000";'
? '//--></script>'
? '<script type="text/javascript"'
? '  src="http://pagead2.googlesyndication.com/pagead/show_ads.js">'
? '</script></div>  <!--                                                     EINDE Linkregel Google -->'
? '<div id="pageHeader"><p> <!--                                                   Foodlexicon logo -->'
DO FWWWKAP WITH "INHPICS"
? '<!--                                                                      Food terms dictionary  -->'
? '<img src="'+MXINHPICSDIR+'_space.gif" width="10" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'_space.gif" width="10" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'_streep.gif" width="13" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'_space.gif" width="10" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'_space.gif" width="10" height="43" alt="" border="0" />'
? 
? '<img src="'+MXINHPICSDIR+'_k.gif" width="14" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'o.gif" width="12" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'o.gif" width="12" height="43" alt="" border="0" /> '
? '<img src="'+MXINHPICSDIR+'k.gif" width="12" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'w.gif" width="16" height="43" alt="" border="0" /> '
? '<img src="'+MXINHPICSDIR+'o.gif" width="12" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'o.gif" width="12" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'r.gif" width="10" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'d.gif" width="13" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'e.gif" width="11" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'n.gif" width="11" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'b.gif" width="13" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'o.gif" width="12" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'e.gif" width="11" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'k.gif" width="12" height="43" alt="" border="0" />'
? '<br /><!--                                                                         TRANSLATIONS  -->'
? '<img class="links" src="'+MXINHPICSDIR+'_v.gif" width="13" height="43" alt="" border="0" />'
? '<img class="links" src="'+MXINHPICSDIR+'e.gif" width="11" height="43" alt="" border="0" />'
? '<img class="links" src="'+MXINHPICSDIR+'r.gif" width="10" height="43" alt="" border="0" />'
? '<img class="links" src="'+MXINHPICSDIR+'t.gif" width="10" height="43" alt="" border="0" />'
? '<img class="links" src="'+MXINHPICSDIR+'a.gif" width="12" height="43" alt="" border="0" />'
? '<img class="links" src="'+MXINHPICSDIR+'l.gif" width="7" height="43" alt="" border="0" />'
? '<img class="links" src="'+MXINHPICSDIR+'i.gif" width="7" height="43" alt="" border="0" />'
? '<img class="links" src="'+MXINHPICSDIR+'n.gif" width="11" height="43" alt="" border="0" />'
? '<img class="links" src="'+MXINHPICSDIR+'g.gif" width="13" height="43" alt="" border="0" />'
? '<img class="links" src="'+MXINHPICSDIR+'e.gif" width="11" height="43" alt="" border="0" />'
? '<img class="links" src="'+MXINHPICSDIR+'n.gif" width="11" height="43" alt="" border="0" />'
? '<img class="links" src="'+MXINHPICSDIR+'_space.gif" width="10" height="43" alt="" border="0" />'
? '<img class="links" src="'+MXINHPICSDIR+'i.gif" width="7" height="43" alt="" border="0" /> '
? '<img class="links" src="'+MXINHPICSDIR+'n.gif" width="11" height="43" alt="" border="0" />'
? '<img class="links" src="'+MXINHPICSDIR+'_space.gif" width="10" height="43" alt="" border="0" />'
? '<img class="links" src="'+MXINHPICSDIR+'7.gif" width="10" height="43" alt="" border="0" />'
? '<img class="links" src="'+MXINHPICSDIR+'_space.gif" width="10" height="43" alt="" border="0" />'
? '<img class="links" src="'+MXINHPICSDIR+'t.gif" width="10" height="43" alt="" border="0" />'
? '<img class="links" src="'+MXINHPICSDIR+'a.gif" width="12" height="43" alt="" border="0" />'
? '<img class="links" src="'+MXINHPICSDIR+'l.gif" width="7" height="43" alt="" border="0" />'
? '<img class="links" src="'+MXINHPICSDIR+'e.gif" width="11" height="43" alt="" border="0" />'
? '<img class="links" src="'+MXINHPICSDIR+'n.gif" width="11" height="43" alt="" border="0" />'
? '<img class="links" src="'+MXINHPICSDIR+'_dpunt.gif" width="7" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'_space.gif" width="10" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'_e.gif" width="11" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'_n.gif" width="15" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'_komma.gif" width="7" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'_space.gif" width="10" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'_d.gif" width="15" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'_e.gif" width="11" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'_komma.gif" width="7" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'_space.gif" width="10" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'_f.gif" width="12" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'_r.gif" width="13" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'_komma.gif" width="7" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'_space.gif" width="10" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'_d.gif" width="15" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'_a.gif" width="13" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'_komma.gif" width="7" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'_space.gif" width="10" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'_e.gif" width="11" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'_s.gif" width="13" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'_komma.gif" width="7" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'_space.gif" width="10" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'_s.gif" width="13" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'_e.gif" width="11" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'_komma.gif" width="7" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'_space.gif" width="10" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'_n.gif" width="15" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'_l.gif" width="9" height="43" alt="" border="0" />'
? '<br /><br />'
? '<!--                                                                              naar  nl index -->'
? '</p><div id="keuzeTaal">'
? '<span lang="EN"><a href="index.html"><img src="'+MXINHPICSDIR+'gb01.gif" width="30" height="16" border="0" alt="" />'
? '&nbsp;[ English text ]</a></span></div></div><!--                    EINDE pageHeader, keuzeTaal -->'
? '<div id="koekelcol">'
* weg met kolom
*? '<div class="nietprinten"> <!--               Google adds        GOOGLE KOLOM -->'
*? '<script type="text/javascript"><!--'
*? 'google_ad_client = "pub-5315539198167919";'
*? 'google_ad_width = 160;'
*? 'google_ad_height = 600;'
*? 'google_ad_format = "160x600_as";'
*? 'google_ad_type = "text_image";'
*? 'google_ad_channel ="";'
*? 'google_color_border = "E8FFD0";'
*? 'google_color_bg = "E8FFD0";'
*? 'google_color_link = "006633";'
*? 'google_color_text = "000000";'
*? 'google_color_url = "CAF99B";'
*? '//--></script>'
*? '<script type="text/javascript"'
*? '  src="http://pagead2.googlesyndication.com/pagead/show_ads.js">'
*? '</script></div>'
*----------
*? '<br /><br /><img src="'+MXINHPICSDIR+'_o.gif" width="15" height="43" alt="" border="0" />'
*? '<img src="'+MXINHPICSDIR+'n.gif" width="11" height="43" alt="" border="0" />'
*? '<img src="'+MXINHPICSDIR+'s.gif" width="10" height="43" alt="" border="0" />'
*? '<img src="'+MXINHPICSDIR+'_space.gif" width="10" height="43" alt="" border="0" />'
*? '<img src="'+MXINHPICSDIR+'h.gif" width="11" height="43" alt="" border="0" />'
*? '<img src="'+MXINHPICSDIR+'u.gif" width="12" height="43" alt="" border="0" />'
*? '<img src="'+MXINHPICSDIR+'i.gif" width="7" height="43" alt="" border="0" />'
*? '<img src="'+MXINHPICSDIR+'s.gif" width="10" height="43" alt="" border="0" />'
*? '<br />'
*? '<img src="'+MXINHPICSDIR+'i.gif" width="7" height="43" alt="" border="0" />'
*? '<img src="'+MXINHPICSDIR+'n.gif" width="11" height="43" alt="" border="0" />'
*? '<img src="'+MXINHPICSDIR+'_space.gif" width="10" height="43" alt="" border="0" />'
*? '<img src="'+MXINHPICSDIR+'_z.gif" width="9" height="43" alt="" border="0" />'
*? '<img src="'+MXINHPICSDIR+'w.gif" width="16" height="43" alt="" border="0" />'
*? '<img src="'+MXINHPICSDIR+'e.gif" width="11" height="43" alt="" border="0" /> '
*? '<img src="'+MXINHPICSDIR+'d.gif" width="13" height="43" alt="" border="0" />'
*? '<img src="'+MXINHPICSDIR+'e.gif" width="11" height="43" alt="" border="0" />'
*? '<img src="'+MXINHPICSDIR+'n.gif" width="11" height="43" alt="" border="0" />'
*? '<br /><br />'
*? '<img class="links" src="'+MXINHPICSDIR+'zweden.png" width="160" height="166" border="0" '
*? 'alt="Ons huis in Zweden." /><p><br /><br /><br />'
*---------
? '<br /><br /><img src="'+MXINHPICSDIR+'_t.gif" width="11" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'e.gif" width="11" height="43" alt="" border="0" /> '
? '<img src="'+MXINHPICSDIR+'_space.gif" width="10" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'k.gif" width="12" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'o.gif" width="12" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'o.gif" width="12" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'p.gif" width="13" height="43" alt="" border="0" />'
? '<br />'
? '<img src="'+MXINHPICSDIR+'i.gif" width="7" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'n.gif" width="11" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'_space.gif" width="10" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'_z.gif" width="14" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'w.gif" width="16" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'e.gif" width="11" height="43" alt="" border="0" /> '
? '<img src="'+MXINHPICSDIR+'d.gif" width="13" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'e.gif" width="11" height="43" alt="" border="0" />'
? '<img src="'+MXINHPICSDIR+'n.gif" width="11" height="43" alt="" border="0" />'
? '<br /><br />'
? '<img class="links" src="'+MXINHPICSDIR+'klevsti.png" width="160" height="166" border="0" '
? 'alt="Klevstige 2, &Ouml;verum, Sweden." /><br /><br /><br /><p>'
? 'Bij<br /> <a href="http://objekt.fastighetsbyran.se/Objekt/?source=hemnet&ObjektGID=OBJ6260_1082699604" '
? 'target="_blank" title="Te koop Klevstige 2, &Ouml;verum, Zweden."> [ Fastighetsbyr&aring;n ] </a></p>'
? '<br />'
? '<img class="links" src="'+MXINHPICSDIR+'harriet.png" width="160" height="166" border="0" '
? 'alt="Ringv&auml;gen 9, &Ouml;verum, Sweden." /><br /><br /><br /><p>'
? 'Bij<br /> <a href="mailto:info@foodlexicon.net">  [ Harriet te koop. ] </p></a>'
*
? '<br /><br /><br />      <!--         Google adds              EINDE  GOOGLE KOLOM -->'
? '<img class="nietprinten" src="'+MXINHPICSDIR+'pijltjes.png" width="150" border="0" height="68" usemap="#prikkaart" alt="navigation arrows" />'
? '<map name="prikkaart" id="ponskaart">'
? '   <area shape="poly" coords="3,31,30,2,30,17,67,17,28,56" alt=""'
? '   href="javascript:history.go(-1)" title="Back to the previous page; Terug naar vorige pagina." />'
? '   <area shape="poly" coords="44,49,76,19,101,49,88,66,61,63" alt=""'
? '   href="index.html" title="Back Home; Naar 1e pagina." />'
? '   <area shape="poly" coords="81,17,116,16,116,0,146,30,120,56" alt=""'
? '   href="javascript:void(0)" onclick="window.open('+CHR(39)+'indnl.htm'+CHR(39)+')" '
? '   title="Open this page in a new window; Open deze pagina in een nieuwe window." />'
? '</map></div>      <!--                                                       EINDE div koekeltop -->'
? '<br /><div id="mainPage"><!--                                                           mainPage -->'
IF FEESTDGN  = "KERST"
   ? '<!--                                                                     VROLIJKE KERST          -->'
   ? '<p><span class="bggroen">'
   ? '<img class="nietprinten" src="'+MXINHPICSDIR+'kerstx.png" width="36" border="0" height="50"  alt="julnissen" />'
   ? '<img src="'+MXINHPICSDIR+'_space.gif" width="10" height="43" alt="" border="0" />'
   ? '<img src="'+MXINHPICSDIR+'_v.gif" width="13" height="43" alt="" border="0" /> '
   ? '<img src="'+MXINHPICSDIR+'r.gif" width="10" height="43" alt="" border="0" /> '
   ? '<img src="'+MXINHPICSDIR+'o.gif" width="12" height="43" alt="" border="0" />'
   ? '<img src="'+MXINHPICSDIR+'l.gif" width="7" height="43" alt="" border="0" />'
   ? '<img src="'+MXINHPICSDIR+'i.gif" width="7" height="43" alt="" border="0" />'
   ? '<img src="'+MXINHPICSDIR+'j.gif" width="9" height="43" alt="" border="0" />'
   ? '<img src="'+MXINHPICSDIR+'k.gif" width="12" height="43" alt="" border="0" />'
   ? '<img src="'+MXINHPICSDIR+'_space.gif" width="10" height="43" alt="" border="0" />'
   ? '<img src="'+MXINHPICSDIR+'_space.gif" width="10" height="43" alt="" border="0" />'
   ? '<img src="'+MXINHPICSDIR+'_k.gif" width="14" height="43" alt="" border="0" />'
   ? '<img src="'+MXINHPICSDIR+'e.gif" width="11" height="43" alt="" border="0" /> '
   ? '<img src="'+MXINHPICSDIR+'r.gif" width="10" height="43" alt="" border="0" /> '
   ? '<img src="'+MXINHPICSDIR+'s.gif" width="10" height="43" alt="" border="0" /> '
   ? '<img src="'+MXINHPICSDIR+'t.gif" width="10" height="43" alt="" border="0" /> '
   ? '<img src="'+MXINHPICSDIR+'f.gif" width="9" height="43" alt="" border="0" /> '
   ? '<img src="'+MXINHPICSDIR+'e.gif" width="11" height="43" alt="" border="0" /> '
   ? '<img src="'+MXINHPICSDIR+'e.gif" width="11" height="43" alt="" border="0" />'
   ? '<img src="'+MXINHPICSDIR+'s.gif" width="10" height="43" alt="" border="0" />'
   ? '<img src="'+MXINHPICSDIR+'t.gif" width="10" height="43" alt="" border="0" /> '
   ? '<img src="'+MXINHPICSDIR+'_space.gif" width="10" height="43" alt="" border="0" />'
   ? '<img class="nietprinten" src="'+MXINHPICSDIR+'kerst.png" width="58" border="0" height="48"  alt="kerstboom" />'
   ? '</span><br /><br /></p>'
ENDIF
IF FEESTDGN  = "NIEUWJAAR"
   ? '<!--                                                                     GELUKKIG NIEUWJAAR      -->'
   ? '<p><span class="bggroen">'
   ? '<img class="links" src="'+MXINHPICSDIR+'knal.png" width="50" border="0" height="50"  alt="12 uur" />'
   ? '<img class="links" src="'+MXINHPICSDIR+'_space.gif" width="10" height="43" alt="" border="0" />'
   ? '<img class="links" src="'+MXINHPICSDIR+'_g.gif" width="14" height="43" alt="" border="0" /> '
   ? '<img class="links" src="'+MXINHPICSDIR+'e.gif" width="11" height="43" alt="" border="0" />'
   ? '<img class="links" src="'+MXINHPICSDIR+'l.gif" width="7" height="43" alt="" border="0" />'
   ? '<img class="links" src="'+MXINHPICSDIR+'u.gif" width="12" height="43" alt="" border="0" />'
   ? '<img class="links" src="'+MXINHPICSDIR+'k.gif" width="12" height="43" alt="" border="0" />'
   ? '<img class="links" src="'+MXINHPICSDIR+'k.gif" width="12" height="43" alt="" border="0" />'
   ? '<img class="links" src="'+MXINHPICSDIR+'i.gif" width="7" height="43" alt="" border="0" />'
   ? '<img class="links" src="'+MXINHPICSDIR+'g.gif" width="13" height="43" alt="" border="0" />'
   ? '<img class="links" src="'+MXINHPICSDIR+'_space.gif" width="10" height="43" alt="" border="0" />'
   ? '<img class="links" src="'+MXINHPICSDIR+'n.gif" width="11" height="43" alt="" border="0" />'
   ? '<img class="links" src="'+MXINHPICSDIR+'i.gif" width="7" height="43" alt="" border="0" /> '
   ? '<img class="links" src="'+MXINHPICSDIR+'e.gif" width="11" height="43" alt="" border="0" />'
   ? '<img class="links" src="'+MXINHPICSDIR+'u.gif" width="12" height="43" alt="" border="0" />'
   ? '<img class="links" src="'+MXINHPICSDIR+'w.gif" width="16" height="43" alt="" border="0" />'
   ? '<img class="links" src="'+MXINHPICSDIR+'j.gif" width="9" height="43" alt="" border="0" />'
   ? '<img class="links" src="'+MXINHPICSDIR+'a.gif" width="12" height="43" alt="" border="0" />'
   ? '<img class="links" src="'+MXINHPICSDIR+'a.gif" width="12" height="43" alt="" border="0" />'
   ? '<img class="links" src="'+MXINHPICSDIR+'r.gif" width="10" height="43" alt="" border="0" />'
   ? '<img class="links" src="'+MXINHPICSDIR+'_space.gif" width="10" height="43" alt="" border="0" />'
   ? '<img class="links" src="'+MXINHPICSDIR+'_space.gif" width="10" height="43" alt="" border="0" />'
   ? '<img class="links" src="'+MXINHPICSDIR+'_uitroep.gif" width="8" height="43" alt="" border="0" />'
   ? '<img class="links" src="'+MXINHPICSDIR+'_space.gif" width="10" height="43" alt="" border="0" />'
   ? '<img class="links" src="'+MXINHPICSDIR+'nieuwjr.png" width="36" border="0" height="70"  alt="sneeuwpop" />'
   ? '</span></p><br /><br /><br /><br />' 

 
ENDIF
? '<!--                                                                        naar 1e index letter -->'
? '<img src="'+MXINHPICSDIR+'ffind.png" width="28" height="16" border="0" alt="">'
? 'Kies de eerste letter van het woord: <br /><br />' 
? '<a href="--words.htm"> [ Blank ] </a> '
? '<a href="indxnla.htm"> [ A ] </a> '
? '<a href="indxnlb.htm"> [ B ] </a> '
? '<a href="indxnlc.htm"> [ C ] </a> '
? '<a href="indxnld.htm"> [ D ] </a> '
? '<a href="indxnle.htm"> [ E ] </a> '
? '<a href="indxnlf.htm"> [ F ] </a> '
? '<a href="indxnlg.htm"> [ G ] </a>'
? '<a href="indxnlh.htm"> [ H ] </a> '
? '<a href="indxnli.htm"> [ I ] </a> '
? '<a href="indxnlj.htm"> [ J ] </a> '
? '<a href="indxnlk.htm"> [ K ] </a> '
? '<a href="indxnll.htm"> [ L ] </a> '
? '<a href="indxnlm.htm"> [ M ] </a><br /> '
? '<a href="indxnln.htm"> [ N ] </a> '
? '<a href="indxnlo.htm"> [ O ] </a> '
? '<a href="indxnlp.htm"> [ P ] </a> '
? '<a href="indxnlq.htm"> [ Q ] </a> '
? '<a href="indxnlr.htm"> [ R ] </a> '
? '<a href="indxnls.htm"> [ S ] </a>'
? '<a href="indxnlt.htm"> [ T ] </a> '
? '<a href="indxnlu.htm"> [ U ] </a> '
? '<a href="indxnlv.htm"> [ V ] </a> '
? '<a href="indxnlw.htm"> [ W ] </a> '
? '<a href="indxnlx.htm"> [ X ] </a>'
? '<a href="indxnly.htm"> [ Y ] </a>'
? '<a href="indxnlz.htm"> [ Z ] </a><br /> '
? '<a href="1awords.htm"> [ &#xC5; -dansk ] </a> '
? '<a href="2awords.htm"> [ &#xC5; -svensk ] </a> '
? '<a href="3awords.htm"> [ &#xC4; ] </a> '
? '<a href="4awords.htm"> [ &#xC6; ] </a> '
? '<a href="5awords.htm"> [ &#xD6; ] </a> '
? '<a href="6awords.htm"> [ &#xD8; ] </a> '
? 
? '<br /><br /><object id="goegel">    <!--                                      naar google search -->'
? '<img src="'+MXINHPICSDIR+'ffind.png" width="28" height="16" border="0" alt="" />'
? 'Of vul het gezochte woord in: <br /> '
? '<!--                                                               SiteSearch / InternetSearch -->'
? 'In www.foodlexicon.net:'
? '<div class="cse-branding-bottom"'
? 'style="background-color:#FFFFFF;color:#000000">'
? '  <div class="cse-branding-form">'
? '    <form action="http://www.foodlexicon.net/zoek.htm" id="cse-search-box">'
? '      <div>'
? '        <input type="hidden" name="cx"'
? 'value="partner-pub-5315539198167919:sw5sj0-epyz" />'
? '        <input type="hidden" name="cof" value="FORID:10" />'
? '        <input type="text" name="q" size="28" />'
? '        <input type="submit" name="sa" value="Search" />'
? '      </div>'
? '    </form>'
? '  </div>'
? '  <div class="cse-branding-logo">'
? '    <img'
? 'src="http://www.google.com/images/poweredby_transparent/poweredby_FFFFFF.gif"'
? 'alt="Google" />'
? '  </div>'
? '  <div class="cse-branding-text">'
? '    Custom Search'
? '  </div>'
? '</div>'
? '</object> <!--                                                          Einde SiteSearch Google -->'
? '<!--                                                                             CategorySearch -->'
? '<br /><object id="cats">'
? '<img src="'+MXINHPICSDIR+'ffind.png" width="28" height="16" border="0" alt="" />'
? 'Of zoek binnen een <a href="categori.htm">&nbsp;[ categorie ] </a><br /><br />'
? '</object>'
? '<br />   <!--                                                                          link menu -->'
? '<img src="'+MXINHPICSDIR+'finfo.png" width="28" height="16" border="0" alt="" />'
? '<a href="infonl.htm" title=""> [ Informatie over de site ] </a><br />'
? '<img src="'+MXINHPICSDIR+'finfo.png" width="28" height="16" border="0" alt="" />'
? '<a href="schaalnl.htm" title= ""> [ Maten, gewichten en temperaturen. ] </a><br />'
? '<img src="'+MXINHPICSDIR+'wfood.png" width="28" height="16" border="0" alt="" />'
? 'www.food-info.net: '
? '<a href="http://www.food-info.net/"  title=""> [ E-nummers, voedsel toevoegingen ] </a><br />'
? '<img src="'+MXINHPICSDIR+'finfo.png" width="28" height="16" border="0" alt="" />'
? '<a href="spechar.htm"> [ Speciale tekens en letters. ]</a><br />'
? '<img src="'+MXINHPICSDIR+'finfo.png" width="28" height="16" border="0" alt="" />'
? '<a href="langnl.htm"> [ Landen-Talen codes ] </a><br />'
? '<img src="'+MXINHPICSDIR+'finfo.png" width="28" height="16" border="0" alt="" />'
? '<a href="indxnltx.htm"> [ Help ons met vertalingen ] </a><br />'
? '<img src="'+MXINHPICSDIR+'de05.png" width="28" height="16" border="0" alt="" />'
? '<a href="http://www.lebensmittellexikon.de/"> [ www.lebensmittellexikon.de ] </a><br />'
? '<img src="'+MXINHPICSDIR+'lc.png" width="16" height="16" border="0" alt="Online dictionaries and language resources" />'
? '&nbsp;&nbsp;&nbsp;Online woordenboeken:<a href="http://www.lexicool.com/"> [ www.lexicool.com ]'
? '<img src="'+MXINHPICSDIR+'inc1.png" width="16" height="16" border="0" alt="" /> </a><br />'
? '<img src="'+MXINHPICSDIR+'finfo.png" width="28" height="16" border="0" alt="" />'
? '<a href="foodlink.htm"> [ Onze favorite links ] </a><br />'
? '<img src="'+MXINHPICSDIR+'finfo.png" width="28" height="16" border="0" alt="" />'
? '<a href="fsource.htm"> [ Onze open source ] </a><br /> '
? '<object id="halvezool">'
? '<div id="footer"><br /> <!--                                                http: foodlex, mail  -->'
? '<a href="http://www.foodlexicon.net"> Web: [ www.foodlexicon.net ] </a><br />'
? 'Help ons met aanvullingen/correcties:<br />'
? '<a href="mailto:info@foodlexicon.net"> E-mail: [ info@foodlexicon.net ] </a><br />'
? '&#x00A9; Webmasters Jos &#38; Marg Sparreboom.<br />'
? '<span lang="en">Page last revised on: 2011-10-29. <br />Site last revised on: '+MXDATUM
? '.<br />(yyyy-mm-dd).  Version '+MXVERSIE+'</span>'
? '<br />'
? '<p>'
? '  <a href="http://validator.w3.org/check?uri=referer"><img'
? '  src="http://www.w3.org/Icons/valid-xhtml10"'
? '  alt="Valid XHTML 1.0 Transitional" height="31" width="88" border="0" /></a>'
? '</p>'
? '<br />&nbsp;'
? '</div></object></div>  <!--                                                      EINDE  footer, mainPage  -->'
? '</div></div>  <!--                                                       EINDE container, intro  -->'
? '<div id="breaker1" />'
? '</body></html>'
SET ALTERNATE OFF
CLOSE ALTERNATE
RUN NOZ indnl.htm
*                                                ----------------
*                                                HTML.BAT
*                                                ----------------
* RUN Html.bat
*
MXMUT="?"
RETURN

*-----------------------------------------------------------------------*
*                                                          FBACKUP.PRG
*   BACKUP MAKEN VAN
*   FMOE.DBF, FMOE.MDX  
*   FSIDEMAP.DBF, FSIDEMAP.MDX
*   FPAGE.DBF, FPAGE.MDX
*   FSOORT.DBF, FSOORT.MDX
*   FMOLIJST.DBF, FMOLIJST.MDX
*   FZOEK.DBF, UNICODE.NDX
*   FLINK.DBF, FLINK.MDX
*   FTEKENS.DBF, FTEKENS.MDX
*   FTAAL.DBF, FTAAL.MDX
*                         
*   FOOD.PRG
*   FOODPROC.PRG
*   FOODLIST.PRG 
*   FOODMAKE.PRG
*   FOODINDX.PRG
*   FOODWWW.PRG
*   FTALEN.PRG
*   FIMISS.PRG FIMISSE.PRG
*   
* versie 11-04-2007 Dos copy werkt sneller en betrouwbaarder dan Rename   
*-----------------------------------------------------------------------*
PROCEDURE FBACKUP(FOODTAB, BACKTAB, BACKOUD)
*
IF .NOT. FILE(BACKTAB)                                     && BACKUP\FMOE.DBF
   RUN COPY &FOODTAB &BACKTAB                              && COPY FMOE TO BACKUP
ELSE
   RUN COPY &BACKTAB &BACKOUD                              && RENAME \FMOE.DBF TO \FOPOE.DBF
   RUN COPY &FOODTAB &BACKTAB                              && COPY FMOE TO BACKUP
ENDIF
*
RETURN

*-----------------------------------------------------------------------*
*-----------------------------------------------------------------------*
*-----------------------------------------------------------------------*
*-----------------------------------------------------------------------*
*-----------------------------------------------------------------------*