HP SunSoft Pascal 4.0 - Manual (Page 182)

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