home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / tasm / chapxmpl.arc / AUSGABE2.PRO < prev    next >
Encoding:
Text File  |  1988-10-09  |  498 b   |  19 lines
  1. /* AUSGABE2.PRO */
  2.  
  3. global predicates
  4.    popmessage(string) - (i) language c /* Prädikat, das von Assembler
  5.                                           aus aufgerufen wird */
  6.    von_asm - language c as "_von_asm"  /* Assembler-Funktion */
  7.    
  8. clauses
  9.    popmessage(S) :-
  10.       str_len(S,L),
  11.       LL = L + 4,
  12.       makewindow(13,7,7,"pop",10,10,3,LL),
  13.       write(S),
  14.       readchar(_),
  15.       removewindow.
  16.  
  17. goal
  18.    von_asm.                      /* Aufruf der Assembler-Funktion */
  19.