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 / MESSSET.INC < prev    next >
Text File  |  1984-08-31  |  6KB  |  107 lines
  1. { Be sure to Include the file FASTVID.INC before this }
  2. Procedure MESSSET;
  3. Var
  4.    LineOut : String[80];
  5. begin
  6.    ClrScr;
  7.    NormVideo;
  8.    LineOut := '                                CHANGE S';
  9.    FastVideo(LineOut,FBold,Char_Attrib,40,1,1);
  10.    LineOut := 'YSTEM TITLES                           ';
  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 := '      +---------------------------- New ';
  21.    FastVideo(LineOut,FNormal,Char_Attrib,40,4,1);
  22.    LineOut := 'Values ------------------------+       ';
  23.    FastVideo(LineOut,FNormal,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 := '      |        TITLE  <                 ';
  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 := '      |        SLOGAN  <                ';
  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 := '      |        PRINTOUT FORM LENGTH  <  ';
  45.    FastVideo(LineOut,FNormal,Char_Attrib,40,10,1);
  46.    LineOut := '>          (between 33 and 66) |       ';
  47.    FastVideo(LineOut,FNormal,Char_Attrib,39,10,41);
  48.    LineOut := '      |                                 ';
  49.    FastVideo(LineOut,FNormal,Char_Attrib,40,11,1);
  50.    LineOut := '           (lines per page)    |       ';
  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 := '                  |  Title:             ';
  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 := '      Old Values: |  Slogan:            ';
  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 := '                  |  Form Len:          ';
  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(32,16);   write(TopTitle);
  101.   gotoXY(32,18);   write(SysMessage);
  102.   gotoXY(32,20);   write(FormLength);
  103.   gotoXY(24, 6);   read(TempTitle);
  104.   gotoXY(25, 8);   read(TempMessage);
  105.   gotoXY(39,10);   read(TempLength);
  106. end;
  107.