D-WRTF.APR Anzeigeparameter Standard fuer A.CFG, Version a99/alcarta 2003-07-28 beruht auf D-1.APR incl. Ausleihe/Erwerbung NEU: ohne feste Zeilenlaenge Voraussetzung: disphead.rtf wird vor den output gesetzt Darin sind die Schriften und Farben gesetzt (a99 macht das automatisch) 2005-08-30 : #uzp gesetzt, wenn alcarta (vorher #uaV oder #uai) 2010-10-18 : #uFS als Schriftgroessenvariable f.d. Anzeige pn="ANZEIGE alcarta/a99" zl=0 Zeilenlaenge (nach Bedarf zu kuerzen) fl=0 keine Kartenstruktur zm=0 kein Seitenumbruch dx=1 Umcodierung (+ Farben etc.) soll wirksam sein) i4=1 V14 Ersetzungsmodus i6=10 V23: Reg.10 fuer die VS-Ersetzungen ab="" as="" *** Verwendete Sprungmarken: *** 1-50:     !"#$%&'()*+,-./012 x xxxxxxxx xxx xx 51-100: 3456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcd xxxx x xx xx xxxxxxxxxxxxxxxxxxxxxx x xxxx 101-150: efghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•– xxxxxxxxxx xxxxxxxxxxx xxxxx x xx xxx 151-200: —˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈ x xx x xxxx 201-250: ÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùú xxxxxxx xx 251-255: ûüýþÿ ********* ZWISCHENTEILE 1 - 78 ************* 1=". " Interpunktion 2=", " 3="; " 4=C 5=" : " 6=C C 7=" = " 8=". - " 9=" / " 10="(" 11=")" 12=C C C 13=C " " 14=". - (" 15="." C " " 19=C neue Zeile, links an den Rand 45=":E" Exemplarnummern-Praefix (evt. nur ':') 46=t79 " kein Stammsatz hierzu vorhanden!" t111 47=t79 " Der Ausweis ist gesperrt!" t111 48=t79 " Leser ist abgemeldet!" t111 60="\li850\fi-850 " Haengende Einrueckung 61="\li850\fi-850 " 9 Ohne Einzug der ersten Zeile #uFS +C e0 Wenn ein Default f.d. Schriftgroesse gewuenscht (sonst Wert aus disphead.rtf) #dt p"\fs24!" e"!" =FS e0 #-C Fuer Einsprung vou aussen fuer Normalanzeige! #uFS P{ C } y0 #uAT dAT dKo e0 Ganz zu Anfang: Vorkehrungen fuer V23 #9A +#9AU i4,U e0 V23 SD-Satz (muss VOR #dV stehen) #9a +#9af e0 #bib=59 V23 #bp & 9 V23 #dV V23 #hi +@ e0 ORDA: Var. #ugT/#uuK (Kurse) vorbereiten #uzz +#udM dX; e0 #nr p'x menu Erwerbung(Strg+b)\phr b x h orda!' e"!" =X; #nr =zz #nr p"SYSWWHRG" e8 |110 #9A W dwT duK =wt $c vorhanden? dann ->#uwW #9A c =wW #w #9y p{ C t19 t79 "Satztyp: " t111 } #9z { t19 #14 t79 "Anmerkung: " t111 } #+# ****** Hauptteil : Konstr. der "Einheitskarte" **** ** Durchlauf ab hier fuer Hauptsatz und Untersaetze ** #-@ #udM +( c"x" e0 Intern-Anzeige ist eingestellt #uAT +Z i4,1 e0 Alternative Anzeige #hi +g e0 #20 +a e0 pruefe: gibt es einen uebergeordneten Satz? Wenn es uebergeordnete 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 #00 +a c"+" t"+" |90 rekursiv! bis kein '+' mehr vorkommt Nun sind evtl. mehrere uebergeordnete Stufen geladen #09 +a t"+" |90 #09 enth. uebergeordn. Nr. (… la MAB oder Pica) #20 e" : " ,"_ª__" y0 E30 P"..." =V1 nein #96b +#uhi e0 #t{ C &0 t72 "Alternative Anzeige" t104 } #nr p'x disp "Z"\act 1!' e"!" =Z0 #nr p"Alternative Anzeige!" e"!" =Y0 #uhi dhi e0 #09 c"+" e"+" =hi #00 c"+" e"+" =hi #uhi +7 e0 #00 +6 P"+" |98 #+8 #-6 #00 =hi #-7 #t{ " " t72 "Hierarchie-Liste" t104 } #uhi p"x fin |9 " P"?\order a0\sho list" =Z~ #nr p"Hierarchie-Liste!" e"!" =Y~ #-8 #t{ C C } #<+b war wirklich was geladen worden?, dann #-b #8na p71 p" (" P")" P111 #nr p"2" e1 =tt Z besetzt flag #utt mit "2" = Normalfall #52 +#22 e"[=;]" F" " P":" aktivieren fuer MUSIK #t66 #76 B" = " P" " p73 P105 #90 " !" e"!" #90 p>c m>c 79 #90 +#40 e0 #t{ C } #40 e"[=;]" F" " P":" p72 P104 erste Zeile: 1.Verf. und Signatur #t98 #40 e"[=;]" F" " P":" ,"_ª__" =Y~ Flip fuer 1. Verf. #40 +#90„ e"[=;]" u F" " p"x ind per " =Z~ #90„ #t4 #t4 aktiv, wenn weitere Leerzeile nach Signatur gewuenscht (Karte) #+H zum Hauptteil jetzt arbeiten wir die Ueberordnungen ab: #-b #<^ zuerst wieder hochschalten (mit #<+b war 1 runtergeschaltet worden!) Der oberste, d.h. zuletzt geladene Satz (Hauptaufnahme) wird ausgegeben #90 >c e0 Wenn Sign. d. uebergeordn. Satzes AUCH erscheinen soll #40 +n e" = " e";" F" " P": " erste Zeile: 1.Verf. #60 e"[_=;]" F" " E60 P": " #t4 Leerzeile, wenn keine Sign. #-n #nr p"1" e1 =tt Z besetze #utt als flag mit "1" flag #utt ist "1", waehrend eine Nachladung bearb wird, sonst "2" ***** Hauptteil ******* #-H #t66 #18 e" : " P98 #18 b" : " p5 #18 +#71 e0 #zz 8 wenn #18 besetzt, bei #71 weiter #19 e" : " P98 #19 b" : " p5 #19 +#39 e0 #69 9 #zz 8 wenn #19 besetzt, bei #39 weiter #21 p"[" P"]" P{ C } #nr dhs dtz e0 #20 +#20 e" : " dtz ahs #8n ahs #20 b" : " atz #uhs P98 #utz p" : " nachfolgend wird die Ausgabe bedingter Postfixe korrigiert, insbesondere durch Einfuegen von "#00 8" o. ae. und dem abschliessenden Befehl "#nr e0 #zz 0". Hiermit werden unerwuenschte anhaengige Postfixe ver- hindert, falls bestimmte Kategorien nicht belegt sind. #uhs e0 #00 8 #24 0 #25 5 #69 9 #zz 1 #-i #25 0 #00 8 #24 0 #69 9 #zz 1 #39 +#71 0 #69 1 #72 0 #zz 1 wenn #39 besetzt, bei #71 weiter #40 ++ >K m>k #00 1 #40z 2 #69 3 #72 >m #76 1 #60 e"[_=]" #00 1 #69 3 #76 1 #41 ++ >K m>k #00 >m #41z 2 #69 >l #zz >m #42 ++ >K m>k #00 >m #42z 2 #69 >l #zz >m #43 ++ >K m>k #00 >m #43z 2 #69 >l #zz >m #44 >K #00 >m #69 >l #zz >m #45 >K #00 >m #69 >l #zz >m #46 >K #00 >m #69 >l #zz >m #47 >K #00 >m #69 >l #zz >m #48 >K #00 >m #69 >l #zz >m #49 >K #00 >m #69 >l #zz >m #50 >K #00 >m #69 >l #zz >m #51 >K #00 >m #69 >l #zz >m #52 >K #00 >m #69 >l #zz >m #53 >K #00 >m #69 >l #zz >m #54 >K #00 >m #69 >l #zz >m #55 >K #00 >m #69 >l #zz >m #56 >K #00 >m #69 >l #zz >m #57. ++ >K #00 >m #69 >l #zz >m #58. ++ >K #00 >m #69 >l #zz >m #74 Z nur wg Postfix #61 ++ e"" #62 1 #72 8 #zz 1 #71 Z nur wg Postfix #72 Z #nr e0 #zz 0 Abschluss fuer bedingte Postfixe zur Verfasserangabe unselbstaendiges Werk? #70 +#83 e0 wenn #70, dann #71 bis #77 uebergehen #70c +#83 e0 oder #70c #70i +#83 e0 oder #70i #71 +#98R p8 F"." #71 1 #72 2 #zz 1 #72 +#74 p8 P" " #98R #72 P" " #73 +#76 13 P", " #74 +#75 e"" 13 #70 0 #75 5 #76p 2 #95 8 #zz 0 #819 +#75 e":" 13 #70 0 #75 5 #76p 2 #95 8 #zz 0 #00 +#75 c"+" e0 nicht bei #00 ...+ Untersaetzen! #hi +#75 e0 nicht auf Stufe #01 #8e +#75 C e0 #t{ C " s.l. : " } #75 0 #70 1 #76p 2 #95 8 #zz 0 #76 B" = " #70 1 #95 8 #zz 0 #76p p"[Ersch.:] " #70 1 #95 8 #zz 0 #81p i4,L p"Losebl.-Ausg!" e"!" #70 1 #95 8 #zz 1 #77 ++ m8 #zz 0 #95 ". - Preis: " #nr e0 #zz 0 Abschluss fuer bed. Postfixe zu Ersch.angaben #89o ,"__; _" { C t79 "Opus: " t111 } #81F { C t79 "Früher: " t111 } #81S { C t79 "Später: " t111 } #81Z { C t79 "Zeitweise: " t111 } #81B { C t79 "Beigabe: " t111 } #62 ++ p{C "Ausst.: " #250} e"" P"." m{" ; "} #62 e0 #83 ++ p{ C "Kongress: " #250} P"." m{" ; "} #83 e0 ******** Quellenangabe bei Aufsaetzen *********** #t73 kursiv ein #70 +#8n i4,_ e";" F" " P" " |52 wenn #70 _kuerzel : nachladen #70 +#70 e";" C p"In: " wenn #70 text vorkommt, ausgeben, weiter bei #702 !70c +#8n e6 p"C" P" " |92 in #70c steht CODEN? danach wird im Index 9 gesucht und der Satz geladen. #70i +#8n e9 p"I" P" " |92 wenn kein CODEN, dann ISSN? #+h nichts davon: weiter bei #-h #8n +#70 C p"In: " der geladene Ansetzungstitel aus #8n wird genommen hier #8n1... einsetzen, wenn Zitiertitel 1 u.a. gewuenscht! #20 C e" :" p"In: " wenn #8n nicht besetzt, dann #20 #70 e0 nur als Sprungmarke #< zurueckschalten, dann die Aufsatzdaten #70 +h b";" f" " p" ; " #70 titel ; heft... ODER: #702 p" [" P"]" ELand diese Angaben koennen hier beliebig anders #t{ " ; " } #704 Band zusammengesetzt werden #76 B" = " p"(" P")" Jahr #706 Heft #708 p8 p"S. " #-h alle Serientitel #85. ++ >4 m>4 wenn in #84 eine Stammsatznummer steht: nachladen und nach #-u (unselbstaendige Beitraege aus Sammelbaenden) ******************* #84 +u i4,_ B"_" e";" F" " p105 |90 #09 +#84q e0 wenn #09, dann in #84 Textangaben zum uebergeordn. Werk #84 +q C e";" F" " p"In: " p105 nur wenn keine #09 #84q #t105 kursiv aus #86 C p"Reportnr.: " #87 C p"ISBN " #88 C p"ISSN " #88z C p"E-ISSN " #88L C p"L-ISSN " #81. ++ >N m>N #23z { C t79 "Zitiertitel: " t111 } m"; " #23. =cc % Merker fuer Ausgabe der Wendung #23. ++ >n m>n - Nebentitel #23F p{C t103} "Frherer Titel: |" e"|" - frherer Titel #23F p111 ,"__ ; _" #23P p{C t103 "Parallel ersch. Titel: " t111} ,"__ ; _" - parallele Ausg. #23S p{C t103} "Sp„terer Titel: |" e"|" - sp„terer Titel #23S p111 ,"__ ; _" #23Z p{C t103 "Zeitweiser Titel: " t111} ,"__ ; _" - zeitweiser Titel #818 { C t79 "Hochschulschrift: " t111 } #52 += e0 MUSIK #22 p{ C t79 "Originaltitel: " t111 } Paralleltitel, entweder dieses: #-= #24 ++ p{ C t79 "Paralleltitel: " t111 } m". " #90. ++ >c m>c Alternative fuer ALFA #-f #8e { C C &0 t79 "Web-Adresse: " } e0 #8e. ++ >8 m>8 e0 #31. +#98f e0 #33. +#98f e0 #nr +#36 e0 #98f #t{ C } #t{ t79 "Themen:" t111 } #nr p"?|3!" e"!" =pf #31 p>s e0 #31s >s e0 #31g >s e0 #33B >s e0 #33L >s e0 #nr p"?|2" e3 =pf #31c >s e0 #31k >s e0 #nr p"x ind per " e10 =pf #31p >s e0 #36 >s e0 #31t >T e0 #35 ++ p{C t79 "Werk-SW : " #250 t111} m{C} P>X Z #34 ++ p{C t79 "Sonder-SW : " #250 t111} m{C} #t{#0} #>w Textdatei #98k #902 +#902 e"" C { "\qr Weitere Exemplare:" C } e0 #90a +#90a e"" C { "\qr Weitere Exemplare:" C } e0 #902 e"" p103 e0 #902 ++ p>c m>c #902 +#9X p111 e0 #90a ++ p>c m>c #9X +#90z e0 #92 ++ p>B m>b e0 Bestandszeilen #90z { C t79 "Alte Signatur: " t111 } #hi +#98i e0 #00 +#98i c"+" e0 desaktivieren, wenn keine Alternativanzeige gewuenscht: #uzz +#98z i4,z { C } e0 #98z #t{ " " t72 "zum Register zurück" t104 } #uxb "?|" F" " =zy #uxa Azy aktueller Schluessel #uzy =Z~ #nr p"zum Register zurck!" e"!" =Y~ #8n +#00 p{ C " " t72 "Liste der Themenhefte" t104 } e0 #nr +#98i e0 #00 e"+" p"?|9" =Z~ #8n p"Liste der Themenhefte!" e"!" =Y~ #98i #uFS x"+2" e"." p"\f1\fs" P{ C } y0 #t{ "{ \f1 \fs20 " } Courier 10 Pkt #>Y (zugehoerige Exemplarsaetze ausgeben) #t{ "}" } #uzp +#90X c"alc" e0 OPAC: Lieferant u. Verteiler ueberspringen #97 C >L Lieferant #95v >V Verteiler Vielleicht gibt's noch unselbstaendige Teile (enthalt./beigef. Werke) #90X !00 +p P"*" y2 |92 wenn ja, dann den ersten nachladen #+v nein **** Ausgabe der selbstaendig gespeicherten Bestandteile in Kurzform: (der naechste Abschnitt wird zyklisch fuer alle Untereinheiten durchlaufen) #-r #t4 #+s #-p #t{ C t79 "Hierin enthalten:" t111 C } #-s #40 e";" P": " #20 E40 P"..." #< #00 +r P"*" |93 naechsten Band laden, dasselbe nochmal #-v #hi +ƒ e0 wenn Untersatz, dann jetzt nach #-ƒ *** Hauptprozedur zu Ende, im Normalfall Sprung nach #-m ******** #utt +m i4,2 Z bedingter Sprung, wenn "2" in #utt steht (normal) #< wenn '1': Nachladung wird bearbeitet #+c Internformat-Anzeige: (a99/alcarta F5) Achtung: es darf nicht ke="" gesetzt sein, dann geht's nicht #-( aktivieren, wenn alcarta F5 nicht gehen soll #uzp +C c"alc" e0 #bp  "˜ ²" ACHTUNG: "..." beginnt mit Code 255 #bp .35 35 Texel #bp & & V23 #bi5=0 #bi4=0 #uFS p"\f1" P{ C } y0 #t{ "{ \f1 \fs18 " C } Schrift 1 #nr p"x" e2 =dM #t{ s0 } oder 5 statt 4 wenn 3stelliges Schema! ## oder #L alternativ: Anzeige mit Labels aus der CFG #t{ C } #bp  178 #bp .35 8 #bi5=95 #bi4=1 #+# ************************** jetzt die Zwischenstufen abarbeiten, wenn was nachgeladen wurde #-c #<+d geht's noch weiter runter? #t{ C t61 } #+g nein, wir sind schon auf dem Ausgangssatz #-d #<^ ja, dann erst wieder hochschalten, dann die Zwischendaten ausgeben #t{ C } #00 b"+" B"=" f" " P{ ". " #250 } #18 +#18x #19 +#40 0 #20 #40 e";" F" " p" / " #41 e";" F" " p" / " P" [Hrsg.]" #18x #<+c rekursiv zurueckschalten ********************************************** jetzt sind wir wieder auf dem Ausgangssatz hier kommen wir nur hin, wenn das ein Untersatz ist (#utt = 1) #-g #t{ C } #hi +#90 e0 wenn kein hierarch. Untersatz, dann Stapel leeren: #c m>c 222 #90 >c Z sind wir bei einem normalen Untersatz? #92j +t e0 Datum fuer Ergaenzungslieferung #00 +l c"+" b"+" B"=" f" " P". " P60 nein, ein selbstaendig gespeicherter #09 +l c"+" b"+" B"=" f" " P". " P60 nein, ein selbstaendig gespeicherter #84 +l T" ; " b"; " P". " P60 nein, ein selbstaendig gespeicherter #84 +l e0 (" ; " fehlt) $$950509: C in den Zeilen #01 - #05 #01 +l { C } B" = " c" =" p"Enth.: !" e"!" p103 P{ #250 t111 } #01 +l { C } B" = " P{ ". " #250 } #02 +l { C } B" = " P{ ". " #250 } #03 +l { C } B" = " P{ ". " #250 } #04 +l { C } B" = " P{ ". " #250 } #05 +l { C } B" = " P{ ". " #250 } #c e0 wenn Bandverfasser unterstrichen: naechste zeile (Karte!) #40 e";" F" " P":" p85 P117 erste Zeile: 1.Verf. und Signatur, unterstr. sonst diese: #40 e";" F" " P": " erste Zeile: 1.Verf. und Signatur, unterstr. #18 +i F"." P". - " #19 +i F"." P". - " #20 0 #00 1 #25 5 #32 0 #69 9 #77 8 #zz 0 #+i zum Hauptteil #-m #01 +# e0 fuer Baende eines normalen mehrbaendigen Werkes #02 +# e0 wird das folgende nicht gemacht, #03 +# e0 sondern hier beendet #04 +# e0 #05 +# e0 ***** Es koennten noch selbstaendig gespeicherte Baende da sein: ******* deshalb wird eine Nachladung ueber Index 9 versucht: !00 +#99J e"=" F" " P"+" y2 |92 wenn ja, dann den ersten nachladen #e Datum der Ergaenzungslieferung #90. ++ p>c m>c 333 Signaturen abarbeiten #90. +#00 e0 #t4 #00 +#84 b"+" B"=" f" " P". " P60 1. Fall: echte Hierarchie #09 +#84 b"=" f32 P". " P60 2. Fall: "=" Bandangabe in #09 #09 +#84 b"+" f"0" P". " P60 3. Fall: "+" in #09 #84 T" ; " b"; " P"." P60 4. Fall: textuelle nach-oben-Verkn. #18 +#71 #zz 8 #19 +#71 #zz 8 #20 0 #zz 8 #71 0 #zz 8 #76 B" = " #zz 8 #77. #9X +#99Y e0 #92 ++ p>B m>b e0 Bestandszeilen #99Y e0 #c m>c 444 #90 C >c noch die Signatur aus Hauptsatz nehmen #< #+f SchlW #-B Bestandsdatensatz (ueberarbeitet) Alternative: #-I #9DG +I i4,V e0 #9DF { t72 "Titelsatz zeigen" t104 " (" } e"" P")" #9DF e"" p"x f1n |9 " P"\dis\sho rec" =Z~ #9DF p"Titelsatz zeigen!" e"!" =Y~ #uzp +#99Z c"alc" e0 OPAC: kein Kommentar #9DF p"x form Exempl\if ca end\var #ubs\ins #9DB\yesno Speichern?\if yes put\if cancel undo\!" e"!" =Z~ #t{ " " t72 "Exemplardaten bearbeiten" t104 C } #9DF "Exemplardaten bearbeiten!" e"!" =Y~ #99Z #9DF +#40 e"" e"+" e"=" |90 Titelsatz holen #9DF b1 e"" e"+" e"=" |90 Titelsatz holen #40 +#20 { #4 C } P" : " #41 { #4 C } P" : " #20 +#60 C e" : " #8n C #60 " / " #61 " / " #W m>M #+ƒ #(M #t{ C "..." } #(W #cc =sz #-¡ #usz e"" { C } #usz +¡ b"" =sz #)W #)M #-L Begriff-/Erlaeuterungssatz (komplett neu) #96b p{ t79 " Begriff: " t111 #250 } #96e p{ C C t79 " Erläuterung: " t111 #250 } #+ƒ #-N Stammsatz fuer Koerperschaftsnamen #t { t79 " Name: " t111 #250 } #6n #6nd { C t79 " 'Lebensdaten': " t111 } #6na { C C t79 " Verw.Formen: " t111 #250 } #6nf { C C t79 " früher siehe: " t111 #250 } #6ns { C C t79 " später siehe: " t111 #250 } #6nr { C C t79 " siehe auch: " t111 #250 } #6ue { C C t79 " engl. Form: " t111 #250 } #6nz { C C t79 " Anmerkung: " t111 } #+ƒ das waer's #-P Stammsatz fuer Personennamen #t { " " t65 #250 } #t { t65 } #4n p{ "{ \f1 \fs18 " } P{ "}" } #4nd { C C t79 " Lebensdaten: " t111 } #4na { C C t79 " auch: {\f1 \fs18 " t111 #250 } #4np { C t79 " Pseudonyme: " t111 #250 } #4nt { C t79 " wirkl. Name: " t111 #250 } #4nr { C t79 " siehe auch: " t111 #250 } #4nz { C t79 " Anmerkung: " t111 } #8e { C C t79 " WWW-Angebote:" C } e0 #8e. >8 m>8 e0 #+ƒ #-Q FAQ-Satz #20 p{ t79 " Frage: " t111 #250 } #81 p{ C C t79 " Antwort: " t111 } #8e { C C &0 t79 "Web-Adresse: " } e0 #8e. ++ >8 m>8 e0 #+ƒ #-R Alternativ: Stammsatz fuer Reihe/Stuecktitel-Serie ***** Start ZS-Stammsatzverarbeitung ***** #00 +#00 i4,z e0 #+Z #00 +æ c"+" e"+" |90 Untersatz: Hauptsatz laden #90 p79 p>c m>c 555 #8n { C t79 " Zeitschrift: " #250 t111 } #8na p89 p" (" P")" P111 #60 { C t79 " Urheber: " #250 t111 } #41 { C t79 " Herausgeber: " #250 t111 } #8n1 { C t79 " Zitiertitel 1: " #250 t111 } #8n2 { C t79 " Zitiertitel 2: " #250 t111 } #74 { C t79 " Ort : Verlag: " #250 t111 } e"" #75 ": " #76p { C t79 " Ersch.Verlauf: " t111 } #23 ++ { C t79 " Verweisungen: " #250 t111 } m4 #88c { C t79 " CODEN: " t111 } #88 { C t79 " ISSN: " t111 } #26 ++ { C t79 " Beigaben: " #250 t111 } m4 #8nz { C t79 " Anmerkung: " #250 t111 } #t4 #uzp +#97b c"alc" e0 OPAC: Erwerbungsangaben ueberspringen #97 >L Lieferant #97e i4,K " (Kauf)" e7 #97e i4,T " (Tausch)" e9 #97e i4,G " (Geschenk)" e11 #97n { C t79 "Vorgangsnummer: " t111 } #97k { C t79 " Anmerkung: " t111 } #97s { C t79 "Lieferfrist : " t111 } P" Tage" #97f { t79 " Mahnfrist : " t111 } P" Tage" #97b { C t79 "Erstbestellung: " t111 } #97x { t79 " Abbestellung: " t111 } #97z { C t79 "Anzahl Exempl.: " t111 } ZS-Status: nur fuer laufend gehaltene ZS #uzp +ã c"alc" e0 OPAC: keine Statusmeldung, weiter mit ZS-Baenden #97a +#00 i4,1 { C t79 " Status: " #250 t111 } dtg e0 #+ã nicht laufend: weiter mit ZS-Baenden #00 did aid nur fuer ZS-Stammsaetze: Idnr. nach #uid #dts e4 "+" Aid aktuelles Jahr mit "+" an ZS-Identnr. anhaengen #uid +ä |90 Bandsatz nachladen, weiter bei #-A #dts e4 "Keine Bandaufnahme fr " P" vorhanden. " #nr "365" e3 atg nicht gefunden: #udt mit 365 belegen #00 did aid ZS-Identnr. nach #uid #dts e4 x"-1" e4 "+" Aid Vorjahr mit "+" anhaengen #uid +ä |90 Bandaufnahme nachladen #t{ "Auch nicht für das Vorjahr!" } #+ã weiter mit ZS-Baenden #-ä Fristberechnung #92 +#ufh F",-/ " T"," B"/" B"-" f32 dfh afh Letzte Heftnr. extrahieren #92 +#ufh F",-/ " B"/" B"-" f32 dfh afh dto., falls kein Komma vorh. #t{ "#92 nicht bzw. ungültig belegt!" } #+å #ufh +å x"==0" "Keine Fristberechnung fr Folgeheft zur Nr. " P" m”glich." #92a +#dts x">0" dnr anr Anz. erwarteter Hefte nach #unr #t{ "Keine Fristberechnung, da #92a nicht bzw. ungültig belegt." } #+å akt. Vormonat in Tage umrechnen, ggf. #utg fuer Vorjahr hinzuaddieren (365): #dts b4 e2 x"-1" x"*30.5" x"+tg" dtg atg #dts b6 e2 x"+tg" dtg atg akt. Tag aufaddieren Letzte Heftnr. durch Anz. Hefte teilen, mit 365 multiplizieren, #ufh x"/nr" x"*365" x"-tg" x"r0" dfh afh akt. Anz. Tage abziehen Ergebnis positiv: alles ok. #ufh +å x">=0" "Lieferung der n„chsten Ausgabe in " P" Tagen erwartet." #< Ergebnis negativ: zurueck zur ZS-Hauptaufnahme #97s +#ufh x"+fh" x"r0" dfh afh Lieferfrist aufaddieren #97 +#9A |:0 nicht angegeben: Lieferantenstammsatz laden #97 "kein Lieferantensatz gefunden zu " #+å #9A s x"+fh" x"r0" dfh afh Lieferfrist aufaddieren #ufh +å x">=0" "Lieferfrist fr n„chste Ausgabe: noch " P" Tage." #97f +#ufh x"+fh" x"r0" dfh afh Mahnfrist aus Hauptaufnahme aufaddieren #9A f x"+fh" x"r0" dfh afh sonst aus Lieferantenstammsatz nehmen #ufh +å b"-" "Mahnfrist fr n„chste Ausgabe um " P" Tage berschritten!" #ufh "Mahnfrist fr n„chste Ausgabe l„uft in " P" Tagen ab." #-å #V Verteilerliste #nr "1" e1 dnr anr #unr mit 1 belegen #< zurueck zum ZS-Band der Bandsatz kann mehrere Hefteintraege haben: #9Xx #9X. p{ C C t79 " Heft Lieferung Entleiher/in (Verteiler) Abtlg. entl. am" t111 } e0 #9X. ++ >Z m>Z UP Z fuer alle Hefte aufrufen #99k +#unr C C P"vollz„hlig!" dnr anr Status Kollation #+ƒ #unr b6 e2 f48 { C t79 " Status: " t111 "Die Hefte sind seit " } #unr b4 e2 f48 "." #unr b2 e2 "." #unr b8 " " dnr #+ƒ ***** Ende ZS-Bandverarbeitung ***** #-T Stammsatz fuer Thesaurus-Eintragungen #t {"Thesaurus-Stammsatz" C C " 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 } #+ƒ #-U Benutzerstammsatz (komplett neu) #uzp +# c"alc" e0 nicht fuer OPAC #9B e"" b1 { t79 "Ausweis: " t111 } ddt dac #9B a b4 e2 Adt Monat #9B a e4 "/" Adt Jahr #udt { t79 " gilt bis: " t111 } Datum rechtsbuendig falls 1. Zeichen = "1", ist der Ausweis gesperrt: #9B i4,1 { C C t47 t111 } e0 #9B i4,2 { C C t48 t111 } e0 #t{ C C t79 " Name: " t111 } #9B u c"m" { "Hr. " } e0 #9B u c"w" { "Fr. " } e0 #9B n b", " P" " Vorname #9B n e"," Nachname #9B f { C t79 "Abteilung : " t111 } #9B t { C C t79 "Telefon intern : " t111 } #9B T { t79 " extern: " t111 } #9B F { t79 " Fax: " t111 } #9B s { C t79 "Adresse: " t111 } #9B p p", " #9B o p" " #uac dac e0 #9B e aac e0 ### E-Mail erg„nzt #uac p>9 e0 ## Sprung zum UP9, neu fr KG, damit sich Mail-Programm ”ffnet #9B R { C C t79 "Vermerke : " t111 } #9B +#unr k dnr anr #nr C "1" e1 dnr anr #unr { C t72 "Leserklasse:" t104 " " } #unr "Leserklasse:!" e"!" =Y~ #unr "x #uaSr\exec a-clas!" e"!" =Z~ #ux; dx; e0 #9B e"" b1 "GB" |;8 #ux; c"GB" { C t79 "Es gibt Forderungen" t111 C } e0 #9B +à e"" b1 "B" P" " |;2 1. entliehenes Exemplar nachladen #+ƒ nichts gefunden Nutzersatz: entliehene Exempl. anzeigen #-à #t{ C C t79 "Nr. Titel Verf. Signatur Rckg. Verl." t111 } #nr "1" e1 =nr #-… #unr C r3 P". " Zaehler > 9 #99A #unr "" Afl Flip Nr. #ux: "|:" Afl Flip zum entliehenen Exemplarsatz #99B e0 Sprungmarke Exemplarsatz !9DF +#20 e"" y2 e"+" |92 Titelaufnahme zum Exemplarsatz nachladen #nr +#99D e0 nicht vorhanden -> #20 e28 s30 Titel ausgeben #40 +#99C e11 s12 Verf. #41 +#99C e11 s12 oder Hrsg. #61 +#99C e11 s12 oder Koerp. #t{ " " } #99C e0 #< zurueck zum Exemplarsatz #9DG s e15 s17 Signatur #nr +#unr e0 weiter mit Datum #99D e0 Sprungmarke sonstige Saetze #00 +#8n i4,z c"+" e"+" |90 ZS-Band: Hauptaufnahme nachladen #nr +#ux: { t32 "???" } e0 #8n e28 s30 ZS-Titel ausgeben #< zurueck zum entliehenen Exemplar #ux: b"+" e"[+,]" p" (" P") " Jahr #ux: b"+" b"+" e"," " " P". Ex." ExplNr. #ux: b"," b"," e15 s17 Signatur #unr x"+1" e"." =nr Zaehler erhoehen #9DH R =ad Rckgabedatum #uad >Q #9DH Z " " Verlng. #9DG i4,W " [Warteregal]!" e"!" #9DG i4,V " [Vormerkung]!" e"!" #ux: b":" b6 e2 P"." Entleihdatum #ux: b":" b4 e2 P"." #ux: b":" b2 e2 #ux: b":" e8 =dt Datum in #udt speichern #ux: >D b":" e"," b"/" dfr afr Frist ggf. mit UP D pruefen *V* ausgeben, wenn Ex. vorgem. ist #9DG +#99A i4,V e0 damit in Vormerksaetzen kein V erscheint #9DF e"" =av TitelID + expl.nr zs.setzen #9DG e r3,0 p":E" P" V" Aav #uav 0 |:8 Zeile aus Reg. 8 holen #ux: c" V" p" *V*!" e"!" #99A #<< zurueck zum Nutzerstammsatz #9B +… e"" b1 "B" P" " |;3 naechstes entliehenes Exemplar, Schleife #+ƒ #-S Verw. #9s B"|?" p"Verweisung: " #9s i4,| b1 e1 p" (im Register " P")" #9sa C B"|?" p"Siehe-auch-Verweisung: " #9sa i4,| b1 e1 p" (im Register " P")" #+ƒ #-V Verteiler (komplett neu) #uzp +# c"alc" e0 nicht fuer OPAC #t{ C t79 "Verteiler: " t111 } #9A n Name #9A e"" p89 " (" P")" P111 Kuerzel #9A k { C C t79 "Kommentar: " t111 } #t{ C C t79 "Empfänger: " t111 C } #9A e >E UP E aufrufen zur Ausgabe der Empfaenger #nr { C } "1" e1 dnr anr #unr initialisieren veraltet: Titel zum Vert.? #9A +ç e"" P":" |:8 1. Eintrag zum Kuerzel mit angehaengter IdNr #+ƒ nichts gefunden: fertig #-ç IdNr. isolieren, Bandang. abschneiden: mit #ubt identisch -> #-è #ux: b":" e"+" =bt+è e0 sonst in #ubt speichern #ubt +#unr |90 ZS-Hauptaufnahme nachladen Titel dieses Verteilers #unr +#unr x"<10" { C t79 "[" t79 } P{ t79 "]" } Zaehler ausgeben #nr +#8n { C } e0 mehr als 9 Exemplare -> #unr "" Afl Flip zur ZS-Hauptaufnahme #00 "|9" Afl #8n +#unr { &5 t79 "Titel: " #250 t111 } e57 P" (Zs)" ZS-Titel #20 { &5 t79 "Titel: " #250 t111 } e57 P" (Zs)" LB-Titel #unr x"+1" e"." =nr Zaehler erhoehen #< zurueck zum Lieferantsatz #-è #9A +ç e"" P":" |:9 naechsten Eintrag suchen, Schleife #+ƒ #-W Sacherschliessungs-Stammsaetze #t4 #3n +w i4,c b1 e" " { t79 " Sachgruppe: " t65 } #zz 122 #3n +w i4,d b1 e" " { t79 " Dezimalklassif.: " t65 } #zz 122 #3n +w i4,l b1 e" " { t79 " Sprache: " t65 } #zz 122 #3n +w i4,g b1 e" " { t79 " Geograph.Code: " t65 } #zz 122 #3n +w i4,h b1 e" " { t79 " Zeitcode: " t65 } #zz 122 #3n +w i4,a e" " b2 { t79 " Aufstellung: " t65 } #zz 122 #3n +w i4,z b1 e" " { t79 " Zeitschr.Klass: " t65 } #zz 122 #3n +w i4,b b2 e" " { t79 " BASIS-Klassif.: " t65 } #zz 122 #3n +? i4,s i5,t b" " { t79 " Titel-SW: " t65 } F"#" #zz 122 #3n +? i4,s i5,s b" " { t79 " Sach-SW: " t65 } F"#" #zz 122 #3n +? i4,s i5,g b" " { t79 "Geo-/Ethnogr. SW: " t65 } F"#" #zz 122 #3n +? i4,s i5,k b" " { t79 "Körperschafts-SW: " t65 } F"#" #zz 122 #3n +? i4,s i5,c b" " { t79 "Körperschafts-SW: " t65 } F"#" #zz 122 #3n i4,s i5,p C { t79 " Personen-SW: " t65 } e0 #3n +? b" " F"#" p111 #4n +? p111 kein Text in #3n aber #4n #3n i4,d b1 u^^ e" " { t79 " DK-Zahl: " t65 } #zz 122 #3nt +y #3n b" " p" " #3na u() C #-y #t{ C } #+x #-w #t{ #1 } #3nt +x p" " p66 P98 #3n b" " p" " p66 P98 #-? #-x #3na I4,l f" " { C t79 " auch: " t111 } #>R #3n +#3q0 i4,l e0 Sprachsatz #3qd { C C t79 " Dewey 19: " t111 } #3qb { C C t79 " BASIS-Klassif: " t111 } #3ql { C C t79 " LC-Systematik: " t111 } Beispiel fuer #3n a... : Standort #3n i4,a p{ C C "Eine Auswahl von Büchern finden Sie" } e0 #3n +#3nr i4,a i5,1 p{ C t79 "im Freihandbereich 1" t111 } e0 #3n +#3nr i4,a i5,2 p{ C t89 "im Freihandbereich 2" t111 } e0 #3n +#3nr i4,a i5,3 p{ C t65 "im Freihandbereich 3" t111 } e0 #3nr f";" e"" { C C t79 " siehe auch: " t111 } #3nr +#3n0 b"b" { C C t79 " Oberbegriff: " t111 } e"f" e"s" e"n" e"a" ,"_b_; _" ,"_O_; _" ,"_;;_;_" #3nr b"O" { C C t79 " Oberbegriff: " t111 } e"f" e"s" e"n" e"a" ,"_b_; _" ,"_O_; _" ,"_;;_;_" #3n0 #3nr b"f" { C C t79 " früher: " t111 } e"s" e"fn" e"f" #3nr b"s" { C C t79 " später: " t111 } e"n" e"a" #3nr b"n" { C C t79 " neuer Begriff: " t111 } e"a" #3nr b"a" { C C t79 " alter Begriff: " t111 } #3nz { C C t79 " Anmerkungen: " t111 } e"" #3nz b"a" { C C t79 " Quelle: " t111 } e"" #3nz b"b" { C C t79 " Erklärung: " t111 } e"" #3nz b"c" { C C t79 " Bemerkungen: " t111 } e"" #3nz b"S" { C C t79 " SWD-Sachgrp.: " t111 } e"" #3nz b"P" " (Erfassung: " P")" #3n +O i5,g e0 #3n +#3n i4,b e0 BK dauert zu lange! #+ƒ #3n b2 e"." p"?|7" =Z~ #3n p{ C C 160 t66 t65 t85 "Fachgebiet" t117 t111 t98 160 } e0 #3n p"Fachgebiet!" e"!" =Y~ #3n b2 e" " =gr #3n b2 e"." |78 #t{ C #16 C } #t66 #ux7 +#3n ,"_ *_ _" ,"_.?? _ _" p{C t79 " Sachgruppe: " t65 } P{ t111 C } #- #t{ C t66 t111 } #ux7 e" *" #ux7 +#ux7 e" " x"==gr" p{ t65 } e0 #t65 #ux7 b" *" p{ 160 } P{ 160 } #ux7 b" *" p"?|3" =Z~ #ux7 b" *" =Y~ #ux7 e" " x"==gr" p{ t65 t66 } e0 #3n + b2 e"." |79 #t98 #+ƒ #-O !3n +#3q1 C b" " y2 P" [Sprache]" |32 #+ƒ #3q1 #3n i4,l b1 e" " { C t79 " Sprachcode: " t65 } #zz 122 #3nt +#3q2 p" " p66 P98 #3n b" " p" " p66 P98 #3q2 #3q0 #t{ C t79 " DIN: " t111 } #3q #t{ C t79 " Originalname: " t111 } #3nv #t{ C t79 " deutsch: " t111 } #3nu ,"_%_ [SWD:] _" f" " #t{ C t79 " Sprachgruppe(n): " t111 } #3ns #3na f" " { C t79 " auch: " t111 } #3nr 4 4 p{ t79 " Siehe auch: " t111 } #3nP 4 P"XX" ,"_mXX_ Mio._" F"X" p{ t79 " Vorkommen: " t111 } #3nz 4 4 p{ 60 t79 " Bemerkung: " t111 } #+ƒ #-Z Alternative Anzeige (bei Bedarf erweitern) #hi +#00 e0 #nr dZ~ dY~ dfl dnr dst e0 #t{ C t72 "Normale Anzeige" t104 } #uFS x"+2" e"." p"\f1\fs" P{ C } y0 #t{ "{ \f1 \fs18 " } #nr p'x disp "C"\act 1!' e"!" =Z~ #nr p"Normale Anzeige!" e"!" =Y~ #nr p"1" e1 =AT #00 +R i4,z e0 #t{ #5 t19 } #hi "VOL: " P19 #76 "DAT: " P19 #40 ++ "AUT: " m" " P19 #41 "EDT: " P19 #18 +#75 "TIT: " P19 #19 +#75 "TIT: " P19 #20 "TIT: " P19 #71 "EDN: " P19 #75 "PUB: " P19 #77 "PAG: " P19 #85 "SER: " P19 #81 "REM: " P19 #70 +#704 "IN: " #70i "ISSN: " #704 p", Bd." #706 p"/" #708 p", S. " P19 #31. ++ "SUB: " m" " P19 #90 "CNR: " P19 #+# ****** UNTERPROGRAMME **************** #(R #3n-Satz geladen #3ng +ê e";" p"G " P" *" |72 Geosatz laden #-$ #F gib die Funktionsbezeichnung aus #t3 schreibe "; " #)l #(m dasselbe wie #(l, bis auf das Postfix: #>F #t8 #)m #(F Funktionsbez. Ausgabe #i1,5 +5 erste Kategorieziffer =5: weiter bei #-5 4er-Kategorien: #cc i2,1 p" [Hrsg.]!" e"!" #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"!" #cc i2,8 p" [mutmassl.]!" e"!" #cc i2,9 p" [Beitr.]!" 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" [Pr„ses]!" e"!" #cc i2,4 p" [Resp.]!" e"!" #cc i2,5 p" [Vorw.]!" e"!" #cc i2,6 p" [Nachw.]!" e"!" #56 #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. fuer Serientitel: moegliche Eingabeform: #85 Serientitel =p Ordnungsworte ; BdNr oder #85 _kuerzel ; BdNr #cc +#8ny i4,_ e" " F";" P" " |52 Stammsatz? holen, nach #8n (vor V14) #cc +#8nx e" =p " e" ; " ,"_  _ / _" C e"" p"(" #8ny #t{ C "(" } #60 P": " #8n +#39h 0 Stammsatztitel #20 wenn #8n nicht besetzt #39h #< #8nx #cc B" =p " b" ; " e"" p' ; ' (#85 Serientitel ; BdNr) #t{ ")" } #)4 #(8 #t{ C } Kommt kein Punkt vor, aber vorn ein Laufwerksbuchstabe? #cc +#8eZ i5,: c"^." e0 dann ist es ein Datenbanksatz sonst ist es ein Dateiname oder eine URL #cc e"" e" =" ,"_\_/_" p'x var "' P'"\ins #ucc\exec winstart.flx' =Z~ #cc ~z e" =" B"?" =Y~ #cc ~z B"?" p72 P104 #)8 Datenbanksatz (registrierte Db) #8eZ #cc e"" =8e #cc e"" e" =" p"X _access!" e"!" =Z~ #cc ~z B"?" e" =" =Y~ #cc ~z B"?" p72 P104 #)8 #(9 ### UP fr KG - ™ffnen einer e-mail mit Adr. aus Benutzerdatensatz #t{ C t79 "E-Mail: " t111 } #uac =Y~ #uac p'x var "' P'"\ins #ucc\exec winstart.flx' =Z~ ### winstart.flx angepasst und ins DB-Verz. #uac ~z y0 p72 P104 #)9 ********* aLF + ORDER Systemsaetze etc. ************************* #-I Exemplarsatz #9DF +#uae T dae aae #9DF e"" dae aae #uae !uae +#9Df y2 |92 Laden des Titelsatzes #uae p11 P10 #nr +#9D1 e0 #9Df (nur Sprungmarke) #>t Titel ausgeben #< Zurueckschalten zum Exemplarsatz #9D1 (nur Sprungmarke) #9DG +#9D2 i4,V e0 Sprung bei Vormerksaetzen nach #9D2 #9DG e p"Exemplar Nr.: " #9DG L p"Besitzende Bibliothek: " R #9DG +#9D3 i4,0 P"!!!normal" dst ast e0 #9DG +#9D3 i4,l P"!!!ausgeliehen" dst ast e0 #9DG +#9D3 i4,W P"!!!Wartezustand" dst ast e0 #9DG +#9D3 i4,b P"!!!beim Buchbinder" dst ast e0 #9DG +#9D3 i4,g P"!!!im Gesch„ftsgang" dst ast e0 #9DG +#9D3 i4,f P"!!!in der Fernleihe" dst ast e0 #9DG +#9D3 i4,a P"!!!in einer Ausstellung" dst ast e0 #9DG P"!!!unbekannter Status" dst ast e0 #9D3 (nur Sprungmarke) #ust b"!!!" p{ C "Status: " } #9DG s p{ C "Magazinsignatur: " } #9DG l p" Standort: " #9DG a p{ C "Barcode: " } #9DG B p{ C "Bandbezeichnung: " } #9DG b p{ C "Bandnummer (sortierfähig): " } #9DG E p{ C "Ausgabe: " } #9DG Y p{ X "Erscheinungsjahr: " } #+ƒ ****** Ausgabe des Vormerksatzes #9D2 (nur Sprungmarke) #9DF e"" |90 #20 C e" : " P{ C } #>>" t111 C C } #9DA T p"x f1n |9 " P"\dis\sho rec" =Z~ #t{ t72 "Titelsatz" t104 } #9DA "Titelsatz!" e"!" =Y~ #9DB +#9Dx I4,3 e0 #9DA T p"x form Bestell\if ca end\depos D\var #ubs\ins #9DB\yesno Speichern?\if yes put\if cancel undo\!" e"!" =Z~ #t{ t72 "Bestellung modifizieren" t104 } #9DA "Bestellung modifizieren!" e"!" =Y~ #9Dx #9DB +#9Dy i4,6 e0 #9DB +#9Dy i4,7 e0 #9DB +#9Dz i4,A e0 Abo #9DB +#9Db i4,B e0 Band #9DA T p"X o-invent.flx!" e"!" =Z~ #t{ t72 "Inventarisierung" t104 } #9DA +#9Dy "Inventarisierung!" e"!" =Y~ #9Dz #9DA T p"X o-func.flx!" e"!" =Z~ #t{ t72 "Abo-Funktionen" t104 } #9DA +#9Dy "Abo-Funktionen!" e"!" =Y~ #9Db #9DA T p'x var "|9 " #9DA$J\find\shorec\dis!' e"!" =Z~ #t{ t72 "Abo-Daten" t104 } #9DA +#9Dy "Abo-Daten!" e"!" =Y~ #9Dy !9DA +#9Da y0 T C y2 |92 Laden Titel #9DA +#9Db y0 T C p"keinen passenden Titel gefunden zu: !" e"!" P{C "-"*79 C} Fehlermeldung #9Da (nur Sprungmarke) #>t Titel ausgeben #f e0 #t{ " EUR" } Hefte? ZAboM #9DN =hf #9DN P{ C C "Hefte:" } e0 #9DG Y " Bd. " #9DG z " (Zg.Nr. " P")" #9DC w P" Hefte/Jahr" C #9DU +#uDU e0 #9DU " [Umlauf: " P"]" P{C} Auflistung der Hefte #-ž #uhf e"/" C P". " #uhf >h #uhf +ž b";" =hf #uhf dhf e0 #>w #+# #uDU e0 #t{ " Umlauf: " } #00 C T"," f"," p" Heft " P" von:" #9DA T |92 #8n C #20 C #w #+# #9DB q p{ t79 "DEM " t111 } #9DB q x"/1.95583" x"r2" p{ t79 " Euro " t111 } #+# #99D #9DB p p{ t79 "DEM " t111 } #9DB p x"/1.95583" x"r2" p{ t79 " Euro " t111 } #+# #9Ap #t{ "\f0 " } #9A n C C p"Auftraggeber: " #zz 0 Name #9A a p", " Anschrift #t1 #<+” #-K Verteiler: (zwei stelliges Kategorienschema) #t{ t65 "Systemdatensatz: " t111 } #9A +#9Al i4,L e0 Lieferanten fuer 3stell. Schema #9A +#9Aa i4,A e0 Auftraggeber i5, ... verwenden! #9A +#9Ak i4,K e0 Kontingent #9A +#9Af i4,F e0 Helpfenster #9A +#9Aw i4,W e0 Waehrungstabellen #9A +#9Am i4,M e0 Medientypenstammsatz #9A +#9Ad i4,D e0 Medientypsatz #9A +#9Ac i4,C e0 Leserklassensatz #9A +#9Ap i4,P e0 Passwortdaten #9A +#9Ao i4,O e0 Farbdaten #9A +#9Ar i4,R e0 Kalendersatz #9A +#9Ay i4,X e0 Textbaustein #9A +#9As i4,S e0 Signaturgeneratoren #9A +#9As i4,B e0 Bestellnummergeneratoren #9A +#9As i4,Z e0 Zugangsnummerngeneratoren #+ƒ alles andere wird nicht angezeigt Lieferanten #9Al (nur Sprungmarke) #uzp +# c"alc" e0 nicht fuer OPAC #9A n { C t79 " Lieferant: " #250 t111 } Name #9A e"" p89 " (" P")" P111 Kuerzel #9A k C Kontaktperson #9A a C Anschrift #9A t { C C t79 " Tel.: " #250 t111 } #9A x { C C t79 " Kundennr.: " t111 } #9A b { C C t79 " Bankverb.: " #250 t111 } #9A z ", BLZ " #9A K { C t79 " KontoNr.: " t111 } #9A e y0 { C t79 " Mail: " t111 } #9A F { C t79 " FAX: " t111 } #9A s { C C t79 "Lieferfrist: " t111 } P" Tage" #9A f { C t79 " Mahnfrist: " t111 } P" Tage" #nr { C } "1" e1 dnr anr Zaehler initialisieren #9A +á e"" P":" |:2 1. Titel zum Verteiler nachladen #+ƒ #-á Auftraggeber #9Aa (nur Sprungmarke) #t{ "Auftraggeberdatensatz" } #9A e"" B1 p{ C "Code: " } P{ C } #9A daa n aaa e0 #uaa p"Name: " P{ C } #9A daa a aaa e0 #uaa p"Anschrift: " P{ C } #9A daa t aaa e0 #uaa p"Telefon: " P{ C } #9A daa k aaa e0 #uaa p"Kontakt: " #+ƒ Kontingent #9Ak (nur Sprungmarke) #t{ "Kontingentdatensatz" } #9A e"" B1 p{ C "Code: " } P{ C } #9A K p"Bezeichnung: " P{ C C } #9A c p"W„hrung: " P{ C C } #9A V r8 p" vorgegeben: " #9A +#9Az c " " #9A V p" DEM" e4 #9A V x"/1.95583" x"r2" r9 p" =" P{ " EUR" } #9Az #t4 #9A R E"." r6 p" durch Vorauswahl gebunden: " #9A +#9Az c"cEUR" R B"." e2 P{ " EUR" } #9A R P".00" B"." e2 P{ " DEM" } #9A R x"/1.95583" x"r2" r9 p" =" P{ " EUR" } #9Az #t4 #9A E E"." r6 p"durch Vorakzession gebunden: " #9A +#9Az c"cEUR" E B"." e2 P{ " EUR" } #9A E B"." e2 P{ " DEM" } #9A E x"/1.95583" x"r2" r9 p" =" P{ " EUR" } #9Az #t4 #9A B E"." r6 p{ " gültige Bestellungen: " } #9A +#9Az c"cEUR" B B"." e2 P{ " EUR" } #9A B B"." e2 P{ " DEM" } #9A B x"/1.95583" x"r2" r9 p" =" P{ " EUR" } #9Az #t4 #9A A E"." r6 p" bezahlt: " #9A +#9Az c"cEUR" A B"." e2 P{ " EUR" } #9A A B"." e2 P" DEM" #9A A x"/1.95583" x"r2" r9 p" =" P{ " EUR" } #9Az #9A doA doB doV #9A A =oA e0 #9A B =oB e0 #9A V x"-oA" x"-oB" =oV e0 #uoV C x"r2" " Noch frei: " #t4 #+ƒ Hilfefenster #9Af (nur Sprungmarke) #t{ "Datensatz für Hilfefenster" } #9A e"" B1 p{ C "Code: " } P{ C } #t{ C "Inhalt:" C } #9A daa F aaa extrahiere Fensterinhalt #-Ž #uaa e":" s12 erste Spalte ausgeben #uaa B":" e"%" zweite Spalte ausgeben #t{ C } #uaa +Ž b"%" daa aaa Zeile wegnehmen #+ƒ Waehrungstabelle #9Aw (nur Sprungmarke) #t{ "Währungstabelle" } #t{ C "Inhalt:" C } #9A daa W aaa extrahiere Tabelle #-š #uaa e":" P{ &8 } erste Spalte ausgeben #uaa B":" e":" P{ &15 } Faktor ausgeben #uaa B":" B":" e"%" p" " P{ C } Bezeichnung ausgeben #uaa +š b"%" daa aaa erste Zeile wegnehmen #+ƒ ************Generatoren Signaturgeneratoren #9As (nur Sprungmarke) #9A i4,B "Bestellnummerngenerator!" e"!" #9A i4,S "Signaturgenerator!" e"!" #9A i4,Z "Zugangsnummerngenerator!" e"!" #9A C C e"" b1 "Code: " #9A N C "Name: " #9A R C "Register: " #9A P C "Pr„fix: " #9A F C "FeldPr„fix: " #+ƒ ... fertig! *************Ende Generatoren #9Am #t{ "Medientypenstammsatz: " } #9A C #+ƒ #9Ad #t{ "Medientypsatz: " } #9A b1 e1 P" = " #9A C #9A B C "fr Leserklasse " #9A L C "Leihfrist: " #9A K C "Kurzfrist: " #+ƒ #9Ac #t{ "Leserklassensatz: " } #9A C #+ƒ Passwortdaten #9Ap (nur Sprungmarke) #t{ "Passwortdatensatz:" } #t{ C "wird nicht angezeigt!" } #+ƒ Farbdaten #9Ao (nur Sprungmarke) #t{ "Farbeinstellungen:" } #9A e"" B1 p{ C "Code: " } P{ C } #t{ C &15 "Text" &30 "Rahmen" &45 "Eingabefeld" } #t{ C "Vordergrund: " } #nr dab e0 Flag, ob Vorder- oder Hintergrundfarbe #9A T x"+100" daa aaa extrahiere Text-Vordergrundfarbe #uaa p>O #t{ &29 } umwandeln und ausgeben #9A R x"+100" daa aaa extrahiere Rahmen-Vordergrundfarbe #uaa p>O #t{ &44 } umwandeln und ausgeben #9A E x"+100" daa aaa extrahiere Eingabefeld-Vordergrundfarbe #uaa p>O P{ C } umwandeln und ausgeben #t{ C "Hintergrund: " } #nr p"1" e1 =ab Z #9A t x"+100" daa aaa extrahiere Text-Hintergrundfarbe #uaa p>O #t{ &29 } umwandeln und ausgeben #9A r x"+100" daa aaa extrahiere Rahmen-Hintergrundfarbe #uaa p>O #t{ &44 } umwandeln und ausgeben #9A e x"+100" daa aaa extrahiere Eingabefeld-Hintergrundfarbe #uaa p>O P{ C } umwandeln und ausgeben #+ƒ Textbaustein #9Ay (nur Sprungmarke) #t{ "Textbaustein:" } #9A e"" B1 p{ C "Code: " } P{ C C "Inhalt:" C } #9A B"x" #+ƒ #9Ar #t{ "Kalendersatz für das Jahr " } #9A y0 b1 e"" #+ƒ *********** Anzeige des nachgeladenen Lieferanten im Bestellsatz #9AL #9A n C p{ t79 "Lieferant: " t111 } Name #9A a p", " Anschrift #9A l p", " Land #t1 #<+ *********** Anzeige des Kontingencodes im Bestellsatz #9AS #9A K C p{ t79 "Kontingent: " t111 } Kontingentbezeichnung #t1 #<+™ #+ƒ #(h Hefte, Datum #cc b"/" b6 e2 f"0" #cc b"/" b4 e2 f"0" "." #cc b"/" e4 "." #)h #(f Fremdwaehrung ORDA: (Aufruf aus FLEX f durch "deposit D") Preisumrechnung Fremd->Eigenwaehrung #9DB +- c c"EUR" e0 #9DB ~P ~q =bs $P und $q rausnehmen #9DB +#uuK c dwh =wh Waehr.code -> #uwh #9DB 0 =bs #9DB p p"q" Abs #ubs p"#9DB" M #+# #)f #uuK b"#uwh" b1 e"\" =wH #uwh in #uuK suchen, wert in #uwH #uwW +#9Dz e0 Euro ist Leitwaehrung? -> #9Dz multiplizieren #9DB +#9Da p x"*wH" x"r2" p"q" Abs mit#uwH malnehmen, in $q legen #9Dz dividieren #9DB p x"/wH" x"r2" p"q" Abs durch #uwH dividieren, in $q legen #uwW p71 p" " P{ t111 " " } #ubs q #9Da #ubs kann dann im FLEX benutzt werden! #ubs p"#9DB" M #)f #+# *** aLF *** #-F * STATISTIKSATZ #nr dad e0 #t{ #5 } #9AF +#J1w i9,K e0 * Kassen #9AF +#J1t i8,D "*Tagesstatistik*." e"." #9AF +#J1u i8,M "*Monatsstatistik*." e"." P{C} #9AF +#J1v i8,Y "*Jahresstatistik*." e"." P{C} #+ƒ #J1t #9AF D b6 e2 f"0" P"." Aad #J1u #9AF D b4 e2 f"0" P"." Aad #J1v #9AF D e4 Aad #uad C "Monat: " #t{C} #9AF m "Medientyp " #t{C C "Entleihungen nach Leserklassen" C} #9AH L =tl #>C #t{C "Entleihungen nach Signaturgruppen" C} #9AH S =tl #>C #t{C "Verlängerungen nach Leserklassen" C} #9AI L =tl #>C #t{C "Verlängerungen nach Signaturgruppen" C} #9AI S =tl #>C #+ƒ #J1w * Tages-, Monats- und Jahreskasse #9AF +#J1M i8,M "*Monatskasse*." e"." #9AF +#J1J i8,Y "*Jahreskasse*." e"." #9AF +#J1D i8,D "*Tageskasse*." e"." #+ƒ #J1D * Datum jeweils verwursten #9AF D b6 e2 f"0" P"." Aad #J1M #9AF D b4 e2 f"0" P"." Aad #J1J #9AF D e4 Aad #uad " : " #t{C} #t{C "Säumnis : "} * Liste der 'Gebuehrensummen' #9AH 0 =pf #>G #t{C "Anmeldung : "} #9AH 1 =pf #>G #t{C "Rückmeldung : "} #9AH 2 =pf #>G #t{C "Ausweisersatz : "} #9AH 3 =pf #>G #t{C "Verlängerung : "} #9AH 4 =pf #>G #t{C "Entleihung : "} #9AH 5 =pf #>G #t{C "Vormerkung : "} #9AH 6 =pf #>G #t{C "Mahnung : "} #9AH 7 =pf #>G #t{C "Porto : "} #9AH 8 =pf #>G #t{C "Sonstiges : "} #9AH 9 =pf #>G #t{C "Storno : "} #9AI o =pf #>G #9AF +#J1U I8,D e0 * Stundung nur bei 'Tageskasse' #t{C "Stundung : "} #9AI u =pf #>G #J1U #t{C "--"*30 C t98 "Saldo : "} #9AI S =pf #>G #+ƒ * Gebuehren: #-M #t{" GEBüHRENSATZ" #5 t98} #9GF B p{C "Zu Lasten Leser : " t72 } P104 #9GF B =Y~ #9GF B "x f1nd |: B" P"?\disp\sho rec" =Z~ #9GF +#J2f i4,0 e0 #9GF +#J2s i4,S e0 * storniert #t{"*Getilgt* "} #nr +#J2z e0 #J2s #t{"*Storniert* "} #J2z #9GF d =ad #>Q #t98 #J2f #t{C "Gebührenart : "} #9GF +#J2h G c"U" p"Stundung (" P")." e"." #9GF +#J2h G c"0" p"Verzug (" P")." e"." #9GF +#J2i G c"S" p"Export (" P")." e"." #9GF +#J2i G c"9" p"Extra (" P")." e"." #9GF +#J2h G c"7" p"Mahnung (" P")." e"." #9GF +#J2h G c"8" p"Mahnporto (" P")." e"." #9GF +#J2h G c"1" p"Leser Anmeldung (" P")." e"." #9GF +#J2h G c"2" p"Leser Neuanmeldung (" P")." e"." #9GF +#J2h G c"3" p"Leser Ausweisersatz (" P")." e"." #9GF +#J2h G c"4" p"Verl„ngerung (" P")." e"." #9GF +#J2h G c"5" p"Entleihung (" P")." e"." #9GF +#J2h G c"6" p"Vormerkung (" P")." e"." #9GF +#J2h G p"(Unbekannt)." e"." #J2i #9GG G p{C "Grund : "} #J2h #9GG T p{ C "zu Titel Nr. : " t72 } P104 #9GG T "x f1nd |9 " P"?\disp\sho rec" =Z~ #9GG T =Y~ #9GG E f"0" ", Ex. " #9GG D p{ C "ausgeliehen am : " } =ad #>Q #9GF D p{ C "Registriert am : " } =ad #>Q #t{ "" } #9GG d p", " P" Tage Verzug" #9GF o p{C "Bearbeitet durch : "} #t{C "Summe : "} #9GG S t2 #9GG S T2 p"." #uwW +ƒ p" " #t{ " DM" } #+ƒ #-G Rechnung (ZAboM und ORDER) #t{ "Rechnung" C } #9R d C "Datum " #9R l C "Lieferant: " #9R a c"zabo" C "zum Abo " #9R a c"^zabo" C "zur Bestellung " #9R p C "Betrag: " #9R n C "Nummer: " #9R k C "Konting: " #+# ******** Unterprogramm t: Anzeige des nachgeladenen Titelsatzes - Der Titel muss schon nachgeladen sein - ggf. muss nach dem UP-Aufruf zurueckgeschaltet werden #(t #20 +#40 U daa aaa #8n U daa aaa #40 ++ 4 #409 5 #zz 1 #60 ++ 6 #609 5 #zz 1 #uaa 0 #zz 1 #75 0 #76 8 #zz 1 #76 P"." #87 e"" C p"ISBN: " #9C +#9Dc e0 #+„ #9Dc nur Sprungmarke #00 p"[Titel-Identnr.:] " C Ausgabe der Identnummer in #00 #-„ #t10 #)t ********** aLF + ORDER Ende Anzeige Systemdatensaetze #(B Bestandsangaben #cc L C P":" p89 P111 #cc +#92X s p" " #cc C { t65 "Bestand: " t111 } #92X #00 +#39X P"'" |108 #)B #39X #t{ C t71 "Bestände: " t111 } #-X #ux: +#92A P"xx" b72 e0 #ux: +#92B e0 #92A Bestandszeile zu lang, Bestandssatz laden #ux: |100 #t{ C } #ux: b"'" e'"' F"-" p"SYSA" |118 Adressenzeile aus Reg.11 #ux; C b":" p86 P122 #9DG H C dx: #9DG dxy s p" = " =xy Signatur auch wirlich holen! # #t{ C C t79 "Nr. Re.-Dat. Preis Inv.-Nr. Lieferung" t111 C } #nr "1" e1 =st #00 C b"+" B"=" e4 s5 Nr. #92r e"." r2,0 Rechnungsdatum #92r b"." e"." r2,0 "." #92r b"." b"." T2 "." #92r +#92p e0 #t{ " " } #92p e"[.,]" r7 Preis #92p b"[.,]" e" " "," s8 #92p +#91 e0 #t{ " " } #91 +#92d e10 s12 Inv.Nr. #t{ " " } #92d e"." r2,0 Lieferdatum #92d b"." e"." r2,0 "." #92d b"." b"." T2 "." #)e #(E Empfaengerliste (komplett neu) #nr "0" e1 dnr anr Zaehler initialisieren #cc e f32 dem aem Empfaenger in #uem speichern #-‚ #unr x"+1" =nr Zaehler erhoehen #unr e"." r2 P". " und ausgeben #uem +#9B e"[;%]" F32 "B" |:0 1. BenutzerIdNr. nehmen, nachladen #uem +#uem e"[;%]" F32 P46 nicht gefunden: Idnr. ausgeben #9B u c"m" "Hr. " e4 sonst Anrede #9B u c"w" "Fr. " e4 #9B n b", " P" " Vorname #9B n e"," Nachname #9B f " (" P")" Abteilung #< zurueckschalten #uem e";" b"%" f32 F32 " / " P" Tage" #uem +‚ C b";" f32 =em erste Idnr. ueberlesen, Rest nach #uem, Schleife #)E #(L Lieferantenverweis (komplett neu) #cc +#9A p"L" |:0 Stammsatz nachladen #cc { C t103 " Lieferant: " #250 t111 } P46 nicht gefunden #)L #9A n { C t72 "Lieferant:" t104 " " #250 } #9A n p"Lieferant:!" e"!" =Y~ #cc p"? |:" =Z~ Flip belegen zurueck zur Ausgangsaufnahme #D v b"%" x"*1" dfr afr ggf. Frist ueberpruefen (UP D) #)Z #(D Ueberpruefung der Leihfrist (komplett neu) #udt b6 e2 f"0" ddL =dd Tag #udt b4 e2 f"0" =mm Monat #udt e4 =yy Jahr #umm +#udd x"<=7" x"%2" x"==1" "31" e2 =dL Berechnung der Tage des #umm +#udd x">=8" x"%2" x"==0" "31" e2 =dL Ausleihmonats #umm +#uyy x"==2" "28" e2 =dL #umm +#udd "30" e2 =dL #uyy x"%4" x"==0" "29" e2 =dL #udd x"+fr" =dd Frist auf Ausleihtag addieren #udd +#99R x"<=dL" e0 falls Anzahl Monatstage nicht ueberschritten -> #udd x"-dL" =dd sonst Anzahl Monatstage abziehen #umm x"+1" =mm Monat erhoehen #umm +#99R x"<=12" e0 falls Jahresgrenze nicht ueberschritten -> #umm x"=1" =mm sonst Monat = 1 #uyy x"+1" =yy Jahr erhoehen #99R #udd e"." r2,0 =dd Rueckgabetag zweistellig #umm e"." r2,0 add Rueckgabemonat dto. davor #uyy e"." add Rueckgabejahr dto. #dts e8 x">dd" "!!" e2 p99 P122 Hinweis, falls Rueckgabedatum ueberschr. #nr ddd ddL ddt dfr dmm dyy e0 alle Variablen loeschen #)D #(C #-  #utl b";" dhi ahi e0 #utl e";" dso aso e0 #uso P" " #uhi +  =tl #zz 0 #)C #9AU V23 SD-Satz #t{ " Verschlüsselungs-Sequenzen für Unicode" } #bp & & V23 & unschaedlich machen! #9A C b1 #+# Memo #9af +#9af =Z~ #+¢ #9af e0 #9a e";" =Y~ #9a e";" { t65 "Memo: " t111 t72 } P104 #9a b";" f" " C #-£ #9at C C #9ad B" = " C "Termin: " #t{ C C t72 "Bearbeiten" t104 } #nr "Bearbeiten!" e"!" =Y~ #nr "x form Memo\if not dif end\Put\if no undo!" e"!" =Z~ #t{ C C t72 "Memo-Menu" t104 C } #nr "Memo-Menu!" e"!" =Y~ #nr "h memo!" e"!" =Z~ #+f #+# #-¢ #9a e";" { t65 "Memo: " t111 } #+£ #+# FLEX fuer ALFA #(c #uAL +é e0 ALFA? dann #-é #cc B"L" ,"_s_:_" e"" e" = " p{C "Signatur: " t66} P{t98 ' \qr' C '\ql '} #uAU +#cc e0 Ausleihangabe nur zeigen, wenn #uAU gesetzt #+- #cc u p{ "ausgeliehen an: " t66} P{t98 ' \qr' C '\ql '} #)c #-é #bp .35 35 # als Texel-Steuerzeichen abschalten! #t{ s0 } um die Kat.Nummer auswerten zu koennen #cc +#90„ u e0 teilfeld u vorh. -> Rueckgabe #cc +#90 p e0 keine Ausl., wenn p Zur Differenzierung falls gleiche Signaturen #cc b3 e1 { C "\qr " t72 "Ausleihe " } #cc e"" b4 P104 statt dieser Zeile: #uAU +#90@ e0 #cc +#uci e"" e" = " b4 p"Signatur: " p{ C "\qr " } #90@ #cc e"" b4 e" =" { C "\qr " t72 "Ausleihe " } P104 #cc p'x var "|;Ausl. " P"an ?=" #uuS\ask\if "" end\yesno Ausleihen?\if n end\if c end\ins #uuS\var #uuS(e"=")\ins $u-!' e"!" =ci #nr p"x var ''\ins #usn\!" e"!" =ci #01 "sub " P"\" Aci #02 "sub " P"\" Aci #03 "sub " P"\" Aci #04 "sub " P"\" Aci #nra b4 p'var "' P'"\ins #usn\' Aci #cc e4 p'var "' P'"\ins #usi\exec ausl' Aci #cc b3 e1 =yY 1.Zeichen zur Differenzierung bei gleicher Sign. #cc e"" y0 b4 AyY #cc e"" y0 b4 =yY #uyY y0 b4 e" =" p"Ausleihe " =Y~ #t{ s4 } #uci =Z~ #uci dci e0 #t{ s4 } #bp .35 8 # wieder einschalten #t{C "\ql " } #)c #90„ e0 #uAU +#cc e0 Rueckgabe nur zeigen, wenn #uAU gesetzt #nr +#90 e0 Zur Differenzierung falls gleiche Signaturen #cc b3 e1 { C "\qr " t72 "Ausleihe " } #cc e"" b4 P104 statt dieser Zeile: #cc e"" b4 { C "\qr " t72 "Rückgabe " } P104 #nr p"x yes Rückbuchung?!" e"!" y0 =ci #01 "\sub " Aci #02 "\sub " Aci #03 "\sub " Aci #04 "\sub " Aci #nr p"\if n end\if c end!" e"!" Aci #cc e4 p'\var "' P'"\ins #usc' Aci Kat.Nr. uebergeben an FLEX #cc e4 =sc Kat.Nr. uebergeben an FLEX #cc p"\var ''\ins #usn!" e"!" Aci #nra b4 p'\var "' P'"\ins #usn' Aci #cc p"\exec rueck!" e"!" Aci #cc b3 e1 =yY 1.Zeichen zur Differenzierung bei gleicher Sign. #cc e"" y0 b4 AyY statt dieser Zeile #cc e"" y0 b4 =yY #uyY y0 b4 p"Rckgabe " =Y~ #cc e"" y0 b4 p"Rckgabe " =Y~ #t{ s4 } Anzeige des Nutzers, auf Wunsch aktivieren #uAU +#cc e0 #nr +#uci e0 #cc u " (" P")" #uci =Z~ #uci dci e0 #t{C "\ql " } #)c #90 #cc e"" b4 { "\qr Signatur: " } #t{ s4 } #uAU +#90” e0 #cc u p" (ausgeliehen)!" e"!" #90” #t{C "\ql " } #)c #(G * Unterprogramm 'Pfennig in DM' #upf t2 #upf T2 "." #uwW " " #)G #(Q * Datum #uad b6 P"." #uad b4 e2 P"." #uad e4 dad * Und loeschen... #)Q wird momentan nicht gebraucht: #(d * Langes Datum umdrehen und... #uad b6 f"0" P"." dda Ada * ...in #uad zurueckliefern! #uad b4 e2 f"0" P"." Ada #uad e4 Ada #uda =ad #zz 0 * in uad! #)d #(O #uaa +#98o x"==100" p{" schwarz"} Z #uaa +#98o x"==101" p{" blau"} Z #uaa +#98o x"==102" p{" grün"} Z #uaa +#98o x"==103" p{" türkis"} Z #uaa +#98o x"==104" p{" rot"} Z #uaa +#98o x"==105" p{" pink"} Z #uaa +#98o x"==106" p{" ocker"} Z #uaa +#98o x"==107" p{" weiß"} Z #uaa +#98o x"==108" p{" dunkelgrau"} Z #uaa +#98o x"==109" p{" hellblau"} Z #uaa +#98o x"==110" p{" hellgrün"} Z #uaa +#98o x"==111" p{" helltürkis"} Z #uaa +#98o x"==112" p{" hellrot"} Z #uaa +#98o x"==113" p{" hellpink"} Z #uaa +#98o x"==114" p{" hellgelb"} Z Test, ob Vorder- oder Hintergrund #uab daa p{" blink"} Z #uaa p{" hellweiß"} Z #98o #)O Schriftattribute: d-rtff.apt td-rtff Zeichenwandlung DOS -> Windows: ad-aw.apt tad-aw Bessere Alternative: (dann auch z.B. Verdana als Anzeigeschrift moeglich) tad-rtu ... nur leider Probleme mit Copy&Paste und Flips bei denjenigen Sonderzeichen, die nicht ANSI sind, also echten OstWest-Sonderzeichen ein paar Sonderfaelle: p .020 255 Absatzzeichen p .35 8 Zeichen # ist Texel-Steuerzeichen p @ 1 Entstopp.Zeichen - leider auch in #8e o.a. wg. e-Mail p .152 "\'ff" y mit trema p .170 1 Nichtsortierzeichen 172 AC p .226 "\'98" "[Gamma]" 3 147 0393 ******** Sonderzeichen *********** p  "\par " Absatz p ª 1 p _ 0 p  1 Verweisungsstrich q  1 q ª 1 q A/Z a q  e q € c q "ue" q ‚ e q ƒ a q „ "ae" q … a q † a q ‡ c q ˆ e q ‰ e q Š e q ‹ i q Œ i q i q Ž "ae" q a q e q ‘ "ae" q ’ "ae" q “ o q ” "oe" q • o q – u q — u q ˜ y q ™ "oe" q š "ue" q › t q œ l q s q ž u q Ÿ u q   a q ¡ i q ¢ o q £ u q ¤ n q ¥ n q ¦ c q § c q ¨ r q © r q ª 1 q « s q ¬ s q ­ y q ® z q ¯ z q ° i q ± "th" q ² "th" q Ù/Ï =1 q ¸ .46 q × "oe" q Ý e q à "alpha" q á "ss" q â "gamma" q ã "pi" q ä "sigma" q å "sigma" q æ "mue" q ç "gamma" q è "phi" q é "phi" q ê "omega" q ë "delta" q í "oe" q î a q ï e q ð c q ñ c q ò l q ó l q ô n q õ n q ö o q ÷ s q ù s q ú 32 q û z q ü z q ý z q þ z to