From afd4c3c448381f6eb706090911a15c162fdaf8af Mon Sep 17 00:00:00 2001 From: Lars-Dominik Braun Date: Sun, 9 Oct 2016 11:28:19 +0200 Subject: Decompress source files MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit EUMEL’s TEXT dataspaces wastes a lot of storage space. Some files were therefore “compressed” by storing them as a single line, reducing overhead significantly. --- warenhaus/ls-Warenhaus 0: ohne Kartenleser | 26 ++++++++++++++++++++++++-- 1 file changed, 24 insertions(+), 2 deletions(-) (limited to 'warenhaus/ls-Warenhaus 0: ohne Kartenleser') diff --git a/warenhaus/ls-Warenhaus 0: ohne Kartenleser b/warenhaus/ls-Warenhaus 0: ohne Kartenleser index 4912d64..96af5c1 100644 --- a/warenhaus/ls-Warenhaus 0: ohne Kartenleser +++ b/warenhaus/ls-Warenhaus 0: ohne Kartenleser @@ -22,6 +22,28 @@ *) PACKET ls warenhaus 0 DEFINES - interface anpassung,{} oeffne interface,{} schliesse interface,{} wert von interface,{} pressed key:{}TEXT CONST interface anpassung :: "ohne Kartenleser";{}PROC oeffne interface (INT VAR test):{} test := -6{}END PROC oeffne interface;{}PROC schliesse interface:{}END PROC schliesse interface;{}INT PROC wert von interface:{} INT VAR wert :: 0;{} wert{}END PROC wert von interface;{}TEXT PROC pressed key:{} incharety{}END PROC pressed key;{}TEXT PROC pressed key (INT CONST warten):{} - incharety (warten){}END PROC pressed key;{}END PACKET ls warenhaus 0{} + interface anpassung, + oeffne interface, + schliesse interface, + wert von interface, + pressed key: +TEXT CONST interface anpassung :: "ohne Kartenleser"; +PROC oeffne interface (INT VAR test): + test := -6 +END PROC oeffne interface; +PROC schliesse interface: +END PROC schliesse interface; +INT PROC wert von interface: + INT VAR wert :: 0; + wert +END PROC wert von interface; +TEXT PROC pressed key: + incharety +END PROC pressed key; +TEXT PROC pressed key (INT CONST warten): + + incharety (warten) +END PROC pressed key; +END PACKET ls warenhaus 0 + -- cgit v1.2.3