home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / tasm / chapxmpl.arc / ADDPRO.PRO < prev    next >
Encoding:
Text File  |  1988-10-09  |  222 b   |  8 lines
  1. global predicates
  2.    add(integer,integer,integer) - (i,i,o),(i,o,i),(o,i,i) language asm
  3.    
  4. goal
  5.    add(2,3,Z), write("2 + 3 = ",Z),nl,
  6.    add(2,Y,5), write("5 - 2 = ",Y),nl,
  7.    add(X,3,5), write("5 - 3 = ",X),nl.
  8.