ORDA
Einfache Bestellverwaltung 
`ORDER`           %=x var #20(e':' 0,50 t' ' F' ') '...'`ins #uV1%`HILFE..HILFE..HILFE` 
`Neue Bestellung` / `Exemplar` 	`Währungskurse` 
 (zu %1) 	 (Umrechnungskurse sichten/ändern) 
`Zugang` 	`Neuer Lieferant` / `Vorhandene Lief.` 
 (Inventarisierung) 	 (Stammsatz eingeben)
`Alle Bestellungen`  	`Neuer Auftraggeber` / `Vorhand. Auftr.` 
 (sortiert n. Datum) 	 (Stammsatz eingeben)
`Bestellungen von heute`	`Neues Kontingent` 
 (als Erg.menge anzeigen)	 (Mittelverteilung) 

`Bestellungen eines Lieferanten`  	`Textbausteine bearbeiten` 
(Einschr. nach Typ und Datum möglich)	 (für die Bestellzettel)
`Bestellnummer suchen` 	`Engl. Textbausteine bearbeiten` 

`Hilfslisten anlegen/erneuern`  	`Bestelldruck` 
`Lieferanten`, `Auftraggeber`	  (einzeln oder Ergebnismenge)
`Kontingente`, `Währungen`	`Neuer Zeitschr.Band` 
 	 (vorher die Zeitschrift aufblättern) 
`Euro<->DM<->Dollar`  	`Euro-Umstellung` 
 (Sonderservice)	 (Zweimal aktivieren!)

?Neue Bestellung=X o-bestel.flx 
?Zugang=X o-invent.flx 
?Hilfslisten anlegen/erneuern=x #uoZ orda`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 Zeitschr.Band=x Date 4\ins #udt\var #00 "+" #udt\new\ins #00\show rec\:band\form Zeitschriftenb\yesno Speichern?\if yes put\if no jump band\if cancel 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 
?Alle Bestellungen=x set od0\fin |; s 3? or |; s 4?\order d0\show list 
?Bestellungen von heute=X o-heute.flx 
?Bestellungen eines Lieferanten=X o-lief.flx 
?HILFE..HILFE..HILFE=h ordahelp 
?Bestellnummer suchen=x var "|: o "`ask +|:Bestellnummer?`if can end`var +"?"`Find 
?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 
?Währungskurse=x find |; SYSW?`if l1 #uoV4;exec o-mkview`sho r`disp`yes Bearbeiten?`if yes exec o-kurse 
?Euro<->DM<->Dollar=X euro 
?Auftraggeber=x #uoV 1`#uoZ orda`exec o-mkview 
?Lieferanten=x #uoV 2`#uoZ orda`exec o-mkview
?Kontingente=x #uoV 3`#uoZ orda`exec o-mkview
?Währungen=x #uoV 4`#uoZ orda`exec o-mkview  
?Bestelldruck=x var ""\ins #ual\exec o-bdruck 
?Euro-Umstellung=X eu-whrg 
?Vorhandene Lief.=x Find |; SYSL? 
?Vorhand. Auftr.=x Find |; SYSA? 
?Exemplar=X a-exemp 
?ORDER=h order