Link

BAR$LINK (RPGLE)



  X * LINKART$ BEGSR BAR$LINK 28  
  X * LINKART BEGSR BAR$LINK 49  
  X * LINKARTAW BEGSR BAR$LINK 19  
  X * LINKARTFILE BEGSR BAR$LINK 21  
  X * LINKARTFILE2 BEGSR BAR$LINK 22  
  X * LINKARTREF BEGSR BAR$LINK 30  
  X * LINKARTREFAW BEGSR BAR$LINK 16  
  X * LINKARTNEU BEGSR BAR$LINK 7  
  X * LINKADDNEU BEGSR BAR$LINK 17  
  X * LINKADDNEU# BEGSR BAR$LINK 18  
  X * LINKSMILY BEGSR BAR$LINK 22  
  X * LINKSMILY1 BEGSR BAR$LINK 27  
  X * LINKSMILYS BEGSR BAR$LINK 8  
  X * LINKKAL BEGSR BAR$LINK 8  
  X * LINKSRCS BEGSR BAR$LINK 8  
  X * LINKHTTPX BEGSR BAR$LINK 8  
  X * LINKSITEMAP BEGSR BAR$LINK 8  
  X * LINKBESUCHER BEGSR BAR$LINK 8  
  X * LINKANFRAGEN BEGSR BAR$LINK 8  
  X * LINKFINAME BEGSR BAR$LINK 33  
  X * LINKPARENT BEGSR BAR$LINK 24  
  X * LINKXML BEGSR BAR$LINK 21  
  X * LINKRSS BEGSR BAR$LINK 21  
  X * LINKATOM BEGSR BAR$LINK 21  
  X * LINKANLAGE BEGSR BAR$LINK 11  
  X * LINKBILD BEGSR BAR$LINK 19  
  X * LINKBILD2 BEGSR BAR$LINK 19  
  X * LINKMIN BEGSR BAR$LINK 14  
  X * LINKMIT BEGSR BAR$LINK 40  
  X * LINKMITREF BEGSR BAR$LINK 13  
  X * LINKMITXML BEGSR BAR$LINK 12  
  X * LINKMITRSS BEGSR BAR$LINK 12  
  X * LINKMITATOM BEGSR BAR$LINK 14  
  X * LINKMITBAR BEGSR BAR$LINK 12  
  X * LINKRUB BEGSR BAR$LINK 26  
  X * LINKRUBFILE BEGSR BAR$LINK 21  
  X * LINKRUBFILE2 BEGSR BAR$LINK 21  
  X * LINKRUBREF BEGSR BAR$LINK 13  
  X * LINKRUBNEU BEGSR BAR$LINK 9  
  X * LINKNAV BEGSR BAR$LINK 27  
  X * LINKNAVFILE BEGSR BAR$LINK 23  
  X * LINKNAVFILE2 BEGSR BAR$LINK 29  
  X * LINKNAVREF BEGSR BAR$LINK 36  
  X * LINKFILES BEGSR BAR$LINK 15  
  X * LINKFILESREF BEGSR BAR$LINK 9  
  X * LINKTITELMIT BEGSR BAR$LINK 21  
  X * LINKTITELRUB BEGSR BAR$LINK 21  
  X * LINKTITELNAV BEGSR BAR$LINK 7  
  X * LINKTITELFILES BEGSR BAR$LINK 12  
  X * LINKDAT1 BEGSR BAR$LINK 7  
  X * LINKDAT2 BEGSR BAR$LINK 7  
  X * LINKDAT3 BEGSR BAR$LINK 27  
  X * LINKDAT4 BEGSR BAR$LINK 40  
  X * LINKMIME BEGSR BAR$LINK 23  
  X * LINKINSTALL1 BEGSR BAR$LINK 18  
  X * LINKINSTALL2 BEGSR BAR$LINK 18  
  X * LINKINSTALL3 BEGSR BAR$LINK 18  
  X * LINKUPLOAD1 BEGSR BAR$LINK 19  
  X * LINKUPLOAD2 BEGSR BAR$LINK 19  
  X * LINKUPLOAD3 BEGSR BAR$LINK 19  
  X * LINKCLOSE BEGSR BAR$LINK 14  
  X * LINKPF BEGSR BAR$LINK 9  
  X * LINKAKT BEGSR BAR$LINK 9  
  X * LINKBAR BEGSR BAR$LINK 9  
  X * LINKMMM BEGSR BAR$LINK 8  
  X * LINKGAL BEGSR BAR$LINK 8  
  X * LINKIDX BEGSR BAR$LINK 8  
  X * LINKINF BEGSR BAR$LINK 8  
  X * LINKCNT BEGSR BAR$LINK 22  
  X * LINKPRF BEGSR BAR$LINK 18  
  X * LINKLOG BEGSR BAR$LINK 17  
  X * LINKNEUAW BEGSR BAR$LINK 8  
  X * LINKNEUMIT BEGSR BAR$LINK 8  
  X * LINKNEUPWD BEGSR BAR$LINK 8  
  X * LINKNEUPN BEGSR BAR$LINK 8  
  X * LINKMITPN BEGSR BAR$LINK 8  
  X * LINKMITART BEGSR BAR$LINK 8  
  X * LINKEDTMIT BEGSR BAR$LINK 12  
  X * LINKCHGPWD BEGSR BAR$LINK 8  
  X * LINKCHGMAIL BEGSR BAR$LINK 8  
  X * LINKGELPN BEGSR BAR$LINK 8  
  X * LINKGELART BEGSR BAR$LINK 8  
  X * LINKNAV1 BEGSR BAR$LINK 55  
  X * LINKNAV2 BEGSR BAR$LINK 18  
  X * LINKNAVREL BEGSR BAR$LINK 19  
  X * LINKNAVRELX BEGSR BAR$LINK 27  
  X * LINKNAVHTML BEGSR BAR$LINK 23  
  X * LINKIDXREL BEGSR BAR$LINK 19  
  X * LINKSMILYSREL BEGSR BAR$LINK 24  
  X * LINKNAVSTYLE BEGSR BAR$LINK 7  
  X * LINKADDB BEGSR BAR$LINK 7  
  X * LINKADD23 BEGSR BAR$LINK 20  
  X * LINKADDPN BEGSR BAR$LINK 16  
  X * LINKADDTYP BEGSR BAR$LINK 13  
  X * LINKDSPLY BEGSR BAR$LINK 12  
  X  
  X * MIKEY1ART$ KLIST BAR$LINK 3  
  X * MIKEY1ART KLIST BAR$LINK 3  
  X * GEKEY1 KLIST BAR$LINK 5  
  X * AWKEY2 KLIST BAR$LINK 4  
  X * AWKEY2SET KLIST BAR$LINK 5  
  X * SMKEY1MIT KLIST BAR$LINK 3  
  X * MIKEY1MIT KLIST BAR$LINK 3  
  X * RUKEY1RUB KLIST BAR$LINK 3  
  X * NAKEYNNAV KLIST BAR$LINK 3  
  X  
  X * NUMSTR EXSR BAR$NUM    
  X * ARTTITEL EXSR BAR$ART    
  X * MYTITELX EXSR BAR$TEXT    
  X * ARTTITEL EXSR BAR$ART    
  X * MYTITELX EXSR BAR$TEXT    
  X * ARTSPERRE EXSR BAR$ART    
  X * ARTFILESRC EXSR BAR$ART    
  X * NUMSTR EXSR BAR$NUM    
  X * NUMSTR EXSR BAR$NUM    
  X * MYTITELX EXSR BAR$TEXT    
  X * SRCEXIST EXSR BAR$EXIST    
  X * MYTITELX EXSR BAR$TEXT    
  X * SRCEXIST EXSR BAR$EXIST    
  X * NATYPNAV EXSR BAR$NAV    
  X * NATYPNAV EXSR BAR$NAV    
  X * NATYPNAV EXSR BAR$NAV    
  X * NATYPNAV EXSR BAR$NAV    
  X * NATYPNAV EXSR BAR$NAV    
  X * NATYPNAV EXSR BAR$NAV    
  X * NATYPNAV EXSR BAR$NAV    
  X * MYTITELXFORM EXSR BAR$TEXT    
  X * NATYPNAV EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * MYTITELX EXSR BAR$TEXT    
  X * SRCEXIST EXSR BAR$EXIST    
  X * MYTITELX EXSR BAR$TEXT    
  X * SRCEXIST EXSR BAR$EXIST    
  X * ARTFILEMIN EXSR BAR$ART    
  X * MYTITELX EXSR BAR$TEXT    
  X * MYTITELX EXSR BAR$TEXT    
  X * MYTITELX EXSR BAR$TEXT    
  X * MYTITELX EXSR BAR$TEXT    
  X * TEXTCOLOR EXSR BAR$TEXT    
  X * MYTITELX EXSR BAR$TEXT    
  X * ARTFILESRC EXSR BAR$ART    
  X * LISTERUBNEU EXSR BAR$LISTE    
  X * MYTITELX EXSR BAR$TEXT    
  X * SEITEFILEX EXSR BAR$SEITE    
  X * ARTFILESRC EXSR BAR$ART    
  X * ARTFILEICN EXSR BAR$ART    
  X * MYTITELXFORM EXSR BAR$TEXT    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * NATYPNAV EXSR BAR$NAV    
  X * SEITENAVSR EXSR BAR$SEITE    
  X * WWWHREF EXSR BAR$TEXT    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * WWWHREF EXSR BAR$TEXT    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * WWWHREF EXSR BAR$TEXT    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * MYTYPTITEL EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * LISTEPFNEU EXSR BAR$LISTE    
  X * NATYPNAV EXSR BAR$NAV    
  X * LISTEAKTNEU EXSR BAR$LISTE    
  X * NATYPNAV EXSR BAR$NAV    
  X * LISTEBARMMM EXSR BAR$LISTE    
  X * NATYPNAV EXSR BAR$NAV    
  X * NATYPNAV EXSR BAR$NAV    
  X * NATYPNAV EXSR BAR$NAV    
  X * NATYPNAV EXSR BAR$NAV    
  X * NATYPNAV EXSR BAR$NAV    
  X * NATYPNAV EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * MYTITELX EXSR BAR$TEXT    
  X * NATYPNAV EXSR BAR$NAV    
  X * NATYPNAV EXSR BAR$NAV    
  X * NATYPNAV EXSR BAR$NAV    
  X * NATYPNAV EXSR BAR$NAV    
  X * NATYPNAV EXSR BAR$NAV    
  X * NATYPNAV EXSR BAR$NAV    
  X * NATYPNAV EXSR BAR$NAV    
  X * NATYPNAV EXSR BAR$NAV    
  X * NATYPNAV EXSR BAR$NAV    
  X * NATYPNAV EXSR BAR$NAV    
  X * NATYPNAV EXSR BAR$NAV    
  X * NATYPNAV EXSR BAR$NAV    
  X * NATYPNAV EXSR BAR$NAV    
  X * NATYPNAV EXSR BAR$NAV    
  X * NATYPNAV EXSR BAR$NAV    
  X * NATYPNAV EXSR BAR$NAV    
  X * MYTITELX EXSR BAR$TEXT    
  X * MYTITELX EXSR BAR$TEXT    
  X * MYTITELX EXSR BAR$TEXT    
  X * MYTITELX EXSR BAR$TEXT    
  X * MYTITELX EXSR BAR$TEXT    
  X * MYTITELX EXSR BAR$TEXT    
  X * MYTITELX EXSR BAR$TEXT    
  X  
C          
C *COPYRIGHT JÜRGEN REULE 2010-2024
C          
  X * ARTVOR EXSR BAR$ART    
  X * ARTNACH EXSR BAR$ART    
  X  
C     LINKART$ BEGSR                
C     *IN77 IFEQ *OFF              
C       OPEN MITGLIEDL1       — 77 —  
C     MIKEY1ART$ CHAIN MITGLIEDL1       77 77 —  
C *     --------------------------------------
C *     Artikel
C *     --------------------------------------
C       MOVEL(P) '<a' LINK            
C     *IN77 IFEQ *OFF              
C       CAT 'href="' :1 LINK            
C       CAT PFADREL :0 LINK            
C       CAT MINAV :0 LINK            
C       CAT '/' :0 LINK            
C     *ZERO ADD A$ART NUM            
C       EXSR NUMSTR              
C       CAT STR :0 LINK            
C       CAT HTML :0 LINK            
C       CAT QUERY :0 LINK            
C       CAT '"' :0 LINK            
C       ENDIF                
C       CAT TARGET :0 LINK            
C       CAT '>' :0 LINK            
C       CAT LINK2 :0 LINK            
C       CAT '</a>' :0 LINK            
C       ELSE                
C       MOVEL(P) LINK3 LINK            
C       ENDIF                
C       ENDSR                
C          
  X * LINKART$ CHAIN BAR$LINK    
  X  
C     MIKEY1ART$ KLIST                
C       KFLD   A$MAN            
C       KFLD   A$MIT            
C          
  X * ZEILEART2 EXSR BAR$ZEILE    
  X * ZEILEARTTEXT2 EXSR BAR$ZEILE    
  X  
C     LINKART BEGSR                
C       OPEN MITGLIEDL1       — 77 —  
C     MIKEY1ART CHAIN MITGLIEDL1       77 77 —  
C *     --------------------------------------
C *     Artikel
C *     --------------------------------------
C       MOVEL(P) '<a' LINK            
C     *IN77 IFEQ *OFF              
C       CAT 'href="' :1 LINK            
C       EXSR LINKARTREF              
C       CAT '"' :0 LINK            
C       ENDIF                
C       CAT TARGET :0 LINK            
C       CAT '>' :0 LINK            
C       EXSR ARTTITEL              
C     MYTITEL IFEQ BRUMMBRUMM              
C       MOVEL(P) BRUMMBRUMM2 MYTITEL            
C       ENDIF                
C     *IN66 IFEQ *ON              
C     MYTITEL ANDEQ HYAZINTHEN              
C       MOVEL(P) HYAZINTHEN2 MYTITEL            
C       ENDIF                
C       EXSR MYTITELX              
C       CAT MYTITEL :0 LINK            
C       CAT '</a>' :0 LINK            
C          
C *     --------------------------------------
C *     Kamerabild
C *     --------------------------------------
C     *BLANKS IFNE ARKAMERA              
C     *BLANKS ANDNE ARFILEX              
C     '-' ANDNE ARFILEX              
C       CAT '<font' :1 LINK            
C       CAT LIVECOLOR :0 LINK            
C       CAT NOWRAPSTYLE :0 LINK            
C       CAT '>' :0 LINK            
C       CAT MYLIVE# :0 LINK            
C       CAT '</font>' :0 LINK            
C       ENDIF                
C *     --------------------------------------
C *     Nur für Mitglieder
C *     --------------------------------------
C     NONFM IFNE ARNFM              
C   N68   CAT '<br>' :0 LINK            
C       CAT '(' :1 LINK            
C       CAT MYNFM# :0 LINK            
C       CAT ')' :0 LINK            
C       ENDIF                
C       ENDSR                
C          
  X * ARTINFOAW EXSR BAR$ART    
  X  
C     LINKARTAW BEGSR                
C       OPEN MITGLIEDL1       — 77 —  
C     MIKEY1ART CHAIN MITGLIEDL1       77 77 —  
C *     --------------------------------------
C *     Artikel
C *     --------------------------------------
C       MOVEL(P) '<a' LINK            
C     *IN77 IFEQ *OFF              
C       CAT 'href="' :1 LINK            
C       EXSR LINKARTREFAW              
C       CAT '"' :0 LINK            
C       ENDIF                
C       CAT TARGET :0 LINK            
C       CAT '>' :0 LINK            
C       EXSR ARTTITEL              
C       EXSR MYTITELX              
C       CAT MYTITEL :0 LINK            
C       CAT '</a>' :0 LINK            
C       ENDSR                
C          
  X * ZEILEART2 EXSR BAR$ZEILE    
  X * ZEILEARTINF EXSR BAR$ZEILE    
  X  
C     LINKARTFILE BEGSR                
C       OPEN MITGLIEDL1       — 77 —  
C     MIKEY1ART CHAIN MITGLIEDL1       77 77 —  
C *     --------------------------------------
C *     Artikel
C *     --------------------------------------
C     *IN77 IFEQ *OFF              
C       EXSR LINKARTFILE2              
C     *BLANKS IFNE LINK              
C       MOVEL(P) LINK LINK7            
C       MOVEL(P) '<a' LINK            
C       CAT 'href="' :1 LINK            
C       EXSR LINKARTREF              
C       CAT '"' :0 LINK            
C       CAT TARGET :0 LINK            
C       CAT '>' :0 LINK            
C       CAT LINK7 :0 LINK            
C       CAT '</a>' :0 LINK            
C       ENDIF                
C       ENDIF                
C       ENDSR                
C          
  X * LINKART CHAIN BAR$LINK    
  X * LINKARTAW CHAIN BAR$LINK    
  X * LINKARTFILE CHAIN BAR$LINK    
  X  
C     MIKEY1ART KLIST                
C       KFLD   ARMAN            
C       KFLD   ARMIT            
C          
  X * LINKARTFILE EXSR BAR$LINK    
  X  
C     LINKARTFILE2 BEGSR                
C       CLEAR   LINK            
C       MOVEL(P) ARFILEX MYFILEX            
C *     --------------------------------------
C *     Minibild einbinden
C *     --------------------------------------
C       EVAL SRC  =  %TRIM ( MINAV)+'/'+
C               %CHAR ( ARART)+MIN+MINX
C       EXSR ARTSPERRE              
C       EXSR ARTFILESRC              
C          
C *     --------------------------------------
C *     Minibild einbinden
C *     --------------------------------------
C     *BLANKS IFNE SRC              
C   N68   EVAL LINK = '<img border=0 +
C         title="" +
C           alt="" +
C           src="' + %TRIM(SRC)+'"'+
C                   %TRIMR(VSPACE)+'>'
C       ENDIF                
C       ENDSR                
C          
  X * LINKART EXSR BAR$LINK    
  X * LINKARTFILE EXSR BAR$LINK    
  X * ZEILEARTINF EXSR BAR$ZEILE    
  X  
C     LINKARTREF BEGSR                
C *     --------------------------------------
C *     Artikel
C *     --------------------------------------
C     PFADXX IFNE HTML              
C       CAT HTTP :0 LINK            
C       CAT MINAV :0 LINK            
C       CAT '/' :0 LINK            
C       ELSE                
C     UPPER:LOWER XLATE(P) ELEMENT2 ELEMENT8            
C     ELEMENT8 IFNE MINAV              
C       CAT PFADREL :0 LINK            
C       CAT MINAV :0 LINK            
C       CAT '/' :0 LINK            
C       ENDIF                
C       ENDIF                
C *     --------------------------------------
C *     Artikel
C *     --------------------------------------
C     *ZERO ADD ARART NUM            
C       EXSR NUMSTR              
C       CAT STR :0 LINK            
C       CAT HTML :0 LINK            
C       CAT QUERY :0 LINK            
C          
C *     --------------------------------------
C *     Anker zu Artikel
C *     --------------------------------------
C       EXSR LINKADDNEU#              
C       ENDSR                
C          
  X * LINKARTAW EXSR BAR$LINK    
  X  
C     LINKARTREFAW BEGSR                
C *     --------------------------------------
C *     Artikel
C *     --------------------------------------
C       CAT PFADREL1 :0 LINK            
C       CAT ELEMENT2 :0 LINK            
C       CAT HTML :0 LINK            
C       CAT QUERY :0 LINK            
C          
C *     --------------------------------------
C *     Anker zu Artikel
C *     --------------------------------------
C       CAT '#' :0 LINK            
C       CAT PREFIX :0 LINK            
C       CAT ELEMENT :0 LINK            
C       ENDSR                
C          
  X * ZEILEART2 EXSR BAR$ZEILE    
  X * ZEILEARTTEXT2 EXSR BAR$ZEILE    
  X  
C     LINKARTNEU BEGSR                
C *     --------------------------------------
C *     Hinweis für neuen Artikel
C *     --------------------------------------
C       EXSR LINKADDNEU              
C       MOVEL(P) LINKADD LINK            
C       ENDSR                
C          
  X * LINKARTNEU EXSR BAR$LINK    
  X * LINKADDNEU# EXSR BAR$LINK    
  X * GELESEN EXSR BAR$NEUED    
  X * ZEILEARTNEU EXSR BAR$ZEILE    
  X  
C     LINKADDNEU BEGSR                
C       CLEAR   LINKADD            
C *     --------------------------------------
C *     Hinweis für neuen Artikel
C *     --------------------------------------
C     NOMIT IFNE BEMIT              
C     ARPN IFNE NOPN              
C     ARDATAW ANDGT BEGELPN              
C     ARPN OREQ NOPN              
C     ARDATAW ANDGT BEGELART              
C       OPEN GELESENL1       — 77 —  
C     GEKEY1 CHAIN GELESENL1       77 77 —  
C   N77 ARDATAW COMP GEDATAW       77 — —  
C   77   MOVEL(P) NEU LINKADD            
C       ENDIF                
C       ENDIF                
C       ENDSR                
C          
  X * LINKADDNEU CHAIN BAR$LINK    
  X  
C     GEKEY1 KLIST                
C       KFLD   ARMAN            
C       KFLD   ARMIT            
C       KFLD   ARART            
C       KFLD   BEMIT            
C          
  X * LINKARTREF EXSR BAR$LINK    
  X  
C     LINKADDNEU# BEGSR                
C *     --------------------------------------
C *     Anker zu Artikel
C *     --------------------------------------
C       EXSR LINKADDNEU              
C     *BLANKS IFNE LINKADD              
C       OPEN ANTWORTL2       — 77 —  
C     AWKEY2SET SETLL ANTWORTL2       — 77 —  
C   N77 AWKEY2 READE ANTWORTL2       — 77 77  
C     *IN77 IFEQ *OFF              
C     *ZERO ADD AWAW NUM            
C       EXSR NUMSTR              
C       CAT '#' :0 LINK            
C       CAT PREFIX :0 LINK            
C       CAT STR :0 LINK            
C       ENDIF                
C       ENDIF                
C       ENDSR                
C          
  X * LINKADDNEU# READE BAR$LINK    
  X  
C     AWKEY2 KLIST                
C       KFLD   ARMAN            
C       KFLD   ARMIT            
C       KFLD   ARART            
C          
  X * LINKADDNEU# SETLL BAR$LINK    
  X  
C     AWKEY2SET KLIST                
C       KFLD   ARMAN            
C       KFLD   ARMIT            
C       KFLD   ARART            
C       KFLD   GEDATAW            
C          
  X * ZEILESMILY2 EXSR BAR$ZEILE    
  X  
C     LINKSMILY BEGSR                
C       EVAL LINK = ''
C *     --------------------------------------
C *     Smily
C *     --------------------------------------
C       MOVEL(P) SMTITEL MYTITEL            
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL EDTITEL            
C       EVAL SRC  =  %TRIM ( ELEMENT) +'/'+
C               %TRIM ( SMNAV)   +
C               %TRIM ( SMFILEX)
C       EXSR SRCEXIST              
C     *BLANKS IFNE SRC              
C       MOVEL(P) DISPLAYBLOCK SMILYADD            
C   68   EVAL LINK =  %TRIM ( EDTITEL)
C   N68   EVAL LINK = '<img border=0 +
C         title="" +
C           alt="'+%TRIM(EDTITEL)+'" +
C           src="'+%TRIM(SRC)+'"'+
C                 %TRIMR(SMILYADD)+'>'
C       ENDIF                
C       ENDSR                
C          
  X * LISTEMIT EXSR BAR$LISTE    
  X * ZEILEMIT2 EXSR BAR$ZEILE    
  X  
C     LINKSMILY1 BEGSR                
C       CLEAR   LINK            
C *     --------------------------------------
C *     Smily
C *     --------------------------------------
C       OPEN SMILYL1       — 77 —  
C     SMKEY1MIT CHAIN SMILYL1       77 77 —  
C     *IN77 IFEQ *OFF              
C       MOVEL(P) SMTITEL MYTITEL            
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL EDTITEL            
C       EVAL SRC  =  %TRIM ( PFADREL) +
C               %TRIM ( SMILYNAV)+'/'+
C               %TRIM ( SMNAV)   +
C               %TRIM ( SMFILEX)
C       EXSR SRCEXIST              
C     *BLANKS IFNE SRC              
C       MOVEL(P) DISPLAYBLOCK SMILYADD            
C   68   EVAL LINK =  %TRIM ( EDTITEL)
C   N68   EVAL LINK = '<img border=0 +
C         title="" +
C           alt="'+%TRIM(EDTITEL)+'" +
C           src="'+%TRIM(SRC)+'"'+
C                 %TRIMR(SMILYADD)+'>'
C       ENDIF                
C       ENDIF                
C       ENDSR                
C          
  X * LINKSMILY1 CHAIN BAR$LINK    
  X  
C     SMKEY1MIT KLIST                
C       KFLD   MIMAN            
C       KFLD   MISMILY1            
C          
  X * LISTEINF EXSR BAR$LISTE    
  X * NAVADDSMILYS EXSR BAR$NAV    
  X  
C     LINKSMILYS BEGSR                
C *     --------------------------------------
C *     Smilys
C *     --------------------------------------
C       MOVEL(P) TYPSMILYS NATYP            
C       EXSR NATYPNAV              
C       EXSR LINKSMILYSREL              
C       ENDSR                
C          
C     LINKKAL BEGSR                
C *     --------------------------------------
C *     Kalender
C *     --------------------------------------
C       MOVEL(P) TYPKAL NATYP            
C       EXSR NATYPNAV              
C       EXSR LINKNAVREL              
C       ENDSR                
C          
  X * LISTEINF EXSR BAR$LISTE    
  X  
C     LINKSRCS BEGSR                
C *     --------------------------------------
C *     Quellen
C *     --------------------------------------
C       MOVEL(P) TYPSRCS NATYP            
C       EXSR NATYPNAV              
C       EXSR LINKNAVREL              
C       ENDSR                
C          
  X * LISTEINF EXSR BAR$LISTE    
  X  
C     LINKHTTPX BEGSR                
C *     --------------------------------------
C *     HTTPX
C *     --------------------------------------
C       MOVEL(P) TYPHTTPX NATYP            
C       EXSR NATYPNAV              
C       EXSR LINKNAVREL              
C       ENDSR                
C          
  X * LISTEINF EXSR BAR$LISTE    
  X  
C     LINKSITEMAP BEGSR                
C *     --------------------------------------
C *     Sitemap
C *     --------------------------------------
C       MOVEL(P) TYPSITEMAP NATYP            
C       EXSR NATYPNAV              
C       EXSR LINKNAVREL              
C       ENDSR                
C          
  X * LISTEINF EXSR BAR$LISTE    
  X  
C     LINKBESUCHER BEGSR                
C *     --------------------------------------
C *     Besucher
C *     --------------------------------------
C       MOVEL(P) TYPBESUCHER NATYP            
C       EXSR NATYPNAV              
C       EXSR LINKNAVREL              
C       ENDSR                
C          
  X * LISTEINF EXSR BAR$LISTE    
  X  
C     LINKANFRAGEN BEGSR                
C *     --------------------------------------
C *     Anfragen
C *     --------------------------------------
C       MOVEL(P) TYPANFRAGEN NATYP            
C       EXSR NATYPNAV              
C       EXSR LINKNAVREL              
C       ENDSR                
C          
  X * ZEILEFILE2 EXSR BAR$ZEILE    
  X  
C     LINKFINAME BEGSR                
C       CLEAR   LINK            
C *     --------------------------------------
C *     Verweis auf Datei
C *     --------------------------------------
C     *BLANKS IFNE FINAME              
C       MOVEL(P) FINAME MYTITEL            
C       EXSR MYTITELXFORM              
C       MOVEL(P) '<a' LINK            
C       CAT 'href="' :1 LINK            
C       CAT ELEMENT :0 LINK            
C       CAT '/' :0 LINK            
C       CAT MYTITEL :0 LINK            
C     FITYPE IFEQ ISDIR              
C       CAT PFADX :0 LINK            
C       ENDIF                
C       CAT QUERY :0 LINK            
C       CAT '"' :0 LINK            
C       CAT TARGET :0 LINK            
C       CAT NOTRANSLATE :0 LINK            
C       CAT '>' :0 LINK            
C       CAT MYTITEL :0 LINK            
C       CAT '</a>' :0 LINK            
C *     --------------------------------------
C *     Verzeichnis ausgeben
C *     --------------------------------------
C     *BLANKS IFNE DEBUG              
C     BEMIT IFEQ WEBMASTER              
C     EDTITEL CAT LINK :0 LINK            
C       ENDIF                
C       ENDIF                
C       ENDIF                
C       ENDSR                
C          
  X * NAVADDPARENT EXSR BAR$NAV    
  X  
C     LINKPARENT BEGSR                
C       CLEAR   LINK            
C *     --------------------------------------
C *     Verweis auf PARENT
C *     --------------------------------------
C     *BLANKS IFNE ELEMENT2              
C       MOVEL(P) '<a' LINK            
C       CAT 'href="' :1 LINK            
C       CAT PFADREL1 :0 LINK            
C       CAT ELEMENT2 :0 LINK            
C       CAT PFADX :0 LINK            
C       CAT QUERY :0 LINK            
C       CAT '"' :0 LINK            
C       CAT TARGET :0 LINK            
C       CAT NOTRANSLATE :0 LINK            
C       CAT '>' :0 LINK            
C       MOVEL(P) TYPPARENT NATYP            
C       EXSR NATYPNAV              
C       MOVEL(P) TITITEL MYTITEL            
C       EXSR MYTITELX              
C       CAT MYTITEL :0 LINK            
C       CAT '</a>' :0 LINK            
C       ENDIF                
C       ENDSR                
C          
  X * TABLECOPY EXSR BAR$SEND    
  X  
C     LINKXML BEGSR                
C *     --------------------------------------
C *     XML-Sitemap
C *     --------------------------------------
C **     MOVEL(P) SPXML MYTITEL            
C       MOVEL(P) 'SPXML' MYTYP            
C       EXSR MYTYPTITEL              
C       MOVEL(P) 'xml.gif' EDTITEL            
C       MOVEL(P) NOROUNDSTYLE5 BILDADD            
C       EXSR LINKBILD              
C       MOVEL(P) LINK MYTITEL            
C       MOVEL(P) '<a' LINK            
C       CAT 'href="' :1 LINK            
C       CAT HREFXML :0 LINK            
C       CAT '"' :0 LINK            
C       CAT TARGET :0 LINK            
C       CAT NOFOLLOW :0 LINK            
C       CAT '>' :0 LINK            
C       CAT MYTITEL :0 LINK            
C       CAT '</a>' :0 LINK            
C       ENDSR                
C          
  X * TABLECOPY EXSR BAR$SEND    
  X  
C     LINKRSS BEGSR                
C *     --------------------------------------
C *     RSS-Feed
C *     --------------------------------------
C **     MOVEL(P) SPRSS MYTITEL            
C       MOVEL(P) 'SPRSS' MYTYP            
C       EXSR MYTYPTITEL              
C       MOVEL(P) 'rss.gif' EDTITEL            
C       MOVEL(P) NOROUNDSTYLE5 BILDADD            
C       EXSR LINKBILD              
C       MOVEL(P) LINK MYTITEL            
C       MOVEL(P) '<a' LINK            
C       CAT 'href="' :1 LINK            
C       CAT HREFRSS :0 LINK            
C       CAT '"' :0 LINK            
C       CAT TARGET :0 LINK            
C       CAT NOFOLLOW :0 LINK            
C       CAT '>' :0 LINK            
C       CAT MYTITEL :0 LINK            
C       CAT '</a>' :0 LINK            
C       ENDSR                
C          
  X * TABLECOPY EXSR BAR$SEND    
  X  
C     LINKATOM BEGSR                
C *     --------------------------------------
C *     Atom-Feed
C *     --------------------------------------
C **     MOVEL(P) SPATOM MYTITEL            
C       MOVEL(P) 'SPATOM' MYTYP            
C       EXSR MYTYPTITEL              
C       MOVEL(P) 'atom.gif' EDTITEL            
C       MOVEL(P) NOROUNDSTYLE5 BILDADD            
C       EXSR LINKBILD              
C       MOVEL(P) LINK MYTITEL            
C       MOVEL(P) '<a' LINK            
C       CAT 'href="' :1 LINK            
C       CAT HREFATOM :0 LINK            
C       CAT '"' :0 LINK            
C       CAT TARGET :0 LINK            
C       CAT NOFOLLOW :0 LINK            
C       CAT '>' :0 LINK            
C       CAT MYTITEL :0 LINK            
C       CAT '</a>' :0 LINK            
C       ENDSR                
C          
  X * ARTFILEHTML EXSR BAR$ART    
  X * ARTFILEHTML EXSR BAR$ART    
  X * ARTFILEHTML EXSR BAR$ART    
  X  
C     LINKANLAGE BEGSR                
C **     MOVEL(P) SPANLAGE MYTITEL            
C       MOVEL(P) 'SPANLAGE' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C *     --------------------------------------
C *     Anlage
C *     --------------------------------------
C       EVAL LINK = '<b><a href="'+%TRIM(SRC)+'">'+
C            %TRIM(MYTITEL) +'</a></b>'
C       ENDSR                
C          
  X * ARTVOR3 EXSR BAR$ART    
  X * ARTVOR3 EXSR BAR$ART    
  X * ARTNACH3 EXSR BAR$ART    
  X * ARTNACH3 EXSR BAR$ART    
  X * LINKXML EXSR BAR$LINK    
  X * LINKRSS EXSR BAR$LINK    
  X * LINKATOM EXSR BAR$LINK    
  X * LISTEBESUCHER3 EXSR BAR$LISTE    
  X * LISTEBESUCHER3 EXSR BAR$LISTE    
  X * LISTEANFRAGE3 EXSR BAR$LISTE    
  X * LISTEANFRAGE3 EXSR BAR$LISTE    
  X * BILDER EXSR BAR$SEND    
  X * BILDER EXSR BAR$SEND    
  X * BILDER EXSR BAR$SEND    
  X * BILDER EXSR BAR$SEND    
  X  
C     LINKBILD BEGSR                
C       EXSR MYTITELX              
C *     --------------------------------------
C *     Allgemeines Bild ermitteln
C *     --------------------------------------
C       EVAL SRC = %TRIM(OBJEKTNAV)+'/'+
C             %TRIM(EDTITEL)
C       EXSR SRCEXIST              
C     *BLANKS IFNE SRC              
C       EVAL LINK    = '<img border=0 +
C            title="" +
C              alt="'+%TRIM(MYTITEL)+'" +
C              src="'+%TRIM(SRC)+'"'+
C                    %TRIMR(BILDADD)+'>'
C       ELSE                
C       EVAL LINK    =                 %TRIM(MYTITEL)
C       ENDIF                
C       EVAL BILDADD = ''
C       ENDSR                
C          
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X  
C     LINKBILD2 BEGSR                
C       EXSR MYTITELX              
C *     --------------------------------------
C *     Allgemeines Bild ermitteln
C *     --------------------------------------
C       EVAL SRC = %TRIM(OBJEKTNAV)+'/'+
C             %TRIM(EDTITEL)
C       EXSR SRCEXIST              
C     *BLANKS IFNE SRC              
C       EVAL LINK    = '<img border=0 +
C            title="" +
C              alt="'+%TRIM(MYTITEL)+'" +
C              src="'+%TRIM(SRC)+'"'+
C                    %TRIMR(BILDADD)+'>'
C       ELSE                
C       EVAL LINK    = ''
C       ENDIF                
C       EVAL BILDADD = ''
C       ENDSR                
C          
  X * ARTFILEHTML EXSR BAR$ART    
  X  
C     LINKMIN BEGSR                
C       CLEAR   SRC            
C       CLEAR   LINK            
C *     --------------------------------------
C *     Minibild einbinden
C *     --------------------------------------
C       EXSR ARTFILEMIN              
C     *BLANKS IFNE SRC              
C   N68   EVAL LINK = '<img border=0 +
C         title="" +
C           alt="" +
C           src="' + %TRIM(SRC)+'">'
C       ENDIF                
C       ENDSR                
C          
  X * ARTINFOART EXSR BAR$ART    
  X * ARTINFOART EXSR BAR$ART    
  X * ARTINFOAW EXSR BAR$ART    
  X * LINKADDPN EXSR BAR$LINK    
  X * SENDTITELBODY EXSR BAR$SEND    
  X * ZEILEARTTEXT2 EXSR BAR$ZEILE    
  X * ZEILEARTTEXT2 EXSR BAR$ZEILE    
  X * ZEILEAW2 EXSR BAR$ZEILE    
  X * ZEILEAWFRA2 EXSR BAR$ZEILE    
  X * ZEILEMIT2 EXSR BAR$ZEILE    
  X * ZEILEWER2 EXSR BAR$ZEILE    
  X  
C     LINKMIT BEGSR                
C       CLEAR   MITITEL            
C *     --------------------------------------
C *     Mitglied nach Name
C *     --------------------------------------
C       OPEN MITGLIEDL1       — 77 —  
C     MIKEY1MIT CHAIN MITGLIEDL1       77 77 —  
C       EXSR LINKMITBAR              
C       MOVEL(P) '<a' LINK            
C     *IN77 IFEQ *OFF              
C       CAT 'href="' :1 LINK            
C       EXSR LINKMITREF              
C       CAT '"' :0 LINK            
C       CAT TARGET :0 LINK            
C       CAT TAPCOLOR :0 LINK            
C       ENDIF                
C     *BLANKS IFNE ANKER              
C       CAT 'name="' :1 LINK            
C       CAT PREFIX :0 LINK            
C       CAT ANKER :0 LINK            
C       CAT '"' :0 LINK            
C       ENDIF                
C       CAT '>' :0 LINK            
C       CAT '<font' :0 LINK            
C       CAT BARCOLOR :0 LINK            
C     *BLANKS IFNE MITITEL              
C       CAT NOTRANSLATE :0 LINK            
C       ENDIF                
C       CAT '>' :0 LINK            
C       EXSR LINKTITELMIT              
C       EXSR MYTITELX              
C       CAT MYTITEL :0 LINK            
C       CAT '</font>' :0 LINK            
C       CAT '</a>' :0 LINK            
C          
C *     --------------------------------------
C *     Firefox Tap Highlight Color
C *     --------------------------------------
C   67 TAPSTYLE CAT LINK :0 LINK            
C       ENDSR                
C          
  X * LINKMIT EXSR BAR$LINK    
  X * ZEILEMITXML EXSR BAR$ZEILE    
  X  
C     LINKMITREF BEGSR                
C *     --------------------------------------
C *     Mitglied href
C *     --------------------------------------
C     PFADXX IFNE HTML              
C       CAT HTTP :0 LINK            
C       ELSE                
C       CAT PFADREL :0 LINK            
C       ENDIF                
C       CAT MINAV :0 LINK            
C       CAT HTML :0 LINK            
C       CAT QUERY :0 LINK            
C       ENDSR                
C          
C     LINKMITXML BEGSR                
C       CLEAR   MITITEL            
C *     --------------------------------------
C *     Mitglied nach Name
C *     --------------------------------------
C       OPEN MITGLIEDL1       — 77 —  
C     MIKEY1MIT CHAIN MITGLIEDL1       77 77 —  
C       EXSR LINKMITBAR              
C       EXSR LINKTITELMIT              
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL LINK2            
C       ENDSR                
C          
  X * SENDRSS EXSR BAR$SEND    
  X * ZEILEARTRSS EXSR BAR$ZEILE    
  X * ZEILEAWRSS EXSR BAR$ZEILE    
  X  
C     LINKMITRSS BEGSR                
C       CLEAR   MITITEL            
C *     --------------------------------------
C *     Mitglied nach Name
C *     --------------------------------------
C       OPEN MITGLIEDL1       — 77 —  
C     MIKEY1MIT CHAIN MITGLIEDL1       77 77 —  
C       EXSR LINKMITBAR              
C       EXSR LINKTITELMIT              
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL LINK2            
C       ENDSR                
C          
  X * SENDATOM EXSR BAR$SEND    
  X * ZEILEARTATOM EXSR BAR$ZEILE    
  X * ZEILEAWATOM EXSR BAR$ZEILE    
  X  
C     LINKMITATOM BEGSR                
C       CLEAR   MITITEL            
C *     --------------------------------------
C *     Mitglied nach Name
C *     --------------------------------------
C       OPEN MITGLIEDL1       — 77 —  
C     MIKEY1MIT CHAIN MITGLIEDL1       77 77 —  
C       EXSR LINKMITBAR              
C       EXSR LINKTITELMIT              
C       EXSR MYTITELX              
C       MOVEL(P) '<name>' LINK2            
C       CAT MYTITEL :0 LINK2            
C       CAT '</name>' :0 LINK2            
C       ENDSR                
C          
  X * LINKMIT CHAIN BAR$LINK    
  X * LINKMITXML CHAIN BAR$LINK    
  X * LINKMITRSS CHAIN BAR$LINK    
  X * LINKMITATOM CHAIN BAR$LINK    
  X  
C     MIKEY1MIT KLIST                
C       KFLD   MAMAN            
C       KFLD   MIMIT            
C          
  X * LINKMIT EXSR BAR$LINK    
  X * LINKMITXML EXSR BAR$LINK    
  X * LINKMITRSS EXSR BAR$LINK    
  X * LINKMITATOM EXSR BAR$LINK    
  X  
C     LINKMITBAR BEGSR                
C       CLEAR   COLOR7            
C *     --------------------------------------
C *     Farbe für Texte im Chat ermitteln
C *     --------------------------------------
C     *IN77 IFEQ *OFF              
C     NOCHAT IFNE WWCHAT              
C       MOVEL(P) MICOLOR COLOR7            
C       ENDIF                
C       ENDIF                
C       EXSR TEXTCOLOR              
C       ENDSR                
C          
  X * ARTINFOART EXSR BAR$ART    
  X * SENDTITELBODY EXSR BAR$SEND    
  X * ZEILEARTTEXT2 EXSR BAR$ZEILE    
  X * ZEILERUB2 EXSR BAR$ZEILE    
  X  
C     LINKRUB BEGSR                
C       CLEAR   RUTITEL            
C *     --------------------------------------
C *     Rubrik nach Name
C *     --------------------------------------
C       OPEN RUBRIKL1       — 77 —  
C     RUKEY1RUB CHAIN RUBRIKL1       77 77 —  
C       MOVEL(P) '<a' LINK            
C     *IN77 IFEQ *OFF              
C       CAT 'href="' :1 LINK            
C       EXSR LINKRUBREF              
C       CAT '"' :0 LINK            
C       ENDIF                
C       CAT TARGET :0 LINK            
C     *BLANKS IFNE ANKER              
C       CAT 'name="' :1 LINK            
C       CAT PREFIX :0 LINK            
C       CAT ANKER :0 LINK            
C       CAT '"' :0 LINK            
C       ENDIF                
C       CAT '>' :0 LINK            
C       EXSR LINKTITELRUB              
C       EXSR MYTITELX              
C       CAT MYTITEL :0 LINK            
C       CAT '</a>' :0 LINK            
C       ENDSR                
C          
  X * ZEILERUB2 EXSR BAR$ZEILE    
  X  
C     LINKRUBFILE BEGSR                
C       OPEN RUBRIKL1       — 77 —  
C     RUKEY1RUB CHAIN RUBRIKL1       77 77 —  
C *     --------------------------------------
C *     Rubrik
C *     --------------------------------------
C     *IN77 IFEQ *OFF              
C       EXSR LINKRUBFILE2              
C     *BLANKS IFNE LINK              
C       MOVEL(P) LINK LINK7            
C       MOVEL(P) '<a' LINK            
C       CAT 'href="' :1 LINK            
C       EXSR LINKRUBREF              
C       CAT '"' :0 LINK            
C       CAT TARGET :0 LINK            
C       CAT '>' :0 LINK            
C       CAT LINK7 :0 LINK            
C       CAT '</a>' :0 LINK            
C       ENDIF                
C       ENDIF                
C       ENDSR                
C          
  X * LINKRUB CHAIN BAR$LINK    
  X * LINKRUBFILE CHAIN BAR$LINK    
  X  
C     RUKEY1RUB KLIST                
C       KFLD   MAMAN            
C       KFLD   RURUB            
C          
  X * LINKRUBFILE EXSR BAR$LINK    
  X  
C     LINKRUBFILE2 BEGSR                
C       CLEAR   LINK            
C       MOVEL(P) RUFILEX MYFILEX            
C *     --------------------------------------
C *     Minibild einbinden
C *     --------------------------------------
C       EVAL SRC  =  %TRIM ( RUNAV)+MIN+MINX
C       CLEAR   MYSPERRE            
C       EXSR ARTFILESRC              
C          
C *     --------------------------------------
C *     Minibild einbinden
C *     --------------------------------------
C     *BLANKS IFNE SRC              
C   N68   EVAL LINK = '<img border=0 +
C         title="" +
C           alt="" +
C           src="' + %TRIM(SRC)+'"'+
C                   %TRIMR(VSPACE)+'>'
C       ENDIF                
C       ENDSR                
C          
  X * LINKRUB EXSR BAR$LINK    
  X * LINKRUBFILE EXSR BAR$LINK    
  X * ZEILERUBXML EXSR BAR$ZEILE    
  X  
C     LINKRUBREF BEGSR                
C *     --------------------------------------
C *     Rubrik href
C *     --------------------------------------
C     PFADXX IFNE HTML              
C       CAT HTTP :0 LINK            
C       ELSE                
C       CAT PFADREL :0 LINK            
C       ENDIF                
C       CAT RUNAV :0 LINK            
C       CAT HTML :0 LINK            
C       CAT QUERY :0 LINK            
C       ENDSR                
C          
  X * ZEILERUB2 EXSR BAR$ZEILE    
  X  
C     LINKRUBNEU BEGSR                
C       MOVEL(P) ROWS ROWSSAVE            
C *     --------------------------------------
C *     Hinweis für neuen Artikel in Rubrik
C *     --------------------------------------
C       EXSR LISTERUBNEU              
C       MOVEL(P) LINKADD LINK            
C       MOVEL(P) ROWSSAVE ROWS            
C       ENDSR                
C          
  X * ZEILENAV2 EXSR BAR$ZEILE    
  X  
C     LINKNAV BEGSR                
C       CLEAR   MYTITEL            
C *     --------------------------------------
C *     Navigation nach Name
C *     --------------------------------------
C       OPEN NAVILN       — 77 —  
C     NAKEYNNAV CHAIN NAVILN       77 77 —  
C       MOVEL(P) '<a' LINK            
C     *IN77 IFEQ *OFF              
C       CAT 'href="' :1 LINK            
C       EXSR LINKNAVREF              
C       CAT '"' :0 LINK            
C       ENDIF                
C       CAT TARGET :0 LINK            
C       CAT NOFOLLOW :0 LINK            
C     *BLANKS IFNE ANKER              
C       CAT 'name="' :1 LINK            
C       CAT PREFIX :0 LINK            
C       CAT ANKER :0 LINK            
C       CAT '"' :0 LINK            
C       ENDIF                
C       CAT '>' :0 LINK            
C       EXSR LINKTITELNAV              
C       EXSR MYTITELX              
C       CAT MYTITEL :0 LINK            
C       CAT '</a>' :0 LINK            
C       ENDSR                
C          
  X * ZEILENAV2 EXSR BAR$ZEILE    
  X  
C     LINKNAVFILE BEGSR                
C       OPEN NAVILN       — 77 —  
C     NAKEYNNAV CHAIN NAVILN       77 77 —  
C *     --------------------------------------
C *     Navigation
C *     --------------------------------------
C     *IN77 IFEQ *OFF              
C       EXSR SEITEFILEX              
C       EXSR LINKNAVFILE2              
C     *BLANKS IFNE LINK              
C       MOVEL(P) LINK LINK7            
C       MOVEL(P) '<a' LINK            
C       CAT 'href="' :1 LINK            
C       EXSR LINKNAVREF              
C       CAT '"' :0 LINK            
C       CAT TARGET :0 LINK            
C       CAT NOFOLLOW :0 LINK            
C       CAT '>' :0 LINK            
C       CAT LINK7 :0 LINK            
C       CAT '</a>' :0 LINK            
C       ENDIF                
C       ENDIF                
C       ENDSR                
C          
  X * LINKNAV CHAIN BAR$LINK    
  X * LINKNAVFILE CHAIN BAR$LINK    
  X  
C     NAKEYNNAV KLIST                
C       KFLD   MAMAN            
C       KFLD   NANAV            
C          
  X * LINKNAVFILE EXSR BAR$LINK    
  X  
C     LINKNAVFILE2 BEGSR                
C       CLEAR   LINK            
C       MOVEL(P) NAFILEX MYFILEX            
C *     --------------------------------------
C *     Minibild einbinden
C *     --------------------------------------
C       EVAL SRC  =  %TRIM ( NANAV)+MIN+MINX
C       CLEAR   MYSPERRE            
C       EXSR ARTFILESRC              
C          
C *     --------------------------------------
C *     Minibild einbinden
C *     --------------------------------------
C     NATYP IFEQ TYPLOGOUT              
C     NATYP OREQ TYPEDT              
C     BEMIT ANDNE WEBMASTER              
C       EXSR ARTFILEICN              
C       ENDIF                
C *     --------------------------------------
C *     Minibild einbinden
C *     --------------------------------------
C     *BLANKS IFNE SRC              
C   N68   EVAL LINK = '<img border=0 +
C         title="" +
C           alt="" +
C           src="' + %TRIM(SRC)+'"'+
C                   %TRIMR(VSPACE)+'>'
C       ENDIF                
C       ENDSR                
C          
  X * LINKNAV EXSR BAR$LINK    
  X * LINKNAVFILE EXSR BAR$LINK    
  X * ZEILENAVXML EXSR BAR$ZEILE    
  X  
C     LINKNAVREF BEGSR                
C *     --------------------------------------
C *     Navigation href
C *     --------------------------------------
C     PFADXX IFNE HTML              
C       CAT HTTP :0 LINK            
C       ELSE                
C       CAT PFADREL :0 LINK            
C       ENDIF                
C *     --------------------------------------
C *     Navigation href
C *     --------------------------------------
C     WWTYP IFEQ TYPNNN              
C     INDEXNAV IFNE NANAV              
C       CAT NANAV :0 LINK            
C       CAT '/' :0 LINK            
C       ENDIF                
C       CAT EDNAV :0 LINK            
C       CAT HTML :0 LINK            
C       CAT QUERY :0 LINK            
C       ELSE                
C *     --------------------------------------
C *     Navigation href
C *     --------------------------------------
C     INDEXNAV IFNE NANAV              
C       CAT NANAV :0 LINK            
C       CAT HTML :0 LINK            
C       CAT QUERY :0 LINK            
C       ELSE                
C     PFADXX IFEQ HTML              
C       CAT '/.' :0 LINK            
C       ENDIF                
C       CAT QUERY :0 LINK            
C       ENDIF                
C       ENDIF                
C       ENDSR                
C          
  X * SENDTITELBODY EXSR BAR$SEND    
  X  
C     LINKFILES BEGSR                
C *     --------------------------------------
C *     Verzeichnis nach Name
C *     --------------------------------------
C       MOVEL(P) '<a' LINK            
C       CAT 'href="' :1 LINK            
C       EXSR LINKFILESREF              
C       CAT '"' :0 LINK            
C       CAT TARGET :0 LINK            
C       CAT '>' :0 LINK            
C       EXSR LINKTITELFILES              
C       EXSR MYTITELXFORM              
C       CAT MYTITEL :0 LINK            
C       CAT '</a>' :0 LINK            
C       ENDSR                
C          
  X * LINKFILES EXSR BAR$LINK    
  X  
C     LINKFILESREF BEGSR                
C *     --------------------------------------
C *     Verzeichnis href
C *     --------------------------------------
C       CAT PFADREL1 :0 LINK            
C       CAT ELEMENT2 :0 LINK            
C       CAT HTML :0 LINK            
C       CAT QUERY :0 LINK            
C       ENDSR                
C          
  X * LINKMIT EXSR BAR$LINK    
  X * LINKMITXML EXSR BAR$LINK    
  X * LINKMITRSS EXSR BAR$LINK    
  X * LINKMITATOM EXSR BAR$LINK    
  X  
C     LINKTITELMIT BEGSR                
C *     --------------------------------------
C *     Mitglied als Titel ermitteln
C *     --------------------------------------
C       SELECT    
C     NOMIT WHENEQ MIMIT              
C **     MOVEL(P) SPGAST MYTITEL            
C       MOVEL(P) 'SPGAST' MYTYP            
C       EXSR MYTYPTITEL              
C     *BLANKS WHENEQ MITITEL              
C **     MOVEL(P) SPNONE MYTITEL            
C       MOVEL(P) 'SPNONE' MYTYP            
C       EXSR MYTYPTITEL              
C     *IN77 WHENEQ *ON              
C **     MOVEL(P) SPNONE MYTITEL            
C       MOVEL(P) 'SPNONE' MYTYP            
C       EXSR MYTYPTITEL              
C       OTHER                
C       MOVEL(P) MITITEL MYTITEL            
C       ENDSL                
C       ENDSR                
C          
  X * LINKRUB EXSR BAR$LINK    
  X  
C     LINKTITELRUB BEGSR                
C *     --------------------------------------
C *     Rubrik als Titel ermitteln
C *     --------------------------------------
C       SELECT    
C     NORUB WHENEQ RURUB              
C **     MOVEL(P) SPNONE MYTITEL            
C       MOVEL(P) 'SPNONE' MYTYP            
C       EXSR MYTYPTITEL              
C     *BLANKS WHENEQ RUTITEL              
C **     MOVEL(P) SPNONE MYTITEL            
C       MOVEL(P) 'SPNONE' MYTYP            
C       EXSR MYTYPTITEL              
C     *IN77 WHENEQ *ON              
C **     MOVEL(P) SPNONE MYTITEL            
C       MOVEL(P) 'SPNONE' MYTYP            
C       EXSR MYTYPTITEL              
C       OTHER                
C       MOVEL(P) RUTITEL MYTITEL            
C       ENDSL                
C       ENDSR                
C          
  X * LINKNAV EXSR BAR$LINK    
  X  
C     LINKTITELNAV BEGSR                
C *     --------------------------------------
C *     Navigation als Titel ermitteln
C *     --------------------------------------
C       EXSR NATYPNAV              
C       MOVEL(P) TITITEL MYTITEL            
C       ENDSR                
C          
  X * LINKFILES EXSR BAR$LINK    
  X  
C     LINKTITELFILES BEGSR                
C *     --------------------------------------
C *     Verzeichnis als Titel ermitteln
C *     --------------------------------------
C     *BLANKS IFEQ ELEMENT3              
C       MOVEL(P) ELEMENT2 ELEMENTNAV            
C       EXSR SEITENAVSR              
C       MOVEL(P) TITITEL MYTITEL            
C       ELSE                
C       MOVEL(P) ELEMENT2 MYTITEL            
C       ENDIF                
C       ENDSR                
C          
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * ZEILEMIT2 EXSR BAR$ZEILE    
  X * ZEILEANFRAGE2 EXSR BAR$ZEILE    
  X  
C     LINKDAT1 BEGSR                
C       SETOFF         — — 78  
C *     --------------------------------------
C *     Datum und Uhrzeit ausgeben
C *     --------------------------------------
C       EXSR LINKDAT4              
C       ENDSR                
C          
  X * ZEILEAW2 EXSR BAR$ZEILE    
  X * ZEILEAWFRA2 EXSR BAR$ZEILE    
  X * ZEILEMIT2 EXSR BAR$ZEILE    
  X * ZEILEWER2 EXSR BAR$ZEILE    
  X * ZEILEANFRAGE2 EXSR BAR$ZEILE    
  X  
C     LINKDAT2 BEGSR                
C     *IN68 COMP *OFF       — — 78  
C *     --------------------------------------
C *     Datum und Uhrzeit ausgeben
C *     --------------------------------------
C       EXSR LINKDAT4              
C       ENDSR                
C          
  X * LINKDAT4 EXSR BAR$LINK    
  X  
C     LINKDAT3 BEGSR                
C       CLEAR   LINK            
C *     --------------------------------------
C *     Datum ausgeben
C *     --------------------------------------
C     NODAT IFNE DATETIME3              
C       MOVE DATETIME3 DATUM            
C          
C       SELECT    
C     DATUM WHENEQ GESTERN              
C     *BLANKS ANDNE MYGESTERN#              
C       MOVEL(P) MYGESTERN# LINK            
C          
C     DATUM WHENEQ HEUTE              
C     *BLANKS ANDNE MYHEUTE#              
C       MOVEL(P) MYHEUTE# LINK            
C          
C     DATUM WHENEQ MORGEN              
C     *BLANKS ANDNE MYMORGEN#              
C       MOVEL(P) MYMORGEN# LINK            
C          
C       OTHER                
C       MOVEL(P) DATUM DATUM2            
C       MOVEL(P) DATUM2 LINK            
C       ENDSL                
C       ENDIF                
C       ENDSR                
C          
  X * LINKDAT1 EXSR BAR$LINK    
  X * LINKDAT2 EXSR BAR$LINK    
  X  
C     LINKDAT4 BEGSR                
C       CLEAR   LINK            
C *     --------------------------------------
C *     Datum und Uhrzeit ausgeben
C *     --------------------------------------
C     NODAT IFNE DATETIME3              
C       MOVE DATETIME3 DATUM            
C       MOVE DATETIME3 ZEIT            
C          
C     DATUM IFEQ HEUTE              
C     *BLANKS ANDNE NOHEUTE              
C       MOVEL(P) ZEIT ZEIT2            
C     5 SUBST(P) ZEIT2 ZEIT2            
C       MOVEL(P) '<a' LINK            
C       CAT NAVSTYLE :0 LINK            
C       CAT '>' :0 LINK            
C       CAT ZEIT2 :0 LINK            
C       CAT MYUHR# :1 LINK            
C       CAT '</a>' :0 LINK            
C       ELSE                
C       EXSR LINKDAT3              
C     DATETIME3 IFGT DATETIME7              
C     DATUM IFEQ GESTERN              
C     DATUM OREQ HEUTE              
C     DATUM OREQ MORGEN              
C     *BLANKS OREQ NOZEIT              
C       MOVEL(P) ZEIT ZEIT2            
C     5 SUBST(P) ZEIT2 ZEIT2            
C   78   CAT '<br>' :0 LINK            
C       CAT '<a' :1 LINK            
C       CAT NAVSTYLE :0 LINK            
C       CAT '>' :0 LINK            
C       CAT ZEIT2 :0 LINK            
C       CAT MYUHR# :1 LINK            
C       CAT '</a>' :0 LINK            
C       ENDIF                
C       ENDIF                
C       ENDIF                
C       ENDIF                
C       ENDSR                
C          
  X * FORMFILE$ EXSR BAR$FORM    
  X  
C     LINKMIME BEGSR                
C       CLEAR   LINK            
C *     --------------------------------------
C *     Formate
C *     --------------------------------------
C       OPEN MIMEL4       — 77 —  
C     *LOVAL SETGT MIMEL4       — 77 —  
C   N77   READ MIMEL4       — 77 77  
C     *IN77 DOWEQ *OFF              
C       SUBST(P) MIFILEX:2 LINK2            
C       CAT LINK2 :1 LINK            
C     *OFF IFNE *OFF              
C       CAT ',' :0 LINK            
C       ENDIF                
C     MIFILEX SETGT MIMEL4       — 77 —  
C   N77   READ MIMEL4       — 77 77  
C       ENDDO                
C     *OFF IFNE *OFF              
C     ' ' CHECKR LINK LEN     — 77 —  
C       SUB 1 LEN     77 — —  
C   77 LEN SUBST(P) LINK LINK            
C       ENDIF                
C       ENDSR                
C          
  X * FORMUPLOAD EXSR BAR$FORM    
  X  
C     LINKINSTALL1 BEGSR                
C *     --------------------------------------
C *     iCab installieren
C *     --------------------------------------
C       MOVEL(P) LIINSTALL1 WWW            
C       MOVEL(P) '<a' LINK            
C       CAT NAVSTYLE :0 LINK            
C       EXSR WWWHREF              
C       CAT WWW :0 LINK            
C       CAT TARGETBLANK :0 LINK            
C       CAT '>' :0 LINK            
C **     MOVEL(P) SPINSTALL1 MYTITEL            
C       MOVEL(P) 'SPINSTALL1' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       CAT MYTITEL :0 LINK            
C       CAT '</a>' :0 LINK            
C       ENDSR                
C          
  X * FORMUPLOAD EXSR BAR$FORM    
  X  
C     LINKINSTALL2 BEGSR                
C *     --------------------------------------
C *     Opera installieren
C *     --------------------------------------
C       MOVEL(P) LIINSTALL2 WWW            
C       MOVEL(P) '<a' LINK            
C       CAT NAVSTYLE :0 LINK            
C       EXSR WWWHREF              
C       CAT WWW :0 LINK            
C       CAT TARGETBLANK :0 LINK            
C       CAT '>' :0 LINK            
C **     MOVEL(P) SPINSTALL2 MYTITEL            
C       MOVEL(P) 'SPINSTALL2' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       CAT MYTITEL :0 LINK            
C       CAT '</a>' :0 LINK            
C       ENDSR                
C          
  X * FORMUPLOAD EXSR BAR$FORM    
  X  
C     LINKINSTALL3 BEGSR                
C *     --------------------------------------
C *     quickpic installieren
C *     --------------------------------------
C       MOVEL(P) LIINSTALL3 WWW            
C       MOVEL(P) '<a' LINK            
C       CAT NAVSTYLE :0 LINK            
C       EXSR WWWHREF              
C       CAT WWW :0 LINK            
C       CAT TARGETBLANK :0 LINK            
C       CAT '>' :0 LINK            
C **     MOVEL(P) SPINSTALL3 MYTITEL            
C       MOVEL(P) 'SPINSTALL3' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C       CAT MYTITEL :0 LINK            
C       CAT '</a>' :0 LINK            
C       ENDSR                
C          
  X * FORMUPLOAD EXSR BAR$FORM    
  X  
C     LINKUPLOAD1 BEGSR                
C **     MOVEL(P) SPUPLOAD1 MYTITEL            
C       MOVEL(P) 'SPUPLOAD1' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C *     --------------------------------------
C *     Seite in iCab öffnen
C *     --------------------------------------
C       EVAL LINK = '<a'+%TRIMR(NAVSTYLE)+' +
C            href="javascript:+
C          void(location.href=''icabmobile''++
C               location.href.substring(4)++
C              (location.href.indexOf(''?'')<0?+
C            ''?'':''&amp;'')+'''+
C               SIDNAME+%TRIM(BESID)+'&amp;'+
C             DEBUGNAME+%TRIM(DEBUG)+'&amp;'+
C           SPRACHENAME+%TRIM(SPRACHE)+''')">'+
C           %TRIM(MYTITEL)+'</a>'
C       ENDSR                
C          
  X * FORMUPLOAD EXSR BAR$FORM    
  X  
C     LINKUPLOAD2 BEGSR                
C **     MOVEL(P) SPUPLOAD2 MYTITEL            
C       MOVEL(P) 'SPUPLOAD2' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C *     --------------------------------------
C *     Seite in Opera öffnen
C *     --------------------------------------
C       EVAL LINK = '<a'+%TRIMR(NAVSTYLE)+' +
C            href="javascript:+
C          void(location.href=''o''++
C               location.href.substring(0)++
C              (location.href.indexOf(''?'')<0?+
C            ''?'':''&amp;'')+'''+
C               SIDNAME+%TRIM(BESID)+'&amp;'+
C             DEBUGNAME+%TRIM(DEBUG)+'&amp;'+
C           SPRACHENAME+%TRIM(SPRACHE)+''')">'+
C           %TRIM(MYTITEL)+'</a>'
C       ENDSR                
C          
  X * FORMUPLOAD EXSR BAR$FORM    
  X  
C     LINKUPLOAD3 BEGSR                
C **     MOVEL(P) SPUPLOAD3 MYTITEL            
C       MOVEL(P) 'SPUPLOAD3' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C *     --------------------------------------
C *     Bild mit Quickpic hochladen
C *     --------------------------------------
C       EVAL LINK = '<a'+%TRIMR(NAVSTYLE)+' +
C               href="vquickpic://?+
C             action='+%TRIM(HTTP) +
C          %TRIM(PFAD) +
C          %TRIM(PLIST)+'&amp;+
C           continue='+%TRIM(HTTP) +
C          %TRIM(PFAD) +
C          %TRIM(PFADX)+'&amp;+
C            context='+%TRIM(BESID)+'&amp;+
C        passcontext=1">'+%TRIM(MYTITEL)+'</a>'
C       ENDSR                
C          
  X * TABLECOPY EXSR BAR$SEND    
  X  
C     LINKCLOSE BEGSR                
C **     MOVEL(P) SPCLOSE MYTITEL            
C       MOVEL(P) 'SPCLOSE' MYTYP            
C       EXSR MYTYPTITEL              
C       EXSR MYTITELX              
C *     --------------------------------------
C *     Fenster schließen
C *     --------------------------------------
C       EVAL LINK = '<a'+%TRIMR(NAVSTYLE)+' +
C                    href="javascript:+
C         void(history.back());+
C          void(window.close())">'+
C              %TRIM(MYTITEL)+'</a>'
C       ENDSR                
C          
  X * NAVADDPF EXSR BAR$NAV    
  X  
C     LINKPF BEGSR                
C       EXSR LISTEPFNEU              
C *     --------------------------------------
C *     Persönliches Postfach
C *     --------------------------------------
C       MOVEL(P) TYPPF NATYP            
C       EXSR NATYPNAV              
C       EXSR LINKNAVRELX              
C       ENDSR                
C          
  X * NAVADDAKT EXSR BAR$NAV    
  X  
C     LINKAKT BEGSR                
C       EXSR LISTEAKTNEU              
C *     --------------------------------------
C *     Aktuelles
C *     --------------------------------------
C       MOVEL(P) TYPAKT NATYP            
C       EXSR NATYPNAV              
C       EXSR LINKNAVRELX              
C       ENDSR                
C          
  X * NAVADDBAR EXSR BAR$NAV    
  X  
C     LINKBAR BEGSR                
C       EXSR LISTEBARMMM              
C *     --------------------------------------
C *     Chat
C *     --------------------------------------
C       MOVEL(P) TYPBAR NATYP            
C       EXSR NATYPNAV              
C       EXSR LINKNAVRELX              
C       ENDSR                
C          
  X * NAVADDMMM EXSR BAR$NAV    
  X  
C     LINKMMM BEGSR                
C *     --------------------------------------
C *     Mitglieder
C *     --------------------------------------
C       MOVEL(P) TYPMMM NATYP            
C       EXSR NATYPNAV              
C       EXSR LINKNAVREL              
C       ENDSR                
C          
  X * NAVADDGAL EXSR BAR$NAV    
  X  
C     LINKGAL BEGSR                
C *     --------------------------------------
C *     Galerie
C *     --------------------------------------
C       MOVEL(P) TYPGAL NATYP            
C       EXSR NATYPNAV              
C       EXSR LINKNAVREL              
C       ENDSR                
C          
  X * NAVADDIDX EXSR BAR$NAV    
  X  
C     LINKIDX BEGSR                
C *     --------------------------------------
C *     Portal
C *     --------------------------------------
C       MOVEL(P) TYPIDX NATYP            
C       EXSR NATYPNAV              
C       EXSR LINKIDXREL              
C       ENDSR                
C          
  X * NAVADDINF EXSR BAR$NAV    
  X * TABLECOPY EXSR BAR$SEND    
  X  
C     LINKINF BEGSR                
C *     --------------------------------------
C *     Information
C *     --------------------------------------
C       MOVEL(P) TYPINF NATYP            
C       EXSR NATYPNAV              
C       EXSR LINKNAVREL              
C       ENDSR                
C          
  X * TABLECOPY EXSR BAR$SEND    
  X * TABLECOPY EXSR BAR$SEND    
  X  
C     LINKCNT BEGSR                
C *     --------------------------------------
C *     Kontakt
C *     --------------------------------------
C       MOVEL(P) TYPCNT NATYP            
C       EXSR NATYPNAV              
C       MOVEL(P) TITITEL MYTITEL            
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL EDTITEL            
C       MOVEL(P) MAMAIL MYTITEL            
C       EXSR MYTITELX              
C       MOVEL(P) '<a' LINK            
C       CAT NAVSTYLE :0 LINK            
C       CAT 'href="' :1 LINK            
C       CAT MAILTO :0 LINK            
C       CAT MYTITEL :0 LINK            
C       CAT '"' :0 LINK            
C       CAT TARGET :0 LINK            
C       CAT '>' :0 LINK            
C       CAT EDTITEL :0 LINK            
C       CAT '</a>' :0 LINK            
C       ENDSR                
C          
  X * NAVADDPRF EXSR BAR$NAV    
  X  
C     LINKPRF BEGSR                
C     NOMIT IFNE BEMIT              
C *     --------------------------------------
C *     Profil
C *     --------------------------------------
C       MOVEL(P) TYPPRF NATYP            
C       EXSR NATYPNAV              
C       MOVEL(P) BENAV NANAV            
C       EXSR LINKNAVREL              
C       ELSE                
C *     --------------------------------------
C *     Mitmachen
C *     --------------------------------------
C       MOVEL(P) TYPNEUMIT NATYP            
C       EXSR NATYPNAV              
C       EXSR LINKNAV1              
C       ENDIF                
C       ENDSR                
C          
  X * NAVADDLOG EXSR BAR$NAV    
  X  
C     LINKLOG BEGSR                
C     NOMIT IFNE BEMIT              
C *     --------------------------------------
C *     Abmelden
C *     --------------------------------------
C       MOVEL(P) TYPLOGOUT NATYP            
C       EXSR NATYPNAV              
C       EXSR LINKNAV1              
C       ELSE                
C *     --------------------------------------
C *     Anmelden
C *     --------------------------------------
C       MOVEL(P) TYPLOGIN NATYP            
C       EXSR NATYPNAV              
C       EXSR LINKNAV1              
C       ENDIF                
C       ENDSR                
C          
  X * TABLECOPY EXSR BAR$SEND    
  X  
C     LINKNEUAW BEGSR                
C *     --------------------------------------
C *     Neue Antwort
C *     --------------------------------------
C       MOVEL(P) TYPNEUAW NATYP            
C       EXSR NATYPNAV              
C       EXSR LINKNAV1              
C       ENDSR                
C          
  X * FORMLOGIN EXSR BAR$FORM    
  X  
C     LINKNEUMIT BEGSR                
C *     --------------------------------------
C *     Mitmachen
C *     --------------------------------------
C       MOVEL(P) TYPNEUMIT NATYP            
C       EXSR NATYPNAV              
C       EXSR LINKNAV1              
C       ENDSR                
C          
  X * FORMCHGPWD EXSR BAR$FORM    
  X * FORMCHGMAIL EXSR BAR$FORM    
  X * FORMLOGIN EXSR BAR$FORM    
  X  
C     LINKNEUPWD BEGSR                
C *     --------------------------------------
C *     Kennwort vergessen?
C *     --------------------------------------
C       MOVEL(P) TYPNEUPWD NATYP            
C       EXSR NATYPNAV              
C       EXSR LINKNAV1              
C       ENDSR                
C          
  X * LISTEMIT EXSR BAR$LISTE    
  X  
C     LINKNEUPN BEGSR                
C *     --------------------------------------
C *     Nachricht senden
C *     --------------------------------------
C       MOVEL(P) TYPNEUPN NATYP            
C       EXSR NATYPNAV              
C       EXSR LINKNAV1              
C       ENDSR                
C          
  X * LISTEMIT EXSR BAR$LISTE    
  X  
C     LINKMITPN BEGSR                
C *     --------------------------------------
C *     Mitglied-Nachrichten
C *     --------------------------------------
C       MOVEL(P) TYPMITPN NATYP            
C       EXSR NATYPNAV              
C       EXSR LINKNAV1              
C       ENDSR                
C          
  X * LISTEMIT EXSR BAR$LISTE    
  X  
C     LINKMITART BEGSR                
C *     --------------------------------------
C *     Mitglied-Artikel
C *     --------------------------------------
C       MOVEL(P) TYPMITART NATYP            
C       EXSR NATYPNAV              
C       EXSR LINKNAV1              
C       ENDSR                
C          
  X * LISTEMIT EXSR BAR$LISTE    
  X  
C     LINKEDTMIT BEGSR                
C *     --------------------------------------
C *     Profil ändern
C *     --------------------------------------
C       MOVEL(P) TYPEDT NATYP            
C       EXSR NATYPNAV              
C       MOVEL(P) NANAV MYNAV            
C       MOVEL(P) TYPEDTMIT NATYP            
C       EXSR NATYPNAV              
C       MOVEL(P) MYNAV NANAV            
C       EXSR LINKNAV1              
C       ENDSR                
C          
  X * LISTEMIT EXSR BAR$LISTE    
  X  
C     LINKCHGPWD BEGSR                
C *     --------------------------------------
C *     Kennwort ändern
C *     --------------------------------------
C       MOVEL(P) TYPCHGPWD NATYP            
C       EXSR NATYPNAV              
C       EXSR LINKNAV1              
C       ENDSR                
C          
  X * LISTEMIT EXSR BAR$LISTE    
  X  
C     LINKCHGMAIL BEGSR                
C *     --------------------------------------
C *     E-Mail-Adresse ändern
C *     --------------------------------------
C       MOVEL(P) TYPCHGMAIL NATYP            
C       EXSR NATYPNAV              
C       EXSR LINKNAV1              
C       ENDSR                
C          
  X * LISTEMIT EXSR BAR$LISTE    
  X  
C     LINKGELPN BEGSR                
C *     --------------------------------------
C *     Alle Nachrichten gelesen
C *     --------------------------------------
C       MOVEL(P) TYPGELPN NATYP            
C       EXSR NATYPNAV              
C       EXSR LINKNAV1              
C       ENDSR                
C          
  X * LISTEMIT EXSR BAR$LISTE    
  X  
C     LINKGELART BEGSR                
C *     --------------------------------------
C *     Alle Artikel gelesen
C *     --------------------------------------
C       MOVEL(P) TYPGELART NATYP            
C       EXSR NATYPNAV              
C       EXSR LINKNAV1              
C       ENDSR                
C          
  X * LINKPRF EXSR BAR$LINK    
  X * LINKLOG EXSR BAR$LINK    
  X * LINKLOG EXSR BAR$LINK    
  X * LINKNEUAW EXSR BAR$LINK    
  X * LINKNEUMIT EXSR BAR$LINK    
  X * LINKNEUPWD EXSR BAR$LINK    
  X * LINKNEUPN EXSR BAR$LINK    
  X * LINKMITPN EXSR BAR$LINK    
  X * LINKMITART EXSR BAR$LINK    
  X * LINKEDTMIT EXSR BAR$LINK    
  X * LINKCHGPWD EXSR BAR$LINK    
  X * LINKCHGMAIL EXSR BAR$LINK    
  X * LINKGELPN EXSR BAR$LINK    
  X * LINKGELART EXSR BAR$LINK    
  X * NAVADD1 EXSR BAR$NAV    
  X  
C     LINKNAV1 BEGSR                
C *     --------------------------------------
C *     Navigation nach Typ
C *     --------------------------------------
C       MOVEL(P) '<a' LINK            
C       CAT NAVSTYLE :0 LINK            
C          
C *     --------------------------------------
C *     Navigation nach Typ
C *     --------------------------------------
C     'MauiBot' SCAN AGENT       — 77 78  
C   N78 'MJ12bot' SCAN AGENT       — 77 78  
C   N78 'PetalBot' SCAN AGENT       — 77 78  
C   N78 'SEOkicks' SCAN AGENT       — 77 78  
C   N78 'Seekport' SCAN AGENT       — 77 78  
C   N78 'netEstate' SCAN AGENT       — 77 78  
C   N78 'AhrefsBot' SCAN AGENT       — 77 78  
C   N78 'adscanner' SCAN AGENT       — 77 78  
C   N78 'Barkrowler' SCAN AGENT       — 77 78  
C   N78 'SemrushBot' SCAN AGENT       — 77 78  
C   N78 'serpstatbot' SCAN AGENT       — 77 78  
C   N78 'Linguee Bot' SCAN AGENT       — 77 78  
C   N78 'AspiegelBot' SCAN AGENT       — 77 78  
C   N78 'seoscanners' SCAN AGENT       — 77 78  
C   N78   CAT 'href="' :1 LINK            
C   78   CAT 'ping="' :1 LINK            
C          
C *     --------------------------------------
C *     Navigation nach Typ
C *     --------------------------------------
C     WWTYPSAVE IFNE TYPIDX              
C     WWTYPSAVE ANDNE TYPLOGIN              
C     WWTYPSAVE ANDNE TYPLOGOUT              
C     WWTYPSAVE ANDNE TYPNEUMIT              
C     WWTYPSAVE ANDNE TYPNEUPWD              
C     TARGET ANDNE TARGETPARENT              
C     TARGET ANDNE TARGETFRD              
C       CAT ELEMENT :0 LINK            
C       CAT '/' :0 LINK            
C       ENDIF                
C *     --------------------------------------
C *     Navigation nach Typ
C *     --------------------------------------
C       CAT NANAV :0 LINK            
C       CAT HTML :0 LINK            
C       CAT QUERYSUCHE :0 LINK            
C       CAT '"' :0 LINK            
C       CAT TARGET :0 LINK            
C       CAT NOFOLLOW :0 LINK            
C       CAT '>' :0 LINK            
C       MOVEL(P) TITITEL MYTITEL            
C       EXSR MYTITELX              
C       CAT MYTITEL :0 LINK            
C       CAT '</a>' :0 LINK            
C       ENDSR                
C          
  X * NAVADD2 EXSR BAR$NAV    
  X  
C     LINKNAV2 BEGSR                
C *     --------------------------------------
C *     Navigation nach Typ
C *     --------------------------------------
C       MOVEL(P) '<a' LINK            
C       CAT NAVSTYLE :0 LINK            
C       CAT 'href="' :1 LINK            
C       CAT NANAV :0 LINK            
C       CAT HTML :0 LINK            
C       CAT QUERY :0 LINK            
C       CAT '"' :0 LINK            
C       CAT TARGET :0 LINK            
C       CAT '>' :0 LINK            
C       MOVEL(P) TITITEL MYTITEL            
C       EXSR MYTITELX              
C       CAT MYTITEL :0 LINK            
C       CAT '</a>' :0 LINK            
C       ENDSR                
C          
  X * LINKKAL EXSR BAR$LINK    
  X * LINKSRCS EXSR BAR$LINK    
  X * LINKHTTPX EXSR BAR$LINK    
  X * LINKSITEMAP EXSR BAR$LINK    
  X * LINKBESUCHER EXSR BAR$LINK    
  X * LINKANFRAGEN EXSR BAR$LINK    
  X * LINKMMM EXSR BAR$LINK    
  X * LINKGAL EXSR BAR$LINK    
  X * LINKINF EXSR BAR$LINK    
  X * LINKPRF EXSR BAR$LINK    
  X * NAVADDREL EXSR BAR$NAV    
  X  
C     LINKNAVREL BEGSR                
C *     --------------------------------------
C *     Navigation nach Typ
C *     --------------------------------------
C       MOVEL(P) '<a' LINK            
C       CAT NAVSTYLE :0 LINK            
C       CAT 'href="' :1 LINK            
C       CAT PFADREL :0 LINK            
C       CAT NANAV :0 LINK            
C       CAT HTML :0 LINK            
C       CAT QUERY :0 LINK            
C       CAT '"' :0 LINK            
C       CAT TARGET :0 LINK            
C       CAT '>' :0 LINK            
C       MOVEL(P) TITITEL MYTITEL            
C       EXSR MYTITELX              
C       CAT MYTITEL :0 LINK            
C       CAT '</a>' :0 LINK            
C       ENDSR                
C          
  X * LINKPF EXSR BAR$LINK    
  X * LINKAKT EXSR BAR$LINK    
  X * LINKBAR EXSR BAR$LINK    
  X  
C     LINKNAVRELX BEGSR                
C *     --------------------------------------
C *     Navigation nach Typ
C *     --------------------------------------
C       MOVEL(P) '<a' LINK            
C       CAT NAVSTYLE :0 LINK            
C       CAT 'href="' :1 LINK            
C       CAT PFADREL :0 LINK            
C       CAT NANAV :0 LINK            
C       CAT HTML :0 LINK            
C       CAT QUERY :0 LINK            
C       CAT '"' :0 LINK            
C       CAT TARGET :0 LINK            
C     *BLANKS COMP LINKADD       — — 78  
C   N78   CAT BLINK :0 LINK            
C       CAT '>' :0 LINK            
C       MOVEL(P) TITITEL MYTITEL            
C       EXSR MYTITELX              
C       CAT MYTITEL :0 LINK            
C       CAT '</a>' :0 LINK            
C *     --------------------------------------
C *     Hinweis anzeigen
C *     --------------------------------------
C     *BLANKS IFNE LINKADD              
C     LINKADD CAT LINK :1 LINK            
C       ENDIF                
C       ENDSR                
C          
  X * NAVADDHTML EXSR BAR$NAV    
  X  
C     LINKNAVHTML BEGSR                
C *     --------------------------------------
C *     Navigation nach Typ
C *     --------------------------------------
C       MOVEL(P) '<a' LINK            
C       CAT NAVSTYLE :0 LINK            
C       CAT 'href="' :1 LINK            
C     UPPER:LOWER XLATE(P) ELEMENT ELEMENT9            
C     INDEXNAV IFNE ELEMENT9              
C       CAT ELEMENT :0 LINK            
C       CAT HTML :0 LINK            
C       CAT QUERY :0 LINK            
C       ELSE                
C       CAT './' :0 LINK            
C       CAT QUERY :0 LINK            
C       ENDIF                
C       CAT '"' :0 LINK            
C       CAT '>' :0 LINK            
C       MOVEL(P) TITITEL MYTITEL            
C       EXSR MYTITELX              
C       CAT MYTITEL :0 LINK            
C       CAT '</a>' :0 LINK            
C       ENDSR                
C          
  X * LINKIDX EXSR BAR$LINK    
  X  
C     LINKIDXREL BEGSR                
C *     --------------------------------------
C *     Navigation nach Typ
C *     --------------------------------------
C       MOVEL(P) '<a' LINK            
C       CAT NAVSTYLE :0 LINK            
C       CAT 'href="' :1 LINK            
C       CAT PFADREL :0 LINK            
C     *BLANKS COMP PFADREL       — — 78  
C   78   CAT './' :0 LINK            
C       CAT QUERY :0 LINK            
C       CAT '"' :0 LINK            
C       CAT TARGET :0 LINK            
C       CAT '>' :0 LINK            
C       MOVEL(P) TITITEL MYTITEL            
C       EXSR MYTITELX              
C       CAT MYTITEL :0 LINK            
C       CAT '</a>' :0 LINK            
C       ENDSR                
C          
  X * LINKSMILYS EXSR BAR$LINK    
  X  
C     LINKSMILYSREL BEGSR                
C *     --------------------------------------
C *     Navigation nach Typ
C *     --------------------------------------
C       MOVEL(P) '<a' LINK            
C       CAT NAVSTYLE :0 LINK            
C       CAT 'href="' :1 LINK            
C       CAT PFADREL :0 LINK            
C       CAT NANAV :0 LINK            
C       CAT HTML :0 LINK            
C       CAT QUERY :0 LINK            
C       CAT '"' :0 LINK            
C     WWTYP IFNE TYPINF              
C     WWTYP ANDNE TYPSMILY              
C       CAT TARGETSMILY :0 LINK            
C       ELSE                
C       CAT TARGET :0 LINK            
C       ENDIF                
C       CAT '>' :0 LINK            
C       MOVEL(P) TITITEL MYTITEL            
C       EXSR MYTITELX              
C       CAT MYTITEL :0 LINK            
C       CAT '</a>' :0 LINK            
C       ENDSR                
C          
  X * SENDTITELBODY EXSR BAR$SEND    
  X * SENDTITELBODY EXSR BAR$SEND    
  X * SENDTITELBODY EXSR BAR$SEND    
  X  
C     LINKNAVSTYLE BEGSR                
C *     --------------------------------------
C *     Verweis in NAVSTYLE
C *     --------------------------------------
C       EVAL LINK = '<font'+NAVSTYLE+'>'+
C         %TRIM(LINK)+'</font>'
C       ENDSR                
C          
  X * ARTVOR EXSR BAR$ART    
  X * ARTNACH EXSR BAR$ART    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEKAL2 EXSR BAR$LISTE    
  X * LISTEKAL3 EXSR BAR$LISTE    
  X * TABLECOPY EXSR BAR$SEND    
  X * TABLECOPY EXSR BAR$SEND    
  X * ZEILEART2 EXSR BAR$ZEILE    
  X * ZEILEARTTEXT2 EXSR BAR$ZEILE    
  X * ZEILEMIT2 EXSR BAR$ZEILE    
  X * ZEILERUB2 EXSR BAR$ZEILE    
  X * ZEILENAV2 EXSR BAR$ZEILE    
  X * ZEILEWER2 EXSR BAR$ZEILE    
  X * ZEILESRC2 EXSR BAR$ZEILE    
  X * ZEILESRC2 EXSR BAR$ZEILE    
  X * ZEILEFILE2 EXSR BAR$ZEILE    
  X * ZEILEFILE2 EXSR BAR$ZEILE    
  X * ZEILEANFRAGE2 EXSR BAR$ZEILE    
  X  
C     LINKADDB BEGSR                
C *     --------------------------------------
C *     Verweis fett
C *     --------------------------------------
C     '<b>' CAT LINK :0 LINK            
C       CAT '</b>' :0 LINK            
C       ENDSR                
C          
  X * ZEILEART2 EXSR BAR$ZEILE    
  X * ZEILERUB2 EXSR BAR$ZEILE    
  X * ZEILENAV2 EXSR BAR$ZEILE    
  X  
C     LINKADD23 BEGSR                
C *     --------------------------------------
C *     Inhalt stapeln
C *     --------------------------------------
C     *BLANKS IFEQ LINK              
C       MOVEL(P) LINK2 LINK            
C       ELSE                
C     *BLANKS IFNE LINK2              
C     '<br>' CAT LINK :1 LINK            
C     LINK2 CAT LINK :0 LINK            
C       ENDIF                
C       ENDIF                
C *     --------------------------------------
C *     Neu?
C *     --------------------------------------
C     '<br>' CAT LINK :1 LINK            
C     NEU COMP LINK3       — — 77  
C   77 NEUSP CAT LINK :0 LINK            
C   N77 NEUSP3 CAT LINK :0 LINK            
C       ENDSR                
C          
  X * ZEILEART2 EXSR BAR$ZEILE    
  X  
C     LINKADDPN BEGSR                
C *     --------------------------------------
C *     Artikel/Nachricht von/an Benutzer
C *     --------------------------------------
C     NOMIT IFNE ARPN              
C     BEMIT COMP ARPN       75 75 —  
C   75 *ZERO ADD ARPN MIMIT            
C   N75 *ZERO ADD ARMIT MIMIT            
C       MOVEL(P) LINK LINK7            
C       EXSR LINKMIT              
C     *BLANKS IFNE LINK7              
C     '<br>' CAT LINK :1 LINK            
C     LINK7 CAT LINK :0 LINK            
C       ENDIF                
C       ENDIF                
C       ENDSR                
C          
  X * ZEILENAV2 EXSR BAR$ZEILE    
  X  
C     LINKADDTYP BEGSR                
C *     --------------------------------------
C *     Typ der Navigation
C *     --------------------------------------
C     *BLANKS IFNE DEBUG              
C     BEMIT IFEQ WEBMASTER              
C       CAT '<br>' :0 LINK            
C       CAT '(' :1 LINK            
C       CAT NATYP :0 LINK            
C       CAT ')' :0 LINK            
C       ENDIF                
C       ENDIF                
C       ENDSR                
C          
C     LINKDSPLY BEGSR                
C     1 ADD MSGLEN MSGPOS            
C *     --------------------------------------
C *     Eingabefeld
C *     --------------------------------------
C       MOVEL(P) LINK LINK7            
C     *BLANKS DOWNE LINK7              
C       MOVEL(P) LINK7 MSG            
C       SUBST(P) LINK7:MSGPOS LINK7            
C     MSG DSPLY                
C       ENDDO                
C       ENDSR                

1420 ms | Kontakt | Information | Aibo-Bar © 2005-2024