home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l210 / 1.ddi / REFEXAMP.ARC / SYSTEM1.PRO < prev    next >
Encoding:
Text File  |  1988-06-21  |  809 b   |  20 lines
  1. %====================== system/1              ===============================
  2. /* This program demonstrates the use of the built-in predicate system. */
  3.  
  4. goal    makewindow(1, 7, 0, " System ", 0, 0, 25, 80),
  5.     write("\nYou will not be sent out in the DOS system, and to return",
  6.           "\nback to Prolog you must write: exit.",
  7.           "\nGood luck\n\n"),
  8.     unreadchar('w'),unreadchar('/'),unreadchar(' '),
  9.     unreadchar('r'),unreadchar('i'),unreadchar('d'),
  10.     system(""),
  11.     write("\nPress any key to continue"),
  12.     readchar(_), clearwindow,
  13.     write("We will now use DOS to print the file: PROLOG.ERR.\n",
  14.         "You may stop the scrolling with the toggle <CTRL-S>.\n",
  15.         "Or abort with <CTRL-BREAK>."),
  16.     readchar(_), clearwindow,
  17.     system("type c:\\prolog\\prolog.err"),
  18.     write("That's it!"),
  19.     readchar(_).
  20.