*: $Id: u-usw.cpt 21625 2008-04-22 09:57:30Z ThB $
  *: # u-usw - Unterprogramme fuer die Darstellung unselbstaendiger Werke
  *:! u-usw.apt generiert aus u-usw.cpt (30.06.2011 22:35)
  *: #(v: Aufbereitung #704(#76),#706
  *: #(p: Aufbereitung #708
  *: --------------------------------------------------------------------
  *: Analyse der Spruenge, Unterprogramme und Includes:
  *: Unterprogramme: #(p, #(v
  *:  rel. Spruenge: +#J0a, +#J0b, +#J0c, +#J0h, +#ucc
  *:   Anwendervar.: #ucc, #ucd
  *:   Zwischenteile 3, 5
  *: --------------------------------------------------------------------
  $Id: u-usw.cpt 21625 2008-04-22 09:57:30Z ThB $
  # u-usw - Unterprogramme fuer die Darstellung unselbstaendiger Werke
  #(v: Aufbereitung #704(#76),#706
  #(p: Aufbereitung #708

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

  %%%%%
      % Fundstelle #708 aufbereiten
#(p   % Typische Nutzung
      %
      % #708 dcc p8 P>p Z

#ucc +#ucc dcc f32 F32 Acc
#cc Acc

#ucc +#J0a e" ;" e" :" x">0" Z
#ucc dcc
#)p

#J0a
#ucc +#J0b e" " c"S." Z
#ucc +#J0b e" " c"p." Z
#ucc +#J0a e" ;" e" :" c" "
#ucc dcc p"S. "
#)p

#J0a
#ucc e" ;" b" : " p5
#ucc dcc b" ; " p3
#)p

#J0b
#ucc dcc b" " p"S. "
#)p


  %%%%%
      % Band.Jahr(Jahr) ermitteln und optimieren
#(v   % Typische Nutzung:
      %
      % #>v
      % #ucc p", "

#nr dcc Z
#704 +#ucc e", " c"[ .]" Acc 
#704 +#ucc e", " x"<1500" Acc         % p"Vol. " 
#704 e", " Acc 

#ucc +#J0b dcd T"(" b"(" e")" x">1500" Acd
#76 p"(" P")" Acc
#ucc +#J0b T"(" b"(" e")" acd         % Jahr dabei
#nr +#J0h Z

#J0b    % Zaehlung enthaelt also etwas in Klammern
#ucc +#J0b e"(" F32 p"." T"[. ]" x"==cd" Z   % numerisch identisch!

#ucc +#J0c dcd c"." Z
 #ucc +#J0c e"(" x">1500" Z           % Verwechslungsgefahr
 #ucc dcd ,"_(_._" ,"_)__" f"." =cc   % umformatieren
#J0c
#nr +#J0h Z

#J0b
#ucc dcd u() F32 =cc             % Pleonasmus raus

#J0h
#704 b", " p", " Acc 

#706 +#J0h e" =" c" " p", " Acc
#706 e" =" p"," Acc
#J0h
#706 b" = " p" [" P"]" Acc    Heft
#)v

  ## Ende von u-usw ##
  *:
  *: --- Ende von u-usw.apt ---
  *:
  *:           INDEX
  *:           =====
  *:
  *: Unterprogramme
  *: #(p          23(!)
  *: #(v          53(!)
  *:
  *: Anwendervariable
  *: #ucc         27, 27(+), 27(d), 27(A), 28(A), 30, 31, 31(d), 35, 36, 37,
  *:      38, 38(d), 42, 43, 43(d), 47, 47(d), 58(d), 59(+), 59(A), 60(+),
  *:      60(A), 61(A), 63, 64(A), 65, 69, 71, 78, 78(=), 81(A), 83(A),
  *:      84(A), 86(A)
  *: #ucd         63(d), 63(A), 65(a), 69(x), 71(d), 78(d)
  *:
  *: lokale Spruenge
  *: +#J0a        30, 37
  *: +#J0b        35, 36, 63, 65, 69
  *: +#J0c        71
  *: +#J0h        66, 75, 83
  *: +#ucc        27, 59, 60
  *:
  *: Kategorien
  *: #704         59, 60, 61, 81
  *: #706         83, 84, 86
  *: #76          64
  *: #J0a         30(+), 34, 37(+), 41
  *: #J0b         35(+), 36(+), 46, 63(+), 65(+), 68, 69(+), 77
  *: #J0c         71(+), 74
  *: #J0h         66(+), 75(+), 80, 83(+), 85
  *:
  *: Zwischenteile
  *: 3            43
  *: 5            42