home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / tasm / chapxmpl.arc / SCROLLH.PRO < prev    next >
Encoding:
Text File  |  1988-10-09  |  568 b   |  25 lines
  1. /* SCROLLH.PRO */
  2.  
  3. global predicates
  4.    scroll_left(integer,integer,integer,integer) - (i,i,i,i) language asm
  5.    
  6. predicates
  7.    scrollh
  8.    
  9. clauses
  10.    scrollh :-
  11.       makewindow(_,_,_,_,Row,Col,Nrows,Ncols),
  12.       scroll_left(Row,Col,Nrows,Ncols),
  13.       readchar(C),
  14.       char_int(C,CI),
  15.       not(CI =27),
  16.       scrollh.
  17.  
  18. goal
  19.    makewindow(1,7,7," Eine rollende Meldung ",10,20,4,60),
  20.    write("Diese Mitteilung wird über den ganzen Schirm gerollt"),nl,
  21.    write("Sehen Sie wie sie davonläuft"),
  22.    readchar(_),
  23.    scrollh,
  24.    readchar(_).
  25.