DataMuseum.dk

top - metrics - download

    Length: 2410 (0x96a)
    Notes: Mikados TextFile, Mikados_K
    Names: »PANTEBRE«

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

Text

0010 // ------------------------- pantebrev ----------------------------
0020 CLEAR 
0030 DIM S$ OF 14,MÅNED$ OF 3,FORMA$ OF 65
0040 FORMA$:="   ######.##    #########.##        #########.##   #########.##
0050 PRINT "P A N T E B R E V ."
0060 PRINT "-------------------"
0070 PRINT 
0080 PRINT 
0090 INPUT "Tast hovedstol:                                  ":REST
0100 PRINT 
0110 INPUT "Tast ydelse pr. termin:                          ":YDELSE
0120 PRINT 
0130 INPUT "Tast renten i % pr. termin:                      ":R
0140 PRINT 
0150 INPUT "Tast antal dage i 1. termin:                     ":DAGE
0160 REPEAT 
0170 PRINT 
0180 INPUT "Tast terminsmåneden for 1. termin  (jun/dec)     ":MÅNED$
0190 UNTIL "'"+MÅNED$+"'" IN "'jun'dec'"
0200 PRINT 
0210 INPUT "Tast årstallet for 1. termin:                    ":ÅR
0220 IF MÅNED$="jun" THEN 
0230 MÅNED$:="JUN"
0240 ELSE 
0250 MÅNED$:="DEC"
0260 ENDIF 
0270 CLEAR 
0280 // select output"LP:"
0290 PRINT USING "     Hovedstol:           ############.##":REST
0300 PRINT USING "     Ydelse pr. termin:   ############.##":YDELSE
0310 PRINT USING "     Rente pr. termin:             ###.## %":R
0320 PRINT USING "     Dage i 1. termin:               ####":DAGE
0330 PRINT 
0340 PRINT 
0350 PRINT "               1. termin:                       ";MÅNED$+"  ";
0360 PRINT USING "#####":ÅR
0370 PRINT "             ----------------------------------------------------
0380 PRINT 
0390 PRINT "          ";
0400 PRINT "        TERMIN         RENTE          AFDRAG              YDELSE"
0405 PRINT "        RESTGÆLD"
0410 PRINT "---------------------------------------------------------------";
0415 PRINT "----------------"
0420 PRINT 
0430 RENTE:=INT(REST*R/100*DAGE/180*100+0.5)/100
0440 DELYDELSE:=INT(YDELSE*DAGE/180*100+0.5)/100
0450 AFDRAG:=DELYDELSE-RENTE
0460 IF AFDRAG<0 THEN 
0470 PRINT "              Afdraget i 1. termin er negativt !!!!!"
0480 STOP 
0490 ENDIF 
0500 REST:=REST-AFDRAG
0510 PRINT "       ";MÅNED$;"  ";
0520 PRINT USING "#####":ÅR,
0530 PRINT USING FORMA$:RENTE,AFDRAG,DELYDELSE,REST
0540 REPEAT 
0550 IF MÅNED$="DEC" THEN 
0560 PRINT 
0570 ÅR:=ÅR+1
0580 MÅNED$:="JUN"
0590 ELSE 
0600 MÅNED$:="DEC"
0610 ENDIF 
0620 PRINT "       ";MÅNED$;"  ";
0630 PRINT USING "#####":ÅR,
0640 RENTE:=INT(REST*R+0.5)/100
0650 AFDRAG:=YDELSE-RENTE
0660 IF REST-AFDRAG<0 THEN AFDRAG:=REST
0670 IF REST-AFDRAG=0 THEN YDELSE:=RENTE+AFDRAG
0680 REST:=REST-AFDRAG
0690 PRINT USING FORMA$:RENTE,AFDRAG,YDELSE,REST
0700 UNTIL REST=0