home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l210 / 1.ddi / EXAMPLES.ARC / CH22EX05.PRO < prev    next >
Encoding:
Text File  |  1988-06-21  |  360 b   |  19 lines
  1. /*
  2.    Turbo Prolog 2.0 Chapter 22, Example Program 5
  3.    
  4.    Copyright (c) 1986, 88 by Borland International, Inc
  5.    
  6. */
  7.    
  8. project "mypack"
  9.  
  10. global domains
  11.    mydom = f(integer, char, real, string)
  12.  
  13. global predicates
  14.    pack(integer, char, real, string, mydom) -(i,i,i,i,o) language c
  15.  
  16. goal
  17.   pack(1, 'a', 99.9, "HELLO", X),
  18.   write(X), nl.
  19.