/**********************************************************************/


MAIN:
   /* SCL statements               */

TEMP1 = ( (9 / 5) * TEMP1) + 32;

   /* more SCL statements          */

TEMP2 = ( (9 / 5) * TEMP2) + 32;

   /* more SCL statements          */

TEMP3 = ( (9 / 5) * TEMP3) + 32;

   /* more SCL statements          */

return;


/**********************************************************************/


MAIN:

    /* SCL statements                  */

   link temp1ctf;

    /* more SCL statements             */

return;

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


/**********************************************************************/


MAIN:

   /* SCL statements                       */

      /* Pass the value of TEMP1,          */
      /* invoke the label, and             */
      /* get the returned value for TEMP1. */
   temp = temp1;
   link ctf;
   temp1 = temp;

   /* more SCL statements                  */

      /* Pass the value of TEMP2,          */
      /* invoke the label, and             */
      /* get the returned value for TEMP2. */

   /* more SCL statements                  */

   temp = temp2;
   link ctf;
   temp2 = temp;

   /* more SCL statements                  */

      /* Pass the value of TEMP3,          */
      /* invoke the label, and             */
      /* get the returned value for TEMP3. */
   temp = temp3;
   link ctf;
   temp3 = temp;

   /* more SCL statements                  */

return;


/**********************************************************************/


MAIN:

   /* SCL statements           */

   temp = temp1;
   %ctf
   temp1 = temp;

   /* more SCL statements      */

   temp = temp2;
   %ctf
   temp2 = temp;

   /* more SCL statements      */

   temp = temp3;
   %ctf
   temp3 = temp;

   /* more SCL statements      */

return;


/**********************************************************************/


MAIN: 

   /* SCL statements          */

   temp = temp1;
   %include ' file-name';
   temp1 = temp;

   /* more SCL statements     */

   temp = temp2;
   %include ' file-name';
   temp2 = temp;

   /* more SCL statements     */

   temp = temp3;
   %include ' file-name';
   temp3 = temp;

   /* more SCL statements     */

return;


/**********************************************************************/


MAIN:

   /* SCL statements        */

   %ctf(temp1)

   /* more SCL statements   */

   %ctf(temp2)

   /* more SCL statements   */

   %ctf(temp3)

   /* more SCL statements   */

return;


/**********************************************************************/


   /*  LAB.MAIN.CTF.SCL                 */
   /*  PURPOSE:  To convert TEMP from   */
   /*            Fahrenheit to Celsius  */

entry temp 8;

INIT:
   temp=((9/5)*temp)+32;
return;


/**********************************************************************/