1--
2-- Copyright (C) 1998
3-- All Rights Reserved. Salih Yurttas, ZCubes, BitsOfCode Software Systems, Inc..
4--
5-- Permission to use, copy, modify, and distribute this
6-- software and its documentation for EDUCATIONAL purposes
7-- and without fee is hereby granted provided that this
8-- copyright notice appears in all copies.
9--
10--
11
12-- date : January 1, 1998.
13-- author : Salih Yurttas.
14
15-- io_string_n_p.adb
16
17
18package body IO_String_N_P is
19
20 function Get_String(Prompt : in String) return String_8 is
21 V : String_8;
22 begin
23
24 New_Line;
25
26 Put(Prompt);
27 Get(V);
28 Skip_Line;
29
30 New_Line;
31
32 return V;
33
34 end Get_String;
35
36 procedure Get_String(Prompt : in String;
37 V : out String_8) is
38 begin
39
40 New_Line;
41
42 Put(Prompt);
43 Get(V);
44 Skip_Line;
45
46 New_Line;
47
48 end Get_String;
49
50 procedure Put_String(Header : in String;
51 V : in String_8) is
52 begin
53
54 New_Line;
55
56 Put_Line(Header);
57 Put(V);
58
59 New_Line;
60
61 end Put_String;
62
63end IO_String_N_P;