PROGRAM "Temperature conversion"
VERSION "0.001"

DECLARE FUNCTION Entry()

FUNCTION Entry()
  DO
    D$ = INLINE$("Kelvin degrees (>=0): ")
    K = SBYTE(D$)
  LOOP UNTIL K >= 0

  PRINT "K = " + STR$(K)
  PRINT "C = " + STR$(K - 273.15)
  PRINT "F = " + STR$(K * 1.8 - 459.67)
  PRINT "R = " + STR$(K * 1.8)

END FUNCTION
END PROGRAM