|
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: 2496 (0x9c0)
Types: TextFile
Notes: Mikados_K
Names: »SAMRENTE.K«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »SAMRENTE.K«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »SAMRENTE.K«
0010 // --------------------- samrente -------------------------------- 0020 // Udregner slutkapital, når man indtaster startkapital, rentefod 0030 // samt antallet af terminer. 0040 // --------------------------------------------------------------------- 0050 CLEAR 0060 CURSOR 1,4 0070 PRINT "S a m m e n s a t r e n t e s r e g n i n g :" 0080 CURSOR 1,5 0090 PRINT "-----------------------------------------------" 0100 CURSOR 1,9 0110 INPUT "Indtast kapital: ":STARTKAPITAL 0120 PRINT 0130 INPUT "Indtast rentefod: ":RENTEFOD 0140 PRINT 0150 INPUT "Indtast antallet af terminer: ":TERMIN 0160 // -------------------------------------------------------------------- 0170 SLUTKAPITAL:=STARTKAPITAL*(1+RENTEFOD/100)**TERMIN 0180 // -------------------------------------------------------------------- 0190 PRINT 0200 PRINT 0210 PRINT "Kapitalen er: ";STARTKAPITAL 0220 PRINT "Rentefoden: ";RENTEFOD 0230 PRINT "Antallet af terminer: ";TERMIN 0240 PRINT "Slutkapital: ";INT(SLUTKAPITAL*100)/100 0250 PRINT "-----------------------------------------------------------------
0x000…049 Line {l1=0x47, l2=»0010 // --------------------- samrente --------------------------------«, l3=0x47}
0x049…091 Line {l1=0x46, l2=»0020 // Udregner slutkapital, når man indtaster startkapital, rentefod«, l3=0x46}
0x091…0b5 Line {l1=0x22, l2=»0030 // samt antallet af terminer.«, l3=0x22}
0x0b5…104 Line {l1=0x4d, l2=»0040 // ---------------------------------------------------------------------«, l3=0x4d}
0x104…111 Line {l1=0x0b, l2=»0050 CLEAR «, l3=0x0b}
0x111…122 Line {l1=0x0f, l2=»0060 CURSOR 1,4«, l3=0x0f}
0x122…160 Line {l1=0x3c, l2=»0070 PRINT "S a m m e n s a t r e n t e s r e g n i n g :"«, l3=0x3c}
0x160…171 Line {l1=0x0f, l2=»0080 CURSOR 1,5«, l3=0x0f}
0x171…1af Line {l1=0x3c, l2=»0090 PRINT "-----------------------------------------------"«, l3=0x3c}
0x1af…1c0 Line {l1=0x0f, l2=»0100 CURSOR 1,9«, l3=0x0f}
0x1c0…20a Line {l1=0x48, l2=»0110 INPUT "Indtast kapital: ":STARTKAPITAL«, l3=0x48}
0x20a…217 Line {l1=0x0b, l2=»0120 PRINT «, l3=0x0b}
0x217…25d Line {l1=0x44, l2=»0130 INPUT "Indtast rentefod: ":RENTEFOD«, l3=0x44}
0x25d…26a Line {l1=0x0b, l2=»0140 PRINT «, l3=0x0b}
0x26a…2ae Line {l1=0x42, l2=»0150 INPUT "Indtast antallet af terminer: ":TERMIN«, l3=0x42}
0x2ae…2fc Line {l1=0x4c, l2=»0160 // --------------------------------------------------------------------«, l3=0x4c}
0x2fc…335 Line {l1=0x37, l2=»0170 SLUTKAPITAL:=STARTKAPITAL*(1+RENTEFOD/100)**TERMIN«, l3=0x37}
0x335…383 Line {l1=0x4c, l2=»0180 // --------------------------------------------------------------------«, l3=0x4c}
0x383…390 Line {l1=0x0b, l2=»0190 PRINT «, l3=0x0b}
0x390…39d Line {l1=0x0b, l2=»0200 PRINT «, l3=0x0b}
0x39d…3e0 Line {l1=0x41, l2=»0210 PRINT "Kapitalen er: ";STARTKAPITAL«, l3=0x41}
0x3e0…41f Line {l1=0x3d, l2=»0220 PRINT "Rentefoden: ";RENTEFOD«, l3=0x3d}
0x41f…45c Line {l1=0x3b, l2=»0230 PRINT "Antallet af terminer: ";TERMIN«, l3=0x3b}
0x45c…4ab Line {l1=0x4d, l2=»0240 PRINT "Slutkapital: ";INT(SLUTKAPITAL*100)/100«, l3=0x4d}
0x4ab…4fa Line {l1=0x4d, l2=»0250 PRINT "-----------------------------------------------------------------«, l3=0x4d}
0x4fa…500 00 00 2d 2d 20 73 ┆ -- s┆
0x500…520 61 6d 72 65 6e 74 65 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆amrente ------------------------┆
0x520…540 2d 2d 2d 2d 2d 2d 2d 2d 47 46 30 30 32 30 20 2f 2f 20 55 64 72 65 67 6e 65 72 20 73 6c 75 74 6b ┆--------GF0020 // Udregner slutk┆
0x540…560 61 70 69 74 61 6c 2c 20 6e 7d 72 20 6d 61 6e 20 69 6e 64 74 61 73 74 65 72 20 73 74 61 72 74 6b ┆apital, når man indtaster startk┆
0x560…580 61 70 69 74 61 6c 2c 20 72 65 6e 74 65 66 6f 64 46 22 30 30 33 30 20 2f 2f 20 73 61 6d 74 20 61 ┆apital, rentefodF"0030 // samt a┆
0x580…5a0 6e 74 61 6c 6c 65 74 20 61 66 20 74 65 72 6d 69 6e 65 72 2e 22 4d 30 30 34 30 20 2f 2f 20 2d 2d ┆ntallet af terminer."M0040 // --┆
0x5a0…5c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x5c0…5e0 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┆
[…0x1f…]