home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / textedit.swg / 0002_CENTER2.PAS.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-05-28  |  193 b   |  14 lines
  1. { Center Text }
  2.  
  3. Uses Crt;
  4. Var
  5.   s : String;
  6.   i : Integer;
  7. begin
  8.   Write('String? ');
  9.   readln(s);
  10.   i := (succ(lo(windmax)) - length(s)) shr 1;
  11.   gotoXY(i,10);
  12.   Write(s);
  13. end.
  14.