BURKS 2/BURKS_AUG97.ISO/BURKS/LANGUAGE/ADA/LOVELACE/forever.adb

Text File | 1996-10-01 | 112b | 8 lines

with Text_IO; use Text_IO;
procedure Forever is
begin
 loop
  Put_Line("Hello again!");
 end loop;
end Forever;