home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / TURBOPAS / TURBSC.ZIP / TESTSCR.INC < prev    next >
Encoding:
Text File  |  1985-12-28  |  3.8 KB  |  65 lines
  1. Procedure TESTSCR;
  2. begin
  3.   gotoXY( 1, 1);   write('+---------------------------------------');
  4.   gotoXY(41, 1);   write('--------------------------------------+');
  5.   gotoXY( 1, 2);   write('| Screen generator  by Dave McCourt c 19');
  6.   gotoXY(41, 2);   write('85                                    |');
  7.   gotoXY( 1, 3);   write('+---------------------------------------');
  8.   gotoXY(41, 3);   write('--------------------------------------+');
  9.   gotoXY( 1, 4);   write('|                                       ');
  10.   gotoXY(41, 4);   write('                                      |');
  11.   gotoXY( 1, 5);   write('|                   a Turbo Pascal Progr');
  12.   gotoXY(41, 5);   write('aming Aid                             |');
  13.   gotoXY( 1, 6);   write('|                                       ');
  14.   gotoXY(41, 6);   write('                                      |');
  15.   gotoXY( 1, 7);   write('|                                       ');
  16.   gotoXY(41, 7);   write('                                      |');
  17.   gotoXY( 1, 8);   write('|                                       ');
  18.   gotoXY(41, 8);   write('                                      |');
  19.   gotoXY( 1, 9);   write('|                       Name1           ');
  20.   gotoXY(41, 9);   write('                                      |');
  21.   gotoXY( 1,10);   write('|                        Addr1          ');
  22.   gotoXY(41,10);   write('                                      |');
  23.   gotoXY( 1,11);   write('|                         Phon1         ');
  24.   gotoXY(41,11);   write('                                      |');
  25.   gotoXY( 1,12);   write('|                          Name2        ');
  26.   gotoXY(41,12);   write('                                      |');
  27.   gotoXY( 1,13);   write('|                           Addr2       ');
  28.   gotoXY(41,13);   write('                                      |');
  29.   gotoXY( 1,14);   write('|                            Phon2      ');
  30.   gotoXY(41,14);   write('                                      |');
  31.   gotoXY( 1,15);   write('|                             Name3     ');
  32.   gotoXY(41,15);   write('                                      |');
  33.   gotoXY( 1,16);   write('|                              Addr3    ');
  34.   gotoXY(41,16);   write('                                      |');
  35.   gotoXY( 1,17);   write('|                               Phon3   ');
  36.   gotoXY(41,17);   write('                                      |');
  37.   gotoXY( 1,18);   write('|                                Name4  ');
  38.   gotoXY(41,18);   write('                                      |');
  39.   gotoXY( 1,19);   write('|                                 Addr4 ');
  40.   gotoXY(41,19);   write('                                      |');
  41.   gotoXY( 1,20);   write('|                                  Phon4');
  42.   gotoXY(41,20);   write('                                      |');
  43.   gotoXY( 1,21);   write('|                                   Name');
  44.   gotoXY(41,21);   write('5                                     |');
  45.   gotoXY( 1,22);   write('|                                    Add');
  46.   gotoXY(41,22);   write('r5                                    |');
  47.   gotoXY( 1,23);   write('+---------------------------------------');
  48.   gotoXY(41,23);   write('--------------------------------------+');
  49.   gotoXY(22, 7);   write(date);
  50.   gotoXY(33, 9);   read(name);
  51.   gotoXY(34,10);   read(addr);
  52.   gotoXY(35,11);   read(phone);
  53.   gotoXY(36,12);   read(name);
  54.   gotoXY(37,13);   read(addr);
  55.   gotoXY(38,14);   read(phone);
  56.   gotoXY(39,15);   read(name);
  57.   gotoXY(40,16);   read(addr);
  58.   gotoXY(41,17);   read(phone);
  59.   gotoXY(42,18);   read(name);
  60.   gotoXY(43,19);   read(addr);
  61.   gotoXY(44,20);   read(phone);
  62.   gotoXY(45,21);   read(name);
  63.   gotoXY(46,22);   read(addr);
  64. end;
  65.