Advantech PCLS-848-P, Руководство пользователя

Страница: 59 / 106

CHAPTER 2 INSTALLATION 53
B. Example in Turbo Pascal
{ FILE NAME: EX1 TB.PAS }
{ INTERACTIVE DATA TRANSFER }
{ Purpose : This program outputs data strings entered by the }
{ user and enters data string from the IEEE-488 }
{ bus. }
{ Language : Turbo Pascal }
Program examplel(input,output);
{$I TBPGPIB.INC}
Procedure iochk;
var
errno : integer absolute $D000:$201A;
begin
writeln;
case errno of
0 : writeln(‘ Data transferredt’);
1 : writeln(‘ Handshake timeouti,);
else
writeln(‘ Interface Errorl’);
end;
writeln;
end;
procedure outputdata;
var
addr,length : integer;
outstr : lstring;
s : char;
begin
repeat
writeln;
writeln(‘ OUTPUT DATA :’);
write(‘ To which address ?’);
readln(addr); writeln; ~
write(‘ Output string 7’);
read(outstr); writeln;
writeln(‘ Outputing data ...’);
icoutput(addr,outstr); 3
iochk;
write(‘ Output data again 7(y/n)’);
read(s); writeln;
until s=’n’;
end;
procedure enterdata;
var