diff options
Diffstat (limited to 'warenhaus/ls-Warenhaus 0: ohne Kartenleser')
| -rw-r--r-- | warenhaus/ls-Warenhaus 0: ohne Kartenleser | 26 |
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 + |