home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol162 / recread < prev    next >
Encoding:
Text File  |  1984-04-29  |  113 b   |  12 lines
  1.  
  2. procedure readch;
  3. var i;
  4. begin
  5.   read(i);
  6.   if i # 0 then call readch;
  7.   write(i)
  8. end;
  9.  
  10. begin
  11.   call readch
  12. end.