GeMIS_WEB/GUI/v8/putzeily.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} + FILL(CHR(10), {2}).
        PUT STREAM Out_Stream CONTROL XZeile.
    END.
    VLine  = VLine + {2}.