blob: 96af5c1621db974055572b9f9f77465de7ed6668 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
|
(*
**********************************************************
**********************************************************
** **
** 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
|
