home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l210 / 1.ddi / EXAMPLES.ARC / CH23EX01.PRO < prev    next >
Encoding:
Text File  |  1988-06-21  |  410 b   |  21 lines
  1. /*
  2.    Turbo Prolog 2.0 Reference Guide Chapter 3, Example Program 1
  3.    
  4.    Copyright (c) 1986, 88 by Borland International, Inc
  5.    
  6. */
  7.    
  8. global predicates
  9.    message(string) - (i) language c
  10.    hello_c - language c
  11.  
  12. clauses
  13.    message(S) :- 
  14.       makewindow(13,7,7,"",10,10,3,50),
  15.       write(S), readchar(_),
  16.       removewindow.
  17.  
  18. goal
  19.    message("Hello from Turbo Prolog"),
  20.    hello_c.
  21.