NetIPC 3000/XL Programmer's Reference Manual (5958-8600)

138 Chapter4
NetIPC Examples
Example 1
strmove(len, data, 1, datastr, 1);
if datastr <> 'END?' then writeln (datastr); {print data received}
end
until datastr = 'END?';
{connection shutdown procedure}
if datastr = 'END?' then writeln('END received');
data := 'Y';
ipcsend( vcdesc, data, 1, , , result ); {confirmation message}
writeln('Y sent');
if result <> 0 then leave(result);
receive(vcdesc, data, len, result );
if result = 64 then
ipcshutdown(vcdesc)
else
leave(result );
end.