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

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

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