Procedure DisplayScr;
Begin
   Clrscr;
   GotoXY(32,1);
   Write('FILE CARD DATABASE');
   GotoXY(11,2);
   Write('___________________________________________________________');
   GotoXY(11,3);
   Write('||                                                       ||');
   GotoXY(11,4);
   Write('||-------------------------------------------------------||');
   GotoXY(11,5);
   Write('||                                                       ||');
   GotoXY(11,6);
   Write('||                                                       ||');
   GotoXY(11,7);
   Write('||                                                       ||');
   GotoXY(11,8);
   Write('||                                                       ||');
   GotoXY(11,9);
   Write('||                                                       ||');
   GotoXY(11,10);
   Write('||                                                       ||');
   GotoXY(11,11);
   Write('||                                                       ||');
   GotoXY(11,12);
   Write('||                                                       ||');
   GotoXY(11,13);
   Write('||                                                       ||');
   GotoXY(11,14);
   Write('||                                                       ||');
   GotoXY(11,15);
   Write('||                                                       ||');
   GotoXY(11,16);
   Write('||                                                       ||');
   GotoXY(11,17);
   Write('||                                                       ||');
   GotoXY(11,18);
   Write('||                                                       ||');
   GotoXY(11,19);
   Write('||                                                       ||');
   GotoXY(11,20);
   Write('||                                                       ||');
   GotoXY(11,21);
   Write('-----------------------------------------------------------');
   GotoXY(11,22);
   Write('|                  |                  |                   |');
   GotoXY(11,23);
   Write('-----------------------------------------------------------');
End;