function listappend(b,c,d){if(c==""){c=" "}if(!d){d=","}if(b==""){newstring=c}else{newstring=b+d+c}return newstring}function listgetat(d,c,e){if(!e){e=","}currpos=1;start=0;end=-1;if(c==1){setendflag=1}else{setendflag=0}for(var b=1;b<=d.length;b++){if(d.substring(b,b+1)==e){currpos++;if(setendflag==1){setendflag=0;end=b}if(currpos==c){start=b+1;end=d.length;setendflag=1}}}if(start==0&&end==-1){returnstring=""}else{returnstring=d.substring(start,end)}return returnstring}function listdeleteat(c,d,e){if(!e){e=","}l=listlen(c,e);newlist="";for(var b=1;b<=l;b++){if(b!=d){listelement=listgetat(c,b,e);newlist=listappend(newlist,listelement,e)}}return newlist}function listlen(c,d){if(!d){d=","}listcount=1;for(var b=1;b<=c.length;b++){if(c.substring(b,b+1)==d){listcount++}}return listcount}function listcontains(c,d,e){if(!e){e=","}l=listlen(c,e);listpos=-1;for(var b=1;b<l;b++){listelement=listgetat(c,b,e);if(listelement.indexOf(d)>=0){listpos=b;break}}return listpos}function listcontainsnocase(c,d,e){if(!e){e=","}l=listlen(c,e);listpos=-1;uc=d.toUpperCase();for(var b=1;b<l;b++){listelement=listgetat(c,b,e);listelement=listelement.toUpperCase();if(listelement.indexOf(uc)>=0){listpos=b;break}}return listpos}function listfind(c,d,e){if(!e){e=","}l=listlen(c,e);listpos=-1;for(var b=1;b<l;b++){listelement=listgetat(c,b,e);if(listelement==d){listpos=b;break}}return listpos}function listfindnocase(c,d,e){if(!e){e=","}l=listlen(c,e);listpos=-1;for(var b=1;b<l;b++){listelement=listgetat(c,b,e);if(listelement.toUpperCase()==d.toUpperCase()){listpos=b;break}}return listpos}function listfirst(b,c){return listgetat(b,1,c)}function listlast(b,c){return listgetat(b,listlen(b,c),c)}function listprepend(b,c,d){return listappend(c,b,d)}function listsetat(c,e,d,f){if(!f){f=","}l=listlen(c,f);newlist="";for(var b=1;b<=l;b++){if(b!=e){listelement=listgetat(c,b,f);newlist=listappend(newlist,listelement,f)}else{newlist=listappend(newlist,d,f)}}return newlist}function listsort(d,g){if(!g){g=","}l=listlen(d,g);a=new Array(1);for(var f=1;f<=l;f++){newl=a.length;a[newl]=listgetat(d,f,g)}var c="";var e="";for(var b=1;b<a.length;b++){for(var h=b;h<a.length;h++){string1=a[b];string1=string1.toUpperCase();string2=a[h];string2=string2.toUpperCase();if(string2<string1){c=a[b];a[b]=a[h];a[h]=c}}}newlist="";for(var b=1;b<=l;b++){newlist=listappend(newlist,a[b],g)}return(newlist)};