12 lines
363 B
Plaintext
12 lines
363 B
Plaintext
10 REM Translation of traditional basic version
|
|
20 INPUT "Kelvin Degrees? ";k
|
|
30 IF k < 0 THEN STOP: REM A value less than zero will end program
|
|
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 GO TO 20
|