home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / proglang / pie2.arj / RECURS.PRO < prev    next >
Text File  |  1991-01-04  |  140b  |  13 lines
  1. recurs(C):-
  2.     cursor(0,0),
  3.     storage,nl,
  4.     write(C),nl,
  5.     C1 is C + 1,
  6.     %!,
  7.     recurs(C1).
  8.     
  9. recurs(C).
  10.  
  11. start:-
  12.     recurs(0),
  13.     storage.