Пример.

Программа CH16EX02.PRO использует time для сообщения времени, затра-

ченного на листание каталога. (Имя каталога можно задать в теле програм-

мы).

/* Program CH16EX02.PRO -- Отображение затраченного времени */

predicates

timer

clauses

timer:-

time(H1,M1,S1,D1),nl,

write(*Start time is:",H1,":",M1,":",

S1,"and",D1,"/100 sec"),nl,

/*This is the activity that is being timed*/

system ("dir *.*"),

tame(H2,M2,S2,D2),

Time = (D2-D1)+100*((S2-S1)+60*(M2-M1))),

write("Elapsed time: ",Time,"/100 sec"),nl,

tame(H3,M3,S3,D3),

wrate("The time now is: ",H3,":",M3,":",

S3," and ",D3,"/100 sec").

goal

makewindow(1,7,7,"Timer",8,10,12,60),

write("Press any key to start"),

readchar(_),

timer.

Более сложным примером использования предиката time является прог-

рамма CH18EX10.PRO в главе 18.