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);
]