ch23ex04.c

来自「prolog,人工智能推理程序,运行环境prolog」· C语言 代码 · 共 23 行

/*
   Turbo Prolog 2.0 Reference Guide Chapter 3, Example Program 4
   
   Copyright (c) 1986, 88 by Borland International, Inc
   
*/
   
extprog()
{
   char dummychar; 
   char *Name;

   makewindow(1,7,7,"Hello there",5,5,15,60);
   write_string("\n\nIsn't it easy");
   readchar(&dummychar);
   write_string("\nEnter your name: ");
   readline(&Name);
   write_string("\nYour name is: ");
   write_string(Name);
   readchar(&dummychar);
   removewindow();
}