Seite

BAR$SEITE (RPGLE)



  X * SEITE BEGSR BAR$SEITE 164  
  X * SEITENAV BEGSR BAR$SEITE 95  
  X * SEITEIDX BEGSR BAR$SEITE 9  
  X * SEITEEDT BEGSR BAR$SEITE 24  
  X * SEITEKAL BEGSR BAR$SEITE 6  
  X * SEITEKAL2 BEGSR BAR$SEITE 18  
  X * SEITENAV2 BEGSR BAR$SEITE 18  
  X * SEITEFILES BEGSR BAR$SEITE 32  
  X * SEITEFILES2 BEGSR BAR$SEITE 74  
  X * SEITEFILES3 BEGSR BAR$SEITE 28  
  X * SEITEFILESIN BEGSR BAR$SEITE 6  
  X * SEITENAVSR BEGSR BAR$SEITE 42  
  X * SEITEMITSR BEGSR BAR$SEITE 17  
  X * SEITERUBSR BEGSR BAR$SEITE 17  
  X * SEITESMILYS BEGSR BAR$SEITE 28  
  X * SEITESMILY BEGSR BAR$SEITE 35  
  X * SEITESMILY2 BEGSR BAR$SEITE 18  
  X * SEITEBESUCHER BEGSR BAR$SEITE 24  
  X * SEITEBESUCHE BEGSR BAR$SEITE 35  
  X * SEITESRCS BEGSR BAR$SEITE 24  
  X * SEITESRCS2 BEGSR BAR$SEITE 40  
  X * SEITEBAR BEGSR BAR$SEITE 11  
  X * SEITERUB BEGSR BAR$SEITE 21  
  X * SEITERUB2 BEGSR BAR$SEITE 27  
  X * SEITERUBIN BEGSR BAR$SEITE 6  
  X * SEITEMIT BEGSR BAR$SEITE 21  
  X * SEITEMIT2 BEGSR BAR$SEITE 45  
  X * SEITENEUPN BEGSR BAR$SEITE 6  
  X * SEITEMITPN BEGSR BAR$SEITE 6  
  X * SEITEMITART BEGSR BAR$SEITE 6  
  X * SEITEART BEGSR BAR$SEITE 16  
  X * SEITEARTX BEGSR BAR$SEITE 95  
  X * SEITEART2 BEGSR BAR$SEITE 87  
  X * SEITEAW BEGSR BAR$SEITE 53  
  X * SEITEAW2 BEGSR BAR$SEITE 39  
  X * SEITEENDE BEGSR BAR$SEITE 6  
  X * SEITEMNT BEGSR BAR$SEITE 12  
  X * SEITEERR BEGSR BAR$SEITE 11  
  X * SEITELOGINS BEGSR BAR$SEITE 10  
  X * SEITEPN BEGSR BAR$SEITE 21  
  X * SEITETYP BEGSR BAR$SEITE 27  
  X * SEITETYP2 BEGSR BAR$SEITE 12  
  X * SEITETITEL BEGSR BAR$SEITE 22  
  X * SEITEFARBE BEGSR BAR$SEITE 8  
  X * SEITEFILEX BEGSR BAR$SEITE 14  
  X * ELEMENTSR BEGSR BAR$SEITE 11  
  X * ELEMENTSR2 BEGSR BAR$SEITE 33  
  X * ELEMENTMINSR BEGSR BAR$SEITE 31  
  X  
  X * NAKEYN KLIST BAR$SEITE 3  
  X * NAKEY1 KLIST BAR$SEITE 3  
  X * TIKEY1SPR KLIST BAR$SEITE 4  
  X * MIKEYN KLIST BAR$SEITE 3  
  X * RUKEYN KLIST BAR$SEITE 3  
  X * SMKEYN KLIST BAR$SEITE 3  
  X * AGKEY1 KLIST BAR$SEITE 3  
  X * SRCINFOPARM3 PLIST BAR$SEITE 8  
  X * MIKEY1BAR KLIST BAR$SEITE 3  
  X * ARKEY1BAR KLIST BAR$SEITE 4  
  X * ARKEY1MIT KLIST BAR$SEITE 4  
  X * RUKEY1ART KLIST BAR$SEITE 3  
  X * AWKEY1ART KLIST BAR$SEITE 5  
  X  
  X * NATYPNAV EXSR BAR$NAV    
  X * SRCEXISTDIR EXSR BAR$EXIST    
  X * NATYPNAV EXSR BAR$NAV    
  X * SRCEXISTDIR EXSR BAR$EXIST    
  X * NATYPNAV EXSR BAR$NAV    
  X * SRCEXISTFILE EXSR BAR$EXIST    
  X * SRCEXISTDIR EXSR BAR$EXIST    
  X * SRCEXISTFILE EXSR BAR$EXIST    
  X * MYTYPTITELADD EXSR BAR$NAV    
  X * NATYPNAV EXSR BAR$NAV    
  X * STRNUM EXSR BAR$NUM    
  X * NATYPNAV EXSR BAR$NAV    
  X * BESUCHERAG EXSR BAR$AGENT    
  X * NATYPNAV EXSR BAR$NAV    
  X * NATYPNAV EXSR BAR$NAV    
  X * MYTYPTITELADD EXSR BAR$NAV    
  X * NATYPNAV EXSR BAR$NAV    
  X * MYTYPTITELADD EXSR BAR$NAV    
  X * MYTYPTITELADD EXSR BAR$NAV    
  X * MYTYPTITELADD EXSR BAR$NAV    
  X * STRNUM EXSR BAR$NUM    
  X * NATYPNAV EXSR BAR$NAV    
  X * NATYPNAV EXSR BAR$NAV    
  X * NATYPNAV EXSR BAR$NAV    
  X * NUMSTR EXSR BAR$NUM    
  X * NATYPNAV EXSR BAR$NAV    
  X * STRNUM EXSR BAR$NUM    
  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 * NATYPTITEL EXSR BAR$NAV    
  X  
C          
C *COPYRIGHT JÜRGEN REULE 2010-2024
C          
  X * *MAIN* EXSR BAR$MAIN    
  X * SENDFEEDLOC EXSR BAR$SEND    
  X  
C     SEITE BEGSR                
C *     --------------------------------------
C *     Anzuzeigende Seite ermitteln
C *     --------------------------------------
C       CLEAR   ELEMENT            
C       CLEAR   ELEMENT2            
C       CLEAR   ELEMENT3            
C       CLEAR   ELEMENTMIN            
C       CLEAR   ELEMENTMINXX            
C       SETOFF         — — 33  
C *     --------------------------------------
C *     Pfad ohne Basisteil und mit Endung /
C *     --------------------------------------
C     PFAD CAT(P) '/':0 PFADS            
C       CLEAR   PFADREL            
C       CLEAR   PFADREL1            
C          
C *     --------------------------------------
C *     Titel und Farben des Portals ermitteln
C *     --------------------------------------
C       MOVEL(P) TYPIDX NATYP            
C       EXSR NATYPNAV              
C       EXSR SEITETYP              
C       EXSR SEITEIDX              
C          
C *     --------------------------------------
C *     Erstes Element ermitteln
C *     --------------------------------------
C       EXSR ELEMENTSR              
C          
C *     --------------------------------------
C *     Als Navigation suchen
C *     --------------------------------------
C       EXSR SEITENAVSR              
C     *IN77 IFEQ *OFF              
C       EXSR SEITENAV              
C       ELSE                
C *     --------------------------------------
C *     Als Rubrik suchen
C *     --------------------------------------
C       EXSR SEITERUBSR              
C     *IN77 IFEQ *OFF              
C       EXSR SEITERUB              
C       ELSE                
C *     --------------------------------------
C *     Als Mitglied suchen
C *     --------------------------------------
C       EXSR SEITEMITSR              
C     *IN77 IFEQ *OFF              
C       EXSR SEITEMIT              
C       ENDIF                
C       ENDIF                
C       ENDIF                
C *     --------------------------------------
C *     Pfad bis zum Ende lesen
C *     --------------------------------------
C     *BLANKS DOWNE PFADS              
C       EXSR ELEMENTSR              
C       ENDDO                
C *     --------------------------------------
C *     Anmelden / Abmelden / Fehler
C *     --------------------------------------
C       EXSR SEITENAVSR              
C     *IN77 IFEQ *OFF              
C          
C       SELECT    
C     NATYP WHENEQ TYPEXTERN              
C       EXSR SEITETYP              
C       EXSR SEITEENDE              
C          
C     NATYP WHENEQ TYPERR              
C       EXSR SEITEERR              
C       EXSR SEITEENDE              
C          
C     NATYP WHENEQ TYPFRI              
C     NATYP OREQ TYPLOGIN              
C     NATYP OREQ TYPLOGIN2              
C     NATYP OREQ TYPLOGIN3              
C     NATYP OREQ TYPLOGOUT              
C     NATYP OREQ TYPNEUMIT              
C     NATYP OREQ TYPNEUPWD              
C       EXSR SEITELOGINS              
C       EXSR SEITEENDE              
C       ENDSL                
C       ENDIF                
C *     --------------------------------------
C *     Fehler bei Debug-Modus
C *     --------------------------------------
C     *BLANKS IFNE DEBUG              
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     *IN78 IFEQ *ON              
C       EXSR SEITEERR              
C       ENDIF                
C       ENDIF                
C *     --------------------------------------
C *     Fehler bei Leerzeichen in Adresse
C *     --------------------------------------
C     *IN32 IFEQ *ON              
C       EXSR SEITEERR              
C       ENDIF                
C *     --------------------------------------
C *     Fehlerseite ausgeben falls Fehler
C *     --------------------------------------
C     *IN33 IFEQ *OFF              
C       EXSR SEITEERR              
C     PFADXX IFNE HTMLX              
C       MOVEL(P) HTML PFADXX            
C       ENDIF                
C       ENDIF                
C *     --------------------------------------
C *     Minibild?
C *     --------------------------------------
C     ELEMENTMINXX IFEQ MIN              
C     PFADXX ANDNE MINX              
C     PFADXX ANDNE CSS              
C       EXSR SEITEERR              
C       MOVEL(P) HTML PFADXX            
C       ENDIF                
C *     --------------------------------------
C *     Minibild?
C *     --------------------------------------
C     ELEMENTMINXX IFEQ MIN              
C     PFADXX ANDEQ MINX              
C       MOVEL(P) MINX OOFILEX            
C       ENDIF                
C *     --------------------------------------
C *     Titel und Farben der Wartung ermitteln
C *     --------------------------------------
C     *OFF IFNE *OFF              
C       EXSR SEITEMNT              
C       ENDIF                
C *     --------------------------------------
C *     Pfad bis zum Ende lesen
C *     --------------------------------------
C     *BLANKS IFNE PFAD2              
C          
C *     --------------------------------------
C *     Pfad bis zum Ende lesen
C *     --------------------------------------
C     PFAD2 CAT(P) '/':0 PFADS            
C       CLEAR   PFADREL            
C       CLEAR   PFADREL1            
C          
C *     --------------------------------------
C *     Pfad bis zum Ende lesen
C *     --------------------------------------
C     *BLANKS DOWNE PFADS              
C       EXSR ELEMENTSR              
C       ENDDO                
C       ENDIF                
C       ENDSR                
C          
  X * SEITE EXSR BAR$SEITE    
  X  
C     SEITENAV BEGSR                
C *     --------------------------------------
C *     Navigation
C *     --------------------------------------
C       EXSR SEITETYP              
C          
C       SELECT    
C     NATYP WHENEQ TYPIDX              
C       EXSR SEITEIDX              
C          
C     NATYP WHENEQ TYPBAR              
C       EXSR SEITEBAR              
C          
C     NATYP WHENEQ TYPPF              
C     NATYP OREQ TYPAKT              
C     NATYP OREQ TYPMMM              
C     NATYP OREQ TYPGAL              
C     NATYP OREQ TYPNAV              
C     NATYP OREQ TYPNNN              
C     NATYP OREQ TYPINF              
C     NATYP OREQ TYPDEV              
C     NATYP OREQ TYPNEUMIT              
C     NATYP OREQ TYPNEURUB              
C     NATYP OREQ TYPNEUPWD              
C     NATYP OREQ TYPSITEMAP              
C     NATYP OREQ TYPANFRAGEN              
C       EXSR SEITEENDE              
C   N33   EXSR SEITENAV2              
C          
C     NATYP WHENEQ TYPEDT              
C       MOVEL(P) TYPEDTIDX OOTYP            
C       EXSR SEITEENDE              
C   N33   EXSR SEITEEDT              
C          
C     NATYP WHENEQ TYPKAL              
C       EXSR SEITEKAL              
C       EXSR SEITEENDE              
C   N33   EXSR SEITEKAL2              
C          
C     NATYP WHENEQ TYPMNT              
C       EXSR SEITEMNT              
C       EXSR SEITEENDE              
C   N33   EXSR SEITENAV2              
C          
C     NATYP WHENEQ TYPSRCS              
C       EXSR SEITEENDE              
C   N33   EXSR SEITESRCS              
C          
C     NATYP WHENEQ TYPICNS              
C       MOVEL(P) TYPICN NATYPFILE            
C       EXSR SEITEFILES              
C          
C     NATYP WHENEQ TYPOBJS              
C       MOVEL(P) TYPOBJ NATYPFILE            
C       EXSR SEITEFILES              
C          
C     NATYP WHENEQ TYPFILES              
C       MOVEL(P) TYPFILE NATYPFILE            
C       EXSR SEITEFILES              
C          
C     NATYP WHENEQ TYPSAVES              
C       MOVEL(P) TYPSAVE NATYPFILE            
C       EXSR SEITEFILES              
C          
C     NATYP WHENEQ TYPBLASEN              
C       MOVEL(P) TYPBLASE NATYPFILE            
C       EXSR SEITEFILES              
C          
C     NATYP WHENEQ TYPKNOWNS              
C       MOVEL(P) TYPKNOWN NATYPFILE            
C       EXSR SEITEFILES              
C          
C     NATYP WHENEQ TYPSMILYS              
C       EXSR SEITEENDE              
C   N33   EXSR SEITESMILYS              
C          
C     NATYP WHENEQ TYPBESUCHER              
C       EXSR SEITEENDE              
C   N33   EXSR SEITEBESUCHER              
C          
C     NATYP WHENEQ TYPADS              
C     NATYP OREQ TYPFONT              
C     NATYP OREQ TYPROBOTS              
C     NATYP OREQ TYPAPPSITE              
C     NATYP OREQ TYPFAVICON              
C     NATYP OREQ TYPTOUCHICON              
C     NATYP OREQ TYPHTTPX              
C       EXSR SEITEENDE              
C   N33   EXSR SEITENAV2              
C       OTHER                
C       MOVEL(P) TYPNAV OOTYP            
C       EXSR SEITEENDE              
C   N33   EXSR SEITENAV2              
C       ENDSL                
C       ENDSR                
C          
  X * SEITE EXSR BAR$SEITE    
  X * SEITENAV EXSR BAR$SEITE    
  X * SEITEMNT EXSR BAR$SEITE    
  X  
C     SEITEIDX BEGSR                
C *     --------------------------------------
C *     Portal
C *     --------------------------------------
C       MOVEL(P) TITITEL OOTITEL            
C       MOVEL(P) TITITEL2 OOTITEL2            
C       EXSR SEITEFARBE              
C       EXSR SEITEENDE              
C       ENDSR                
C          
  X * SEITENAV EXSR BAR$SEITE    
  X  
C     SEITEEDT BEGSR                
C *     --------------------------------------
C *     Titel der Seite übernehmen
C *     --------------------------------------
C       MOVEL(P) TITITEL OOTITEL            
C       MOVEL(P) TITITEL2 OOTITEL2            
C       CLEAR   OOTITELADD            
C       CLEAR   OOTITELMIT            
C       CLEAR   OOTITELRUB            
C       CLEAR   OOTITELFILES            
C       CLEAR   OOTITELAG            
C          
C *     --------------------------------------
C *     Ändern
C *     --------------------------------------
C       MOVEL(P) TYPEDT NATYP            
C       EXSR SEITETYP              
C       EXSR SEITETYP2              
C       MOVEL(P) NATYP OOTYPEDT            
C          
C       MOVEL(P) TYPEDTNAV NATYP            
C       EXSR SEITETITEL              
C       EXSR SEITENAV2              
C       ENDSR                
C          
  X * SEITENAV EXSR BAR$SEITE    
  X  
C     SEITEKAL BEGSR                
C *     --------------------------------------
C *     Navigation
C *     --------------------------------------
C       EXSR SEITETYP              
C       ENDSR                
C          
  X * SEITENAV EXSR BAR$SEITE    
  X  
C     SEITEKAL2 BEGSR                
C *     --------------------------------------
C *     Navigation/Aktion
C *     --------------------------------------
C       EXSR ELEMENTSR              
C       EXSR SEITENAVSR              
C          
C     *IN77 IFEQ *OFF              
C       EXSR SEITETYP              
C          
C       SELECT    
C     NATYP WHENEQ TYPEDT              
C       MOVEL(P) TYPEDTKAL NATYP            
C       EXSR SEITETYP2              
C       EXSR SEITEENDE              
C       ENDSL                
C       ENDIF                
C       ENDSR                
C          
  X * SEITENAV EXSR BAR$SEITE    
  X * SEITENAV EXSR BAR$SEITE    
  X * SEITENAV EXSR BAR$SEITE    
  X * SEITENAV EXSR BAR$SEITE    
  X * SEITEEDT EXSR BAR$SEITE    
  X  
C     SEITENAV2 BEGSR                
C *     --------------------------------------
C *     Navigation/Aktion
C *     --------------------------------------
C       EXSR ELEMENTSR              
C       EXSR SEITENAVSR              
C          
C     *IN77 IFEQ *OFF              
C       EXSR SEITETYP              
C          
C       SELECT    
C     NATYP WHENEQ TYPEDT              
C       MOVEL(P) TYPEDTNAV NATYP            
C       EXSR SEITETYP2              
C       EXSR SEITEENDE              
C       ENDSL                
C       ENDIF                
C       ENDSR                
C          
  X * SEITENAV EXSR BAR$SEITE    
  X * SEITENAV EXSR BAR$SEITE    
  X * SEITENAV EXSR BAR$SEITE    
  X * SEITENAV EXSR BAR$SEITE    
  X * SEITENAV EXSR BAR$SEITE    
  X * SEITENAV EXSR BAR$SEITE    
  X  
C     SEITEFILES BEGSR                
C     *BLANKS IFNE PFADS              
C       MOVEL(P) NATYP NATYPDIR            
C *     --------------------------------------
C *     Unterobjekt
C *     --------------------------------------
C       EXSR ELEMENTSR              
C       EXSR SEITENAVSR              
C          
C     *IN77 IFEQ *OFF              
C       EXSR SEITETYP              
C          
C       SELECT    
C     NATYP WHENEQ TYPEDT              
C       MOVEL(P) TYPEDTNAV NATYP            
C       EXSR SEITETYP2              
C       EXSR SEITEENDE              
C       ENDSL                
C       ENDIF                
C *     --------------------------------------
C *     Unterobjekt
C *     --------------------------------------
C     OOTYP IFNE TYPEDTNAV              
C       EXSR SEITEFILES2              
C       ENDIF                
C *     --------------------------------------
C *     Hauptobjekt
C *     --------------------------------------
C       ELSE                
C       EXSR SEITEFILES3              
C       ENDIF                
C       ENDSR                
C          
  X * SEITEFILES EXSR BAR$SEITE    
  X  
C     SEITEFILES2 BEGSR                
C *     --------------------------------------
C *     Pfad bis zum Ende lesen
C *     --------------------------------------
C     *BLANKS DOWNE PFADS              
C       EXSR ELEMENTSR              
C       ENDDO                
C *     --------------------------------------
C *     Unterobjekt
C *     --------------------------------------
C       EXSR SEITENAVSR              
C          
C     *IN77 IFEQ *OFF              
C       EXSR SEITETYP              
C       ENDIF                
C *     --------------------------------------
C *     Textdatei anlegen / Bild hochladen
C *     --------------------------------------
C     OOTYP IFEQ TYPNEUFILE              
C     OOTYP OREQ TYPNEUFILE2              
C       EXSR SEITEFILESIN              
C     PFADLEN3 SUBST(P) PFAD PFAD3            
C       EXSR SRCEXISTDIR              
C     *IN77 COMP *OFF       — — 33  
C       ELSE                
C *     --------------------------------------
C *     Unterobjekt
C *     --------------------------------------
C     PFADXX IFEQ CSS              
C     PFADXX OREQ XML              
C     PFADXX OREQ RSS              
C     PFADXX OREQ ATOM              
C     PFADXX OREQ OSDX              
C     PFADXX OREQ HTML              
C     PFADXX OREQ HTMLX              
C     PFADXX OREQ PLIST              
C          
C *     --------------------------------------
C *     Verzeichnis
C *     --------------------------------------
C       MOVEL(P) NATYPDIR NATYP            
C       EXSR NATYPNAV              
C       EXSR SEITETYP              
C       CLEAR   OOFILEX            
C       MOVEL(P) PFAD PFAD3            
C       EXSR SRCEXISTDIR              
C     *IN77 COMP *OFF       — — 33  
C       ELSE                
C *     --------------------------------------
C *     Datei
C *     --------------------------------------
C       MOVEL(P) NATYPFILE NATYP            
C       EXSR NATYPNAV              
C       EXSR SEITETYP              
C       MOVEL(P) PFADX OOFILEX            
C     PFAD CAT(P) PFADX:0 PFAD3            
C       EXSR SRCEXISTFILE              
C     *IN77 COMP *OFF       — — 33  
C       ENDIF                
C *     --------------------------------------
C *     Unterobjekt
C *     --------------------------------------
C       CLEAR   ELEMENTMIN            
C       CLEAR   ELEMENTMINXX            
C          
C *     --------------------------------------
C *     Unterobjekt
C *     --------------------------------------
C       CLEAR   OONAV            
C       MOVEL(P) ELEMENT OOTITEL            
C       CLEAR   OOTITEL2            
C       MOVEL(P) 'X' OOTITELAG            
C       ENDIF                
C       ENDSR                
C          
  X * SEITEFILES EXSR BAR$SEITE    
  X  
C     SEITEFILES3 BEGSR                
C *     --------------------------------------
C *     Hauptobjekt
C *     --------------------------------------
C     PFADXX IFEQ CSS              
C     PFADXX OREQ XML              
C     PFADXX OREQ RSS              
C     PFADXX OREQ ATOM              
C     PFADXX OREQ OSDX              
C     PFADXX OREQ HTML              
C     PFADXX OREQ HTMLX              
C     PFADXX OREQ PLIST              
C          
C *     --------------------------------------
C *     Verzeichnis
C *     --------------------------------------
C       MOVEL(P) ELEMENT PFAD3            
C       EXSR SRCEXISTDIR              
C     *IN77 COMP *OFF       — — 33  
C       ELSE                
C *     --------------------------------------
C *     Datei
C *     --------------------------------------
C     ELEMENT CAT(P) PFADX:0 PFAD3            
C       EXSR SRCEXISTFILE              
C     *IN77 COMP *OFF       — — 33  
C       ENDIF                
C       ENDSR                
C          
  X * SEITEFILES2 EXSR BAR$SEITE    
  X  
C     SEITEFILESIN BEGSR                
C **     MOVEL(P) SPIN OOTITELADD            
C       MOVEL(P) 'SPIN' MYTYP            
C       EXSR MYTYPTITELADD              
C       MOVEL(P) 'X' OOTITELFILES            
C       ENDSR                
C          
  X * LINKTITELFILES EXSR BAR$LINK    
  X * PFADEXTERN EXSR BAR$MAIN    
  X * SEITE EXSR BAR$SEITE    
  X * SEITE EXSR BAR$SEITE    
  X * SEITEKAL2 EXSR BAR$SEITE    
  X * SEITENAV2 EXSR BAR$SEITE    
  X * SEITEFILES EXSR BAR$SEITE    
  X * SEITEFILES2 EXSR BAR$SEITE    
  X * SEITESMILYS EXSR BAR$SEITE    
  X * SEITESMILY2 EXSR BAR$SEITE    
  X * SEITEBESUCHER EXSR BAR$SEITE    
  X * SEITESRCS EXSR BAR$SEITE    
  X * SEITERUB2 EXSR BAR$SEITE    
  X * SEITEMIT2 EXSR BAR$SEITE    
  X * SEITEART2 EXSR BAR$SEITE    
  X * SEITEAW2 EXSR BAR$SEITE    
  X * SENDTITELFILES EXSR BAR$SEND    
  X  
C     SEITENAVSR BEGSR                
C       SETON         77 78 —  
C *     --------------------------------------
C *     Als Navigation suchen
C *     --------------------------------------
C     UPPER:LOWER XLATE(P) ELEMENTNAV ELEMENT9            
C       MOVEL(P) ELEMENT9 NANAV            
C     NANAV IFEQ ELEMENT9              
C     *BLANKS ANDNE ELEMENT9              
C       OPEN NAVILN       — 77 —  
C     NAKEYN CHAIN NAVILN       77 77 —  
C       OPEN TITELL1       — 78 —  
C     TIKEY1SPR CHAIN TITELL1       78 78 —  
C     *IN77 IFEQ *ON              
C *     --------------------------------------
C *     Als Navigation-Typ suchen
C *     --------------------------------------
C     *BLANKS IFEQ ELEMENTNAV              
C     '-' CAT(P) TYPIDX ELEMENTNAV            
C     UPPER:LOWER XLATE ELEMENTNAV ELEMENTNAV            
C       ENDIF                
C     1 SUBST(P) ELEMENTNAV OBNAV            
C     LOWER:UPPER XLATE OBNAV OBNAV            
C     OBNAV IFEQ '-'              
C       CLEAR   NATYP            
C       SUBST(P) ELEMENTNAV:2 NATYP            
C     LOWER:UPPER XLATE NATYP NATYP            
C       MOVEL(P) NATYP TITITEL            
C       CLEAR   TITITEL2            
C       OPEN NAVIL1       — 77 —  
C     NAKEY1 CHAIN NAVIL1       77 77 —  
C       OPEN TITELL1       — 78 —  
C     TIKEY1SPR CHAIN TITELL1       78 78 —  
C   77   CLEAR   NAFARBE            
C       SETOFF         — 77 —  
C       ENDIF                
C       ENDIF                
C       ENDIF                
C   78   MOVEL(P) NATYP TITITEL            
C   78   CLEAR   TITITEL2            
C   77   CLEAR   NAFARBE            
C       ENDSR                
C          
  X * SEITENAVSR CHAIN BAR$SEITE    
  X  
C     NAKEYN KLIST                
C       KFLD   MAMAN            
C       KFLD   NANAV            
C          
  X * SEITENAVSR CHAIN BAR$SEITE    
  X  
C     NAKEY1 KLIST                
C       KFLD   MAMAN            
C       KFLD   NATYP            
C          
  X * SEITENAVSR CHAIN BAR$SEITE    
  X * SEITENAVSR CHAIN BAR$SEITE    
  X  
C     TIKEY1SPR KLIST                
C       KFLD   MAMAN            
C       KFLD   NATYP            
C       KFLD   SPSPR            
C          
  X * *MAIN* EXSR BAR$MAIN    
  X * SEITE EXSR BAR$SEITE    
  X  
C     SEITEMITSR BEGSR                
C       SETON         77 — —  
C *     --------------------------------------
C *     Als Mitglied suchen
C *     --------------------------------------
C     UPPER:LOWER XLATE(P) ELEMENTNAV ELEMENT9            
C       MOVEL(P) ELEMENT9 MINAV            
C     MINAV IFEQ ELEMENT9              
C     *BLANKS ANDNE ELEMENT9              
C          
C *     --------------------------------------
C *     Als Mitglied suchen
C *     --------------------------------------
C       OPEN MITGLIEDLN       — 77 —  
C     MIKEYN CHAIN MITGLIEDLN       77 77 —  
C       ENDIF                
C       ENDSR                
C          
  X * SEITEMITSR CHAIN BAR$SEITE    
  X  
C     MIKEYN KLIST                
C       KFLD   MAMAN            
C       KFLD   MINAV            
C          
  X * SEITE EXSR BAR$SEITE    
  X  
C     SEITERUBSR BEGSR                
C       SETON         77 — —  
C *     --------------------------------------
C *     Als Rubrik suchen
C *     --------------------------------------
C     UPPER:LOWER XLATE(P) ELEMENTNAV ELEMENT9            
C       MOVEL(P) ELEMENT9 RUNAV            
C     RUNAV IFEQ ELEMENT9              
C     *BLANKS ANDNE ELEMENT9              
C          
C *     --------------------------------------
C *     Als Rubrik suchen
C *     --------------------------------------
C       OPEN RUBRIKLN       — 77 —  
C     RUKEYN CHAIN RUBRIKLN       77 77 —  
C       ENDIF                
C       ENDSR                
C          
  X * SEITERUBSR CHAIN BAR$SEITE    
  X  
C     RUKEYN KLIST                
C       KFLD   MAMAN            
C       KFLD   RUNAV            
C          
  X * SEITENAV EXSR BAR$SEITE    
  X  
C     SEITESMILYS BEGSR                
C *     --------------------------------------
C *     Smilys
C *     --------------------------------------
C       EXSR ELEMENTSR              
C       EXSR SEITENAVSR              
C          
C     *IN77 IFEQ *OFF              
C       EXSR SEITETYP              
C          
C       SELECT    
C     NATYP WHENEQ TYPEDT              
C       MOVEL(P) TYPEDTNAV NATYP            
C       EXSR SEITETYP2              
C       EXSR SEITEENDE              
C          
C     NATYP WHENEQ TYPNEUSMILY              
C       EXSR SEITEENDE              
C       ENDSL                
C       ENDIF                
C *     --------------------------------------
C *     Smily
C *     --------------------------------------
C     OOTYP IFNE TYPEDTNAV              
C     OOTYP ANDNE TYPNEUSMILY              
C       EXSR SEITESMILY              
C       ENDIF                
C       ENDSR                
C          
  X * SEITESMILYS EXSR BAR$SEITE    
  X  
C     SEITESMILY BEGSR                
C *     --------------------------------------
C *     Smily
C *     --------------------------------------
C       MOVEL(P) TYPSMILY NATYP            
C       EXSR NATYPNAV              
C       EXSR SEITETYP              
C          
C *     --------------------------------------
C *     Smily
C *     --------------------------------------
C       CLEAR   ELEMENTMIN            
C       CLEAR   ELEMENTMINXX            
C          
C *     --------------------------------------
C *     Smily
C *     --------------------------------------
C     UPPER:LOWER XLATE(P) ELEMENT ELEMENT9            
C       MOVEL(P) ELEMENT9 SMNAV            
C     SMNAV IFEQ ELEMENT9              
C     *BLANKS ANDNE ELEMENT9              
C          
C *     --------------------------------------
C *     Smily
C *     --------------------------------------
C       OPEN SMILYLN       — 77 —  
C     SMKEYN CHAIN SMILYLN       77 77 —  
C     *IN77 IFEQ *OFF              
C       CLEAR   OONAV            
C       MOVEL(P) SMFILEX OOFILEX            
C       EXSR SEITEENDE              
C   N33   EXSR SEITESMILY2              
C       ENDIF                
C       ENDIF                
C       ENDSR                
C          
  X * SEITESMILY CHAIN BAR$SEITE    
  X  
C     SMKEYN KLIST                
C       KFLD   MAMAN            
C       KFLD   SMNAV            
C          
  X * SEITESMILY EXSR BAR$SEITE    
  X  
C     SEITESMILY2 BEGSR                
C *     --------------------------------------
C *     Smily
C *     --------------------------------------
C       EXSR ELEMENTSR              
C       EXSR SEITENAVSR              
C          
C     *IN77 IFEQ *OFF              
C       EXSR SEITETYP              
C          
C       SELECT    
C     NATYP WHENEQ TYPEDT              
C       MOVEL(P) TYPEDTSMILY NATYP            
C       EXSR SEITETYP2              
C       EXSR SEITEENDE              
C       ENDSL                
C       ENDIF                
C       ENDSR                
C          
  X * SEITENAV EXSR BAR$SEITE    
  X  
C     SEITEBESUCHER BEGSR                
C *     --------------------------------------
C *     Besucher
C *     --------------------------------------
C       EXSR ELEMENTSR              
C       EXSR SEITENAVSR              
C          
C     *IN77 IFEQ *OFF              
C       EXSR SEITETYP              
C          
C       SELECT    
C     NATYP WHENEQ TYPEDT              
C       MOVEL(P) TYPEDTNAV NATYP            
C       EXSR SEITETYP2              
C       EXSR SEITEENDE              
C       ENDSL                
C       ENDIF                
C *     --------------------------------------
C *     Anfrage
C *     --------------------------------------
C     OOTYP IFNE TYPEDTNAV              
C       EXSR SEITEBESUCHE              
C       ENDIF                
C       ENDSR                
C          
  X * SEITEBESUCHER EXSR BAR$SEITE    
  X  
C     SEITEBESUCHE BEGSR                
C *     --------------------------------------
C *     Besuche
C *     --------------------------------------
C       MOVEL(P) ELEMENTNAV STR            
C       EXSR STRNUM              
C     *ZERO ADD NUM AGAG            
C     AGAG IFEQ NUM              
C *     --------------------------------------
C *     Agent lesen
C *     --------------------------------------
C       OPEN AGENTL1       — 77 —  
C     AGKEY1 CHAIN AGENTL1       77 77 —  
C     *IN77 IFEQ *OFF              
C          
C *     --------------------------------------
C *     Besuche
C *     --------------------------------------
C       MOVEL(P) TYPBESUCHE NATYP            
C       EXSR NATYPNAV              
C       EXSR SEITETYP              
C          
C *     --------------------------------------
C *     Besuche
C *     --------------------------------------
C       EXSR BESUCHERAG              
C     *BLANKS IFNE BESUCHER              
C       MOVEL(P) BESUCHER OOTITEL            
C       ENDIF                
C       MOVEL(P) AGAGENT OOTITEL2            
C       MOVEL(P) 'X' OOTITELAG            
C       EXSR SEITEENDE              
C       ENDIF                
C       ENDIF                
C       ENDSR                
C          
  X * SEITEBESUCHE CHAIN BAR$SEITE    
  X  
C     AGKEY1 KLIST                
C       KFLD   MAMAN            
C       KFLD   AGAG            
C          
  X * SEITENAV EXSR BAR$SEITE    
  X  
C     SEITESRCS BEGSR                
C *     --------------------------------------
C *     Quelle
C *     --------------------------------------
C       EXSR ELEMENTSR              
C       EXSR SEITENAVSR              
C          
C     *IN77 IFEQ *OFF              
C       EXSR SEITETYP              
C          
C       SELECT    
C     NATYP WHENEQ TYPEDT              
C       MOVEL(P) TYPEDTNAV NATYP            
C       EXSR SEITETYP2              
C       EXSR SEITEENDE              
C       ENDSL                
C       ENDIF                
C *     --------------------------------------
C *     Quelle
C *     --------------------------------------
C     OOTYP IFNE TYPEDTNAV              
C       EXSR SEITESRCS2              
C       ENDIF                
C       ENDSR                
C          
  X * SEITESRCS EXSR BAR$SEITE    
  X  
C     SEITESRCS2 BEGSR                
C *     --------------------------------------
C *     Quelle
C *     --------------------------------------
C       MOVEL(P) TYPSRC NATYP            
C       EXSR NATYPNAV              
C       EXSR SEITETYP              
C          
C *     --------------------------------------
C *     Quelle
C *     --------------------------------------
C       CLEAR   ELEMENTMIN            
C       CLEAR   ELEMENTMINXX            
C          
C *     --------------------------------------
C *     Quelle
C *     --------------------------------------
C     UPPER:LOWER XLATE(P) ELEMENT ELEMENT9            
C       MOVEL(P) ELEMENT9 SRCMBR            
C     SRCMBR IFEQ ELEMENT9              
C     *BLANKS ANDNE ELEMENT9              
C          
C *     --------------------------------------
C *     Quelle
C *     --------------------------------------
C       CALL 'SRCINFO' SRCINFOPARM3     — 77 —  
C     *IN77 IFEQ *OFF              
C     *BLANKS ANDNE SRCMBR              
C       MOVEL(P) SRCTEXT OOTITEL            
C     *BLANKS COMP SRCTEXT       — — 77  
C   77   MOVEL(P) SRCMBR OOTITEL            
C       MOVEL(P) SRCMBR OOTITEL2            
C       CAT '(' :1 OOTITEL2            
C       CAT SRCTYPE :0 OOTITEL2            
C       CAT ')' :0 OOTITEL2            
C       EXSR SEITEFARBE              
C       EXSR SEITEENDE              
C       ENDIF                
C       ENDIF                
C       ENDSR                
C          
  X * SEITESRCS2 CALL BAR$SEITE    
  X  
C     SRCINFOPARM3 PLIST                
C       PARM 'SOURCE' SRCFILE            
C       PARM   SRCMBR            
C       PARM '*SAME' SRCREL            
C       PARM   SRCTYPE            
C       PARM   SRCCHG            
C       PARM   SRCTEXT            
C       PARM   SRCLINES            
C          
  X * SEITENAV EXSR BAR$SEITE    
  X  
C     SEITEBAR BEGSR                
C       MOVEL(P) NATYP OOBAR            
C *     --------------------------------------
C *     Chat
C *     --------------------------------------
C       OPEN MITGLIEDL1       — 77 —  
C     MIKEY1BAR CHAIN MITGLIEDL1       77 77 —  
C       OPEN ARTIKELL1       — 78 —  
C   N77 ARKEY1BAR CHAIN ARTIKELL1       77 77 —  
C   N77   EXSR SEITEARTX              
C       ENDSR                
C          
  X * SEITEBAR CHAIN BAR$SEITE    
  X  
C     MIKEY1BAR KLIST                
C       KFLD   MAMAN            
C       KFLD   MAMIT            
C          
  X * SEITEBAR CHAIN BAR$SEITE    
  X  
C     ARKEY1BAR KLIST                
C       KFLD   MAMAN            
C       KFLD   MAMIT            
C       KFLD   MAART            
C          
  X * SEITE EXSR BAR$SEITE    
  X  
C     SEITERUB BEGSR                
C *     --------------------------------------
C *     Rubrik
C *     --------------------------------------
C       MOVEL(P) TYPRUB NATYP            
C       EXSR NATYPNAV              
C       EXSR SEITETYP              
C          
C *     --------------------------------------
C *     Rubrik
C *     --------------------------------------
C     *ZERO ADD RURUB OORUB            
C       CLEAR   OONAV            
C       MOVEL(P) RUFILEX OOFILEX            
C       MOVEL(P) *BLANKS OOTITEL            
C       MOVEL(P) RUTITEL2 OOTITEL2            
C       MOVEL(P) 'X' OOTITELRUB            
C       EXSR SEITEFARBE              
C       EXSR SEITEENDE              
C   N33   EXSR SEITERUB2              
C       ENDSR                
C          
  X * SEITERUB EXSR BAR$SEITE    
  X  
C     SEITERUB2 BEGSR                
C *     --------------------------------------
C *     Rubrik/Aktion
C *     --------------------------------------
C       EXSR ELEMENTSR              
C       EXSR SEITENAVSR              
C          
C     *IN77 IFEQ *OFF              
C       EXSR SEITETYP              
C          
C       SELECT    
C     NATYP WHENEQ TYPEDT              
C       MOVEL(P) TYPEDTRUB NATYP            
C       EXSR SEITETYP2              
C       ENDSL                
C          
C       SELECT    
C     NATYP WHENEQ TYPNEUART              
C     NATYP OREQ TYPNEUART2              
C       EXSR SEITERUBIN              
C       EXSR SEITEENDE              
C          
C     NATYP WHENEQ TYPEDTRUB              
C       EXSR SEITEENDE              
C       ENDSL                
C       ENDIF                
C       ENDSR                
C          
  X * SEITERUB2 EXSR BAR$SEITE    
  X  
C     SEITERUBIN BEGSR                
C **     MOVEL(P) SPIN OOTITELADD            
C       MOVEL(P) 'SPIN' MYTYP            
C       EXSR MYTYPTITELADD              
C       MOVEL(P) 'X' OOTITELRUB            
C       ENDSR                
C          
  X * SEITE EXSR BAR$SEITE    
  X  
C     SEITEMIT BEGSR                
C *     --------------------------------------
C *     Mitglied
C *     --------------------------------------
C       MOVEL(P) TYPMIT NATYP            
C       EXSR NATYPNAV              
C       EXSR SEITETYP              
C          
C *     --------------------------------------
C *     Mitglied
C *     --------------------------------------
C     *ZERO ADD MIMIT OOMIT            
C       CLEAR   OONAV            
C       MOVEL(P) *BLANKS OOFILEX            
C       MOVEL(P) *BLANKS OOTITEL            
C       MOVEL(P) MITITEL2 OOTITEL2            
C       MOVEL(P) 'X' OOTITELMIT            
C       EXSR SEITEFARBE              
C       EXSR SEITEENDE              
C   N33   EXSR SEITEMIT2              
C       ENDSR                
C          
  X * SEITEMIT EXSR BAR$SEITE    
  X  
C     SEITEMIT2 BEGSR                
C *     --------------------------------------
C *     Mitglied/Aktion
C *     --------------------------------------
C       EXSR ELEMENTSR              
C       EXSR SEITENAVSR              
C          
C     *IN77 IFEQ *OFF              
C       EXSR SEITETYP              
C          
C       SELECT    
C     NATYP WHENEQ TYPEDT              
C       MOVEL(P) TYPEDTMIT NATYP            
C       EXSR SEITETYP2              
C       ENDSL                
C          
C       SELECT    
C     NATYP WHENEQ TYPNEUPN              
C     NATYP OREQ TYPNEUPN2              
C       EXSR SEITENEUPN              
C       EXSR SEITEENDE              
C          
C     NATYP WHENEQ TYPMITPN              
C       EXSR SEITEMITPN              
C       EXSR SEITEENDE              
C          
C     NATYP WHENEQ TYPMITART              
C       EXSR SEITEMITART              
C       EXSR SEITEENDE              
C          
C     NATYP WHENEQ TYPGELPN              
C     NATYP OREQ TYPGELART              
C     NATYP OREQ TYPEDTMIT              
C     NATYP OREQ TYPCHGPWD              
C     NATYP OREQ TYPCHGMAIL              
C       EXSR SEITEENDE              
C       ENDSL                
C       ENDIF                
C *     --------------------------------------
C *     Mitglied/Artikel
C *     --------------------------------------
C     OOTYP IFEQ TYPMIT              
C       EXSR SEITEART              
C       ENDIF                
C       ENDSR                
C          
  X * SEITEMIT2 EXSR BAR$SEITE    
  X  
C     SEITENEUPN BEGSR                
C **     MOVEL(P) SPAN OOTITELADD            
C       MOVEL(P) 'SPAN' MYTYP            
C       EXSR MYTYPTITELADD              
C       MOVEL(P) 'X' OOTITELMIT            
C       ENDSR                
C          
  X * SEITEMIT2 EXSR BAR$SEITE    
  X  
C     SEITEMITPN BEGSR                
C **     MOVEL(P) SPVONAN OOTITELADD            
C       MOVEL(P) 'SPVONAN' MYTYP            
C       EXSR MYTYPTITELADD              
C       MOVEL(P) 'X' OOTITELMIT            
C       ENDSR                
C          
  X * SEITEMIT2 EXSR BAR$SEITE    
  X  
C     SEITEMITART BEGSR                
C **     MOVEL(P) SPVON OOTITELADD            
C       MOVEL(P) 'SPVON' MYTYP            
C       EXSR MYTYPTITELADD              
C       MOVEL(P) 'X' OOTITELMIT            
C       ENDSR                
C          
  X * SEITEMIT2 EXSR BAR$SEITE    
  X  
C     SEITEART BEGSR                
C *     --------------------------------------
C *     Mitglied/Artikel
C *     --------------------------------------
C       MOVEL(P) ELEMENTNAV STR            
C       EXSR STRNUM              
C     *ZERO ADD NUM ARART            
C     ARART IFEQ NUM              
C *     --------------------------------------
C *     Artikel lesen
C *     --------------------------------------
C       OPEN ARTIKELL1       — 77 —  
C     ARKEY1MIT CHAIN ARTIKELL1       77 77 —  
C   N77   EXSR SEITEARTX              
C       ENDIF                
C       ENDSR                
C          
  X * SEITEART CHAIN BAR$SEITE    
  X  
C     ARKEY1MIT KLIST                
C       KFLD   MIMAN            
C       KFLD   MIMIT            
C       KFLD   ARART            
C          
  X * SEITEBAR EXSR BAR$SEITE    
  X * SEITEART EXSR BAR$SEITE    
  X  
C     SEITEARTX BEGSR                
C *     --------------------------------------
C *     Farbe für Artikel oder Nachrichten
C *     --------------------------------------
C     NOPN COMP ARPN       77 77 —  
C   77   MOVEL(P) TYPPN NATYP            
C   N77   MOVEL(P) TYPART NATYP            
C       EXSR NATYPNAV              
C       EXSR SEITETYP              
C       MOVEL(P) OOTYPEDT OOTYPEDTSAVE            
C          
C *     --------------------------------------
C *     Farbe für Postfach oder Rubriken
C *     --------------------------------------
C     NOPN COMP ARPN       77 77 —  
C   77   MOVEL(P) TYPPF NATYP            
C   N77   MOVEL(P) TYPRUB NATYP            
C       EXSR NATYPNAV              
C       EXSR SEITETYP              
C          
C *     --------------------------------------
C *     Farbe der Rubrik des Artikels
C *     --------------------------------------
C     NOPN IFEQ ARPN              
C       OPEN RUBRIKL1       — 77 —  
C     RUKEY1ART CHAIN RUBRIKL1       77 77 —  
C     *IN77 IFEQ *OFF              
C     NORUB ANDNE RURUB              
C     *ZERO ADD RURUB OORUB            
C       CLEAR   OONAV            
C       MOVEL(P) RUFILEX OOFILEX            
C       MOVEL(P) RUTITEL OOTITEL            
C       MOVEL(P) RUTITEL2 OOTITEL2            
C       EXSR SEITEFARBE              
C       ENDIF                
C       ENDIF                
C *     --------------------------------------
C *     Werte des Artikels übernehmen
C *     --------------------------------------
C     NODLT IFEQ ARDLT              
C     NOMIT ORNE BEMIT              
C     *BLANKS ANDNE ZEIGEN              
C       CLEAR   OONAV            
C       MOVEL(P) ARFILEX OOFILEX            
C     XLATE2:XLATE1 XLATE(P) ARTITEL OOTITEL            
C     XLATE2:XLATE1 XLATE(P) ARTITEL2 OOTITEL2            
C       CLEAR   OOTITELMIT            
C       CLEAR   OOSPERRE            
C          
C *     --------------------------------------
C *     Falls Artikel gesperrt
C *     --------------------------------------
C       ELSE                
C       MOVEL(P) TYPSPERRE NATYP            
C       EXSR NATYPNAV              
C       EXSR SEITETYP              
C       MOVEL(P) 'X' OOSPERRE            
C       ENDIF                
C *     --------------------------------------
C *     Artikel oder Nachricht
C *     --------------------------------------
C     NOPN COMP ARPN       77 77 —  
C   77   MOVEL(P) TYPPN OOTYP            
C   N77   MOVEL(P) TYPART OOTYP            
C       MOVEL(P) OOTYPEDTSAVE OOTYPEDT            
C       MOVEL(P) 'X' OOARTPN            
C          
C *     --------------------------------------
C *     Falls Titel leer dann Nummer anzeigen
C *     --------------------------------------
C     *BLANKS IFEQ OOTITEL              
C     *ZERO ADD ARART NUM            
C       EXSR NUMSTR              
C       MOVEL(P) STR OOTITEL            
C       ENDIF                
C       EXSR SEITEFARBE              
C          
C *     --------------------------------------
C *     Farbe für Chat übernehmen
C *     --------------------------------------
C     NOBAR IFNE OOBAR              
C       MOVEL(P) OOBAR NATYP            
C       EXSR NATYPNAV              
C       EXSR SEITETYP              
C       MOVEL(P) 'X' ARCHAT            
C       CLEAR   OOSPERRE            
C       ENDIF                
C *     --------------------------------------
C *     Chat
C *     --------------------------------------
C       MOVEL(P) ARCHAT OOCHAT            
C          
C       EXSR SEITEENDE              
C   N33   EXSR SEITEART2              
C       ENDSR                
C          
  X * SEITEARTX CHAIN BAR$SEITE    
  X  
C     RUKEY1ART KLIST                
C       KFLD   ARMAN            
C       KFLD   ARRUB            
C          
  X * SEITEARTX EXSR BAR$SEITE    
  X  
C     SEITEART2 BEGSR                
C       CLEAR   OOARTPN            
C       CLEAR   OOSPERRE            
C *     --------------------------------------
C *     Mitglied/Artikel/Aktion
C *     --------------------------------------
C       EXSR ELEMENTSR              
C       EXSR SEITENAVSR              
C          
C     *IN77 IFEQ *OFF              
C       EXSR SEITETYP              
C          
C     NOPN COMP ARPN       77 77 —  
C          
C       SELECT    
C     NOBAR WHENNE OOBAR              
C     NATYP IFEQ TYPEDT              
C       MOVEL(P) TYPEDTNAV NATYP            
C       EXSR SEITETYP2              
C       ENDIF                
C     NATYP WHENEQ TYPEDT              
C     *BLANKS IFEQ ARFILEX              
C   77   MOVEL(P) TYPEDTPN NATYP            
C   N77   MOVEL(P) TYPEDTART NATYP            
C       EXSR SEITETYP2              
C       ELSE                
C   77   MOVEL(P) TYPEDTPN2 NATYP            
C   N77   MOVEL(P) TYPEDTART2 NATYP            
C       EXSR SEITETYP2              
C       ENDIF                
C     NATYP WHENEQ TYPDLT              
C   77   MOVEL(P) TYPDLTPN NATYP            
C   N77   MOVEL(P) TYPDLTART NATYP            
C       EXSR SEITETYP2              
C          
C     NATYP WHENEQ TYPRCL              
C   77   MOVEL(P) TYPRCLPN NATYP            
C   N77   MOVEL(P) TYPRCLART NATYP            
C       EXSR SEITETYP2              
C       ENDSL                
C          
C       SELECT    
C     NATYP WHENEQ TYPFRA              
C     NATYP OREQ TYPFRR              
C     NATYP OREQ TYPFRD              
C     NATYP OREQ TYPFRE              
C     NATYP OREQ TYPFRI              
C     NATYP OREQ TYPFRN              
C     NATYP OREQ TYPFRW              
C     NATYP OREQ TYPFRS              
C     NATYP OREQ TYPFRP              
C     NATYP OREQ TYPFRT              
C     NOCHAT IFNE ARCHAT              
C       MOVEL(P) TARGETPARENT TARGET            
C       MOVEL(P) TARGETFRD TARGET2            
C       EXSR SEITEENDE              
C       ENDIF                
C          
C     NATYP WHENEQ TYPEDTNAV              
C       EXSR SEITEENDE              
C          
C     NATYP WHENEQ TYPEDTPN              
C     NATYP OREQ TYPEDTPN2              
C     NATYP OREQ TYPEDTART              
C     NATYP OREQ TYPEDTART2              
C     NATYP OREQ TYPDLTPN              
C     NATYP OREQ TYPDLTART              
C     NATYP OREQ TYPRCLPN              
C     NATYP OREQ TYPRCLART              
C     NATYP OREQ TYPNEUAW              
C       EXSR SEITEENDE              
C          
C     NATYP WHENEQ TYPSPERRE              
C     NODLT IFNE ARDLT              
C       EXSR SEITEENDE              
C       ENDIF                
C       ENDSL                
C       ENDIF                
C *     --------------------------------------
C *     Mitglied/Artikel/Antwort
C *     --------------------------------------
C     OOTYP IFEQ TYPPN              
C     OOTYP OREQ TYPART              
C     OOTYP OREQ TYPBAR              
C       EXSR SEITEAW              
C       ENDIF                
C       ENDSR                
C          
  X * SEITEART2 EXSR BAR$SEITE    
  X  
C     SEITEAW BEGSR                
C *     --------------------------------------
C *     Mitglied/Artikel/Antwort
C *     --------------------------------------
C       MOVEL(P) ELEMENTNAV STR            
C       EXSR STRNUM              
C     *ZERO ADD NUM AWAW            
C     AWAW IFEQ NUM              
C *     --------------------------------------
C *     Antwort lesen
C *     --------------------------------------
C       OPEN ANTWORTL1       — 77 —  
C     AWKEY1ART CHAIN ANTWORTL1       77 77 —  
C     *IN77 IFEQ *OFF              
C          
C *     --------------------------------------
C *     Antwort
C *     --------------------------------------
C       MOVEL(P) TYPAW NATYP            
C       EXSR NATYPNAV              
C       EXSR SEITETYP              
C       MOVEL(P) OOTYPEDT OOTYPEDTSAVE            
C          
C *     --------------------------------------
C *     Werte der Antwort übernehmen
C *     --------------------------------------
C     NODLT IFEQ AWDLT              
C     NOMIT ORNE BEMIT              
C     *BLANKS ANDNE ZEIGEN              
C       CLEAR   OONAV            
C       CLEAR   OOFILEX            
C       CLEAR   OOSPERRE            
C          
C *     --------------------------------------
C *     Falls Antwort gesperrt
C *     --------------------------------------
C       ELSE                
C       MOVEL(P) TYPSPERRE NATYP            
C       EXSR NATYPNAV              
C       EXSR SEITETYP              
C       MOVEL(P) 'X' OOSPERRE            
C       ENDIF                
C *     --------------------------------------
C *     Antwort
C *     --------------------------------------
C       MOVEL(P) TYPAW OOTYP            
C       MOVEL(P) OOTYPEDTSAVE OOTYPEDT            
C          
C       EXSR SEITEENDE              
C   N33   EXSR SEITEAW2              
C       ENDIF                
C       ENDIF                
C       ENDSR                
C          
  X * SEITEAW CHAIN BAR$SEITE    
  X  
C     AWKEY1ART KLIST                
C       KFLD   ARMAN            
C       KFLD   ARMIT            
C       KFLD   ARART            
C       KFLD   AWAW            
C          
  X * SEITEAW EXSR BAR$SEITE    
  X  
C     SEITEAW2 BEGSR                
C       CLEAR   OOARTPN            
C       CLEAR   OOSPERRE            
C *     --------------------------------------
C *     Mitglied/Artikel/Antwort/Aktion
C *     --------------------------------------
C       EXSR ELEMENTSR              
C       EXSR SEITENAVSR              
C          
C     *IN77 IFEQ *OFF              
C       EXSR SEITETYP              
C          
C       SELECT    
C     NATYP WHENEQ TYPEDT              
C       MOVEL(P) TYPEDTAW NATYP            
C       EXSR SEITETYP2              
C          
C     NATYP WHENEQ TYPDLT              
C       MOVEL(P) TYPDLTAW NATYP            
C       EXSR SEITETYP2              
C          
C     NATYP WHENEQ TYPRCL              
C       MOVEL(P) TYPRCLAW NATYP            
C       EXSR SEITETYP2              
C       ENDSL                
C          
C       SELECT    
C     NATYP WHENEQ TYPEDTAW              
C     NATYP OREQ TYPDLTAW              
C     NATYP OREQ TYPRCLAW              
C       EXSR SEITEENDE              
C          
C     NATYP WHENEQ TYPSPERRE              
C     NODLT IFNE AWDLT              
C       EXSR SEITEENDE              
C       ENDIF                
C       ENDSL                
C       ENDIF                
C       ENDSR                
C          
  X * SEITE EXSR BAR$SEITE    
  X * SEITE EXSR BAR$SEITE    
  X * SEITE EXSR BAR$SEITE    
  X * SEITENAV EXSR BAR$SEITE    
  X * SEITENAV EXSR BAR$SEITE    
  X * SEITENAV EXSR BAR$SEITE    
  X * SEITENAV EXSR BAR$SEITE    
  X * SEITENAV EXSR BAR$SEITE    
  X * SEITENAV EXSR BAR$SEITE    
  X * SEITENAV EXSR BAR$SEITE    
  X * SEITENAV EXSR BAR$SEITE    
  X * SEITENAV EXSR BAR$SEITE    
  X * SEITEIDX EXSR BAR$SEITE    
  X * SEITEKAL2 EXSR BAR$SEITE    
  X * SEITENAV2 EXSR BAR$SEITE    
  X * SEITEFILES EXSR BAR$SEITE    
  X * SEITESMILYS EXSR BAR$SEITE    
  X * SEITESMILYS EXSR BAR$SEITE    
  X * SEITESMILY EXSR BAR$SEITE    
  X * SEITESMILY2 EXSR BAR$SEITE    
  X * SEITEBESUCHER EXSR BAR$SEITE    
  X * SEITEBESUCHE EXSR BAR$SEITE    
  X * SEITESRCS EXSR BAR$SEITE    
  X * SEITESRCS2 EXSR BAR$SEITE    
  X * SEITERUB EXSR BAR$SEITE    
  X * SEITERUB2 EXSR BAR$SEITE    
  X * SEITERUB2 EXSR BAR$SEITE    
  X * SEITEMIT EXSR BAR$SEITE    
  X * SEITEMIT2 EXSR BAR$SEITE    
  X * SEITEMIT2 EXSR BAR$SEITE    
  X * SEITEMIT2 EXSR BAR$SEITE    
  X * SEITEMIT2 EXSR BAR$SEITE    
  X * SEITEARTX EXSR BAR$SEITE    
  X * SEITEART2 EXSR BAR$SEITE    
  X * SEITEART2 EXSR BAR$SEITE    
  X * SEITEART2 EXSR BAR$SEITE    
  X * SEITEART2 EXSR BAR$SEITE    
  X * SEITEAW EXSR BAR$SEITE    
  X * SEITEAW2 EXSR BAR$SEITE    
  X * SEITEAW2 EXSR BAR$SEITE    
  X  
C     SEITEENDE BEGSR                
C *     --------------------------------------
C *     Pfad zu Ende?
C *     --------------------------------------
C     *BLANKS COMP PFADS       — — 33  
C       ENDSR                
C          
  X * SEITE EXSR BAR$SEITE    
  X * SEITENAV EXSR BAR$SEITE    
  X  
C     SEITEMNT BEGSR                
C       CLEAR   OOARTPN            
C       CLEAR   OOSPERRE            
C *     --------------------------------------
C *     Wartung
C *     --------------------------------------
C       MOVEL(P) TYPMNT NATYP            
C     *ZERO ADD STATUS503 STATUS            
C       EXSR NATYPNAV              
C       EXSR SEITETYP              
C       EXSR SEITEIDX              
C       ENDSR                
C          
  X * SECURITY EXSR BAR$SEC    
  X * SEITE EXSR BAR$SEITE    
  X * SEITE EXSR BAR$SEITE    
  X * SEITE EXSR BAR$SEITE    
  X * SEITE EXSR BAR$SEITE    
  X * SEITE EXSR BAR$SEITE    
  X * SENDSTMF EXSR BAR$SEND    
  X  
C     SEITEERR BEGSR                
C       CLEAR   OOARTPN            
C       CLEAR   OOSPERRE            
C *     --------------------------------------
C *     Fehler
C *     --------------------------------------
C       MOVEL(P) TYPERR NATYP            
C     *ZERO ADD STATUS404 STATUS            
C       EXSR NATYPNAV              
C       EXSR SEITETYP              
C       ENDSR                
C          
  X * SEITE EXSR BAR$SEITE    
  X  
C     SEITELOGINS BEGSR                
C       CLEAR   OOARTPN            
C       CLEAR   OOSPERRE            
C *     --------------------------------------
C *     Anmelden
C *     --------------------------------------
C     *ZERO ADD STATUS403 STATUS            
C       EXSR NATYPNAV              
C       EXSR SEITETYP              
C       ENDSR                
C          
  X * SECURITY EXSR BAR$SEC    
  X  
C     SEITEPN BEGSR                
C *     --------------------------------------
C *     Allgemeinen Titel für Nachricht setzen
C *     --------------------------------------
C     OOTYP IFEQ TYPPN              
C     OOTYP OREQ TYPART              
C     OOTYP OREQ TYPFRA              
C     OOTYP OREQ TYPFRR              
C     *ZERO ADD OOFARBEALL OOFARBESAVE            
C          
C *     --------------------------------------
C *     Allgemeinen Titel für Nachricht setzen
C *     --------------------------------------
C     NOPN IFNE ARPN              
C       MOVEL(P) TYPPN NATYP            
C       EXSR NATYPNAV              
C       EXSR SEITETYP              
C       ENDIF                
C     *ZERO ADD OOFARBESAVE OOFARBEALL            
C       ENDIF                
C       ENDSR                
C          
  X * SECURITY EXSR BAR$SEC    
  X * SEITE EXSR BAR$SEITE    
  X * SEITE EXSR BAR$SEITE    
  X * SEITENAV EXSR BAR$SEITE    
  X * SEITEEDT EXSR BAR$SEITE    
  X * SEITEKAL EXSR BAR$SEITE    
  X * SEITEKAL2 EXSR BAR$SEITE    
  X * SEITENAV2 EXSR BAR$SEITE    
  X * SEITEFILES EXSR BAR$SEITE    
  X * SEITEFILES2 EXSR BAR$SEITE    
  X * SEITEFILES2 EXSR BAR$SEITE    
  X * SEITEFILES2 EXSR BAR$SEITE    
  X * SEITESMILYS EXSR BAR$SEITE    
  X * SEITESMILY EXSR BAR$SEITE    
  X * SEITESMILY2 EXSR BAR$SEITE    
  X * SEITEBESUCHER EXSR BAR$SEITE    
  X * SEITEBESUCHE EXSR BAR$SEITE    
  X * SEITESRCS EXSR BAR$SEITE    
  X * SEITESRCS2 EXSR BAR$SEITE    
  X * SEITERUB EXSR BAR$SEITE    
  X * SEITERUB2 EXSR BAR$SEITE    
  X * SEITEMIT EXSR BAR$SEITE    
  X * SEITEMIT2 EXSR BAR$SEITE    
  X * SEITEARTX EXSR BAR$SEITE    
  X * SEITEARTX EXSR BAR$SEITE    
  X * SEITEARTX EXSR BAR$SEITE    
  X * SEITEARTX EXSR BAR$SEITE    
  X * SEITEART2 EXSR BAR$SEITE    
  X * SEITEAW EXSR BAR$SEITE    
  X * SEITEAW EXSR BAR$SEITE    
  X * SEITEAW2 EXSR BAR$SEITE    
  X * SEITEMNT EXSR BAR$SEITE    
  X * SEITEERR EXSR BAR$SEITE    
  X * SEITELOGINS EXSR BAR$SEITE    
  X * SEITEPN EXSR BAR$SEITE    
  X  
C     SEITETYP BEGSR                
C *     --------------------------------------
C *     Werte der Navigation übernehmen
C *     --------------------------------------
C       MOVEL(P) NATYP OOTYP            
C     *ZERO ADD NAFARBE OOFARBE            
C          
C *     --------------------------------------
C *     Werte der Navigation übernehmen
C *     --------------------------------------
C     NATYP IFNE TYPEDT              
C       MOVEL(P) NATYP OOTYPEDT            
C       ENDIF                
C *     --------------------------------------
C *     Werte der Navigation übernehmen
C *     --------------------------------------
C     NATYP IFNE TYPFRA              
C     NATYP ANDNE TYPFRR              
C       EXSR SEITEFILEX              
C       MOVEL(P) NANAV OONAV            
C       MOVEL(P) NAFILEX OOFILEX            
C       ENDIF                
C *     --------------------------------------
C *     Titel der Seite übernehmen
C *     --------------------------------------
C       EXSR SEITETITEL              
C       ENDSR                
C          
  X * SEITEEDT EXSR BAR$SEITE    
  X * SEITEKAL2 EXSR BAR$SEITE    
  X * SEITENAV2 EXSR BAR$SEITE    
  X * SEITEFILES EXSR BAR$SEITE    
  X * SEITESMILYS EXSR BAR$SEITE    
  X * SEITESMILY2 EXSR BAR$SEITE    
  X * SEITEBESUCHER EXSR BAR$SEITE    
  X * SEITESRCS EXSR BAR$SEITE    
  X * SEITERUB2 EXSR BAR$SEITE    
  X * SEITEMIT2 EXSR BAR$SEITE    
  X * SEITEART2 EXSR BAR$SEITE    
  X * SEITEART2 EXSR BAR$SEITE    
  X * SEITEART2 EXSR BAR$SEITE    
  X * SEITEART2 EXSR BAR$SEITE    
  X * SEITEART2 EXSR BAR$SEITE    
  X * SEITEAW2 EXSR BAR$SEITE    
  X * SEITEAW2 EXSR BAR$SEITE    
  X * SEITEAW2 EXSR BAR$SEITE    
  X  
C     SEITETYP2 BEGSR                
C *     --------------------------------------
C *     Werte der Navigation übernehmen
C *     --------------------------------------
C       MOVEL(P) NATYP OOTYP            
C          
C *     --------------------------------------
C *     Titel der Seite übernehmen
C *     --------------------------------------
C       EXSR NATYPTITEL              
C   N78   EXSR SEITETITEL              
C       ENDSR                
C          
  X * SEITEEDT EXSR BAR$SEITE    
  X * SEITETYP EXSR BAR$SEITE    
  X * SEITETYP2 EXSR BAR$SEITE    
  X  
C     SEITETITEL BEGSR                
C *     --------------------------------------
C *     Titel der Seite übernehmen
C *     --------------------------------------
C     NATYP IFNE TYPFRA              
C     NATYP ANDNE TYPFRR              
C     NATYP ANDNE TYPEDT              
C     NATYP ANDNE TYPEDTNAV              
C     NATYP ANDNE TYPEDTKAL              
C       MOVEL(P) TITITEL OOTITEL            
C       MOVEL(P) TITITEL2 OOTITEL2            
C       CLEAR   OOTITELADD            
C       CLEAR   OOTITELMIT            
C       CLEAR   OOTITELRUB            
C       CLEAR   OOTITELFILES            
C       CLEAR   OOTITELAG            
C       ENDIF                
C *     --------------------------------------
C *     Farbe der Seite übernehmen
C *     --------------------------------------
C       EXSR SEITEFARBE              
C       ENDSR                
C          
  X * SEITEIDX 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 * SEITETITEL EXSR BAR$SEITE    
  X  
C     SEITEFARBE BEGSR                
C *     --------------------------------------
C *     Farbe der Seite übernehmen
C *     --------------------------------------
C     NOFARBE IFNE OOFARBE              
C     *ZERO ADD OOFARBE OOFARBEALL            
C       ENDIF                
C       ENDSR                
C          
  X * LINKNAVFILE EXSR BAR$LINK    
  X * SEITETYP EXSR BAR$SEITE    
  X  
C     SEITEFILEX BEGSR                
C *     --------------------------------------
C *     Werte der Navigation übernehmen
C *     --------------------------------------
C     *BLANKS IFNE DEBUG              
C     *BLANKS IFEQ NAFILEX              
C     '-' OREQ NAFILEX              
C       MOVEL(P) JPG NAFILEX            
C     NATYP IFEQ TYPSMILYS              
C       MOVEL(P) GIF NAFILEX            
C       ENDIF                
C       ENDIF                
C       ENDIF                
C       ENDSR                
C          
  X * SEITE EXSR BAR$SEITE    
  X * SEITE EXSR BAR$SEITE    
  X * SEITE EXSR BAR$SEITE    
  X * SEITEKAL2 EXSR BAR$SEITE    
  X * SEITENAV2 EXSR BAR$SEITE    
  X * SEITEFILES EXSR BAR$SEITE    
  X * SEITEFILES2 EXSR BAR$SEITE    
  X * SEITESMILYS EXSR BAR$SEITE    
  X * SEITESMILY2 EXSR BAR$SEITE    
  X * SEITEBESUCHER EXSR BAR$SEITE    
  X * SEITESRCS EXSR BAR$SEITE    
  X * SEITERUB2 EXSR BAR$SEITE    
  X * SEITEMIT2 EXSR BAR$SEITE    
  X * SEITEART2 EXSR BAR$SEITE    
  X * SEITEAW2 EXSR BAR$SEITE    
  X  
C     ELEMENTSR BEGSR                
C *     --------------------------------------
C *     Nächstes Element aus Web-Adresse holen
C *     --------------------------------------
C     *BLANKS IFNE PFADS              
C       EXSR ELEMENTSR2              
C     *BLANKS IFEQ PFADS              
C       EXSR ELEMENTMINSR              
C       ENDIF                
C       ENDIF                
C       ENDSR                
C          
  X * ELEMENTSR EXSR BAR$SEITE    
  X  
C     ELEMENTSR2 BEGSR                
C *     --------------------------------------
C *     Nächstes Element aus Web-Adresse holen
C *     --------------------------------------
C       MOVEL(P) ELEMENT2 ELEMENT3            
C       MOVEL(P) ELEMENT ELEMENT2            
C       CLEAR   ELEMENTMIN            
C       CLEAR   ELEMENTMINXX            
C          
C *     --------------------------------------
C *     Nächstes Element aus Web-Adresse holen
C *     --------------------------------------
C     '/' SCAN PFADS POS     — 77 78  
C       SUB 1 POS            
C     POS IFGE 1              
C     POS SUBST(P) PFADS ELEMENT            
C       ELSE                
C       CLEAR   ELEMENT            
C       ENDIF                
C     *BLANKS IFEQ ELEMENT              
C       MOVEL(P) INDEXNAV ELEMENT            
C       ENDIF                
C       MOVEL(P) ELEMENT ELEMENTNAV            
C          
C *     --------------------------------------
C *     Nächstes Element aus Web-Adresse holen
C *     --------------------------------------
C       ADD 2 POS            
C       SUBST(P) PFADS:POS PFADS            
C       CAT HOCH:0 PFADREL            
C       MOVEL(P) HOCH PFADREL1            
C       MOVEL(P) '../' HOCH            
C       ENDSR                
C          
  X * OBJEKTNAME EXSR BAR$NEUED    
  X * ELEMENTSR EXSR BAR$SEITE    
  X  
C     ELEMENTMINSR BEGSR                
C *     --------------------------------------
C *     Minibild?
C *     --------------------------------------
C     UPPER:LOWER XLATE(P) ELEMENTNAV ELEMENT9            
C     'amin' IFNE ELEMENT9              
C     'armin' ANDNE ELEMENT9              
C     'admin' ANDNE ELEMENT9              
C     'jasmin' ANDNE ELEMENT9              
C     'yasmin' ANDNE ELEMENT9              
C     'termin' ANDNE ELEMENT9              
C     'vitamin' ANDNE ELEMENT9              
C     'benjamin' ANDNE ELEMENT9              
C     ' ' CHECKR ELEMENTNAV LEN            
C       SUB 2 LEN            
C     LEN IFGT 1              
C       SUBST(P) ELEMENTNAV:LEN ELEMENTMIN            
C     UPPER:LOWER XLATE(P) ELEMENTMIN ELEMENTMINXX            
C     MIN IFEQ ELEMENTMINXX              
C       SUB 1 LEN            
C     LEN SUBST(P) ELEMENTNAV ELEMENTNAV            
C     *BLANKS IFEQ ELEMENTNAV              
C       MOVEL(P) INDEXNAV ELEMENTNAV            
C       ENDIF                
C       ELSE                
C       CLEAR   ELEMENTMIN            
C       CLEAR   ELEMENTMINXX            
C       ENDIF                
C       ENDIF                
C       ENDIF                
C       ENDSR                

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