INCLUDE "D2:REAL.ACT" ;from the Action! Tool Kit

PROC K2C(REAL POINTER k,c)
  REAL tmp

  ValR("273.15",tmp)
  RealSub(k,tmp,c)
RETURN

PROC K2F(REAL POINTER k,f)
  REAL tmp1,tmp2,tmp3

  ValR("1.8",tmp1)
  ValR("459.67",tmp2)
  RealMult(k,tmp1,tmp3)
  RealSub(tmp3,tmp2,f)
RETURN

PROC K2R(REAL POINTER k,f)
  REAL tmp

  ValR("1.8",tmp)
  RealMult(k,tmp,f)
RETURN

PROC Test(CHAR ARRAY text REAL POINTER k)
  REAL res

  PrintE(text)
  Print("      Kelvin: ") PrintRE(k)

  K2C(k,res)
  Print("     Celsius: ") PrintRE(res)

  K2F(k,res)
  Print("  Fahrenheit: ") PrintRE(res)

  K2R(k,res)
  Print("     Rankine: ") PrintRE(res)

  PutE()
RETURN

PROC Main()
  REAL k

  Put(125) PutE() ;clear screen

  ValR("0",k) Test("Absolute zero",k)
  ValR("273.15",k) Test("Ice melts",k)
  ValR("373.15",k) Test("Water boils",k)
RETURN