Simula

Begin
        while 1 = 1 do begin
                outtext ("Hello World!");
                outimage;
        end;
End;