(******************************************************************************) (* This MODULE is Public Domain. Copy me like a beast! *) (* Christian Ledermann *) (* W”lfelkofen 2 *) (* 84166 Adlkofen *) (******************************************************************************) (* *) (* Started: 20.12.92 03:54:30 *) (* Version: 20.01.94 04:12:54 *) (* *) (******************************************************************************) (* *) (* Diese Software ist ohne jede Garantie. Ich verspreche *) (* keinerlei Wartung und bernehme keine Verantwortung fr Sch„den die *) (* durch die Benutzung dieses Programmes entstehen. *) (* Jegliche Ersatzansprche lehne ich ab. *) (* *) (******************************************************************************) DEFINITION MODULE Bestellungen; VAR AusgabenFuerBierKauf, AusgabenFuerLimoKauf : LONGINT; GekaufteBierFlaschen, GekaufteLimoFlaschen : INTEGER; PROCEDURE SchuldenAnFax():LONGINT; PROCEDURE Bestellung; PROCEDURE Abrechnung; END Bestellungen.