Text

BAR$TEXT (RPGLE)



  X * TEXTSMILYS BEGSR BAR$TEXT 12  
  X * TEXTSMILYS85 BEGSR BAR$TEXT 12  
  X * TEXTSMILYSB BEGSR BAR$TEXT 11  
  X * TEXTSMILYSDESC BEGSR BAR$TEXT 11  
  X * TEXTSMILYSKAM BEGSR BAR$TEXT 11  
  X * TEXTSMILYSENV BEGSR BAR$TEXT 12  
  X * TEXTSMILYSENV2 BEGSR BAR$TEXT 38  
  X * TEXTSMILYSAG BEGSR BAR$TEXT 7  
  X * TEXTSMILYSAGX BEGSR BAR$TEXT 53  
  X * TEXTSMILYSAGN BEGSR BAR$TEXT 17  
  X * TEXTSMILYSAGN2 BEGSR BAR$TEXT 38  
  X * TEXTSMILYS2 BEGSR BAR$TEXT 66  
  X * TEXTSMILYS2A BEGSR BAR$TEXT 39  
  X * TEXTSMILYS3 BEGSR BAR$TEXT 395  
  X * TEXTSMILYS3A BEGSR BAR$TEXT 20  
  X * TEXTSMILYS4 BEGSR BAR$TEXT 49  
  X * TEXTSMILYS5 BEGSR BAR$TEXT 73  
  X * TEXTSMILYS5A BEGSR BAR$TEXT 60  
  X * TEXTSMILYS5B BEGSR BAR$TEXT 34  
  X * TEXTSMILYS6 BEGSR BAR$TEXT 15  
  X * TEXTLINK BEGSR BAR$TEXT 346  
  X * TEXTLINKENDE BEGSR BAR$TEXT 160  
  X * TEXTLINKBAR BEGSR BAR$TEXT 18  
  X * TEXTLINKTITEL BEGSR BAR$TEXT 79  
  X * TEXTBILD5 BEGSR BAR$TEXT 19  
  X * TEXTCODE BEGSR BAR$TEXT 39  
  X * TEXTBLASE BEGSR BAR$TEXT 22  
  X * TEXTCOLOR BEGSR BAR$TEXT 7  
  X * LABELCOLOR BEGSR BAR$TEXT 7  
  X * TAPCOLORSR BEGSR BAR$TEXT 37  
  X * BUFDEBUG BEGSR BAR$TEXT 8  
  X * BUFBGCOLOR BEGSR BAR$TEXT 8  
  X * BUFBGCOLORSR BEGSR BAR$TEXT 18  
  X * CODE BEGSR BAR$TEXT 13  
  X * WWWHREF BEGSR BAR$TEXT 20  
  X * WWWQUERYANKER BEGSR BAR$TEXT 48  
  X * WWWIN BEGSR BAR$TEXT 86  
  X * MYWWW BEGSR BAR$TEXT 77  
  X * MYBUFV2 BEGSR BAR$TEXT 15  
  X * MYBUFV2BR66 BEGSR BAR$TEXT 15  
  X * MYBUFV2FORM BEGSR BAR$TEXT 68  
  X * MYBUFV2FORMX BEGSR BAR$TEXT 77  
  X * MYTITELX BEGSR BAR$TEXT 15  
  X * MYTITELXBR66 BEGSR BAR$TEXT 15  
  X * MYTITELXFORM BEGSR BAR$TEXT 68  
  X * MYTITELXENV BEGSR BAR$TEXT 79  
  X * MYTITELXQUERY BEGSR BAR$TEXT 67  
  X * MYTITELXQUERY2 BEGSR BAR$TEXT 13  
  X * MYTITELXUTF8 BEGSR BAR$TEXT 38  
  X * MYTITELXJS BEGSR BAR$TEXT 31  
  X  
  X * BESUCHERNAMEX EXSR BAR$AGENT    
  X * NATYPNAV EXSR BAR$NAV    
  X * NUMSTR EXSR BAR$NUM    
  X * BLASE EXSR BAR$BLASE    
  X * IFS$EXISTPARM CALL BAR$EXIST    
  X  
C          
C *COPYRIGHT JÜRGEN REULE 2010-2024
C          
  X * ARTTEXTXML EXSR BAR$ART    
  X * ARTTEXTRSS EXSR BAR$ART    
  X * ARTTEXTATOM EXSR BAR$ART    
  X * ARTTEXTHTML EXSR BAR$ART    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTESMILYS EXSR BAR$LISTE    
  X * LISTESMILYS EXSR BAR$LISTE    
  X * LISTESMILYS EXSR BAR$LISTE    
  X * LISTESMILYS EXSR BAR$LISTE    
  X * LISTESMILYS EXSR BAR$LISTE    
  X * SENDFEEDINF EXSR BAR$SEND    
  X * ZEILEARTINF EXSR BAR$ZEILE    
  X * ZEILEAW2 EXSR BAR$ZEILE    
  X * ZEILEAWFRA2 EXSR BAR$ZEILE    
  X * ZEILEAWINF EXSR BAR$ZEILE    
  X * ZEILERUB2 EXSR BAR$ZEILE    
  X  
C     TEXTSMILYS BEGSR                
C     *BLANKS COMP MYSPERRE       — — 81  
C     *IN81 COMP *OFF       — — 81  
C       SETOFF         — — 82  
C       SETOFF         — — 83  
C       SETOFF         — — 84  
C       SETON         — — 85  
C *     --------------------------------------
C *     Smilys im Text suchen und ersetzen
C *     --------------------------------------
C       EXSR TEXTSMILYS2              
C       ENDSR                
C          
  X * SENDHTML EXSR BAR$SEND    
  X  
C     TEXTSMILYS85 BEGSR                
C     *BLANKS COMP MYSPERRE       — — 81  
C     *IN81 COMP *OFF       — — 81  
C       SETOFF         — — 82  
C       SETOFF         — — 83  
C       SETOFF         — — 84  
C       SETOFF         — — 85  
C *     --------------------------------------
C *     Smilys im Text suchen und ersetzen
C *     --------------------------------------
C       EXSR TEXTSMILYS2              
C       ENDSR                
C          
  X * HINWEIS1 EXSR BAR$ART    
  X * IDXMAIN EXSR BAR$ART    
  X * KALMAIN EXSR BAR$ART    
  X  
C     TEXTSMILYSB BEGSR                
C       SETON         — — 81  
C       SETOFF         — — 82  
C       SETOFF         — — 83  
C       SETOFF         — — 84  
C       SETON         — — 85  
C *     --------------------------------------
C *     Smilys im Text suchen und ersetzen
C *     --------------------------------------
C       EXSR TEXTSMILYS2              
C       ENDSR                
C          
  X * SENDFEEDINF EXSR BAR$SEND    
  X * SENDOSDXINF EXSR BAR$SEND    
  X * SENDHTML EXSR BAR$SEND    
  X  
C     TEXTSMILYSDESC BEGSR                
C       SETOFF         — — 81  
C       SETOFF         — — 82  
C       SETON         — — 83  
C       SETON         — — 84  
C       SETON         — — 85  
C *     --------------------------------------
C *     Smilys im Text suchen und ersetzen
C *     --------------------------------------
C       EXSR TEXTSMILYS2              
C       ENDSR                
C          
  X * KAMERAS EXSR BAR$SEND    
  X  
C     TEXTSMILYSKAM BEGSR                
C       SETOFF         — — 81  
C       SETON         — — 82  
C       SETOFF         — — 83  
C       SETON         — — 84  
C       SETON         — — 85  
C *     --------------------------------------
C *     Smilys im Text suchen und ersetzen
C *     --------------------------------------
C       EXSR TEXTSMILYS2              
C       ENDSR                
C          
  X * ENVVARS EXSR BAR$SEND    
  X  
C     TEXTSMILYSENV BEGSR                
C       SETOFF         — — 81  
C       SETON         — — 82  
C       SETOFF         — — 83  
C       SETON         — — 84  
C       SETON         — — 85  
C *     --------------------------------------
C *     Smilys im Text suchen und ersetzen
C *     --------------------------------------
C       EXSR TEXTSMILYS2              
C   N68   EXSR TEXTSMILYSENV2              
C       ENDSR                
C          
  X * TEXTSMILYSENV EXSR BAR$TEXT    
  X  
C     TEXTSMILYSENV2 BEGSR                
C *     --------------------------------------
C *     Zeichen _CBC_ in _​CBC_ ändern
C *     --------------------------------------
C     '_CBC_' SCAN BUFV POS     — 77 78  
C     *IN78 DOWEQ *ON              
C       EVAL BUFV = %REPLACE('_​CBC_':BUFV:POS:5)
C       ADD 1 POS            
C     '_CBC_' SCAN BUFV:POS POS     — 77 78  
C       ENDDO                
C *     --------------------------------------
C *     Zeichen _GCM_ in _​GCM_ ändern
C *     --------------------------------------
C     '_GCM_' SCAN BUFV POS     — 77 78  
C     *IN78 DOWEQ *ON              
C       EVAL BUFV = %REPLACE('_​GCM_':BUFV:POS:5)
C       ADD 1 POS            
C     '_GCM_' SCAN BUFV:POS POS     — 77 78  
C       ENDDO                
C *     --------------------------------------
C *     Zeichen _WITH_ in _WITH_​ ändern
C *     --------------------------------------
C     '_WITH_' SCAN BUFV POS     — 77 78  
C     *IN78 DOWEQ *ON              
C       EVAL BUFV = %REPLACE('_WITH_​':BUFV:POS:6)
C       ADD 1 POS            
C     '_WITH_' SCAN BUFV:POS POS     — 77 78  
C       ENDDO                
C *     --------------------------------------
C *     Zeichen & in &​ ändern
C *     --------------------------------------
C     '&' SCAN BUFV POS     — 77 78  
C     *IN78 DOWEQ *ON              
C       EVAL BUFV = %REPLACE('&​':BUFV:POS:5)
C       ADD 1 POS            
C     '&' SCAN BUFV:POS POS     — 77 78  
C       ENDDO                
C       ENDSR                
C          
  X * SENDHTML EXSR BAR$SEND    
  X  
C     TEXTSMILYSAG BEGSR                
C       SETON         — — 76  
C *     --------------------------------------
C *     Name des Besuchers
C *     --------------------------------------
C       EXSR TEXTSMILYSAGX              
C       ENDSR                
C          
  X * TEXTSMILYSAG EXSR BAR$TEXT    
  X * ZEILEBESUCHE2 EXSR BAR$ZEILE    
  X * ZEILEANFRAGE2 EXSR BAR$ZEILE    
  X  
C     TEXTSMILYSAGX BEGSR                
C *     --------------------------------------
C *     Name des Besuchers
C *     --------------------------------------
C       EXSR BESUCHERNAMEX              
C          
C *     --------------------------------------
C *     Name des Besuchers
C *     --------------------------------------
C     BESUCHERPOS SCAN BUFV       — 77 78  
C   N78 BESUCHERPOSX SCAN BUFV       — 77 78  
C     *IN78 IFEQ *OFF              
C     POS ANDGE 1              
C     LEN ANDGE 1              
C *     --------------------------------------
C *     Name des Besuchers
C *     --------------------------------------
C     LEN ADD POS POS2            
C       EVAL BUFV = %REPLACE(BESUCHERPOSX:BUFV:POS2:0)
C       EVAL BUFV = %REPLACE(BESUCHERPOS :BUFV:POS :0)
C          
C *     --------------------------------------
C *     Smilys im Text suchen und ersetzen
C *     --------------------------------------
C       EXSR TEXTSMILYSAGN              
C       EXSR TEXTSMILYSAGN2              
C          
C *     --------------------------------------
C *     Name des Besuchers
C *     --------------------------------------
C     BESUCHERPOS SCAN BUFV POS     — 77 78  
C   78   EVAL BUFV = %REPLACE(ADD:
C              BUFV:POS:BESUCHERPOSLEN)
C     BESUCHERPOSX SCAN BUFV POS     — 77 78  
C   78   EVAL BUFV = %REPLACE(ADDX:
C              BUFV:POS:BESUCHERPOSXLEN)
C       ELSE                
C *     --------------------------------------
C *     Smilys im Text suchen und ersetzen
C *     --------------------------------------
C       EXSR TEXTSMILYSAGN              
C       EXSR TEXTSMILYSAGN2              
C          
C *     --------------------------------------
C *     Name des Besuchers
C *     --------------------------------------
C       EVAL BUFV =
C       BUFV + %TRIMR ( FONT)+
C              ' | '+ ADD +
C                '*'+ ADDX+
C              %TRIMR ( FONTX)
C       ENDIF                
C       ENDSR                
C          
  X * TEXTSMILYSAGX EXSR BAR$TEXT    
  X * TEXTSMILYSAGX EXSR BAR$TEXT    
  X  
C     TEXTSMILYSAGN BEGSR                
C     *IN76 COMP *ON       — — 81  
C       SETON         — — 82  
C       SETOFF         — — 83  
C       SETON         — — 84  
C       SETON         — — 85  
C *     --------------------------------------
C *     Name des Besuchers
C *     --------------------------------------
C       EVAL BUFV =
C       BUFV + ' '
C          
C *     --------------------------------------
C *     Smilys im Text suchen und ersetzen
C *     --------------------------------------
C       EXSR TEXTSMILYS2              
C       ENDSR                
C          
  X * TEXTSMILYSAGX EXSR BAR$TEXT    
  X * TEXTSMILYSAGX EXSR BAR$TEXT    
  X  
C     TEXTSMILYSAGN2 BEGSR                
C *     --------------------------------------
C *     Name des Besuchers
C *     --------------------------------------
C     *BLANKS COMP ROBOT       — — 78  
C   78   MOVEL(P) FAAGENT COLOR7            
C   N78   MOVEL(P) FAROBOT COLOR7            
C       EXSR TEXTCOLOR              
C       MOVEL(P) TYPBESUCHER NATYP            
C       EXSR NATYPNAV              
C     *ZERO ADD AGAG NUM            
C       EXSR NUMSTR              
C     'MauiBot' SCAN AGENT       — 77 78  
C   N78 'MJ12bot' SCAN AGENT       — 77 78  
C   N78 'PetalBot' SCAN AGENT       — 77 78  
C   N78 'SEOkicks' SCAN AGENT       — 77 78  
C   N78 'Seekport' SCAN AGENT       — 77 78  
C   N78 'netEstate' SCAN AGENT       — 77 78  
C   N78 'AhrefsBot' SCAN AGENT       — 77 78  
C   N78 'adscanner' SCAN AGENT       — 77 78  
C   N78 'Barkrowler' SCAN AGENT       — 77 78  
C   N78 'SemrushBot' SCAN AGENT       — 77 78  
C   N78 'serpstatbot' SCAN AGENT       — 77 78  
C   N78 'Linguee Bot' SCAN AGENT       — 77 78  
C   N78 'AspiegelBot' SCAN AGENT       — 77 78  
C   N78 'seoscanners' SCAN AGENT       — 77 78  
C   N78   EVAL BUF2 =      'href="'
C   78   EVAL BUF2 =      'ping="'
C       EVAL ADD  = '<a '+BUF2 +%TRIMR(PFADREL) +
C              %TRIMR(NANAV)   +'/'+
C              %TRIMR(STR)     +
C              %TRIMR(HTML)    +
C              %TRIMR(QUERY)   +'"'+
C              %TRIMR(TAPCOLOR)+'>'+
C                  '<font'+%TRIMR(BARCOLOR)+'>'
C   67   EVAL ADD  =             %TRIMR(TAPSTYLE)+ADD
C       EVAL ADDX =    '</font></a>'
C       ENDSR                
C          
  X * TEXTSMILYS EXSR BAR$TEXT    
  X * TEXTSMILYS85 EXSR BAR$TEXT    
  X * TEXTSMILYSB EXSR BAR$TEXT    
  X * TEXTSMILYSDESC EXSR BAR$TEXT    
  X * TEXTSMILYSKAM EXSR BAR$TEXT    
  X * TEXTSMILYSENV EXSR BAR$TEXT    
  X * TEXTSMILYSAGN EXSR BAR$TEXT    
  X  
C     TEXTSMILYS2 BEGSR                
C       SETON         — — 80  
C       SETOFF         87 88 89  
C *     --------------------------------------
C *     Sprechblase / Code / Smilys
C *     --------------------------------------
C       EVAL BARCOLORSAVE = BARCOLOR
C       EVAL TAPCOLORSAVE = TAPCOLOR
C       EVAL TAPSTYLESAVE = TAPSTYLE
C          
C *     --------------------------------------
C *     Keine Smilys anzeigen?
C *     --------------------------------------
C     *BLANKS IFEQ BESMILYS              
C     NOMIT ANDNE BEMIT              
C     WWTYP ANDNE TYPSMILYS              
C       SETON         — — 84  
C       ENDIF                
C *     --------------------------------------
C *     Keine Smilys auf Text-Browser
C *     --------------------------------------
C   68   SETON         — — 84  
C          
C *     --------------------------------------
C *     Text in Sprechblase darstellen?
C *     --------------------------------------
C       EXSR TEXTBLASE              
C          
C *     --------------------------------------
C *     Text als Code darstellen?
C *     --------------------------------------
C       EXSR TEXTCODE              
C          
C *     --------------------------------------
C *     Smilys im Text suchen und ersetzen
C *     --------------------------------------
C   N89   EXSR TEXTSMILYS3              
C          
C *     --------------------------------------
C *     Text formatieren
C *     --------------------------------------
C       EXSR TEXTSMILYS2A              
C          
C *     --------------------------------------
C *     Text als Code darstellen
C *     --------------------------------------
C   89   EXSR CODE              
C          
C *     --------------------------------------
C *     Text in Blase darstellen
C *     --------------------------------------
C   88   EXSR BLASE              
C          
C *     --------------------------------------
C *     Überlangen Text nicht ausgeben
C *     --------------------------------------
C     2 ADD BUFVLEN LEN            
C     LEN IFGE BUFVTEXTLEN              
C       EVAL BUFV = '...'
C       ENDIF                
C          
C       EVAL BARCOLOR = BARCOLORSAVE
C       EVAL TAPCOLOR = TAPCOLORSAVE
C       EVAL TAPSTYLE = TAPSTYLESAVE
C   84   SETOFF         — — 88  
C       ENDSR                
C          
  X * TEXTSMILYS2 EXSR BAR$TEXT    
  X  
C     TEXTSMILYS2A BEGSR                
C *     --------------------------------------
C *     Leeren Text durch Kommentar ersetzen
C *     --------------------------------------
C     *BLANKS IFEQ BUFV              
C   88   EVAL BUFV = '<!---->'
C       ENDIF                
C *     --------------------------------------
C *     Leeren Text durch Leerzeichen ersetzen
C *     --------------------------------------
C     *BLANKS IFEQ BUFV              
C   N83   EVAL BUFV = NBSP
C       ENDIF                
C *     --------------------------------------
C *     Text fett darstellen
C *     --------------------------------------
C   81   EVAL BUFV =  '<b>' +
C       BUFV + '</b>'
C          
C *     --------------------------------------
C *     Firefox Tap Highlight Color
C *     --------------------------------------
C     *IN67 IFEQ *ON              
C   N83   EVAL BUFV = %TRIM(TAPSTYLE) +
C       BUFV
C       ENDIF                
C *     --------------------------------------
C *     Text in Farbe darstellen
C *     --------------------------------------
C   N83   EVAL BUFV =  '<font'+%TRIMR(BARCOLOR)+'>'+
C       BUFV + '</font>'
C          
C *     --------------------------------------
C *     Text in eigener Schrift darstellen
C *     --------------------------------------
C   N83   EVAL BUFV = %TRIM(FONT) +
C       BUFV + %TRIM(FONTX)
C          
C       ENDSR                
C          
  X * TEXTSMILYS2 EXSR BAR$TEXT    
  X  
C     TEXTSMILYS3 BEGSR                
C *     --------------------------------------
C *     Smilys und Verweise ersetzen
C *     --------------------------------------
C       CLEAR   COUNT            
C          
C *     --------------------------------------
C *     Verweis löschen
C *     --------------------------------------
C       CLEAR   TEXT1            
C       CLEAR   TEXT2            
C          
C *     --------------------------------------
C *     Smilys und Verweise ersetzen
C *     --------------------------------------
C     *ZERO ADD 1 SMILYAB            
C     *ZERO ADD 1 POS            
C          
C *     --------------------------------------
C *     Smilys und Verweise ersetzen
C *     --------------------------------------
C     POS DOWLE BUFVLEN              
C       SUBST(P) BUFV:POS CHAR            
C       CLEAR   POSADD            
C          
C       SELECT    
C *     --------------------------------------
C *     Leerzeichen nach Verweis überlesen
C *     --------------------------------------
C     ' ' WHENEQ CHAR              
C     *BLANKS ANDNE TEXT1              
C     *BLANKS ANDNE TEXT2              
C       EVAL BUFV       = %REPLACE('':BUFV:POS:1)
C       SUB 1 SMILYAB            
C       SUB 1 POS            
C       SETON         — — 87  
C          
C *     --------------------------------------
C *     Zeichen ( nach Verweis ersetzen
C *     --------------------------------------
C     '(' WHENEQ CHAR              
C     *BLANKS ANDNE TEXT1              
C     *IN82 ANDEQ *OFF              
C   83   CLEAR   TEXT1            
C       EVAL BUFV       = %REPLACE(TEXT1:BUFV:POS:1)
C       ADD TEXT1LEN SMILYAB            
C       ADD TEXT1LEN POS            
C       SUB 1 POS            
C       SUB 1 SMILYAB            
C       CLEAR   TEXT1            
C          
C *     --------------------------------------
C *     Andere Zeichen prüfen
C *     --------------------------------------
C       OTHER                
C          
C *     --------------------------------------
C *     Verweis komlett einsetzen
C *     --------------------------------------
C     *BLANKS IFNE TEXT1              
C     *BLANKS ANDNE TEXT2              
C   83   CLEAR   TEXT1            
C   83   CLEAR   TEXT2            
C       EVAL BUF2       =  TEXT1 + %TRIM(MYLINK) +
C         TEXT2
C   87   EVAL BUF2       =        BUF2 + ' '
C       EVAL BUFV       = %SUBST(BUFV:1:POS-1)+BUF2+
C                    %SUBST(BUFV:POS)
C       ADD BUF2LEN SMILYAB            
C       ADD BUF2LEN POS            
C       CLEAR   TEXT1            
C       CLEAR   TEXT2            
C       CLEAR   COUNT            
C       SETOFF         — — 87  
C       ENDIF                
C          
C       SELECT    
C *     --------------------------------------
C *     Zeichen ) nach Verweis ersetzen
C *     --------------------------------------
C     ')' WHENEQ CHAR              
C     *BLANKS ANDNE TEXT2              
C     *IN82 ANDEQ *OFF              
C   83   CLEAR   TEXT2            
C       EVAL BUFV       = %REPLACE(TEXT2:BUFV:POS:1)
C       ADD TEXT2LEN SMILYAB            
C       ADD TEXT2LEN POS            
C       SUB 1 POS            
C       SUB 1 SMILYAB            
C       CLEAR   TEXT1            
C       CLEAR   TEXT2            
C          
C *     --------------------------------------
C *     Bindestrich
C *     --------------------------------------
C     '-' WHENEQ CHAR              
C       CLEAR   COUNT            
C          
C *     --------------------------------------
C *     Steuerzeichen oder Leerzeichen
C *     --------------------------------------
C     ' ' WHENGE CHAR              
C       CLEAR   COUNT            
C          
C *     --------------------------------------
C *     Andere Zeichen prüfen
C *     --------------------------------------
C       OTHER                
C          
C       SELECT    
C *     --------------------------------------
C *     Neue Zeile auf Smartphone
C *     --------------------------------------
C     BR66 WHENEQ CHAR              
C     *IN82 IFEQ *OFF              
C     *IN66 COMP *ON       — — 78  
C   78 *IN85 COMP *OFF       — — 78  
C   78 PFADXX COMP HTML       — — 78  
C   78   CLEAR   COUNT            
C       ENDIF                
C *     --------------------------------------
C *     HTML-Zeichen
C *     --------------------------------------
C     '&' WHENEQ CHAR              
C       ADD 1 COUNT            
C       SUBST(P) BUFV:POS CHAR2            
C     '&#' IFEQ CHAR2              
C       CLEAR   COUNT            
C       ENDIF                
C *     --------------------------------------
C *     Normales Zeichen
C *     --------------------------------------
C       OTHER                
C       ADD 1 COUNT            
C       ENDSL                
C *     --------------------------------------
C *     Weicher Umbruch für lange Wörter
C *     --------------------------------------
C       EXSR TEXTSMILYS6              
C          
C       SELECT    
C *     --------------------------------------
C *     Zeichen & durch &amp; ersetzen
C *     --------------------------------------
C     '&' WHENEQ CHAR              
C       SUBST(P) BUFV:POS CHAR2            
C       SUBST(P) BUFV:POS CHAR5            
C     '&#' IFNE CHAR2              
C     '@' OREQ CHAR5              
C     *IN36 ANDEQ *ON              
C       EVAL BUFV = %REPLACE('&amp;':BUFV:POS:1)
C       ADD 4 POSADD            
C       ENDIF                
C *     --------------------------------------
C *     Zeichen @ durch @ ersetzen
C *     --------------------------------------
C     '@' WHENEQ CHAR              
C       EVAL BUFV = %REPLACE('@':BUFV:POS:1)
C       ADD 4 POSADD            
C          
C *     --------------------------------------
C *     Zeichen § durch &sect; ersetzen
C *     --------------------------------------
C     '§' WHENEQ CHAR              
C       EVAL BUFV = %REPLACE('&sect;':BUFV:POS:1)
C       ADD 5 POSADD            
C          
C *     --------------------------------------
C *     Zeichen " durch &quot; ersetzen
C *     --------------------------------------
C     '"' WHENEQ CHAR              
C       EVAL BUFV = %REPLACE('&quot;':BUFV:POS:1)
C       ADD 5 POSADD            
C          
C *     --------------------------------------
C *     Zeichen < durch &lt; ersetzen
C *     --------------------------------------
C     '<' WHENEQ CHAR              
C       EVAL BUFV = %REPLACE('&lt;':BUFV:POS:1)
C       ADD 3 POSADD            
C          
C *     --------------------------------------
C *     Zeichen > durch &gt; ersetzen
C *     --------------------------------------
C     '>' WHENEQ CHAR              
C       EVAL BUFV = %REPLACE('&gt;':BUFV:POS:1)
C       ADD 3 POSADD            
C          
C *     --------------------------------------
C *     Zeichen . durch ​ ergänzen
C *     --------------------------------------
C     '.' WHENEQ CHAR              
C     *IN81 ANDEQ *OFF              
C     *IN82 ANDEQ *ON              
C     *IN84 ANDEQ *ON              
C     *IN68 IFEQ *OFF              
C       EVAL BUFV = %REPLACE('.​':BUFV:POS:1)
C       ADD 7 POSADD            
C       ENDIF                
C *     --------------------------------------
C *     Zeichen : durch ​ ergänzen
C *     --------------------------------------
C     ':' WHENEQ CHAR              
C     *IN81 ANDEQ *OFF              
C     *IN82 ANDEQ *ON              
C     *IN84 ANDEQ *ON              
C     *IN68 IFEQ *OFF              
C       EVAL BUFV = %REPLACE(':​':BUFV:POS:1)
C       ADD 7 POSADD            
C       ENDIF                
C *     --------------------------------------
C *     Zeichen , durch ​ ergänzen
C *     --------------------------------------
C     ',' WHENEQ CHAR              
C     *IN81 ANDEQ *OFF              
C     *IN82 ANDEQ *ON              
C     *IN84 ANDEQ *ON              
C     *IN68 IFEQ *OFF              
C       EVAL BUFV = %REPLACE(',​':BUFV:POS:1)
C       ADD 7 POSADD            
C       ENDIF                
C *     --------------------------------------
C *     Zeichen + durch ​ ergänzen
C *     --------------------------------------
C     '+' WHENEQ CHAR              
C     *IN81 ANDEQ *OFF              
C     *IN82 ANDEQ *ON              
C     *IN84 ANDEQ *ON              
C     *IN68 IFEQ *OFF              
C       EVAL BUFV = %REPLACE('+​':BUFV:POS:1)
C       ADD 7 POSADD            
C       ENDIF                
C *     --------------------------------------
C *     Zeichen % durch ​ ergänzen
C *     --------------------------------------
C     '%' WHENEQ CHAR              
C     *IN81 ANDEQ *OFF              
C     *IN82 ANDEQ *ON              
C     *IN84 ANDEQ *ON              
C     *IN68 IFEQ *OFF              
C       EVAL BUFV = %REPLACE('%​':BUFV:POS:1)
C       ADD 7 POSADD            
C       ENDIF                
C *     --------------------------------------
C *     Zeichen / durch ​ ergänzen
C *     --------------------------------------
C     '/' WHENEQ CHAR              
C     *IN81 ANDEQ *OFF              
C     *IN82 ANDEQ *ON              
C     *IN84 ANDEQ *ON              
C     *IN68 IFEQ *OFF              
C       EVAL BUFV = %REPLACE('/​':BUFV:POS:1)
C       ADD 7 POSADD            
C       ENDIF                
C *     --------------------------------------
C *     Neue Zeile auf Smartphone ersetzen
C *     --------------------------------------
C     BR66 WHENEQ CHAR              
C     *IN82 IFEQ *OFF              
C     *IN66 COMP *ON       — — 78  
C   78 *IN85 COMP *OFF       — — 78  
C   78 PFADXX COMP HTML       — — 78  
C   78   EVAL BUFV = %REPLACE(CRLF:BUFV:POS:1)
C   N78   EVAL BUFV = %REPLACE(''  :BUFV:POS:1)
C   78   ADD CRLFLEN POSADD            
C       SUB 1 POSADD            
C       ENDIF                
C *     --------------------------------------
C *     Innerhalb Verweis nicht weiter prüfen
C *     --------------------------------------
C     *BLANKS WHENNE TEXT1              
C     *BLANKS ORNE TEXT2              
C          
C *     --------------------------------------
C *     Verweise und Smilys auflösen
C *     --------------------------------------
C       OTHER                
C       SUBST(P) BUFV:POS CHARS            
C     UPPER:LOWER XLATE(P) CHARS CHARS            
C          
C       SELECT    
C *     --------------------------------------
C *     Verweis ersetzen
C *     --------------------------------------
C     'ftp.' WHENEQ CHARS4              
C     'web.' OREQ CHARS4              
C     'www.' OREQ CHARS4              
C     'tel:' OREQ CHARS4              
C **   'sms:' OREQ CHARS4              
C     'mailto:' OREQ CHARS7              
C     'bot§' OREQ CHARS4              
C     'bot@' OREQ CHARS4              
C     'test§' OREQ CHARS5              
C     'test@' OREQ CHARS5              
C     'info§' OREQ CHARS5              
C     'info@' OREQ CHARS5              
C     'help§' OREQ CHARS5              
C     'help@' OREQ CHARS5              
C     'robot§' OREQ CHARS6              
C     'robot@' OREQ CHARS6              
C     'abuse§' OREQ CHARS6              
C     'abuse@' OREQ CHARS6              
C     'spider§' OREQ CHARS7              
C     'spider@' OREQ CHARS7              
C     'crawler§' OREQ CHARS8              
C     'crawler@' OREQ CHARS8              
C     'support§' OREQ CHARS8              
C     'support@' OREQ CHARS8              
C     'techinfo§' OREQ CHARS9              
C     'techinfo@' OREQ CHARS9              
C     'scaninfo§' OREQ CHARS9              
C     'scaninfo@' OREQ CHARS9              
C     'bar://' OREQ CHARS6              
C     'ftp://' OREQ CHARS6              
C     'ftps://' OREQ CHARS7              
C     'sftp://' OREQ CHARS7              
C     'rtsp://' OREQ CHARS7              
C     'rtsps://' OREQ CHARS8              
C     'srtsp://' OREQ CHARS8              
C     'http://' OREQ CHARS7              
C     'https://' OREQ CHARS8              
C     'shttp://' OREQ CHARS8              
C     'ldap://' OREQ CHARS7              
C     'ldaps://' OREQ CHARS8              
C     'sldap://' OREQ CHARS8              
C     'stream://' OREQ CHARS9              
C     'display://' OREQ CHARS10              
C     'control://' OREQ CHARS10              
C     'data:image/' OREQ CHARS11              
C       EXSR TEXTLINK              
C          
C *     --------------------------------------
C *     Stelle auf Smily prüfen
C *     --------------------------------------
C     POS WHENGE SMILYAB              
C       EXSR TEXTSMILYS5              
C       ENDSL                
C       ENDSL                
C       ENDSL                
C       ENDSL                
C *     --------------------------------------
C *     Nächste Stelle prüfen
C *     --------------------------------------
C       ADD POSADD SMILYAB            
C       ADD POSADD POS            
C       ADD 1 POS            
C       ENDDO                
C *     --------------------------------------
C *     Verweis komplett ausgeben
C *     --------------------------------------
C     *BLANKS IFNE TEXT1              
C     *BLANKS ANDNE TEXT2              
C   83   CLEAR   TEXT1            
C   83   CLEAR   TEXT2            
C       EVAL BUFV       =
C       BUFV       +  TEXT1 + %TRIM(MYLINK) +
C         TEXT2
C       CLEAR   TEXT1            
C       CLEAR   TEXT2            
C       ENDIF                
C       EVAL BUFV       =
C       BUFV       +  TEXT2
C          
C *     --------------------------------------
C *     CRLFCRLF im Text suchen und ersetzen
C *     --------------------------------------
C     CRLF2 SCAN BUFV POS     — 77 78  
C     *IN78 DOWEQ *ON              
C   83   EVAL BUFV = %REPLACE(' / ':BUFV:POS:CRLF2LEN)
C   N83   EVAL BUFV = %REPLACE(BRSP2:BUFV:POS:CRLF2LEN)
C     CRLF2 SCAN BUFV:POS POS     — 77 78  
C       ENDDO                
C *     --------------------------------------
C *     CRLF im Text suchen und ersetzen
C *     --------------------------------------
C     SPCRLF SCAN BUFV POS     — 77 78  
C     *IN78 DOWEQ *ON              
C   83   EVAL BUFV = %REPLACE(' / ':BUFV:POS:SPCRLFLEN)
C   N83   EVAL BUFV = %REPLACE(BRSP :BUFV:POS:SPCRLFLEN)
C     SPCRLF SCAN BUFV:POS POS     — 77 78  
C       ENDDO                
C *     --------------------------------------
C *     CRLF im Text suchen und ersetzen
C *     --------------------------------------
C     CRLF SCAN BUFV POS     — 77 78  
C     *IN78 DOWEQ *ON              
C   83   EVAL BUFV = %REPLACE(' / ':BUFV:POS:CRLFLEN)
C   N83   EVAL BUFV = %REPLACE(BRSP :BUFV:POS:CRLFLEN)
C     CRLF SCAN BUFV:POS POS     — 77 78  
C       ENDDO                
C *     --------------------------------------
C *     Zeichen ... in ... ändern
C *     --------------------------------------
C   N68   EXSR TEXTSMILYS3A              
C       ENDSR                
C          
  X * TEXTSMILYS3 EXSR BAR$TEXT    
  X  
C     TEXTSMILYS3A BEGSR                
C *     --------------------------------------
C *     Zeichen /​ in ​/ ändern
C *     --------------------------------------
C     '/​' SCAN BUFV POS     — 77 78  
C     *IN78 DOWEQ *ON              
C       EVAL BUFV = %REPLACE('​/':BUFV:POS:8)
C       ADD 1 POS            
C     '/​' SCAN BUFV:POS POS     — 77 78  
C       ENDDO                
C *     --------------------------------------
C *     Zeichen /​/ in // ändern
C *     --------------------------------------
C     '/​/' SCAN BUFV POS     — 77 78  
C     *IN78 DOWEQ *ON              
C       EVAL BUFV = %REPLACE('//':BUFV:POS:9)
C       ADD 1 POS            
C     '/​/' SCAN BUFV:POS POS     — 77 78  
C       ENDDO                
C       ENDSR                
C          
  X * TEXTSMILYS5 EXSR BAR$TEXT    
  X  
C     TEXTSMILYS4 BEGSR                
C *     --------------------------------------
C *     Smilys einlesen
C *     --------------------------------------
C     *ZERO IFEQ SMILYANZ              
C       MOVE SMILYDS SMILYSAVE            
C          
C *     --------------------------------------
C *     Smilys einlesen
C *     --------------------------------------
C       OPEN SMILYL1       — 77 —  
C     MAMAN SETGT SMILYL1       — 77 —  
C   N77 MAMAN READPE SMILYL1       — 77 77  
C          
C     *IN77 DOWEQ *OFF              
C     SMILYANZ ANDLT MAXSMILYS              
C          
C       ADD 1 SMILYANZ            
C *     --------------------------------------
C *     Smily einlesen
C *     --------------------------------------
C     SMILYANZ OCCUR SYDS              
C       MOVEL(P) SMTITEL SYTITEL            
C       MOVEL(P) SMNAV SYNAV            
C       MOVEL(P) SMFILEX SYFILEX            
C     ' ' CHECKR SMTITEL SYLEN            
C       CLEAR   SYEXIST            
C          
C *     --------------------------------------
C *     Smily einlesen
C *     --------------------------------------
C       MOVEL(P) SMTITEL SMCHAR            
C     SMNUM ADD 1 SMILY$IDX            
C     SMILY$IDX OCCUR SMILY$              
C     *ZERO COMP SMILY$1       — — 77  
C   77 *ZERO ADD SMILYANZ SMILY$1            
C     *ZERO ADD SMILYANZ SMILY$N            
C          
C *     --------------------------------------
C *     Nächstes Smily einlesen
C *     --------------------------------------
C     MAMAN READPE SMILYL1       — 77 77  
C       ENDDO                
C *     --------------------------------------
C *     Anzahl der Smilys sichern
C *     --------------------------------------
C       MOVE SMILYSAVE SMILYDS            
C       ENDIF                
C       ENDSR                
C          
  X * TEXTSMILYS3 EXSR BAR$TEXT    
  X  
C     TEXTSMILYS5 BEGSR                
C *     --------------------------------------
C *     Stelle auf Smily prüfen
C *     --------------------------------------
C          
C *     --------------------------------------
C *     Smilys einlesen
C *     --------------------------------------
C       EXSR TEXTSMILYS4              
C          
C *     --------------------------------------
C *     Stelle auf Smily prüfen
C *     --------------------------------------
C       MOVEL(P) CHAR SMCHAR            
C     SMNUM ADD 1 SMILY$IDX            
C     SMILY$IDX OCCUR SMILY$              
C     *ZERO ADD SMILY$1 IDX            
C          
C *     --------------------------------------
C *     Falls passende Smilys vorhanden
C *     --------------------------------------
C     IDX IFGT *ZERO              
C          
C *     --------------------------------------
C *     Erste 2 Zeichen ermitteln
C *     --------------------------------------
C       SUBST(P) BUFV:POS CHAR2            
C          
C *     --------------------------------------
C *     Maximale Länge ermitteln
C *     --------------------------------------
C     BUFVLEN SUB POS LEN2            
C       ADD 1 LEN2            
C          
C *     --------------------------------------
C *     Stelle auf passende Smilys prüfen
C *     --------------------------------------
C     IDX DOWLE SMILY$N              
C     IDX OCCUR SYDS              
C          
C *     --------------------------------------
C *     Falls erste 2 Zeichen übereinstimmen
C *     --------------------------------------
C     CHAR2 IFEQ SYTITEL2              
C          
C *     --------------------------------------
C *     Länge des Smilys ermitteln
C *     --------------------------------------
C     *ZERO ADD SYLEN LEN            
C          
C *     --------------------------------------
C *     Stelle auf Smily prüfen
C *     --------------------------------------
C     LEN IFGE 1              
C     LEN ANDLE LEN2              
C     LEN SUBST(P) BUFV:POS SMILYBUF            
C          
C *     --------------------------------------
C *     Smily ersetzen
C *     --------------------------------------
C     SMILYBUF IFEQ SYTITEL              
C       EXSR TEXTSMILYS5A              
C     *ZERO ADD SMILY$N IDX            
C       ENDIF                
C       ENDIF                
C       ENDIF                
C *     --------------------------------------
C *     Nächstes Smily prüfen
C *     --------------------------------------
C       ADD 1 IDX            
C       ENDDO                
C       ENDIF                
C       ENDSR                
C          
  X * TEXTSMILYS5 EXSR BAR$TEXT    
  X  
C     TEXTSMILYS5A BEGSR                
C *     --------------------------------------
C *     Smily ersetzen
C *     --------------------------------------
C       CLEAR   SRC            
C          
C *     --------------------------------------
C *     Prüfen ob Smilybild vorhanden ist
C *     --------------------------------------
C     *IN83 IFEQ *OFF              
C     *IN84 ANDEQ *OFF              
C     *BLANKS ANDNE SYFILEX              
C       EXSR TEXTSMILYS5B              
C       ENDIF                
C *     --------------------------------------
C *     Smily ersetzen
C *     --------------------------------------
C     *BLANKS IFNE SRC              
C       MOVEL(P) SYTITEL MYTITEL            
C       EXSR MYTITELX              
C       EXSR TEXTBILD5              
C     *IN77 IFEQ *ON              
C     *IN78 ANDNE *ON              
C     POS IFGT CRLFLEN              
C       SUB CRLFLEN POS            
C       EVAL BUFV = %REPLACE(BRSPNONE:BUFV:POS:CRLFLEN)
C       ADD BRSPNONELEN POS            
C       ENDIF                
C   79   MOVEL(P) DISPLAYBLOCK TEXTBILDADD            
C   N79   MOVEL(P) MAXWIDTH100PR5 TEXTBILDADD            
C       ELSE                
C   79   CLEAR   TEXTBILDADD            
C   N79   MOVEL(P) MAXWIDTH100PR TEXTBILDADD            
C       ENDIF                
C       EVAL SMILYTEXT  =  NL +
C            '   <img border=0 +
C          title="" +
C            alt="'+%TRIM(MYTITEL)+'" +
C            src="'+%TRIM(SRC)+'"'+
C            %TRIMR(TEXTBILDADD)+'> '
C          
C *     --------------------------------------
C *     Smily ersetzen
C *     --------------------------------------
C       EVAL BUFV = %REPLACE(SMILYTEXT:BUFV:POS:LEN)
C          
C *     --------------------------------------
C *     Nach Smily positionieren
C *     --------------------------------------
C       ADD SMILYTEXTLEN POSADD            
C       SUB 1 POSADD            
C       CLEAR   COUNT            
C          
C *     --------------------------------------
C *     Smily überlesen
C *     --------------------------------------
C       ELSE                
C     POS ADD LEN SMILYAB            
C       ENDIF                
C       ENDSR                
C          
  X * TEXTSMILYS5A EXSR BAR$TEXT    
  X  
C     TEXTSMILYS5B BEGSR                
C *     --------------------------------------
C *     Smily suchen
C *     --------------------------------------
C       EVAL SRC       =  %TRIM(SMILYNAV)+'/'+
C                    %TRIM(SYNAV)   +
C                    %TRIM(SYFILEX)
C          
C *     --------------------------------------
C *     Prüfen ob Anlage vorhanden ist
C *     --------------------------------------
C       EVAL FILEIFS   =  %TRIM(MAPFAD)+'/'+
C                    %TRIM(SRC)
C       SELECT    
C     '-' WHENEQ SYEXIST              
C       SETON         — 77 —  
C     '+' WHENEQ SYEXIST              
C       SETOFF         — 77 —  
C       OTHER                
C       CALL 'IFS$EXIST' IFS$EXISTPARM     — 77 —  
C   77   MOVEL(P) '-' SYEXIST            
C   N77   MOVEL(P) '+' SYEXIST            
C       ENDSL                
C *     --------------------------------------
C *     Adresse zum Einbinden ermitteln
C *     --------------------------------------
C     *IN77 IFEQ *OFF              
C     PFADXX COMP HTML       — — 78  
C   N78   EVAL SRC = %TRIM(HTTP)   +%TRIM(SRC)
C   78   EVAL SRC = %TRIM(PFADREL)+%TRIM(SRC)
C       ELSE                
C       EVAL SRC = ''
C       ENDIF                
C       ENDSR                
C          
  X * TEXTSMILYS3 EXSR BAR$TEXT    
  X  
C     TEXTSMILYS6 BEGSR                
C *     --------------------------------------
C *     Weicher Umbruch für lange Wörter
C *     --------------------------------------
C     *IN82 IFEQ *OFF              
C     *IN83 ANDEQ *OFF              
C     POS ANDLE BUFVLEN              
C   66 COUNT COMP 16       77 — —  
C   N66 COUNT COMP 61       77 — —  
C   77   EVAL BUFV = %REPLACE('- ':BUFV:POS:0)
C   77   ADD 2 SMILYAB            
C   77   ADD 2 POS            
C   77 *ZERO ADD 1 COUNT            
C       ENDIF                
C       ENDSR                
C          
  X * TEXTSMILYS3 EXSR BAR$TEXT    
  X  
C     TEXTLINK BEGSR                
C *     --------------------------------------
C *     Leerzeichen oder Zeilenumbruch suchen
C *     --------------------------------------
C       EXSR TEXTLINKENDE              
C          
C *     --------------------------------------
C *     Verweis ermitteln
C *     --------------------------------------
C     POS2 SUB POS LEN            
C     LEN SUBST(P) BUFV:POS WWW            
C          
C       SELECT    
C *     --------------------------------------
C *     Verweis ergänzen
C *     --------------------------------------
C     'ftp.' WHENEQ CHARS4              
C     'web.' OREQ CHARS4              
C     'www.' OREQ CHARS4              
C       MOVEL(P) 'http://' MYTITEL            
C          
C     'bot§' WHENEQ CHARS4              
C     'bot@' OREQ CHARS4              
C     'test§' OREQ CHARS5              
C     'test@' OREQ CHARS5              
C     'info§' OREQ CHARS5              
C     'info@' OREQ CHARS5              
C     'help§' OREQ CHARS5              
C     'help@' OREQ CHARS5              
C     'robot§' OREQ CHARS6              
C     'robot@' OREQ CHARS6              
C     'abuse§' OREQ CHARS6              
C     'abuse@' OREQ CHARS6              
C     'spider§' OREQ CHARS7              
C     'spider@' OREQ CHARS7              
C     'crawler§' OREQ CHARS8              
C     'crawler@' OREQ CHARS8              
C     'support§' OREQ CHARS8              
C     'support@' OREQ CHARS8              
C     'techinfo§' OREQ CHARS9              
C     'techinfo@' OREQ CHARS9              
C     'scaninfo§' OREQ CHARS9              
C     'scaninfo@' OREQ CHARS9              
C       MOVEL(P) 'mailto:' MYTITEL            
C       OTHER                
C       CLEAR   MYTITEL            
C       ENDSL                
C *     --------------------------------------
C *     Verweis ergänzen
C *     --------------------------------------
C     MYTITEL CAT WWW :0 WWW            
C     MYTITEL CAT CHARS :0 CHARS            
C     ' ' CHECKR MYTITEL LEN3            
C          
C *     --------------------------------------
C *     Query und Anker sichern und entfernen
C *     --------------------------------------
C       EXSR WWWQUERYANKER              
C          
C *     --------------------------------------
C *     Verweis nicht als Bild einbinden?
C *     --------------------------------------
C     WIKIFILE SCAN WWW       — 77 79  
C          
C       SETOFF         — — 21  
C *     --------------------------------------
C *     Internen Verweis anpassen
C *     --------------------------------------
C       SELECT    
C     'bar://' WHENEQ CHARS6              
C       SUBST(P) WWW:8 WWW            
C       SETON         — — 21  
C     'http://' WHENEQ CHARS7              
C       MOVEL(P) CHARS7 HTTP2            
C       EXSR TEXTLINKBAR              
C          
C     'https://' WHENEQ CHARS8              
C     'shttp://' OREQ CHARS8              
C       MOVEL(P) CHARS8 HTTP2            
C       EXSR TEXTLINKBAR              
C       ENDSL                
C *     --------------------------------------
C *     Parameter aufnehmen
C *     --------------------------------------
C   N21   CAT WWWQUERY:0 WWW            
C          
C *     --------------------------------------
C *     Text für Bild oder Verweis
C *     --------------------------------------
C       MOVEL(P) WWW SWTITEL            
C          
C     *IN21 IFEQ *ON              
C *     --------------------------------------
C *     Parameter aufnehmen
C *     --------------------------------------
C   82   CAT WWWQUERY:0 SWTITEL            
C          
C *     --------------------------------------
C *     Internen Verweis anpassen
C *     --------------------------------------
C       MOVEL(P) SCHEME MYTITEL            
C       CAT '://' :0 MYTITEL            
C     *ZERO IFNE LEN3              
C     ' ' CHECKR MYTITEL LEN3            
C       ENDIF                
C *     --------------------------------------
C *     Internen Verweis anpassen
C *     --------------------------------------
C       CAT HOST :0 MYTITEL            
C     *BLANKS IFNE SWTITEL              
C       CAT '/' :0 MYTITEL            
C       ENDIF                
C     MYTITEL CAT SWTITEL :0 SWTITEL            
C       ENDIF                
C     UPPER:LOWER XLATE(P) SWTITEL CHARS            
C       EXSR TEXTLINKTITEL              
C          
C *     --------------------------------------
C *     Text für Bild oder Verweis
C *     --------------------------------------
C     *IN82 IFEQ *ON              
C     *BLANKS ANDNE MYTITEL              
C     1 ADD LEN3 POS3            
C       SUBST(P) SWTITEL:POS3 MYTITEL            
C       ENDIF                
C *     --------------------------------------
C *     Bild oder Verweis gefunden?
C *     --------------------------------------
C     *BLANKS IFNE MYTITEL              
C   82   CAT WWWANKER:0 MYTITEL            
C   82   EXSR MYTITELXENV              
C   N82   EXSR MYTITELX              
C       MOVEL(P) MYTITEL MYLINK            
C          
C *     --------------------------------------
C *     Internen Verweis anpassen
C *     --------------------------------------
C     *IN21 IFEQ *ON              
C     PFADXX IFNE HTML              
C     HTTP CAT WWW:0 WWW            
C       ELSE                
C     *BLANKS IFNE WWW              
C     *BLANKS ORNE PFADREL              
C     PFADREL CAT WWW:0 WWW            
C       ELSE                
C     './' CAT WWW:0 WWW            
C       ENDIF                
C       ENDIF                
C       ENDIF                
C *     --------------------------------------
C *     Bild oder Verweis
C *     --------------------------------------
C       CLEAR   BUF2            
C       CLEAR   CHAR6            
C       CLEAR   CHAR5            
C       CLEAR   CHAR4            
C          
C *     --------------------------------------
C *     Bild oder Verweis
C *     --------------------------------------
C     'ftp://' IFEQ CHARS6              
C     'ftps://' OREQ CHARS7              
C     'sftp://' OREQ CHARS7              
C     'rtsp://' OREQ CHARS7              
C     'rtsps://' OREQ CHARS8              
C     'srtsp://' OREQ CHARS8              
C     'http://' OREQ CHARS7              
C     'https://' OREQ CHARS8              
C     'shttp://' OREQ CHARS8              
C     'ldap://' OREQ CHARS7              
C     'ldaps://' OREQ CHARS8              
C     'sldap://' OREQ CHARS8              
C     'data:image/' OREQ CHARS11              
C          
C *     --------------------------------------
C *     Bild oder Verweis
C *     --------------------------------------
C     *IN79 IFEQ *OFF              
C     'data:image/' IFNE CHARS11              
C     '?' SCAN WWW WWWPOS     — 77 78  
C   N78 ' ' CHECKR WWW WWWPOS            
C   N78   ADD 1 WWWPOS            
C       SUB 6 WWWPOS            
C     WWWPOS IFGT *ZERO              
C     6 SUBST(P) WWW:WWWPOS CHAR6            
C     UPPER:LOWER XLATE(P) CHAR6 CHAR6            
C     '.cache' IFEQ CHAR6              
C       SUB 6 WWWPOS            
C     WWWPOS IFGT *ZERO              
C     6 SUBST(P) WWW:WWWPOS CHAR6            
C     UPPER:LOWER XLATE(P) CHAR6 CHAR6            
C       ENDIF                
C       ENDIF                
C     5 SUBST(P) CHAR6:2 CHAR5            
C     4 SUBST(P) CHAR6:3 CHAR4            
C       ENDIF                
C       ENDIF                
C *     --------------------------------------
C *     Bild oder Verweis
C *     --------------------------------------
C     JPG IFEQ CHAR4              
C     PNG OREQ CHAR4              
C     TIF OREQ CHAR4              
C     GIF OREQ CHAR4              
C     BMP OREQ CHAR4              
C     ICO OREQ CHAR4              
C     JPEG OREQ CHAR5              
C     TIFF OREQ CHAR5              
C     'data:image/' OREQ CHARS11              
C          
C *     --------------------------------------
C *     Bild einbinden
C *     --------------------------------------
C     *IN83 IFEQ *OFF              
C     *IN84 ANDEQ *OFF              
C     *BLANKS ANDEQ SIDQUERY              
C       EXSR MYWWW              
C   21   CAT QUERY:0 WWW            
C       MOVEL(P) WWWANKER MYTITEL            
C   82   EXSR MYTITELXFORM              
C   N82   EXSR MYTITELX              
C       CAT MYTITEL:0 WWW            
C       EXSR TEXTBILD5              
C     *IN77 IFEQ *ON              
C **   *IN78 ANDNE *ON              
C     POS IFGT CRLFLEN              
C       SUB CRLFLEN POS            
C       EVAL BUFV = %REPLACE(BRSPNONE:BUFV:POS:CRLFLEN)
C       ADD BRSPNONELEN POS            
C       ENDIF                
C   79   MOVEL(P) DISPLAYBLOCK TEXTBILDADD            
C   N79   MOVEL(P) MAXWIDTH100PR5 TEXTBILDADD            
C       ELSE                
C   79   CLEAR   TEXTBILDADD            
C   N79   MOVEL(P) MAXWIDTH100PR TEXTBILDADD            
C       ENDIF                
C       EVAL BUF2       =  NL +
C            '   <img border=0 +
C          title="" +
C            alt="'+%TRIM(MYLINK)+'" +
C            src="'+%TRIM(WWW)+'"'+
C            %TRIMR(TEXTBILDADD)+'>'
C       ENDIF                
C       ENDIF                
C       ENDIF                
C       ENDIF                
C *     --------------------------------------
C *     Verweis einbinden
C *     --------------------------------------
C     *BLANKS IFEQ BUF2              
C     *BLANKS IFNE TEXT2              
C       CAT WWWANKER:0 WWW            
C       EXSR MYWWW              
C       EVAL BUF2  = %TRIM ( WWW)
C       ELSE                
C       EVAL TEXT1 = '<a'
C   N81   EVAL TEXT1 = '<b>' + TEXT1
C          
C     *IN21 IFEQ *ON              
C *     --------------------------------------
C *     Session als Parameter anhängen
C *     --------------------------------------
C       EXSR MYWWW              
C   21   CAT QUERY:0 WWW            
C       MOVEL(P) WWWANKER MYTITEL            
C   82   EXSR MYTITELXFORM              
C   N82   EXSR MYTITELX              
C       CAT MYTITEL:0 WWW            
C       EVAL TEXT1 =
C       TEXT1 + %TRIMR(TARGET)
C       ELSE                
C *     --------------------------------------
C *     Verweis auf externe Seite
C *     --------------------------------------
C       CAT WWWANKER:0 WWW            
C       EXSR WWWIN              
C     *BLANKS IFNE SIDQUERY              
C       EVAL TEXT1 =
C       TEXT1 + %TRIMR(NOREFERRER)
C       ENDIF                
C       EVAL TEXT1 =
C       TEXT1 + %TRIMR(TARGET)
C       ENDIF                
C          
C       SELECT    
C *     --------------------------------------
C *     Verweis als JavaScript einbinden
C *     --------------------------------------
C     'stream://' WHENEQ CHARS9              
C     ' ' CHECKR EXTERN WWWPOS            
C     '''':'`' XLATE WWW WWW            
C       EVAL WWW        = 'javascript:void(stream('''+
C               %TRIM ( %SUBST(WWW:WWWPOS+11))+'''))'
C       SETON         — — 26  
C *     --------------------------------------
C *     Verweis als JavaScript einbinden
C *     --------------------------------------
C     'display://' WHENEQ CHARS10              
C     ' ' CHECKR EXTERN WWWPOS            
C     '''':'`' XLATE WWW WWW            
C       EVAL WWW        = 'javascript:void(display('''+
C               %TRIM ( %SUBST(WWW:WWWPOS+12))+'''))'
C       SETON         — — 26  
C *     --------------------------------------
C *     Verweis als JavaScript einbinden
C *     --------------------------------------
C     'control://' WHENEQ CHARS10              
C     ' ' CHECKR EXTERN WWWPOS            
C     '''':'`' XLATE WWW WWW            
C       EVAL WWW        = 'javascript:void(control('''+
C               %TRIM ( %SUBST(WWW:WWWPOS+12))+'''))'
C       SETON         — — 26  
C       ENDSL                
C *     --------------------------------------
C *     Verweis einbinden
C *     --------------------------------------
C   66   EVAL BUF2  =  ''
C   N66   EVAL BUF2  =  NOWRAPSTYLE
C       EVAL BUF2  =  ''
C   N82   EVAL BUF2  =  ''
C   N81   EVAL BUF2  =  ''
C       EVAL TEXT1 =
C       TEXT1 + %TRIMR(TAPCOLOR)
C       EVAL TEXT1 =
C       TEXT1 + ' href="'+%TRIM(WWW)+'">+
C                 <font' +%TRIMR(BARCOLOR)+BUF2+'>'
C       EVAL TEXT2 = '</font></a>'
C   N81   EVAL TEXT2 =
C       TEXT2 + '</b>'
C       CLEAR   BUF2            
C       ENDIF                
C       ENDIF                
C *     --------------------------------------
C *     Bild oder Verweis setzen
C *     --------------------------------------
C       EVAL BUFV = %REPLACE(BUF2:BUFV:POS:LEN)
C       ELSE                
C       EVAL BUF2 = %TRIM(SWTITEL)
C       ENDIF                
C *     --------------------------------------
C *     Nach Bild oder Verweis positionieren
C *     --------------------------------------
C       ADD BUF2LEN POSADD            
C       SUB 1 POSADD            
C       SUB 1 COUNT            
C       ENDSR                
C          
  X * TEXTLINK EXSR BAR$TEXT    
  X  
C     TEXTLINKENDE BEGSR                
C *     --------------------------------------
C *     Verweisende suchen
C *     --------------------------------------
C     ' ' SCAN BUFV:POS POS2     — 77 78  
C   N78 1 ADD BUFVLEN POS2            
C          
C *     --------------------------------------
C *     Verweisende suchen
C *     --------------------------------------
C     '"' SCAN BUFV:POS POS3     — 77 78  
C   N78 1 ADD BUFVLEN POS3            
C     POS2 IFGT POS3              
C     *ZERO ADD POS3 POS2            
C       ENDIF                
C *     --------------------------------------
C *     Verweisende suchen
C *     --------------------------------------
C     '''' SCAN BUFV:POS POS3     — 77 78  
C   N78 1 ADD BUFVLEN POS3            
C     POS2 IFGT POS3              
C     *ZERO ADD POS3 POS2            
C       ENDIF                
C *     --------------------------------------
C *     Verweisende suchen
C *     --------------------------------------
C     ', ' SCAN BUFV:POS POS3     — 77 78  
C   N78 1 ADD BUFVLEN POS3            
C     POS2 IFGT POS3              
C     *ZERO ADD POS3 POS2            
C       ENDIF                
C *     --------------------------------------
C *     Verweisende suchen
C *     --------------------------------------
C     *IN82 IFEQ *ON              
C          
C *     --------------------------------------
C *     Verweisende suchen
C *     --------------------------------------
C     '; ' SCAN BUFV:POS POS3     — 77 78  
C   N78 1 ADD BUFVLEN POS3            
C     POS2 IFGT POS3              
C     *ZERO ADD POS3 POS2            
C       ENDIF                
C *     --------------------------------------
C *     Verweisende suchen
C *     --------------------------------------
C     ';)' SCAN BUFV:POS POS3     — 77 78  
C   N78 1 ADD BUFVLEN POS3            
C     POS2 IFGT POS3              
C     *ZERO ADD POS3 POS2            
C       ENDIF                
C *     --------------------------------------
C *     Verweisende suchen
C *     --------------------------------------
C     ',Y' SCAN BUFV:POS POS3     — 77 78  
C   N78 1 ADD BUFVLEN POS3            
C     POS2 IFGT POS3              
C     *ZERO ADD POS3 POS2            
C       ENDIF                
C *     --------------------------------------
C *     Verweisende suchen
C *     --------------------------------------
C     ') ' SCAN BUFV:POS POS3     — 77 78  
C   N78 1 ADD BUFVLEN POS3            
C     POS2 IFGT POS3              
C     *ZERO ADD POS3 POS2            
C       ENDIF                
C *     --------------------------------------
C *     Verweisende suchen
C *     --------------------------------------
C     ')/' SCAN BUFV:POS POS3     — 77 78  
C   N78 1 ADD BUFVLEN POS3            
C     POS2 IFGT POS3              
C     *ZERO ADD POS3 POS2            
C       ENDIF                
C *     --------------------------------------
C *     Verweisende suchen
C *     --------------------------------------
C     '),' SCAN BUFV:POS POS3     — 77 78  
C   N78 1 ADD BUFVLEN POS3            
C     POS2 IFGT POS3              
C     *ZERO ADD POS3 POS2            
C       ENDIF                
C *     --------------------------------------
C *     Verweisende suchen
C *     --------------------------------------
C     ');' SCAN BUFV:POS POS3     — 77 78  
C   N78 1 ADD BUFVLEN POS3            
C     POS2 IFGT POS3              
C     *ZERO ADD POS3 POS2            
C       ENDIF                
C *     --------------------------------------
C *     Verweisende suchen
C *     --------------------------------------
C     ')''' SCAN BUFV:POS POS3     — 77 78  
C   N78 1 ADD BUFVLEN POS3            
C     POS2 IFGT POS3              
C     *ZERO ADD POS3 POS2            
C       ENDIF                
C *     --------------------------------------
C *     Verweisende suchen
C *     --------------------------------------
C     ')' SCAN BUFV:POS POS3     — 77 78  
C   78 POS3 COMP BUFVLEN       — — 78  
C   N78 1 ADD BUFVLEN POS3            
C     POS2 IFGT POS3              
C     *ZERO ADD POS3 POS2            
C       ENDIF                
C *     --------------------------------------
C *     Verweisende suchen
C *     --------------------------------------
C     ']' SCAN BUFV:POS POS3     — 77 78  
C   78 POS3 COMP BUFVLEN       — — 78  
C   N78 1 ADD BUFVLEN POS3            
C     POS2 IFGT POS3              
C     *ZERO ADD POS3 POS2            
C       ENDIF                
C *     --------------------------------------
C *     Verweisende suchen
C *     --------------------------------------
C     '<' SCAN BUFV:POS POS3     — 77 78  
C   N78 1 ADD BUFVLEN POS3            
C     POS2 IFGT POS3              
C     *ZERO ADD POS3 POS2            
C       ENDIF                
C *     --------------------------------------
C *     Verweisende suchen
C *     --------------------------------------
C     '>' SCAN BUFV:POS POS3     — 77 78  
C   N78 1 ADD BUFVLEN POS3            
C     POS2 IFGT POS3              
C     *ZERO ADD POS3 POS2            
C       ENDIF                
C       ENDIF                
C *     --------------------------------------
C *     Verweisende suchen
C *     --------------------------------------
C     NL SCAN BUFV:POS POS3     — 77 78  
C   N78 1 ADD BUFVLEN POS3            
C     POS2 IFGT POS3              
C     *ZERO ADD POS3 POS2            
C       ENDIF                
C *     --------------------------------------
C *     Verweisende suchen
C *     --------------------------------------
C   80 CR SCAN BUFV:POS POS3     — 77 80  
C   N80 1 ADD BUFVLEN POS3            
C     POS2 IFGT POS3              
C     *ZERO ADD POS3 POS2            
C       ENDIF                
C *     --------------------------------------
C *     Verweisende suchen
C *     --------------------------------------
C     POS2 SUB 1 POS3            
C       SUBST(P) BUFV:POS3 CHAR     — 77 —  
C     '}' IFEQ CHAR              
C     *ZERO ADD POS3 POS2            
C       ENDIF                
C       ENDSR                
C          
  X * TEXTLINK EXSR BAR$TEXT    
  X * TEXTLINK EXSR BAR$TEXT    
  X  
C     TEXTLINKBAR BEGSR                
C *     --------------------------------------
C *     Interner Verweis
C *     --------------------------------------
C       CAT HOST :0 HTTP2            
C       CAT '/' :0 HTTP2            
C     WWW CAT '/' :0 WWW2            
C     ' ' CHECKR HTTP2 LEN2            
C     UPPER:LOWER XLATE(P) HTTP2 HTTP2            
C     UPPER:LOWER XLATE(P) WWW2 WWW2            
C     LEN2 SUBST(P) WWW2 WWW2            
C     HTTP2 IFEQ WWW2              
C       ADD 1 LEN2            
C       SUBST(P) WWW:LEN2 WWW     — 77 —  
C   77   CLEAR   WWW            
C       SETON         — 21 —  
C       ENDIF                
C       ENDSR                
C          
  X * TEXTLINK EXSR BAR$TEXT    
  X  
C     TEXTLINKTITEL BEGSR                
C *     --------------------------------------
C *     Text für Bild oder Verweis
C *     --------------------------------------
C       SELECT    
C     'tel:' WHENEQ CHARS4              
C       SUBST(P) SWTITEL:5 MYTITEL            
C     'sms:' WHENEQ CHARS4              
C       SUBST(P) SWTITEL:5 MYTITEL            
C     'mailto:' WHENEQ CHARS7              
C       SUBST(P) SWTITEL:8 MYTITEL            
C     'ftp://' WHENEQ CHARS6              
C       SUBST(P) SWTITEL:7 MYTITEL            
C     'ftps://' WHENEQ CHARS7              
C       SUBST(P) SWTITEL:8 MYTITEL            
C     'sftp://' WHENEQ CHARS7              
C       SUBST(P) SWTITEL:8 MYTITEL            
C     'rtsp://' WHENEQ CHARS7              
C       SUBST(P) SWTITEL:8 MYTITEL            
C     'rtsps://' WHENEQ CHARS8              
C       SUBST(P) SWTITEL:9 MYTITEL            
C     'srtsp://' WHENEQ CHARS8              
C       SUBST(P) SWTITEL:9 MYTITEL            
C     'http://' WHENEQ CHARS7              
C       SUBST(P) SWTITEL:8 MYTITEL            
C     'https://' WHENEQ CHARS8              
C       SUBST(P) SWTITEL:9 MYTITEL            
C     'shttp://' WHENEQ CHARS8              
C       SUBST(P) SWTITEL:9 MYTITEL            
C     'ldap://' WHENEQ CHARS7              
C       SUBST(P) SWTITEL:8 MYTITEL            
C     'ldaps://' WHENEQ CHARS8              
C       SUBST(P) SWTITEL:9 MYTITEL            
C     'sldap://' WHENEQ CHARS8              
C       SUBST(P) SWTITEL:9 MYTITEL            
C     'stream://' WHENEQ CHARS9              
C     6 SUBST(P) SWTITEL MYTITEL            
C     'display://' WHENEQ CHARS10              
C     7 SUBST(P) SWTITEL MYTITEL            
C     'control://' WHENEQ CHARS10              
C     7 SUBST(P) SWTITEL MYTITEL            
C       OTHER                
C       MOVEL(P) SWTITEL MYTITEL            
C       ENDSL                
C *     --------------------------------------
C *     Text für Bild oder Verweis
C *     --------------------------------------
C     *BLANKS IFNE MYTITEL              
C     ' ' CHECKR MYTITEL LEN2            
C     '?' SCAN MYTITEL POS2     — 77 78  
C   N78 1 ADD LEN2 POS2            
C     '/' SCAN MYTITEL POS3     — 77 78  
C   N78 1 ADD LEN2 POS3            
C          
C *     --------------------------------------
C *     Text für Bild oder Verweis
C *     --------------------------------------
C     POS2 IFGT POS3              
C     *ZERO ADD POS3 POS2            
C       ENDIF                
C *     --------------------------------------
C *     Text für Bild oder Verweis
C *     --------------------------------------
C     POS2 IFLE LEN2              
C     POS2 SUB 1 POS3            
C     POS3 IFGE 1              
C     POS3 SUBST(P) MYTITEL MYTITEL            
C       ELSE                
C       CLEAR   MYTITEL            
C       ENDIF                
C *     --------------------------------------
C *     Text für Bild oder Verweis
C *     --------------------------------------
C     POS2 IFLT LEN2              
C       CAT '...':0 MYTITEL            
C       ENDIF                
C       ENDIF                
C       ENDIF                
C       ENDSR                
C          
  X * TEXTSMILYS5A EXSR BAR$TEXT    
  X * TEXTLINK EXSR BAR$TEXT    
  X  
C     TEXTBILD5 BEGSR                
C     'v22.' SCAN AGENT       — 77 79  
C   N79 'rv:1.' SCAN AGENT       — 77 79  
C       SETOFF         — 77 78  
C *     --------------------------------------
C *     Smily/Bild HTML5
C *     --------------------------------------
C     POS SUB CRLFLEN POS2            
C       SUBST(P) BUFV:POS2 CHAR2     — 78 —  
C     *IN78 IFEQ *ON              
C     CRLF OREQ CHAR2              
C     POS ADD LEN POS2            
C       SUBST(P) BUFV:POS2 CHAR2     — 78 —  
C     *IN78 IFEQ *ON              
C     CRLF OREQ CHAR2              
C       SETON         — 77 —  
C       ENDIF                
C       ENDIF                
C       ENDSR                
C          
  X * TEXTSMILYS2 EXSR BAR$TEXT    
  X  
C     TEXTCODE BEGSR                
C     *IN83 IFEQ *OFF              
C *     --------------------------------------
C *     Text als Code darstellen?
C *     --------------------------------------
C     *BLANKS IFNE BUFV              
C       SUBST(P) BUFV CHAR            
C     '[' IFEQ CHAR              
C       SUBST(P) BUFV:BUFVLEN CHAR            
C     ']' IFEQ CHAR              
C       EVAL BUFV = %SUBST ( BUFV:2:BUFVLEN-2)
C       EXSR MYBUFV2              
C          
C *     --------------------------------------
C *     Leeren Text durch Kommentar ersetzen
C *     --------------------------------------
C     *BLANKS IFEQ BUFV              
C   88   EVAL BUFV = '<!---->'
C       ENDIF                
C *     --------------------------------------
C *     Leeren Text durch Leerzeichen ersetzen
C *     --------------------------------------
C     *BLANKS IFEQ BUFV              
C       EVAL BUFV = NBSP
C       ENDIF                
C *     --------------------------------------
C *     CRLF im Text suchen und ersetzen
C *     --------------------------------------
C     CRLF SCAN BUFV POS     — 77 78  
C     *IN78 DOWEQ *ON              
C       EVAL BUFV = %REPLACE(BR:BUFV:POS:CRLFLEN)
C     CRLF SCAN BUFV:POS POS     — 77 78  
C       ENDDO                
C       SETON         — 83 89  
C       ENDIF                
C       ENDIF                
C       ENDIF                
C       ENDIF                
C       ENDSR                
C          
  X * TEXTSMILYS2 EXSR BAR$TEXT    
  X  
C     TEXTBLASE BEGSR                
C     *IN83 IFEQ *OFF              
C *     --------------------------------------
C *     Text in Sprechblase darstellen?
C *     --------------------------------------
C     *BLANKS IFNE BUFV              
C       SUBST(P) BUFV CHAR            
C     '(' IFEQ CHAR              
C       SUBST(P) BUFV:BUFVLEN CHAR            
C     ')' IFEQ CHAR              
C       EVAL BUFV = %SUBST ( BUFV:2:BUFVLEN-2)
C     *IN84 IFEQ *OFF              
C     *BLANKS ANDEQ BARCOLOR              
C       MOVEL(P) '#000000' COLOR7            
C       EXSR TEXTCOLOR              
C       ENDIF                
C       SETON         — 88 81  
C       ENDIF                
C       ENDIF                
C       ENDIF                
C       ENDIF                
C       ENDSR                
C          
  X * HINWEIS1 EXSR BAR$ART    
  X * IDXMAIN EXSR BAR$ART    
  X * KALMAIN EXSR BAR$ART    
  X * LINKMITBAR EXSR BAR$LINK    
  X * KAMERAS EXSR BAR$SEND    
  X * ENVVARS EXSR BAR$SEND    
  X * SRCRPGDEFS EXSR BAR$SRC    
  X * SRCRPGDEFSX EXSR BAR$SRC    
  X * SRCRPGUSES EXSR BAR$SRC    
  X * SRCRPGUSESX EXSR BAR$SRC    
  X * ROW EXSR BAR$TABLE    
  X * ROWT EXSR BAR$TABLE    
  X * ROWROWX EXSR BAR$TABLE    
  X * TEXTSMILYSAGN2 EXSR BAR$TEXT    
  X * TEXTBLASE EXSR BAR$TEXT    
  X  
C     TEXTCOLOR BEGSR                
C *     --------------------------------------
C *     Text- und Tipp-Farbe ermitteln
C *     --------------------------------------
C       MOVEL(P) ALPHA4 ALPHA            
C       EXSR TAPCOLORSR              
C       ENDSR                
C          
  X * LINKLABEL EXSR BAR$FORM    
  X  
C     LABELCOLOR BEGSR                
C *     --------------------------------------
C *     Text- und Tipp-Farbe ermitteln
C *     --------------------------------------
C       MOVEL(P) ALPHA0 ALPHA            
C       EXSR TAPCOLORSR              
C       ENDSR                
C          
  X * TEXTCOLOR EXSR BAR$TEXT    
  X * LABELCOLOR EXSR BAR$TEXT    
  X  
C     TAPCOLORSR BEGSR                
C       CLEAR   BARCOLOR            
C       CLEAR   TAPCOLOR            
C       CLEAR   TAPSTYLE            
C *     --------------------------------------
C *     Text- und Tipp-Farbe ermitteln
C *     --------------------------------------
C     *BLANKS IFNE COLOR7              
C       SUBST(P) COLOR7:2 RGB6            
C     LOWER:UPPER XLATE RGB6 RGB6            
C       CALLP(E) CVTCH ( RGB3:RGB6:6)
C          
C *     --------------------------------------
C *     Text- und Tipp-Farbe ermitteln
C *     --------------------------------------
C       EVAL BARCOLOR  = ' color="'+%TRIM(COLOR7)+'"'
C       EVAL TAPCOLOR  = ' style="+
C                    -webkit-tap-highlight-color:+
C         rgba('+%CHAR(R)+','+
C                %CHAR(G)+','+
C                %CHAR(B)+','+
C                %TRIM(ALPHA)+')"'
C *     --------------------------------------
C *     Firefox Tap Highlight Color
C *     --------------------------------------
C   67   EVAL TAPCOLOR  =
C       TAPCOLOR  +   TAP
C   67   EVAL TAPSTYLE  = '<style scoped><!-- +
C                    .tap:active { +
C         background-color:+
C         rgba('+%CHAR(R)+','+
C                %CHAR(G)+','+
C                %CHAR(B)+','+
C                %TRIM(ALPHA)+') } +
C                 --></style>'
C       ENDIF                
C       ENDSR                
C          
  X * KAMERAS EXSR BAR$SEND    
  X * ENVVARS EXSR BAR$SEND    
  X  
C     BUFDEBUG BEGSR                
C *     --------------------------------------
C *     Hintergrundfarbe für lange Texte
C *     --------------------------------------
C       MOVEL(P) FADEBUG COLOR7            
C       MOVEL(P) ALPHA2 ALPHA            
C       EXSR BUFBGCOLORSR              
C       ENDSR                
C          
  X * HINWEIS1 EXSR BAR$ART    
  X * IDXMAIN EXSR BAR$ART    
  X * KALMAIN EXSR BAR$ART    
  X  
C     BUFBGCOLOR BEGSR                
C *     --------------------------------------
C *     Hintergrundfarbe für lange Texte
C *     --------------------------------------
C       MOVEL(P) FABGCOLOR COLOR7            
C       MOVEL(P) ALPHA2 ALPHA            
C       EXSR BUFBGCOLORSR              
C       ENDSR                
C          
  X * BUFDEBUG EXSR BAR$TEXT    
  X * BUFBGCOLOR EXSR BAR$TEXT    
  X  
C     BUFBGCOLORSR BEGSR                
C *     --------------------------------------
C *     Hintergrundfarbe für lange Texte
C *     --------------------------------------
C     'UCBrowser' SCAN AGENT       — 77 78  
C     *IN78 IFEQ *OFF              
C     *BLANKS ANDNE COLOR7              
C       SUBST(P) COLOR7:2 RGB6            
C     LOWER:UPPER XLATE RGB6 RGB6            
C       CALLP(E) CVTCH ( RGB3:RGB6:6)
C       EVAL BUF =
C       BUF + ' style="background-color:+
C          rgba('+%CHAR(R)+','+
C                 %CHAR(G)+','+
C                 %CHAR(B)+','+
C                 %TRIM(ALPHA)+')"'
C       ENDIF                
C       ENDSR                
C          
  X * TEXTSMILYS2 EXSR BAR$TEXT    
  X  
C     CODE BEGSR                
C *     --------------------------------------
C *     Text als Code darstellen
C *     --------------------------------------
C       CLEAR   LINK2            
C   66   MOVEL(P) ' size="-2"' LINK2            
C       EVAL BUFV = '<pre'+PRESTYLE+
C         NOTRANSLATE+'>+
C       <font face="'+MONOSPACE+'"'+
C                    %TRIMR(LINK2)+
C                    %TRIMR(BARCOLOR)+'>'+
C            BUFV + '</font></pre>'
C       ENDSR                
C          
  X * MNTMAIN EXSR BAR$ART    
  X * LINKINSTALL1 EXSR BAR$LINK    
  X * LINKINSTALL2 EXSR BAR$LINK    
  X * LINKINSTALL3 EXSR BAR$LINK    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * TABLECOPY EXSR BAR$SEND    
  X * ZEILEANFRAGE2 EXSR BAR$ZEILE    
  X  
C     WWWHREF BEGSR                
C *     --------------------------------------
C *     Web-Adresse verschlüsseln
C *     --------------------------------------
C     *BLANKS IFNE WWW              
C       EXSR WWWQUERYANKER              
C       CAT WWWQUERY :0 WWW            
C       CAT WWWANKER :0 WWW            
C       EXSR WWWIN              
C          
C *     --------------------------------------
C *     href="..." (rel="noreferrer")
C *     --------------------------------------
C     ' href="' CAT WWW :0 WWW            
C       CAT '"' :0 WWW            
C     *BLANKS IFNE SIDQUERY              
C       CAT NOREFERRER :0 WWW            
C       ENDIF                
C       ENDIF                
C       ENDSR                
C          
  X * TEXTLINK EXSR BAR$TEXT    
  X * WWWHREF EXSR BAR$TEXT    
  X  
C     WWWQUERYANKER BEGSR                
C *     --------------------------------------
C *     Anker sichern und entfernen
C *     --------------------------------------
C       CLEAR   WWWANKER            
C     *IN78 DOUEQ *OFF              
C     '&' ORNE CHAR              
C       ADD 2 POSANKER            
C     '#' SCAN WWW:POSANKER POSANKER     — 77 78  
C   78   SUB 1 POSANKER            
C   78   SUBST(P) WWW:POSANKER CHAR            
C       ENDDO                
C *     --------------------------------------
C *     Anker sichern und entfernen
C *     --------------------------------------
C     *IN78 IFEQ *ON              
C     *ZERO IFLT POSANKER              
C       ADD 1 POSANKER            
C       SUBST(P) WWW:POSANKER WWWANKER            
C       SUB 1 POSANKER            
C     POSANKER SUBST(P) WWW WWW            
C       MOVEL(P) WWWANKER MYTITEL            
C       EXSR MYTITELXQUERY2              
C       EXSR MYTITELXUTF8              
C       MOVEL(P) MYTITEL WWWANKER            
C       ENDIF                
C       ENDIF                
C *     --------------------------------------
C *     Parameter sichern und entfernen
C *     --------------------------------------
C       CLEAR   WWWQUERY            
C     '?' SCAN WWW POSQUERY     — 77 78  
C          
C *     --------------------------------------
C *     Parameter sichern und entfernen
C *     --------------------------------------
C     *IN78 IFEQ *ON              
C     *ZERO IFLT POSQUERY              
C       SUBST(P) WWW:POSQUERY WWWQUERY            
C       SUB 1 POSQUERY            
C     POSQUERY SUBST(P) WWW WWW            
C       MOVEL(P) WWWQUERY MYTITEL            
C       EXSR MYTITELXQUERY2              
C       EXSR MYTITELXUTF8              
C       MOVEL(P) MYTITEL WWWQUERY            
C       ENDIF                
C       ENDIF                
C       ENDSR                
C          
  X * TEXTLINK EXSR BAR$TEXT    
  X * WWWHREF EXSR BAR$TEXT    
  X  
C     WWWIN BEGSR                
C *     --------------------------------------
C *     Web-Adresse verschlüsseln
C *     --------------------------------------
C     *BLANKS IFNE WWW              
C     ' ' CHECK WWW WWWPOS     — — 77  
C   77   SUBST(P) WWW:WWWPOS WWW            
C       SUBST(P) WWW CHAR2     — 77 —  
C     '//' IFEQ CHAR2              
C       EVAL WWW =         SCHEME +':'+ WWW
C       ENDIF                
C *     --------------------------------------
C *     Zeichen ersetzen
C *     --------------------------------------
C     *BLANKS IFNE EXTERN              
C     ' ' CHECKR WWW WWWPOS            
C       ADD 1 WWWPOS            
C          
C *     --------------------------------------
C *     Anker entfernen
C *     --------------------------------------
C       CLEAR   POSANKER            
C     *IN78 DOUEQ *OFF              
C     '&' ORNE CHAR              
C       ADD 2 POSANKER            
C     '#' SCAN WWW:POSANKER POSANKER     — 77 78  
C   78   SUB 1 POSANKER            
C   78   SUBST(P) WWW:POSANKER CHAR            
C       ENDDO                
C *     --------------------------------------
C *     Anker entfernen
C *     --------------------------------------
C     *IN78 IFEQ *ON              
C     WWWPOS IFGT POSANKER              
C     *ZERO ADD POSANKER WWWPOS            
C       ENDIF                
C       ENDIF                
C *     --------------------------------------
C *     Parameter entfernen
C *     --------------------------------------
C       CLEAR   POSQUERY            
C       ADD 2 POSQUERY            
C     '?' SCAN WWW:POSQUERY POSQUERY     — 77 78  
C          
C *     --------------------------------------
C *     Parameter entfernen
C *     --------------------------------------
C     *IN78 IFEQ *ON              
C     WWWPOS IFGT POSQUERY              
C     *ZERO ADD POSQUERY WWWPOS            
C       ENDIF                
C       ENDIF                
C *     --------------------------------------
C *     Zeichen ersetzen
C *     --------------------------------------
C       SUB 1 WWWPOS            
C       MOVEL(P) MYTITEL SNTITEL            
C     WWWPOS SUBST(P) WWW MYTITEL            
C          
C *     --------------------------------------
C *     Zeichen ersetzen
C *     --------------------------------------
C       EXSR MYTITELXQUERY              
C       EXSR MYTITELXUTF8              
C          
C *     --------------------------------------
C *     Zeichen ersetzen
C *     --------------------------------------
C       ADD 1 WWWPOS            
C       SUBST(P) WWW:WWWPOS WWW     — 77 —  
C   N77 MYTITEL CAT WWW :0 WWW            
C       MOVEL(P) SNTITEL MYTITEL            
C       ENDIF                
C *     --------------------------------------
C *     Zeichen ersetzen
C *     --------------------------------------
C       EXSR MYWWW              
C          
C *     --------------------------------------
C *     Externe Adresse
C *     --------------------------------------
C     *BLANKS IFNE EXTERN              
C     EXTERN CAT WWW :0 WWW            
C       ENDIF                
C       ENDIF                
C       ENDSR                
C          
  X * SENDPLIST EXSR BAR$SEND    
  X * SENDHTML EXSR BAR$SEND    
  X * SENDHTML EXSR BAR$SEND    
  X * TEXTLINK EXSR BAR$TEXT    
  X * TEXTLINK EXSR BAR$TEXT    
  X * TEXTLINK EXSR BAR$TEXT    
  X * WWWIN EXSR BAR$TEXT    
  X  
C     MYWWW BEGSR                
C     *BLANKS IFNE WWW              
C *     --------------------------------------
C *     Zeichen § durch @ ersetzen
C *     --------------------------------------
C     '§' SCAN WWW WWWPOS     — 77 78  
C     *IN78 DOWEQ *ON              
C       EVAL WWW = %REPLACE('@':WWW:WWWPOS:1)
C       ADD 1 WWWPOS            
C     '§' SCAN WWW:WWWPOS WWWPOS     — 77 78  
C       ENDDO                
C *     --------------------------------------
C *     Zeichen & durch &amp; ersetzen
C *     --------------------------------------
C       CLEAR   CHAR2            
C       CLEAR   CHAR5            
C     '&' SCAN WWW WWWPOS     — 77 78  
C     *IN78 DOWEQ *ON              
C     *IN36 IFEQ *OFF              
C       SUBST(P) WWW:WWWPOS CHAR2            
C       SUBST(P) WWW:WWWPOS CHAR5            
C       ENDIF                
C     '&#' IFNE CHAR2              
C     '@' OREQ CHAR5              
C     *IN36 ANDEQ *ON              
C       EVAL WWW = %REPLACE('&amp;':WWW:WWWPOS:1)
C       ENDIF                
C       ADD 1 WWWPOS            
C     '&' SCAN WWW:WWWPOS WWWPOS     — 77 78  
C       ENDDO                
C *     --------------------------------------
C *     Zeichen @ durch @ ersetzen
C *     --------------------------------------
C     '@' SCAN WWW WWWPOS     — 77 78  
C     *IN78 DOWEQ *ON              
C       EVAL WWW = %REPLACE('@':WWW:WWWPOS:1)
C       ADD 1 WWWPOS            
C     '@' SCAN WWW:WWWPOS WWWPOS     — 77 78  
C       ENDDO                
C *     --------------------------------------
C *     Zeichen § durch &sect; ersetzen
C *     --------------------------------------
C     '§' SCAN WWW WWWPOS     — 77 78  
C     *IN78 DOWEQ *ON              
C       EVAL WWW = %REPLACE('&sect;':WWW:WWWPOS:1)
C       ADD 1 WWWPOS            
C     '§' SCAN WWW:WWWPOS WWWPOS     — 77 78  
C       ENDDO                
C *     --------------------------------------
C *     Zeichen " durch &quot; ersetzen
C *     --------------------------------------
C     '"' SCAN WWW WWWPOS     — 77 78  
C     *IN78 DOWEQ *ON              
C       EVAL WWW = %REPLACE('&quot;':WWW:WWWPOS:1)
C       ADD 1 WWWPOS            
C     '"' SCAN WWW:WWWPOS WWWPOS     — 77 78  
C       ENDDO                
C *     --------------------------------------
C *     Zeichen < durch &lt; ersetzen
C *     --------------------------------------
C     '<' SCAN WWW WWWPOS     — 77 78  
C     *IN78 DOWEQ *ON              
C       EVAL WWW = %REPLACE('&lt;':WWW:WWWPOS:1)
C       ADD 1 WWWPOS            
C     '<' SCAN WWW:WWWPOS WWWPOS     — 77 78  
C       ENDDO                
C *     --------------------------------------
C *     Zeichen > durch &gt; ersetzen
C *     --------------------------------------
C     '>' SCAN WWW WWWPOS     — 77 78  
C     *IN78 DOWEQ *ON              
C       EVAL WWW = %REPLACE('&gt;':WWW:WWWPOS:1)
C       ADD 1 WWWPOS            
C     '>' SCAN WWW:WWWPOS WWWPOS     — 77 78  
C       ENDDO                
C       ENDIF                
C       ENDSR                
C          
  X * SENDHTML EXSR BAR$SEND    
  X * TEXTCODE EXSR BAR$TEXT    
  X  
C     MYBUFV2 BEGSR                
C       EXSR MYBUFV2FORM              
C *     --------------------------------------
C *     Neue Zeile auf Smartphone ersetzen
C *     --------------------------------------
C     BR66 SCAN BUFV POS     — 77 78  
C     *IN78 DOWEQ *ON              
C     *IN66 COMP *ON       — — 78  
C   78 PFADXX COMP HTML       — — 78  
C   78   EVAL BUFV = %REPLACE(' ' :BUFV:POS:1)
C   N78   EVAL BUFV = %REPLACE(''  :BUFV:POS:1)
C       ADD 1 POS            
C     BR66 SCAN BUFV:POS POS     — 77 78  
C       ENDDO                
C       ENDSR                
C          
C     MYBUFV2BR66 BEGSR                
C       EXSR MYBUFV2FORM              
C *     --------------------------------------
C *     Neue Zeile auf Smartphone ersetzen
C *     --------------------------------------
C     BR66 SCAN BUFV POS     — 77 78  
C     *IN78 DOWEQ *ON              
C     *IN66 COMP *ON       — — 78  
C   78 PFADXX COMP HTML       — — 78  
C   78   EVAL BUFV = %REPLACE(BRSP:BUFV:POS:1)
C   N78   EVAL BUFV = %REPLACE(''  :BUFV:POS:1)
C       ADD 1 POS            
C     BR66 SCAN BUFV:POS POS     — 77 78  
C       ENDDO                
C       ENDSR                
C          
  X * ARTTEXTXML EXSR BAR$ART    
  X * ARTTEXTRSS EXSR BAR$ART    
  X * ARTTEXTATOM EXSR BAR$ART    
  X * SENDFEEDINF EXSR BAR$SEND    
  X * SENDOSDXINF EXSR BAR$SEND    
  X * COLINPUTBUFV EXSR BAR$TABLE    
  X * COLTEXTAREA EXSR BAR$TABLE    
  X * MYBUFV2 EXSR BAR$TEXT    
  X * MYBUFV2BR66 EXSR BAR$TEXT    
  X * ZEILEARTINF EXSR BAR$ZEILE    
  X * ZEILEAWINF EXSR BAR$ZEILE    
  X * ZEILEANFRAGE2 EXSR BAR$ZEILE    
  X  
C     MYBUFV2FORM BEGSR                
C     *BLANKS IFNE BUFV              
C *     --------------------------------------
C *     Zeichen & durch &amp; ersetzen
C *     --------------------------------------
C       CLEAR   CHAR2            
C       CLEAR   CHAR5            
C     '&' SCAN BUFV POS     — 77 78  
C     *IN78 DOWEQ *ON              
C     *IN36 IFEQ *OFF              
C       SUBST(P) BUFV:POS CHAR2            
C       SUBST(P) BUFV:POS CHAR5            
C       ENDIF                
C     '&#' IFNE CHAR2              
C     '@' OREQ CHAR5              
C     *IN36 ANDEQ *ON              
C       EVAL BUFV = %REPLACE('&amp;':BUFV:POS:1)
C       ENDIF                
C       ADD 1 POS            
C     '&' SCAN BUFV:POS POS     — 77 78  
C       ENDDO                
C *     --------------------------------------
C *     Zeichen @ durch @ ersetzen
C *     --------------------------------------
C     '@' SCAN BUFV POS     — 77 78  
C     *IN78 DOWEQ *ON              
C       EVAL BUFV = %REPLACE('@':BUFV:POS:1)
C       ADD 1 POS            
C     '@' SCAN BUFV:POS POS     — 77 78  
C       ENDDO                
C *     --------------------------------------
C *     Zeichen § durch &sect; ersetzen
C *     --------------------------------------
C     '§' SCAN BUFV POS     — 77 78  
C     *IN78 DOWEQ *ON              
C       EVAL BUFV = %REPLACE('&sect;':BUFV:POS:1)
C       ADD 1 POS            
C     '§' SCAN BUFV:POS POS     — 77 78  
C       ENDDO                
C *     --------------------------------------
C *     Zeichen " durch &quot; ersetzen
C *     --------------------------------------
C     '"' SCAN BUFV POS     — 77 78  
C     *IN78 DOWEQ *ON              
C       EVAL BUFV = %REPLACE('&quot;':BUFV:POS:1)
C       ADD 1 POS            
C     '"' SCAN BUFV:POS POS     — 77 78  
C       ENDDO                
C *     --------------------------------------
C *     Zeichen < durch &lt; ersetzen
C *     --------------------------------------
C     '<' SCAN BUFV POS     — 77 78  
C     *IN78 DOWEQ *ON              
C       EVAL BUFV = %REPLACE('&lt;':BUFV:POS:1)
C       ADD 1 POS            
C     '<' SCAN BUFV:POS POS     — 77 78  
C       ENDDO                
C *     --------------------------------------
C *     Zeichen > durch &gt; ersetzen
C *     --------------------------------------
C     '>' SCAN BUFV POS     — 77 78  
C     *IN78 DOWEQ *ON              
C       EVAL BUFV = %REPLACE('&gt;':BUFV:POS:1)
C       ADD 1 POS            
C     '>' SCAN BUFV:POS POS     — 77 78  
C       ENDDO                
C       ENDIF                
C       ENDSR                
C          
  X * ZEILEANFRAGE2 EXSR BAR$ZEILE    
  X  
C     MYBUFV2FORMX BEGSR                
C     *BLANKS IFNE BUFV              
C     *IN68 ANDEQ *OFF              
C *     --------------------------------------
C *     Zeichen . durch ​ ergänzen
C *     --------------------------------------
C     '.' SCAN BUFV POS     — 77 78  
C     *IN78 DOWEQ *ON              
C       EVAL BUFV = %REPLACE('.​':BUFV:POS:1)
C       ADD 1 POS            
C     '.' SCAN BUFV:POS POS     — 77 78  
C       ENDDO                
C *     --------------------------------------
C *     Zeichen : durch ​ ergänzen
C *     --------------------------------------
C     ':' SCAN BUFV POS     — 77 78  
C     *IN78 DOWEQ *ON              
C       EVAL BUFV = %REPLACE(':​':BUFV:POS:1)
C       ADD 1 POS            
C     ':' SCAN BUFV:POS POS     — 77 78  
C       ENDDO                
C *     --------------------------------------
C *     Zeichen , durch ​ ergänzen
C *     --------------------------------------
C     ',' SCAN BUFV POS     — 77 78  
C     *IN78 DOWEQ *ON              
C       EVAL BUFV = %REPLACE(',​':BUFV:POS:1)
C       ADD 1 POS            
C     ',' SCAN BUFV:POS POS     — 77 78  
C       ENDDO                
C *     --------------------------------------
C *     Zeichen + durch ​ ergänzen
C *     --------------------------------------
C     '+' SCAN BUFV POS     — 77 78  
C     *IN78 DOWEQ *ON              
C       EVAL BUFV = %REPLACE('+​':BUFV:POS:1)
C       ADD 1 POS            
C     '+' SCAN BUFV:POS POS     — 77 78  
C       ENDDO                
C *     --------------------------------------
C *     Zeichen % durch ​ ergänzen
C *     --------------------------------------
C     '%' SCAN BUFV POS     — 77 78  
C     *IN78 DOWEQ *ON              
C       EVAL BUFV = %REPLACE('%​':BUFV:POS:1)
C       ADD 1 POS            
C     '%' SCAN BUFV:POS POS     — 77 78  
C       ENDDO                
C *     --------------------------------------
C *     Zeichen / durch ​ ergänzen
C *     --------------------------------------
C     '/' SCAN BUFV POS     — 77 78  
C     *IN78 DOWEQ *ON              
C       EVAL BUFV = %REPLACE('/​':BUFV:POS:1)
C       ADD 1 POS            
C     '/' SCAN BUFV:POS POS     — 77 78  
C       ENDDO                
C *     --------------------------------------
C *     Zeichen /​ in ​/ ändern
C *     --------------------------------------
C     '/​' SCAN BUFV POS     — 77 78  
C     *IN78 DOWEQ *ON              
C       EVAL BUFV = %REPLACE('​/':BUFV:POS:8)
C       ADD 1 POS            
C     '/​' SCAN BUFV:POS POS     — 77 78  
C       ENDDO                
C *     --------------------------------------
C *     Zeichen /​/ in // ändern
C *     --------------------------------------
C     '/​/' SCAN BUFV POS     — 77 78  
C     *IN78 DOWEQ *ON              
C       EVAL BUFV = %REPLACE('//':BUFV:POS:9)
C       ADD 1 POS            
C     '/​/' SCAN BUFV:POS POS     — 77 78  
C       ENDDO                
C       ENDIF                
C       ENDSR                
C          
  X * MNTMAIN EXSR BAR$ART    
  X * MNTMAIN EXSR BAR$ART    
  X * ARTINFOART EXSR BAR$ART    
  X * ARTINFOART EXSR BAR$ART    
  X * ARTINFOART EXSR BAR$ART    
  X * ARTINFOART2 EXSR BAR$ART    
  X * ARTINFOART2 EXSR BAR$ART    
  X * ARTINFOART2 EXSR BAR$ART    
  X * ARTINFOAW EXSR BAR$ART    
  X * ARTINFOAW EXSR BAR$ART    
  X * ARTINFOAW2 EXSR BAR$ART    
  X * ARTINFOAW2 EXSR BAR$ART    
  X * ARTINFOAW2 EXSR BAR$ART    
  X * FORMLOGIN3 EXSR BAR$FORM    
  X * FORMFRT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMMIT EXSR BAR$FORM    
  X * FORMFILE$ EXSR BAR$FORM    
  X * FORMFILE$ EXSR BAR$FORM    
  X * FORMUPLOAD EXSR BAR$FORM    
  X * LINKPTZFLIP EXSR BAR$FORM    
  X * LINKINPUT EXSR BAR$FORM    
  X * LINKINPUTVAL EXSR BAR$FORM    
  X * LINKLABEL EXSR BAR$FORM    
  X * LINKSUBMIT EXSR BAR$FORM    
  X * LINKSUBMITX EXSR BAR$FORM    
  X * LINKSUBMIT1 EXSR BAR$FORM    
  X * LINKSUBMIT2 EXSR BAR$FORM    
  X * LINKLOGIN EXSR BAR$FORM    
  X * LINKWER EXSR BAR$FORM    
  X * LINKART EXSR BAR$LINK    
  X * LINKARTAW EXSR BAR$LINK    
  X * LINKSMILY EXSR BAR$LINK    
  X * LINKSMILY1 EXSR BAR$LINK    
  X * LINKPARENT EXSR BAR$LINK    
  X * LINKANLAGE EXSR BAR$LINK    
  X * LINKBILD EXSR BAR$LINK    
  X * LINKBILD2 EXSR BAR$LINK    
  X * LINKMIT EXSR BAR$LINK    
  X * LINKMITXML EXSR BAR$LINK    
  X * LINKMITRSS EXSR BAR$LINK    
  X * LINKMITATOM EXSR BAR$LINK    
  X * LINKRUB EXSR BAR$LINK    
  X * LINKNAV EXSR BAR$LINK    
  X * LINKINSTALL1 EXSR BAR$LINK    
  X * LINKINSTALL2 EXSR BAR$LINK    
  X * LINKINSTALL3 EXSR BAR$LINK    
  X * LINKUPLOAD1 EXSR BAR$LINK    
  X * LINKUPLOAD2 EXSR BAR$LINK    
  X * LINKUPLOAD3 EXSR BAR$LINK    
  X * LINKCLOSE EXSR BAR$LINK    
  X * LINKCNT EXSR BAR$LINK    
  X * LINKCNT EXSR BAR$LINK    
  X * LINKNAV1 EXSR BAR$LINK    
  X * LINKNAV2 EXSR BAR$LINK    
  X * LINKNAVREL EXSR BAR$LINK    
  X * LINKNAVRELX EXSR BAR$LINK    
  X * LINKNAVHTML EXSR BAR$LINK    
  X * LINKIDXREL EXSR BAR$LINK    
  X * LINKSMILYSREL EXSR BAR$LINK    
  X * LISTE EXSR BAR$LISTE    
  X * LISTE EXSR BAR$LISTE    
  X * LISTE EXSR BAR$LISTE    
  X * LISTE EXSR BAR$LISTE    
  X * LISTE EXSR BAR$LISTE    
  X * LISTE EXSR BAR$LISTE    
  X * LISTE EXSR BAR$LISTE    
  X * LISTE EXSR BAR$LISTE    
  X * LISTE EXSR BAR$LISTE    
  X * LISTE EXSR BAR$LISTE    
  X * LISTE EXSR BAR$LISTE    
  X * LISTE EXSR BAR$LISTE    
  X * LISTEBARNEU EXSR BAR$LISTE    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEMIT EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEINF EXSR BAR$LISTE    
  X * LISTEKAL2 EXSR BAR$LISTE    
  X * LISTEMNT EXSR BAR$LISTE    
  X * LISTESMILYS EXSR BAR$LISTE    
  X * LISTESMILYS EXSR BAR$LISTE    
  X * LISTESMILYS EXSR BAR$LISTE    
  X * LISTESMILYS EXSR BAR$LISTE    
  X * LISTEBESUCHER EXSR BAR$LISTE    
  X * LISTEBESUCHER EXSR BAR$LISTE    
  X * LISTEBESUCHER EXSR BAR$LISTE    
  X * LISTEANFRAGEN EXSR BAR$LISTE    
  X * LISTEANFRAGEN EXSR BAR$LISTE    
  X * LISTEANFRAGEN EXSR BAR$LISTE    
  X * LISTEANFRAGEN EXSR BAR$LISTE    
  X * LISTEANFRAGEN EXSR BAR$LISTE    
  X * LISTEANFRAGEN EXSR BAR$LISTE    
  X * LISTEANFRAGEN EXSR BAR$LISTE    
  X * LISTEANFRAGEN EXSR BAR$LISTE    
  X * LISTEANFRAGEN EXSR BAR$LISTE    
  X * LISTEANFRAGEN EXSR BAR$LISTE    
  X * LISTETITEL EXSR BAR$LISTE    
  X * LISTETITEL EXSR BAR$LISTE    
  X * LISTETITEL EXSR BAR$LISTE    
  X * JS2SRC EXSR BAR$SCRIPT    
  X * SENDEN EXSR BAR$SEND    
  X * SENDFONT EXSR BAR$SEND    
  X * SENDTITEL2 EXSR BAR$SEND    
  X * SENDHTML EXSR BAR$SEND    
  X * TABLECOPY EXSR BAR$SEND    
  X * TABLECOPY EXSR BAR$SEND    
  X * TABLECOPY EXSR BAR$SEND    
  X * TABLECOPY EXSR BAR$SEND    
  X * TABLECOPY EXSR BAR$SEND    
  X * LINKSRC EXSR BAR$SRC    
  X * LINKSRC3 EXSR BAR$SRC    
  X * LINKSRCNEU EXSR BAR$SRC    
  X * LINKSRCDEF EXSR BAR$SRC    
  X * LINKSRCDEFS EXSR BAR$SRC    
  X * LINKSRCUSE EXSR BAR$SRC    
  X * COLINPUTBUFV EXSR BAR$TABLE    
  X * COLTEXTAREA EXSR BAR$TABLE    
  X * TEXTSMILYS5A EXSR BAR$TEXT    
  X * TEXTLINK EXSR BAR$TEXT    
  X * TEXTLINK EXSR BAR$TEXT    
  X * TEXTLINK EXSR BAR$TEXT    
  X * ZEILEARTINF EXSR BAR$ZEILE    
  X * ZEILEARTINF EXSR BAR$ZEILE    
  X * ZEILEMIT2 EXSR BAR$ZEILE    
  X * ZEILESRC2 EXSR BAR$ZEILE    
  X * ZEILESRC2 EXSR BAR$ZEILE    
  X * ZEILESRC2 EXSR BAR$ZEILE    
  X * ZEILESRC2 EXSR BAR$ZEILE    
  X * ZEILEFILE2 EXSR BAR$ZEILE    
  X * ZEILEFILE2 EXSR BAR$ZEILE    
  X * ZEILEFILE2 EXSR BAR$ZEILE    
  X * ZEILEFILE2 EXSR BAR$ZEILE    
  X  
C     MYTITELX BEGSR                
C       EXSR MYTITELXFORM              
C *     --------------------------------------
C *     Neue Zeile auf Smartphone ersetzen
C *     --------------------------------------
C     BR66 SCAN MYTITEL TPOS     — 77 78  
C     *IN78 DOWEQ *ON              
C     *IN66 COMP *ON       — — 78  
C   78 PFADXX COMP HTML       — — 78  
C   78   EVAL MYTITEL = %REPLACE(' ' :MYTITEL:TPOS:1)
C   N78   EVAL MYTITEL = %REPLACE(''  :MYTITEL:TPOS:1)
C       ADD 1 TPOS            
C     BR66 SCAN MYTITEL:TPOS TPOS     — 77 78  
C       ENDDO                
C       ENDSR                
C          
  X * SENDTITELBODY EXSR BAR$SEND    
  X  
C     MYTITELXBR66 BEGSR                
C       EXSR MYTITELXFORM              
C *     --------------------------------------
C *     Neue Zeile auf Smartphone ersetzen
C *     --------------------------------------
C     BR66 SCAN MYTITEL TPOS     — 77 78  
C     *IN78 DOWEQ *ON              
C     *IN66 COMP *ON       — — 78  
C   78 PFADXX COMP HTML       — — 78  
C   78   EVAL MYTITEL = %REPLACE(BRSP:MYTITEL:TPOS:1)
C   N78   EVAL MYTITEL = %REPLACE(''  :MYTITEL:TPOS:1)
C       ADD 1 TPOS            
C     BR66 SCAN MYTITEL:TPOS TPOS     — 77 78  
C       ENDDO                
C       ENDSR                
C          
  X * FORMSUCHE2 EXSR BAR$FORM    
  X * FORMSUCHE2 EXSR BAR$FORM    
  X * FORMSUCHE2 EXSR BAR$FORM    
  X * FORMSUCHE2 EXSR BAR$FORM    
  X * FORMARTPN EXSR BAR$FORM    
  X * FORMARTPN EXSR BAR$FORM    
  X * FORMARTPN EXSR BAR$FORM    
  X * FORMARTPN EXSR BAR$FORM    
  X * FORMARTPN EXSR BAR$FORM    
  X * LINKINPUT2 EXSR BAR$FORM    
  X * FRAME EXSR BAR$FRAME    
  X * LINKFINAME EXSR BAR$LINK    
  X * LINKFILES EXSR BAR$LINK    
  X * LISTEFILES EXSR BAR$LISTE    
  X * SENDTITEL2 EXSR BAR$SEND    
  X * SENDTITELBODY EXSR BAR$SEND    
  X * CRTQUERY EXSR BAR$SID    
  X * CRTQUERY EXSR BAR$SID    
  X * SRCLINKINT3 EXSR BAR$SRC    
  X * TEXTLINK EXSR BAR$TEXT    
  X * TEXTLINK EXSR BAR$TEXT    
  X * MYTITELX EXSR BAR$TEXT    
  X * MYTITELXBR66 EXSR BAR$TEXT    
  X * MYTITELXENV EXSR BAR$TEXT    
  X  
C     MYTITELXFORM BEGSR                
C     *BLANKS IFNE MYTITEL              
C *     --------------------------------------
C *     Zeichen & durch &amp; ersetzen
C *     --------------------------------------
C       CLEAR   CHAR2            
C       CLEAR   CHAR5            
C     '&' SCAN MYTITEL TPOS     — 77 78  
C     *IN78 DOWEQ *ON              
C     *IN36 IFEQ *OFF              
C       SUBST(P) MYTITEL:TPOS CHAR2            
C       SUBST(P) MYTITEL:TPOS CHAR5            
C       ENDIF                
C     '&#' IFNE CHAR2              
C     '@' OREQ CHAR5              
C     *IN36 ANDEQ *ON              
C       EVAL MYTITEL = %REPLACE('&amp;':MYTITEL:TPOS:1)
C       ENDIF                
C       ADD 1 TPOS            
C     '&' SCAN MYTITEL:TPOS TPOS     — 77 78  
C       ENDDO                
C *     --------------------------------------
C *     Zeichen @ durch @ ersetzen
C *     --------------------------------------
C     '@' SCAN MYTITEL TPOS     — 77 78  
C     *IN78 DOWEQ *ON              
C       EVAL MYTITEL = %REPLACE('@':MYTITEL:TPOS:1)
C       ADD 1 TPOS            
C     '@' SCAN MYTITEL:TPOS TPOS     — 77 78  
C       ENDDO                
C *     --------------------------------------
C *     Zeichen § durch &sect; ersetzen
C *     --------------------------------------
C     '§' SCAN MYTITEL TPOS     — 77 78  
C     *IN78 DOWEQ *ON              
C       EVAL MYTITEL = %REPLACE('&sect;':MYTITEL:TPOS:1)
C       ADD 1 TPOS            
C     '§' SCAN MYTITEL:TPOS TPOS     — 77 78  
C       ENDDO                
C *     --------------------------------------
C *     Zeichen " durch &quot; ersetzen
C *     --------------------------------------
C     '"' SCAN MYTITEL TPOS     — 77 78  
C     *IN78 DOWEQ *ON              
C       EVAL MYTITEL = %REPLACE('&quot;':MYTITEL:TPOS:1)
C       ADD 1 TPOS            
C     '"' SCAN MYTITEL:TPOS TPOS     — 77 78  
C       ENDDO                
C *     --------------------------------------
C *     Zeichen < durch &lt; ersetzen
C *     --------------------------------------
C     '<' SCAN MYTITEL TPOS     — 77 78  
C     *IN78 DOWEQ *ON              
C       EVAL MYTITEL = %REPLACE('&lt;':MYTITEL:TPOS:1)
C       ADD 1 TPOS            
C     '<' SCAN MYTITEL:TPOS TPOS     — 77 78  
C       ENDDO                
C *     --------------------------------------
C *     Zeichen > durch &gt; ersetzen
C *     --------------------------------------
C     '>' SCAN MYTITEL TPOS     — 77 78  
C     *IN78 DOWEQ *ON              
C       EVAL MYTITEL = %REPLACE('&gt;':MYTITEL:TPOS:1)
C       ADD 1 TPOS            
C     '>' SCAN MYTITEL:TPOS TPOS     — 77 78  
C       ENDDO                
C       ENDIF                
C       ENDSR                
C          
  X * TEXTLINK EXSR BAR$TEXT    
  X  
C     MYTITELXENV BEGSR                
C       EXSR MYTITELXFORM              
C     *BLANKS IFNE MYTITEL              
C     *IN84 ANDEQ *ON              
C     *IN68 ANDEQ *OFF              
C *     --------------------------------------
C *     Zeichen . durch ​ ergänzen
C *     --------------------------------------
C     '.' SCAN MYTITEL TPOS     — 77 78  
C     *IN78 DOWEQ *ON              
C       EVAL MYTITEL = %REPLACE('.​':MYTITEL:TPOS:1)
C       ADD 1 TPOS            
C     '.' SCAN MYTITEL:TPOS TPOS     — 77 78  
C       ENDDO                
C *     --------------------------------------
C *     Zeichen : durch ​ ergänzen
C *     --------------------------------------
C     ':' SCAN MYTITEL TPOS     — 77 78  
C     *IN78 DOWEQ *ON              
C       EVAL MYTITEL = %REPLACE(':​':MYTITEL:TPOS:1)
C       ADD 1 TPOS            
C     ':' SCAN MYTITEL:TPOS TPOS     — 77 78  
C       ENDDO                
C *     --------------------------------------
C *     Zeichen , durch ​ ergänzen
C *     --------------------------------------
C     ',' SCAN MYTITEL TPOS     — 77 78  
C     *IN78 DOWEQ *ON              
C       EVAL MYTITEL = %REPLACE(',​':MYTITEL:TPOS:1)
C       ADD 1 TPOS            
C     ',' SCAN MYTITEL:TPOS TPOS     — 77 78  
C       ENDDO                
C *     --------------------------------------
C *     Zeichen + durch ​ ergänzen
C *     --------------------------------------
C     '+' SCAN MYTITEL TPOS     — 77 78  
C     *IN78 DOWEQ *ON              
C       EVAL MYTITEL = %REPLACE('+​':MYTITEL:TPOS:1)
C       ADD 1 TPOS            
C     '+' SCAN MYTITEL:TPOS TPOS     — 77 78  
C       ENDDO                
C *     --------------------------------------
C *     Zeichen % durch ​ ergänzen
C *     --------------------------------------
C     '%' SCAN MYTITEL TPOS     — 77 78  
C     *IN78 DOWEQ *ON              
C       EVAL MYTITEL = %REPLACE('%​':MYTITEL:TPOS:1)
C       ADD 1 TPOS            
C     '%' SCAN MYTITEL:TPOS TPOS     — 77 78  
C       ENDDO                
C *     --------------------------------------
C *     Zeichen / durch ​ ergänzen
C *     --------------------------------------
C     '/' SCAN MYTITEL TPOS     — 77 78  
C     *IN78 DOWEQ *ON              
C       EVAL MYTITEL = %REPLACE('/​':MYTITEL:TPOS:1)
C       ADD 1 TPOS            
C     '/' SCAN MYTITEL:TPOS TPOS     — 77 78  
C       ENDDO                
C *     --------------------------------------
C *     Zeichen /​ in ​/ ändern
C *     --------------------------------------
C     '/​' SCAN MYTITEL TPOS     — 77 78  
C     *IN78 DOWEQ *ON              
C       EVAL MYTITEL = %REPLACE('​/':MYTITEL:TPOS:8)
C       ADD 1 TPOS            
C     '/​' SCAN MYTITEL:TPOS TPOS     — 77 78  
C       ENDDO                
C *     --------------------------------------
C *     Zeichen /​/ in // ändern
C *     --------------------------------------
C     '/​/' SCAN MYTITEL TPOS     — 77 78  
C     *IN78 DOWEQ *ON              
C       EVAL MYTITEL = %REPLACE('//':MYTITEL:TPOS:9)
C       ADD 1 TPOS            
C     '/​/' SCAN MYTITEL:TPOS TPOS     — 77 78  
C       ENDDO                
C       ENDIF                
C       ENDSR                
C          
  X * FRAME EXSR BAR$FRAME    
  X * WEITER EXSR BAR$NEUED    
  X * WEITER2 EXSR BAR$NEUED    
  X * JAVASCRIPT$ EXSR BAR$SCRIPT    
  X * CRTQUERY EXSR BAR$SID    
  X * WWWIN EXSR BAR$TEXT    
  X  
C     MYTITELXQUERY BEGSR                
C     *BLANKS IFNE MYTITEL              
C *     --------------------------------------
C *     Zeichen % durch %25 ersetzen
C *     --------------------------------------
C     '%' SCAN MYTITEL TPOS     — 77 78  
C     *IN78 DOWEQ *ON              
C       EVAL MYTITEL = %REPLACE('%25':MYTITEL:TPOS:1)
C       ADD 1 TPOS            
C     '%' SCAN MYTITEL:TPOS TPOS     — 77 78  
C       ENDDO                
C *     --------------------------------------
C *     Zeichen & durch %26 ersetzen
C *     --------------------------------------
C     '&' SCAN MYTITEL TPOS     — 77 78  
C     *IN78 DOWEQ *ON              
C       EVAL MYTITEL = %REPLACE('%26':MYTITEL:TPOS:1)
C       ADD 1 TPOS            
C     '&' SCAN MYTITEL:TPOS TPOS     — 77 78  
C       ENDDO                
C *     --------------------------------------
C *     Zeichen # durch %23 ersetzen
C *     --------------------------------------
C     '#' SCAN MYTITEL TPOS     — 77 78  
C     *IN78 DOWEQ *ON              
C       EVAL MYTITEL = %REPLACE('%23':MYTITEL:TPOS:1)
C       ADD 1 TPOS            
C     '#' SCAN MYTITEL:TPOS TPOS     — 77 78  
C       ENDDO                
C *     --------------------------------------
C *     Zeichen + durch %2B ersetzen
C *     --------------------------------------
C     '+' SCAN MYTITEL TPOS     — 77 78  
C     *IN78 DOWEQ *ON              
C       EVAL MYTITEL = %REPLACE('%2B':MYTITEL:TPOS:1)
C       ADD 1 TPOS            
C     '+' SCAN MYTITEL:TPOS TPOS     — 77 78  
C       ENDDO                
C *     --------------------------------------
C *     Zeichen " durch %22 ersetzen
C *     --------------------------------------
C     '"' SCAN MYTITEL TPOS     — 77 78  
C     *IN78 DOWEQ *ON              
C       EVAL MYTITEL = %REPLACE('%22':MYTITEL:TPOS:1)
C       ADD 1 TPOS            
C     '"' SCAN MYTITEL:TPOS TPOS     — 77 78  
C       ENDDO                
C *     --------------------------------------
C *     Zeichen < durch %3C ersetzen
C *     --------------------------------------
C     '<' SCAN MYTITEL TPOS     — 77 78  
C     *IN78 DOWEQ *ON              
C       EVAL MYTITEL = %REPLACE('%3C':MYTITEL:TPOS:1)
C       ADD 1 TPOS            
C     '<' SCAN MYTITEL:TPOS TPOS     — 77 78  
C       ENDDO                
C *     --------------------------------------
C *     Zeichen > durch %3E ersetzen
C *     --------------------------------------
C     '>' SCAN MYTITEL TPOS     — 77 78  
C     *IN78 DOWEQ *ON              
C       EVAL MYTITEL = %REPLACE('%3E':MYTITEL:TPOS:1)
C       ADD 1 TPOS            
C     '>' SCAN MYTITEL:TPOS TPOS     — 77 78  
C       ENDDO                
C       ENDIF                
C       ENDSR                
C          
  X * WWWQUERYANKER EXSR BAR$TEXT    
  X * WWWQUERYANKER EXSR BAR$TEXT    
  X  
C     MYTITELXQUERY2 BEGSR                
C     *BLANKS IFNE MYTITEL              
C *     --------------------------------------
C *     Zeichen &# durch %26%23 ersetzen
C *     --------------------------------------
C     '&#' SCAN MYTITEL TPOS     — 77 78  
C     *IN78 DOWEQ *ON              
C       EVAL MYTITEL = %REPLACE('%26%23':MYTITEL:TPOS:2)
C       ADD 1 TPOS            
C     '&#' SCAN MYTITEL:TPOS TPOS     — 77 78  
C       ENDDO                
C       ENDIF                
C       ENDSR                
C          
  X * FRAME EXSR BAR$FRAME    
  X * WEITER EXSR BAR$NEUED    
  X * WEITER2 EXSR BAR$NEUED    
  X * JAVASCRIPT$ EXSR BAR$SCRIPT    
  X * CRTQUERY EXSR BAR$SID    
  X * WWWQUERYANKER EXSR BAR$TEXT    
  X * WWWQUERYANKER EXSR BAR$TEXT    
  X * WWWIN EXSR BAR$TEXT    
  X  
C     MYTITELXUTF8 BEGSR                
C     *BLANKS IFNE MYTITEL              
C *     --------------------------------------
C *     Parameter in UTF-8 umsetzen
C *     --------------------------------------
C     'Safari' SCAN AGENT       — 77 78  
C   N78 'Chrome' SCAN AGENT       — 77 78  
C   N78 'Firefox' SCAN AGENT       — 77 78  
C     *IN78 IFEQ *ON              
C *     --------------------------------------
C *     Parameter in UTF-8 umsetzen
C *     --------------------------------------
C     ' ' CHECKR MYTITEL ENVLEN            
C     ENVLEN IFGE 1              
C     ENVLEN SUBST MYTITEL ENVRCV            
C       CALLP(E) UTF8X ( ENVRCV:
C         ENVRCVLEN:ENVLEN:'>':'8')
C     ENVLEN IFGE 1              
C     ENVLEN ANDLE ENVRCVLEN              
C     ENVLEN SUBST(P) ENVRCV MYTITEL            
C       ENDIF                
C       ENDIF                
C *     --------------------------------------
C *     Parameter in UTF-8 umsetzen
C *     --------------------------------------
C     ' ' CHECKR MYTITEL ENVLEN            
C     ENVLEN IFGE 1              
C     ENVLEN SUBST MYTITEL ENVRCV            
C       CALLP(E) UTF8X ( ENVRCV:
C         ENVRCVLEN:ENVLEN:'>':'%')
C     ENVLEN IFGE 1              
C     ENVLEN ANDLE ENVRCVLEN              
C     ENVLEN SUBST(P) ENVRCV MYTITEL            
C       ENDIF                
C       ENDIF                
C       ENDIF                
C       ENDIF                
C       ENDSR                
C          
  X * JS2SRC EXSR BAR$SCRIPT    
  X * JS2SRC EXSR BAR$SCRIPT    
  X * JS2SRC EXSR BAR$SCRIPT    
  X * JS2SRC EXSR BAR$SCRIPT    
  X * JS2KAMERA EXSR BAR$SCRIPT    
  X * JS2KAMERA EXSR BAR$SCRIPT    
  X * JS2KAMERA EXSR BAR$SCRIPT    
  X * JS2KAMERA EXSR BAR$SCRIPT    
  X * JS2KAMERA EXSR BAR$SCRIPT    
  X * JS2KAMERA EXSR BAR$SCRIPT    
  X * JS2KAMERA EXSR BAR$SCRIPT    
  X * JS2CHAT EXSR BAR$SCRIPT    
  X * JS2CHAT EXSR BAR$SCRIPT    
  X * JS2CHAT EXSR BAR$SCRIPT    
  X * JS2CHAT EXSR BAR$SCRIPT    
  X * JAVASCRIPT$ EXSR BAR$SCRIPT    
  X * JAVASCRIPT$ EXSR BAR$SCRIPT    
  X * JAVASCRIPTSEC EXSR BAR$SCRIPT    
  X  
C     MYTITELXJS BEGSR                
C     *BLANKS IFNE MYTITEL              
C *     --------------------------------------
C *     Zeichen \ durch \\ ersetzen
C *     --------------------------------------
C     '\' SCAN MYTITEL TPOS     — 77 78  
C     *IN78 DOWEQ *ON              
C       EVAL MYTITEL = %REPLACE('\\':MYTITEL:TPOS:1)
C       ADD 2 TPOS            
C     '\' SCAN MYTITEL:TPOS TPOS     — 77 78  
C       ENDDO                
C *     --------------------------------------
C *     Zeichen " durch \" ersetzen
C *     --------------------------------------
C     '"' SCAN MYTITEL TPOS     — 77 78  
C     *IN78 DOWEQ *ON              
C       EVAL MYTITEL = %REPLACE('\"':MYTITEL:TPOS:1)
C       ADD 2 TPOS            
C     '"' SCAN MYTITEL:TPOS TPOS     — 77 78  
C       ENDDO                
C *     --------------------------------------
C *     Zeichen ' durch \' ersetzen
C *     --------------------------------------
C     '''' SCAN MYTITEL TPOS     — 77 78  
C     *IN78 DOWEQ *ON              
C       EVAL MYTITEL = %REPLACE('\''':MYTITEL:TPOS:1)
C       ADD 2 TPOS            
C     '''' SCAN MYTITEL:TPOS TPOS     — 77 78  
C       ENDDO                
C       ENDIF                
C       ENDSR                

2671 ms | Contact | Information | Aibo-Bar © 2005-2024