home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1988 / 01 / prolog / mmod.pro < prev    next >
Encoding:
Text File  |  1987-10-29  |  467 b   |  22 lines
  1. module mmod.
  2.  
  3. import    (lies_datensatz / 1).
  4.  
  5. /*$eject*/
  6. body.
  7.  
  8. start :- 
  9.      write("Gleich wird mit einem externen Modul"), nl, 
  10.        write(" ein Datensatz eingelesen."), nl, 
  11.        write(" >>> Taste drücken <<< "), nl, wait_key, 
  12.        lies_datensatz(S), host("cls"), 
  13.        write("Es wurde der folgende Datensatz eingelesen: "), nl, 
  14.        write(S) .
  15.  
  16. wait_key :- 
  17.      any_key, ! .
  18. wait_key :- 
  19.      wait_key .
  20.  
  21. endmod /* mmod */  .
  22.