Basic Package

•

What is DaniWeb IT Discussion Community?

DaniWeb is a massive community of 375,273 software developers, web developers, Internet marketers, and tech gurus who are all enthusiastic about making contacts, networking, and learning from each other. In fact, there are 2,218 IT professionals currently interacting right now! Registration is free, only takes a minute and lets you enjoy all of the interactive features of the site.

Join our community!

•

Nov 4th, 2005

Views: 1,607

Puckdropper

This is an Ada package that simply waits for the user to press the enter key. (If they enter anything else it's simply ignored.)

Show Printable Version

•

ada Syntax |

Toggle Plain Text

handy.ads
----------
 
with Ada.Text_IO;
package handy is
  procedure pause;
 
end handy;
 
handy.adb
----------
with Ada.Text_IO;
 
package body handy is
procedure pause is
  Wait: character;
  begin
    Ada.Text_IO.put("Press enter key to continue.");
    Ada.Text_IO.new_line;
    Ada.Text_IO.get_immediate(Wait);
  end pause;
 
end handy;

Post Comment

•

Only community members can submit or comment on code snippets. You must register or log in to contribute.

•

DaniWeb Marketplace (Sponsored Links)

DaniWeb Home > Code Snippets > ada Syntax

Basic Package