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

    PRINT "                    Mark H Butler and Quinn Tyler Jackson."
    PRINT "                      Text code wrapping by Scott Wunsch."
    PRINT "                          Compression by Victor Yiu."
    COLOR 15
    Solid = False
    DrawBox 1, 1, 25, 80, Solid
END SUB

SUB Delay (secs!)

    begin! = TIMER
    DO
    LOOP UNTIL ((TIMER - begin!) >= secs!) OR (begin! > TIMER)

END SUB

SUB DrawBox (Uprow, Ltcol, Lorow, Rtcol, Solid)
    wide = (Rtcol - Ltcol) - 1
    LOCATE Uprow, Ltcol
    PRINT CHR$(201); STRING$(wide, CHR$(205)); CHR$(187);
    FOR i = Uprow + 1 TO Lorow - 1
        LOCATE i, Ltcol
        PRINT CHR$(186);
        IF Solid THEN
            PRINT SPACE$(wide);
        END IF
        LOCATE i, Rtcol
        PRINT CHR$(186);
    NEXT
    LOCATE Lorow, Ltcol
    PRINT CHR$(200); STRING$(wide, CHR$(205)); CHR$(188);
END SUB

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

    Lines$(2) = SPACE$(39) + "þ" + SPACE$(2)
    Lines$(1) = SPACE$(39) + "." + SPACE$(2)
    Lines$(23) = STRING$(80, "Ä")
    Sp = 39
    Ln = 0
    FOR i = 2 TO 21
        Lines$(i) = SPACE$(Sp) + STRING$(Ln, "Ä") + SPACE$(2)
        Sp = Sp - 2
        Ln = Ln + 4
    NEXT

    COLOR LineColor, 0
    FOR i = 1 TO 23
        LOCATE 13, 1
        PRINT Lines$(i);
        Delay .03
    NEXT

    COLOR 15, LineColor
    X = 12
    y = 13
    FOR i = 1 TO 13
        LOCATE y, 1
        PRINT STRING$(80, " ");
        LOCATE X, 1
        PRINT STRING$(80, " ");
        DrawBox X, 1, y, 80, -1
        Delay .03
        IF X > 1 THEN X = X - 1
        y = y + 1
    NEXT

END SUB

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

    Lines$(1) = STRING$(80, "Ä")
    Sp = 2
    Ln = 76
    FOR i = 2 TO 21
        Lines$(i) = SPACE$(Sp) + STRING$(Ln, "Ä") + SPACE$(2)
        Sp = Sp + 2
        Ln = Ln - 4
    NEXT
    Lines$(22) = SPACE$(39) + "þ" + SPACE$(2)
    Lines$(23) = SPACE$(39) + "." + SPACE$(2)

    COLOR 0, 0
    X = 1
    y = 25
    FOR i = 1 TO 12
        LOCATE y, 1
        PRINT STRING$(80, CHR$(32));
        LOCATE X, 1
        PRINT STRING$(80, CHR$(32));
        Delay .03

'>>> Continued on page 8.

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