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

            IF Tb THEN
                DO
                    Buf$ = LEFT$(Buf$, Tb - 1) + TabSub$ + MID$(Buf$, Tb_
 + 1)
                    Tb = INSTR(Tb, Buf$, Tab$)
                LOOP WHILE Tb
            END IF

Wrapping:
            IF LEN(Buf$) > Line.Length THEN
                Trans = Trans + 1
                CommentOn = False
                FOR A = Line.Length TO 40 STEP -1
                    IF MID$(Buf$, A, 1) = " " THEN
                        WrapPoint = A
                        EXIT FOR
                    END IF
                NEXT
                IF WrapPoint = 0 THEN WrapPoint = Line.Length

                QuotesOn = False
                FOR A = 1 TO WrapPoint
                    Temp$ = MID$(Buf$, A, 1)
                    IF Temp$ = Qt$ THEN
                        QuotesOn = NOT QuotesOn
                    ELSEIF NOT QuotesOn THEN
                        IF (Temp$ = "'") OR (UCASE$(MID$(Buf$, A, 4)) =_
 "REM ") THEN
                            CommentOn = True
                            EXIT FOR
                        END IF
                    END IF
                NEXT

                Long$ = Buf$
                IF CommentOn THEN
                    Buf$ = LEFT$(Buf$, WrapPoint - 1)
                ELSE
                    IF QuotesOn THEN
                        Buf$ = LEFT$(Buf$, WrapPoint - 1) + Qt$ + "+_"
                    ELSE
                        Buf$ = LEFT$(Buf$, WrapPoint - 1) + "_"
                    END IF
                END IF

                IF NOT ((Trans = LPP) AND LEN(Buf$) = 0) THEN
                    PRINT #2, Buf$
                END IF

                Buf$ = MID$(Long$, WrapPoint)
                IF CommentOn THEN Buf$ = "'" + Buf$
                IF QuotesOn THEN Buf$ = Qt$ + Buf$

                GOTO Wrapping
            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 page"; STR$(OnMsgNumber + 1); "."
    ELSE
        PRINT #2,
        PRINT #2, "'________O_/________________________| SNIP"+_
" |______________________\_O_______"
        PRINT #2, "'        O \                        | HERE |         "+_
"             / O"
        PRINT #2,
    END IF

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

LOCATE Row, Col
PRINT "         "
PRINT
PRINT "Complete!"
END

END SUB

'Converts a number to a string lacking a leading space.

'>>> Continued on page 10.

--- 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