Navigation

BAR$NAV (RPGLE)



  X * NAVIGATION BEGSR BAR$NAV 109  
  X * NAV BEGSR BAR$NAV 30  
  X * NAVX BEGSR BAR$NAV 16  
  X * NAVADDZEILE BEGSR BAR$NAV 16  
  X * NAVADDZEILEX BEGSR BAR$NAV 8  
  X * NAVADDPF BEGSR BAR$NAV 7  
  X * NAVADDAKT BEGSR BAR$NAV 7  
  X * NAVADDBAR BEGSR BAR$NAV 8  
  X * NAVADDMMM BEGSR BAR$NAV 7  
  X * NAVADDGAL BEGSR BAR$NAV 7  
  X * NAVADDIDX BEGSR BAR$NAV 7  
  X * NAVADDINF BEGSR BAR$NAV 7  
  X * NAVADDPRF BEGSR BAR$NAV 7  
  X * NAVADDLOG BEGSR BAR$NAV 7  
  X * NAVADDPARENT BEGSR BAR$NAV 9  
  X * NAVADDEDT BEGSR BAR$NAV 9  
  X * NAVADDSMILYS BEGSR BAR$NAV 9  
  X * NAVADDSEITE BEGSR BAR$NAV 7  
  X * NAVADD1 BEGSR BAR$NAV 8  
  X * NAVADD2 BEGSR BAR$NAV 8  
  X * NAVADDREL BEGSR BAR$NAV 8  
  X * NAVADDHTML BEGSR BAR$NAV 8  
  X * NAVADDARTPN BEGSR BAR$NAV 14  
  X * NAVMMMNAV BEGSR BAR$NAV 10  
  X * NAVGALNAV BEGSR BAR$NAV 10  
  X * NAVLEER BEGSR BAR$NAV 5  
  X * NAVPF BEGSR BAR$NAV 10  
  X * NAVAKT BEGSR BAR$NAV 10  
  X * NAVMMM BEGSR BAR$NAV 10  
  X * NAVGAL BEGSR BAR$NAV 16  
  X * NAVNAV BEGSR BAR$NAV 10  
  X * NAVIDX BEGSR BAR$NAV 13  
  X * NAVNNN BEGSR BAR$NAV 10  
  X * NAVMNT BEGSR BAR$NAV 8  
  X * NAVINF BEGSR BAR$NAV 9  
  X * NAVKAL BEGSR BAR$NAV 9  
  X * NAVDEV BEGSR BAR$NAV 9  
  X * NAVFILES BEGSR BAR$NAV 13  
  X * NAVSMILY BEGSR BAR$NAV 16  
  X * NAVSMILYS BEGSR BAR$NAV 19  
  X * NAVSECURE BEGSR BAR$NAV 9  
  X * NAVEXTERN BEGSR BAR$NAV 9  
  X * NAVSPERRE BEGSR BAR$NAV 9  
  X * NAVSITEMAP BEGSR BAR$NAV 9  
  X * NAVHISTORY BEGSR BAR$NAV 9  
  X * NAVBESUCHE BEGSR BAR$NAV 10  
  X * NAVBESUCHER BEGSR BAR$NAV 10  
  X * NAVANFRAGEN BEGSR BAR$NAV 10  
  X * NAVFRN BEGSR BAR$NAV 14  
  X * NAVSRC BEGSR BAR$NAV 10  
  X * NAVSRCS BEGSR BAR$NAV 9  
  X * NAVHTTPX BEGSR BAR$NAV 9  
  X * NAVERR BEGSR BAR$NAV 9  
  X * NAVRUB BEGSR BAR$NAV 16  
  X * NAVARTPN BEGSR BAR$NAV 15  
  X * NAVAW BEGSR BAR$NAV 9  
  X * NAVNEURUB BEGSR BAR$NAV 12  
  X * NAVNEUSMILY BEGSR BAR$NAV 12  
  X * NAVNEUART BEGSR BAR$NAV 15  
  X * NAVNEUART2 BEGSR BAR$NAV 15  
  X * NAVNEUPN BEGSR BAR$NAV 15  
  X * NAVNEUPN2 BEGSR BAR$NAV 15  
  X * NAVLOGIN BEGSR BAR$NAV 9  
  X * NAVLOGIN3 BEGSR BAR$NAV 9  
  X * NAVLOGOUT BEGSR BAR$NAV 9  
  X * NAVMIT BEGSR BAR$NAV 9  
  X * NAVMITPN BEGSR BAR$NAV 9  
  X * NAVMITART BEGSR BAR$NAV 9  
  X * NAVNEUMIT BEGSR BAR$NAV 9  
  X * NAVNEUPWD BEGSR BAR$NAV 9  
  X * NAVCHGPWD BEGSR BAR$NAV 9  
  X * NAVCHGMAIL BEGSR BAR$NAV 9  
  X * NAVEDTMIT BEGSR BAR$NAV 10  
  X * NAVEDTNAV BEGSR BAR$NAV 13  
  X * NAVNEUFILE BEGSR BAR$NAV 15  
  X * NAVNEUFILE2 BEGSR BAR$NAV 15  
  X * NAVEDTIDX BEGSR BAR$NAV 15  
  X * NAVEDTRUB BEGSR BAR$NAV 12  
  X * NAVEDTSMILY BEGSR BAR$NAV 12  
  X * NAVEDTARTPN BEGSR BAR$NAV 10  
  X * NAVEDTAW BEGSR BAR$NAV 10  
  X * NAVNEUAW BEGSR BAR$NAV 10  
  X * NAVADDARTFRN BEGSR BAR$NAV 34  
  X * NATYPNAV BEGSR BAR$NAV 18  
  X * NATYPTITEL BEGSR BAR$NAV 10  
  X  
  X * NAKEY1NAV KLIST BAR$NAV 3  
  X * TIKEY1NAVSPR KLIST BAR$NAV 4  
  X * TIKEY1NAVMAN KLIST BAR$NAV 4  
  X  
  X * WRSTOUT EXSR BAR$STOUT    
  X * LINKPF EXSR BAR$LINK    
  X * LINKAKT EXSR BAR$LINK    
  X * LINKBAR EXSR BAR$LINK    
  X * LINKMMM EXSR BAR$LINK    
  X * LINKGAL EXSR BAR$LINK    
  X * LINKIDX EXSR BAR$LINK    
  X * LINKINF EXSR BAR$LINK    
  X * LINKPRF EXSR BAR$LINK    
  X * LINKLOG EXSR BAR$LINK    
  X * LINKPARENT EXSR BAR$LINK    
  X * LINKSMILYS EXSR BAR$LINK    
  X * LINKNAV1 EXSR BAR$LINK    
  X * LINKNAV2 EXSR BAR$LINK    
  X * LINKNAVREL EXSR BAR$LINK    
  X * LINKNAVHTML EXSR BAR$LINK    
  X  
C          
C *COPYRIGHT JÜRGEN REULE 2010-2023
C          
  X * SENDHTML EXSR BAR$SEND    
  X  
C     NAVIGATION BEGSR                
C *     --------------------------------------
C *     Navigation ausgeben
C *     --------------------------------------
C     WWTYP CASEQ TYPPF NAVPF            
C     WWTYP CASEQ TYPAKT NAVAKT            
C     WWTYP CASEQ TYPMMM NAVMMM            
C     WWTYP CASEQ TYPGAL NAVGAL            
C     WWTYP CASEQ TYPNAV NAVNAV            
C     WWTYP CASEQ TYPIDX NAVIDX            
C     WWTYP CASEQ TYPNNN NAVNNN            
C     WWTYP CASEQ TYPMNT NAVMNT            
C          
C     WWTYP CASEQ TYPINF NAVINF            
C     WWTYP CASEQ TYPKAL NAVKAL            
C     WWTYP CASEQ TYPDEV NAVDEV            
C     WWTYP CASEQ TYPSRC NAVSRC            
C     WWTYP CASEQ TYPSRCS NAVSRCS            
C     WWTYP CASEQ TYPHTTPX NAVHTTPX            
C          
C     WWTYP CASEQ TYPPN NAVARTPN            
C     WWTYP CASEQ TYPART NAVARTPN            
C     WWTYP CASEQ TYPBAR NAVARTPN            
C     WWTYP CASEQ TYPMITPN NAVMITPN            
C     WWTYP CASEQ TYPMITART NAVMITART            
C     WWTYP CASEQ TYPMIT NAVMIT            
C     WWTYP CASEQ TYPRUB NAVRUB            
C     WWTYP CASEQ TYPSMILY NAVSMILY            
C     WWTYP CASEQ TYPAW NAVAW            
C          
C     WWTYP CASEQ TYPNEUPN NAVNEUPN            
C     WWTYP CASEQ TYPNEUPN2 NAVNEUPN2            
C     WWTYP CASEQ TYPNEUART NAVNEUART            
C     WWTYP CASEQ TYPNEUART2 NAVNEUART2            
C     WWTYP CASEQ TYPNEUMIT NAVNEUMIT            
C     WWTYP CASEQ TYPNEURUB NAVNEURUB            
C     WWTYP CASEQ TYPNEUSMILY NAVNEUSMILY            
C     WWTYP CASEQ TYPNEUAW NAVNEUAW            
C          
C     WWTYP CASEQ TYPEDTPN NAVEDTARTPN            
C     WWTYP CASEQ TYPEDTPN2 NAVEDTARTPN            
C     WWTYP CASEQ TYPEDTART NAVEDTARTPN            
C     WWTYP CASEQ TYPEDTART2 NAVEDTARTPN            
C     WWTYP CASEQ TYPEDTMIT NAVEDTMIT            
C     WWTYP CASEQ TYPEDTRUB NAVEDTRUB            
C     WWTYP CASEQ TYPEDTSMILY NAVEDTSMILY            
C     WWTYP CASEQ TYPEDTAW NAVEDTAW            
C          
C     WWTYP CASEQ TYPNEUFILE NAVNEUFILE            
C     WWTYP CASEQ TYPNEUFILE2 NAVNEUFILE2            
C          
C     WWTYP CASEQ TYPEDTNAV NAVEDTNAV            
C     WWTYP CASEQ TYPEDTIDX NAVEDTIDX            
C          
C     WWTYP CASEQ TYPICN NAVFILES            
C     WWTYP CASEQ TYPICNS NAVFILES            
C     WWTYP CASEQ TYPOBJ NAVFILES            
C     WWTYP CASEQ TYPOBJS NAVFILES            
C     WWTYP CASEQ TYPFILE NAVFILES            
C     WWTYP CASEQ TYPFILES NAVFILES            
C     WWTYP CASEQ TYPSAVE NAVFILES            
C     WWTYP CASEQ TYPSAVES NAVFILES            
C     WWTYP CASEQ TYPBLASE NAVFILES            
C     WWTYP CASEQ TYPBLASEN NAVFILES            
C     WWTYP CASEQ TYPKNOWN NAVFILES            
C     WWTYP CASEQ TYPKNOWNS NAVFILES            
C          
C     WWTYP CASEQ TYPSMILYS NAVSMILYS            
C     WWTYP CASEQ TYPSECURE NAVSECURE            
C     WWTYP CASEQ TYPEXTERN NAVEXTERN            
C     WWTYP CASEQ TYPSPERRE NAVSPERRE            
C     WWTYP CASEQ TYPSITEMAP NAVSITEMAP            
C     WWTYP CASEQ TYPHISTORY NAVHISTORY            
C     WWTYP CASEQ TYPBESUCHE NAVBESUCHE            
C     WWTYP CASEQ TYPBESUCHER NAVBESUCHER            
C     WWTYP CASEQ TYPANFRAGEN NAVANFRAGEN            
C          
C     WWTYP CASEQ TYPADS NAVNAV            
C     WWTYP CASEQ TYPFONT NAVNAV            
C     WWTYP CASEQ TYPROBOTS NAVNAV            
C     WWTYP CASEQ TYPAPPSITE NAVNAV            
C     WWTYP CASEQ TYPFAVICON NAVNAV            
C     WWTYP CASEQ TYPTOUCHICON NAVNAV            
C          
C     WWTYP CASEQ TYPLOGIN NAVLOGIN            
C     WWTYP CASEQ TYPLOGIN2 NAVLOGIN            
C     WWTYP CASEQ TYPLOGIN3 NAVLOGIN3            
C     WWTYP CASEQ TYPLOGOUT NAVLOGOUT            
C          
C     WWTYP CASEQ TYPNEUPWD NAVNEUPWD            
C     WWTYP CASEQ TYPCHGPWD NAVCHGPWD            
C     WWTYP CASEQ TYPCHGMAIL NAVCHGMAIL            
C          
C     WWTYP CASEQ TYPFRA NAVFRN            
C     WWTYP CASEQ TYPFRR NAVFRN            
C     WWTYP CASEQ TYPFRN NAVFRN            
C          
C     WWTYP CASEQ TYPFRD NAVLEER            
C     WWTYP CASEQ TYPFRE NAVLEER            
C     WWTYP CASEQ TYPFRI NAVLEER            
C     WWTYP CASEQ TYPFRW NAVLEER            
C     WWTYP CASEQ TYPFRS NAVLEER            
C     WWTYP CASEQ TYPFRP NAVLEER            
C     WWTYP CASEQ TYPFRT NAVLEER            
C          
C     WWTYP CASEQ TYPERR NAVERR            
C       CAS   NAVNAV            
C       ENDCS                
C       ENDSR                
C          
  X * NAVPF EXSR BAR$NAV    
  X * NAVAKT EXSR BAR$NAV    
  X * NAVMMM EXSR BAR$NAV    
  X * NAVGAL EXSR BAR$NAV    
  X * NAVNAV EXSR BAR$NAV    
  X * NAVIDX EXSR BAR$NAV    
  X * NAVNNN EXSR BAR$NAV    
  X * NAVINF EXSR BAR$NAV    
  X * NAVKAL EXSR BAR$NAV    
  X * NAVDEV EXSR BAR$NAV    
  X * NAVFILES EXSR BAR$NAV    
  X * NAVSMILY EXSR BAR$NAV    
  X * NAVSMILYS EXSR BAR$NAV    
  X * NAVSECURE EXSR BAR$NAV    
  X * NAVEXTERN EXSR BAR$NAV    
  X * NAVSPERRE EXSR BAR$NAV    
  X * NAVSITEMAP EXSR BAR$NAV    
  X * NAVHISTORY EXSR BAR$NAV    
  X * NAVBESUCHE EXSR BAR$NAV    
  X * NAVBESUCHER EXSR BAR$NAV    
  X * NAVANFRAGEN EXSR BAR$NAV    
  X * NAVFRN EXSR BAR$NAV    
  X * NAVSRC EXSR BAR$NAV    
  X * NAVSRCS EXSR BAR$NAV    
  X * NAVHTTPX EXSR BAR$NAV    
  X * NAVERR EXSR BAR$NAV    
  X * NAVRUB EXSR BAR$NAV    
  X * NAVARTPN EXSR BAR$NAV    
  X * NAVAW EXSR BAR$NAV    
  X * NAVNEURUB EXSR BAR$NAV    
  X * NAVNEUSMILY EXSR BAR$NAV    
  X * NAVNEUART EXSR BAR$NAV    
  X * NAVNEUART2 EXSR BAR$NAV    
  X * NAVNEUPN EXSR BAR$NAV    
  X * NAVNEUPN2 EXSR BAR$NAV    
  X * NAVLOGIN EXSR BAR$NAV    
  X * NAVLOGIN3 EXSR BAR$NAV    
  X * NAVLOGOUT EXSR BAR$NAV    
  X * NAVMIT EXSR BAR$NAV    
  X * NAVMITPN EXSR BAR$NAV    
  X * NAVMITART EXSR BAR$NAV    
  X * NAVNEUMIT EXSR BAR$NAV    
  X * NAVNEUPWD EXSR BAR$NAV    
  X * NAVCHGPWD EXSR BAR$NAV    
  X * NAVCHGMAIL EXSR BAR$NAV    
  X * NAVEDTMIT EXSR BAR$NAV    
  X * NAVEDTNAV EXSR BAR$NAV    
  X * NAVNEUFILE EXSR BAR$NAV    
  X * NAVNEUFILE2 EXSR BAR$NAV    
  X * NAVEDTIDX EXSR BAR$NAV    
  X * NAVEDTRUB EXSR BAR$NAV    
  X * NAVEDTSMILY EXSR BAR$NAV    
  X * NAVEDTARTPN EXSR BAR$NAV    
  X * NAVEDTAW EXSR BAR$NAV    
  X * NAVNEUAW EXSR BAR$NAV    
  X  
C     NAV BEGSR                
C *     --------------------------------------
C *     Navigation öffnen
C *     --------------------------------------
C       EVAL BUF = '<div id="navigationx">'
C          
C *     --------------------------------------
C *     Abstand ausgeben
C *     --------------------------------------
C     WWTYP IFNE TYPFRN              
C     PFADXX IFEQ HTML              
C       EVAL BUF = BUF + %TRIM(ABSTAND)
C       ENDIF                
C       ENDIF                
C *     --------------------------------------
C *     Navigation öffnen
C *     --------------------------------------
C       EVAL BUF =
C       BUF + '<div id="navigation">§+
C              <table border=0 +
C                cellspacing=0 +
C                cellpadding=8 summary="">§+
C                <tr><td' +%TRIMR(NAVCOLOR)+'>+
C                <center>'+%TRIMR(FONT)
C          
C       EVAL NAVSTYLESAVE =
C       NAVSTYLE
C       CLEAR   NAVCOLS            
C       CLEAR   NAVSTYLE            
C       ENDSR                
C          
  X * NAVPF EXSR BAR$NAV    
  X * NAVAKT EXSR BAR$NAV    
  X * NAVMMM EXSR BAR$NAV    
  X * NAVGAL EXSR BAR$NAV    
  X * NAVNAV EXSR BAR$NAV    
  X * NAVIDX EXSR BAR$NAV    
  X * NAVNNN EXSR BAR$NAV    
  X * NAVINF EXSR BAR$NAV    
  X * NAVKAL EXSR BAR$NAV    
  X * NAVDEV EXSR BAR$NAV    
  X * NAVFILES EXSR BAR$NAV    
  X * NAVSMILY EXSR BAR$NAV    
  X * NAVSMILYS EXSR BAR$NAV    
  X * NAVSECURE EXSR BAR$NAV    
  X * NAVEXTERN EXSR BAR$NAV    
  X * NAVSPERRE EXSR BAR$NAV    
  X * NAVSITEMAP EXSR BAR$NAV    
  X * NAVHISTORY EXSR BAR$NAV    
  X * NAVBESUCHE EXSR BAR$NAV    
  X * NAVBESUCHER EXSR BAR$NAV    
  X * NAVANFRAGEN EXSR BAR$NAV    
  X * NAVFRN EXSR BAR$NAV    
  X * NAVSRC EXSR BAR$NAV    
  X * NAVSRCS EXSR BAR$NAV    
  X * NAVHTTPX EXSR BAR$NAV    
  X * NAVERR EXSR BAR$NAV    
  X * NAVRUB EXSR BAR$NAV    
  X * NAVARTPN EXSR BAR$NAV    
  X * NAVAW EXSR BAR$NAV    
  X * NAVNEURUB EXSR BAR$NAV    
  X * NAVNEUSMILY EXSR BAR$NAV    
  X * NAVNEUART EXSR BAR$NAV    
  X * NAVNEUART2 EXSR BAR$NAV    
  X * NAVNEUPN EXSR BAR$NAV    
  X * NAVNEUPN2 EXSR BAR$NAV    
  X * NAVLOGIN EXSR BAR$NAV    
  X * NAVLOGIN3 EXSR BAR$NAV    
  X * NAVLOGOUT EXSR BAR$NAV    
  X * NAVMIT EXSR BAR$NAV    
  X * NAVMITPN EXSR BAR$NAV    
  X * NAVMITART EXSR BAR$NAV    
  X * NAVNEUMIT EXSR BAR$NAV    
  X * NAVNEUPWD EXSR BAR$NAV    
  X * NAVCHGPWD EXSR BAR$NAV    
  X * NAVCHGMAIL EXSR BAR$NAV    
  X * NAVEDTMIT EXSR BAR$NAV    
  X * NAVEDTNAV EXSR BAR$NAV    
  X * NAVNEUFILE EXSR BAR$NAV    
  X * NAVNEUFILE2 EXSR BAR$NAV    
  X * NAVEDTIDX EXSR BAR$NAV    
  X * NAVEDTRUB EXSR BAR$NAV    
  X * NAVEDTSMILY EXSR BAR$NAV    
  X * NAVEDTARTPN EXSR BAR$NAV    
  X * NAVEDTAW EXSR BAR$NAV    
  X * NAVNEUAW EXSR BAR$NAV    
  X  
C     NAVX BEGSR                
C *     --------------------------------------
C *     Navigation schließen
C *     --------------------------------------
C       EXSR NAVADDLOG              
C          
C       EVAL NAVSTYLE =
C       NAVSTYLESAVE
C          
C       EVAL BUF =
C       BUF + %TRIMR(FONTX) +
C             '</center></td></tr></table></div>+
C                             </div>'
C       EXSR WRSTOUT              
C       MOVEL(P) ABSTAND2 ABSTAND            
C       ENDSR                
C          
  X * NAVADDPF EXSR BAR$NAV    
  X * NAVADDAKT EXSR BAR$NAV    
  X * NAVADDBAR EXSR BAR$NAV    
  X * NAVADDMMM EXSR BAR$NAV    
  X * NAVADDGAL EXSR BAR$NAV    
  X * NAVADDIDX EXSR BAR$NAV    
  X * NAVADDINF EXSR BAR$NAV    
  X * NAVADDPRF EXSR BAR$NAV    
  X * NAVADDLOG EXSR BAR$NAV    
  X * NAVADDPARENT EXSR BAR$NAV    
  X * NAVADDSMILYS EXSR BAR$NAV    
  X * NAVADD1 EXSR BAR$NAV    
  X * NAVADD2 EXSR BAR$NAV    
  X * NAVADDREL EXSR BAR$NAV    
  X * NAVADDHTML EXSR BAR$NAV    
  X  
C     NAVADDZEILE BEGSR                
C *     --------------------------------------
C *     Navigation aufnehmen
C *     --------------------------------------
C     *ZERO IFEQ NAVCOLS              
C       EVAL BUF =
C       BUF + '§    '
C       ELSE                
C       EVAL BUF =
C       BUF + '§  | '
C       ENDIF                
C       EVAL BUF =
C       BUF + '<b'+NAVSTYLESAVE+'>'+
C                 %TRIM(LINK) +'</b>'
C       ADD 1 NAVCOLS            
C       ENDSR                
C          
  X * NAVADDBAR EXSR BAR$NAV    
  X * NAVGAL EXSR BAR$NAV    
  X * NAVGAL EXSR BAR$NAV    
  X * NAVSMILYS EXSR BAR$NAV    
  X * NAVSMILYS EXSR BAR$NAV    
  X * NAVRUB EXSR BAR$NAV    
  X * NAVNEUART EXSR BAR$NAV    
  X * NAVNEUART2 EXSR BAR$NAV    
  X * NAVNEUPN EXSR BAR$NAV    
  X * NAVNEUPN2 EXSR BAR$NAV    
  X * NAVEDTIDX EXSR BAR$NAV    
  X * NAVADDARTFRN EXSR BAR$NAV    
  X * NAVADDARTFRN EXSR BAR$NAV    
  X * NAVADDARTFRN EXSR BAR$NAV    
  X  
C     NAVADDZEILEX BEGSR                
C *     --------------------------------------
C *     Nächste Navigation in neue Zeile
C *     --------------------------------------
C       EVAL BUF =
C       BUF + '<br>'
C       CLEAR   NAVCOLS            
C       ENDSR                
C          
  X * NAVADDARTPN EXSR BAR$NAV    
  X * NAVMMMNAV EXSR BAR$NAV    
  X * NAVGALNAV EXSR BAR$NAV    
  X * NAVFRN EXSR BAR$NAV    
  X  
C     NAVADDPF BEGSR                
C *     --------------------------------------
C *     Postfach
C *     --------------------------------------
C       EXSR LINKPF              
C       EXSR NAVADDZEILE              
C       ENDSR                
C          
  X * NAVADDARTPN EXSR BAR$NAV    
  X * NAVMMMNAV EXSR BAR$NAV    
  X * NAVGALNAV EXSR BAR$NAV    
  X * NAVFRN EXSR BAR$NAV    
  X  
C     NAVADDAKT BEGSR                
C *     --------------------------------------
C *     Aktuelles
C *     --------------------------------------
C       EXSR LINKAKT              
C       EXSR NAVADDZEILE              
C       ENDSR                
C          
  X * NAVADDARTPN EXSR BAR$NAV    
  X * NAVMMMNAV EXSR BAR$NAV    
  X * NAVGALNAV EXSR BAR$NAV    
  X * NAVFILES EXSR BAR$NAV    
  X * NAVSMILY EXSR BAR$NAV    
  X * NAVFRN EXSR BAR$NAV    
  X * NAVRUB EXSR BAR$NAV    
  X * NAVNEURUB EXSR BAR$NAV    
  X * NAVNEUSMILY EXSR BAR$NAV    
  X * NAVNEUART EXSR BAR$NAV    
  X * NAVNEUART2 EXSR BAR$NAV    
  X * NAVNEUPN EXSR BAR$NAV    
  X * NAVNEUPN2 EXSR BAR$NAV    
  X * NAVEDTNAV EXSR BAR$NAV    
  X * NAVNEUFILE EXSR BAR$NAV    
  X * NAVNEUFILE2 EXSR BAR$NAV    
  X * NAVEDTIDX EXSR BAR$NAV    
  X * NAVEDTRUB EXSR BAR$NAV    
  X * NAVEDTSMILY EXSR BAR$NAV    
  X  
C     NAVADDBAR BEGSR                
C *     --------------------------------------
C *     Chat
C *     --------------------------------------
C       EXSR LINKBAR              
C       EXSR NAVADDZEILE              
C   66   EXSR NAVADDZEILEX              
C       ENDSR                
C          
  X * NAVADDARTPN EXSR BAR$NAV    
  X * NAVMMMNAV EXSR BAR$NAV    
  X * NAVNEUPN EXSR BAR$NAV    
  X * NAVNEUPN2 EXSR BAR$NAV    
  X  
C     NAVADDMMM BEGSR                
C *     --------------------------------------
C *     Mitglieder
C *     --------------------------------------
C       EXSR LINKMMM              
C       EXSR NAVADDZEILE              
C       ENDSR                
C          
  X * NAVADDARTPN EXSR BAR$NAV    
  X * NAVGALNAV EXSR BAR$NAV    
  X * NAVFILES EXSR BAR$NAV    
  X * NAVSMILY EXSR BAR$NAV    
  X * NAVRUB EXSR BAR$NAV    
  X * NAVNEURUB EXSR BAR$NAV    
  X * NAVNEUSMILY EXSR BAR$NAV    
  X * NAVNEUART EXSR BAR$NAV    
  X * NAVNEUART2 EXSR BAR$NAV    
  X * NAVEDTNAV EXSR BAR$NAV    
  X * NAVNEUFILE EXSR BAR$NAV    
  X * NAVNEUFILE2 EXSR BAR$NAV    
  X * NAVEDTIDX EXSR BAR$NAV    
  X * NAVEDTRUB EXSR BAR$NAV    
  X * NAVEDTSMILY EXSR BAR$NAV    
  X  
C     NAVADDGAL BEGSR                
C *     --------------------------------------
C *     Galerie
C *     --------------------------------------
C       EXSR LINKGAL              
C       EXSR NAVADDZEILE              
C       ENDSR                
C          
  X * NAVADDARTPN EXSR BAR$NAV    
  X * NAVMMMNAV EXSR BAR$NAV    
  X * NAVGALNAV EXSR BAR$NAV    
  X * NAVFILES EXSR BAR$NAV    
  X * NAVSMILY EXSR BAR$NAV    
  X * NAVFRN EXSR BAR$NAV    
  X * NAVRUB EXSR BAR$NAV    
  X * NAVNEURUB EXSR BAR$NAV    
  X * NAVNEUSMILY EXSR BAR$NAV    
  X * NAVNEUART EXSR BAR$NAV    
  X * NAVNEUART2 EXSR BAR$NAV    
  X * NAVNEUPN EXSR BAR$NAV    
  X * NAVNEUPN2 EXSR BAR$NAV    
  X * NAVEDTNAV EXSR BAR$NAV    
  X * NAVNEUFILE EXSR BAR$NAV    
  X * NAVNEUFILE2 EXSR BAR$NAV    
  X * NAVEDTIDX EXSR BAR$NAV    
  X * NAVEDTRUB EXSR BAR$NAV    
  X * NAVEDTSMILY EXSR BAR$NAV    
  X  
C     NAVADDIDX BEGSR                
C *     --------------------------------------
C *     Portal
C *     --------------------------------------
C       EXSR LINKIDX              
C       EXSR NAVADDZEILE              
C       ENDSR                
C          
C     NAVADDINF BEGSR                
C *     --------------------------------------
C *     Information
C *     --------------------------------------
C       EXSR LINKINF              
C       EXSR NAVADDZEILE              
C       ENDSR                
C          
  X * NAVPF EXSR BAR$NAV    
  X * NAVAKT EXSR BAR$NAV    
  X * NAVMMM EXSR BAR$NAV    
  X * NAVGAL EXSR BAR$NAV    
  X * NAVNAV EXSR BAR$NAV    
  X * NAVIDX EXSR BAR$NAV    
  X * NAVNNN EXSR BAR$NAV    
  X * NAVINF EXSR BAR$NAV    
  X * NAVKAL EXSR BAR$NAV    
  X * NAVDEV EXSR BAR$NAV    
  X * NAVSMILY EXSR BAR$NAV    
  X * NAVSMILYS EXSR BAR$NAV    
  X * NAVSECURE EXSR BAR$NAV    
  X * NAVEXTERN EXSR BAR$NAV    
  X * NAVSPERRE EXSR BAR$NAV    
  X * NAVSITEMAP EXSR BAR$NAV    
  X * NAVFRN EXSR BAR$NAV    
  X * NAVSRCS EXSR BAR$NAV    
  X * NAVHTTPX EXSR BAR$NAV    
  X * NAVERR EXSR BAR$NAV    
  X * NAVAW EXSR BAR$NAV    
  X * NAVNEURUB EXSR BAR$NAV    
  X * NAVNEUSMILY EXSR BAR$NAV    
  X * NAVNEUART EXSR BAR$NAV    
  X * NAVNEUART2 EXSR BAR$NAV    
  X * NAVNEUPN EXSR BAR$NAV    
  X * NAVNEUPN2 EXSR BAR$NAV    
  X * NAVLOGIN EXSR BAR$NAV    
  X * NAVLOGIN3 EXSR BAR$NAV    
  X * NAVLOGOUT EXSR BAR$NAV    
  X * NAVMIT EXSR BAR$NAV    
  X * NAVMITPN EXSR BAR$NAV    
  X * NAVMITART EXSR BAR$NAV    
  X * NAVNEUMIT EXSR BAR$NAV    
  X * NAVNEUPWD EXSR BAR$NAV    
  X * NAVCHGPWD EXSR BAR$NAV    
  X * NAVCHGMAIL EXSR BAR$NAV    
  X * NAVEDTMIT EXSR BAR$NAV    
  X * NAVEDTNAV EXSR BAR$NAV    
  X * NAVNEUFILE EXSR BAR$NAV    
  X * NAVNEUFILE2 EXSR BAR$NAV    
  X * NAVEDTIDX EXSR BAR$NAV    
  X * NAVEDTRUB EXSR BAR$NAV    
  X * NAVEDTSMILY EXSR BAR$NAV    
  X * NAVEDTARTPN EXSR BAR$NAV    
  X * NAVEDTAW EXSR BAR$NAV    
  X * NAVNEUAW EXSR BAR$NAV    
  X  
C     NAVADDPRF BEGSR                
C *     --------------------------------------
C *     Profil / Mitmachen
C *     --------------------------------------
C       EXSR LINKPRF              
C       EXSR NAVADDZEILE              
C       ENDSR                
C          
  X * NAVX EXSR BAR$NAV    
  X  
C     NAVADDLOG BEGSR                
C *     --------------------------------------
C *     Abmelden / Anmelden
C *     --------------------------------------
C       EXSR LINKLOG              
C       EXSR NAVADDZEILE              
C       ENDSR                
C          
  X * NAVFILES EXSR BAR$NAV    
  X  
C     NAVADDPARENT BEGSR                
C *     --------------------------------------
C *     PARENT
C *     --------------------------------------
C     *BLANKS IFNE ELEMENT2              
C       EXSR LINKPARENT              
C       EXSR NAVADDZEILE              
C       ENDIF                
C       ENDSR                
C          
  X * NAVPF EXSR BAR$NAV    
  X * NAVAKT EXSR BAR$NAV    
  X * NAVMMM EXSR BAR$NAV    
  X * NAVGAL EXSR BAR$NAV    
  X * NAVNAV EXSR BAR$NAV    
  X * NAVNNN EXSR BAR$NAV    
  X * NAVSMILY EXSR BAR$NAV    
  X * NAVSMILYS EXSR BAR$NAV    
  X * NAVRUB EXSR BAR$NAV    
  X  
C     NAVADDEDT BEGSR                
C *     --------------------------------------
C *     Ändern (nur für Webmaster)
C *     --------------------------------------
C     BEMIT IFEQ WEBMASTER              
C       MOVEL(P) TYPEDT NATYP            
C       EXSR NAVADD1              
C       ENDIF                
C       ENDSR                
C          
  X * NAVSMILY EXSR BAR$NAV    
  X * NAVFRN EXSR BAR$NAV    
  X * NAVNEURUB EXSR BAR$NAV    
  X * NAVNEUSMILY EXSR BAR$NAV    
  X * NAVNEUART EXSR BAR$NAV    
  X * NAVNEUART2 EXSR BAR$NAV    
  X * NAVNEUPN EXSR BAR$NAV    
  X * NAVNEUPN2 EXSR BAR$NAV    
  X * NAVEDTMIT EXSR BAR$NAV    
  X * NAVEDTIDX EXSR BAR$NAV    
  X * NAVEDTRUB EXSR BAR$NAV    
  X * NAVEDTSMILY EXSR BAR$NAV    
  X * NAVEDTARTPN EXSR BAR$NAV    
  X * NAVEDTAW EXSR BAR$NAV    
  X * NAVNEUAW EXSR BAR$NAV    
  X  
C     NAVADDSMILYS BEGSR                
C *     --------------------------------------
C *     Smilys
C *     --------------------------------------
C     NOMIT IFNE BEMIT              
C       EXSR LINKSMILYS              
C       EXSR NAVADDZEILE              
C       ENDIF                
C       ENDSR                
C          
  X * NAVHISTORY EXSR BAR$NAV    
  X  
C     NAVADDSEITE BEGSR                
C *     --------------------------------------
C *     Seite
C *     --------------------------------------
C       MOVEL(P) TYPSEITE NATYP            
C       EXSR NAVADDHTML              
C       ENDSR                
C          
  X * NAVADDEDT EXSR BAR$NAV    
  X * NAVFILES EXSR BAR$NAV    
  X * NAVSMILYS EXSR BAR$NAV    
  X * NAVRUB EXSR BAR$NAV    
  X * NAVRUB EXSR BAR$NAV    
  X * NAVARTPN EXSR BAR$NAV    
  X * NAVADDARTFRN EXSR BAR$NAV    
  X * NAVADDARTFRN EXSR BAR$NAV    
  X * NAVADDARTFRN EXSR BAR$NAV    
  X  
C     NAVADD1 BEGSR                
C *     --------------------------------------
C *     Navigation nach Typ
C *     --------------------------------------
C       EXSR NATYPNAV              
C       EXSR LINKNAV1              
C       EXSR NAVADDZEILE              
C       ENDSR                
C          
  X * NAVNEUART EXSR BAR$NAV    
  X * NAVNEUART2 EXSR BAR$NAV    
  X * NAVNEUPN EXSR BAR$NAV    
  X * NAVNEUPN2 EXSR BAR$NAV    
  X * NAVNEUFILE EXSR BAR$NAV    
  X * NAVNEUFILE2 EXSR BAR$NAV    
  X  
C     NAVADD2 BEGSR                
C *     --------------------------------------
C *     Navigation nach Typ
C *     --------------------------------------
C       EXSR NATYPNAV              
C       EXSR LINKNAV2              
C       EXSR NAVADDZEILE              
C       ENDSR                
C          
  X * NAVGAL EXSR BAR$NAV    
  X * NAVIDX EXSR BAR$NAV    
  X * NAVBESUCHE EXSR BAR$NAV    
  X * NAVBESUCHER EXSR BAR$NAV    
  X * NAVANFRAGEN EXSR BAR$NAV    
  X * NAVSRC EXSR BAR$NAV    
  X * NAVEDTNAV EXSR BAR$NAV    
  X * NAVEDTIDX EXSR BAR$NAV    
  X  
C     NAVADDREL BEGSR                
C *     --------------------------------------
C *     Navigation nach Typ
C *     --------------------------------------
C       EXSR NATYPNAV              
C       EXSR LINKNAVREL              
C       EXSR NAVADDZEILE              
C       ENDSR                
C          
  X * NAVADDSEITE EXSR BAR$NAV    
  X  
C     NAVADDHTML BEGSR                
C *     --------------------------------------
C *     Navigation nach Typ
C *     --------------------------------------
C       EXSR NATYPNAV              
C       EXSR LINKNAVHTML              
C       EXSR NAVADDZEILE              
C       ENDSR                
C          
  X * NAVARTPN EXSR BAR$NAV    
  X * NAVAW EXSR BAR$NAV    
  X * NAVEDTARTPN EXSR BAR$NAV    
  X * NAVEDTAW EXSR BAR$NAV    
  X * NAVNEUAW EXSR BAR$NAV    
  X  
C     NAVADDARTPN BEGSR                
C *     --------------------------------------
C *     Navigation IDX/***/BAR/PF
C *     --------------------------------------
C       EXSR NAVADDIDX              
C     NOPN IFNE ARPN              
C       EXSR NAVADDMMM              
C       ELSE                
C       EXSR NAVADDGAL              
C       EXSR NAVADDAKT              
C       ENDIF                
C       EXSR NAVADDBAR              
C       EXSR NAVADDPF              
C       ENDSR                
C          
  X * NAVPF EXSR BAR$NAV    
  X * NAVMMM EXSR BAR$NAV    
  X * NAVLOGIN EXSR BAR$NAV    
  X * NAVLOGIN3 EXSR BAR$NAV    
  X * NAVLOGOUT EXSR BAR$NAV    
  X * NAVMIT EXSR BAR$NAV    
  X * NAVMITPN EXSR BAR$NAV    
  X * NAVMITART EXSR BAR$NAV    
  X * NAVNEUMIT EXSR BAR$NAV    
  X * NAVNEUPWD EXSR BAR$NAV    
  X * NAVCHGPWD EXSR BAR$NAV    
  X * NAVCHGMAIL EXSR BAR$NAV    
  X * NAVEDTMIT EXSR BAR$NAV    
  X  
C     NAVMMMNAV BEGSR                
C *     --------------------------------------
C *     Navigation IDX/MMM/AKT/BAR/PF
C *     --------------------------------------
C       EXSR NAVADDIDX              
C       EXSR NAVADDMMM              
C       EXSR NAVADDAKT              
C       EXSR NAVADDBAR              
C       EXSR NAVADDPF              
C       ENDSR                
C          
  X * NAVAKT EXSR BAR$NAV    
  X * NAVGAL EXSR BAR$NAV    
  X * NAVNAV EXSR BAR$NAV    
  X * NAVIDX EXSR BAR$NAV    
  X * NAVNNN EXSR BAR$NAV    
  X * NAVINF EXSR BAR$NAV    
  X * NAVKAL EXSR BAR$NAV    
  X * NAVDEV EXSR BAR$NAV    
  X * NAVSMILYS EXSR BAR$NAV    
  X * NAVSECURE EXSR BAR$NAV    
  X * NAVEXTERN EXSR BAR$NAV    
  X * NAVSPERRE EXSR BAR$NAV    
  X * NAVSITEMAP EXSR BAR$NAV    
  X * NAVHISTORY EXSR BAR$NAV    
  X * NAVBESUCHE EXSR BAR$NAV    
  X * NAVBESUCHER EXSR BAR$NAV    
  X * NAVANFRAGEN EXSR BAR$NAV    
  X * NAVSRC EXSR BAR$NAV    
  X * NAVSRCS EXSR BAR$NAV    
  X * NAVHTTPX EXSR BAR$NAV    
  X * NAVERR EXSR BAR$NAV    
  X  
C     NAVGALNAV BEGSR                
C *     --------------------------------------
C *     Navigation IDX/GAL/AKT/BAR/PF
C *     --------------------------------------
C       EXSR NAVADDIDX              
C       EXSR NAVADDGAL              
C       EXSR NAVADDAKT              
C       EXSR NAVADDBAR              
C       EXSR NAVADDPF              
C       ENDSR                
C          
  X * NAVIGATION CASEQ BAR$NAV    
  X * NAVIGATION CASEQ BAR$NAV    
  X * NAVIGATION CASEQ BAR$NAV    
  X * NAVIGATION CASEQ BAR$NAV    
  X * NAVIGATION CASEQ BAR$NAV    
  X * NAVIGATION CASEQ BAR$NAV    
  X * NAVIGATION CASEQ BAR$NAV    
  X  
C     NAVLEER BEGSR                
C *     --------------------------------------
C *     Ohne Navigation
C *     --------------------------------------
C       ENDSR                
C          
  X * NAVIGATION CASEQ BAR$NAV    
  X  
C     NAVPF BEGSR                
C *     --------------------------------------
C *     Postfach
C *     --------------------------------------
C       EXSR NAV              
C       EXSR NAVMMMNAV              
C       EXSR NAVADDEDT              
C       EXSR NAVADDPRF              
C       EXSR NAVX              
C       ENDSR                
C          
  X * NAVIGATION CASEQ BAR$NAV    
  X  
C     NAVAKT BEGSR                
C *     --------------------------------------
C *     Aktuelles
C *     --------------------------------------
C       EXSR NAV              
C       EXSR NAVGALNAV              
C       EXSR NAVADDEDT              
C       EXSR NAVADDPRF              
C       EXSR NAVX              
C       ENDSR                
C          
  X * NAVIGATION CASEQ BAR$NAV    
  X  
C     NAVMMM BEGSR                
C *     --------------------------------------
C *     Mitglieder
C *     --------------------------------------
C       EXSR NAV              
C       EXSR NAVMMMNAV              
C       EXSR NAVADDEDT              
C       EXSR NAVADDPRF              
C       EXSR NAVX              
C       ENDSR                
C          
  X * NAVIGATION CASEQ BAR$NAV    
  X  
C     NAVGAL BEGSR                
C *     --------------------------------------
C *     Galerie
C *     --------------------------------------
C       EXSR NAV              
C       EXSR NAVGALNAV              
C     BEMIT IFEQ WEBMASTER              
C   N66   EXSR NAVADDZEILEX              
C       MOVEL(P) TYPNEURUB NATYP            
C       EXSR NAVADDREL              
C       EXSR NAVADDEDT              
C   66   EXSR NAVADDZEILEX              
C       ENDIF                
C       EXSR NAVADDPRF              
C       EXSR NAVX              
C       ENDSR                
C          
  X * NAVIGATION CASEQ BAR$NAV    
  X * NAVIGATION CASEQ BAR$NAV    
  X * NAVIGATION CASEQ BAR$NAV    
  X * NAVIGATION CASEQ BAR$NAV    
  X * NAVIGATION CASEQ BAR$NAV    
  X * NAVIGATION CASEQ BAR$NAV    
  X * NAVIGATION CASEQ BAR$NAV    
  X * NAVIGATION CAS BAR$NAV    
  X * NAVMNT EXSR BAR$NAV    
  X  
C     NAVNAV BEGSR                
C *     --------------------------------------
C *     Navigation
C *     --------------------------------------
C       EXSR NAV              
C       EXSR NAVGALNAV              
C       EXSR NAVADDEDT              
C       EXSR NAVADDPRF              
C       EXSR NAVX              
C       ENDSR                
C          
  X * NAVIGATION CASEQ BAR$NAV    
  X  
C     NAVIDX BEGSR                
C *     --------------------------------------
C *     Portal
C *     --------------------------------------
C       EXSR NAV              
C       EXSR NAVGALNAV              
C     BEMIT IFEQ WEBMASTER              
C       MOVEL(P) TYPEDT NATYP            
C       EXSR NAVADDREL              
C       ENDIF                
C       EXSR NAVADDPRF              
C       EXSR NAVX              
C       ENDSR                
C          
  X * NAVIGATION CASEQ BAR$NAV    
  X  
C     NAVNNN BEGSR                
C *     --------------------------------------
C *     Navigationen
C *     --------------------------------------
C       EXSR NAV              
C       EXSR NAVGALNAV              
C       EXSR NAVADDEDT              
C       EXSR NAVADDPRF              
C       EXSR NAVX              
C       ENDSR                
C          
  X * NAVIGATION CASEQ BAR$NAV    
  X  
C     NAVMNT BEGSR                
C *     --------------------------------------
C *     Wartungsarbeiten
C *     --------------------------------------
C     BEMIT IFEQ WEBMASTER              
C       EXSR NAVNAV              
C       ENDIF                
C       ENDSR                
C          
  X * NAVIGATION CASEQ BAR$NAV    
  X  
C     NAVINF BEGSR                
C *     --------------------------------------
C *     Information
C *     --------------------------------------
C       EXSR NAV              
C       EXSR NAVGALNAV              
C       EXSR NAVADDPRF              
C       EXSR NAVX              
C       ENDSR                
C          
  X * NAVIGATION CASEQ BAR$NAV    
  X  
C     NAVKAL BEGSR                
C *     --------------------------------------
C *     Kalender
C *     --------------------------------------
C       EXSR NAV              
C       EXSR NAVGALNAV              
C       EXSR NAVADDPRF              
C       EXSR NAVX              
C       ENDSR                
C          
  X * NAVIGATION CASEQ BAR$NAV    
  X  
C     NAVDEV BEGSR                
C *     --------------------------------------
C *     Entwicklung
C *     --------------------------------------
C       EXSR NAV              
C       EXSR NAVGALNAV              
C       EXSR NAVADDPRF              
C       EXSR NAVX              
C       ENDSR                
C          
  X * NAVIGATION CASEQ BAR$NAV    
  X * NAVIGATION CASEQ BAR$NAV    
  X * NAVIGATION CASEQ BAR$NAV    
  X * NAVIGATION CASEQ BAR$NAV    
  X * NAVIGATION CASEQ BAR$NAV    
  X * NAVIGATION CASEQ BAR$NAV    
  X * NAVIGATION CASEQ BAR$NAV    
  X * NAVIGATION CASEQ BAR$NAV    
  X * NAVIGATION CASEQ BAR$NAV    
  X * NAVIGATION CASEQ BAR$NAV    
  X * NAVIGATION CASEQ BAR$NAV    
  X * NAVIGATION CASEQ BAR$NAV    
  X  
C     NAVFILES BEGSR                
C *     --------------------------------------
C *     Dateien
C *     --------------------------------------
C       EXSR NAV              
C       EXSR NAVADDIDX              
C       EXSR NAVADDGAL              
C       EXSR NAVADDBAR              
C       EXSR NAVADDPARENT              
C       MOVEL(P) TYPNEUFILE NATYP            
C       EXSR NAVADD1              
C       EXSR NAVX              
C       ENDSR                
C          
  X * NAVIGATION CASEQ BAR$NAV    
  X  
C     NAVSMILY BEGSR                
C *     --------------------------------------
C *     Smily
C *     --------------------------------------
C     BEMIT IFEQ WEBMASTER              
C     *BLANKS ORNE DEBUG              
C       EXSR NAV              
C       EXSR NAVADDIDX              
C       EXSR NAVADDGAL              
C       EXSR NAVADDBAR              
C       EXSR NAVADDSMILYS              
C       EXSR NAVADDEDT              
C       EXSR NAVADDPRF              
C       EXSR NAVX              
C       ENDIF                
C       ENDSR                
C          
  X * NAVIGATION CASEQ BAR$NAV    
  X  
C     NAVSMILYS BEGSR                
C *     --------------------------------------
C *     Smilys
C *     --------------------------------------
C     BEMIT IFEQ WEBMASTER              
C     *BLANKS ORNE DEBUG              
C       EXSR NAV              
C       EXSR NAVGALNAV              
C     BEMIT IFEQ WEBMASTER              
C   N66   EXSR NAVADDZEILEX              
C       MOVEL(P) TYPNEUSMILY NATYP            
C       EXSR NAVADD1              
C       EXSR NAVADDEDT              
C   66   EXSR NAVADDZEILEX              
C       ENDIF                
C       EXSR NAVADDPRF              
C       EXSR NAVX              
C       ENDIF                
C       ENDSR                
C          
  X * NAVIGATION CASEQ BAR$NAV    
  X  
C     NAVSECURE BEGSR                
C *     --------------------------------------
C *     Sicher
C *     --------------------------------------
C       EXSR NAV              
C       EXSR NAVGALNAV              
C       EXSR NAVADDPRF              
C       EXSR NAVX              
C       ENDSR                
C          
  X * NAVIGATION CASEQ BAR$NAV    
  X  
C     NAVEXTERN BEGSR                
C *     --------------------------------------
C *     Extern
C *     --------------------------------------
C       EXSR NAV              
C       EXSR NAVGALNAV              
C       EXSR NAVADDPRF              
C       EXSR NAVX              
C       ENDSR                
C          
  X * NAVIGATION CASEQ BAR$NAV    
  X  
C     NAVSPERRE BEGSR                
C *     --------------------------------------
C *     Gesperrt
C *     --------------------------------------
C       EXSR NAV              
C       EXSR NAVGALNAV              
C       EXSR NAVADDPRF              
C       EXSR NAVX              
C       ENDSR                
C          
  X * NAVIGATION CASEQ BAR$NAV    
  X  
C     NAVSITEMAP BEGSR                
C *     --------------------------------------
C *     Sitemap
C *     --------------------------------------
C       EXSR NAV              
C       EXSR NAVGALNAV              
C       EXSR NAVADDPRF              
C       EXSR NAVX              
C       ENDSR                
C          
  X * NAVIGATION CASEQ BAR$NAV    
  X  
C     NAVHISTORY BEGSR                
C *     --------------------------------------
C *     Historie
C *     --------------------------------------
C       EXSR NAV              
C       EXSR NAVGALNAV              
C       EXSR NAVADDSEITE              
C       EXSR NAVX              
C       ENDSR                
C          
  X * NAVIGATION CASEQ BAR$NAV    
  X  
C     NAVBESUCHE BEGSR                
C *     --------------------------------------
C *     Besuche
C *     --------------------------------------
C       EXSR NAV              
C       EXSR NAVGALNAV              
C       MOVEL(P) TYPBESUCHER NATYP            
C       EXSR NAVADDREL              
C       EXSR NAVX              
C       ENDSR                
C          
  X * NAVIGATION CASEQ BAR$NAV    
  X  
C     NAVBESUCHER BEGSR                
C *     --------------------------------------
C *     Besucher
C *     --------------------------------------
C       EXSR NAV              
C       EXSR NAVGALNAV              
C       MOVEL(P) TYPANFRAGEN NATYP            
C       EXSR NAVADDREL              
C       EXSR NAVX              
C       ENDSR                
C          
  X * NAVIGATION CASEQ BAR$NAV    
  X  
C     NAVANFRAGEN BEGSR                
C *     --------------------------------------
C *     Anfragen
C *     --------------------------------------
C       EXSR NAV              
C       EXSR NAVGALNAV              
C       MOVEL(P) TYPBESUCHER NATYP            
C       EXSR NAVADDREL              
C       EXSR NAVX              
C       ENDSR                
C          
  X * NAVIGATION CASEQ BAR$NAV    
  X * NAVIGATION CASEQ BAR$NAV    
  X * NAVIGATION CASEQ BAR$NAV    
  X * NAVARTPN EXSR BAR$NAV    
  X  
C     NAVFRN BEGSR                
C *     --------------------------------------
C *     Chat
C *     --------------------------------------
C       EXSR NAV              
C       EXSR NAVADDIDX              
C       EXSR NAVADDAKT              
C       EXSR NAVADDBAR              
C       EXSR NAVADDPF              
C       EXSR NAVADDSMILYS              
C       EXSR NAVADDARTFRN              
C       EXSR NAVADDPRF              
C       EXSR NAVX              
C       ENDSR                
C          
  X * NAVIGATION CASEQ BAR$NAV    
  X  
C     NAVSRC BEGSR                
C *     --------------------------------------
C *     Quelle
C *     --------------------------------------
C       EXSR NAV              
C       EXSR NAVGALNAV              
C       MOVEL(P) TYPSRCS NATYP            
C       EXSR NAVADDREL              
C       EXSR NAVX              
C       ENDSR                
C          
  X * NAVIGATION CASEQ BAR$NAV    
  X  
C     NAVSRCS BEGSR                
C *     --------------------------------------
C *     Quellen
C *     --------------------------------------
C       EXSR NAV              
C       EXSR NAVGALNAV              
C       EXSR NAVADDPRF              
C       EXSR NAVX              
C       ENDSR                
C          
  X * NAVIGATION CASEQ BAR$NAV    
  X  
C     NAVHTTPX BEGSR                
C *     --------------------------------------
C *     HTTPX
C *     --------------------------------------
C       EXSR NAV              
C       EXSR NAVGALNAV              
C       EXSR NAVADDPRF              
C       EXSR NAVX              
C       ENDSR                
C          
  X * NAVIGATION CASEQ BAR$NAV    
  X  
C     NAVERR BEGSR                
C *     --------------------------------------
C *     Fehler
C *     --------------------------------------
C       EXSR NAV              
C       EXSR NAVGALNAV              
C       EXSR NAVADDPRF              
C       EXSR NAVX              
C       ENDSR                
C          
  X * NAVIGATION CASEQ BAR$NAV    
  X  
C     NAVRUB BEGSR                
C *     --------------------------------------
C *     Rubrik
C *     --------------------------------------
C       EXSR NAV              
C       EXSR NAVADDIDX              
C       EXSR NAVADDGAL              
C       EXSR NAVADDBAR              
C       MOVEL(P) TYPNEUART NATYP            
C       EXSR NAVADD1              
C       MOVEL(P) TYPNEUART2 NATYP            
C       EXSR NAVADD1              
C   66   EXSR NAVADDZEILEX              
C       EXSR NAVADDEDT              
C       EXSR NAVX              
C       ENDSR                
C          
  X * NAVIGATION CASEQ BAR$NAV    
  X * NAVIGATION CASEQ BAR$NAV    
  X * NAVIGATION CASEQ BAR$NAV    
  X  
C     NAVARTPN BEGSR                
C     NOCHAT IFEQ WWCHAT              
C *     --------------------------------------
C *     Artikel/Nachricht
C *     --------------------------------------
C       EXSR NAV              
C       EXSR NAVADDARTPN              
C       MOVEL(P) TYPNEUAW NATYP            
C       EXSR NAVADD1              
C       EXSR NAVADDARTFRN              
C       EXSR NAVX              
C       ELSE                
C       EXSR NAVFRN              
C       ENDIF                
C       ENDSR                
C          
  X * NAVIGATION CASEQ BAR$NAV    
  X  
C     NAVAW BEGSR                
C *     --------------------------------------
C *     Antwort
C *     --------------------------------------
C       EXSR NAV              
C       EXSR NAVADDARTPN              
C       EXSR NAVADDPRF              
C       EXSR NAVX              
C       ENDSR                
C          
  X * NAVIGATION CASEQ BAR$NAV    
  X  
C     NAVNEURUB BEGSR                
C *     --------------------------------------
C *     Neue Rubrik
C *     --------------------------------------
C       EXSR NAV              
C       EXSR NAVADDIDX              
C       EXSR NAVADDGAL              
C       EXSR NAVADDBAR              
C       EXSR NAVADDSMILYS              
C       EXSR NAVADDPRF              
C       EXSR NAVX              
C       ENDSR                
C          
  X * NAVIGATION CASEQ BAR$NAV    
  X  
C     NAVNEUSMILY BEGSR                
C *     --------------------------------------
C *     Neues Smily
C *     --------------------------------------
C       EXSR NAV              
C       EXSR NAVADDIDX              
C       EXSR NAVADDGAL              
C       EXSR NAVADDBAR              
C       EXSR NAVADDSMILYS              
C       EXSR NAVADDPRF              
C       EXSR NAVX              
C       ENDSR                
C          
  X * NAVIGATION CASEQ BAR$NAV    
  X  
C     NAVNEUART BEGSR                
C *     --------------------------------------
C *     Neuer Textartikel
C *     --------------------------------------
C       EXSR NAV              
C       EXSR NAVADDIDX              
C       EXSR NAVADDGAL              
C       EXSR NAVADDBAR              
C       MOVEL(P) TYPNEUART2 NATYP            
C       EXSR NAVADD2              
C       EXSR NAVADDSMILYS              
C       EXSR NAVADDPRF              
C   66   EXSR NAVADDZEILEX              
C       EXSR NAVX              
C       ENDSR                
C          
  X * NAVIGATION CASEQ BAR$NAV    
  X  
C     NAVNEUART2 BEGSR                
C *     --------------------------------------
C *     Neuer Bildartikel
C *     --------------------------------------
C       EXSR NAV              
C       EXSR NAVADDIDX              
C       EXSR NAVADDGAL              
C       EXSR NAVADDBAR              
C       MOVEL(P) TYPNEUART NATYP            
C       EXSR NAVADD2              
C       EXSR NAVADDSMILYS              
C       EXSR NAVADDPRF              
C   66   EXSR NAVADDZEILEX              
C       EXSR NAVX              
C       ENDSR                
C          
  X * NAVIGATION CASEQ BAR$NAV    
  X  
C     NAVNEUPN BEGSR                
C *     --------------------------------------
C *     Neue Textnachricht
C *     --------------------------------------
C       EXSR NAV              
C       EXSR NAVADDIDX              
C       EXSR NAVADDMMM              
C       EXSR NAVADDBAR              
C       MOVEL(P) TYPNEUPN2 NATYP            
C       EXSR NAVADD2              
C       EXSR NAVADDSMILYS              
C       EXSR NAVADDPRF              
C   66   EXSR NAVADDZEILEX              
C       EXSR NAVX              
C       ENDSR                
C          
  X * NAVIGATION CASEQ BAR$NAV    
  X  
C     NAVNEUPN2 BEGSR                
C *     --------------------------------------
C *     Neue Bildnachricht
C *     --------------------------------------
C       EXSR NAV              
C       EXSR NAVADDIDX              
C       EXSR NAVADDMMM              
C       EXSR NAVADDBAR              
C       MOVEL(P) TYPNEUPN NATYP            
C       EXSR NAVADD2              
C       EXSR NAVADDSMILYS              
C       EXSR NAVADDPRF              
C   66   EXSR NAVADDZEILEX              
C       EXSR NAVX              
C       ENDSR                
C          
  X * NAVIGATION CASEQ BAR$NAV    
  X * NAVIGATION CASEQ BAR$NAV    
  X  
C     NAVLOGIN BEGSR                
C *     --------------------------------------
C *     Anmelden
C *     --------------------------------------
C       EXSR NAV              
C       EXSR NAVMMMNAV              
C       EXSR NAVADDPRF              
C       EXSR NAVX              
C       ENDSR                
C          
  X * NAVIGATION CASEQ BAR$NAV    
  X  
C     NAVLOGIN3 BEGSR                
C *     --------------------------------------
C *     Zutritt verboten (Privat)
C *     --------------------------------------
C       EXSR NAV              
C       EXSR NAVMMMNAV              
C       EXSR NAVADDPRF              
C       EXSR NAVX              
C       ENDSR                
C          
  X * NAVIGATION CASEQ BAR$NAV    
  X  
C     NAVLOGOUT BEGSR                
C *     --------------------------------------
C *     Abmelden
C *     --------------------------------------
C       EXSR NAV              
C       EXSR NAVMMMNAV              
C       EXSR NAVADDPRF              
C       EXSR NAVX              
C       ENDSR                
C          
  X * NAVIGATION CASEQ BAR$NAV    
  X  
C     NAVMIT BEGSR                
C *     --------------------------------------
C *     Mitglied
C *     --------------------------------------
C       EXSR NAV              
C       EXSR NAVMMMNAV              
C       EXSR NAVADDPRF              
C       EXSR NAVX              
C       ENDSR                
C          
  X * NAVIGATION CASEQ BAR$NAV    
  X  
C     NAVMITPN BEGSR                
C *     --------------------------------------
C *     Mitglied-Nachrichten
C *     --------------------------------------
C       EXSR NAV              
C       EXSR NAVMMMNAV              
C       EXSR NAVADDPRF              
C       EXSR NAVX              
C       ENDSR                
C          
  X * NAVIGATION CASEQ BAR$NAV    
  X  
C     NAVMITART BEGSR                
C *     --------------------------------------
C *     Mitglied-Artikel
C *     --------------------------------------
C       EXSR NAV              
C       EXSR NAVMMMNAV              
C       EXSR NAVADDPRF              
C       EXSR NAVX              
C       ENDSR                
C          
  X * NAVIGATION CASEQ BAR$NAV    
  X  
C     NAVNEUMIT BEGSR                
C *     --------------------------------------
C *     Neues Mitglied
C *     --------------------------------------
C       EXSR NAV              
C       EXSR NAVMMMNAV              
C       EXSR NAVADDPRF              
C       EXSR NAVX              
C       ENDSR                
C          
  X * NAVIGATION CASEQ BAR$NAV    
  X  
C     NAVNEUPWD BEGSR                
C *     --------------------------------------
C *     Neues Kennwort
C *     --------------------------------------
C       EXSR NAV              
C       EXSR NAVMMMNAV              
C       EXSR NAVADDPRF              
C       EXSR NAVX              
C       ENDSR                
C          
  X * NAVIGATION CASEQ BAR$NAV    
  X  
C     NAVCHGPWD BEGSR                
C *     --------------------------------------
C *     Kennwort ändern
C *     --------------------------------------
C       EXSR NAV              
C       EXSR NAVMMMNAV              
C       EXSR NAVADDPRF              
C       EXSR NAVX              
C       ENDSR                
C          
  X * NAVIGATION CASEQ BAR$NAV    
  X  
C     NAVCHGMAIL BEGSR                
C *     --------------------------------------
C *     E-Mail-Adresse ändern
C *     --------------------------------------
C       EXSR NAV              
C       EXSR NAVMMMNAV              
C       EXSR NAVADDPRF              
C       EXSR NAVX              
C       ENDSR                
C          
  X * NAVIGATION CASEQ BAR$NAV    
  X  
C     NAVEDTMIT BEGSR                
C *     --------------------------------------
C *     Mitglied ändern
C *     --------------------------------------
C       EXSR NAV              
C       EXSR NAVMMMNAV              
C       EXSR NAVADDSMILYS              
C       EXSR NAVADDPRF              
C       EXSR NAVX              
C       ENDSR                
C          
  X * NAVIGATION CASEQ BAR$NAV    
  X  
C     NAVEDTNAV BEGSR                
C *     --------------------------------------
C *     Navigation ändern
C *     --------------------------------------
C       EXSR NAV              
C       EXSR NAVADDIDX              
C       EXSR NAVADDGAL              
C       EXSR NAVADDBAR              
C       MOVEL(P) TYPNNN NATYP            
C       EXSR NAVADDREL              
C       EXSR NAVADDPRF              
C       EXSR NAVX              
C       ENDSR                
C          
  X * NAVIGATION CASEQ BAR$NAV    
  X  
C     NAVNEUFILE BEGSR                
C *     --------------------------------------
C *     Textdatei anlegen
C *     --------------------------------------
C       EXSR NAV              
C       EXSR NAVADDIDX              
C       EXSR NAVADDGAL              
C       EXSR NAVADDBAR              
C     BEMIT IFEQ WEBMASTER              
C       MOVEL(P) TYPNEUFILE2 NATYP            
C       EXSR NAVADD2              
C       ENDIF                
C       EXSR NAVADDPRF              
C       EXSR NAVX              
C       ENDSR                
C          
  X * NAVIGATION CASEQ BAR$NAV    
  X  
C     NAVNEUFILE2 BEGSR                
C *     --------------------------------------
C *     Bild hochladen
C *     --------------------------------------
C       EXSR NAV              
C       EXSR NAVADDIDX              
C       EXSR NAVADDGAL              
C       EXSR NAVADDBAR              
C     BEMIT IFEQ WEBMASTER              
C       MOVEL(P) TYPNEUFILE NATYP            
C       EXSR NAVADD2              
C       ENDIF                
C       EXSR NAVADDPRF              
C       EXSR NAVX              
C       ENDSR                
C          
  X * NAVIGATION CASEQ BAR$NAV    
  X  
C     NAVEDTIDX BEGSR                
C *     --------------------------------------
C *     Portal ändern
C *     --------------------------------------
C       EXSR NAV              
C       EXSR NAVADDIDX              
C       EXSR NAVADDGAL              
C       EXSR NAVADDBAR              
C       MOVEL(P) TYPNNN NATYP            
C       EXSR NAVADDREL              
C       EXSR NAVADDSMILYS              
C       EXSR NAVADDPRF              
C   66   EXSR NAVADDZEILEX              
C       EXSR NAVX              
C       ENDSR                
C          
  X * NAVIGATION CASEQ BAR$NAV    
  X  
C     NAVEDTRUB BEGSR                
C *     --------------------------------------
C *     Rubrik ändern
C *     --------------------------------------
C       EXSR NAV              
C       EXSR NAVADDIDX              
C       EXSR NAVADDGAL              
C       EXSR NAVADDBAR              
C       EXSR NAVADDSMILYS              
C       EXSR NAVADDPRF              
C       EXSR NAVX              
C       ENDSR                
C          
  X * NAVIGATION CASEQ BAR$NAV    
  X  
C     NAVEDTSMILY BEGSR                
C *     --------------------------------------
C *     Smily ändern
C *     --------------------------------------
C       EXSR NAV              
C       EXSR NAVADDIDX              
C       EXSR NAVADDGAL              
C       EXSR NAVADDBAR              
C       EXSR NAVADDSMILYS              
C       EXSR NAVADDPRF              
C       EXSR NAVX              
C       ENDSR                
C          
  X * NAVIGATION CASEQ BAR$NAV    
  X * NAVIGATION CASEQ BAR$NAV    
  X * NAVIGATION CASEQ BAR$NAV    
  X * NAVIGATION CASEQ BAR$NAV    
  X  
C     NAVEDTARTPN BEGSR                
C *     --------------------------------------
C *     Artikel/Nachricht ändern
C *     --------------------------------------
C       EXSR NAV              
C       EXSR NAVADDARTPN              
C       EXSR NAVADDSMILYS              
C       EXSR NAVADDPRF              
C       EXSR NAVX              
C       ENDSR                
C          
  X * NAVIGATION CASEQ BAR$NAV    
  X  
C     NAVEDTAW BEGSR                
C *     --------------------------------------
C *     Antwort ändern
C *     --------------------------------------
C       EXSR NAV              
C       EXSR NAVADDARTPN              
C       EXSR NAVADDSMILYS              
C       EXSR NAVADDPRF              
C       EXSR NAVX              
C       ENDSR                
C          
  X * NAVIGATION CASEQ BAR$NAV    
  X  
C     NAVNEUAW BEGSR                
C *     --------------------------------------
C *     Beantworten
C *     --------------------------------------
C       EXSR NAV              
C       EXSR NAVADDARTPN              
C       EXSR NAVADDSMILYS              
C       EXSR NAVADDPRF              
C       EXSR NAVX              
C       ENDSR                
C          
  X * NAVFRN EXSR BAR$NAV    
  X * NAVARTPN EXSR BAR$NAV    
  X  
C     NAVADDARTFRN BEGSR                
C *     --------------------------------------
C *     Ändern/Ausblenden/Einblenden
C *     --------------------------------------
C       SELECT    
C     WWBAR WHENNE NOBAR              
C     BEMIT IFEQ WEBMASTER              
C       MOVEL(P) TYPEDT NATYP            
C       EXSR NAVADD1              
C   66   EXSR NAVADDZEILEX              
C       ENDIF                
C     BEMIT WHENEQ ARMIT              
C     DATETIME SUBDUR EDTYEAR:*Y DATETIMEEDT            
C     ARDAT IFGE DATETIMEEDT              
C     ARDATCHG ORGE DATETIMEEDT              
C       MOVEL(P) TYPEDT NATYP            
C       EXSR NAVADD1              
C   66   EXSR NAVADDZEILEX              
C       ENDIF                
C     BEMIT WHENEQ ARPN              
C     BEMIT ANDNE NOMIT              
C     BEMIT OREQ WEBMASTER              
C     NODLT IFEQ ARDLT              
C       MOVEL(P) TYPDLT NATYP            
C       ELSE                
C       MOVEL(P) TYPRCL NATYP            
C       ENDIF                
C       MOVEL(P) TARGET TARGETSAVE            
C       MOVEL(P) TARGET2 TARGET            
C       EXSR NAVADD1              
C       MOVEL(P) TARGETSAVE TARGET            
C   66   EXSR NAVADDZEILEX              
C       ENDSL                
C       ENDSR                
C          
  X * ARTFILEICN EXSR BAR$ART    
  X * ARTFILEICN EXSR BAR$ART    
  X * ARTTITEL EXSR BAR$ART    
  X * ARTTITEL EXSR BAR$ART    
  X * BLASE EXSR BAR$BLASE    
  X * FORMFRE1 EXSR BAR$FORM    
  X * FORMFRI1 EXSR BAR$FORM    
  X * FORMFRT1 EXSR BAR$FORM    
  X * FRAME EXSR BAR$FRAME    
  X * FRAME EXSR BAR$FRAME    
  X * FRAME EXSR BAR$FRAME    
  X * FRAME EXSR BAR$FRAME    
  X * FRAME EXSR BAR$FRAME    
  X * FRAME EXSR BAR$FRAME    
  X * FRAME EXSR BAR$FRAME    
  X * FRAME EXSR BAR$FRAME    
  X * LINKSMILYS EXSR BAR$LINK    
  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 * LINKPARENT EXSR BAR$LINK    
  X * LINKTITELNAV EXSR BAR$LINK    
  X * LINKPF EXSR BAR$LINK    
  X * LINKAKT EXSR BAR$LINK    
  X * LINKBAR EXSR BAR$LINK    
  X * LINKMMM EXSR BAR$LINK    
  X * LINKGAL EXSR BAR$LINK    
  X * LINKIDX EXSR BAR$LINK    
  X * LINKINF EXSR BAR$LINK    
  X * LINKCNT EXSR BAR$LINK    
  X * LINKPRF EXSR BAR$LINK    
  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 * 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 * LISTEMNT EXSR BAR$LISTE    
  X * LISTEMNT EXSR BAR$LISTE    
  X * LISTEMNT EXSR BAR$LISTE    
  X * LISTETITEL EXSR BAR$LISTE    
  X * LISTETITEL EXSR BAR$LISTE    
  X * LISTETITEL EXSR BAR$LISTE    
  X * LOGNAVS EXSR BAR$MAIN    
  X * LOGNAVS EXSR BAR$MAIN    
  X * LOGNAVS EXSR BAR$MAIN    
  X * LOGNAVS EXSR BAR$MAIN    
  X * NAVADD1 EXSR BAR$NAV    
  X * NAVADD2 EXSR BAR$NAV    
  X * NAVADDREL EXSR BAR$NAV    
  X * NAVADDHTML EXSR BAR$NAV    
  X * REDIRECTRUB2S EXSR BAR$NEUED    
  X * REDIRECTARTPNX EXSR BAR$NEUED    
  X * REDIRECTAWX EXSR BAR$NEUED    
  X * REDIRECTAG2 EXSR BAR$NEUED    
  X * ANFRAGEOBJEKT EXSR BAR$NEUED    
  X * ANFRAGEOBJEKT EXSR BAR$NEUED    
  X * JS1IFRAME EXSR BAR$SCRIPT    
  X * JS2CHAT EXSR BAR$SCRIPT    
  X * JS2CHAT EXSR BAR$SCRIPT    
  X * JS2CHAT EXSR BAR$SCRIPT    
  X * JS2CHAT EXSR BAR$SCRIPT    
  X * JS2CHAT EXSR BAR$SCRIPT    
  X * SECURITY EXSR BAR$SEC    
  X * SEITE EXSR BAR$SEITE    
  X * SEITEFILES2 EXSR BAR$SEITE    
  X * SEITEFILES2 EXSR BAR$SEITE    
  X * SEITESMILY EXSR BAR$SEITE    
  X * SEITEBESUCHE EXSR BAR$SEITE    
  X * SEITESRCS2 EXSR BAR$SEITE    
  X * SEITERUB EXSR BAR$SEITE    
  X * SEITEMIT EXSR BAR$SEITE    
  X * SEITEARTX EXSR BAR$SEITE    
  X * SEITEARTX EXSR BAR$SEITE    
  X * SEITEARTX EXSR BAR$SEITE    
  X * SEITEARTX EXSR BAR$SEITE    
  X * SEITEAW EXSR BAR$SEITE    
  X * SEITEAW EXSR BAR$SEITE    
  X * SEITEMNT EXSR BAR$SEITE    
  X * SEITEERR EXSR BAR$SEITE    
  X * SEITELOGINS EXSR BAR$SEITE    
  X * SEITEPN EXSR BAR$SEITE    
  X * SENDFONT EXSR BAR$SEND    
  X * SENDRSS EXSR BAR$SEND    
  X * SENDATOM EXSR BAR$SEND    
  X * SENDATOM EXSR BAR$SEND    
  X * SENDOSDX EXSR BAR$SEND    
  X * SENDOSDX EXSR BAR$SEND    
  X * SENDHTML EXSR BAR$SEND    
  X * SENDHTML EXSR BAR$SEND    
  X * SENDHTML EXSR BAR$SEND    
  X * SENDHTML EXSR BAR$SEND    
  X * TEXTSMILYSAGN2 EXSR BAR$TEXT    
  X * ZEILENAV EXSR BAR$ZEILE    
  X  
C     NATYPNAV BEGSR                
C *     --------------------------------------
C *     Navigation nach Typ auffinden
C *     --------------------------------------
C       OPEN NAVIL1       — 77 —  
C     NAKEY1NAV CHAIN NAVIL1       77 77 —  
C     *IN77 IFEQ *ON              
C     *BLANKS OREQ NANAV              
C     '-' CAT NATYP NANAV            
C     UPPER:LOWER XLATE NANAV NANAV            
C       CLEAR   NAFILEX            
C       CLEAR   NAFARBE            
C       ENDIF                
C *     --------------------------------------
C *     Titel nach Typ auffinden
C *     --------------------------------------
C       EXSR NATYPTITEL              
C       ENDSR                
C          
  X * NATYPNAV CHAIN BAR$NAV    
  X  
C     NAKEY1NAV KLIST                
C       KFLD   MAMAN            
C       KFLD   NATYP            
C          
  X * NATYPNAV EXSR BAR$NAV    
  X * SEITETYP2 EXSR BAR$SEITE    
  X  
C     NATYPTITEL BEGSR                
C *     --------------------------------------
C *     Titel nach Typ auffinden
C *     --------------------------------------
C       OPEN TITELL1       — 78 —  
C     TIKEY1NAVSPR CHAIN TITELL1       78 78 —  
C   78 TIKEY1NAVMAN CHAIN TITELL1       78 78 —  
C   78   MOVEL(P) NATYP TITITEL            
C   78   CLEAR   TITITEL2            
C       ENDSR                
C          
  X * NATYPTITEL CHAIN BAR$NAV    
  X  
C     TIKEY1NAVSPR KLIST                
C       KFLD   MAMAN            
C       KFLD   NATYP            
C       KFLD   SPSPR            
C          
  X * NATYPTITEL CHAIN BAR$NAV    
  X  
C     TIKEY1NAVMAN KLIST                
C       KFLD   MAMAN            
C       KFLD   NATYP            
C       KFLD   MASPR            

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