include c:\cxpl\codes;
real K, C, F, R;
[ChOut(0, ^K); K:= RlIn(0);
C:= K - 273.15;
ChOut(0, ^C); RlOut(0, C); CrLf(0);
F:= 1.8*C + 32.0;
ChOut(0, ^F); RlOut(0, F); CrLf(0);
R:= F + 459.67;
ChOut(0, ^R); RlOut(0, R); CrLf(0);
]