MSGSPLIT ---->> 2/2

 BBS: Inland Empire Archive
Date: 02-08-93 (18:04)             Number: 310
From: VICTOR YIU                   Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: MSGSPLIT ---->> 2/2            Conf: (2) Quik_Bas

Msg#: 2 >>>>>> Continued from last message: MSGSPLIT.BAS >>>>>>>

    OPEN OutN$ + "." + Ext$ FOR OUTPUT AS #2

    IF OnMsgNumber > 1 THEN
        PRINT #2, "Msg#:"; OnMsgNumber; ">>>>>> ";
        PRINT #2, "Continued from last message: "; FileName$; " >>>>>>>"
        PRINT #2,
    ELSE
   PRINT #2, "8<------8<--------8<-------8<----  Snip
begins here: "; FileName$
    PRINT #2,
    END IF

    TooLong = False
    FOR Trans = LinesOut TO LPP
        IF NOT EOF(1) THEN
            IF Trans = LinesOut THEN
                DO: LINE INPUT #1, Buf$
                LOOP WHILE LEN(Buf$) = 0
            ELSE
                LINE INPUT #1, Buf$
                Buf$ = RTRIM$(Buf$)
            END IF

            Tb = INSTR(Buf$, Tab$)  'remove those dang chr$(8)s (tabs)
            IF Tb THEN
                DO
                    Buf$ = LEFT$(Buf$, Tb - 1) + TabSub$ + MID$(Buf$, Tb + 1)
                    Tb = INSTR(Tb, Buf$, Tab$)
                LOOP WHILE Tb
            END IF

            IF LEN(Buf$) > 80 THEN
                T$ = LTRIM$(Buf$)
                IF LEN(T$) > 80 THEN
                    IF NOT TooLong THEN
                        TooLong = True
                        Trans = Trans + 1
                    END IF
                ELSE
                    Buf$ = T$
                    T$ = ""
                END IF
            END IF
            IF NOT ((Trans = LPP) AND LEN(Buf$) = 0) THEN
                PRINT #2, Buf$
            END IF
        END IF
    NEXT
    IF NOT EOF(1) THEN
        PRINT #2,
        PRINT #2, ">>>>>>> Continued on next message >>>>>>>"
    ELSE
        PRINT #2,
        PRINT #2, "8<------8<--------8<-------8<----  Snip ends!"
        PRINT #2, "Message polishing/splitting was done by MSGSPLIT 1.0, ";
        PRINT #2, "a Victor Yiu creation."
        PRINT #2,
    END IF
    IF TooLong THEN
        PRINT #2, "Warning -- some lines may be word wrapped in this message!"
        PRINT "Warning: Message number"; OnMsgNumber; "has obese lines!"
    END IF

    CLOSE #2
    IF NOT EOF(1) THEN
        OnMsgNumber = OnMsgNumber + 1
        FileOutNum = FileOutNum + 1
        LinesOut = 1
    END IF
LOOP UNTIL EOF(1)

CLOSE
PRINT "Complete!"
END


8<------8<--------8<-------8<----  Snip ends!
Message polishing/splitting was done by MSGSPLIT 1.0, a Victor Yiu creation.

... 1) Open mouth.   2) Insert shoe store.
--- Blue Wave/RA v2.10 [NR]
 * Origin: Hard Disc Cafe / Houston Texas / (713) 589-2690 / (1:106/30.0)