home *** CD-ROM | disk | FTP | other *** search
- /*
- Copyright (c) 1986, 90 by Prolog Development Center
- */
-
- global predicates
- message(string) - (i) language c
- hello_c - language c
-
- clauses
- message(S) :-
- makewindow(13,7,7,"",10,10,3,50),
- write(S), readchar(_),
- removewindow.
-
- goal
- message("Hello from PDC Prolog"),
- hello_c.
-