DataMuseum.dk

Presents historical artifacts from the history of:

MIKADOS

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about MIKADOS

Excavated with: AutoArchaeologist - Free & Open Source Software.

top - metrics - download

⟦2009a9438⟧

    Length: 480 (0x1e0)
    Notes: Mikados TextFile, Mikados_K
    Names: »FAHRENHE«

Derivation

└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »FAHRENHE« 
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »FAHRENHE«

Text

0010 // -------------------------- fahrenheit -------------------------
0020 CLEAR 
0030 INPUT "Indtast fahrenheit:       ":FAHRENHEIT
0040 CELSIUS:=(FAHRENHEIT-32)/1.8
0050 REAMUR:=CELSIUS*0.8
0060 PRINT 
0070 PRINT USING "Fahrenheit:              ####.##       ":FAHRENHEIT
0080 PRINT USING "Celsius:                 ####.##       ":CELSIUS
0090 PRINT USING "Reamur:                  ####.##       ":REAMUR