home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l210 / 1.ddi / REFEXAMP.ARC / SCROLL2.PRO < prev    next >
Encoding:
Text File  |  1988-06-21  |  679 b   |  23 lines
  1. %====================== scroll/2              ===============================
  2. predicates
  3.   msg(STRING)
  4.  
  5. CLAUSES
  6.   msg(X):-
  7.     shiftwindow(OLD), shiftwindow(2),
  8.     concat("Press any key to: ",X,X1),
  9.     window_str(X1), readchar(_),
  10.     shiftwindow(OLD).
  11.  
  12. goal    makewindow(2,112,0,"",21,5,1,70),
  13.     makewindow(1, 12, 7, "Scroll window", 5, 5, 15, 70),
  14. /* You may need to add a path to PROLOG.ERR */
  15.     file_str("prolog.err",X),
  16.     window_str(X),
  17.     msg("Scrool text up"),scroll(3,0),
  18.     msg("Scrool text down"),scroll(-6,0),
  19.     msg("Scrool text up"),scroll(3,0),
  20.     msg("Scrool text left"),scroll(0,15),
  21.     msg("Scrool text right"),scroll(0,-30),
  22.     msg("Scrool text left"),scroll(0,15).
  23.