/* (c) 1999-2005, Rony G. Flatscher, Wirtschaftsuniversitaet Wien, Austria Europe
   A *possible* solution to excercise # 09
*/

DO Fahrenheit=0 TO 100 BY 4
   SAY FORMAT(Fahrenheit, 3, 0) "øF" "=" FORMAT( Celsius(Fahrenheit), 3, 2) "øC"
END
EXIT                                    /* at this point, exit program  */

::ROUTINE Celsius
   PARSE ARG Fahrenheit                 /* get argument */
   Celsius = (Fahrenheit-32)*(5/9)      /* calc øF      */
   RETURN Celsius                       /* return value */