home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / hensa / programming / huprolog_1 / Guide / Extras / beep < prev    next >
Encoding:
Text File  |  1988-01-24  |  250 b   |  17 lines
  1.  
  2. beep :-
  3.   integer(N),!,
  4.   N>=0,!,
  5. ring(N).
  6.  
  7. ring(0) :- !.
  8.  
  9. ring(N) :- 
  10.   put(7),
  11.   More is N-1,!,
  12.   ring(More).
  13.  
  14.    /*  Example  .....  error_message(Text) :-
  15.                                beep(3),
  16.                                write(Text).
  17.     */