home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c081_11 / 9.ddi / CHAPXMPL.ZIP / SHOWMESS.PRO < prev    next >
Encoding:
Text File  |  1991-02-13  |  655 b   |  23 lines
  1. /* Turbo Assembler    Copyright (c) 1988, 1991 By Borland International, Inc. */
  2. /* SHOWMESS.PRO */
  3. /* Interfacing Turbo Assembler and Turbo Prolog. */
  4.  
  5. global predicates
  6.    popmessage(string) - (i) language c  % predicate called from 
  7.                                         % assembly language 
  8.    from_asm - language asm              % assembly language procedure 
  9.  
  10. clauses
  11.    popmessage(S) :-  % can be called as a C function named popmessage_0 
  12.       str_len(S,L),
  13.       LL = L + 4,
  14.       makewindow(13,7,7,"",10,10,3,LL),
  15.       write(S),
  16.       readchar(_),
  17.       removewindow.
  18.  
  19. goal
  20.    from_asm.         /* external call */
  21.  
  22.  
  23.