ada-examples-4-10-branchada-examples-4-7-branchada-examples-4-8-branchada-examples-4-9-branch
Line | |
---|
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.