home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
prolog
/
library
/
prolo_c
/
exampl32.pro
< prev
next >
Wrap
Text File
|
1986-10-06
|
409b
|
17 lines
/* Program 32 */
/*
This program is explained on page 89.
*/
goal
makewindow(1,7,7,"Timer",2,9,12,62),
time(0,0,0,0),
dir("a:\\","*.*",D),
makewindow(1,7,7,"Timer",16,9,7,62),
time(H,M,S,Hundredths),
write(H," hours "),
write(M," minutes "),
write(S," seconds "),
write(Hundredths," hundredths of a second"),nl,
write("Your selection was ",D),nl.