function checkemail(J){var H=false;var G=false;var K=0;var I=0;var L;while(I<J.length&&!H){H=65408&J.charCodeAt(I);I++}I=0;H=H||I>=J.length;if(!H){do{L=J.charCodeAt(I);G=false;if(L==34){I++;H=H||I>=J.length;while(!H&&!G){L=J.charCodeAt(I);if(L==13){H=true}else{if(L==92){I+=2}else{if(L==34){G=true;I++;if(I>=J.length){H=true}else{L=J.charCodeAt(I)}}else{I++}}}}}else{if(!((L>=0&&L<=32)||L==34||L==40||L==41||L==44||L==46||L==58||L==59||L==60||L==62||L==64||L==91||L==92||L==93||L==127)){while(!H&&!G){if((L>=0&&L<=32)||L==34||L==40||L==41||L==44||L==46||L==58||L==59||L==60||L==62||L==64||L==91||L==92||L==93||L==127){G=true}else{I++;if(I>=J.length){H=true}else{L=J.charCodeAt(I)}}}}else{H=true}}G=false;if(L!=46){G=true}else{I++;if(I>=J.length){H=true}else{L=J.charCodeAt(I)}}}while(!G&&!H)}if(!H){if(L==64){I++;if(I>=J.length){H=true}L=J.charCodeAt(I)}else{H=true}}if(!H){do{L=J.charCodeAt(I);G=false;if(L==91){I++;H=H||I>=J.length;while(!H&&!G){if(I>=J.length){H=true}else{L=J.charCodeAt(I);if(L==13||L==91){H=true}else{if(L==92){I+=2}else{if(L==93){G=true;I++;if(I<J.length){L=J.charCodeAt(I)}}else{I++}}}}}}else{if(!((L>=0&&L<=32)||L==34||L==40||L==41||L==44||L==46||L==58||L==59||L==60||L==62||L==64||L==91||L==92||L==93||L==127)){while(!H&&!G){if((L>=0&&L<=32)||L==34||L==40||L==41||L==44||L==46||L==58||L==59||L==60||L==62||L==64||L==91||L==92||L==93||L==127){G=true}else{I++;if(I>=J.length){G=true}else{L=J.charCodeAt(I)}}}}else{H=true}}G=false;if(L!=46){G=true}else{I++;K++;if(I>=J.length){H=true}else{L=J.charCodeAt(I)}}}while(!G&&!H)}return !H&&K>0}