// Code written by Natalie V. Zubar (kopilka@infocom.kharkov.ua)
// Author claims no responsibility for esoteric method of past-life calculations and its results.
// If you decided to use it under your own name - you were a thief in your past life and you will cheat forever!

function mod(x, x_div){
    for (var i=x; i>=x_div; i -= x_div);
    return i;
}

function checkNum(str, min, max) {
    if (str == "") {
        alert("Παρακαλώ συμπληρώστε όλα τα πεδία");
        return false;    }

    for (var i = 0; i < str.length; i++) {
        var ch = str.substring(i, i + 1);
        if (ch < "0" || ch > "9") {
            alert("Αριθμό, παρακαλώ!");
            return false;
        }
    }

    var val = parseInt(str, 10);
    if ((val < min) || (val > max)) {
        alert("Γράψτε έναν αριθμό από το 1 έως το "+max+".");
        return false;
    }

    return true;
}



function pastlife(form){ 
	var sex; 

//Check for a valid date			

     if ((checkNum(form.imera.value,1,31)) && (checkNum(form.minas.value,1,12)) &&
        (checkNum(form.etos.value,0,99)))  {	
	var imera = parseInt(form.imera.value,10);
	var cur_minas = parseInt(form.minas.value,10);
	var cur_etos = parseInt(form.etos.value,10);

// define past life sex

	if (cur_minas-2*(parseInt(cur_minas/2)) == 0){
		if (cur_etos - 4*(parseInt(cur_etos/4)) == 0)
			sex = 1; else sex = 2} 
  	      else if (cur_etos - 4*(parseInt(cur_etos/4)) == 0)
			sex = 0; else sex = 1};



	var body = "<FONT Color=black Face=Arial><B>Αποτελέσματα:</B></FONT><br>";	
	body = body + "<FONT Color='black' Face='arial'>"; 
	body = body + "Στην προηγούμενη σου ζωή, ήσουν ";


	var etosString = "ZYXWOTZYQVUTSXWVNZYXPQTZRWVUMYXWOTZYQVUTSXWVNZYXPUTZRWVUMYXWOTZYQVUTSXWVNZYXPUTZRWVUMYXWOTZYQVUTSXWV";

	var ys; ys = etosString.charAt(cur_etos);

	var p1; var p2; var place;
	if (sex == 1){

	body = body + "<FONT color='red'>άντρας.</FONT>";



	//for males	



	var indexString = "VTWZXYURPSOMNQYWZVTUXOMPSQRNWUXTYZVMRNQOPSUZVYWXTRPSOMNQTYUXVWZPNQMRSOYWZVTUXNSORPQM";

	

	var profString = "CDBADCABBACD";

		

	p1 = profString.charAt(cur_minas-1);

	

	for (i=0;i<=6;i++){

		if (ys == indexString.charAt((cur_minas-1)*7+i)) break}



	p2 = i+1;




	//PLACE OF BIRTH Male




	if (p2 == 1){

		if (imera < 3) place=5;

		else if (imera < 10) place=46;

		else if (imera < 17) place=37;

		else if (imera < 24) place=48;

		else if (imera < 31) place=65;

		else place=6};



	if (p2 == 2){

		if (imera < 8) place=28;

		else if (imera < 15) place=58;

		else if (imera < 22) place=10;

		else if (imera < 29) place=38;

		else place=11};



	if (p2 == 3){

		if (imera < 4) place=29;

		else if (imera < 11) place=53;

		else if (imera < 18) place=30;

		else if (imera < 25) place=69;

		else place=1};



	if (p2 == 4){

		if (imera < 7) place=74;

		else if (imera < 14) place=4;

		else if (imera < 21) place=47;

		else if (imera < 28) place=20;

		else place=26};



	if (p2 == 5){

		if (imera < 5) place=23;

		else if (imera < 12) place=21;

		else if (imera < 19) place=44;

		else if (imera < 26) place=16;

		else place=43};



	if (p2 == 6){

		if (imera < 6) place=34;

		else if (imera < 13) place=27;

		else if (imera < 20) place=14;

		else if (imera < 27) place=41;

		else place=50};



	if (p2 == 7){

		if (imera < 2) place=73;

		else if (imera < 9) place=63;

		else if (imera < 16) place=66;

		else if (imera < 23) place=54;

		else if (imera < 30) place=61;

		else place=72}

}

	else {

	//for females



	body = body + "<FONT color=red>γυναίκα.</FONT>";



	var indexString = "OMPSQRNYWZVTUXSQMPNORUZVYWXTQORNSMPZXTWUVYOMPSQRNXVYUZTWNSORPQMVTWZXYUSQMPNORTYUXVWZ";

	

	var profString = "ACDBCABDDBCA";

		

	p1 = profString.charAt(cur_minas-1);

	

	for (i=0;i<=6;i++){

		if (ys == indexString.charAt((cur_minas-1)*7+i)) break}



	p2 = i+1;

 

		//PLACE OF BIRTH Female



	if (p2 == 1){

		if (imera < 3) place=22;

		else if (imera < 10) place=17;

		else if (imera < 17) place=36;

		else if (imera < 24) place=59;

		else if (imera < 31) place=51;

		else place=9};



	if (p2 == 2){

		if (imera < 8) place=40;

		else if (imera < 15) place=2;

		else if (imera < 22) place=64;

		else if (imera < 29) place=56;

		else place=35};



	if (p2 == 3){

		if (imera < 4) place=19;

		else if (imera < 11) place=67;

		else if (imera < 18) place=13;

		else if (imera < 25) place=32;

		else place=31};



	if (p2 == 4){

		if (imera < 7) place=15;

		else if (imera < 14) place=49;

		else if (imera < 21) place=12;

		else if (imera < 28) place=39;

		else place=33};



	if (p2 == 5){

		if (imera < 5) place=42;

		else if (imera < 12) place=60;

		else if (imera < 19) place=24;

		else if (imera < 26) place=3;

		else place=52};



	if (p2 == 6){

		if (imera < 6) place=18;

		else if (imera < 13) place=25;

		else if (imera < 20) place=57;

		else if (imera < 27) place=45;

		else place=62};



	if (p2 == 7){

		if (imera < 2) place=8;

		else if (imera < 9) place=55;

		else if (imera < 16) place=70;


		else if (imera < 23) place=68;

		else if (imera < 30) place=71;

		else place=7}

}

	

	var pro; pro=p1+p2;



	body = body + " " + "<BR>";

	

	//msgWindow.document.write("minas=" + cur_minas + " place=" + place + " ys=" + ys + " pro=" + pro + "<BR>");



	

	//countries data

	var countryString="";

	if (place == 1) countryString="Νιγηρία"; 

	else if (place == 2) countryString="Χιλή"; 

	else if (place == 3) countryString="Ηνωμενές Πολιτείες"; 

	else if (place == 4) countryString="Ινδονησία"; 

	else if (place == 5) countryString="Μονγκολία";

	else if (place == 6) countryString="Ισημερινό"; 

	else if (place == 7) countryString="Νέα Γη"; 

	else if (place == 8) countryString="Γροιλανδία"; 

	else if (place == 9) countryString="Λάρισα"; 

	else if (place == 10) countryString="Ζάκυνθο";

	else if (place == 11) countryString="Αθήνα"; 

	else if (place == 12) countryString="Βουδαπέστη"; 

	else if (place == 13) countryString="Λονδίνο"; 

	else if (place == 14) countryString="Μαδρίτη"; 

	else if (place == 15) countryString="Ισλανδία"; 

	else if (place == 16) countryString="Σκωτία"; 

	else if (place == 17) countryString="Αγγλία"; 

	else if (place == 18) countryString="Βέλγιο"; 

	else if (place == 19) countryString="Σουηδία";

	else if (place == 20) countryString="Ουαλία"; 

	else if (place == 21) countryString="Ιρλανδία"; 

	else if (place == 22) countryString="Βαρσοβία"; 

	else if (place == 23) countryString="Γαλλία"; 

	else if (place == 24) countryString="Ισπανία"; 

	else if (place == 25) countryString="Πορτογαλία"; 

	else if (place == 26) countryString="Αυστρία"; 

	else if (place == 27) countryString="Γερμανία"; 

	else if (place == 28) countryString="Ουκρανία"; 

	else if (place == 29) countryString="Ιταλία"; 

	else if (place == 30) countryString="Τουρκία"; 

	else if (place == 31) countryString="Βελιγράδι"; 

	else if (place == 32) countryString="Σιβηρία"; 

	else if (place == 33) countryString="Καζακσταν"; 

	else if (place == 34) countryString="Ελλάδα"; 

	else if (place == 35) countryString="Ιράκ"; 

	else if (place == 36) countryString="Σαουδική Αραβία"; 

	else if (place == 37) countryString="Πολωνία"; 

	else if (place == 38) countryString="Ουγγαρία"; 

	else if (place == 39) countryString="Γιουγκοσλαβία"; 

	else if (place == 40) countryString="Ρουμανία"; 

	else if (place == 41) countryString="Βουλγαρία"; 

	else if (place == 42) countryString="Ιζραήλ"; 

	else if (place == 43) countryString="Θιβέτ"; 

	else if (place == 44) countryString="Βιρμανία"; 

	else if (place == 45) countryString="Ταϊλάνδη"; 

	else if (place == 46) countryString="Νότια Κίνα"; 

	else if (place == 47) countryString="Μογγολία"; 

	else if (place == 48) countryString="Βόρεια Κίνα"; 

	else if (place == 49) countryString="Κορέα"; 

	else if (place == 50) countryString="Ιαπωνία"; 

	else if (place == 51) countryString="Οκιναούα"; 

	else if (place == 52) countryString="Σουμάτρα"; 

	else if (place == 53) countryString="Νέα Γουινέα"; 

	else if (place == 54) countryString="Φιλιππίνες"; 

	else if (place == 55) countryString="Νέα Γουϊνέα"; 

	else if (place == 56) countryString="Πορτογαλία"; 

	else if (place == 57) countryString="Αλβανία"; 

	else if (place == 58) countryString="Αυστραλία";

	else if (place == 59) countryString="Ρώμη"; 

	else if (place == 60) countryString="Νέα Ζηλανδία"; 

	else if (place == 61) countryString="Νέα Αγγλία"; 

	else if (place == 62) countryString="Αργεντινή";

	else if (place == 63) countryString="Βόρεια Ινδία"; 

	else if (place == 64) countryString="Κεντρική Ινδία"; 

	else if (place == 65) countryString="Νότια Ινδία"; 

	else if (place == 66) countryString="Αίγυπτος"; 

	else if (place == 67) countryString="Βόρεια Αφρική"; 

	else if (place == 68) countryString="Δυτική Ασία"; 

	else if (place == 69) countryString="Θιβέτ"; 

	else if (place == 70) countryString="Σαχάρα"; 

	else if (place == 71) countryString="Μεξικό"; 

	else if (place == 72) countryString="Κύπρος";

	else if (place == 73) countryString="Λατινική Αμερική"; 

	else countryString="Κεντρική Αμερική";



	//etos of past life calculation

	

	var ys1;



	     if (ys == "M") var mString = "185014001125102507000700180014751800130011751100";

	else if (ys == "N") var mString = "092518750425185017501350080006750825182515250875";

	else if (ys == "O") var mString = "172516750875070013251825177508001075165009001625";

	else if (ys == "P") var mString = "145005001800100008000550165017001325072511001550";

	else if (ys == "Q") var mString = "100014500950042517001525135011001625122517251025";

	else if (ys == "R") var mString = "097513751200127504500825137513500700092509250725";

	else if (ys == "S") var mString = "122506251250142509251150147507501300157506001125";

	else if (ys == "T") var mString = "117514001825127517500975185011501600187515251850";

	else if (ys == "U") var mString = "090009000775105013751675107515000825072510251500";

	else if (ys == "V") var mString = "122507501825140011501325167512751475160009501200";

	else if (ys == "W") var mString = "057516750775047517001450085017251775102517750400";

	else if (ys == "X") var mString = "180015751425157515501200160012001300037507751250";

	else if (ys == "Y") var mString = "107512501000165009501825155014250800175010750875";

	else                    var mString = "097505251175085015751125177513500700065013501050";

	

	ys1 = mString.charAt((cur_minas-1)*4); 

	if (ys1 == "0") ys1 = ""; {

	ys1 += mString.charAt((cur_minas-1)*4+1);

		ys1 += mString.charAt((cur_minas-1)*4+2); ys1 += mString.charAt((cur_minas-1)*4+3)} ;

		
	//past life profession



          if (pro == "A1") var proString = "Κληρικός";

	else if (pro == "A2") var proString = " Στοχαστής,Φιλόσοφος, διανοούμενος";

	else if (pro == "A3") var proString = " Ξυλουργός, τεχνίτης, μηχανικός";

	else if (pro == "A4") var proString = " χημικός, εφευρέτης, μηχανικός";

	else if (pro == "A5") var proString = " ναυτικός, ξυλουργός, μάγειρας";

	else if (pro == "A6") var proString = " κοσμηματοπώλης, ζωγράφος";

	else if (pro == "A7") var proString = " γιατρός, ανθοκόμος, βοτανολόγος";

	else if (pro == "C1") var proString = " Κτηνοτρόφος, γεωργός, βοσκός";

	else if (pro == "C2") var proString = " Στρατιωτικός διοικητής, λοχίας, καπετάνιος";

	else if (pro == "C3") var proString = " βιβλιοθηκάριος, ιερέας, ψάλτης";

	else if (pro == "C4") var proString = " ποιητής, καλλιτέχνης, μουσικός";

	else if (pro == "C5") var proString = "τραπεζίτης, έμπορος χρυσoύ";

	else if (pro == "C6") var proString = " στρατηλάτης, μελισσοκόμος, καλόγερος";

	else if (pro == "C7") var proString = " συγγραφέας, τελετάρχης, σκηνοθέτης";

	else if (pro == "B1") var proString = " χτίστης , αρχιτέκτονας";

	else if (pro == "B2") var proString = " αστρολόγος, χαρτογράφος, αστρονόμος";

	else if (pro == "B3") var proString = " χειροτέχνης, διασκεδαστής";

	else if (pro == "B4") var proString = " κυνηγός, αρχγηγός, εκτελεστής";

	else if (pro == "B5") var proString = " καλλιτέχνης, αστρονόμος, γυρολόγος";

	else if (pro == "B6") var proString = " βυρσοδέψης, αεργος, ναύτης";

	else if (pro == "B7") var proString = " Αρχιτεκτονας, εκκλησιών, ναών";

	else if (pro == "D1") var proString = " εκπαιδευτής ζώων, ευγενής";

	else if (pro == "D2") var proString = " ιέρας, λογοτέχνης";

	else if (pro == "D3") var proString = " ράφτης, υφαντής, κτηνοτρόφος";

	else if (pro == "D4") var proString = " , μουσικός, σκηνοθέτης, τραγουδίστης όπερας";

	else if (pro == "D5") var proString = " τοκογλύφος, δικαστής, δικηγόρος";

	else if (pro == "D6") var proString = " δάσκαλος μουσικής, μαθηματικός, Φιλόσοφος";

	else var proString = " χορευτής, ηθοποιός, δραματουργός";

	 

	//characteristics




	if (p2 == 1) {

		if (place-2*(parseInt(place/2)) > 0) var charString = "Οραματιστής, καλόκαρδος με  αυξημένη διαίσθηση είχες κλίση  στην ποίηση και τον χορό και καλλιέργησες την καλλιτεχνική σου φύση για να βρίσκεις μια διέξοδο στα έντονα και βαθιά συναισθήματα που είχες μέσα σου. ";

		else var charString = "Στην πρώτη σου αποτυχία ΄έπεφτες΄ ψυχολογικά και κλείνοσούν στον εαυτό σου. Στα οικονομικά σου ήσουν σπάταλος αφού ξόδευες ολα  τα χρήματα σου για την εμφάνιση σου, για διασκεδάσεις και ταξίδια.."

		}

	else if (p2 == 2) {

		if (place-2*(parseInt(place/2)) > 0) var charString = "Ήσουν Θετικος, αισιόδοξος αλλά και πεισματάρης γιατί μερικές φορές κολλούσες στις ιδέες που είχες και δύσκολα αλλάζες γνώμη. Πανέξυπνος και ετοιμόλογος αφού ήξερςς να χειρίζεσαι άψογα το λόγο, σταθερος στις απόψεις σου και αποδεχόσουν τα λάθη σου.";

		else var charString = "Εκκεντρικός και στην εμφάνιση σου αλλά και στις ιδέες και δεν σε απασχολούσε η γνώμη των άλλων απλά εκφράζες τις απόψεις σου . Ιδιαίτερο χιούμορ, καυστικό ορισμένες φορές, λειτουργούσες καλύτερα σε ομάδες στον εργασιακό σου χώρο."

		}



	else if (p2 == 3) {

		if (place-2*(parseInt(place/2)) > 0) var charString = "Σε χαρακτηρίζε η ευθύτητα του λόγο σου, η αγάπη για την ζωή και γι΄ αυτό ήθελες να γεύεσαι την κάθε στιγμή σαν να είναι μοναδική! Μερικές φορές γίνονται όμως γινόσουν αφελής, επιπόλαιος και έκανες σοβαρά λάθη.";

		else var charString = "Ησουν λάτρης του αθλητισμού, και σου αρέσε η περιπέτεια και τα μακρινά ταξίδια όπου και  γνωρίσες και εξερευνήσες άλλους πολιτισμούς με διαφορετικά ήθη και έθιμα."

		}



	else if (p2 == 4) {

		if (place-2*(parseInt(place/2)) > 0) var charString = "Δεν ανοιγόσουν εύκολα στο περίγυρο σου, ήταν πολύ δύσκολο να σε καταλάβουν αφού ήξερες να κρύβεις καλά τα συναισθήματα τους και υψώνεις ένα ΄τείχος΄ απέναντι σε όλους για να προστατεύσεις τον εαυτό τους και να μην σε εκμεταλλευτεί κανείς.";

		else var charString = "Σκληρος επιχειρηματίας, ήθελες ακράδαντες αποδείξεις για να  πείστεις , ήσουν εγωιστής, ευέξαπτοι και ήθελες πάντα να έχεις το πάνω χέρι στη ζωή σου."

		}



	else if (p2 == 5) {

		if (place-2*(parseInt(place/2)) > 0) var charString = " Ήσουν καλαίσθητος και ήθελες οι χώροι σου να είναι καλά διακοσμημένοι και έτσι το γραφείο ή το σπίτι που είχες ήταν πάντα καθαρό, περιποιημένο με πολύ όμορφα αντικείμενα που εδείχαν το ωραίο γούστο που διέθετες";

		else var charString = "Δεν σου αρέσαν οι σκληρές δουλειές, λειτουργούσες καλά σε χώρους που είχαν να κάνουν με την επικοινωνία και τις δημόσιες σχέσεις αφού χειριζόσουν καλά το λόγο και είχες σωστά επιχειρήματα που μπορούσαν να πείσουν τους άλλους."

		}



	else if (p2 == 6) {

		if (place-2*(parseInt(place/2)) > 0) var charString = "Άγαπούσες την οικογένεια σου και ήσουν πολύ δεμένος με τους δικούς τους ανθρώπους, ήσουν σπιτόγατος και σου αρέσε να απολαμβάνεις την θαλπωρή και την ηρεμία του σπιτιού σου, που ήταν και το μόνο μέρος που σε  έκανε να νιώθεις ασφάλεια."	

		else var charString = " Ήσουν πολύπλευρη προσωπικότητα, δραστήριος, και  καταπιανόσουν με τα πάντα, διάβαζες ακατάπαυστα και ήθελες να ενημερώνεσαι για όλα που συνέβαιναν γύρω σου γι΄ αυτό  πάντα άποψη και γνώμη για ότι και αν σε ρωτούσαν."

		}



	else if (p2 == 7) {

		if (place-2*(parseInt(place/2)) > 0) var charString = "Στην διαχείριση των χρημάτων σου ήσουν σπάταλος, σου αρέσε να περνάς καλά, να διασκεδάζείς, να πηγαίνείς εκδρομές με τους φίλους σου,  ζωή για σενα σήμαινε  ελευθερία κινήσεων ,απόλαυση, διασκέδαση, χωρίς ευθύνες και υποχρεώσεις.";

		else var charString = "Επιβιώνες στις δύσκολες καταστάσεις, ήσουν παρά πολύ δυναμικός, άντεχες τις ταλαιπωρίες και προσπαθούσες πάντα να είσαι σε ετοιμότητα για να μπορείς να ξεπεράσεις τα εμπόδια που συναντούσες στο δρόμο σου."

		}



	// past life lesson



	if (p2 == 1){

 		     if (imera < 12) var lesString = "Τα πάντα στο σύμπαν έχουν ρυθμό. Τα πάντα χορεύουν. Μάγια Ανγκέλου .";

		else if (imera < 22) var lesString = "Αγαθό είναι εκείνο από το οποία εξαρτώνται τα πάντα, αλλά το οποίο δεν εξαρτάται από τίποτε. Πλωτίνος. .";

		             else  var lesString = "Δραστηριότητα και επιμονή κατακτούν τα πάντα Φραγκλίνος ."}

	else if (p2 == 2) {

		     if (imera < 12) var lesString = "Ένας ποιητής πρέπει να αφήνει ίχνη του περάσματός του, όχι αποδείξεις. Γουάλλας Στίβενς .";

		else if (imera < 22) var lesString = "Το αστείο είναι ο επιτάφιος μιας συγκίνησης Νίτσε .";

		              else var lesString = "Εάν θα είχαμε περισσότερο χρόνο για συζητήσεις, φοβάμαι θα είχαμε κάνει πολύ περισσότερα λάθη Τρότσκι."}

	else if (p2 == 3) {

		     if (imera < 12) var lesString = "Δεν υπάρχει σιγουριά σ’ αυτόν τον κόσμο. Υπάρχουν μόνο ευκαιρίες. Douglas McArthur, Αμερικανός στρατηγός.";

		else if (imera < 22) var lesString = "Η συζήτηση είναι ανταλλαγή των γνώσεων, η λογομαχία είναι ανταλλαγή των αμαθειών Κουήλεν Ρ. ";

		              else var lesString = "Η τύχη δεν μπορεί να αλλάξει την καταγωγή Οράτιος ."}

	else if (p2 == 4) {

		     if (imera < 12) var lesString = "Τίποτα θαυμαστό, ούτε ωραίο, δεν παράγεται από το αισχρό Πλούταρχος .";

		else if (imera < 22) var lesString = "Ο χορός είναι η κρυμμένη γλώσσα του σώματος. Μάρθα Γκράχαμ .";

		              else var lesString = "Όσοι δεν έχουν δικά τους προσόντα καταφεύγουν στους ένδοξους προγόνους και παππούδες τους, με άλλα λόγια, σε τάφους και μνήματα Μένανδρος ."}

	else if (p2 == 5) {

		     if (imera < 12) var lesString = "Όταν σκέπτεσαι να αλλάξεις κάτι, αναλογίσου αν η αλλαγή θα είναι επωφελής. Αν όχι, άφησε τα πράγματα όπως έχουν Κένκο Γιοσίντα .";

		else if (imera < 22) var lesString = "Οι αμαρτίες απ’ τις οποίες πηγάζουν όλες οι άλλες είναι οι δύο : η ανυπομονησία και η οκνηρία. - Kafka, Franz.";

		              else var lesString = "Να χαίρεσαι όταν πράττεις την αρετή, αλλά να μην υπερηφανεύεσαι, μη τυχόν και ναυαγήσεις μέσα στο λιμάνι Όσιος Νείλος ."}

	else if (p2 == 6) {

		     if (imera < 12) var lesString = "Δεν αλλάζουν μόνο οι πιο σοφοί και οι πιο ανόητοι Κομφούκιος .";

		else if (imera < 22) var lesString = "Λένε πως ο Θεός είναι πάντα για τις μεγάλες μάχες Φρ. Βολταίρος.";

		              else var lesString = "Η νίκη ανήκει σ’ αυτόν που έχει την μεγαλύτερη καρτερία Ναπολέων."}

	else if (p2 == 7) {

		     if (imera < 12) var lesString = "Σ' ένα τόπο χωρίς παρελθόν δεν υπάρχει μέρος να κρύψει κανείς το μέλλον από τα μάτια του παρόντος. Νόρμαν Σπίνραντ .";

		else if (imera < 22) var lesString = "Η γυναίκα θέλει πολλά από έναν άνδρα, ενώ ο άνδρας θέλει μόνο ένα, αλλά από πολλές γυναίκες. Κονσταντίν Μελιχάν.";

		              else var lesString = "Η αλήθεια είναι ζήτημα απόψεως Μυριβήλης . "}	

				

	//message composition



	body = body + "Περιοχή που έζησες: " + countryString.fontcolor("red");

	body = body + " περίπου το " + ys1.fontcolor("red") + ".<BR>";

	body = body + "Το επάγγελμα σου ήταν " + proString.fontcolor("red") + ".<br><br>";

	body = body + "<font color=black><b>Ο Χαρακτήρας σου στην προηγούμενη ζωή σου:</b></font><BR>" + charString.fontcolor("black") + "<br><br>";

	body = body + "<font color=black><b>Λόγια μεγάλων Ανδρών που μπορεί να σε βοηθήσουν:</b></font><BR><em>" + lesString.fontcolor("black") + "</em><br></FONT> ";

	body = body + "<FONT FACE=Arial Color=#CC3300><B>" + "Τώρα Ξέρεις..." + "</B><BR></FONT>";

    	document.getElementById("provlepsi").innerHTML = body; 
    	return false;//

      
}