REM PROGRAMMED BY: TRAVIS SCHULTZ
10 INPUT "ENTER THE CELCIUS TEMPERATURE"; C
20 GOSUB 500
30 INPUT "ENTER THE FAHRENHEIT TEMPERATURE"; F
40 GOSUB 600
50 END
500 F = (C * 9 / 5) + 32
510 PRINT "THE FAHRENHEIT TEMPERATURE IS"; F
520 RETURN
600 C = (F - 32) * 5 / 9
610 PRINT "THE CELCIUS TEMPERATURE IS"; C
630 RETURN