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 - download

⟦b160f65fd⟧ TextFile

    Length: 992 (0x3e0)
    Types: TextFile
    Notes: Mikados_K
    Names: »RENTE.K«

Derivation

└─⟦4cd80c18f⟧ Bits:30003895/4xCOMAL3a.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »RENTE.K« 
└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »RENTE.K« 

0010 // --------------------- rente --------------------------------------
0030 // ----------------------------------------------------------------
0040 CLEAR 
0045 INTEGER RENTEDAGE // heltals-defineringe
0050 INPUT "Indtast kapital:                              ":KAPITAL
0060 INPUT "Indtast rentefod:                             ":RENTEFOD
0070 INPUT "Indtast rentedage:                            ":RENTEDAGE
0080 RENTE:=INT(((KAPITAL*RENTEFOD*RENTEDAGE)/100/360)*100+0.5)/100
0090 PRINT 
0100 PRINT 
0110 PRINT "Kapital:","Rentefod:","Rente:","Rentedage:"
0120 PRINT "-----------------------------------------------------------------
0130 PRINT 
0140 PRINT KAPITAL;"kr.",RENTEFOD;"%",RENTE;"kr.",RENTEDAGE;"dage"
0150 PRINT "=================================================================

0x000…04c Line {l1=0x4a, l2=»0010 // --------------------- rente --------------------------------------«, l3=0x4a}
0x04c…096 Line {l1=0x48, l2=»0030 // ----------------------------------------------------------------«, l3=0x48}
0x096…0a3 Line {l1=0x0b, l2=»0040 CLEAR «, l3=0x0b}
0x0a3…0d2 Line {l1=0x2d, l2=»0045 INTEGER RENTEDAGE // heltals-defineringe«, l3=0x2d}
0x0d2…117 Line {l1=0x43, l2=»0050 INPUT "Indtast kapital:                              ":KAPITAL«, l3=0x43}
0x117…15d Line {l1=0x44, l2=»0060 INPUT "Indtast rentefod:                             ":RENTEFOD«, l3=0x44}
0x15d…1a4 Line {l1=0x45, l2=»0070 INPUT "Indtast rentedage:                            ":RENTEDAGE«, l3=0x45}
0x1a4…1e9 Line {l1=0x43, l2=»0080 RENTE:=INT(((KAPITAL*RENTEFOD*RENTEDAGE)/100/360)*100+0.5)/100«, l3=0x43}
0x1e9…1f6 Line {l1=0x0b, l2=»0090 PRINT «, l3=0x0b}
0x1f6…203 Line {l1=0x0b, l2=»0100 PRINT «, l3=0x0b}
0x203…23c Line {l1=0x37, l2=»0110 PRINT "Kapital:","Rentefod:","Rente:","Rentedage:"«, l3=0x37}
0x23c…28b Line {l1=0x4d, l2=»0120 PRINT "-----------------------------------------------------------------«, l3=0x4d}
0x28b…298 Line {l1=0x0b, l2=»0130 PRINT «, l3=0x0b}
0x298…2dc Line {l1=0x42, l2=»0140 PRINT KAPITAL;"kr.",RENTEFOD;"%",RENTE;"kr.",RENTEDAGE;"dage"«, l3=0x42}
0x2dc…32b Line {l1=0x4d, l2=»0150 PRINT "=================================================================«, l3=0x4d}
0x32b…340 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63                                    ┆  ccccccccccccccccccc┆
0x340…360 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┆
          […0x4…]

Reduced view