home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1988 / 01 / prolog / iomod.pro < prev    next >
Encoding:
Text File  |  1987-10-29  |  834 b   |  32 lines
  1. module iomod.
  2.  
  3. export    (lies_datensatz / 1).
  4.  
  5. /*$eject*/
  6. body.
  7.  
  8. schreibe_maske :- 
  9.      host("cls"), set_cursor(1,30), write("EINGABE"), nl, 
  10.        set_cursor(7,5), write("Name:"), nl, set_cursor(9,2), 
  11.        write("Vorname:"), nl, set_cursor(11,5), write("Tel.:"), 
  12.        nl, nl .
  13.  
  14. lies_name(NAME) :- 
  15.      set_cursor(7,12), read_record(NAME) .
  16.  
  17. lies_vname(VNAME) :- 
  18.      set_cursor(9,12), read_record(VNAME) .
  19.  
  20. lies_tel(TEL) :- 
  21.      set_cursor(11,12), read_token(TEL), TEL is_a integer, ! .
  22. lies_tel(TEL) :- 
  23.      set_cursor(20,1), write_char_code(7), 
  24.        write(" >> Fehleingabe, bitte nochmal << "), nl, 
  25.        read_token(_), lies_tel(TEL) .
  26.  
  27. lies_datensatz(satz(NAME,VNAME,TEL)) :- 
  28.      schreibe_maske, lies_name(NAME), lies_vname(VNAME), 
  29.        lies_tel(TEL) .
  30.  
  31. endmod /* iomod */  .
  32.