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 / MESSMORE.INC < prev    next >
Text File  |  1984-08-31  |  6KB  |  108 lines
  1. { Be sure to Include the file FASTVID.INC before this }
  2. Procedure MESSMORE;
  3. Var
  4.    LineOut : String[80];
  5. begin
  6.    ClrScr;
  7.    NormVideo;
  8.    LineOut := '                                  CARBON';
  9.    FastVideo(LineOut,FBold,Char_Attrib,40,1,1);
  10.    LineOut := ' COPIES                                ';
  11.    FastVideo(LineOut,FBold,Char_Attrib,39,1,41);
  12.    LineOut := '                                  ------';
  13.    FastVideo(LineOut,FBold,Char_Attrib,40,2,1);
  14.    LineOut := '-------                                ';
  15.    FastVideo(LineOut,FBold,Char_Attrib,39,2,41);
  16.    LineOut := '                                        ';
  17.    FastVideo(LineOut,FNormal,Char_Attrib,40,3,1);
  18.    LineOut := '                                       ';
  19.    FastVideo(LineOut,FNormal,Char_Attrib,39,3,41);
  20.    LineOut := '                                        ';
  21.    FastVideo(LineOut,FNormal,Char_Attrib,40,4,1);
  22.    LineOut := '                                       ';
  23.    FastVideo(LineOut,FNormal,Char_Attrib,39,4,41);
  24.    LineOut := '+-------------------------------- T';
  25.    FastVideo(LineOut,FReverse,Char_Attrib,40,5,6);
  26.    LineOut := 'O --------------------------------+';
  27.    FastVideo(LineOut,FReverse,Char_Attrib,35,5,41);
  28.    LineOut := '|  FIRST  <                    >   ';
  29.    FastVideo(LineOut,FReverse,Char_Attrib,40,6,6);
  30.    LineOut := ' LAST  <                     >    |';
  31.    FastVideo(LineOut,FReverse,Char_Attrib,35,6,41);
  32.    LineOut := '+----------------------------------';
  33.    FastVideo(LineOut,FReverse,Char_Attrib,40,7,6);
  34.    LineOut := '----------------------------------+';
  35.    FastVideo(LineOut,FReverse,Char_Attrib,35,7,41);
  36.    LineOut := '                                        ';
  37.    FastVideo(LineOut,FNormal,Char_Attrib,40,8,1);
  38.    LineOut := '                                       ';
  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 := '                                        ';
  45.    FastVideo(LineOut,FNormal,Char_Attrib,40,10,1);
  46.    LineOut := '                                       ';
  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 := '     From:                              ';
  53.    FastVideo(LineOut,FNormal,Char_Attrib,40,12,1);
  54.    LineOut := '  Date/Time:                           ';
  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 := '     Phone:                             ';
  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 := '     +------------------------------ Mes';
  69.    FastVideo(LineOut,FNormal,Char_Attrib,40,16,1);
  70.    LineOut := 'sage -----------------------------+    ';
  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(12,12);   write(NewMessage.From);
  101.   gotoXY(54,12);   write(NewMessage.DateTime);
  102.   gotoXY(13,14);   write(NewMessage.Phone);
  103.   gotoXY( 8,17);   write(NewMessage.Message1);
  104.   gotoXY( 8,18);   write(NewMessage.Message2);
  105.   gotoXY(17, 6);   read(NewMessage.FName);
  106.   gotoXY(49, 6);   read(NewMessage.LName);
  107. end;
  108.