The Unsorted BBS Collection/thegreatunsorted.tar/thegreatunsorted/programming/misc_programming/TEST/SIMPLE.ADA

Text File | 1990-06-28 | 343 b | 14 lines

--           Test program for Meridian Ada compiler.            --
--        This program prints the numbers from 1 to 10.         --
--      Copyright (C) 1986 Meridian Software Systems, Inc.      --

with ada_io; use ada_io;
procedure simple is
begin
  for i in 1..10 loop
    put(i);
    put(' ');
  end loop;
  new_line;
end;