|
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: 2528 (0x9e0)
Types: TextFile
Notes: Mikados_K
Names: »LOG10.K«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »LOG10.K«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »LOG10.K«
0010 // ------------------------ log10 ----------------------------- 0020 // 0030 PROC FNLOG10(X) 0040 FNLOG10:=LOG(X)/LOG(10) 0050 ENDPROC FNLOG10 0060 // 0070 CLEAR 0075 PRINT 0080 INPUT "Indtast et positivt tal: ":TAL 0090 PRINT "log10( ";TAL;") = ";FNLOG10(TAL)
0x000…046 Line {l1=0x44, l2=»0010 // ------------------------ log10 -----------------------------«, l3=0x44}
0x046…050 Line {l1=0x08, l2=»0020 // «, l3=0x08}
0x050…066 Line {l1=0x14, l2=»0030 PROC FNLOG10(X)«, l3=0x14}
0x066…084 Line {l1=0x1c, l2=»0040 FNLOG10:=LOG(X)/LOG(10)«, l3=0x1c}
0x084…09a Line {l1=0x14, l2=»0050 ENDPROC FNLOG10«, l3=0x14}
0x09a…0a4 Line {l1=0x08, l2=»0060 // «, l3=0x08}
0x0a4…0b1 Line {l1=0x0b, l2=»0070 CLEAR «, l3=0x0b}
0x0b1…0be Line {l1=0x0b, l2=»0075 PRINT «, l3=0x0b}
0x0be…0eb Line {l1=0x2b, l2=»0080 INPUT "Indtast et positivt tal: ":TAL«, l3=0x2b}
0x0eb…119 Line {l1=0x2c, l2=»0090 PRINT "log10( ";TAL;") = ";FNLOG10(TAL)«, l3=0x2c}
0x119…120 00 00 63 63 63 63 63 ┆ ccccc┆
0x120…140 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┆
[…0x45…]