Механизм Турбо Пролога "backtracking" ("поиск с возвратом") можно использовать для инициализации бесконечного возврата с определенного места в программе. Для этого нужно записать некоторый предикат в следующем виде:
повторить. % это - факт
повторить:-повторить. % а это уже правило
Ввод любых символов с клавиатуры с их эхо-сопровождением до тех пор,пока не будет нажата клавиша "ENTER".
Пример 4
predicates
repeat % предикат пользователя для повтоpения
читай_пиши
clauses
repeat.
repeat :- repeat.
читай_пиши :-
repeat,
readchar(C), % стандартный предикат ввода символа С
write(C), % стандартный предикат вывода символа С
char_int(C,13)./* стандартный предикат сравнения символа С с кодом клавиши ENTER - 13 */
goal
читай_пиши.
