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