Program Address_Capture;
{ Program Written by Philip Smtih Copywrite Philip Smith 2000-07} BANG
Uses Wincrt;

var
  name : String; { fullname stored as string }
  ad1 : string; { address line 1 stored as a string }
  ad2 : string; { address line 2 stored as a string }
  ad3 : string; { address line 3 stored as a string }
  pcode : string; { post code stored as a string }

begin
     GoToXY(15,2);
     Write('Welcome to the Name and Address complier created by Philip Smith');
     Readln;

     GoToXY(4,5);
     writeln('Please enter your full name. ');
     GoToXY(50,5);
     readln(name);

     GoToXY(4,7);
     writeln('Please enter the first line of your address. ');
     GoToXY(50,7);
     readln(ad1);

     GOTOXY(4,9);
     writeln('Please enter the second line of your address. ');
     GoToXY(50,9);
     readln(ad2);

     GoToXY(4,11);
     writeln('Please enter the third line of your address. ');
     GoToXY(50,11);
     readln(ad3);

     GoToXY(4,13);
     writeln('Please enter your postcode.');
     GoToXY(50,13);
     readln(pcode);
     { stores the entered data in the strings shown }

     writeln; Writeln;
     GoToXY(7,16);     writeln('The details you just entered are: ');
     writeln;
     GoToXY(10,18);     writeln(name);
     GoToXY(10,19);     writeln(ad1);
     GoToXY(10,20);     writeln(ad2);
     GoToXY(10,21);     writeln(ad3);
     GoToXY(10,22);     writeln(pcode);
     writeln;
     { shows the data that has just been entered }
     GoToXY(7,24);      Writeln('Thank you for using this program');
     readln;

     donewincrt;
end.