Return to ts_byemess.adb CVS log

Up to [local] / OpenXM_contrib / PHC / Ada / System

Annotation of OpenXM_contrib/PHC/Ada/System/ts_byemess.adb, Revision 1.1.1.1

1.1       maekawa     1: with text_io;                            use text_io;
                      2: with Bye_Bye_Message;
                      3:
                      4: procedure ts_byemess is
                      5:
                      6: -- DESCRIPTION :
                      7: --   Prints the message to say bye bye at the end of the program.
                      8:
                      9: begin
                     10:   put_line(Bye_Bye_Message);
                     11: end ts_byemess;