integer linkListDeleteSubList(string linkName, integer start, integer end)
{
    integer i;
    list tl;
    integer tmpEnd = (integer) llLinksetDataRead(linkName);
    string  tmpData;

    llResetTime();
    // remove entries from linkName, start to end
    for(i = start; i < (end + 1); ++i)
        tl = llLinksetDataDeleteFound("^" + linkName+"\\|"+(string) i +":", "");

    llLinksetDataWrite(linkName, (string) (start-1));

    for(i = (end+1); i < (tmpEnd+1); i++)
    {
        // BLINK(i, RED, BLUE);
        tmpData = linkList2String(linkName, i);
        addLinkData(linkName, tmpData);
        tl = llLinksetDataDeleteFound("^" + linkName+"\\|"+(string) i +":", "");
    }
    DS("End time : " + (string)llGetTime());
    return i;
}