/* converts RADAN file to ASCII file */
#include <stdio.h>
#include <string.h>

main(argc,argv)
int argc;
char *argv[];
{   int i,n,rec;
    FILE *in,*out;
    char fname[40];
    unsigned char buff[512];

    if (argc < 3)
    {   fputs("Converts RADAN file to ASCII file\nUsage:   rtoa  input.DZT  output.DAT\n",stderr);
	exit(0);
    }

    strcpy(fname,argv[1]);
    if (strchr(fname,'.') == NULL) strcat(fname,".DZT");
    in = fopen(fname,"rb");
    if (in == NULL)
    {   fprintf(stderr,"Error opening input file %s\n",argv[1]);
	exit(1);
    }
    strcpy(fname,argv[2]);
    if (strchr(fname,'.') == NULL) strcat(fname,".DAT");
    out = fopen(fname,"w");
    if (out == NULL)
    {   fprintf(stderr,"Error opening output file %s\n",argv[1]);
	exit(1);
    }
    setvbuf(in,NULL,_IOFBF,16384);
    setvbuf(out,NULL,_IOFBF,16384);

    rec = 0;
    while(fread(buff,1,512,in) == 512)
    {   fprintf(stderr,"%5d\r",++rec);
	for (i=0; i<512; i++)
	{   fprintf(out,"%d ",(int)buff[i]-128);
	    if ((i&511) == 511) putc('\n',out);
	}
    }

    fclose(in);
    fclose(out);
}