home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / mailpro / prtdiv.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-08-23  |  633 b   |  25 lines
  1. unit PrtDiv;
  2.  
  3. interface
  4. uses Crt, Def, ColorDef, FastWr, DrawSqar, CPaU;
  5. procedure PrintDivision;
  6.  
  7. implementation
  8.  
  9. procedure PrintDivision;
  10. var I:    integer;
  11. begin
  12. clrscr;
  13. FastWrite( CPad('Main Division Menu',80), 1, 1, Headings.Attr);
  14. for I := 1 to (DivisionTop div 2) do
  15.     begin
  16.     FastWrite( chr(64+I)+'  '+AlphaCode[I,0], I+2, 1, Inputs.Attr);
  17.     FastWrite( chr(64+I+13)+'  '+AlphaCode[I+13,0], I+2, 41, Inputs.Attr);
  18.     end;
  19. DrawSquare( 1, 23, 80, 25, Menus.Attr, true);
  20. FastWrite( CPad('Select letter to assign   F1 to edit   F5 to swap AlphaCode',
  21.            78), 24, 2, Menus.Attr);
  22. end;
  23.  
  24. end.
  25.