Advantech PCLS-848-P, User Manual

Page: 57 / 106

CHAPTER 2 INSTALLATION 51
CHAPTER 4. PROGRAMMINGEXAMPLES
4.1. Interactive Data Transfer
A. Example in Microsoft Pascal
{ FILE NAME: EX1 MS.PAS }
{ INTERACTIVE DATA TRANSFER }
{ Purpose : This program outputs data strings entered by the
}
{ user and enters data string from the IEEE-488
}
{ bus. }
{ Language : Microsoft Pascal }
Program examplel(input,output);
{$INCLUDE : 'MSPGPIB.INC’}
Procedure iochk;
var
errno [ origin 16YDCoo:l6#2olA] : integer;
begin
writeln;
case errno of
0 : writeln (‘ Data transferredl,);
1 : writeln (‘ uandshake timeout!’);
otherwise
writeln (‘ Interface Error!’);
end;
writeln;
end;
procedure outputdata;
var
addr,length : integer;
outstr : lstring(255);
s : char;
begin
repeat
writeln;
writeln(‘ OUTPUT DATA :’);
write(‘ To which address?’);
readln(addr); writeln;
write(‘ Output string ?’);
readln(outstr);
writeln(‘ Outputing data);
ieoutput(addr,outstr);
iochk;
write(‘ Output data again ?(y/n)’);
readln(s); writeln;
readln(outstr);