/*  simple program */
#include <windows.h>
#include <stdio.h>
#include "gpibac.h"	
void main()
{
DWORD Ret;
DWORD  Reg, Preg,IfcTime;
DWORD  Srlen;
DWORD  Cmd[31];
char   Srbuf[256];
char file[]="tempareture.dat";
FILE *fp;
fp=fopen(file,"w");

Ret = GpIni();

printf("GpIni Ret=%x\n",Ret);
Reg=0x09;
Ret = GpBoardsts(Reg, &Preg);
printf("GpBoardsts Preg=%d\n",Preg);
IfcTime=100;

Ret = GpIfc(IfcTime);/*指定した値(1〜255)×100[μsec]*/
printf("GpIfc Ret=%d\n",Ret);
Ret = GpRen();/*Remote Enable*/
printf("GpRen Ret=%d\n",Ret);
Cmd[0] = 2;	/* トーカ+リスナ数(マスタモード時)*/
Cmd[1] = 0;	/* トーカアドレス */
Cmd[2] = 16;	/* リスナアドレス */
/* Cmd[3] = 7;	      〃       */
Srlen  = 3;	/* 送信データ長 */
lstrcpy(Srbuf, "F6X");	/* 送信データ配列 */

Ret = GpTalk(Cmd, Srlen, Srbuf);
printf("GpTalk Ret=%d\n",Ret);

Srlen  = 3;	/* 送信データ長 */
lstrcpy(Srbuf, "B1X");	/* 送信データ配列 */

Ret = GpTalk(Cmd, Srlen, Srbuf);
printf("GpTalk Inquie Ret=%d\n",Ret);


Cmd[0] = 2;	/* トーカ＋リスナ数(マスタモード時)*/
Cmd[1] = 16;	/* トーカアドレス */
Cmd[2] = 0;	/* リスナアドレス */
/*Cmd[3] = 7;*/	/*       〃       */
Srlen  = 254;	/* 最大受信可能バイト長 */
Ret = GpListen(Cmd, &Srlen, Srbuf);
printf("GpListen Ret=%d\n",Ret);
printf("GpListen Srbuf=%s\n",Srbuf);
fprintf(fp,"%s\n",Srbuf);
fclose(fp);

}