APR - Anzeige von Kategorien nach einem Unterprogramm funktioniert nicht
GDachnowsky at t-online.de
GDachnowsky at t-online.de
Do Aug 14 13:19:19 CEST 2003
Bernhard Eversberg schrieb:
> On 14 Aug 03, at 11:50, GDachnowsky at t-online.de wrote:
>
> >
> > nach dem Unterprogramm #(4 werden #87 und #82 nicht
> angezeigt. Wenn ich
> > aber #85. deaktiviere werden #87 und #82 angezeigt.
> >
> > Eigentlich will ich, dass #85. wie in #(4 beschrieben
> angezeigt wird
> > und danach eben auch #87 und #82.
> > ...
> > #77 p". - "
> > #85. ++ >4 m>4 ----- neu bbaw polzin 15.07.02 -----
> > #87 C p"ISBN " ----- neu bbaw dachnowsky 12.08.03
> ----
> > #82 C p" NE: " ----- neu bbaw dachnowsky 12.08.03
> ----
> ...
>
> Ist es PRESTO oder a99? Welche Version?
>
> Das Problem ist hier mit a99 nicht nachvollziehbar,
> obwohl ich genau diesen
> Abschnitt bei mir einkopiert habe.
>
>
Lieber Herr Eversberg,
das Problem taucht unter PRESTO mit V21 auf.
Ich kopiere mal die ganze .APR hier mit hinein.
mfG
Gangolf-T. Dachnowsky
Kartendruck-Parameter, primr fr umgewandelte Pica-Daten
(insbes. fr umgewandelte Daten mit PICA.AIM + I-PICA.APR)
P-KARTE.APR 941221 / 000425
------------------------------------------------------------------------------
-***- Anmerkungen BBAW Akademiebibliothek:
-------------------------------***-
------------------------------------------------------------------------------
----- Diese APR stammt der P-KARTE.APR der Version 22
-----
----- Anpassungen in Vorlage _p-karte.apr nur:
----- - Zeilen mit hierarchischen Kategorien deaktiviert, sonst bei
uns nicht lauffaehig
----- - Korrektur (Th. Berger) nach -j: #00 +j e"+" F" " P"+" |93
(muss e"=" statt e"+" sein)
-----
----- weitere stets markieren
-----
----- - 2 Dateien verwenden (und pflegen*):
----- - _p-k??b.apr für _B_ildschirmanzeige
----- - _p-k??k.apr für _K_artendruck
----- einziger Unterschied: fuer Kartendruck sind alle
Farbdefinitionen deaktiviert
-----
----- *d.h. bei Aenderungen i.d.R. so verfahren: *b.apr
bearbeiten, nach *k.apr
----- kopieren und in letzterer Farb-Zwischenteile
("Bildsschirmattribute") deaktivieren
-----
------------------------------------------------------------------------------
pn="Kartendruck"
************ Grundwerte *******************************
zl=54 fr Kartendruck
zi=0 keine Einrckung der Folgezeilen
fl=12 Formular-Lnge: Anzahl Zeilen je Karte
fm=2 Karten-Modus: keine Einzelkarten fr die Bnde -----
deaktiviert bbaw polzin 18.07.02 -----
1 wenn Einzelkarten gewnscht) ----- deaktiviert bbaw
polzin 18.07.02 -----
fm=1 ----- neu bbaw polzin 18.07.02 (keine Einzelkarten, lt. Handbuch)
-----
fb=13 10 10 10 Kartenvorschub : 3 Leerzeilen ----- deaktiviert
bbaw polzin 18.07.02 -----
fb=12 ------ statt voriger Zeile eingefuegt bbaw polzin 30.07.02
-------
macht zusammen 18 Zeilen
i4=0
ff=1 wenn Fusszeilen gewuenscht
fr Laser-Kartendrucker:
ab=27 38 108 49 79 27 38 108 49 53 69 27 38 108 50 72 27 40 115 49 50
72 27 40 49 48 85 27 38 97 56 48 76
Landscape 15 Zeilen Rand Fronteinzug 12 char/inch
zeichensatz pc8 linker rand 80z
(sonst 52 statt 49)
tPRINTER Druckertreiber PRINTER.APT laden
t_p-gra ------ statt voriger Zeile eingefuegt bbaw polzin 10.07.02,
nur fuer GRA (und dort nur Kartenversion!) aktivieren -------
(evtl ueber CockPit "Optionen / Drucker" anderen
auswaehlen)
dx=1
as=""
NEU: fa fr Fortsetzungskarten:
fa=" ..." $1 &54 K ")" 0 setze Kartennummer auf Position 54 mit
")" dahinter
fa=" [Forts.]" $1 &59 K ")" 0 ----- statt voriger Zeile bbaw polzin
26.11.02 (Pos. bewusst ausserhalb) -----
(fa wird an der durch #wh markierten Stelle eingesetzt,
s.u.)
p @ " "
60="#4" C HK-Wert
61="#2" C AK
62="#1" C OK
63="#1" C
************* Kopfbefehle ***************************
Groábuchstaben als Sprungmarken
****** Hauptkarte, wenn es ein normaler Titelsatz ist ************
(Zeile entsprechend oft kopieren, wenn standardmssig mehrere HK
gewnscht)
ak=zz+@ dieser Sprung wird IMMER ausgefhrt (Sonderfall zz)
ak=zz+@ Ausfhrung 2mal
standardmssige Nebeneintragungen
(nichtgewnschte Zeilen inaktivieren: Leerzeichen davorsetzen)
********** automatisch erzeugbare Kpfe *********************
Inaktivieren, was nicht gewnscht ist:
Personen
ak=40.";"+A 41.";"+J 42+J 43+J 44+J 45+J 46+J 47+J 59.+F
ak=50.+J 51.+J 52+J 53+J 54+J 55+J
EST:
ak=22+O ----- aktiviert bbaw polzin 15.07.02 -----
zustzliche Sachtitel:
ak=23.+S 24.+S ----- aktiviert bbaw polzin 15.07.02 -----
Krperschaften:
ak=60.+K 61.+K ----- aktiviert bbaw polzin 15.07.02 -----
Serientitel
ak=85.+G
Kongresse
ak=83.+K
Schlagwrter:
ak=31.";"+S
*********************** Lokale Kpfe aus 3541 ********************
ak=27.+L Vorbereitung der Kopftexte (Zwischenspeich. in #ulk)
ak=ulk""+U Durchfhrung, d.h. Produktion der Lokalkarten
********* ZWISCHENTEILE 1 - 78 *************
1=". " Interpunktion
2=", "
3="; "
3=" ; " ----- statt voriger Zeile bbaw polzin 15.07.02 -----
4=C
5=" : "
7=" = "
8=". - "
9=" / "
10=C "(" gedacht fr Serientitel (neue Zeile, Klammer auf)
10=". - (" dieses nehmen, wenn er nicht auf neuer Zeile stehen
soll
11=")"
12=C C
13=C " " fr #74 (Ersch.Ort) gedacht, mit Zl.vorschub
13=". - " dieses nehmen, wenn er keine neue Zeile haben soll
Funktionsbezeichnungen (siehe Unterprog #(F )
nicht mehr als Zwischenteile wg. Druckerzeichensatz
30=C "Kongr.: "
***** 71-79 : Bildschirmattribute ********************
***** Farben: (wegnehmen, wenn nicht gewnscht) *****
wenn Bildschirmanzeige : dx=1 setzen und diese Zeilen
aktivieren
wenn Kartendruck gewnscht: diese Zeilen wegnehmen
71=27 91 49 59 51 49 109 rot
72=27 91 49 59 51 50 109 grn
73=27 91 49 59 51 51 109 gelb
74=27 91 49 59 51 52 109 blau
75=27 91 48 59 51 51 109 magenta
76=27 91 48 59 49 59 51 54 109 reset / hellblau (normal)
77=27 91 53 59 51 55 109 weiss mit BLINK
78=27 91 49 59 51 55 109 weiss
71=""
72=""
73=""
74=""
75=""
76=""
77=""
78=""
----- Farbattribute fuer Bildschirm aktiviert bbaw polzin 15.07.02;
fuer Kartendruck wieder deaktivieren! -----
****** Hauptteil : Konstr. der "Einheitskarte" ****
** Durchlauf ab hier fr Hauptsatz und Unterstze **
flag #utt ist "1", whrend eine Nachladung bearb wird, sonst
"2"
#-@
zuerst die besonderen Satztypen: (z.B. #6n Krp.Stammsatz)
#8n +R e0
#3n +W e0
#3t +T e0
#4n +P e0
#6n +N e0
#8n +R e0
#2n +E e0
#dt dlk e0 (nur um Variable #ulk zu lschen)
Bei hierarchischen Stzen beginnt die Bearbeitung der
Unterstze jeweils automatisch hier, bei der ersten #-Zeile,
deshalb gibt es hier einen Sprungbefehl:
#hi +g e0 denn fr Bnde eines normalen mehrbndigen Werkes (dann
ist #hi
besetzt) soll das Folgende nicht gemacht werden
#20 +a e0
#21 +a e0
#84 +a e0
#+- ohne #20 oder #21 passiert nichts
prfe: gibt es einen bergeordneten Satz?
Wenn es bergeordnete Einheiten gibt, werden diese zuerst
geladen:
(in #00 kommt dann '+' vor, dieser Teil wird zuerst
abgeschnitten,
dann im Index 9 nach der restlichen Id.Nr. gesucht)
#-a Nachladung ber Register 9
#96 +\ b"HK=" e" " p"#" wenn HK= in #96 (3540)
#t60 HK ausgeben
#-\ hierher von Kopfbearbeitung (siehe unten #-A usw.)
#00 +\ c"+" t"+" |90 rekursiv! bis kein '+' mehr vorkommt
#09 +\ t"+" |90 rekursiv! bis kein '+' mehr vorkommt
#<+b war wirklich was geladen worden?, dann #-b
Nun sind evtl. mehrere bergeordnete Stufen geladen
(aufgestapelt)
#+k NORMAL: nein (zurckschalten mit #< ging nicht), dann #-k
"Kropf"
jetzt arbeiten wir die berordnungen ab:
#-b
#<^ zuerst wieder hochschalten (mit #<+b war 1 runtergeschaltet
worden!)
Der oberste, d.h. zuletzt geladene Satz (Hauptaufnahme) wird
ausgegeben
#t{ t71 "^b^" t76 } ----- Debugging-Marke bbaw polzin 17.07.02
-----
#40 +#90 e" = " e";" F" " P": " erste Zeile: 1.Verf. und Signatur
#60 +#90 e"[_ =]" F" " E60 P": " ----- neu bbaw polzin 17.07.02 -----
!20 e" : " U E40 oder Anfang des Sachtitels -----
deaktiviert bbaw polzin 15.07.02 -----
#90 +n >S e0 Signatur mit UP #(S bearbeiten
#t4
#-n
#t4 ----- neu bbaw polzin 15.07.02 -----
#nr p"1" e1 =tt Z besetze #utt als flag mit "1"
Nach Kropfbearbeitung hier weiter:
#-H Programmteil fr Aufnahme-Korpus
#18 e" : "
#hi +#18 e0
#wh
#18 b" : " 5
#18 +#70 e0 P8
----- alles zwischen -H und hier (letzte #18er) deaktiviert polzin
bbaw 19.07.02 -----
----- und im folgenden durch D-1-Typ ersetzt: -----
#18 e" : "
#wh
#18 b" : " p5
#18 +#71 e0 #69 8 #72 1 #zz 8
#18 +#71 e0 #zz 8 ----- statt voriger Zeile bbaw polzin 19.07.02
-----
----- Ende der Ersetzung D-1-Typ bbaw polzin 19.07.02 -----
#19 e" : "
#hi +#19 e0
#wh
#19 b" : " 5
#19 +#40 e0 #69 9 #zz 8
#19 +#39 e0 #69 9 #zz 8 ----- statt voriger Zeile bbaw polzin 15.07.02
-----
#20 e" : " #20 5 #25 0 #69 9 #zz 8
#hi +#20 e0
#wh Wiederholungsmarke: bei Fortsetz.karten bis hier
wiederholen
#20 b" : " #25 0 #69 9 #zz 8
#25 5 #24 0 #69 9 #zz 8 ----- deaktiviert bbaw polzin 15.07.02
-----
#24 ++ p7 #24z 7 #69 9 #zz 8 ----- deaktiviert bbaw polzin 15.07.02
-----
#-i
#t{ t71 "^i^" t76 } ----- Debugging-Marke bbaw polzin 17.07.02
-----
#39 +#70 P8
#t{ t71 "^i2^" t76 } ----- Debugging-Marke bbaw polzin 17.07.02
-----
#40 ++ >K m>k #40z 3 #69 3 #70 0 #76 8 #zz 0
#60 0 #69 3 #76 8
#41 ++ >K m>k #412 3 #69 >l #zz >m
#42 e0
#42 >K #69 >l #zz >m Die Unterprogramme machen folgendes:
#43 e0
#43 >K #69 >l #zz >m #(K macht die Invertierung "Vorname
Name"
#44 e0
#44 >K #69 >l #zz >m #(l : "[Funktionsbez.]; "
hintersetzen
#45 e0
#45 >K #69 >l #zz >m #(m : "[Funktionsbez.]. - "
#46 e0
#46 >K #69 >l #zz >m wenn also ein weiterer Personen- oder
#47 e0
#47 >K #69 >l #zz >m Krperschaftsname folgt, wird "; " als
#50 e0
#50 >K #69 >l #zz >m Postfix ausgegeben, sonst ". - "
#51 e0
#51 >K #69 >l #zz >m
#52 e0
#52 >K #69 >l #zz >m
#53 e0
#53 >K #69 >l #zz >m
#54 e0
#54 >K #69 >l #zz >m
#55 e0
#55 >K #69 >l #zz >m
#56 e0 ----- neu bbaw polzin 15.07.02 -----
#56 >K #69 >l #zz >m ----- neu bbaw polzin 15.07.02 -----
#57 e0 ----- neu bbaw polzin 15.07.02 -----
#57 >K #69 >l #zz >m ----- neu bbaw polzin 15.07.02 -----
#58 e0 ----- deaktiviert bbaw polzin 02.08.02 -----
#58 >K #69 >l #zz >m ----- deaktiviert bbaw polzin 02.08.02 -----
#60a e0
#60a 0 #69 3 #zz 8
#61 e0
#61 0 #69 3 #zz 8
#61a e0
#61a 0 #69 3 #zz 8
#61b e0
#61b 0 #69 3 #zz 8
#61c e0
#61c 0 #69 3 #zz 8
#t{ t71 "^ia^" t76 } ----- Debugging-Marke bbaw polzin 17.07.02
-----
#70 +#83 e0 wenn #70, dann #71 bis #77 bergehen
#t{ t71 "^ib^" t76 } ----- Debugging-Marke bbaw polzin 17.07.02
-----
#70c +#83 e0 oder #70c
#t{ t71 "^ic^" t76 } ----- Debugging-Marke bbaw polzin 17.07.02
-----
#70i +#83 e0 oder #70i
#t{ t71 "^id^" t76 } ----- Debugging-Marke bbaw polzin 17.07.02
-----
#71 e0
#t{ t71 "^ie^" t76 } ----- Debugging-Marke bbaw polzin 17.07.02
-----
#71 0 #75 0 #77 8 #zz 0
#74 e0
#74 +#75 e" " p13 #75 0 #76 2 #77 8 #zz 0
#75 e0
#75 ": " #76 2 #77 8 #zz 0
#76 e0
#76 0 #77 8 #zz 0
#77 e0
#77
#83 ++ 30 #833 4 #zz 1
******** Quellenangabe bei Aufstzen ***********
man hat #70 Quelle
oder #70 _krzel
oder #70iISSN der Zeitschrift
oder #70cCODEN der Zetischrift
#70 +#8n i4,_ e";" F" " P" " y1 |52 wenn #70 _krzel : nachladen
#70 +#70X e";" C p"In: " wenn #70 text vorkommt, ausgeben,
weiter bei #702
#70c +#8n e5 p"_" P" " |52 in #70c steht CODEN?
danach wird im Index 5 gesucht und der Satz
geladen.
#70i +#8n e8 p"_" P" " |52 wenn kein CODEN, dann ISSN?
#+ nichts davon: weiter bei #-
#8n +#70X C p"In: " der geladene Ansetzungstitel aus #8n wird
genommen
hier #8n1... einsetzen, wenn Zitiertitel 1 u.a. gewnscht!
#20 C e" :" p"In: " wenn #8n nicht besetzt, dann #20
#70X nur als Sprungmarke
#< zurckschalten, dann die Aufsatzdaten
#70 + b";" f" " p" ; " #70 titel ; heft... ODER:
#702 p" [" P"]" ELand diese Angaben knnten hier beliebig anders
#t{ " ; " } zusammengesetzt werden
#704 Band
#76 p"(" P")" Jahr
#706 Heft
#708 ", S."
#-
#t88 kursiv ein
Serientitel alle gleich behandeln
#85. ++ >4 m>4
wenn in #84 eine Stammsatznummer steht: nachladen und nach #-u
(unselbstndige Beitrge aus Sammelbnden) *******************
#84 +u i4,_ B"_" e";" F" " |90 #84 _IdNr
#84 +q C e";" F" " p"In: " #84 Titel des Sammelbandes
#t87 kursiv aus
#81 C ----- neu bbaw polzin 15.07.02 -----
#81a C ----- neu bbaw polzin 15.07.02 -----
#81b C ----- neu bbaw polzin 15.07.02 -----
#81c C ----- neu bbaw polzin 15.07.02 -----
#81d C ----- neu bbaw polzin 15.07.02 -----
#81e C ----- neu bbaw polzin 15.07.02 -----
#81f C ----- neu bbaw polzin 15.07.02 -----
#81g C ----- neu bbaw polzin 15.07.02 -----
#81h C ----- neu bbaw polzin 15.07.02 -----
#81i C ----- neu bbaw polzin 15.07.02 -----
#81j C ----- neu bbaw polzin 15.07.02 -----
#87 C p"ISBN "
#88 C p"ISSN " ----- neu bbaw polzin 15.07.02 -----
#23 ++ p{ C "Nebent.: " } m"; "
#23 p{ C " NT: " } ----- statt voriger Zeile bbaw polzin 17.07.02
-----
#23a p{ C " NT: " } ----- statt voriger Zeile bbaw polzin 17.07.02
-----
#23b p{ C " NT: " } ----- statt voriger Zeile bbaw polzin 17.07.02
-----
#23c p{ C " NT: " } ----- statt voriger Zeile bbaw polzin 17.07.02
-----
#22 p{ C "EST: " }
#19 +#24Z e0 ------ (24 nur falls kein 19) neu bbaw polzin
12.07.02 ------
#24 p{ C " PT: " } ----- statt voriger Zeile bbaw polzin 17.07.02
-----
#24a p{ C " PT: " } ----- statt voriger Zeile bbaw polzin 17.07.02
-----
#24b p{ C " PT: " } ----- statt voriger Zeile bbaw polzin 17.07.02
-----
#24c p{ C " PT: " } ----- statt voriger Zeile bbaw polzin 17.07.02
-----
#24Z e0 ------ neu wg. vorigen 2 Zeilen bbaw polzin
12.07.02 ------
#81 C ----- hier deaktiviert bbaw polzin 15.07.02 -----
#81s C ----- neu bbaw polzin 15.07.02 -----
#819 C ----- neu bbaw polzin 15.07.02 -----
#82 C " NE: " ----- neu bbaw polzin 17.07.02 -----
#93 C ----- neu bbaw polzin 15.07.02 -----
#93a C ----- neu bbaw polzin 15.07.02 -----
#93b C ----- neu bbaw polzin 15.07.02 -----
#93c C ----- neu bbaw polzin 15.07.02 -----
#93d C ----- neu bbaw polzin 15.07.02 -----
#93e C ----- neu bbaw polzin 15.07.02 -----
#93f C ----- neu bbaw polzin 15.07.02 -----
#93g C ----- neu bbaw polzin 15.07.02 -----
#93h C ----- neu bbaw polzin 15.07.02 -----
#93i C ----- neu bbaw polzin 15.07.02 -----
#93j C ----- neu bbaw polzin 15.07.02 -----
#931 C "URL: " ------ neu bbaw polzin 12.07.02 ------
#76p C ------ neu bbaw polzin 12.07.02 ------
#90z C "Alte Signatur: " ------ neu bbaw polzin 05.08.02 ------
#91 C ----- neu bbaw polzin 17.07.02 -----
#91a C ----- neu bbaw polzin 13.08.02 -----
#91b C ----- neu bbaw polzin 13.08.02 -----
#91c C ----- neu bbaw polzin 13.08.02 -----
#91d C ----- neu bbaw polzin 13.08.02 -----
#90i R --------- neu bbaw polzin 12.07.02 ------
#909 C { t71 "Sonderstandort: " t76 } --------- neu bbaw polzin
12.07.02 ------
#-
------ ganzer Schlagwörter-Abschnitt deaktiviert bbaw polzin 12.07.01
-------
#31g C { &0 t78 " Geogr. Schlagwort: " #250 t76 }
#31p C { &0 t78 "Personenschlagwort: " #250 t76 }
#31s C { &0 t78 " Schlagwort: " #250 t76 }
#31t C { &0 t78 " Titelschlagwort: " #250 t76 }
#31k C { &0 t78 " Krp. Schlagwort: " #250 t76 }
#31c C { &0 t78 " Krp. Schlagwort: " #250 t76 }
#33B ++ C { &0 t78 " brit. Schlagwort: " #250 t76 }
#33L ++ C { &0 t78 " LoC Schlagwort: " #250 t76 }
#902 ++ e" " p"weit.Ex.: " m"weit.Ex.: " R
#t4 --------- neu bbaw polzin 12.07.02 ------
Vielleicht gibt's noch unselbstndige Teile (enthalt./beigef.
Werke)
sie stehen im Index 9 mit * hinter der IdNr.
und enthalten die IdNr. aus #00 der aktuellen Aufn. in #84)
#00 +p e6 P"*" |92 wenn ja, dann den ersten nachladen
#+v nein
**** Ausgabe der selbstndig gespeicherten Bestandteile in
Kurzform:
(der nchste Abschnitt wird zyklisch fr alle Untereinheiten
durchlaufen)
#-r
#t4
#+s
#-p
#t{ C t78 "Hierin enthalten:" t76 C }
#-s
#t{ #0 &0 }
#t{ t71 "^s^" t76 } ----- Debugging-Marke bbaw polzin 17.07.02
-----
#40 e";" P": "
#20 E40 P"..."
#<
#00 +r e6 P"*" |93 nchsten Band laden, dasselbe nochmal
wenn nichts mehr gefunden:
#-v
#hi +#90 e0 wenn Untersatz, dann jetzt nach #90
*** Hauptprozedur zu Ende, im Normalfall Sprung nach #-m ********
#utt +m i4,2 Z bedingter Sprung, wenn "2" in #utt steht
#<
#+c
#90 >S e0 Sign. mit Unterprog. #(S aufbereiten
#90 e" " p"Sign.: " R Signatur des Bandes normal ausgeben
#+#
**************************
jetzt die Zwischenstufen abarbeiten, wenn was nachgeladen wurde
#-c
#<+d geht's noch weiter runter?
#t{ C #0 &0 }
#+g nein, wir sind schon auf der Ausgangsaufnahme
#-d
#<^ ja, dann erst wieder hochschalten, dann die
Zwischendaten ausgeben
#t{ C }
#t{ t71 "^d^" t76 } ----- Debugging-Marke bbaw polzin 17.07.02
-----
#t75 ----- neu bbaw polzin 15.07.02 -----
#00 b"+" B"=" f" " P{ ". " #250 }
#19 +#40 0
#20
#40 e";" F" " p" / "
#41 e";" F" " p" / " P" [Hrsg.]"
#t76 ----- neu bbaw polzin 15.07.02 -----
#<+c rekursiv zurckschalten
**********************************************
jetzt sind wir wieder auf der Ausgangsaufnahme
hier kommen wir auch bei "normalen" Aufnahmen und Unterstzen hin
#-g
sind wir bei einem normalen Untersatz?
#t{ #0 }
#00 +l c"+" b"+" B"=" f" " P". " P{ #250 } nein, ein selbstndig
gespeicherter
wenn man "#01 1 =" hat, ist es ein enthaltenes Werk.
#01 +l { C &1 } B" = " c" =" p"Enthlt: !" e"!" p78 P{ #250 t76 }
#01 +l { C &1 } B" = " P{ ". " #250 }
#02 +l { C &4 } B" = " P{ ". " #250 }
#03 +l { C &8 } B" = " P{ ". " #250 }
#04 +l { C &11 } B" = " P{ ". " #250 }
#05 +l { C &14 } B" = " P{ ". " #250 }
------ vorige 6 Zeilen deaktiviert bbaw polzin 10.07.02 ---------
#</ alle nachgeladenen beseitigen (falls welche da sind)
(bei den mehrbndigen alter Art darf das nicht passieren,
sonst
wird zur Hauptaufnahme zurckgeschaltet, daher die obigen
Befehle.)
"Kropf"-Bearbeitung:
#-k
#t{ t71 "^k^" t76 } ----- Debugging-Marke bbaw polzin 17.07.02
-----
#nr p"2" e1 =tt Z besetzt flag #utt mit "2" = Normalfall
#90 >S e0 Signatur ausgeben (Unterprogramm #(S )
#t4
nchste 2 Zeilen inaktivieren, wenn kein Kropf gewnscht
#40 e";" F" " P": " erste Zeile: 1.Verf. und Signatur
#84 e" ; "
#84 C b" ; " p"Band: "
#t4
----- alles zwischen -k und hier (war: #+H) deaktiviert polzin bbaw
17.07.02 -----
----- und im folgenden durch D-1-Typ ersetzt: -----
#nr p"2" e1 =tt Z besetzt flag #utt mit "2" = Normalfall
#40 +#90 e"[=;]" F" " P": " erste Zeile: 1.Verf. und Signatur
#60 +#90 e"[_ =;]" F" " P": " erste Zeile: 1.Verf. und Signatur
!8n +#90 e" : " U E40 oder Serientitel
#90 +#90Y >S e0
#t4
#90Y e0
#t4
----- Ende der Ersetzung D-1-Typ bbaw polzin 17.07.02 -----
#+H zum Hauptteil
***** Bandauffhrung formatieren ****************
#-l
#t{ t71 "^l^" t76 } ----- Debugging-Marke bbaw polzin 17.07.02
-----
#t71 ----- neu bbaw polzin 15.07.02 -----
----- neu bbaw dachnowsky, auf Farbe Rot also 71 umgestellt
11.08.03 -----
#nr p"2" e1 =tt Z besetzt #utt mit "2"
#40 e";" F" " P": " erste Zeile: 1.Verf. und Signatur
#90 R
#19 +i #69 9 #zz 8
#20 0 #69 9 #zz 8
#t76 ----- neu bbaw polzin 15.07.02 -----
#+i zum Hauptteil
#-m
#hi +# e0 fr Bnde eines normalen mehrbndigen Werkes
wird das folgende nicht gemacht,
sondern hier beendet
***** Es knnten noch selbstndig gespeicherte Bnde da sein:
*******
deshalb wird eine Nachladung ber Index 9 versucht:
#00 +j e"=" F" " P"+" |92 wenn ja, dann den ersten nachladen
#+z nein, keiner da
**** Ausgabe der selbstndig gespeicherten Untereinheiten in
Kurzform:
(der nchste Abschnitt wird zyklisch fr alle Untereinheiten
durchlaufen)
#-j
#t{ t71 "^j^" t76 } ----- Debugging-Marke bbaw polzin 17.07.02
-----
#t72 ----- neu bbaw polzin 15.07.02 -----
#t{ N #0 &0 } ----- testweise deaktiviert bbaw polzin 15.07.02 -----
#t{ C #0 &0 } ----- statt voriger Zeile bbaw polzin 15.07.02 -----
#00 b"+" B"=" f" " C P". " P{ #250 }
#90 >S e0
#90 R ----- statt voriger Zeile bbaw polzin 15.07.02 -----
#19 +#71 ----- neu bbaw polzin 15.07.02 -----
#20
#39 p" / " ----- neu bbaw dachnowsky 11.08.03, bewirkt die -----
----- Nachladungvon #39 der Untereinheiten bei -----
----- Anzeige und Ausdruck der Hauptaufnahme -----
#71 p". - " ----- neu bbaw polzin 17.07.02 -----
#76 p". - "
#77 p". - "
#85. ++ >4 m>4 ----- neu bbaw polzin 15.07.02 -----
#87 C p"ISBN " ----- neu bbaw dachnowsky 12.08.03 ----
#82 C p" NE: " ----- neu bbaw dachnowsky 12.08.03 ----
#92. >B e0 Bestandsangaben (Zeitschriften, #92)
#t4 ----- neu bbaw polzin 17.07.02 -----
#t76 ----- neu bbaw polzin 15.07.02 -----
#<
#00 +j e"=" P"+" |93 nchsten Band laden, dasselbe nochmal
keiner mehr zu finden
#-z dann Schluss machen,
#</ alle nachgeladenen Stze beseitigen
#+#
****** ENDE **************
****** Sonderabschnitte **
#-u unselbst. Werk: Stammsatz ist geholt, jetzt Titel+Verf.
ausgeben
#20 C "In: "
#40 e";" F" " " / "
#41 e";" F" " " / Hrsg.: "
#< zurckschalten
#-q Sammelband-Beitrag
#84 b";" f" " p" ; " entweder #84 _nnn ; Seiten
#708 p" ; S." oder die Seiten stehen in #708
#<^
#90 C >S noch die Signatur aus der Hauptaufnahme nehmen
#<
#+
******** Abschnitte fr Kartenkpfe *********
*** hierhin fhren die AK-Befehle ************
#-A NE fr weitere Verf.
#u1 +- i3, e0 nicht ausfhren fr den 1. Verf. (Position 3 =
blank)
#96 +- c"LK" wenn LK in #96, dann diese Eintrge nicht machen
#96 +#u1 b"AK=" e" " p"#"
#t61 AK-Standardwert ausgeben
!u1 e" = " e"_" f" " P":"
#20 4 e" : " U E40
#t4
#+\
#-E Stammsatz #2n fr EST
#t { " EST: " #250 }
#2n
#2nr { C C &0 "Verweisungsformen: " #250 }
#2nu { C C &0 " bersetzungen: " #250 }
#2nz {C C &0 " Anmerkung: " }
#+#
#-J Hrsg. u.a. beteiligte Personen
#96 +- c"LK" wenn LK in #96, dann diese Eintrge nicht machen
#96 +#u1 b"AK=" e" " p"#"
#t61 AK-Standardwert ausgeben
!u1 u e"_" e" = "
#>F Unterprog.: Funktionsbezeichnung ermitteln und ausgeben
#t4 Zeilenvorschub
#+\
#-G NE unter Serie
(wenn "#85 _IdNr ; zhlung" vorliegt:
#96 +- c"LK" wenn LK in #96, dann diese Eintrge nicht machen
#96 +#u1 b"AK=" e" " p"#"
#t61 AK-Standardwert ausgeben
!u1 e" ; " P4 sonst Inhalt von #85 ausgeben
!u1 e" ; " ----- statt vorige Zeile bbaw polzin 18.07.02 -----
!u1 b" ; " p"-- " P4
!u1 b" ; " p" ; " P4 ----- statt vorige Zeile bbaw polzin 17.07.02
-----
#+\
#-F Festschrift (die Angabe ak=59+J fhrt hierher)
#96 +- c"LK" wenn LK in #96, dann diese Eintrge nicht machen
#96 +#u1 b"AK=" e" " p"#"
#t61 AK-Standardwert ausgeben
!u1 99 u e" =" P": Festschrift" P98
#t4
#+\
#-K beteiligte Krperschaft
#96 +- c"LK" wenn LK in #96, dann diese Eintrge nicht machen
#96 +#u1 b"AK=" e" " p"#"
#t61 AK-Standardwert ausgeben
!u1 U e"_" P4
#+\
#-N Stammsatz fr Krperschaftsnamen
#t {" Name: " #250 }
#6n
#6nd {C &0 " 'Lebensdaten': " }
#6nr {C C &0 " Verw.Formen: " #250 }
#6nf {C C &0 " frhere Form: " #250 }
#6ns {C C &0 " sptere Form: " #250 }
#6ue {C C &0 " engl. Form: " #250 }
#6na {C C &0 " siehe auch: " #250 }
#6nz {C C &0 " Anmerkung: " }
#+# das wr's
#-O 1.Verf. mit Originalsachtitel/EST
#96 +- c"LK" wenn LK in #96, dann diese Eintrge nicht machen
#96 +#u1 b"AK=" e" " p"#"
#t61 AK-Standardwert ausgeben
!40 99 P": " P98
!u1 U P4 hier ist #u1 = #22
#+\
#-P Stammsatz fr Personennamen
#t {" Name: " #250 }
#4n
#4nd {C &0 " Lebensdaten: " }
#4nr {C C &0 " Verw.Formen: " #250 }
#4np { C &0 " Pseudonyme: " #250 }
#4nt { C &0 " wirkl. Name: " #250 }
#4na { C &0 " siehe auch: " #250 }
#4nz { C &0 " Anmerkung: " }
#+#
#-R Stammsatz fr Reihe/Stcktitel-Serie
#8na p" " Krzel
#t { C C " Zeitschrift/Serie: " #250 }
#8n
#8n1 { C &0 " Zitiertitel 1: " #250 }
#8n2 { C &0 " Zitiertitel 2: " #250 }
#8n3 { C &0 " Zitiertitel 3: " #250 }
#74 e" " C
#75 ": "
#76p { C C &0 " Ersch.Verlauf: " }
#8nr { C C &0 " Verweisungsformen: " #250 }
#88c { C &0 " CODEN: " }
#88 { C &0 " ISSN: " }
#8nz {C C &0 " Anmerkung: " }
#81 {C C &0 " Anmerkung: " }
#t { #0 C }
#+#
#-S SachTitelkpfe (Haupt-, Neben-, Serientitel)
#96 +- c"LK" wenn LK in #96, dann diese Eintrge nicht machen
#96 +#u1 b"AK=" e" " p"#"
#t61 AK-Standardwert ausgeben
!u1 U e" : " B" =p " e" ; " e"_" 99 P98
#t4
#+\
******** der schwierigste Teil: 3541 ******************************
****** Alternative A : mit Mehrfachausgabe in der angegebenen Zahl
***
#-L Lokaler Kopf
hier werden die Inhalte der #27er zunchst in die Uservariable
#ulk
umkopiert, und zwar in der gewnschten Anzahl (#n vor dem Text)
#27 #4 Text1Text2 soll 4 Karten erzeugen, Text1 / Text2
untereinander
#27 #2 soll 2 kopflose Karten erzeugen
#u1 i4,# b"#" e" " =ka #uka = Kartenanzahl
#u1 +~ i4,# Z Spr. nach #-~ wenn '#' am Anfang
#ulk P"" =lk "" hinten dranhngen, um die Teile zu trennen
#u1 +- Alk direkt an #ulk anhngen, wenn kein '#'
#-~ Sprungmarke fr Schleife:
#uka +- x"==0" Z Ende, wenn 0 erreicht
#ulk P"" =lk "" hinten dranhngen, um die Teile zu trennen
#u1 b" " Alk Text von #u1 an #ulk anhngen
#uka +~ x"-1" =ka Z Zhler erniedrigen, Schleife
#+- Eine Ausgabe wird nicht produziert, das macht der nachfolgende
Kopfbefehl ak=ulk""+U (siehe oben)
***********************************
#-U Ausgabe des lokalen Kopfs
#u1 +#99x c"\" e0 wenn '\' vorkommt, nach #99x gehen
#u1 99 P98
#t4
#+\ zum Hauptteil
Sonderfall: Pica 3541 #k //Name
dann wird kein Kopf, sondern nur der in #u1 stehende Teil als
"Kropf"
ausgegeben
#99x nur als Sprungmarke
#nr p"2" e1 =tt Z besetzt flag #utt mit "2" = Normalfall
#90 >S e0 Signatur ausgeben (Unterprogramm #(S )
#t4
#u1 f"\" Sonder-"Kropf"
#t4
#+H zum Hauptteil
***** Alternative B : keine wiederholte Ausgabe, sondern #-Angabe
vorweg ***
#-L
#u1 e" "
#u1 ----- statt voriger Zeile bbaw polzin 18.07.02 -----
#t4
#u1 +#99x c"\" e0 wenn '\' vorkommt, nach #99x gehen -----
deaktiviert bbaw polzin 18.07.02 -----
#u1 b" " 99 P98 ----- deaktiviert bbaw polzin 18.07.02 -----
#t4 ----- deaktiviert bbaw polzin 18.07.02 -----
#+\ zum Hauptteil
#99x nur als Sprungmarke
#nr p"2" e1 =tt Z besetzt flag #utt mit "2" = Normalfall
#90 >S e0 Signatur ausgeben (Unterprogramm #(S )
#t4
#u1 b" " f"\" Sonder-"Kropf"
#t4
#+H zum Hauptteil
**********************
#-T Stammsatz fr Thesaurus-Eintragungen
#t {" Hauptbegriff: " #250 }
#3t
#3ta {C C &13 "UF: " #250 }
#3tr {C C &13 "RT: " #250 }
#3tb {C C &13 "BT: " #250 }
#3tt {C C &13 "TT: " #250 }
#3tn {C C &13 "NT: " #250 }
#3s {C C &13 "CC: " #250 }
#3sd {C C &13 "DI: " #250 }
#+#
#-W Sacherschliessungs-Stammstze
#3n +w i4,c b1 e" " { t78 " Sachgruppe: " t73 #250 } P76
#3n +w i4,l b1 e" " { t78 " Sprache: " t73 #250 } P76
#3n +w i4,g b1 e" " { t78 " Geograph.Code: " t73 #250 } P76
#3n +w i4,h b1 e" " { t78 " Zeitcode: " t73 #250 } P76
#3n +w i4,a e" " b2 { t78 " Aufstellung: " t78 #250 } P76
#3n +w i4,z b1 e" " { t78 " Zeitschr.Klass: " t73 #250 } P76
#3n +w i4,b b1 e" " { t78 " BASIS-Klassif.: " t73 #250 } P76
#3n +? i4,s i5,p b" " { t78 " Personen-SW: " t73 #250 } P76
#3n +? i4,s i5,t b" " { t78 " Titel-SW: " t73 #250 } P76
#3n +? i4,s i5,s b" " { t78 " Sach-SW: " t73 #250 } P76
#3n +? i4,s i5,k b" " { t78 "Krperschafts-SW: " t73 #250 } P76
#3n +? i4,s i5,c b" " { t78 "Krperschafts-SW: " t73 #250 } P76
#3n +? i4,s i5,g b" " { t78 " Geograph.-SW: " t73 #250 } P76
#3n i4,d b1 u^^ e" " { t78 " DK-Zahl: " t73 #250 } P76
#3nt +y
#3n b" " p{ " " #250 }
#3na u() C
#-y
#t{ C C &0 #0 }
#3n b"^" e"^" p{ C "Sie finden Bcher bis 1989 zu diesem Thema im
Kasten Nr. " }
#3n b"^" p{ C " im Zettelkatalog Nr. 5 (= Systematischer Katalog)"
C } e0
#+x
#-w
#t{ #1 }
#3nt +#3qd p" "
#3n b" " p" "
#-?
#3na f" " { C &0 t78 " Synonym: " #250 t76 }
#>R
#-x
#3qd { C C &0 t78 " Dewey 19: " #250 t76 }
#3ql { C C &0 t78 " LC-Systematik: " #250 t76 }
#3qb { C C &0 t78 " BASIS-Klassif: " #250 t76 }
Beisp. f. #3n a.. (Standort)
#3n i4,a p{ C C &0 #0 "Eine Auswahl von Bchern finden Sie" } e0
#3n +#3nr i4,a i5,1 p{ C t72 "im Lesesaal 1 (1. Obergeschoá)" t76 } e0
#3nr e" " { C C &0 t78 " siehe auch: " #250 t76 }
#3nr b" b" { C C &0 t78 " Oberbegriff: " #250 t76 } e" f" e" s"
e" n" e" a"
#3nr b" f" { C C &0 t78 " frher: " #250 t76 } e" s" e" fn"
e" f"
#3nr b" s" { C C &0 t78 " spter: " #250 t76 } e" n" e" a"
#3nr b" n" { C C &0 t78 " neuer Begriff: " #250 t76 } e" a"
#3nr b" a" { C C &0 t78 " alter Begriff: " #250 t76 }
#3nc { C C &0 t78 " im Zettel-Schlagwortkatalog finden Sie evtl. noch
weiteres Material unter: " #250 t76 }
#3nz { C C &0 t78 " Anmerkungen: " #250 t76 } e" "
#3nz b" a" { C C &0 t78 " Quelle: " #250 t76 } e" "
#3nz b" b" { C C &0 t78 " Definition: " #250 t76 } e" "
#3nz b" c" { C C &0 t78 " Bemerkungen: " #250 t76 } e" "
#3nz b" S" { C C &0 t78 " DB-Sachgrp.: " #250 t76 } e" "
#3nz b" P" "(Erfassung: " P")" R
#+#
#(R #3n-Stammsatz geladen
#3ng +' p"G " |72 Geosatz laden
#-$
#</ rckschalten, falls was nachgeladen wurde
#3n +" i4,s I6, b2 e" " e"ú" e"-" |72 Sachgebiets-Stammsatz
laden
#)R kein Erfolg
#-'
#t{ C C &0 t78 " Region: " #250 t76 }
#3nt +$
#3n b" "
#+$
#)R
#-"
#t{ C C &0 t78 " Sachgebiet: " #250 t76 }
#3nt +%
#3n b" "
#-%
#</
#)R
****** UNTERPROGRAMME ****************
#(K UP fr Personennamen
#cc u e" = " e" <" b", " e";" e"u.a." F32 P" "
Verweisungsformen abschneiden, hinter ", "
beginnen
" " dahintersetzen (es folgt der Nachname)
(aber nur, wenn das ", " nicht in OH)
#cc e" = " e" <" e", " e" ["
Text vor dem ", " nehmen
#cc e" = " b" <" e" [" p" <"
Ordnungshilfe Unmodifiziert
#cc b"u.a" p" u.a"
#cc b";" f" " p"; " wenn mehrere Personen in einer Kategorie
#)K in beiden Fllen kein Postfix! (#zz 0)
#(k hier knnte man den 2. und 3. Verf. anders behandeln!
#cc u e" = " e" <" b", " e";" F32 P" " wie Sie hier sehen, wird
dasselbe gemacht
#cc e" = " e" <" e", " wie bei #(K
#cc b" <" e" [" p" <"
#cc b"u.a" p" u.a"
#cc b";" f" " p"; "
#)k
#(l zuerst wird ein weiteres Unterprogramm aufgerufen:
#>F gib die Funktionsbezeichnung aus
#t3 schreibe "; "
#)l
#(m dasselbe wie #(l, bis auf das Postfix:
#>F
#t8 schreibe ". - "
#)m
#(F Funktionsbez. Ausgabe
#i1,5 +5 erste Kategorieziffer =5: weiter bei #-5
4er-Kategorien:
#i2,1 16 wenn 2. Kategorieziffer = 1, dann Zwischenteil 16 = "
[Hrsg.]"
#cc i2,1 p" [HRSG.]!" e"!"
#cc i2,1 p" [Hrsg.]!" e"!" ----- statt voriger Zeile bbaw polzin
17.07.02 -----
#cc i2,2 p" [Mitarb.]!" e"!"
#cc i2,3 p" [Bearb.]!" e"!"
#cc i2,4 p" [Begr.]!" e"!"
#cc i2,5 p" [Samml.]!" e"!"
#cc i2,6 p" [Texter]!" e"!"
#cc i2,7 p" [bers.]!" e"!"
#)F Ende Unterprogramm F
#-5 #5er Kategorien
#cc i2,0 p" [Illustr.]!" e"!"
#cc i2,1 p" [Komment.]!" e"!"
#cc i2,2 p" [Komponist]!" e"!"
#cc i2,3 p" [Prses]!" e"!"
#cc i2,4 p" [Resp.]!" e"!"
#cc i2,5 p" [Vorw.]!" e"!"
#57:
#cc i2,7 i3,d p" [Dirigent]!" e"!"
#cc i2,7 i3,i p" [Interpret]!" e"!"
#cc i2,8 b"[[]" p"["
#)F Ende Unterprogramm F (!)
#(4 Unterprog. fr Serientitel:
mgliche Eingabeform: #85 Serientitel =p Ordnungsworte ;
BdNr
oder #85 _krzel ; BdNr
#cc +#8n i4,_ e" " F";" P" " |52 Stammsatz? holen, nach #8n
#cc e" =p " e" ; " p10
#8n p10 Stammsatztitel
#<
#cc B" =p " b" ; " p' ; ' (#85 Serientitel ; BdNr)
#t11 das ist ")"
#)4
#(S Signatur-Unterprogramm (dieses aendern, wenn andere
Sonderbehandlung gewnscht)
#cc +#90S e" " B"'" F" " R Sign. rechtsbndig ausgeben,
Standortsign.
#cc b" s" C F" " R Sign. rechtsbndig ausgeben, Teil hinter
" = " abschneiden
#90S
#t4
#t4 ----- neu bbaw polzin 15.07.02 -----
#)S
#(B Bestandsangaben (aus #92)
#dt dii dab e0 #uab und #uii lschen
#92 +#92 p{ #0 C t75 "Bestand UB: " #250 t76 }
#00 +#uii c"+" p{ #0 C } e1 p"(angebunden an die Hauptzeitschrift)!"
e"!"
#00 +#uii p{ #0 C } e1 p"UB : nicht vorhanden (evtl. ltere Bestnde im
Zettelkatalog)!" e"!"
#92 c"ff" p" -- laufend vorhanden --!" e"!"
#90 b"[ =]" F" " p{ #0 C t78 " alte Signatur: " t76 }
#)B
#-B rekursiv!
#uab e"" =ii,0 e0 #uab = restlicher Bestandsstring
#uab +C b"" =ab,0 e0 #uii = aktueller Institutsbestand
#+D
#-C
#uii C p75 e" " P" "
#uii e" " P" " |88
#ux8 b" " p"** " P{ " **" C " " }
#uii 76 b" "
#uii c"ff" p" -- laufend vorhanden --!" e"!"
#+B
#-D
#uii C p13:21 11.08.03 e" " P" "
#uii e" " P" " |88
#ux8 b" " p"** " P{ " **" C " " }
#uii 76 b" "
#uii c"ff" p" -- laufend vorhanden --!" e"!"
#)B
F
#99n
#00 "PPN " R IdNr unten rechtsbndig
******** Sonderzeichen ***********
** weitere werden in PRINTER.APT gesetzt ***
p 255
q 255 soll Zeilensprung auslsen
p ª 1
q ª 1
p .42 49 97 *1a ----- deaktiviert bbaw polzin 18.07.02 -----
p .42 49 101 *1e ----- deaktiviert bbaw polzin 18.07.02 -----
p £ .42 49 117 *1u ----- deaktiviert bbaw polzin 18.07.02 -----
p Ç .42 53 *5 hacek ----- deaktiviert bbaw polzin 18.07.02
-----
Liste muss noch komplettiert werden!
q a/z A aktivieren, wenn Kopf in Grossbuchstaben gewnscht
q "ae" Umlaute fr Kopf auflsen
q "oe"
q "ue"
q "Ae"
q "Oe"
q "Ue"
q á "ss"
q [ 1
q ] 1
q _ 1
p _ 1
p .27 84
p .27 83 49
p .27 83 48
q .27 84
q .27 83 49
q .27 83 48
Mehr Informationen über die Mailingliste Allegro