home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / tasm / chapxmpl.arc / AUSGABE.PRO < prev    next >
Encoding:
Text File  |  1988-10-09  |  530 b   |  19 lines
  1. /* AUSGABE.PRO */
  2.  
  3. global predicates
  4.    popmessage(string) - (i) language c  /* Prädikat wird von
  5.                                      Assembler aus aufgerufen */
  6.    von_asm - language asm               /* Assembler-Funktion */
  7.    
  8. clauses
  9.    popmessage(S) :-          /* Wird als C-Funktion verwendet */
  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.                              /* externes Prädikat */
  19.