home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_24_1988_Transactor_Publishing.d64 / fred.c < prev    next >
Text File  |  2023-02-26  |  454b  |  30 lines
  1. /*
  2.  * program to test code generation for
  3.  *  nested function calls
  4.  */
  5. main()
  6. {SHIFT-+}
  7.   char a1, a2, a3, a4;
  8.  
  9.   a1 = 31; 
  10.   a2 = 10;
  11.   a3 = 24;
  12.   a4 = 50;
  13.   fred(fred(a1,"jugo",75.5,179),
  14.        "garth",
  15.        60.3,
  16.        fred(fred(a2,"tylum",90.6,210),
  17.                  "glorp",30.4,
  18.                  fred(a3,"ploom",80.2,
  19.                       fred(a4,"glim",50.3,127)
  20.                      )
  21.            )
  22.       );
  23. {SHIFT--}
  24.  
  25. fred(age)
  26. char age;
  27. {SHIFT-+}
  28.   return age;
  29. {SHIFT--}
  30.