===========================================================================
 BBS: The Abacus * HST/DS * Potterville MI
Date: 02-28-93 (17:04)             Number: 23
From: VICTOR YIU                   Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: PostIt! 5.0  8/11              Conf: (35) Quick Basi
---------------------------------------------------------------------------
'>>> Start of page 8.

END SUB

SUB Lineout (LineColor)  '*** By Mark H Butler

    Lines$(1) = STRING$(80, "Ä")
    Sp = 2
    Ln = 76
    FOR i = 2 TO 21
        Lines$(i) = SPACE$(Sp) + STRING$(Ln, "Ä") + SPACE$(2)
        Sp = Sp + 2
        Ln = Ln - 4
    NEXT
    Lines$(22) = SPACE$(39) + "þ" + SPACE$(2)
    Lines$(23) = SPACE$(39) + "." + SPACE$(2)

    COLOR 0, 0
    X = 1
    y = 25
    FOR i = 1 TO 12
        LOCATE y, 1
        PRINT STRING$(80, CHR$(32));
        LOCATE X, 1
        PRINT STRING$(80, CHR$(32));
        Delay .03
        X = X + 1
        y = y - 1
    NEXT
    COLOR LineColor, 0
    FOR i = 1 TO 23
        LOCATE 13, 1: PRINT Lines$(i);
        Delay .03
    NEXT
    COLOR 7
    CLS
END SUB

SUB MsgSplit (filename$, TheName$, OutN$, Ext$, LPP, Reserve,_
 Line.Length)

CLOSE
OPEN filename$ FOR INPUT AS #1

Tab$ = CHR$(9): TabSub$ = SPACE$(4)
LinesOut = Reserve + 1
FileOutNum = 1
OnMsgNumber = 1
Qt$ = CHR$(34)
LPP = LPP - 4   ' lines per page
Ext$ = RIGHT$(Ext$, 3)

COLOR 7, 0
PRINT

DO
    OutN$ = LEFT$(OutN$, 6) + Num2Str$(FileOutNum)

    IF Row THEN LOCATE Row, Col: PRINT "         "
    PRINT "Now writing: " + OutN$ + "." + Ext$ + " ";
    Row = CSRLIN: Col = POS(0)

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

    IF OnMsgNumber > 1 THEN
        PRINT #2, "'>>> Start of page"; STR$(OnMsgNumber); "."
        PRINT #2,
    ELSE
        PRINT #2, "'________O_/________________________| SNIP"+_
" |______________________\_O_______"
        PRINT #2, "'        O \                        | HERE |         "+_
"             / O"
        PRINT #2, "'This file created by PostIt! v5.0."
        PRINT #2, "'>>> Start of page"; STR$(OnMsgNumber); "."
        PRINT #2,
    END IF

    TooLong = False
    FOR Trans = LinesOut TO LPP
        Percent = (100& * SEEK(1)) \ LOF(1)
        Twirler$ = MID$("|/Ä\", (Percent AND 3) + 1, 1)
        LOCATE Row, Col: PRINT USING "! ###%"; Twirler$; Percent;

        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)

'>>> Continued on page 9.

--- Blue Wave/RA v2.10 [NR]
 * Origin: Hard Disc Cafe / Houston Texas / (713) 589-2690 / Node -*N (1:106/30.
0)
SEEN-BY: 1/211 11/2 4 13/13 101/1 108/89 109/25 110/69 114/5 123/19 124/1
SEEN-BY: 153/752 154/40 77 157/2 159/100 125 430 950 203/23 209/209 280/1
SEEN-BY: 390/1 396/1 15 397/2 2230/100 3603/20