ZAboM : Zeitschriften-Abo-Management 
%=x #ua!`#uX6h zabom`if not #uOR #ua!Initialisierung%`%#ua!`  %=x if #8n var #8n(e':' 0,40)`if not #8n var #20(e':' 0,40 t' ' F' ') '...'`if not #8n if not #20 var #9DA$T`ins #uV1%`HILFE..HILFE..HILFE` 
`Alle lfd. Zeitschriften` -- `Neue Zs`	`ISSN`  
 (alphabetische Liste)	 (suchen oder blättern)
`Alle Abos` -- `Neues Abo`   	`Neuer Band` `Alter Band ` 
 (zu %1) 	 (zur selben Zeitschrift) 
`Heftzugang`	`Heft weitergeben` 
 (Neues Heft eintragen und in Umlauf geben)	 (an den nächsten im Verteiler)
`Bände zur Zeitschrift` 	`Hefte im Umlauf` 
 (Übersicht)	 (Übersicht)
`Neuer Lieferant` 	`Alle Lieferanten` 
 (Stammsatz eingeben)	 (Übersicht)
`Neuer Mitarbeiter `	`Alle Mitarbeiter` 	 
 (Stammsatz eingeben)	 (Übersicht)
`Neuen Verteiler anlegen`	`Alle Verteiler` 
 (Stammsatz eingeben)	 (Übersicht)
`Abos bei einem Lieferanten`  	`Abos zu einem Kontingent` 
                                                       `Mahnungen` 
`Status ändern`	`Abgeschlossene Abos` 
	 
`Hilfslisten anlegen/erneuern`   	`Einstieg u. Vorbereitungen`
`Lieferanten`, `Verteiler `	 (Die wichtigsten Funktionen f. d. Start)
 	 
`Erg.Menge durchrechnen` 	`Monogr.-Erwerbung` 
 (Summe der Abo-Bindungen)	 (z.B. Kontingent-Funktionen)
 
Es gibt noch mehr! 
In jeder Situation können Sie links den Button 7 (oder Alt+7) drücken, dann kommt ein Menü mit den passenden Funktionen.
 
`Grundeinstellungen`
	 
%=x var $Sgen`ins #uoG% 

?Neues Abo=X z-nabo.flx 
?Heftzugang=X z-heft.flx 
?Hilfslisten anlegen/erneuern=x #uoZ zabom`#uoV`exec  o-mkview.flx 
?Neuer Lieferant=x var i`ins #uzI`new 0`show rec`:form`form Liefe`$p-#9A DEU`yesno Speichern?`if no jump form`if cancel jump er`if yes put`#uoV 2`#uoZ zabom`exec o-mkview`:er`erase`var '#' #uzI`f1nd`sho rec`help zabom 
?Lieferanten=x #uoV 2`#uoZ zabom`exec o-mkview 
?Verteiler =x #uoV 5`#uoZ zabom`exec o-mkview 
?Abgeschlossene Abos=x set oa0`fin |: abo-b? or |: abo-e?`if l1 end`order`show list 
?Abos bei einem Lieferanten=X o-lief.flx abo 
?Abos zu einem Kontingent=X o-lief.flx ktg 
?HILFE..HILFE..HILFE=x help zabomh 
?Textbausteine bearbeiten=x find |; SYSXDEU.BESTEL`:edit`form Textb`yesno Speichern? (Nein: noch korrigieren)`if no jump edit`if yes put 
?Engl. Textbausteine bearbeiten=x find |; SYSXENG.BESTEL`:edit`form Textb`yesno Speichern? (Nein: noch korrigieren)`if no jump edit`if yes put 
?Euro<->DM<->Dollar=X euro 
?Bestelldruck=x var ""`ins #ual`exec o-bdruck 
?Alle Lieferanten=x find |; SYSL?`ord a11`sho list`if emp mes Keine gefunden 
?Alle Verteiler=x find |; SYSV?`set RVerteilerlisten`ord a11`sho list`if emp mes Keine gefunden 
?Neuer Band=X z-nband 
?Alter Band =X z-aband 
?Status ändern=X o-status 
?Initialisierung=X z-init 
?Nummernvergabe - Wie geht das?=h nummer 
?Titeldaten zu den Bestellungen=X o-titel 
?Dasselbe als Kurzliste=X o-tliste 
?Dasselbe als XML-Datei=X o-xmlist 
?Neuen Verteiler anlegen=X z-numl 
?Alle lfd. Zeitschriften=x index lfz 0 
?Hefte im Umlauf=x find |9 _u-?`var "RHefte im Umlauf " #dt(b",") ", " #dts(b"/")`set`ord a13`sho list 
?Heft weitergeben=X z-heft wg 
?Bände zur Zeitschrift=x var "|: " #00 "-b?"`if #9DA$T var "|: " #9DA$T "-b?"`find`ord d0`sho list`if g0 end`yes Keine vorhanden, einen Band eingeben?`if yes exec z-nband 
?Erg.Menge durchrechnen=X o-ergrec 
?Alle Mitarbeiter=x find |: A5 ?`set RAlle Mitarbeiter`ord a4`sho list`if emp mes Keine gefunden 
?Neuer Mitarbeiter =X z-npers 
?Alle Abos=x var "|: abo ?"`find`set RAlle Abos`ord a13`sho list`if emp mes Keine gefunden 
?Monogr.-Erwerbung=x dis p d-wrtf`help order 
?Neue Zs=x new`form Zeitsch`if cancel erase;disp;end`put 
?ISSN=x ask ISSN`ins $issn`var '|9 I' $issn '?'`find`if g0 jum f`var 'iss ' $issn`index`end`:f`dis`sho rec 
?Einstieg u. Vorbereitungen=h zabom-e 
?Mahnungen=X z-mahn 
?Grundeinstellungen=h zabom.inc