blob: 213a826f754ceaf0821ce99953473bfe1e1f9c4e (
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
50
|
(*
*********************************************************
*********************************************************
** **
** ls-DIALOG **
** MENUKARTEN MANAGER **
** Generator-Programm **
** Version 1.2 **
** **
** (Stand: 04.11.88) **
** **
** Autor: Wolfgang Weber, Bielefeld **
** **
** **
** Copyright (C) 1987, 1988 Eva Latta-Weber, Bielefeld **
** **
** Copyright (C) 1988 ERGOS GmbH, Siegburg **
** **
*********************************************************
*********************************************************
*)
LET dateiname = "ls-DIALOG MENUKARTEN MANAGER",
archivname = "gs-dialog";
gib bildschirmhinweis;
hole generatordatei vom archiv;
insertiere die datei;
do ("ls dialog manager").
gib bildschirmhinweis:
page;
putline (" "15"ls-DIALOG MENUKARTEN MANAGER - Generierung "14"").
hole generatordatei vom archiv:
IF NOT exists (dateiname)
THEN cursor (1, 5); out (""4"");
putline ("Bitte warten... Ich hole eine Datei von der Diskette!");
archive (archivname);
fetch (dateiname, archive);
release (archive)
FI.
insertiere die datei:
cursor (1, 5); out (""4"");
putline ("Bitte warten... Ich insertiere!");
check off; insert (dateiname); check on;
forget ("ls-DIALOG MM/gen", quiet);
forget (dateiname, quiet).
|
