#include <io.h>
#include <fcntl.h>
#include <stdio.h>
#include <process.h>
#include "realcnvt.h"


int openfile(char *Name) {
  int H;
  if ((H = open(Name,O_RDONLY | O_BINARY)) == -1) {
    perror(Name);
    exit(0);
  }
  return(H);
}

main(void) {

  int    Handle;
  double NewValue1;
  double NewValue2;
  double NewValue3;
  struct {
    pasreal A;
    char    B[46];
  } Rec1;
  struct {
    bassngl A;
    char    B[46];
  } Rec2;
  struct {
    basdble A;
    char    B[46];
  } Rec3;

  printf("\n  Converted to      Converted From\n"
           "----------------   ---------------------------------------------\n");

  Handle = openfile("RealPas6");
  read(Handle,&Rec1,sizeof(Rec1));
  close(Handle);
  NewValue1 = pasrealtodouble(Rec1.A);
  printf("%16.6lf - %s\n",NewValue1,&Rec1.B[1]);

  Handle = openfile("RealBas4");
  read(Handle,&Rec2,sizeof(Rec2));
  close(Handle);
  NewValue2 = bassngltodouble(Rec2.A);
  printf("%16.6lf - %s\n",NewValue2,Rec2.B);

  Handle = openfile("RealBas8");
  read(Handle,&Rec3,sizeof(Rec3));
  close(Handle);
  NewValue3 = basdbletodouble(Rec3.A);
  printf("%16.6lf - %s\n",NewValue3,Rec3.B);

  return(0);
}