PostIt! 6.0 9/16

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

'>>> Start of page 9.

            Cursor = 1
        CASE End$
            Cursor = LEN(OutS$) + 1
        CASE Insrt$
            Insrt = NOT Insrt
        END SELECT
    END IF
LOOP

LOCATE , , 1, 0, 16
PRINT

GetInput$ = LTRIM$(RTRIM$(OutS$))

END FUNCTION

SUB Initialize

FOR DefShift = 0 TO 5
    Shift(DefShift) = 2 ^ DefShift
NEXT

ComprChar$ = "()*+,-./"
Proplr$ = CHR$(179) + "/-\"
Qt$ = CHR$(34)
A$ = " "

CurrentPage = 1
Work$ = Prefix$
CurrentBit = 0
Char = 0

LOCATE , , 0

END SUB

SUB JustDoIt

SEEK #1, 1
LinesOut = LinesOut + 2     ' compensate for header
TotalLinesOut = 3
DO
    CurrentByte = SEEK(1)
    L& = FileLength - CurrentByte + 1 ' what's left?
    SELECT CASE L&
        CASE IS > 4096
            Block$ = SPACE$(4096)
        CASE IS <= 0
            EXIT DO
        CASE ELSE
            Block$ = SPACE$(L&)     ' rest of it
    END SELECT
    GET #1, , Block$

    FOR Pointr = 1 TO LEN(Block$)
        IF (Pointr AND 15) = 0 THEN
            CurrentByte = CurrentByte + 16
            Twirl
        END IF
        PutBytes ASC(MID$(Block$, Pointr, 1))
    NEXT
LOOP

    'flush the input buffer if it contains any bits
IF CurrentBit > 0 THEN CurrentBit = -1: PutByte Char

IF LEN(Work$) > 2 THEN
    IF SmallScript THEN
        PrintLine Work$
    ELSE
'flush the line buffer if it contains any characters
'Add a CHR$(34) to it just in case a mail reader decides
'to add some extra spaces to the end...
        PrintLine Work$ + CHR$(34)
    END IF
END IF

END SUB

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

'>>> Continued on page 10

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