#include "stdio.h"
#include "stdlib.h"
 FILE  *beamfile, *bfile;
 float fm[5];

 void main()
{
 if ( (beamfile = fopen("beamfile.bin", "rb")) != NULL )  {
  if ( (bfile = fopen("beamfile.dat", "w")) != NULL )  {
   for(;;)  {
    if (fread(fm,4,5,beamfile)!=5)  exit(1);
    fprintf(bfile, "%g %g %g %g %g\n", fm[0], fm[1], fm[2], fm[3], fm[4]);
    if (fm[0]<-1000)  exit(0);
   };
   fcloseall();
}}}