PostIt! 6.0 6/16

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

'>>> Start of page 6.

        PRINT STRING$(V! * A, 177);
    END IF

    W = T \ P(6 - L)
    GOSUB G
    W = W OR T * P(L)
    L = L - 2
    B$ = CHR$(W AND k)
    PUT 2, , B$
NEXT

PRINT
PRINT
IF (C = CheckVal) AND (LOF(2) = Siz) THEN
    PRINT NewFile$; " successfully extracted."
ELSE
    PRINT "Bad checksum or incomplete script!"
END IF

CLOSE
END

G:
    I = I + 1: T = INSTR(Good$, MID$(Dat$, I, 1)) - 1
    C = (C + T) * 2: C = C \ 256 + (C AND 255)
RETURN

ErrorReading:
    CLOSE
    PRINT "Error reading script."
    END
END SUB

SUB GetInformation

SourceFile$ = LTRIM$(RTRIM$(COMMAND$))
    '**** Remark the above line for QBasic ***

IF LEN(SourceFile$) <> 0 THEN
    ShortCopyright
    A& = CheckForFile
    IF A& = 0 THEN END
ELSE
    CopyrightScreen

    DO
        SourceFile$ = UCASE$(GetInput$("Input filename"+_
" (text/binary)? ", -1))
        IF LEN(SourceFile$) THEN
            A& = CheckForFile
        ELSE
            END
        END IF
    LOOP UNTIL A&
    PRINT
END IF

A = 8192                        ' PostIt! 6.0 script?
IF LOF(1) < A THEN A = LOF(1)
A$ = INPUT$(A, 1)
IF INSTR(A$, "~PostIt! 6.0~") THEN
    A$ = ""
    ToDo$ = "E"
    EXIT SUB
ELSE
    A$ = ""
    ToDo$ = "M"
END IF

DefaultFile$ = ParseFileName$

Recommend = Analyze(SourceFile$)
COLOR 15
PRINT "I recommend using the ";
COLOR 13
IF Recommend THEN
    PRINT "binary script (Y)";
    R$ = "Y"
ELSE
    PRINT "message wrapper (N)";
    R$ = "N"

'>>> Continued on page 7

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