home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l217 / 2.ddi / EXAMPLES / CH17EX02.PRO < prev    next >
Encoding:
Text File  |  1990-03-26  |  396 b   |  15 lines
  1. /*
  2.    Copyright (c) 1986, 90 by Prolog Development Center
  3. */
  4.    
  5. goal
  6.    makewindow(1,7,7,"Timer",8,10,12,60),
  7.    time(0,0,0,0),    % very bad style should not be used
  8.    system("dir c:\\prolog\\*.*"),
  9.    time(H,M,S,Hundredths),
  10.    write(H," hours  "),
  11.    write(M," minutes  "),
  12.    write(S," seconds  "),
  13.    write(S," Seconds and ",Hundredths," hundredths of a second"),
  14.    nl,nl.
  15.