[Allegro] Version 35.7 (war ISBN)

[Bernhard Eversberg]

Am 10.08.2015 um 16:57 schrieb Thomas Berger:
> Meine Sorge ist meist, dass es nicht "2 oder 3" sondern "20 oder 30" 
> Prozent sein koennten, die unberuecksichtigt bleiben, und das waere 
> dann unverhaeltnismaessig wenig sachgerecht. 
Sie fallen von einem Extrem ins andere.
Schwanken wir jetzt nicht zwischen Paralyse und Paranoia,
sondern wandeln wir auf dem Pfad der Praktikabilität dazwischen.

Ansonsten verlieren Sie sich wieder in allerhand Konjunktiven, wo
unsere Leserschaft brauch- und anwendbare Lösungen erwartet.
Das Publikum ist des trock'nen Tons nun satt und will endlich
auch Taten sehen.

Zwei Dateien kann man sich holen:

   X getfile cat.api

   X getfile input.flx

Die Datei  cat.api  kopiert man ins eigene DbDir, wenn man
den unberührten Standard verwendet. Ansonsten muß man in der
eigenen cat.api folgende zwei Änderungen vornehmen:
(jeweils die vorhandenen Abschnitte durch diese ersetzen)

1. Bei Sprungmarke #-Ä   (Indexierung der #87)
----------------------
#-Ä    ISBN (ohne Pruefziffer!)
!u1 e" " P"Y" e"?Y" ,"_-__" p"|9" P{ 8 }

   13stellig mit 978- oder 979- : dann so lassen
!u1 +#87 f"ISBN " e" " P"zz" e17 c"^zz" p"y" c"y97?-" f"y" e15 "|9i"
   sonst 11stellig indexieren und 978- davor
!u1 f"ISBN " e11 "|9i978-"

#87 e0
!u1 f"ISBN " p"Y" B"Y97?-" f"Y" ,"_-__" e9 p{ 8 "~e1" }   ISBN auch in ALL
#+#

2. Bei Sprungmarke #-1  (Vorbearb. der Nutzereingabe f. Reg. 1)
----------------------
  **** Abschnitte fuer die Wandlung der Benutzereingabe ****
  (sog. Umcodierung)

#-µ    NEU V35.8 ISBN in 9-stellige Zahl wandeln, ohne Prfz.
!u1 p"Y" B"Y978" f"Y-" ,"_-__" e9
#+#

#-1   Eingabe fuer Reg.1
#u1 0 =A0 e0
!u1 +# i4,D i5,  b2 y2 "D "      Sonderpraefixe als Grossbuchstaben
!u1 +# i4,F i5,- b" " y2 "F-> "
!u1 +# i4,W i5,- b" " y2 "W-> "
!u1 +# c"zz " y2

#u1 +µ p"Y" B"Y978" f"Y-" ,"_-__" x">100000" e0

Etwaige Fehler und Verbesserungen bitte direkt an mich zwecks
Sichtung, Test und Umsetzung.

B.E.