home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l224 / 2.img / CHAPXMPL.ZIP / MYPROLOG.PRO < prev    next >
Encoding:
Text File  |  1990-10-29  |  215 b   |  13 lines
  1. /* MYPROLOG.PRO */
  2.  
  3. global predicates
  4.    double(integer,integer) - (i,o) language asm
  5.  
  6. goal
  7.    write("Enter an integer "),
  8.    readint(I),
  9.    double(I,Y),
  10.    write(I," doubled is ",Y) ,
  11.    readchar(_).
  12.  
  13.