|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 480 (0x1e0)
Types: TextFile
Notes: Mikados_K
Names: »FAHRENHE.K«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »FAHRENHE.K«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »FAHRENHE.K«
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
0x000…049 Line {l1=0x47, l2=»0010 // -------------------------- fahrenheit -------------------------«, l3=0x47}
0x049…056 Line {l1=0x0b, l2=»0020 CLEAR «, l3=0x0b}
0x056…08a Line {l1=0x32, l2=»0030 INPUT "Indtast fahrenheit: ":FAHRENHEIT«, l3=0x32}
0x08a…0ad Line {l1=0x21, l2=»0040 CELSIUS:=(FAHRENHEIT-32)/1.8«, l3=0x21}
0x0ad…0c7 Line {l1=0x18, l2=»0050 REAMUR:=CELSIUS*0.8«, l3=0x18}
0x0c7…0d4 Line {l1=0x0b, l2=»0060 PRINT «, l3=0x0b}
0x0d4…11b Line {l1=0x45, l2=»0070 PRINT USING "Fahrenheit: ####.## ":FAHRENHEIT«, l3=0x45}
0x11b…15f Line {l1=0x42, l2=»0080 PRINT USING "Celsius: ####.## ":CELSIUS«, l3=0x42}
0x15f…1a2 Line {l1=0x41, l2=»0090 PRINT USING "Reamur: ####.## ":REAMUR«, l3=0x41}
0x1a2…1c0 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ cccccccccccccccccccccccccccc┆
0x1c0…1e0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆