|
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: 736 (0x2e0)
Types: TextFile
Notes: Mikados_K
Names: »RENTEF2.K«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »RENTEF2.K«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »RENTEF2.K«
0010 // --------------------- rentefod_2 --------------------------- 0020 CLEAR 0030 INPUT "Indtast begyndelseskapital: ":BEGYNDKAPITAL 0040 INPUT "Indtast slutkapital: ":SLUTKAPITAL 0050 INPUT "Indtast antal af terminer: ":TERMINER 0060 RENTEFOD:=((SLUTKAPITAL/BEGYNDKAPITAL)**(1/TERMINER))-1 0070 PRINT 0080 PRINT 0090 PRINT USING "Begyndelseskapital: ##############.## kr. ":BEGYNDKAPITAL 0100 PRINT USING "Slutkapital: ##############.## kr. ":SLUTKAPITAL 0110 PRINT USING "Antal terminer: #### ":TERMINER 0120 PRINT 0130 PRINT USING "Rentefod: ###.# % ":RENTEFOD*100
0x000…046 Line {l1=0x44, l2=»0010 // --------------------- rentefod_2 ---------------------------«, l3=0x44}
0x046…053 Line {l1=0x0b, l2=»0020 CLEAR «, l3=0x0b}
0x053…09a Line {l1=0x45, l2=»0030 INPUT "Indtast begyndelseskapital: ":BEGYNDKAPITAL«, l3=0x45}
0x09a…0df Line {l1=0x43, l2=»0040 INPUT "Indtast slutkapital: ":SLUTKAPITAL«, l3=0x43}
0x0df…121 Line {l1=0x40, l2=»0050 INPUT "Indtast antal af terminer: ":TERMINER«, l3=0x40}
0x121…15f Line {l1=0x3c, l2=»0060 RENTEFOD:=((SLUTKAPITAL/BEGYNDKAPITAL)**(1/TERMINER))-1«, l3=0x3c}
0x15f…16c Line {l1=0x0b, l2=»0070 PRINT «, l3=0x0b}
0x16c…179 Line {l1=0x0b, l2=»0080 PRINT «, l3=0x0b}
0x179…1c8 Line {l1=0x4d, l2=»0090 PRINT USING "Begyndelseskapital: ##############.## kr. ":BEGYNDKAPITAL«, l3=0x4d}
0x1c8…215 Line {l1=0x4b, l2=»0100 PRINT USING "Slutkapital: ##############.## kr. ":SLUTKAPITAL«, l3=0x4b}
0x215…25f Line {l1=0x48, l2=»0110 PRINT USING "Antal terminer: #### ":TERMINER«, l3=0x48}
0x25f…26c Line {l1=0x0b, l2=»0120 PRINT «, l3=0x0b}
0x26c…2ba Line {l1=0x4c, l2=»0130 PRINT USING "Rentefod: ###.# % ":RENTEFOD*100«, l3=0x4c}
0x2ba…2c0 00 00 63 63 63 63 ┆ cccc┆
0x2c0…2e0 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┆