Advantech PCLS-848-P, User Manual

Page: 62 / 106

5 6 PCLS-848-P User's Manual
B. Example in Turbo Pascal
( FILE NAME : EX2 TB.PAS }
{ SET IEEE-488 PRINTER )
{ Purpose : This program converts an IEEE-488 printer to a )
{ PC system printer. )
{ Language : Turbo Pascal )
program example2(input,output);
{SI TBPGPIB.INC)
var
addr,portno : integer;
s : char;
outstr : lstring;
begin
ieinit($2B8,21,0);
{ Enter the IEEE-488 bus printer address )
addr:=-l;
while (addr<O) or (addr>30) do
begin
write(‘Enter the GP-IB printer address ? ‘);
read(addr); writeln;
end;
portno:=l;
iedevice(addr,portno);
writeln(‘GP-IB printer is ready to use.’);
write(‘Send string to printer ? (y/n)’);
read(s); writeln;
if(s = ‘y’) then
begin
write(‘Enter the string : ‘);
read(outstr); writeln;
writeln(‘Sending string ‘);
writeln(Lst,outstr);
writeln(‘Donel,);
end;
end. (End of program)