/ Gem.C - Gematria for Lares, 1.02 / / 1.00 Written by T.Iannotti, 1990 / / 1.01 Edited 19

---
Master Index Current Directory Index Go to SkepticTank Go to Human Rights activist Keith Henson Go to Scientology cult

Skeptic Tank!

/* Gem.C -- Gematria for Lares, 1.02 */ /* 1.00: Written by T.Iannotti, 1990 */ /* 1.01: Edited 1991 */ /* (added reiterative attitude) */ /* 1.02: Edited 1992 */ /* (changed to GEM library) */ /* (fixed _reductio ad absurdam_ */ /* (added explanatory verbiage */ #include #include int main() { char scratch[128]; int length = 1; doca(); gets(scratch); docb(); gets(scratch); docc(); gets(scratch); docd(); gets(scratch); while (length > 0) { char *sentence[255], inbuf[128], inword[100][100]; int tot_eval = 0, tot_hval=0, tot_gval=0, word_eval = 0, word_hval=0, word_gval=0, tot_let = 0, pos = 0, i = 0, j = 0; doc2(); printf("\n"); printf("\nGEM -- Gematria For Lares, v1.02 -- (c) 1992, Frater A.U.D.C.A.L. "); printf("\n\nEnter a Word or Phrase, Enter alone to quit: "); gets(inbuf); *sentence = inbuf; length = strlen(*sentence); if (length == 0) { return 0; } for (pos=0; pos<80; pos++){printf("-");} printf("\nthe Phrase was:\n\{%s\}\nand it was %d characters long\n", *sentence, length); for (pos=0; pos < length; pos++) {inword[i][j] = sentence[0][pos]; switch (sentence[0][pos]) { case '.': inword[i][j] = '\x0'; j++; break; case ',': inword[i][j] = '\x0'; j++; break; case '!': inword[i][j] = '\x0'; j++; break; case '?': inword[i][j] = '\x0'; j++; break; case ' ': inword[i][j] = '\x0'; j = 0; i++; break; default: j++; tot_let++; } } inword[i][j] = '\x0'; j=i; for (i=0; i <= j; i++) { word_hval = hvalue(inword[i]); word_gval = gvalue(inword[i]); word_eval = evalue(inword[i]); printf("\nThe number %d word was \{%s\}; \nIt's Greek value is %d, it's Hebrew %d, and it's Enochian %d", i+1, inword[i], word_gval, word_hval, word_eval); tot_hval=tot_hval+word_hval; tot_gval=tot_gval+word_gval; tot_eval=tot_eval+word_eval; } printf("\n\nThere were %d word(s), and %d letter(s)", i, tot_let); printf("\nTheir total values were: %d Greek, %d Hebrew, and %d Enochian", tot_gval, tot_hval, tot_eval); printf("\nPress any key to continue"); gets(inbuf); } return 0; }

---

E-Mail Fredric L. Rice / The Skeptic Tank