wünscht
fl=0			kein Kartendruck
fm=0			Modus: keine Einzelkarten für die Bände (2 = Einzelkarten)
i4=1
ke=''  		Feldende, neues Feld
ze=13 10 
zi=0			Einrückung
zl=0			Zeilenlänge unbegrenzt
zm=0			kein Seitenumbruch

	dezim.		verwendete Sprungmarken
	Code			(nur zur Dokumentation)
	-------------------------------------------------------------------

		---- Zwischenteile -----

tutf-8		benutzt utf-8.@pt
p .19 .226 128 147  
p .20 .13 10					Zeilenwechsel
p .26 1
p .31 .36							$ für ASCII(31)
  p <ASCII 26> 1  geht nicht: A99 liefert (obskure) Fehlermeldung

p ` 1
p & "&amp;"
p < "&lt;"
p > "&gt;"
		p .182 .13 10  			Pillcrow
p .244 .13 10  			Pillcrow 
			p  255	 neue Zeile bei , sonst:
			p  1		 ausblenden, oder
			p  182	 normal anzeigen
			p  .34 62  	 ASCII 20 in #L f³r XML ersetzen
p .170 1
	   für DDC bewahren
q : :
q ; ;

		---- Aufrufliste -----

ak=zz+@  			Anfang, dann alle Felder:
ak=0.+A
ak=1.+B
ak=2.+A
ak=3.+A
ak=4.+B
ak=zz+C  			Sonderfelder, die umkodiert werden müssen		
ak=5.+A
ak=6.+A
ak=7.+A
ak=8.+A
ak=9.+D
ak=zz+Z

#+#
#-@		Anfang:
	#nr P'; ' ANL
#94 +# c'stop' e0 #zz 0
		Erst wenn Endabschnitt klappt:
		#ute +#99 e0 #zz 0
		#t{'<add>' C }
		#99 e0 #zz 0
		eindeutigen Identifikator erzeugen:
#t{C '<doc>' C }
#fna e'_' dLa p{'<field name="id">'}
#00 p'_' P{'</field>' C} dfk dFe
#fna e'_' p{'<field name="db">'} P{'</field>' C}
#+#

#-A				Anzeige aller Felder mit Label aus der CFG
#94 +# c'stop' e0 #zz 0  		gestoppte Felder nicht in das Suchsystem exportieren
#u1 +- dfk dLa dFe i3,x e0 #zz 0				Felder mit 'x' (#21x) nicht exportieren
#u1 +B i2,9 e0 #zz 0  			Feld #29 an -B verweisen: Mehrfacheinträge
#u1 +D i1,5 i2,0 e0 #zz 0  	Feld #50 an -D verweisen: Datum
#>L													Label ermitteln und in #uLa speichern
	#uLa p{'A #uLa: '} P{C}
#uLa +a e0   								Label da? Sonst Abbruch
#+#
#-a
#u1 +#uLa i1,1 i2,0 u<> u[] F182 =Fe  	Klammerausdrücke außer bei #10 entfernen
#u1 u<> F182 =Fe  											bei #10 nur spitze Klammern
#uLa p{'<field name="'} P{'">'}
#uFe
#t{'</field>' C}
#+#

#-B				Anzeige aller Felder mit Label aus der CFG, Mehrfachausgabe bei ";" getrennt
#94 +# c'stop' e0 #zz 0
#u1 +- dfk dLa dFe i3,x e0 #zz 0
		#u1 p'Test B: ' P{C}
#cc +A i2,0 e0 #zz 0		Felder #10 und #40 an A verweisen
#>L
	#uLa p{'B #uLa: '} P{C}
#uLa P>F e0   	Label da? Sonst Abbruch
#+#

#-C 		Bearbeitung von Sonderfelder mit Umsetzung der Codes
#94 +# c'stop' e0 #zz 0
	#fna p{'#fna: '} P{C}
#fna +#29 dfk dLa dFe c'~math' e0  						fb = math: MSC verbal in den Datensätzen
#40 +#fna e0 #zz 0									schon direkt eingetragen
#41 p'=' e1 dze =ze+- >Y 					GOK mit Kennung '=' in <ze> speichern und umkodieren
	#ufk y0 p'C: #41= -> #ufk: ' P{C} 
#ufk p'GOKverbal!' e'!' dLa =La+- >F
#fna +#29 c'^~geo' e0  						fb = geo: DDC und BK automatisch erzeugen
#42 +#43 e0 #zz 0									schon direkt eingetragen
#41 y0 p'>' e1 dze =ze+- >Y 			GOK mit Kennung '>' in <ze> speichern und umkodieren (DDC)
	#ufk y0 p'C: #41> -> #ufk: ' P{C} 
#ufk p'DDC!' e'!' dLa =La+- >F
#43 +#29 e0 #zz 0									schon direkt eingetragen
#41 dfk y0 p'<' e1 dze =ze+- >Y 	GOK mit Kennung '<' in <ze> speichern und umkodieren (BK)
	#ufk p'C: #41< -> #ufk: ' P{C} 
#ufk p'BK!' e'!' dLa =La+- >F
#29 dfk >Y 												Source Type auflösen
#ufk p'Source_Type!' e'!' dLa =La+- >F
#+#

#-D				Anzeige von Datumsangaben
#94 +# c'stop' e0 #zz 0
#u1 +A i1,9 i2,0 e0 #zz 0		Feld #90 an A verweisen
#u1 +A V2,2 v2,9 e0 #zz 0		Felder #93 - #98 an A verweisen
#u1 +- i3,x e0 #zz 0
#u1 dLa dzt ddt dfk =fk #zz 0
		#cc p{'#-D #cc: '} P{C}
		#u1 p{'#-D #u1: '} P{C}
		#uf#93 - #98 an A verweisen
#u1 +- i3,x e0 #zz 0
#u1 dLa dzt ddt dfk =fk #zz 0
		#cc p{'#-D #cc: '} P{C}
		#u1 p{'#-D #u1: '} P{C}
		#uf¦

<add>
<!-- Dateianfang  -->
<doc>
<field name="id">Geo_001364</field>
<field name="db">Geo</field>
<field name="Number">001364</field>
<field name="Title">RIPE Database</field>
<field name="Geo-Number">3422</field>
<field name="Publisher">RIPE Network Coordination Centre : Amsterdam, NL</field>
<field name="Distributor">RIPE Network Coordination Centre: Amsterdam, NL</field>
<field name="Type">on</field>
<field name="Language">en</field>
<field name="Country">EU</field>
<field name="Country">NL</field>
<field name="Format">text/html</field>
<field name="Keywords">data bases</field>
<field name="Keywords">RIPE</field>
<field name="Keywords">interdisciplinary research</field>
<field name="Description">RIPE (Réseaux IP Européens) is a collaborative organization open to all parties operating wide area IP networks in Europe. The objective of RIPE is to ensure the administrative and technical coordination necessary to enable operation of a pan-European IP network. The site offers the RIPE database to search for information about a host IP address.</field>
<field name="URL">http://www.ripe.net/cgi-bin/whois</field>
<field name="Source_Code">d6</field>
<field name="GOKverbal">Inter-Disciplinary</field>
<field name="GOK">XX 000</field>
<field name="DDC">XXX</field>
<field name="BK">XX.XX</field>
<field name="Source_Type">Data Collections</field>
<field name="Access">free; no restriction</field>
<field name="Contents">**</field>
<field name="Level">graduate_professional</field>
<field name="Backlinks">about 13,300</field>
<field name="Published">2001-10-22T00:00:00Z</field>
<field name="Reviewed">2001-10-22T00:00:00Z</field>
<field name="Status">FG</field>
<field name="Data_Source">SUB</field>
<field name="Revised">2006-03-14T20:48:57Z</field>
<field name="Titel_sort">ripe database ripe network coordination centre</field>
</doc>