|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 6528 (0x1980)
Types: TextFile
Names: »PENGE.SCL«, »PENGE1.SCL«
└─⟦216f59cd8⟧ Bits:30002641 SCANLOG - Piccoline vers. nov. 87
└─⟦this⟧ »PENGE.SCL«
└─⟦this⟧ »PENGE1.SCL«
; Kurt Fleckner 1. aug. 1985
;
; Regler til beregning af børnepenge
;
børnepenge(Navn,Resultat) hvis
alder(Navn,Antal_år),
Antal_år < 16,
alm_tilskud(Navn,Penge_1),
tillæg(Navn,Penge_2),
særlig_tilskud(Navn,Penge_3) og
Resultat = værdi_af(Penge_1+Penge_2+Penge_3).
børnepenge(Navn,Resultat) hvis
alder(Navn,Antal_år),
Antal_år > 15,
Antal_år < 18 og
særlig_tilskud(Navn,Resultat).
;
alm_tilskud(Navn,Resultat) hvis
ikke(paragraf_2_2(Navn)) og
Resultat = 1568.
alm_tilskud(Navn,Resultat) hvis
paragraf_2_2(Navn) og
Resultat = 2361.
;
paragraf_2_2(Navn) hvis
paragraf_2_2_1(Navn).
paragraf_2_2(Navn) hvis
paragraf_2_2_2(Navn).
paragraf_2_2(Navn) hvis
paragraf_2_2_3(Navn).
;
paragraf_2_2_1(Navn) hvis
enligt_forsørget(Navn).
paragraf_2_2_2(Navn) hvis
levende_forældre(Navn,2),
pension(Navn,mor) og
pension(Navn,far).
paragraf_2_2_3(Navn) hvis
levende_forældre(Navn,Antal),
Antal <> 0 og
bortfald_af_pension(Navn,X).
;
;
tillæg(Navn,Resultat) hvis
paragraf_2_2_1(Navn) og
Resultat = 1804.
tillæg(Navn,Resultat) hvis
ikke(paragraf_2_2_1(Navn)) og
Resultat = 0.
;
;
særlig_tilskud(Navn,Resultat) hvis
paragraf_4_2(Navn) og
Resultat = 5520.
særlig_tilskud(Navn,Resultat) hvis
paragraf_4_3(Navn) og
Resultat = 3336.
særlig_tilskud(Navn,Resultat) hvis
paragraf_4_4(Navn) og
Resultat = værdi_af(3336/2).
særlig_tilskud(Navn,Resultat) hvis
ikke(paragraf_4_2(Navn)),
ikke(paragraf_4_3(Navn)),
ikke(paragraf_4_4(Navn)) og
Resultat = 0.
;
paragraf_4_2(Navn) hvis
levende_forældre(Navn,0).
;
paragraf_4_3(Navn) hvis
paragraf_4_3_1(Navn).
paragraf_4_3(Navn) hvis
paragraf_4_3_2(Navn).
paragraf_4_3(Navn) hvis
paragraf_4_3_3(Navn).
paragraf_4_3(Navn) hvis
paragraf_4_3_4(Navn).
paragraf_4_3(Navn) hvis
paragraf_4_3_5(Navn).
;
paragraf_4_3_1(Navn) hvis
udenfor_ægteskab(Navn) og
ingen_faderskab(Navn).
paragraf_4_3_1(Navn) hvis
udenfor_ægteskab(Navn) og
ingen_bidragspligtig(Navn).
paragraf_4_3_2(Navn) hvis
levende_forældre(Navn,1).
paragraf_4_3_3(Navn) hvis
levende_forældre(Navn,0) og
adopteret(Navn).
paragraf_4_3_4(Navn) hvis
levende_forældre(Navn,Antal),
Antal <> 0 og
folkepension(Navn,X).
paragraf_4_3_4(Navn) hvis
levende_forældre(Navn,Antal),
Antal <> 0,
invalidepension(Navn,X,Paragraf) og
Paragraf <> 4.
paragraf_4_3_5(Navn) hvis
bortfald_af_pension(Navn,X) og
ikke(bortfald_af_pension(Navn,Y) og X <> Y).
;
paragraf_4_4(Navn) hvis
ikke(paragraf_4_3(Navn)),
invalidepension(Navn,X,Paragraf),
Paragraf = 4 og
ikke(invalidepension(Navn,Y,Paragraf2),Y <> X og Paragraf2 = 4).
;
pension(Navn,X) hvis
folkepension(Navn,X).
pension(Navn,X) hvis
invalidepension(Navn,X,Paragraf).
ny_person hvis
skriv('Indlæsning af person data til beregning af børnepenge '),
nylinie,
skriv('Afslut hvert svar med Tegn Ind'),
nylinie,
skriv('Hvad er personens navn (med små bogstaver) '),
læs(Navn),
skriv('Hvad er personens alder '),
læs(Alder),
husk(alder(Navn,Alder)),
skriv('Er barnet enligt forsørget (ja/nej) '),
læs(Enlig),
h_enlig(Navn,Enlig),
skriv('Antal levende forældre (0/1/2) '),
læs(Foræ),
husk(levende_forældre(Navn,Foræ)) og
fortsæt(Navn,Foræ).
fortsæt(Navn,Foræ) hvis
skriv('Er barnet født udenfor ægteskab (ja/nej) '),
læs(UÆ),
h_ude(Navn,UÆ),
skriv('Er faderskabet fastslået (ja/nej) '),
læs(FF),
h_ff(Navn,FF),
skriv('Er nogen bidragspligtig til barnet (ja/nej) '),
læs(BP),
h_bp(Navn,BP),
opdel(Navn,Foræ) og
skriv('Slut på indlæsning').
opdel(Navn,0) hvis
skriv('Er barnet adopteret (ja/nej) '),
læs(Ad) og
h_ad(Navn,Ad).
opdel(Navn,1) hvis
læs_pers(Navn,forældren).
opdel(Navn,2) hvis
læs_pers(Navn,far) og
læs_pers(Navn,mor).
opdel(Navn,Z) hvor
Z <> 0,
Z <> 1 og
Z <> 2 hvis
skriv(Z,' er tolket som 2 '),
nylinie og
opdel(Navn,2).
h_ad(Navn,ja) hvis
husk(adopteret(Navn)).
h_ad(Navn,nej).
h_ad(Navn,X) hvor
X <> ja og
X <> nej hvis
skriv(X,' er tolket som nej').
h_enlig(N,ja) hvis
husk(enligt_forsørget(N)).
h_enlig(N,nej).
h_enlig(N,X) hvor
X <> nej og
X <> ja hvis
skriv(X,' er tolket som nej') og
nylinie.
h_ude(Navn,ja) hvis
husk(udenfor_ægteskab(Navn)).
h_ude(Navn,nej).
h_ude(Navn,X) hvor
X <> nej og
X <> ja hvis
skriv(X,' er tolket som nej') og
nylinie.
h_ff(N,ja).
h_ff(Navn,S) hvor
S = nej hvis
husk(ingen_faderskab(Navn)).
h_ff(Navn,S) hvor
(S <> ja) og
(S <> nej) hvis
skriv(S,' er tolket som nej '),
nylinie og
husk(ingen_faderskab(Navn)).
h_bp(Navn,ja).
h_bp(Navn,S) hvor
S = nej hvis
husk(ingen_bidragspligtig(Navn)).
h_bp(Navn,S) hvor
(S <> ja) og
(S <> nej) hvis
skriv(S,' er tolket som nej'),
nylinie og
husk(ingen_bidragspligtig(Navn)).
læs_pers(Navn,H) hvis
skriv('Har ',H,' bortfald af pension (ja/nej) '),
læs(HH) og
l1(Navn,H,HH).
l1(Navn,H,ja) hvis
husk(bortfald_af_pension(Navn,H)).
l1(Navn,H,X) hvis
skriv('Får ',H,' folkepension (ja/nej) '),
læs(FP) og
l2(Navn,H,FP).
l2(Navn,H,ja) hvis
husk(folkepension(Navn,H)).
l2(Navn,H,X) hvis
skriv('Får ',H,' invalidepension (ja/nej) '),
læs(IP) og
h_ip(Navn,H,IP).
h_ip(Navn,H,nej).
h_ip(Navn,H,S) hvor
(S <> nej) og
(S <> ja) hvis
skriv(S,' er tolket som nej') og
nylinie.
h_ip(Navn,H,ja) hvis
skriv('Efter hvilken paragraf (2/3/4) '),
læs(P) og
husk(invalidepension(Navn,H,P)).
alder(siigurd,8).
alder(ingeborg,3).
alder(anne_line,14).
levende_forældre(siigurd,1).
levende_forældre(ingeborg,0).
levende_forældre(anne_line,2).
udenfor_ægteskab(ingeborg).
udenfor_ægteskab(anne_line).
enligt_forsørget(ingeborg).
ingen_faderskab(ingeborg).
ingen_bidragspligtig(ingeborg).
adopteret(ingeborg).
invalidepension(siigurd,forældren,4).
«eof»