MSGSPLIT ---->> 1/2

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

Almost all of the active participants in this echo will find this program
extremely useful!!!

8<------8<--------8<-------8<----  Snip begins here: MSGSPLIT.BAS

' ==============================================================
' MsgSplit v1.0 þ (C) Copyright Victor Yiu, 1993. þ Feb. 8, 1993
' ==============================================================
' A great message processor for posting source files.  Converts
' your source files into messages that can be posted in FidoNet
' echos efficiently.  NO MORE PULLING YOUR HAIR OUT when you
' want to post a file!!!

' Significant features:
' ~~~~~~~~~~~~~~~~~~~~~
' o  Expands "tabs" (CHR$(9)s) into -REAL- spaces
' o  Removes unnecessary white space at end of lines
'      (QB has a VERY nasty tendency to do that if you're not careful...)
' o  Warns poster and reader of lines of over 80 characters.  Helps prevent
'      reader from dealing with much word-wrap problems.  First tries to
'      trim spaces, to see if the line will be then <80 char.
' o  Ability to specify message length
' o  Ability to reserve lines on 1st message
' o  Can directly post to preset BlueWave numbers -- saves me a lot of time!
' o  Great code to study and find out how it works!  (Don't I say that about
'      all my creations?!  <G>)  This program was written/produced/debugged
'      in only 45 minutes!!
'
' ===================== Comments are GREATLY welcomed! =====================

DEFINT A-Z

CONST True = -1, False = 0
Tab$ = CHR$(9): TabSub$ = SPACE$(4)

CLS
PRINT "MsgSplit v1.0 þ (C) Copyright Victor Yiu, 1993."
PRINT

INPUT "What is the filename to split [.BAS]"; FileName$
IF LEN(FileName$) = 0 THEN END

INPUT "Name according to BlueWave conventions [y/N]"; BW$
BW = UCASE$(LEFT$(BW$, 1)) = "Y"

IF BW THEN
    INPUT "What echo # to post in"; OutN
    OutN$ = LTRIM$(STR$(OutN))
    INPUT "What message # to start posting in [1]"; FileOutNum
    IF FileOutNum <= 0 THEN FileOutNum = 1
ELSE
    FileOutNum = 1
END IF

Chop = INSTR(FileName$, ".")
IF Chop = 0 THEN
    IF NOT BW THEN OutN$ = FileName$
    FileName$ = UCASE$(FileName$ + ".BAS")
ELSE
    IF NOT BW THEN OutN$ = LEFT$(FileName$, Chop - 1)
    FileName$ = UCASE$(FileName$)
END IF

INPUT "How many lines per message [90]"; LPP
IF LPP <= 10 THEN LPP = 90

INPUT "Reserve how many lines for first message [5]"; Reserve$
IF LEN(Reserve$) THEN
    Reserve = VAL(Reserve$)
ELSE
    Reserve = 5
END IF
PRINT

OPEN FileName$ FOR INPUT AS #1
LinesOut = Reserve + 1
OnMsgNumber = 1
LPP = LPP - 4   ' lines per page

DO
    Temp$ = LTRIM$(STR$(FileOutNum))
    IF BW THEN
        Ext$ = "000": MID$(Ext$, 4 - LEN(Temp$)) = Temp$
    ELSE
        Ext$ = Temp$
    END IF

>>>>>>> Continued on next message >>>>>>>

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