10 REM > Degrees 20 REM converts celsius to Farenheight 30 ON ERROR REPORT:PRINT " at line ";ERL:END 40 REPEAT 50 INPUT "What is the temperature in degrees Celsius",temp% 60 PRINT "That is ";FNconvert(temp%)" degrees Farenheight" 70 PRINT 80 UNTIL FALSE 90 END 100 : 110 DEFFNconvert(c%) 120 LOCAL f% 130 f%=c%*1.8+32 140 =f%