home *** CD-ROM | disk | FTP | other *** search
/ ftp.update.uu.se / ftp.update.uu.se.2014.03.zip / ftp.update.uu.se / pub / rainbow / msdos / misc / messages.lzh / MESSSEAR.INC < prev    next >
Text File  |  1984-08-31  |  5KB  |  103 lines
  1. { Be sure to Include the file FASTVID.INC before this }
  2. Procedure MESSSEAR;
  3. Var
  4.    LineOut : String[80];
  5. begin
  6.    ClrScr;
  7.    NormVideo;
  8.    LineOut := '                                        ';
  9.    FastVideo(LineOut,FNormal,Char_Attrib,40,1,1);
  10.    LineOut := '                                       ';
  11.    FastVideo(LineOut,FNormal,Char_Attrib,39,1,41);
  12.    LineOut := '                                        ';
  13.    FastVideo(LineOut,FNormal,Char_Attrib,40,2,1);
  14.    LineOut := '                                       ';
  15.    FastVideo(LineOut,FNormal,Char_Attrib,39,2,41);
  16.    LineOut := '                                 FIND ME';
  17.    FastVideo(LineOut,FBold,Char_Attrib,40,3,1);
  18.    LineOut := 'SSAGE                                  ';
  19.    FastVideo(LineOut,FBold,Char_Attrib,39,3,41);
  20.    LineOut := '                                 -------';
  21.    FastVideo(LineOut,FBold,Char_Attrib,40,4,1);
  22.    LineOut := '-----                                  ';
  23.    FastVideo(LineOut,FBold,Char_Attrib,39,4,41);
  24.    LineOut := '                                        ';
  25.    FastVideo(LineOut,FNormal,Char_Attrib,40,5,1);
  26.    LineOut := '                                       ';
  27.    FastVideo(LineOut,FNormal,Char_Attrib,39,5,41);
  28.    LineOut := '                                        ';
  29.    FastVideo(LineOut,FNormal,Char_Attrib,40,6,1);
  30.    LineOut := '                                       ';
  31.    FastVideo(LineOut,FNormal,Char_Attrib,39,6,41);
  32.    LineOut := '                                        ';
  33.    FastVideo(LineOut,FNormal,Char_Attrib,40,7,1);
  34.    LineOut := '                                       ';
  35.    FastVideo(LineOut,FNormal,Char_Attrib,39,7,41);
  36.    LineOut := '      +--------------- E N T E R   S E A';
  37.    FastVideo(LineOut,FNormal,Char_Attrib,40,8,1);
  38.    LineOut := ' R C H   N A M E ---------------+      ';
  39.    FastVideo(LineOut,FNormal,Char_Attrib,39,8,41);
  40.    LineOut := '      |                                 ';
  41.    FastVideo(LineOut,FNormal,Char_Attrib,40,9,1);
  42.    LineOut := '                                |      ';
  43.    FastVideo(LineOut,FNormal,Char_Attrib,39,9,41);
  44.    LineOut := '      |    FIRST  <             >      L';
  45.    FastVideo(LineOut,FNormal,Char_Attrib,40,10,1);
  46.    LineOut := 'AST  <              >           |      ';
  47.    FastVideo(LineOut,FNormal,Char_Attrib,39,10,41);
  48.    LineOut := '      |                                 ';
  49.    FastVideo(LineOut,FNormal,Char_Attrib,40,11,1);
  50.    LineOut := '                                |      ';
  51.    FastVideo(LineOut,FNormal,Char_Attrib,39,11,41);
  52.    LineOut := '      +---------------------------------';
  53.    FastVideo(LineOut,FNormal,Char_Attrib,40,12,1);
  54.    LineOut := '--------------------------------+      ';
  55.    FastVideo(LineOut,FNormal,Char_Attrib,39,12,41);
  56.    LineOut := '                                        ';
  57.    FastVideo(LineOut,FNormal,Char_Attrib,40,13,1);
  58.    LineOut := '                                       ';
  59.    FastVideo(LineOut,FNormal,Char_Attrib,39,13,41);
  60.    LineOut := '                                        ';
  61.    FastVideo(LineOut,FNormal,Char_Attrib,40,14,1);
  62.    LineOut := '                                       ';
  63.    FastVideo(LineOut,FNormal,Char_Attrib,39,14,41);
  64.    LineOut := '                                        ';
  65.    FastVideo(LineOut,FNormal,Char_Attrib,40,15,1);
  66.    LineOut := '                                       ';
  67.    FastVideo(LineOut,FNormal,Char_Attrib,39,15,41);
  68.    LineOut := '                                        ';
  69.    FastVideo(LineOut,FNormal,Char_Attrib,40,16,1);
  70.    LineOut := '                                       ';
  71.    FastVideo(LineOut,FNormal,Char_Attrib,39,16,41);
  72.    LineOut := '                                        ';
  73.    FastVideo(LineOut,FNormal,Char_Attrib,40,17,1);
  74.    LineOut := '                                       ';
  75.    FastVideo(LineOut,FNormal,Char_Attrib,39,17,41);
  76.    LineOut := '                                        ';
  77.    FastVideo(LineOut,FNormal,Char_Attrib,40,18,1);
  78.    LineOut := '                                       ';
  79.    FastVideo(LineOut,FNormal,Char_Attrib,39,18,41);
  80.    LineOut := '                                        ';
  81.    FastVideo(LineOut,FNormal,Char_Attrib,40,19,1);
  82.    LineOut := '                                       ';
  83.    FastVideo(LineOut,FNormal,Char_Attrib,39,19,41);
  84.    LineOut := '                                        ';
  85.    FastVideo(LineOut,FNormal,Char_Attrib,40,20,1);
  86.    LineOut := '                                       ';
  87.    FastVideo(LineOut,FNormal,Char_Attrib,39,20,41);
  88.    LineOut := '                                        ';
  89.    FastVideo(LineOut,FNormal,Char_Attrib,40,21,1);
  90.    LineOut := '                                       ';
  91.    FastVideo(LineOut,FNormal,Char_Attrib,39,21,41);
  92.    LineOut := '                                        ';
  93.    FastVideo(LineOut,FNormal,Char_Attrib,40,22,1);
  94.    LineOut := '                                       ';
  95.    FastVideo(LineOut,FNormal,Char_Attrib,39,22,41);
  96.    LineOut := '                                        ';
  97.    FastVideo(LineOut,FNormal,Char_Attrib,40,23,1);
  98.    LineOut := '                                       ';
  99.    FastVideo(LineOut,FNormal,Char_Attrib,39,23,41);
  100.   gotoXY(20,10);   read(SearchFirst);
  101.   gotoXY(47,10);   read(SearchLast);
  102. end;
  103.