GeMIS_WEB/GUI/v8/putstreamf.i

    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 = BDrucker.Drufettb
               + FILL(" ", VRand) + VZeile
               + BDrucker.Drufette
               + FILL(CHR(10), {1}).
        PUT STREAM Out_Stream CONTROL VZeile.
    END.
    VLine  = VLine + {1}.
    VZeile = "".