Yurttas/PL/IL/Ada-95/F/05/02/00/show p.adb

 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-- date   : December 4, 1989.
12-- author : Michael Nobles.
13
14-- show_p.adb
15
16
17package body Show_P is
18
19  procedure Show_Rec(Temp_Rec : in Data_Rec;
20                     Rec_Num  : in Integer) is
21  begin
22    Fix_Cursor (12,5);
23    Put(" This is the Desired Record             ");
24
25    Fix_Cursor (14,5);
26    Put("           Last Name : ");
27    Put_Line(Temp_Rec.last);
28
29    Fix_Cursor (15,5);
30    Put("          First Name : ");
31    Put_Line(Temp_Rec.first);
32
33    Fix_Cursor (16,5);
34    Put("             Address : ");
35    Put_Line(Temp_Rec.address);
36
37    Fix_Cursor (17,5);
38    Put("               Phone : ");
39    Put_Line(Temp_Rec.phone);
40
41    Fix_Cursor (18,5);
42    Put("   MONTH of Birthday : ");
43    Int_IO.Put(Temp_Rec.month);
44
45    Fix_Cursor (19,5);
46    Put("     DAY of Birthday : ");
47    Int_IO.Put(Temp_Rec.day);
48
49    Fix_Cursor (20,5);
50    Put("       Record Number : ");
51    Int_IO.Put(Rec_Num);
52  end Show_Rec;
53
54end Show_P;