home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l210 / 1.ddi / EXAMPLES.ARC / CH22EX09.PRO < prev    next >
Encoding:
Text File  |  1988-06-21  |  422 b   |  19 lines
  1. /*
  2.    Turbo Prolog 2.0 Chapter 22, Example Program 9
  3.    
  4.    Copyright (c) 1986, 88 by Borland International, Inc
  5.    
  6. */
  7.    
  8. project "dateproj"
  9.  
  10. global predicates
  11.    mydate(integer,integer,integer) - (i,i,i)(o,o,o) language asm
  12.  
  13. goal
  14.    mydate(Y,M,D),
  15.    write("\nYear=", Y, ", Month=", M, ", Day=", D),
  16.    mydate(1988, 3, 3),
  17.    mydate(Y1, M1, D1),
  18.    write("\nYear=", Y1, ", Month=", M1, ", Day=", D1).
  19.