Ray Carson's Tagmenu 3/4

 BBS: Inland Empire Archive
Date: 07-05-92 (03:54)             Number: 112
From: BILL CAMPBELL                Refer#: NONE
  To: DOUGLAS LUSHER                Recvd: NO  
Subj: Ray Carson's Tagmenu 3/4       Conf: (2) Quik_Bas

    IF Keycode = 80 OR Keycode = 32 THEN    'Down
        IF Keycode = 32 THEN                'Spacebar
            LOCATE row, Column - 1
            IF Tagged(x) THEN
                COLOR FgNormal, BgNormal
                PRINT " ";
                Tagged(x) = 0
                QtySelected = QtySelected - 1
            ELSE
                COLOR FgMarker, BgNormal
                PRINT SelChr$;
                COLOR FgNormal, BgNormal
                Tagged(x) = -1
                QtySelected = QtySelected + 1
            END IF
        END IF
        IF x = n THEN GOTO GetKey
        COLOR FgNormal, BgNormal
        LOCATE row, Column
        PRINT " " + array$(x) + SPACE$(maxlength - LEN(array$(x))) + " ";
        row = row + 1
        IF row = lowerrow + 1 THEN
            x = x + 1
            COLOR FgHlight, BgHlight
            row = row - 1

            LOCATE row, Column
            PRINT " " + array$(x) + SPACE$(maxlength - LEN(array$(x))) + " ";
            RowI = row
            GOSUB CheckTagged
            Temp = x
            x = x - 1
            COLOR FgNormal, BgNormal
            FOR j = lowerrow - 1 TO upperrow STEP -1
                LOCATE j, Column
                PRINT " " + array$(x) + SPACE$(maxlength -
LEN(array$(x))) + " ";
                RowI = j
                GOSUB CheckTagged
                x = x - 1
            NEXT
            x = Temp
        ELSE
            x = x + 1
            COLOR FgHlight, BgHlight
            LOCATE row, Column
            PRINT " " + array$(x) + SPACE$(maxlength - LEN(array$(x))) + " ";
            RowI = row
            GOSUB CheckTagged
        END IF
    END IF
    IF Keycode = 72 THEN                    'Up
        IF x = 1 THEN GOTO GetKey
        COLOR FgNormal, BgNormal
        LOCATE row, Column
        PRINT " " + array$(x) + SPACE$(maxlength - LEN(array$(x))) + " ";
        row = row - 1
        IF row = upperrow - 1 THEN
            x = x - 1
            COLOR FgHlight, BgHlight
            row = row + 1
            LOCATE row, Column
            PRINT " " + array$(x) + SPACE$(maxlength - LEN(array$(x))) + " ";
            RowI = row
            GOSUB CheckTagged
            Temp = x: x = x + 1
            COLOR FgNormal, BgNormal
            FOR j = upperrow + 1 TO lowerrow
                LOCATE j, Column
                PRINT " " + array$(x) + SPACE$(maxlength -
LEN(array$(x))) + " ";
                RowI = j
                GOSUB CheckTagged
                x = x + 1
            NEXT
            x = Temp
        ELSE
            x = x - 1
            COLOR FgHlight, BgHlight
            LOCATE row, Column
            PRINT " " + array$(x) + SPACE$(maxlength - LEN(array$(x))) + " ";
            RowI = row
            GOSUB CheckTagged
        END IF
    END IF
    GOTO GetKey


--- Maximus 2.00
 * Origin: Durham Systems (ONLINE!) (1:229/110)