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

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


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