summaryrefslogtreecommitdiff
path: root/warenhaus/ls-Warenhaus 0: ohne Kartenleser
diff options
context:
space:
mode:
Diffstat (limited to 'warenhaus/ls-Warenhaus 0: ohne Kartenleser')
-rw-r--r--warenhaus/ls-Warenhaus 0: ohne Kartenleser26
1 files changed, 24 insertions, 2 deletions
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
+