16 lines
257 B
Text
16 lines
257 B
Text
MODULE DNSQuery;
|
|
IMPORT
|
|
IO:Address,
|
|
Out := NPCT:Console;
|
|
|
|
PROCEDURE Do() RAISES Address.UnknownHostException;
|
|
VAR
|
|
ip: Address.Inet;
|
|
BEGIN
|
|
ip := Address.GetByName("www.kame.net");
|
|
Out.String(ip.ToString());Out.Ln
|
|
END Do;
|
|
|
|
BEGIN
|
|
Do;
|
|
END DNSQuery.
|