home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / mailpro / it.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-08-23  |  1.8 KB  |  81 lines
  1. unit IT;
  2.  
  3. interface
  4. uses Crt,      CursorOU, ColorDef, Colors, ShadoU, CPaU, FastWr, StrnU,
  5.      DrawSqar, ColorIU;
  6. procedure CreditDisplay;
  7.  
  8. implementation
  9.  
  10. procedure CreditDisplay;
  11. var X,
  12.     Z,
  13.     I:                   integer;
  14.     MY1,
  15.     MY2:                 string[20];
  16.     Dummy:               string[80];
  17.     Out:                 char;
  18.     Fill:                boolean;
  19.  
  20.    procedure CodeName;
  21.    var I,
  22.        Row,
  23.        Col:            integer;
  24.    begin
  25.    MY1 := '%nmw%3Gyrs';
  26.    MY2 := 'WhfiH%fjf%';
  27.    Row := 19;
  28.    Col := 50;
  29.    for I := 1 to 10 do
  30.        begin
  31.        Out := MY1[I];
  32.        dec(Out,5);
  33.        inc(Col);
  34.        FastWrite(Out, Row, Col, Msgs.Attr);
  35.        Out := MY2[I];
  36.        dec(Out, 5);
  37.        inc(Col);
  38.        FastWrite(Out, Row, Col, Msgs.Attr);
  39.        end;
  40.    Dummy := ' Richard C. Bateman';
  41.    end;
  42.  
  43. begin
  44. GetColors;
  45. TextAttr := Displays.Attr;
  46. clrscr;
  47. ColorIn( 1, 1, 80, 25, Displays.Attr);
  48. CursorOn(false);
  49. Fill := true;
  50. Shadow( 4, 18, 35, 23, Menus.Attr, true);
  51. FastWrite( CPad('Prodata Systems',30), 19, 5, Menus.Attr);
  52. FastWrite( CPad('25606 Pecan Valley Circle',30), 20, 5, Menus.Attr);
  53. FastWrite( CPad('Spring, Texas 77380',30), 21, 5, Menus.Attr);
  54. FastWrite( CPad('(713) 367-3392',30), 22, 5, Menus.Attr);
  55. for I := 2 to 12 do
  56.     begin
  57.     X := (I-11) * (I-11);
  58.     X := round(X/4);
  59.     X := 45 - X;
  60.     if I = 12 then
  61.        begin
  62.        for Z := I to I+10 do
  63.            begin
  64.            gotoxy(X,Z);
  65.            clreol;
  66.            end;
  67.        end;
  68.     if I = 12 then
  69.        Shadow(X,I,X+30,I+10,Msgs.Attr,Fill)
  70.       else
  71.        DrawSquare(X,I,X+30,I+10,Msgs.Attr,Fill);
  72.     FastWrite( Strng(18,' '), I+9, X+1, Msgs.Attr);
  73.     end;
  74. FastWrite('MailPro',15,57,Msgs.Attr);
  75. FastWrite( 'Version 2.3B by', 17, 53, Msgs.Attr);
  76. CodeName;
  77. end;
  78.  
  79. end.
  80. 
  81.