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;