Advantech PCLS-848-P, User Manual

Page: 58 / 106

5 2 PCLS-848-P User's Manual
until s=’n’;
end;
procedure enterdata;
var
addr,length : integer;
instr : lstring(255);
s : char;
begin
repeat
writeln;(‘ ENTER DATA :’);
write(‘ From which address ?’);
readln(addr); writeln;
writeln(‘ Entering string...‘);
ieenter(addr,instr);
iochk;
writeln(‘ Entered string . ‘ instr).
write(‘ Enter data again ?(yin)’);
readln(s); writeln;
until s=’n’;
end;
var
sel,i : integer;
begin
ieseg(16#D000);
ieinit(16#2B8,21,0);
ietimout(30000);
repeat
ioabort;
for i:=1 to 24 do writeln;
{clear screen}
writeln(‘*** IEEE-488 Interface Demo Program ***’);
writeln;
writeln(‘ 1 : OUTPUT DATA’);
writeln;
writeln(‘ 2 : ENTER DATA’);
writeln;
writeln(‘ 3 : EXIT’);
writeln;
write(‘ Select a function :’);
readln(sel); writeln;
if (sel<4) and (sel>0) then
begin
case sel of
1 : outputdata;
2 : enterdata;
3 : ;
otherwise
writeln(‘******* SOMETHING WRONG ! *******’);
end;
end;
until sel=3;
end. (End of program)