RosettaCodeData/Task/Temperature-conversion/M2000-Interpreter/temperature-conversion-1.m2000
2025-02-27 18:35:13 -05:00

9 lines
229 B
Text

module ZX81_code {
10 PRINT "ENTER A TEMPERATURE IN KELVINS"
20 INPUT K
30 PRINT K;" KELVINS ="
40 PRINT K-273.15;" DEGREES CELSIUS"
50 PRINT K*1.8-459.67;" DEGREES FAHRENHEIT"
60 PRINT K*1.8;" DEGREES RANKINE"
}
ZX81_code