home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 17 / CD_ASCQ_17_101194.iso / dos / prg / sphinx / examples / obj / pas_test.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-07-07  |  677 b   |  25 lines
  1. (*
  2.     NAME: PAS_TEST.PAS
  3.     DESCRIPTION:  This program tests the use of C-- OBJ files with Borland
  4.                   Pascal.  Besure to compile OBJTEST.C-- to an OBJ file
  5.                   before attempting to build this program.
  6.  
  7.                   This program demonstrates interfacing of both procedures
  8.                   and functions.
  9. *)
  10.  
  11. {$L OBJTEST.OBJ}
  12.  
  13.   (* The following procedure and function are defined in OBJTEST.C-- *)
  14.  
  15.     Procedure Display_Word(wordvalue : WORD); Far; External;
  16.     Function Double_It(wordvalue : WORD): WORD; Far; External;
  17.  
  18. BEGIN
  19.  
  20.   Display_Word(12345);
  21.   Display_Word( Double_It(12345) );
  22.  
  23. END.
  24.  
  25. (* end of PAS_TEST.PAS *)