100 REM Temperature conversion
110 DO
120    INPUT PROMPT "Kelvin degrees ":K
130    IF K < 0 THEN EXIT DO
140    LET C = K - 273.15
150    LET F = K * 1.8 - 459.67
160    LET R = K * 1.8
170    PRINT K; "Kelvin is equivalent to"
180    PRINT C; "degrees Celsius,"
190    PRINT F; "degrees Fahrenheit,"
200    PRINT R; "degrees Rankine."
210 LOOP
220 END