praktikum prolog mesin ketik

PREDICATES
 nondeterm ulang
 nondeterm mesinketik

CLAUSES
 ulang.
 ulang:-ulang.

 mesinketik:-
  ulang,
  readchar(C), /* baca sebuah karakter, ikat ke variabel C */
  write(C),
  C = '\r'. /* Apakah ditekan Enter? Gagal jika tidak */


GOAL
 Mesinketik,nl.