19 lines
336 B
Plaintext
19 lines
336 B
Plaintext
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
|