with Ada.text_io; use Ada.text_io;
with num_io; use num_io;
Procedure Helicopter is
oner : integer;
begin
PUT_line("Try a more specialised program");
PUT_line("Press 1 to return to the Main Menu");
get (oner);
new_line;
If oner = 1 Then
Main;
End if;
End Helicopter;