PostIt! 6.0 12/16

 BBS: Inland Empire Archive
Date: 04-02-93 (23:02)             Number: 335
From: VICTOR YIU                   Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: PostIt! 6.0  12/16             Conf: (2) Quik_Bas

'>>> Start of page 12.

                        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"; OnMsgNumber + 1
    ELSE
        PRINT #2,
        GOSUB Snip
        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

Snip:
    PRINT #2, "'________O_/________________________| SNIP"+_
" |______________________\_O_______"
    PRINT #2, "'        O \                        | HERE |     "+_
"                 / O"
RETURN

END SUB

'Converts a number to a string lacking a leading space.
FUNCTION Num2Str$ (A)

Num2Str$ = MID$(STR$(A), 2)

END FUNCTION

FUNCTION ParseFileName$

    'Get the source filename without the drive & path
FOR S = LEN(SourceFile$) TO 1 STEP -1
    IF INSTR("\:", MID$(SourceFile$, S, 1)) THEN EXIT FOR
NEXT
RealSource$ = MID$(SourceFile$, S + 1)

    'Get destination prefix & extenstion.
Ext = INSTR(RealSource$, ".")
IF Ext <> 0 THEN
    DestTemp$ = LEFT$(RealSource$, Ext - 1)
ELSE
    DestTemp$ = RealSource$
END IF

ParseFileName = UCASE$(LEFT$(DestTemp$, 7))

'>>> Continued on page 13

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