ans_170b.pro

来自「prolog,人工智能推理程序,运行环境prolog」· PRO 代码 · 共 21 行

/*
   Turbo Prolog 2.0, Answer to second Exercise on page 170.
   
   Copyright (c) 1986, 88 by Borland International, Inc
*/

Predicates
   typewriter ( char )

Clauses

  typewriter('\13') :- !.
  typewriter(Char) :-
  	write(Char) ,
  	readchar(C) ,      
  	typewriter(C).
Goal
   makewindow(1,2,3," Typewriter ",0,0,25,80) ,
   readchar(Char) ,
   typewriter(Char).