home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Transactor
/
Transactor_24_1988_Transactor_Publishing.d64
/
fred.c
< prev
next >
Wrap
Text File
|
2023-02-26
|
454b
|
30 lines
/*
* program to test code generation for
* nested function calls
*/
main()
{SHIFT-+}
char a1, a2, a3, a4;
a1 = 31;
a2 = 10;
a3 = 24;
a4 = 50;
fred(fred(a1,"jugo",75.5,179),
"garth",
60.3,
fred(fred(a2,"tylum",90.6,210),
"glorp",30.4,
fred(a3,"ploom",80.2,
fred(a4,"glim",50.3,127)
)
)
);
{SHIFT--}
fred(age)
char age;
{SHIFT-+}
return age;
{SHIFT--}