2013-04-11 01:07:29 -07:00
|
|
|
10 REM TRANSLATION OF AWK VERSION
|
|
|
|
|
20 INPUT "KELVIN DEGREES",K
|
|
|
|
|
30 IF K <= 0 THEN END: REM A VALUE OF ZERO OR LESS 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"
|
2013-10-27 22:24:23 +00:00
|
|
|
80 PRINT C; " DEGREES CELSIUS"
|
2013-04-11 01:07:29 -07:00
|
|
|
90 PRINT F; " DEGREES FAHRENHEIT"
|
|
|
|
|
100 PRINT R; " DEGREES RANKINE"
|
|
|
|
|
110 GOTO 20
|
