home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c081_11 / 9.ddi / CHAPXMPL.ZIP / SCROLLH.PRO < prev    next >
Encoding:
Text File  |  1991-02-13  |  729 b   |  30 lines
  1. /* Turbo Assembler    Copyright (c) 1988, 1991 By Borland International, Inc. */
  2. /* SCROLLH.PRO */
  3. /* Interfacing Turbo Assembler and Turbo Prolog. */
  4.  
  5. global predicates
  6.    scroll_left(integer,integer,integer,integer) - (i,i,i,i)
  7.                                                   language asm
  8.  
  9. predicates
  10.    scrollh
  11.  
  12. clauses
  13.    scrollh :-
  14.       makewindow(_,_,_,_,Row,Col,Nrows,Ncols),
  15.       scroll_left(Row,Col,Nrows,Ncols),
  16.       readchar(C),
  17.       char_int(C,CI),
  18.       not(CI = 27),
  19.       scrollh.
  20.  
  21. goal
  22.    makewindow(1,7,7," A SCROLLING MESSAGE ",10,20,4,60),
  23.    write("This message will scroll across the window"),nl,
  24.    write("Look at it go!"),
  25.    readchar(_),
  26.    scrollh,
  27.    readchar(_).
  28.  
  29.  
  30.