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");