📄 ch04ex03.pro
字号:
/*
Turbo Prolog 2.0 Chapter 4, Example Program 3
Copyright (c) 1986, 88 by Borland International, Inc
*/
predicates
run(char)
goal
run(X). /* This is a internal goal. */
clauses
run(X) :-
makewindow(1, 7, 7, " Hello World Program ", 0, 0, 25, 80),
write("Hello World (first)"),
readchar(X),
removewindow.
run(X) :-
write("hello World (second)"),
readchar(X).
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -