home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / PASCAL / MISCTI10.ZIP / TI307.ASC < prev    next >
Encoding:
Text File  |  1988-04-18  |  618 b   |  20 lines
  1. PRODUCT : TURBO PROLOG     NUMBER : 307
  2. VERSION : 1.0xx
  3.      OS : PC-DOS
  4.    DATE : June 17, 1986
  5.  
  6.   TITLE : PROGRAM 30 UPDATE
  7.  
  8. The  following  update  to Program 30  enables  Turbo  Prolog  to 
  9. correctly  display  directories  for the disk in  drive  A  (left 
  10. window)  and drive B (right window),  then return to Turbo Prolog 
  11. when the space bar is pressed.
  12.  
  13.                /* Program 30 */
  14. goal
  15.      makewindow(1,7,7,"Directory for disk A",0,0,20,35),
  16.      dir("a:","*.*",_),
  17.      makewindow(2,7,7,"Directory for disk B",0,40,20,35),
  18.      dir("b:","*.*",_),
  19.      makewindow(3,7,7,"",21,25,3,30).
  20.