Temperature Conversion

Gallery

Source Code

  10 REM "TEMP CONV"
  20 PRINT "ENTER TEMPERATURE"
  30 INPUT T
  40 PRINT T
  50 PRINT "C, F, OR K";
  60 INPUT Q$
  70 IF Q$<>"F" AND Q$<>"C" AND Q$<>"K" THEN GOTO 60
  80 PRINT Q$
  90 IF Q$="F" THEN GOSUB 200
 100 IF Q$="C" OR Q$="K" THEN GOSUB 300
 110 CLS 
 120 PRINT T;" ";Q$;"=";N;" ";R$
 130 INPUT A$
 140 CLS 
 150 GOTO 10
 200 LET N=(T-32)*5/9
 210 LET R$="C"
 220 RETURN 
 300 LET C=T
 310 IF Q$="K" THEN LET C=T-273
 320 LET N=C*9/5+32
 330 LET R$="F"
 340 RETURN 
 350 SAVE "1017%2"
 360 RUN