home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l210 / 1.ddi / REFEXAMP.ARC / SHFTWIN1.PRO < prev    next >
Encoding:
Text File  |  1988-06-21  |  835 b   |  22 lines
  1. %====================== shiftwindow/1         ===============================
  2. /* This program demonstrates the use of the built-in predicate shiftwindow. */
  3. goal
  4.    makewindow(1, 7, 7, " Window 1 ", 0, 0, 25, 40),
  5.    makewindow(2, 7, 7, " Window 2 ", 0, 40, 25, 40),
  6.    makewindow(3, 7, 7, " Window 3 ", 0, 0, 12, 80),
  7.    makewindow(4, 7, 7, " Window 4 ", 12, 0, 13, 80),
  8.    shiftwindow(1),
  9.    write("This is window #1!\n\nPress any key"),
  10.    readchar(_),
  11.    shiftwindow(2),
  12.    write("Now we're in window #2.\nWhat next?\n\nPress any key."),
  13.    readchar(_),
  14.    shiftwindow(3),
  15.    write("This is what is next; window #3.\nPress any key."),
  16.    readchar(_),
  17.    shiftwindow(4),
  18.    write("Now we can write into window #4.\n\nPress any key to continue."),
  19.    readchar(_),
  20.    shiftwindow(1),
  21.    write("\n\nThat's all!").
  22.