Advantech PCLS-848-P, User Manual

Page: 61 / 106

CHAPTER 2 INSTALLATION 55
4.2. Set the IEEE 48S Printer t
A. Example in Microsoft Pascal
{ FILE NAME. EX2 MS.PAS }
{ SET IEEE-488 PRINTER }
{ Purpose : This program converts an IEEE-488 printer to a }
{ PC system printer. }
{ Language : Microsoft Pascal }
Program example2(input,output);
{$INCLUDE : ‘MSPGPIB.INC’}
var
addr,portno : integer;
s : char;
outstr : lstring(255);
PRINTER : text;
begin
ieseg(16#D000);
icinit(l6Y2B8~2l~o);
( Enter the IEEE-488 bus printer address )
addr:=-1;
while(addr < 0) or (addr > 30) do
begin
write(‘Enter the GP-IB printer address 7 ‘),
readln(addr); writeln;
end;
portno:=1;
iedevice(addr,portno);
writeln(‘GP-IB printer is ready to use.’);
write(‘Send string to printer ? (y/n)’);
readln(s); writeln;
if(s = ‘y’) then
begin
write(‘Enter the string : ‘);
readln(outstr); writeln;
writeln(‘Sending string ‘);
assign(PRINTER, ‘LPT1:’);
rewrite(PRINTER);
writeln(PRINTER,outstr);
close(PRINTER);
writeln(‘Done!’);
end;
end. (End of program)