|
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: 5056 (0x13c0)
Types: TextFile
Notes: Mikados_K
Names: »PANTEBRE.K«
└─⟦4cd80c18f⟧ Bits:30003895/4xCOMAL3a.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »PANTEBRE.K«
└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »PANTEBRE.K«
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
0x0000…004a Line {l1=0x48, l2=»0010 // ------------------------- pantebrev ----------------------------«, l3=0x48}
0x004a…0057 Line {l1=0x0b, l2=»0020 CLEAR «, l3=0x0b}
0x0057…0083 Line {l1=0x2a, l2=»0030 DIM S$ OF 14,MÅNED$ OF 3,FORMA$ OF 65«, l3=0x2a}
0x0083…00d2 Line {l1=0x4d, l2=»0040 FORMA$:=" ######.## #########.## #########.## #########.##«, l3=0x4d}
0x00d2…00f4 Line {l1=0x20, l2=»0050 PRINT "P A N T E B R E V ."«, l3=0x20}
0x00f4…0116 Line {l1=0x20, l2=»0060 PRINT "-------------------"«, l3=0x20}
0x0116…0123 Line {l1=0x0b, l2=»0070 PRINT «, l3=0x0b}
0x0123…0130 Line {l1=0x0b, l2=»0080 PRINT «, l3=0x0b}
0x0130…0175 Line {l1=0x43, l2=»0090 INPUT "Tast hovedstol: ":REST«, l3=0x43}
0x0175…0182 Line {l1=0x0b, l2=»0100 PRINT «, l3=0x0b}
0x0182…01c9 Line {l1=0x45, l2=»0110 INPUT "Tast ydelse pr. termin: ":YDELSE«, l3=0x45}
0x01c9…01d6 Line {l1=0x0b, l2=»0120 PRINT «, l3=0x0b}
0x01d6…0218 Line {l1=0x40, l2=»0130 INPUT "Tast renten i % pr. termin: ":R«, l3=0x40}
0x0218…0225 Line {l1=0x0b, l2=»0140 PRINT «, l3=0x0b}
0x0225…026a Line {l1=0x43, l2=»0150 INPUT "Tast antal dage i 1. termin: ":DAGE«, l3=0x43}
0x026a…0278 Line {l1=0x0c, l2=»0160 REPEAT «, l3=0x0c}
0x0278…0285 Line {l1=0x0b, l2=»0170 PRINT «, l3=0x0b}
0x0285…02cc Line {l1=0x45, l2=»0180 INPUT "Tast terminsmåneden for 1. termin (jun/dec) ":MÅNED$«, l3=0x45}
0x02cc…02f6 Line {l1=0x28, l2=»0190 UNTIL "'"+MÅNED$+"'" IN "'jun'dec'"«, l3=0x28}
0x02f6…0303 Line {l1=0x0b, l2=»0200 PRINT «, l3=0x0b}
0x0303…0346 Line {l1=0x41, l2=»0210 INPUT "Tast årstallet for 1. termin: ":ÅR«, l3=0x41}
0x0346…0362 Line {l1=0x1a, l2=»0220 IF MÅNED$="jun" THEN «, l3=0x1a}
0x0362…0376 Line {l1=0x12, l2=»0230 MÅNED$:="JUN"«, l3=0x12}
0x0376…0382 Line {l1=0x0a, l2=»0240 ELSE «, l3=0x0a}
0x0382…0396 Line {l1=0x12, l2=»0250 MÅNED$:="DEC"«, l3=0x12}
0x0396…03a3 Line {l1=0x0b, l2=»0260 ENDIF «, l3=0x0b}
0x03a3…03b0 Line {l1=0x0b, l2=»0270 CLEAR «, l3=0x0b}
0x03b0…03cc Line {l1=0x1a, l2=»0280 // select output"LP:"«, l3=0x1a}
0x03cc…040f Line {l1=0x41, l2=»0290 PRINT USING " Hovedstol: ############.##":REST«, l3=0x41}
0x040f…0454 Line {l1=0x43, l2=»0300 PRINT USING " Ydelse pr. termin: ############.##":YDELSE«, l3=0x43}
0x0454…0496 Line {l1=0x40, l2=»0310 PRINT USING " Rente pr. termin: ###.## %":R«, l3=0x40}
0x0496…04d9 Line {l1=0x41, l2=»0320 PRINT USING " Dage i 1. termin: ####":DAGE«, l3=0x41}
0x04d9…04e6 Line {l1=0x0b, l2=»0330 PRINT «, l3=0x0b}
0x04e6…04f3 Line {l1=0x0b, l2=»0340 PRINT «, l3=0x0b}
0x04f3…053f Line {l1=0x4a, l2=»0350 PRINT " 1. termin: ";MÅNED$+" ";«, l3=0x4a}
0x053f…055c Line {l1=0x1b, l2=»0360 PRINT USING "#####":ÅR«, l3=0x1b}
0x055c…05ab Line {l1=0x4d, l2=»0370 PRINT " ----------------------------------------------------«, l3=0x4d}
0x05ab…05b8 Line {l1=0x0b, l2=»0380 PRINT «, l3=0x0b}
0x05b8…05d2 Line {l1=0x18, l2=»0390 PRINT " ";«, l3=0x18}
0x05d2…0621 Line {l1=0x4d, l2=»0400 PRINT " TERMIN RENTE AFDRAG YDELSE"«, l3=0x4d}
0x0621…0640 Line {l1=0x1d, l2=»0405 PRINT " RESTGÆLD"«, l3=0x1d}
0x0640…068f Line {l1=0x4d, l2=»0410 PRINT "---------------------------------------------------------------";«, l3=0x4d}
0x068f…06ae Line {l1=0x1d, l2=»0415 PRINT "----------------"«, l3=0x1d}
0x06ae…06bb Line {l1=0x0b, l2=»0420 PRINT «, l3=0x0b}
0x06bb…06ed Line {l1=0x30, l2=»0430 RENTE:=INT(REST*R/100*DAGE/180*100+0.5)/100«, l3=0x30}
0x06ed…071f Line {l1=0x30, l2=»0440 DELYDELSE:=INT(YDELSE*DAGE/180*100+0.5)/100«, l3=0x30}
0x071f…073d Line {l1=0x1c, l2=»0450 AFDRAG:=DELYDELSE-RENTE«, l3=0x1c}
0x073d…0755 Line {l1=0x16, l2=»0460 IF AFDRAG<0 THEN «, l3=0x16}
0x0755…0798 Line {l1=0x41, l2=»0470 PRINT " Afdraget i 1. termin er negativt !!!!!"«, l3=0x41}
0x0798…07a4 Line {l1=0x0a, l2=»0480 STOP «, l3=0x0a}
0x07a4…07b1 Line {l1=0x0b, l2=»0490 ENDIF «, l3=0x0b}
0x07b1…07c9 Line {l1=0x16, l2=»0500 REST:=REST-AFDRAG«, l3=0x16}
0x07c9…07ec Line {l1=0x21, l2=»0510 PRINT " ";MÅNED$;" ";«, l3=0x21}
0x07ec…080a Line {l1=0x1c, l2=»0520 PRINT USING "#####":ÅR,«, l3=0x1c}
0x080a…083f Line {l1=0x33, l2=»0530 PRINT USING FORMA$:RENTE,AFDRAG,DELYDELSE,REST«, l3=0x33}
0x083f…084d Line {l1=0x0c, l2=»0540 REPEAT «, l3=0x0c}
0x084d…0869 Line {l1=0x1a, l2=»0550 IF MÅNED$="DEC" THEN «, l3=0x1a}
0x0869…0876 Line {l1=0x0b, l2=»0560 PRINT «, l3=0x0b}
0x0876…0885 Line {l1=0x0d, l2=»0570 ÅR:=ÅR+1«, l3=0x0d}
0x0885…0899 Line {l1=0x12, l2=»0580 MÅNED$:="JUN"«, l3=0x12}
0x0899…08a5 Line {l1=0x0a, l2=»0590 ELSE «, l3=0x0a}
0x08a5…08b9 Line {l1=0x12, l2=»0600 MÅNED$:="DEC"«, l3=0x12}
0x08b9…08c6 Line {l1=0x0b, l2=»0610 ENDIF «, l3=0x0b}
0x08c6…08e9 Line {l1=0x21, l2=»0620 PRINT " ";MÅNED$;" ";«, l3=0x21}
0x08e9…0907 Line {l1=0x1c, l2=»0630 PRINT USING "#####":ÅR,«, l3=0x1c}
0x0907…0928 Line {l1=0x1f, l2=»0640 RENTE:=INT(REST*R+0.5)/100«, l3=0x1f}
0x0928…0943 Line {l1=0x19, l2=»0650 AFDRAG:=YDELSE-RENTE«, l3=0x19}
0x0943…096c Line {l1=0x27, l2=»0660 IF REST-AFDRAG<0 THEN AFDRAG:=REST«, l3=0x27}
0x096c…099d Line {l1=0x2f, l2=»0670 IF REST-AFDRAG=0 THEN YDELSE:=RENTE+AFDRAG«, l3=0x2f}
0x099d…09b5 Line {l1=0x16, l2=»0680 REST:=REST-AFDRAG«, l3=0x16}
0x09b5…09e7 Line {l1=0x30, l2=»0690 PRINT USING FORMA$:RENTE,AFDRAG,YDELSE,REST«, l3=0x30}
0x09e7…09fa Line {l1=0x11, l2=»0700 UNTIL REST=0«, l3=0x11}
0x09fa…0a00 00 00 63 63 63 63 ┆ cccc┆
0x0a00…0a20 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┆
[…0x4d…]
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