MenuBox 2/3

 BBS: Inland Empire Archive
Date: 01-27-93 (20:41)             Number: 399
From: MARK BUTLER                  Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: MenuBox  2/3                   Conf: (2) Quik_Bas
 >>> continued from the previous message

    PRINT CHR$(192);
    FOR i = 1 TO ItemLength
        PRINT CHR$(196);
    NEXT i
    PRINT CHR$(217);
    Shade row - 1, Ltcol, row + MaxItems, Rtcol

 '**>**>**>**>**>**>**>**>**>**>**>**>**>**>*
 '**>**>** print selections and **>**>**>**>*
 '**>**>** pointer **>**>**>**>**>**>**>**>**
 '**>**>**>**>**>**>**>**>**>**>**>**>**>**>*

    LOCATE row
    FOR i = 1 TO MaxItems
        LOCATE row + i - 1, col
        PRINT Item$(i)
    NEXT i

    DO
        COLOR 7, 0
        LOCATE row + ItemNum - 1, col
        Item$(ItemNum) = Item$(ItemNum) + SPACE$(ItemLength - LE_
N(Item$(ItemNum)))
        PRINT Item$(ItemNum)
        COLOR 0, 7

 '**>**>**>**>**>**>**>**>**>**>**>**>**>**>*
 '**>** Start picking up the keystrokes **>**
 '**>**>**>**>**>**>**>**>**>**>**>**>**>**>*

        DO WHILE ch$ = ""
            ch$ = UCASE$(INKEY$)
        LOOP
        kee = ASC(ch$)
        IF ASC(ch$) = 0 THEN
            kee = ASC(RIGHT$(ch$, 1))
        END IF

        LOCATE row + ItemNum - 1, col
        PRINT Item$(ItemNum)

        SELECT CASE kee
            CASE Home

                ItemNum = 1
            CASE EndKey
                ItemNum = MaxItems
            CASE UpArrow
                IF ItemNum > 1 THEN
                    ItemNum = ItemNum - 1
                ELSE
                    ItemNum = MaxItems
                END IF
            CASE DownArrow
                IF ItemNum < MaxItems THEN
                    ItemNum = ItemNum + 1
                ELSE
                    ItemNum = 1
                END IF
            CASE Enter
                fore = 0
                back = 7
                FOR i = 1 TO 6
                    COLOR fore, back
                    IF fore = 7 THEN
                        fore = 0: back = 7
                    ELSE
                        fore = 7: back = 0
                    END IF
                    LOCATE row + ItemNum - 1, col
                    Item$(ItemNum) = Item$(ItemNum) + SPACE$(Ite_
mLength - LEN(Item$(ItemNum)))
                    PRINT Item$(ItemNum)
                NEXT
                EXIT DO
            CASE Escape
                ItemNum = 0
                EXIT DO
            CASE ELSE
                SOUND 70, .5
                SOUND 37, .5
        END SELECT
        ch$ = ""
    LOOP
 END SUB

 >>> continued in the next message


--- timEd/B7 * Some taglines displayed are shown  actual size.
 * Origin:  MotherShip Portholes, Portland OR  (1:105/319.32)
Outer Court
Echo Basic Postings

Books at Amazon:

Back to BASIC: The History, Corruption, and Future of the Language

Hackers: Heroes of the Computer Revolution (including Tiny BASIC)

Go to: The Story of the Math Majors, Bridge Players, Engineers, Chess Wizards, Scientists and Iconoclasts who were the Hero Programmers of the Software Revolution

The Advent of the Algorithm: The Idea that Rules the World

Moths in the Machine: The Power and Perils of Programming

Mastering Visual Basic .NET