Sun Microsystems SunSoft Pascal 4.0 User Manual page 182

7
The C++ function, SimVal.cc
158
Simple Types
Simple types match with value parameters. See the following example:
extern "C" void SimVal(
char t,
char f,
char c,
short si,
int i,
float sr,
double r,
int& Reply)
{
Reply = 0;
if (t)
if (! f)
if (c == 'z')
if (si == 9)
if (i == 9)
if (sr == (float)9.9) Reply +=
if (r == 9.9)
}
Pascal 4.0 User's Guide
Reply += 01;
Reply += 010;
Reply += 0100;
Reply += 01000;
Reply += 010000;
0100000;
Reply += 01000000;