Ray Carson's Tagmenu 2/4

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

    IF Keycode = 60 THEN                    'F2
        QtySelected = n                     'Mark all Files
        FOR Q = 1 TO n
            Tagged(Q) = -1
        NEXT
        COLOR FgMarker, BgNormal
        FOR Q = upperrow TO lowerrow
            IF SCREEN(Q, Column + 1) <> 32 THEN
                LOCATE Q, Column - 1
                PRINT SelChr$;
            END IF
        NEXT
    END IF
    IF Keycode = 61 THEN                    'F3
        QtySelected = 0                     'Clear all Files
        FOR x = 1 TO n
            Tagged(x) = 0
        NEXT
        COLOR FgNormal, BgNormal
        FOR x = upperrow TO lowerrow
            LOCATE x, Column - 1: PRINT " ";
        NEXT
    END IF
    IF Keycode = 71 THEN                    'Home
        GOTO setuptagmenu
    END IF
    IF Keycode = 79 THEN                    'End
        GOSUB lastrecord
    END IF
    IF Keycode = 73 THEN                    'pageup
        COLOR FgNormal, BgNormal
        LOCATE row, Column
        PRINT " " + array$(x) + SPACE$(maxlength - LEN(array$(x))) + " ";
        x = x - (row - upperrow)
        row = lowerrow
        IF x < 2 + (lowerrow - upperrow) THEN GOTO setuptagmenu
        FOR tt = lowerrow TO upperrow STEP (-1)
                LOCATE row, Column
                PRINT " " + array$(x) + SPACE$(maxlength -
LEN(array$(x))) + " ";
                RowI = row
                GOSUB CheckTagged
                row = row - 1
                x = x - 1
        NEXT tt
        row = upperrow
        COLOR FgHlight, BgHlight
        LOCATE row, Column
        PRINT " " + array$(x) + SPACE$(maxlength - LEN(array$(x))) + " ";
    END IF
    IF Keycode = 81 THEN                    'Pagedown
        COLOR FgNormal, BgNormal
        LOCATE row, Column
        PRINT " " + array$(x) + SPACE$(maxlength - LEN(array$(x))) + " ";
        x = x + (lowerrow - row)
        xequals = x
        row = upperrow
        IF x > n - (lowerrow - upperrow) THEN
                x = 1
                GOSUB lastrecord
        ELSE
                FOR tt = upperrow TO lowerrow
                        LOCATE row, Column
                        PRINT " " + array$(x) +
SPACE$(maxlength - LEN(array$(x))) + " ";
                        RowI = row
                        GOSUB CheckTagged
                        row = row + 1
                        x = x + 1
                NEXT tt
                row = upperrow
                x = xequals

        END IF
        COLOR FgHlight, BgHlight
        LOCATE row, Column
        PRINT " " + array$(x) + SPACE$(maxlength - LEN(array$(x))) + " ";
    END IF

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