home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-385-Vol-1of3.iso / f / funnel-x.zip / examples / ex06.out < prev    next >
Text File  |  1992-05-27  |  633b  |  23 lines
  1. program adt(input,output);
  2. type buffer_type = record
  3.                    length : integer;
  4.                    buf : array[1..100] of char;
  5.                    end;
  6.  
  7. type complex_type = record r,i : real; end;
  8.  
  9.  
  10. bigbuf : buffer_type;
  11.  
  12.  
  13. procedure buf_init(var b : buffer_type) {Body of buf_init}
  14. procedure buf_add(var b : buffer_type; ch : char) {Body of buf_add}
  15. procedure buf_get(var b : buffer_type; var ch : char) {Body of buf_get}
  16.  
  17. procedure cm_set(var c: complex_type; a,b : real)  {Body of cm_set}
  18. procedure cm_add(a,b : complex_type; var c: complex_type) {Body of cm_add}
  19. {Other procedures and functions}
  20.  
  21.  
  22. begin startproc; end.
  23.