|
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: »RENTEFOD.K«
└─⟦4cd80c18f⟧ Bits:30003895/4xCOMAL3a.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »RENTEFOD.K«
└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »RENTEFOD.K«
0010 // --------------------- rentefod_1 --------------------------- 0020 CLEAR 0030 INPUT "Indtast kapital: ":KAPITAL 0040 INPUT "Indtast rente: ( i kr.) ":RENTE 0050 INPUT "Indtast rentedage: ":RENTEDAGE 0060 RENTEFOD:=(RENTE*100*360)/KAPITAL/RENTEDAGE 0070 PRINT 0080 PRINT 0090 PRINT USING "Kapital: ##############.## kr. ":KAPITAL 0100 PRINT USING "Rente: ##############.## kr. ":RENTE 0110 PRINT USING "Rentedage: #### dage. ":RENTEDAGE 0120 PRINT 0130 PRINT USING "Rentefod: ###.# % ":RENTEFOD
0x000…046 Line {l1=0x44, l2=»0010 // --------------------- rentefod_1 ---------------------------«, l3=0x44}
0x046…053 Line {l1=0x0b, l2=»0020 CLEAR «, l3=0x0b}
0x053…098 Line {l1=0x43, l2=»0030 INPUT "Indtast kapital: ":KAPITAL«, l3=0x43}
0x098…0db Line {l1=0x41, l2=»0040 INPUT "Indtast rente: ( i kr.) ":RENTE«, l3=0x41}
0x0db…122 Line {l1=0x45, l2=»0050 INPUT "Indtast rentedage: ":RENTEDAGE«, l3=0x45}
0x122…154 Line {l1=0x30, l2=»0060 RENTEFOD:=(RENTE*100*360)/KAPITAL/RENTEDAGE«, l3=0x30}
0x154…161 Line {l1=0x0b, l2=»0070 PRINT «, l3=0x0b}
0x161…16e Line {l1=0x0b, l2=»0080 PRINT «, l3=0x0b}
0x16e…1bb Line {l1=0x4b, l2=»0090 PRINT USING "Kapital: ##############.## kr. ":KAPITAL«, l3=0x4b}
0x1bb…206 Line {l1=0x49, l2=»0100 PRINT USING "Rente: ##############.## kr. ":RENTE«, l3=0x49}
0x206…255 Line {l1=0x4d, l2=»0110 PRINT USING "Rentedage: #### dage. ":RENTEDAGE«, l3=0x4d}
0x255…262 Line {l1=0x0b, l2=»0120 PRINT «, l3=0x0b}
0x262…2b0 Line {l1=0x4c, l2=»0130 PRINT USING "Rentefod: ###.# % ":RENTEFOD«, l3=0x4c}
0x2b0…2c0 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ cccccccccccccc┆
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┆