|
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 - metrics - download
Length: 5056 (0x13c0)
Types: TextFile
Notes: Mikados TextFile, Mikados_K
Names: »PANTEBRE«
└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »PANTEBRE«
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
H0010 // ------------------------- pantebrev ----------------------------H▶0b◀0020 CLEAR ▶0b◀*0030 DIM S$ OF 14,MÅNED$ OF 3,FORMA$ OF 65*M0040 FORMA$:=" ######.## #########.## #########.## #########.##M 0050 PRINT "P A N T E B R E V ." 0060 PRINT "-------------------" ▶0b◀0070 PRINT ▶0b◀▶0b◀0080 PRINT ▶0b◀C0090 INPUT "Tast hovedstol: ":RESTC▶0b◀0100 PRINT ▶0b◀E0110 INPUT "Tast ydelse pr. termin: ":YDELSEE▶0b◀0120 PRINT ▶0b◀@0130 INPUT "Tast renten i % pr. termin: ":R@▶0b◀0140 PRINT ▶0b◀C0150 INPUT "Tast antal dage i 1. termin: ":DAGEC\f 0160 REPEAT \f ▶0b◀0170 PRINT ▶0b◀E0180 INPUT "Tast terminsmåneden for 1. termin (jun/dec) ":MÅNED$E(0190 UNTIL "'"+MÅNED$+"'" IN "'jun'dec'"(▶0b◀0200 PRINT ▶0b◀A0210 INPUT "Tast årstallet for 1. termin: ":ÅRA▶1a◀0220 IF MÅNED$="jun" THEN ▶1a◀▶12◀0230 MÅNED$:="JUN"▶12◀ 0240 ELSE ▶12◀0250 MÅNED$:="DEC"▶12◀▶0b◀0260 ENDIF ▶0b◀▶0b◀0270 CLEAR ▶0b◀▶1a◀0280 // select output"LP:"▶1a◀A0290 PRINT USING " Hovedstol: ############.##":RESTAC0300 PRINT USING " Ydelse pr. termin: ############.##":YDELSEC@0310 PRINT USING " Rente pr. termin: ###.## %":R@A0320 PRINT USING " Dage i 1. termin: ####":DAGEA▶0b◀0330 PRINT ▶0b◀▶0b◀0340 PRINT ▶0b◀J0350 PRINT " 1. termin: ";MÅNED$+" ";J▶1b◀0360 PRINT USING "#####":ÅR▶1b◀M0370 PRINT " ----------------------------------------------------M▶0b◀0380 PRINT ▶0b◀▶18◀0390 PRINT " ";▶18◀M0400 PRINT " TERMIN RENTE AFDRAG YDELSE"M▶1d◀0405 PRINT " RESTGÆLD"▶1d◀M0410 PRINT "---------------------------------------------------------------";M▶1d◀0415 PRINT "----------------"▶1d◀▶0b◀0420 PRINT ▶0b◀00430 RENTE:=INT(REST*R/100*DAGE/180*100+0.5)/100000440 DELYDELSE:=INT(YDELSE*DAGE/180*100+0.5)/1000▶1c◀0450 AFDRAG:=DELYDELSE-RENTE▶1c◀▶16◀0460 IF AFDRAG<0 THEN ▶16◀A0470 PRINT " Afdraget i 1. termin er negativt !!!!!"A 0480 STOP ▶0b◀0490 ENDIF ▶0b◀▶16◀0500 REST:=REST-AFDRAG▶16◀!0510 PRINT " ";MÅNED$;" ";!▶1c◀0520 PRINT USING "#####":ÅR,▶1c◀30530 PRINT USING FORMA$:RENTE,AFDRAG,DELYDELSE,REST3\f 0540 REPEAT \f ▶1a◀0550 IF MÅNED$="DEC" THEN ▶1a◀▶0b◀0560 PRINT ▶0b◀\r0570 ÅR:=ÅR+1\r▶12◀0580 MÅNED$:="JUN"▶12◀ 0590 ELSE ▶12◀0600 MÅNED$:="DEC"▶12◀▶0b◀0610 ENDIF ▶0b◀!0620 PRINT " ";MÅNED$;" ";!▶1c◀0630 PRINT USING "#####":ÅR,▶1c◀▶1f◀0640 RENTE:=INT(REST*R+0.5)/100▶1f◀▶19◀0650 AFDRAG:=YDELSE-RENTE▶19◀'0660 IF REST-AFDRAG<0 THEN AFDRAG:=REST'/0670 IF REST-AFDRAG=0 THEN YDELSE:=RENTE+AFDRAG/▶16◀0680 REST:=REST-AFDRAG▶16◀00690 PRINT USING FORMA$:RENTE,AFDRAG,YDELSE,REST0▶11◀0700 UNTIL REST=0▶11◀▶00◀▶00◀cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc