ZAboM : Zeitschriften-Abo-Management 
Einstieg 
`HILFE..HILFE..HILFE` 

`Neuer Lieferant` 	`Alle Lieferanten` 
 (Stammsatz eingeben)	 (Übersicht)

`Neuer Mitarbeiter `	 `Alle Mitarbeiter` 	 
  (Stammsatz eingeben)	 (Übersicht)

`Neuen Verteiler anlegen`	`Alle Verteiler` 
 (Stammsatz eingeben)	 (Übersicht)

`Neue Zs`	`Alle lfd. Zeitschriften` -- `ISSN`  
 (Titeldaten eingeben)	 (suchen oder blättern)

`Hilfslisten anlegen/erneuern` 	`Währungen`
        `Lieferanten`       `Verteiler `

?Hilfslisten anlegen/erneuern=x #uoZ zabom-e`#uoV`exec o-mkview.flx 
?Neuer Lieferant=x new`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-e`exec o-mkview`:er`erase 
?HILFE..HILFE..HILFE=h zabomh 
?Lieferanten=x #uoV 2`#uoZ zabom-e`exec o-mkview 
?Verteiler =x #uoV 5`#uoZ zabom-e`exec o-mkview 
?Alle Lieferanten=x find |; SYSL?`ord a0`sho list 
?Alle Verteiler=x find |; SYSV?`ord a0`sho list 
?Initialisierung=X z-init 
?Neuen Verteiler anlegen=X z-numl 
?Alle Mitarbeiter=x find |: A5 ?`set RAlle Mitarbeiter`ord a4`sho list 
?Neuer Mitarbeiter =X z-npers 
?Neue Zs=x new`form Zeitsch`if cancel erase;disp;end`Put 
?Alle lfd. Zeitschriften=x index lfz a 
?Neue Zs=x new`form Zeitsch`if cancel erase;disp;end`Put
?Währungen=X o-kurse 
?ISSN=x ask ISSN`ins $issn`var '|9 I' $issn '?'`find`if g0 jum f`var 'iss ' $issn`index`end`:f`dis`sho rec