home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l224 / 2.img / CHAPXMPL.ZIP / SHOWMESS.PRO < prev    next >
Encoding:
Text File  |  1990-10-29  |  518 b   |  20 lines
  1. /* SHOWMESS.PRO */
  2.  
  3. global predicates
  4.    popmessage(string) - (i) language c  % predicate called from 
  5.                                         % assembly language 
  6.    from_asm - language asm              % assembly language procedure 
  7.  
  8. clauses
  9.    popmessage(S) :-  % can be called as a C function named popmessage_0 
  10.       str_len(S,L),
  11.       LL = L + 4,
  12.       makewindow(13,7,7,"",10,10,3,LL),
  13.       write(S),
  14.       readchar(_),
  15.       removewindow.
  16.  
  17. goal
  18.    from_asm.         /* external call */
  19.  
  20.