#include <stdio.h>
main(int argc, char **argv[])
{
        FILE *input_file, *temp_file;
	char *old_file, *new_file;
	int c;
	int i;
          printf("SplitRa V1.0\n");
          printf("(c) Lost-in-Space Programming 1991\n");
                if(argc != 2)
                {       printf("\nSPLITRA: Wrong number of Parameters\n");
			goto oops;
		}
        if(*argv[1] == 'S')
    {
    printf("SPLITRA: Splitting file EXITINFO.BBS\n");
	old_file="exitinfo.bbs";
	new_file="exitinfo.spl";
	rename(old_file,new_file);
	input_file = fopen("exitinfo.spl","rb");
	if(input_file == NULL)
                {       printf("\nSPILTRA: Can't find file EXITINFO.SPL \n");
                        exit(1);
                }

                temp_file = fopen("exitinfo.bbs","wb");
                if(temp_file == NULL)
                {       printf("\nSPLITRA: Can't create EXITINFO.bbs\n");
                        exit(1);
                }

	for(i=0;i<476;i++)
	{	c=getc(input_file);
		putc(c,temp_file);
	}
		close(input_file);
		close(temp_file);
		exit(0);
    }
        else
		if(*argv[1] == 'R')
    {
         printf("SPLITRA: Restoring file EXITINFO.BBS\n");
         old_file="exitinfo.bbs";
         new_file="exitinfo.spl";

         input_file = fopen("exitinfo.bbs","rb");
         if(input_file == NULL)
                {       printf("\nSPILTRA: Can't find file EXITINFO.BBS \n");
                        exit(1);
                }

                temp_file = fopen("exitinfo.spl","r+b");
                if(temp_file == NULL)
                {       printf("\nSPLITRA: Can't create EXITINFO.SPL\n");
                        exit(1);
                }

	for(i=0;i<476;i++)
	{	c=getc(input_file);
		putc(c,temp_file);
	}
		close(input_file);
		close(temp_file);
                remove("EXITINFO.BBS");
		rename(new_file,old_file);
		exit(0);
    }
       else

oops:           printf("\nSPLITRA: Must specify command parameter:\n\n");
		printf("  Splitra S   -  will create EXITINFO.BBS (RA 0.04) and EXITINFO.SPL (RA 1.00)\n");
		printf("  Splitra R   -  will restore EXITINFO.BBS to RA 1.00 format\n\n\n");
		exit(2);

}