Temperature Conversion

Gallery

Source Code

   5 REM TEMP CONVERSION
  10 PRINT "TEMPERATURE CONVERSION"
  11 PRINT 
  20 PRINT "DO YOU WISH TO CONVERT C TO F(Y/N)"
  21 INPUT A$
  30 IF A$="Y" THEN GOTO 80
  40 PRINT "ENTER DEGREES F"
  41 INPUT F
  42 PRINT F
  50 GOSUB 2000
  60 PRINT "ARE YOU FINISHED(Y/N)"
  61 INPUT B$
  70 IF B$="N" THEN GOTO 40
  75 STOP 
  80 PRINT "ENTER DEGREES C"
  81 INPUT C
  82 PRINT C
  90 GOSUB 1000
 100 PRINT "ARE YOU FINISHED(Y/N)"
 101 INPUT C$
 110 IF C$="N" THEN GOTO 80
 120 STOP 
1000 REM CEL TO FAHR CONV
1010 LET F=(9/5)*C+32
1020 PRINT C;" DEGREES CELSIUS=   ";F;" DEGREES FAHRENHEIT"
1030 RETURN 
2000 REM FAHR TO CEL CONV
2010 LET C=(F-12)*(5/9)
2020 PRINT F;" DEGREES FAHRENHEIT=  ";C;"  DEGREES CELSIUS"
2030 RETURN 
3000 SAVE "1004%5"
3010 RUN