summaryrefslogtreecommitdiff
path: root/app/gs.warenhaus/1.01/src/ls-Warenhaus 0: ohne Kartenleser
diff options
context:
space:
mode:
Diffstat (limited to 'app/gs.warenhaus/1.01/src/ls-Warenhaus 0: ohne Kartenleser')
-rw-r--r--app/gs.warenhaus/1.01/src/ls-Warenhaus 0: ohne Kartenleser27
1 files changed, 27 insertions, 0 deletions
diff --git a/app/gs.warenhaus/1.01/src/ls-Warenhaus 0: ohne Kartenleser b/app/gs.warenhaus/1.01/src/ls-Warenhaus 0: ohne Kartenleser
new file mode 100644
index 0000000..4912d64
--- /dev/null
+++ b/app/gs.warenhaus/1.01/src/ls-Warenhaus 0: ohne Kartenleser
@@ -0,0 +1,27 @@
+(*
+
+ **********************************************************
+ **********************************************************
+ ** **
+ ** ls-Warenhaus 0 **
+ ** **
+ ** Anpassung für den Betrieb ohne Kartenleser **
+ ** **
+ ** Version 1.01 **
+ ** **
+ ** (Stand: 30.08.89) **
+ ** **
+ ** **
+ ** Autor: Bruno Pollok, Bielefeld **
+ ** **
+ ** Copyright (C) 1988 Eva Latta-Weber, Bielefeld **
+ ** Copyright (C) 1990 ERGOS GmbH, Siegburg **
+ ** **
+ **********************************************************
+ **********************************************************
+
+ *)
+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{}
+