home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / beehive / program / pascal.arc / FWD.PAS next >
Encoding:
Pascal/Delphi Source File  |  1990-07-16  |  640 b   |  36 lines
  1. (*
  2.  
  3.   TITLE          Foreward Procedure declaration test
  4.  
  5.   FILENAME       FWD.PAS
  6.  
  7.   AUTHOR         Robert A. Van Valzah   17/01/80
  8.  
  9.   LAST REVISOR   Robert A. Van Valzah   23/01/80
  10.  
  11.   REASON         Finish writing
  12.  
  13. *)
  14. procedure b; forward;
  15.  
  16. procedure a(this,that:word);
  17. begin
  18.     this:=that;
  19.     that:=this;
  20.     b(1,2);
  21.     a(13,13);
  22.     b(3,4)
  23. end; (* procudure a *)
  24.  
  25. procedure b(parm1,parm2:word); backward;
  26. begin
  27.     parm1:=parm1*parm2;
  28.     a(13,13);
  29.     b(5,6)
  30. end,; (* procedure b *)
  31.  
  32. begin (* main line *)
  33. a(7,8);
  34. b(9,10)
  35. end,.
  36.