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 byvalue;
 
{ BYVALUE.PAS : Demonstrates passing by value. }
 
VAR
    global_var : Integer;
 
PROCEDURE proc( local_var : Integer );
BEGIN
    Writeln( 'local_var  = ', local_var );
    local_var := 333;
    Writeln( 'local_var  = ', local_var );
END; { procedure proc }
 
BEGIN
 
    global_var := 5;
    proc( global_var );
    Writeln( 'global_var = ', global_var );
 
END.