/*******************
 * Acalc     1.1   *
 *   Programs      *
 *     Typer       *
 * by       6/4/91 *
 *                 *
 *  CYBORG         *
 *                 *
 * COMPILE IT WITH *
 * LC -L -O apt    *
 *******************/
     

main(argc, argv)
int argc;
char *argv[];
{
	short handle, dummy = 0, prn, nbtrans;
	char donnees[500],car[1];
	if(argc == 2)
	{
	printf("            ACALC PROGRAMS TYPER   by CYBORG\n\n");
	handle = open(argv[1], 0, dummy);
	if(handle != -1)
	{
		nbtrans = read(handle, donnees, sizeof(donnees));
		close(handle);
		for (prn=0;donnees[prn]!=';';prn++)
		{
			*car=donnees[prn];
			printf("%.1s",car);
		}
		printf("   END !\n");
	}
	else
		printf("ERROR ON %s OPENING !\n",argv[1]);
	}
	else
		printf("USE : APT NamePrg\n");
}