MAIN:

    /* SCL statements                  */

   link temp1ctf;

    /* more SCL statements             */

return;

TEMP1CTF:
   temp1 = ( (9 / 5) * temp1) + 32;
return;