RC's Tagmenu 4/4

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

CheckTagged:
    LOCATE RowI, Column - 1
    IF Tagged(x) THEN
        COLOR FgMarker, BgNormal
        PRINT SelChr$;
        COLOR FgNormal, BgNormal
    ELSE
        COLOR FgNormal, BgNormal
        PRINT " ";
    END IF
    RETURN

lastrecord:
        COLOR FgNormal, BgNormal
        LOCATE row, Column
        PRINT " " + array$(x) + SPACE$(maxlength - LEN(array$(x))) + " ";
        row = upperrow
        x = n - (lowerrow - upperrow)
        IF x < 1 THEN x = 1
        DO
            LOCATE row, Column
            PRINT " " + array$(x) + SPACE$(maxlength - LEN(array$(x))) + " ";
            RowI = row
            GOSUB CheckTagged
            row = row + 1
            IF row = lowerrow + 1 THEN EXIT DO
            x = x + 1
        LOOP UNTIL x > n
        x = n
        row = row - 1
RETURN

END SUB


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