14 lines
343 B
Plaintext
14 lines
343 B
Plaintext
10 CLS : REM 10 HOME for Applesoft BASIC : DELETE for Minimal BASIC
|
|
20 PRINT "Kelvin Degrees ";
|
|
30 INPUT K
|
|
40 IF K < 0 THEN 130
|
|
50 LET C = K-273.15
|
|
60 LET F = K*1.8-459.67
|
|
70 LET R = K*1.8
|
|
80 PRINT K;" Kelvin is equivalent to"
|
|
90 PRINT C;" Degrees Celsius"
|
|
100 PRINT F;" Degrees Fahrenheit"
|
|
110 PRINT R;" Degrees Rankine"
|
|
120 GOTO 20
|
|
130 END
|