ORDER : Erwerbungsfunktionen 
Startvorbereitungen 
%=x #ua!`if not #uOR #ua! Initialisierung%`%#ua!`  %=x var #20(e':' 0,50 t' ' F' ') '...'`if not #20 var #9DA$T`ins #uV1%`HILFE..HILFE..HILFE` 
`Währungskurse` 
 (Umrechnungskurse sichten/ändern) 

`Neuer Lieferant`  	`Vorhandene Lief.` 
  (Stammsatz eingeben)

`Neuer Auftraggeber`  	`Vorhand. Auftr.` 
  (Stammsatz eingeben)

`Neues Kontingent` 	`Kontingente sichten/berechnen` 

`Hilfslisten anlegen/erneuern`  

     `Lieferanten`      `Auftraggeber`

     `Kontingente`    `Währungen`

`Zeitschriften` 
(Wechsel zu ZAboM) 

?Kontingente sichten/berechnen=X o-kontue.flx 
?Hilfslisten anlegen/erneuern=x #uoZ order`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`var '2'`ins #uoV`exec o-mkview`:er`erase 
?Neues Kontingent=x new`#9A Kcode`$B-#9A 0.00`$E-#9A 0.00`$R-#9A 0.00`$A-#9A 0.00`$c-#9A EUR`show rec\:form\form Konti\yesno Speichern?\if no jump form\if cancel jump er\if yes put`var '3'`ins #uoV`exec o-mkview`:er`erase 
?Neuer Auftraggeber=x new\show rec\help auftr.txt\:form\form Auftragg\yesno Speichern?\if no jump form\if cancel jump er`put`var '1'`ins #uoV`exec o-mkview`end`:er`erase 
?HILFE..HILFE..HILFE=h orderh 
?Währungskurse=x find |; SYSW?`if l1 #uoV4;exec o-mkview`sho r`disp`yes Bearbeiten?`if yes exec o-kurse 
?Auftraggeber=x #uoV 1`#uoZ order`exec o-mkview 
?Lieferanten=x  #uoV 2`#uoZ order`exec o-mkview 
?Kontingente=x  #uoV 3`#uoZ order`exec o-mkview 
?Währungen=x #uoV 4`#uoZ order`exec o-mkview  
?Vorhandene Lief.=x Find |; SYSL? 
?Vorhand. Auftr.=x Find |; SYSA?
?Zeitschriften=x help zabom`if not #uOZ exec z-init 
?Initialisierung=x #uOR 1`exec o-init