home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast.iso / pcmag / vol6n20.zip / FIGURES.ZIP / FIGURE.6 < prev    next >
Text File  |  1987-10-16  |  373b  |  17 lines
  1. {$R+}
  2. PROGRAM Size_Example;
  3.  
  4.    FUNCTION Example(I : integer) : Byte;
  5.    BEGIN
  6.      Example := I;
  7.    END;
  8.  
  9.    PROCEDURE NextProcedure; BEGIN END;
  10.  
  11. BEGIN
  12.   Write('The SIZE of the function "Example" is ');
  13.   WriteLn(ofs(NextProcedure) - ofs(Example),' bytes.');
  14.   Write('Change the {$R+} at the top to {$R-} ');
  15.   WriteLn('and see the size reduction.');
  16. END.
  17.