home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c081_11 / 9.ddi / CHAPXMPL.ZIP / MYPROLOG.PRO < prev    next >
Encoding:
Text File  |  1991-02-13  |  352 b   |  16 lines
  1. /* Turbo Assembler    Copyright (c) 1988, 1991 By Borland International, Inc. */
  2. /* MYPROLOG.PRO */
  3. /* Interfacing Turbo Assembler and Turbo Prolog. */
  4.  
  5. global predicates
  6.    double(integer,integer) - (i,o) language asm
  7.  
  8. goal
  9.    write("Enter an integer "),
  10.    readint(I),
  11.    double(I,Y),
  12.    write(I," doubled is ",Y) ,
  13.    readchar(_).
  14.  
  15.  
  16.