GeMIS_WEB/GUI/v8/putzeilx.i

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