Important Notice

The pages on this site contain documentation for very old MS-DOS software, purely for historical purposes. If you're looking for up-to-date documentation, particularly for programming, you should not rely on the information found here, as it will be woefully out of date.

  ◄Example► ◄Contents► ◄Index►                                    ◄Back►
 
PROGRAM center;
 
{ CENTER.PAS : Demonstrates simple procedure }
 
USES
    Crt;
 
VAR
    row   : Byte;
    title : STRING;
 
PROCEDURE center_line( message: STRING; line: Byte );
BEGIN
    GotoXY( 40 - Length( message ) DIV 2, line );
    Write( message );
END;
 
BEGIN
 
    row := 2;
    title := 'Each line of text is centered.';
    ClrScr;
    center_line( title, row );
    center_line( '--------', row + 1 );
    center_line( 'Microsoft QuickPascal!', row + 2 );
    writeln;
 
END.