Ada

    with Text_Io; use Text_Io;

    procdure hello is
    begin
       put ("Hello world!");
    end hello;

submitted by: Nate Sternberg (Q969@NEMOMUS.BITNET)

Ada windows

with Winuser; use Winuser;

procedure Hello is

        I : Integer;

        begin

                I := MessageBox (0, CSTRING("Hello World!"), CSTRING(""), MB_OK);

        end Hello;

submitted by: Julie Etherton (ujcetherton@cc.memphis.edu)