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-- write_p.adb
15
16
17package body Write_P is
18
19 procedure Write_Rec(DataN : in Pointer_String;
20 Size : in Integer) is
21 L : Integer;
22 Rec_Num : Integer;
23 Status : Integer := 1;
24 Dummy : String(1..20);
25 Temp_Rec : Data_Rec;
26 begin
27 Fix_Cursor(12,5);
28 Put(" Enter the Record to be Written ");
29 Get_Line(Dummy,L);
30
31 Fix_Cursor(14,5);
32 Put(" Last Name : ");
33 Get_Line(Temp_Rec.last,L);
34
35 Fix_Cursor(15,5);
36 Put(" First Name : ");
37 Get_Line(Temp_Rec.first,L);
38
39 Fix_Cursor(16,5);
40 Put(" Address : ");
41 Get_Line(Temp_Rec.address,L);
42
43 Fix_Cursor(17,5);
44 Put(" Phone : ");
45 Get_Line(Temp_Rec.phone,L);
46
47 Fix_Cursor(18,5);
48 Put(" MONTH of Birthday : ");
49 Int_IO.Get(Temp_Rec.month);
50
51 Fix_Cursor(19,5);
52 Put(" DAY of Birthday : ");
53 Int_IO.Get(Temp_Rec.day);
54
55 Fix_Cursor(20,5);
56 Put(" Enter Record Number : ");
57 Int_IO.Get(Rec_Num);
58
59 Randomize('w',
60 DataN,
61 Rec_Num,
62 Temp_Rec,
63 Size,
64 Status);
65
66 Get_Line(Dummy,L);
67 Clear_Bottom (9);
68 end Write_Rec;
69
70end Write_P;