app/eudas/4.3/doc/bildergenerator


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

PROC starten : 
 
  command dialogue (FALSE); 
  disable stop; 
  fetch (name, /"DGS NEC"); 
  run (name); 
  save (name + ".p", /"DGS NEC"); 
  end (myself) 
 
END PROC starten; 
 
TEXT VAR name; 
 
PROC gen (TEXT CONST t) : 
 
  name := t; 
  begin ("p", PROC starten, a); 
  TASK VAR a; 
  WHILE exists (a) REP pause (100) END REP 
 
END PROC gen; 
 
gen ("abb.4-2"); 
gen ("abb.6-1");