?? ch12ex09.pro
字號:
/*
Turbo Prolog 2.0 Chapter 12, Example Program 9
Copyright (c) 1986, 88 by Borland International, Inc
*/
domains
file = myfile
predicates
readloop
goal
write("this program reads your input and writes it to TRYFILE.ONE\n"),
openwrite(myfile, "tryfile.one"),
writedevice(myfile),
readloop,
closefile(myfile),
writedevice(screen),
write("Your input has been transferred to the file tryfile.one").
clauses
readloop:-readchar(X), X<>'#',!, write(X), readloop.
readloop.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -