home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c081_11 / 9.ddi / CHAPXMPL.ZIP / FUNC.PRO < prev    next >
Encoding:
Text File  |  1991-02-13  |  327 b   |  17 lines
  1. /* Turbo Assembler    Copyright (c) 1988, 1991 By Borland International, Inc. */
  2. /* FUNC.PRO */
  3. /* Interfacing Turbo Assembler and Turbo Prolog. */
  4.  
  5. global domains
  6.    ifunc = int(integer)
  7.  
  8. global predicates
  9.    makeifunc(integer,ifunc) - (i,o) language c
  10.  
  11. goal
  12.    makeifunc(4,H),
  13.    write(H),
  14.    readchar(_).
  15.  
  16.  
  17.