home *** CD-ROM | disk | FTP | other *** search
/ Jason Aller Floppy Collection / 123.img / TASM.ZIP / SCROLLH.PRO < prev    next >
Text File  |  1988-10-31  |  592b  |  27 lines
  1. /* SCROLLH.PRO */
  2.  
  3. global predicates
  4.    scroll_left(integer,integer,integer,integer) - (i,i,i,i)
  5.                                                   language asm
  6.  
  7. predicates
  8.    scrollh
  9.  
  10. clauses
  11.    scrollh :-
  12.       makewindow(_,_,_,_,Row,Col,Nrows,Ncols),
  13.       scroll_left(Row,Col,Nrows,Ncols),
  14.       readchar(C),
  15.       char_int(C,CI),
  16.       not(CI = 27),
  17.       scrollh.
  18.  
  19. goal
  20.    makewindow(1,7,7," A SCROLLING MESSAGE ",10,20,4,60),
  21.    write("This message will scroll across the window"),nl,
  22.    write("Look at it go!"),
  23.    readchar(_),
  24.    scrollh,
  25.    readchar(_).
  26.  
  27.