Procedure TESTSCR;
begin
  gotoXY( 1, 1);   write('+---------------------------------------');
  gotoXY(41, 1);   write('--------------------------------------+');
  gotoXY( 1, 2);   write('| Screen generator  by Dave McCourt c 19');
  gotoXY(41, 2);   write('85                                    |');
  gotoXY( 1, 3);   write('+---------------------------------------');
  gotoXY(41, 3);   write('--------------------------------------+');
  gotoXY( 1, 4);   write('|                                       ');
  gotoXY(41, 4);   write('                                      |');
  gotoXY( 1, 5);   write('|                   a Turbo Pascal Progr');
  gotoXY(41, 5);   write('aming Aid                             |');
  gotoXY( 1, 6);   write('|                                       ');
  gotoXY(41, 6);   write('                                      |');
  gotoXY( 1, 7);   write('|                                       ');
  gotoXY(41, 7);   write('                                      |');
  gotoXY( 1, 8);   write('|                                       ');
  gotoXY(41, 8);   write('                                      |');
  gotoXY( 1, 9);   write('|                       Name1           ');
  gotoXY(41, 9);   write('                                      |');
  gotoXY( 1,10);   write('|                        Addr1          ');
  gotoXY(41,10);   write('                                      |');
  gotoXY( 1,11);   write('|                         Phon1         ');
  gotoXY(41,11);   write('                                      |');
  gotoXY( 1,12);   write('|                          Name2        ');
  gotoXY(41,12);   write('                                      |');
  gotoXY( 1,13);   write('|                           Addr2       ');
  gotoXY(41,13);   write('                                      |');
  gotoXY( 1,14);   write('|                            Phon2      ');
  gotoXY(41,14);   write('                                      |');
  gotoXY( 1,15);   write('|                             Name3     ');
  gotoXY(41,15);   write('                                      |');
  gotoXY( 1,16);   write('|                              Addr3    ');
  gotoXY(41,16);   write('                                      |');
  gotoXY( 1,17);   write('|                               Phon3   ');
  gotoXY(41,17);   write('                                      |');
  gotoXY( 1,18);   write('|                                Name4  ');
  gotoXY(41,18);   write('                                      |');
  gotoXY( 1,19);   write('|                                 Addr4 ');
  gotoXY(41,19);   write('                                      |');
  gotoXY( 1,20);   write('|                                  Phon4');
  gotoXY(41,20);   write('                                      |');
  gotoXY( 1,21);   write('|                                   Name');
  gotoXY(41,21);   write('5                                     |');
  gotoXY( 1,22);   write('|                                    Add');
  gotoXY(41,22);   write('r5                                    |');
  gotoXY( 1,23);   write('+---------------------------------------');
  gotoXY(41,23);   write('--------------------------------------+');
  gotoXY(22, 7);   write(date);
  gotoXY(33, 9);   read(name);
  gotoXY(34,10);   read(addr);
  gotoXY(35,11);   read(phone);
  gotoXY(36,12);   read(name);
  gotoXY(37,13);   read(addr);
  gotoXY(38,14);   read(phone);
  gotoXY(39,15);   read(name);
  gotoXY(40,16);   read(addr);
  gotoXY(41,17);   read(phone);
  gotoXY(42,18);   read(name);
  gotoXY(43,19);   read(addr);
  gotoXY(44,20);   read(phone);
  gotoXY(45,21);   read(name);
  gotoXY(46,22);   read(addr);
end;