/* 1999-2003, Rony G. Flatscher, Wirtschaftsuniversitaet Wien, Austria, Europe
   A *possible* solution to excercise: 3+4 (2)
*/

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 */