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