procedure Gpib_Init;Stdcall;external'gpdllpci';
procedure Gpib_Ifc;Stdcall;external'gpdllpci';
function  Gpib_Dcl(tim:  Word):Word;Stdcall;external'gpdllpci';
function  Gpib_Sdc(tim:  Word;
                   adr:  Byte):Word;Stdcall;external'gpdllpci';
function  Gpib_Trg(tim:  Word;
                   adr:  Byte):Word;Stdcall;external'gpdllpci';
function  Gpib_Llo(tim:  Word):Word;Stdcall;external'gpdllpci';
function  Gpib_Gtl(tim:  Word):Word;Stdcall;external'gpdllpci';
procedure Gpib_Ren;Stdcall;external'gpdllpci';
procedure Gpib_Lcl;Stdcall;external'gpdllpci';
function  Gpib_Wrt(tim:  Word;
                   buf:  string;
                   dlm:  Byte;
                   adr:  Byte):Word;Stdcall;external'gpdllpci';
function  Gpib_Red(tim:  Word;
                   rbuf:  pchar;
                   dlm:  Byte;
                   adr:  Byte):Word;Stdcall;external'gpdllpci';
function  Gpib_Bwrt(tim:  Word;
                   buf:  string;
                   wnum:  LongInt;
                   adr:  Byte):Word;Stdcall;external'gpdllpci';
function  Gpib_Bred(tim:  Word;
                   rbuf:  pchar;
                   rnum:  pointer;
                   adr:  Byte):Word;Stdcall;external'gpdllpci';
function  Gpib_Spol(tim:  Word;
                   stim:  Word;
                   adr:  Byte):Word;Stdcall;external'gpdllpci';
function  Gpib_Sts:Word;Stdcall;external'gpdllpci';
function  Gpib_Cmd(tim:  Word;
                   buf:  string):Word;Stdcall;external'gpdllpci';
var
   adr:   Byte;
   tim:   Word;
   dlm:   Byte;
   buf:   string;   //  出力バッファ
   rbuf:  array[0..256] of char;  //  ２５６文字分のバッファ
   status:  Word;
   wnum:    LongInt;
   rnum:    ^LongInt;
   num:     LongInt;