Re(2): sortierte liste

[Winfried Goss]

Uuups, zu schnell. #u2 sollte natürlich nicht umcodiert werden.

Sorry,
WG

-------------------------- 8< ------------------------------

  S-EJAHR.APR   Sortieren nach Jahr (#76)

  981229      Winfried Goss

pn="Sortierung Jahr (#76)"

  ----------- Konstanten --------------------------------------------------

zl=0          Zeilenlaenge unbegrenzt
ks=1          Beginn beim ersten Zeichen hinter #
ke=0          Kategorie-Ende = 0
as=h0         Aufnahme-Start
ae=13 10      Aufnahme-Ende

  ----------- Anweisungsteil -----------------------------------------------

#hi +b e0 #zz 0      Unteraufnahmen ohne Sortierschluessel

#76 +a e0 #zz 0      Jahr als Sortierschluessel aufbereiten
#t{ "u1  ohne jahr" 0 }     falls Kategorie nicht belegt
#t{ "u2  ohne Jahr" 0 }
#+b

#-a    Sortierschluessel
#76 b3 x"*1" e"." "u1 "     Erscheinungsjahr numerisch
#76 b3 "u2 "         bzw. in Druckform

#-b    Kategorienausgabe
tselect       SELECT.APT enthaelt die Liste der auszugebenden Kategorien
  (S-KURZ, S-MITTEL, S-LANG, S-VOLL)
#+#