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