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

entry temp 8;

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