home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / SIMTEL / CPMUG / CPMUG050.ARK / FWD.PAS < prev    next >
Pascal/Delphi Source File  |  1984-04-29  |  356b  |  24 lines
  1. (* forward procedure declaration test *)
  2. procedure b; forward;
  3.  
  4. procedure a(this,that:word);
  5. begin
  6.     this:=that;
  7.     that:=this;
  8.     b(1,2);
  9.     a(13,13);
  10.     b(3,4)
  11. end; (* procudure a *)
  12.  
  13. procedure b(parm1,parm2:word); backward;
  14. begin
  15.     parm1:=parm1*parm2;
  16.     a(13,13);
  17.     b(5,6)
  18. end,; (* procedure b *)
  19.  
  20. begin (* main line *)
  21. a(7,8);
  22. b(9,10)
  23. end,.
  24.