-> xaltex.exe */ 

litero1, litero2,
litero[NB]={"cghjsuCGHJSU"},
texformo[NB][10]={"\\^c","\\^g","\\^h","\\^{\\j}","\\^s","\\u{u}",
"\\^C","\\^G","\\^H","\\^J","\\^S","\\u{U}"};

void main(int nb,char **arg)

{if (nb!=3){printf("xaltex [fajlo.origina] [fajlo.destina.]\n");
printf("kodas esperantan teksajxon sen supersignoj (kiu uzas 'x')\n");
printf("al teksajxo kun supersignoj en TeX formo.\n");
printf("*** x Esperanto al teX *** X. Godivier juno 1998 ***\n");exit(1);}

if((fajlo_en=fopen(arg[1],"rt"))==NULL)
printf("fajla eraro %s\n",arg[1]);

if(strcmp(arg[1],arg[2])==0)
{printf("La destina fajlo kaj la origina fajlo\n");
printf("devas diferenci\n"); exit(1);}

if((fajlo_el=fopen(arg[2],"wt"))==NULL)
printf("fajla eraro %s\n",arg[2]);
fscanf(fajlo_en,"%c",&litero1);
while(fscanf(fajlo_en,"%c",&litero2)==1)
{if(litero2=='x') {i=0; while((litero1!=litero[i])&&(i<NB-1)) {i++;}
if(litero1==litero[i]) {fprintf(fajlo_el,"%s",texformo[i]);
fscanf(fajlo_en,"%c",&litero1);}
else {fprintf(fajlo_el,"%c",litero1); litero1=litero2;} }
else {fprintf(fajlo_el,"%c",litero1); litero1=litero2;}}
fprintf(fajlo_el,"%c",litero2);
fcloseall();