Advantech PCLS-848-P, User Manual

Page: 60 / 106

5 4 PCLS-848-P User's Manual
addr,length : integer;
instr : lstring;
s : char;
begin
repeat
writeln;(‘ ENTER DATA :’);
write(‘ From which address ?’);
read(addr); writeln;
writeln(, Entering string ...’);
ieenter(addr,instr);
iochk;
writeln(‘ Entered string : ‘,instr),
write(‘ Enter data again ?(y/n)’);
read(s); writeln;
until s=’n’;
end;
var
sel : integer;
begin
ieinit(S2B8,21,0);
repeat
ieabort;
clrscr;
writeln(‘*** Demo Program for the IEEE-488 Interface ***’);
writeln(‘ 1 : OUTPUT DATA’);
writeln;
writeln(‘ 2 : ENTER DATA’)
writeln;
writeln(‘ 3 : EXIT’);
writeln;
write(‘ Select a function :’);
read(sel); writeln:
if (sel<4) and (sel>0) then
begin
case sel of
1 : outputdata;
2 : enterdata;
3 : ;
else
writeln(‘******* SOMEThING WRONG ~ *******’);
end;
end;
until sel=3;
end. (End of program)