source:
ada-examples/hello_world_ada/hello.adb
@
4ad07d0
Last change on this file since 4ad07d0 was 7efcefa, checked in by Joel Sherrill <joel.sherrill@…>, on 04/20/99 at 13:05:42 | |
---|---|
|
|
File size: 344 bytes |
Rev | Line | |
---|---|---|
[7efcefa] | 1 | -- |
2 | -- Hello World with Flair | |
3 | -- | |
4 | ||
5 | with Text_IO; use Text_IO; | |
6 | ||
7 | procedure Hello is | |
8 | begin | |
9 | Put_Line ("GNAT/RTEMS Hello World Test"); | |
10 | New_Line; | |
11 | Put_Line ("Welcome to the World of Lady Ada"); | |
12 | ||
13 | New_Line; | |
14 | Put_Line ("Initiating 2.5 second delay"); | |
15 | delay 2.5; | |
16 | Put_Line ("Delay Complete"); | |
17 | ||
18 | Put_Line ("Test Complete"); | |
19 | end Hello; | |
20 |
Note: See TracBrowser
for help on using the repository browser.