IF BDrucker.Emul = "TERMINAL" THEN DO:
        VZNr = VZNr + 1.
        CREATE  XTermOut.
        ASSIGN  XTermOut.ZNr   = VZNr
                XTermOut.Zeile = VZeile.
        IF {1} > 1 THEN DO:
            DO ii = 2 TO {1}:
                VZNr = VZNr + 1.
                CREATE  XTermOut.
                ASSIGN  XTermOut.ZNr   = VZNr
                        XTermOut.Zeile = ''.
            END.
        END.
    END.
    ELSE DO:
        VZeile = FILL(" ", VRand) + VZeile.
        PUT VZeile.
        PUT ""  SKIP({1} - 1).
    END.
    VLine  = VLine + {1}.
    VZeile = "".