*: $Id: u-3nr.cpt 22816 2009-10-10 23:07:40Z ThB $
  *: # u-3nr - Unterprogramm fuer d-wrtf und d-htmpop: 
  *:! u-3nr.apt generiert aus u-3nr.cpt (30.06.2011 22:35)
  *: #(r : Anzeige #3nr
  *: --------------------------------------------------------------------
  *: Analyse der Spruenge, Unterprogramme und Includes:
  *: Unterprogramme: #(r
  *:   Sprungmarken: #-�, #-�
  *:    Spruenge zu: #+�, #+�
  *:  rel. Spruenge: +#J00, +#ucc
  *:   Anwendervar.: #ucc, #ucx, #uvf
  *:   Zwischenteile 50, 51, 52, 53, 54
  *: --------------------------------------------------------------------
  $Id: u-3nr.cpt 22816 2009-10-10 23:07:40Z ThB $
  # u-3nr - Unterprogramm fuer d-wrtf und d-htmpop: 
  #(r : Anzeige #3nr

  : $HeadURL: https://svn.extra.gymel.com/repos/allegro/acxt/enhancements/trunk/u-3nr.cpt $
  : s/repos/viewvc/ for browseable view in the URL above

  % Die Zwischenteile entsprechen denen fuer Definition Lists in HTML
  % guenstige Setzungen etwa
  % HTML                               RTF mit d-rtff  
  % 50=C '<dl>'                        50=C t61       50=C "\li850\fi-850 "
  % 51='</span></dt>' C '<dd>'         51=t111        51="\cf0 "
  % 52=C '<dt><span class="wendung">'  52=C t79       52=C "\cf6 "
  % 53='</dd>' C '<dd>'                53=""          53=""
  % 54='</dd>' C '</dl>' C             54=""          54=""


  %%%%%
      % Anzeige Wendungen in #3nr (Doppel-Unterfeldzeichen)
#(r   % Typische Nutzung
      %
      % #3nr C >r
#cc dvf dcc ,"_ ; __" p50 acc
 #cc +� I4,- dvf dcc acc
 #)r
#-�
#ucc i4, i6, y0 b3 e1 p"|" =vf+� Z     % gleicher Typ: Keine neue Wendung
#ucc +#J00 i4, i6, Z
#nr p"| " e2 =vf+� Z                     % gleicher Nicht-Typ: Keine neue Wendung

#J00
#nr p"siehe auch|rsiehe auch|b�bergeordnet|OOberbegriff|ffr�her|ssp�ter|aAlter Begriff|nNeuer Begriff|" B"#uvf" e"|" r18 p52
#nr +#ucc p": " E" " P51

#-�
#t53

    % evtl. Register fuer Verflip-ung (UP #(_ in u-rswk)
  #ucc y0 e2 p"s" B"" e1 dqt p"?" P>_ Aqt    % Register "s" sei Default

  % Verweistyp und SW-Typ bereinigen
#ucc i4, y0 b2 dcc acc
#ucc i4, y0 b2 dcc acc

#ucc e"" ,"_?_ / _" f" /" F32
    % alternativ Flip (UP #(7 in u-hflip/u-wflip/u-xflip)
  #ucc dcx e"" ,"_?_ / _" f" /" F32 Acx
  #urh P":" P>7 acx                 % Flip produzieren

#ucc +� dcc dcx b"" f32 acc
#t54
#)r


  ## Ende von u-3nr ##
  *:
  *: --- Ende von u-3nr.apt ---
  *:
  *:           INDEX
  *:           =====
  *:
  *: Unterprogramme
  *: #(r          33(!)
  *:
  *: Sprungmarken
  *: #-� <144>    39(!), 63
  *: #-� <145>    40, 42, 48(!)
  *:
  *: Anwendervariable
  *: #ucc         36(d), 36(a), 40, 41, 46(+), 55, 55(d), 55(a), 56, 56(d),
  *:      56(a), 58, 63, 63(d), 63(a)
  *: #ucx         63(d)
  *: #uvf         36(d), 40(=), 42(=), 45(B)
  *:
  *: lokale Spruenge
  *: +#J00        41
  *: +#ucc        46
  *:
  *: Kategorien
  *: #J00         41(+), 44
  *:
  *: Zwischenteile
  *: 50           36
  *: 51           46
  *: 52           45
  *: 53           49
  *: 54           64