diff options
Diffstat (limited to 'doc/eudas/bildergenerator')
-rw-r--r-- | doc/eudas/bildergenerator | 25 |
1 files changed, 0 insertions, 25 deletions
diff --git a/doc/eudas/bildergenerator b/doc/eudas/bildergenerator deleted file mode 100644 index 8129476..0000000 --- a/doc/eudas/bildergenerator +++ /dev/null @@ -1,25 +0,0 @@ -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"); - |