home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l217 / 2.ddi / EXAMPLES / CH24EX09.PRO < prev    next >
Encoding:
Text File  |  1990-03-26  |  361 b   |  16 lines
  1. /*
  2.    Copyright (c) 1986, 90 by Prolog Development Center
  3. */
  4.    
  5. project "dateproj"
  6.  
  7. global predicates
  8.    mydate(integer,integer,integer) - (i,i,i)(o,o,o) language asm
  9.  
  10. goal
  11.    mydate(Y,M,D),
  12.    write("\nYear=", Y, ", Month=", M, ", Day=", D),
  13.    mydate(1988, 3, 3),
  14.    mydate(Y1, M1, D1),
  15.    write("\nYear=", Y1, ", Month=", M1, ", Day=", D1).
  16.