===========================================================================
 BBS: The Abacus * HST/DS * Potterville MI
Date: 03-01-93 (15:29)             Number: 26
From: VICTOR YIU                   Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: PostIt! 5.0  11/11             Conf: (35) Quick Basi
---------------------------------------------------------------------------
'>>> Start of page 11.

    Char = Char + A * Shift(CurrentBit)

    'we've got 8 more bits now
    CurrentBit = CurrentBit + 8

    'write the 6 bit codes now
    DO WHILE CurrentBit > 5          'do we have at least 6 bits left?
        PutByte (Char AND 63)         'write out the first 6 bits
        Char = Char \ 64              'shift it right 6 places
        CurrentBit = CurrentBit - 6 '6 bits less now
    LOOP

END SUB

SUB Shadow (Uprow, Ltcol, Lorow, Rtcol) STATIC

'*** Transparent Shadow routine for use with the
'*** "Drawbox" SUB program by Mark H Butler

    DEF SEG = &H40
    equip = PEEK(&H10)
    IF (equip AND 48) = 48 THEN
        EXIT SUB    '*** no use in doing it if it's monochrome, right?
    ELSE
        DEF SEG = &HB800
    END IF

'*********************************************************
'****** use the given box dimensions to POKE a ***********
'****** "shadow" on the right side and bottom edge *******
'*********************************************************

    attr = 8

    FOR Row = Uprow + 1 TO Lorow + 1    '***** right edge locations.***
        FOR Col = Rtcol + 1 TO Rtcol + 2'***** make it 2 chars wide.***
            offset = (Row - 1) * 160 + (Col - 1) * 2 + 1
            POKE offset, attr
        NEXT
    NEXT

    Row = Lorow + 1                    '***** now POKE along the******
    FOR Col = Ltcol + 2 TO Rtcol + 2   '***** bottom edge*************
        offset = (Row - 1) * 160 + (Col - 1) * 2 + 1
        POKE offset, attr
    NEXT
    DEF SEG

END SUB

SUB Twirl
STATIC Turn

    SHARED Row, Col, CurrentByte, FileLength

    LOCATE Row, Col
    PRINT MID$(Proplr$, Turn + 1, 1);
    Turn = (Turn + 1) AND 3

    IF Turn = 0 THEN
        PRINT USING " ###%"; 100& * CurrentByte \ FileLength;
    END IF

END SUB

SUB WarningScreen

'
' I felt this screen was appropriate, since some users have abused this
' wonderful utility!  Shame.... <qtj>
'-!!!!!!!!!!!!!!!!-
' Unfortunately Quinn old friend I think that has proved to be too true
' in some cases ...but... we *can* make it look as friendly as possible
' with a little text mode window magic `eh?  --> MHB ;^]

    PCOPY frontpage, backpage
    COLOR 14, 6
    Solid = True
    DrawBox 3, 8, 22, 72, Solid
    Shadow 3, 8, 22, 72
    LOCATE 4, 15
    LOCATE , 10: PRINT " NOTE:"
    LOCATE , 10: PRINT "Some echo participants feel that posting binary"+_
" files in text"
    LOCATE , 10: PRINT "format leads to anarchy.  Postit!,  in all of"+_
" its versions is"
    LOCATE , 10: PRINT "a powerful tool for exchanging information over"+_
" networks such"
    LOCATE , 10: PRINT "as Fidonet.  Before you use this software to"+_
" post anything in"
    LOCATE , 10: PRINT "any network's echo areas, consider these points:"

'>>> Continued on page 12.

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