home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / mailpro / showpagu.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-08-23  |  1.2 KB  |  38 lines
  1. unit ShowPagU;
  2.  
  3. interface
  4. uses Crt, Def, ColorDef, FastWr;
  5. procedure ShowPage;
  6.  
  7. implementation
  8.  
  9. procedure ShowPage;
  10. var X,
  11.     I,
  12.     J:            integer;
  13.     Ch:           char;
  14. begin
  15. clrscr;
  16. for I := 1 to LastDescription do
  17.     FastWrite( Description[I], I, 1, Headings.Attr);
  18. FastWrite( 'Division', LastDescription + 1, 1, Headings.Attr);
  19. FastWrite( 'Sub-Division', LastDescription + 2, 1, Headings.Attr);
  20. FastWrite( Entry.Addressee,   1,  35, Msgs.Attr);
  21. FastWrite( Entry.Title,       2,  35, Msgs.Attr);
  22. FastWrite( Entry.Company,     3,  35, Msgs.Attr);
  23. FastWrite( Entry.AuxAddress,  4,  35, Msgs.Attr);
  24. FastWrite( Entry.MailAddress, 5,  35, Msgs.Attr);
  25. FastWrite( Entry.City,        6,  35, Msgs.Attr);
  26. FastWrite( Entry.State,       7,  35, Msgs.Attr);
  27. FastWrite( Entry.ZipCode,     8,  35, Msgs.Attr);
  28. FastWrite( Entry.Phone1,      9,  35, Msgs.Attr);
  29. FastWrite( Entry.Phone2,      10, 35, Msgs.Attr);
  30. FastWrite( Entry.Comments,    11, 35, Msgs.Attr);
  31. Ch := Entry.Division;                   I := ord(Ch);
  32. Ch := Entry.SubDivision;                J := ord(Ch);
  33. FastWrite( AlphaCode[I,0],    12, 35, Msgs.Attr);
  34. FastWrite( AlphaCode[I,J],    13, 35, Msgs.Attr);
  35. end;
  36.  
  37. end.
  38.