home *** CD-ROM | disk | FTP | other *** search
/ Jason Aller Floppy Collection / 181.img / TASM-101.ZIP / CHAPXMPL.ARC / MYPROLOG.PRO < prev    next >
Text File  |  1989-05-02  |  215b  |  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.