|
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: »RENTE.K«
└─⟦0ca3cf8fa⟧ Bits:30004600 DEMO1 - COMAL demoprogram
└─⟦this⟧ »RENTE.K«
0100 DIM TEKST$(20),SV$(1) 0110 DIM LIN$(50) 0120 DIM SLUTLIN$(70) 0130 LIN$="#######.## #######.## #######.## #######.##" 0140 SLUTLIN$="I ALT BETALT RENTE: #######.## OVER ANTAL HALVAAR: #####" 0145 REPEAT 0150 CLEAR 0160 CURSOR 1,5 0170 PRINT TAB(20),"RENTEBEREGNINGS PROGRAM" 0180 CURSOR 20,8 0190 INPUT "INDTAST TEKST ",TEKST$ 0200 CURSOR 20,10 0210 INPUT "INDTAST HOVEDSTOL ",HOV 0220 LET X0=HOV 0230 CURSOR 20,12 0240 INPUT "INDTAST RENTEFOD(I % P.A.) ",R 0250 LET R=R/2/100 0260 CURSOR 20,14 0270 INPUT "INDTAST HALVAARLIG YDELSE ",Y 0280 LET X1=HOV*R 0290 CLEAR 0300 IF (X1-Y)>(-0.01) THEN 0310 CURSOR 1,10 0320 PRINT "DEN OPGIVNE HOVEDSTOL KAN IKKE AMORTISERES MED DEN" 0330 PRINT "GIVNE RENTE OG DEN GIVNE YDELSE" 0340 STOP 0350 ENDIF 0360 TOTRF=0 0370 PRINT 0380 PRINT 0390 PRINT TEKST$ 0400 PRINT 0410 PRINT " HOVEDSTOL YDELSE RENTE AFDRAG" 0420 PRINT 0430 LET ANTAL=0 0440 WHILE X0>Y-X0*R 0450 LET RF=X0*R 0460 LET AFDRAG=Y-RF 0470 LET TOTRF=RF+TOTRF 0480 LET ANTAL=ANTAL+1 0490 PRINT USING LIN$:X0,Y,RF,AFDRAG 0500 PRINT 0510 LET X0=X0-AFDRAG 0520 ENDWHILE 0530 LET RF=X0*R 0540 LET AFDRAG=X0 0550 LET X0=0 0560 LET Y=AFDRAG+RF 0570 LET TOTRF=TOTRF+RF 0580 LET ANTAL=ANTAL+1 0590 PRINT USING LIN$:X0,Y,RF,AFDRAG 0600 PRINT 0610 PRINT 0620 PRINT USING SLUTLIN$:TOTRF,ANTAL 0622 PRINT 0623 PRINT 0624 PRINT 0630 INPUT "SKAL DU PR0VE ENDNU ENGANG (J/N): ",SV$ 0640 UNTIL SV$<>"J"
0x000…01c Line {l1=0x1a, l2=»0100 DIM TEKST$(20),SV$(1)«, l3=0x1a}
0x01c…02f Line {l1=0x11, l2=»0110 DIM LIN$(50)«, l3=0x11}
0x02f…046 Line {l1=0x15, l2=»0120 DIM SLUTLIN$(70)«, l3=0x15}
0x046…086 Line {l1=0x3e, l2=»0130 LIN$="#######.## #######.## #######.## #######.##"«, l3=0x3e}
0x086…0d0 Line {l1=0x48, l2=»0140 SLUTLIN$="I ALT BETALT RENTE: #######.## OVER ANTAL HALVAAR: #####"«, l3=0x48}
0x0d0…0de Line {l1=0x0c, l2=»0145 REPEAT «, l3=0x0c}
0x0de…0eb Line {l1=0x0b, l2=»0150 CLEAR «, l3=0x0b}
0x0eb…0fc Line {l1=0x0f, l2=»0160 CURSOR 1,5«, l3=0x0f}
0x0fc…12a Line {l1=0x2c, l2=»0170 PRINT TAB(20),"RENTEBEREGNINGS PROGRAM"«, l3=0x2c}
0x12a…13c Line {l1=0x10, l2=»0180 CURSOR 20,8«, l3=0x10}
0x13c…160 Line {l1=0x22, l2=»0190 INPUT "INDTAST TEKST ",TEKST$«, l3=0x22}
0x160…173 Line {l1=0x11, l2=»0200 CURSOR 20,10«, l3=0x11}
0x173…198 Line {l1=0x23, l2=»0210 INPUT "INDTAST HOVEDSTOL ",HOV«, l3=0x23}
0x198…1a9 Line {l1=0x0f, l2=»0220 LET X0=HOV«, l3=0x0f}
0x1a9…1bc Line {l1=0x11, l2=»0230 CURSOR 20,12«, l3=0x11}
0x1bc…1e8 Line {l1=0x2a, l2=»0240 INPUT "INDTAST RENTEFOD(I % P.A.) ",R«, l3=0x2a}
0x1e8…1fc Line {l1=0x12, l2=»0250 LET R=R/2/100«, l3=0x12}
0x1fc…20f Line {l1=0x11, l2=»0260 CURSOR 20,14«, l3=0x11}
0x20f…23a Line {l1=0x29, l2=»0270 INPUT "INDTAST HALVAARLIG YDELSE ",Y«, l3=0x29}
0x23a…24d Line {l1=0x11, l2=»0280 LET X1=HOV*R«, l3=0x11}
0x24d…25a Line {l1=0x0b, l2=»0290 CLEAR «, l3=0x0b}
0x25a…278 Line {l1=0x1c, l2=»0300 IF (X1-Y)>(-0.01) THEN «, l3=0x1c}
0x278…28a Line {l1=0x10, l2=»0310 CURSOR 1,10«, l3=0x10}
0x28a…2cb Line {l1=0x3f, l2=»0320 PRINT "DEN OPGIVNE HOVEDSTOL KAN IKKE AMORTISERES MED DEN"«, l3=0x3f}
0x2cb…2f9 Line {l1=0x2c, l2=»0330 PRINT "GIVNE RENTE OG DEN GIVNE YDELSE"«, l3=0x2c}
0x2f9…305 Line {l1=0x0a, l2=»0340 STOP «, l3=0x0a}
0x305…312 Line {l1=0x0b, l2=»0350 ENDIF «, l3=0x0b}
0x312…320 Line {l1=0x0c, l2=»0360 TOTRF=0«, l3=0x0c}
0x320…32d Line {l1=0x0b, l2=»0370 PRINT «, l3=0x0b}
0x32d…33a Line {l1=0x0b, l2=»0380 PRINT «, l3=0x0b}
0x33a…34d Line {l1=0x11, l2=»0390 PRINT TEKST$«, l3=0x11}
0x34d…35a Line {l1=0x0b, l2=»0400 PRINT «, l3=0x0b}
0x35a…39b Line {l1=0x3f, l2=»0410 PRINT " HOVEDSTOL YDELSE RENTE AFDRAG"«, l3=0x3f}
0x39b…3a8 Line {l1=0x0b, l2=»0420 PRINT «, l3=0x0b}
0x3a8…3ba Line {l1=0x10, l2=»0430 LET ANTAL=0«, l3=0x10}
0x3ba…3d0 Line {l1=0x14, l2=»0440 WHILE X0>Y-X0*R«, l3=0x14}
0x3d0…3e2 Line {l1=0x10, l2=»0450 LET RF=X0*R«, l3=0x10}
0x3e2…3f8 Line {l1=0x14, l2=»0460 LET AFDRAG=Y-RF«, l3=0x14}
0x3f8…411 Line {l1=0x17, l2=»0470 LET TOTRF=RF+TOTRF«, l3=0x17}
0x411…429 Line {l1=0x16, l2=»0480 LET ANTAL=ANTAL+1«, l3=0x16}
0x429…44f Line {l1=0x24, l2=»0490 PRINT USING LIN$:X0,Y,RF,AFDRAG«, l3=0x24}
0x44f…45c Line {l1=0x0b, l2=»0500 PRINT «, l3=0x0b}
0x45c…473 Line {l1=0x15, l2=»0510 LET X0=X0-AFDRAG«, l3=0x15}
0x473…483 Line {l1=0x0e, l2=»0520 ENDWHILE «, l3=0x0e}
0x483…495 Line {l1=0x10, l2=»0530 LET RF=X0*R«, l3=0x10}
0x495…4a9 Line {l1=0x12, l2=»0540 LET AFDRAG=X0«, l3=0x12}
0x4a9…4b8 Line {l1=0x0d, l2=»0550 LET X0=0«, l3=0x0d}
0x4b8…4ce Line {l1=0x14, l2=»0560 LET Y=AFDRAG+RF«, l3=0x14}
0x4ce…4e7 Line {l1=0x17, l2=»0570 LET TOTRF=TOTRF+RF«, l3=0x17}
0x4e7…4ff Line {l1=0x16, l2=»0580 LET ANTAL=ANTAL+1«, l3=0x16}
0x4ff…525 Line {l1=0x24, l2=»0590 PRINT USING LIN$:X0,Y,RF,AFDRAG«, l3=0x24}
0x525…532 Line {l1=0x0b, l2=»0600 PRINT «, l3=0x0b}
0x532…53f Line {l1=0x0b, l2=»0610 PRINT «, l3=0x0b}
0x53f…566 Line {l1=0x25, l2=»0620 PRINT USING SLUTLIN$:TOTRF,ANTAL«, l3=0x25}
0x566…573 Line {l1=0x0b, l2=»0622 PRINT «, l3=0x0b}
0x573…580 Line {l1=0x0b, l2=»0623 PRINT «, l3=0x0b}
0x580…58d Line {l1=0x0b, l2=»0624 PRINT «, l3=0x0b}
0x58d…5c2 Line {l1=0x33, l2=»0630 INPUT "SKAL DU PR0VE ENDNU ENGANG (J/N): ",SV$«, l3=0x33}
0x5c2…5d7 Line {l1=0x13, l2=»0640 UNTIL SV$<>"J"«, l3=0x13}
0x5d7…5e0 00 00 00 00 00 00 00 00 00 ┆ ┆
0x5e0…600 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x1e…]