|
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)
Notes: Mikados TextFile, Mikados_K
Names: »RENTE«
└─⟦0ca3cf8fa⟧ Bits:30004600 DEMO1 - COMAL demoprogram
└─⟦this⟧ »RENTE«
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"