home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l224 / 2.img / CHAPXMPL.ZIP / SHOWNEW.PRO < prev    next >
Encoding:
Text File  |  1990-10-29  |  674 b   |  23 lines
  1. /* SHOWNEW.PRO */
  2.  
  3. global predicates
  4.    popmessage(string) - (i) language c  /* predicate called from
  5.                                            assembly language procedure */
  6.                                           
  7.    from_asm - language c as "_from_asm"    /* define public name of 
  8.                                               the assembly language 
  9.                                               procedure */
  10.  
  11. clauses
  12.    popmessage(S) :-
  13.       str_len(S,L),
  14.       LL=L+4,
  15.       makewindow(13,7,7,"window",10,10,3,LL),
  16.       write(S),
  17.       readchar(_),
  18.       removewindow.
  19.  
  20. goal
  21.    from_asm.             /* call assembly language procedure */
  22.  
  23.