home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / Borland Plateform / Turbo Prolog 2 / EXAMPL32.PRO < prev    next >
Encoding:
Text File  |  1986-04-01  |  294 b   |  10 lines
  1.                /* Program 32 */
  2. goal
  3.      makewindow(1,7,7,"Timer",8,10,12,60),
  4.      time(0,0,0,0),system("dir a:"),
  5.      time(H,M,S,Hundredths),
  6.      write(H," hours  "),
  7.      write(M," minutes  "),
  8.      write(S," seconds  "),
  9.      write(Hundredths," hundredths of a second"),nl,nl.
  10.