#include <stdio.h>

#include "GFA_TC.H"



/*	test GFA-BASIC Array	*/

short test[] =

{ 0x8000, 0x0000, 0x0000, 0x03ff,	/*  1   */

  0x8000, 0x0000, 0x0000,-0x03ff,	/* -1   */

  0x8000, 0x0000, 0x0000, 0x03fe,	/*  0.5 */

  0xC000, 0x0000, 0x0000, 0x03ff,	/*  1.5 */

  0x8000, 0x0000, 0x0000, 0x03ff,	/*  1   */

};



/* 	Turbo C 1.1 Array	*/

double result[5];



void hexdump(short *test,int lines, int llen);



void main()

{

	int i;

	gfa_tc(test,result,5);

	for (i = 0;i < 5;i++)

		printf("%f ",result[i]);

	printf("\n");

	result[1] = 0.1;

	tc_gfa(result,test,5);

	hexdump(test,5,4);

}



#include "GFA_TC.C"		/* kann auch getrennt compiliert	*/

						/* und dann gelinkt werden			*/



void hexdump(short *test,int lines, int llen)

{

	int i;

	int l = 1;

	

	while(lines--)

		{

		printf("%4d: ",l++);

		for(i=0;i<llen;i++)

			printf("%04x ",*test++);

		printf("\n");

		}

}