11 lines
269 B
Text
11 lines
269 B
Text
10 PRINT "Kelvin Degrees ";
|
|
20 INPUT ""; K
|
|
30 IF K < 0 THEN END
|
|
40 LET C = K-273.15
|
|
50 LET F = K*1.8-459.67
|
|
60 LET R = K*1.8
|
|
70 PRINT K;" Kelvin is equivalent to"
|
|
80 PRINT C;" Degrees Celsius"
|
|
90 PRINT F;" Degrees Fahrenheit"
|
|
100 PRINT R;" Degrees Rankine"
|
|
110 GOTO 10
|