DataMuseum.dk

Presents historical artifacts from the history of:

MIKADOS

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about MIKADOS

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦329a6f8ff⟧ TextFile

    Length: 27808 (0x6ca0)
    Types: TextFile
    Notes: Mikados_K
    Names: »SKAT85.K«

Derivation

└─⟦fe8d363bb⟧ Bits:30004640 EASY-Skat 1985 (MIKADOS)
    └─⟦this⟧ »SKAT85.K«

Mikados K File

0010 INTEGER X,PR,Y,F8,FE,G,T0,T1,T2,T3,T4,O,W
0015 CLEAR 
0020 STATUS,G1,B7,B8,U2,F0,F7,T,TKB,TKH,B3,C0,BD6,C6,F0,F7,OV,HS:=0
0025 AKT,SKG,D6,HFORMUE,BFORMUE,B6,HC3,BC3,HATP,BATP,GSLUT,FSLUT,F1,F2:=0
0030 T0,T1,T2,T3,T4,O:=0
0035 DIM A1$(29) OF 29,A(29),H(23),K(23),LI$ OF 80,QT$ OF 80,S$ OF 80
0040 DIM FIL$ OF 15,PIL$ OF 45,SP$ OF 40,REV$ OF 80,ADR$ OF 80,HKL$ OF 38
0045 DIM BKL$ OF 38,NU$ OF 9
0050 LI$:="";PIL$:="";SP$:="";NU$:="#########";W:=100;GEMAFR:=O
0055 REV$:="Revisor Kaja Jensen"
0060 ADR$:="Lysholmvej 14, 2650 Hvidovre, (01)784852"
0065 FOR X:=1 TO 78 DO 
0070 LI$:=LI$+"-";PIL$:=PIL$+".";SP$:=SP$+" "
0075 NEXT X
0080 F8,T4,G:=O;T2:=2
0085 FIL$:="dde:skatsys"
0090 OPEN FIL$,R
0095 GET FIL$:SYS
0100 CLOSE FIL$
0105 IF SYS=1 THEN 
0110 OPEN FIL$,W
0115 SYS:=O
0120 PUT FIL$:SYS
0125 CLOSE FIL$
0130 FIL$:="dde:hskvar"
0135 OPEN FIL$,R
0140 FOR X:=1 TO 29 DO 
0145 GET FIL$:A(X)
0150 IF X<24 THEN GET FIL$:H(X),K(X)
0155 NEXT X
0160 GET FIL$:F8,T1,T2,T4
0165 CLOSE FIL$
0170 FIL$:="dde:fvar"
0175 OPEN FIL$,R
0180 GET FIL$:PR,C4,HD6,C9,B0,T1,TKH,F6,F1
0185 GET FIL$:F9,P1,P7,P8,P9,T0,B2,B1,B9
0190 GET FIL$:T2,C6,BD6,C0,B3,E6,F2,T3,TKB
0195 GET FIL$:F0,F7,SKG,AKT,D6,GSLUT
0200 GET FIL$:HFORMUE,BFORMUE,HATP,BATP,G,FSLUT
0205 GET FIL$:HKL$,BKL$
0210 CLOSE FIL$
0215 EXEC FORTSÆT
0220 ELSE 
0225 PRINT TAB(29);">>> EASY - SKAT <<<"
0230 FIL$:="DDE:skatvejl"
0235 OPEN FIL$,R
0240 EXEC LFIL
0245 EXEC RETURN
0250 ENDIF 
0255 X:=O
0260 OPEN "dde:skatart",R
0265 REPEAT 
0270 X:=X+1
0275 GET "dde:skatart":A1$(X)
0280 UNTIL STATUS("dde:skatart")=19 OR STATUS("dde:skatart")>O OR X=29
0285 CLOSE 
0290 E1:=28;F3:=64000;F4:=70999;F5:=1985;P1:=111300;P2:=182600
0295 P3:=22700;P4:=20300;P5:=43900;P6:=24000;P0:=3.5;PA0:=2
0300 U1:=.9;U2:=1229200;M1:=112700
0305 REPEAT 
0310 REPEAT 
0315 START:
0320 E8,E9,E6,C5,B9,AR,BD1,BD2,BDA2,BD3,BD4,BD5,BD6,E4,E7,E5,D8,E2:=O
0325 IF T4=1 THEN T2:=1
0330 IF F8<>1 THEN EXEC NULSTIL2
0335 IF F8=1 THEN EXEC SÆTATILH
0340 REPEAT 
0345 REPEAT 
0350 FE:=O;QT$:=" HOVEPERSONEN ";A(24):=HFORMUE
0355 EXEC INDKOMST
0360 HFORMUE:=B6;A(24):=O
0365 EXEC FEJLMED
0370 EXEC FEJL
0375 UNTIL FE<>1
0380 F6:=A(12);F9:=A(11)*(30/W)
0385 EXEC SÆTHTILA
0390 EXEC REGN1
0395 IF G<>1 THEN 
0400 PRINT "Er hovedpersonen tilkendt enke-, folke- eller invalidepension,"
0405 PRINT "dvs. har ret til personfradrag som pensionist";
0410 EXEC SVAR
0415 T1:=O
0420 IF S$="j" THEN 
0425 T1:=2
0430 PRINT "Er hovedpersonen fyldt 67 år ved indkomstårets begyndelse";
0435 EXEC SVAR
0440 IF S$="j" THEN T1:=1
0445 ENDIF 
0450 ENDIF 
0455 IF T1=1 THEN 
0460 IF G=1 THEN ATP:=HATP
0465 EXEC INDATP
0470 HC3:=C3+C5;HATP:=ATP
0475 ENDIF 
0480 B0:=A(1);B1:=C1;B2:=C2;C4:=C7;PR:=O;C3:=O
0485 IF T1=1 THEN C3:=HC3
0490 EXEC SKATIND
0495 PRINT 
0500 PRINT "Ønskes rettelser til ovenstående";
0505 EXEC SVAR
0510 CLEAR 
0515 UNTIL S$="n"
0520 IF G<>1 THEN 
0525 PRINT "Skal der foretages beregning af en ægtefælle (gift kvinde)";
0530 EXEC SVAR
0535 EXEC NULSTIL2
0540 T2:=O
0545 IF S$="j" THEN 
0550 PRINT "Har ægtefællerne været gift hele kalenderåret";
0555 EXEC SVAR
0560 T2:=2;T4:=O
0565 IF S$="j" THEN T2:=1;T4:=1
0570 IF F8=1 THEN EXEC SÆTATILK
0575 ENDIF 
0580 ELSE 
0585 IF T2<>O THEN 
0590 EXEC NULSTIL2
0595 IF F8=1 THEN EXEC SÆTATILK
0600 ENDIF 
0605 ENDIF 
0610 IF T2<>O THEN 
0615 REPEAT 
0620 REPEAT 
0625 FE:=O;QT$:=" DEN GIFTE KVINDE ";A(24):=BFORMUE
0630 EXEC INDKOMST
0635 BFORMUE:=B6;A(24):=O
0640 EXEC FEJLMED
0645 EXEC FEJL
0650 UNTIL FE<>1
0655 F7:=A(12);F0:=A(11)*(30/W)
0660 EXEC SÆTKTILA
0665 EXEC REGN1
0670 EXEC TTEST
0675 EXEC FEJL
0680 IF FE=1 THEN 
0685 FE:=O;F8:=1
0690 GO TO START
0695 ENDIF 
0700 IF G<>1 THEN 
0705 PRINT "Er den gifte kvinde tilkendt enke-, folke- eller invalidepension"
0710 PRINT "dvs. har ret til personfradrag som pensionist";
0715 EXEC SVAR
0720 T3:=O
0725 IF S$="j" THEN 
0730 T3:=2
0735 PRINT "Er den gifte kvinde fyldt 67 år ved indkomstårets begyndelse";
0740 EXEC SVAR
0745 IF S$="j" THEN T3:=1
0750 ENDIF 
0755 ENDIF 
0760 IF T3=1 THEN 
0765 IF G=1 THEN ATP:=BATP
0770 EXEC INDATP
0775 BC3:=C3+C5;BATP:=ATP
0780 ENDIF 
0785 B3:=A(1);B4:=C1;B5:=C2;C6:=C7;PR:=O
0790 IF C6<O THEN C6:=O
0795 C3:=O
0800 IF T3=1 THEN C3:=BC3
0805 EXEC SKATIND
0810 PRINT 
0815 PRINT "Ønskes rettelser til ovenstående";
0820 EXEC SVAR
0825 CLEAR 
0830 UNTIL S$="n"
0835 ENDIF 
0840 IF C4<O THEN C4:=O
0845 IF T2=O THEN EXEC FORMUE
0850 IF T2<>O THEN EXEC ÆFORMUE
0855 IF G<>1 THEN 
0860 INPUT "Skriv kommuneskatteprocent: ":P7
0865 PRINT LI$
0870 INPUT "Skriv den amtskommunale skatteprocent: ":P8
0875 PRINT LI$
0880 INPUT "Skriv kirkeskatteprocenten: ":P9
0885 PRINT LI$
0890 PRINT "Ønskes klientens navn anvendt i opgørelsen i stedet for HOVED";
0895 PRINT "PERSONEN og GIFT"
0900 PRINT "KVINDE";
0905 EXEC SVAR
0910 HKL$:="HOVEDPERSONEN";BKL$:="DEN GIFTE KVINDE"
0915 IF S$="j" THEN 
0920 INPUT "Skriv hovedpersonens navn    ":HKL$
0925 IF T2<>O THEN INPUT "Skriv den gifte kvindes navn ":BKL$
0930 PRINT LI$
0935 ENDIF 
0940 ENDIF 
0945 IF T2=1 THEN EXEC REGN3
0950 IF T2<>1 THEN 
0955 EXEC REGN4
0960 IF T2=2 THEN EXEC REGN5
0965 ELSE 
0970 EXEC REGN6
0975 ENDIF 
0980 EXEC REGN7
0985 IF T2=O AND B7>U2+99 THEN EXEC REGN8
0990 IF T4=1 AND B7+B8>U2+99 THEN EXEC REGN9
0995 IF T2=2 AND T4=O AND B7>U2+99 THEN 
1000 EXEC REGN8
1005 HB9:=B9;HB7:=B7
1010 ENDIF 
1015 IF T2=2 AND T4=O AND B8>U2+99 THEN 
1020 B7:=B8
1025 EXEC REGN8
1030 E6:=B9;B9:=HB9;B7:=HB7
1035 ENDIF 
1040 PRINT "Ønskes der print af beregningerne";
1045 EXEC SVAR
1050 PR:=O
1055 IF S$="j" THEN PR:=1
1060 FOR Y:=1 TO PR+1 DO 
1065 IF Y=2 THEN OUTPUT "P"
1070 EXEC SIDESKIFT
1075 EXEC SÆTATILH
1080 QT$:="INDKOMSTOPGØRELSE FOR "+HKL$+":"
1085 C3:=O
1090 IF T1=1 THEN C3:=HC3
1095 C1:=B1;C2:=B2;B6:=HFORMUE
1100 EXEC SKATIND
1105 EXEC SKIFT
1110 EXEC REGN10
1115 EXEC SKAT
1120 EXEC INDSKAT
1125 FS:=B9
1130 EXEC FSKAT
1135 EXEC SIDESKIFT
1140 IF T2<>O THEN 
1145 EXEC SÆTATILK
1150 QT$:="INDKOMSTOPGØRELSE FOR "+BKL$+":"
1155 C3:=O
1160 IF T3=1 THEN C3:=BC3
1165 C1:=B4;C2:=B5;B6:=BFORMUE
1170 EXEC SKATIND
1175 EXEC SKIFT
1180 EXEC REGN22
1185 EXEC SKAT
1190 EXEC INDSKAT
1195 FS:=E6
1200 EXEC FSKAT
1205 EXEC SIDESKIFT
1210 ENDIF 
1215 EXEC SKATPRO
1220 EXEC SKIFT
1225 NEXT Y
1230 OUTPUT "T"
1235 PRINT LI$
1240 PRINT "Ønskes beregning af forskudsregistrering, d.v.s skattekort ";
1245 PRINT "m.v.";
1250 EXEC SVAR
1255 IF S$="j" THEN 
1260 PRINT "*** VENT **** FORSKUDSREGISTREINGS PROGRAMMET INDLÆSES ***"
1265 EXEC PROGRAMSKIFT
1270 CHAIN "dde:forsk85"
1275 ENDIF 
1280 PRINT "Ønskes årsopgørelse udskrevet";
1285 EXEC SVAR
1290 IF S$="j" THEN 
1295 PRINT "*** VENT **** ÅRSOPGØRELSES PROGRAMMET INDLÆSES ***"
1300 EXEC PROGRAMSKIFT
1305 CHAIN "DDE:ÅRSOP85"
1310 ENDIF 
1315 EXEC FORTSÆT
1320 UNTIL F8<>1
1325 T2:=2;T4:=O;GSLUT,HFORMUE,BFORMUE:=O
1330 UNTIL 1<>1
1335 PROC PROGRAMSKIFT
1340 FIL$:="dde:fvar"
1345 OPEN FIL$,W
1350 PUT FIL$:PR,C4,HD6,C9,B0,T1,TKH,F6,F1
1355 PUT FIL$:F9,P1,P7,P8,P9,T0,B2,B1,B9
1360 PUT FIL$:T2,C6,BD6,C0,B3,E6,F2,T3,TKB
1365 PUT FIL$:F0,F7,SKG,AKT,D6,GSLUT
1370 PUT FIL$:HFORMUE,BFORMUE,HATP,BATP,G,FSLUT
1375 PUT FIL$:HKL$,BKL$
1380 CLOSE FIL$
1385 FIL$:="dde:hskvar"
1390 OPEN FIL$,W
1395 FOR X:=1 TO 29 DO 
1400 PUT FIL$:A(X)
1405 IF X<24 THEN PUT FIL$:H(X),K(X)
1410 NEXT X
1415 PUT FIL$:F8,T1,T2,T4
1420 CLOSE FIL$
1425 ENDPROC PROGRAMSKIFT
1430 PROC FORTSÆT
1435 CLEAR 
1440 PRINT "*** BEREGNINGEN ER GENNEMFØRT *** Ønskes de indtastede"
1445 PRINT "indkomster/fradrag bevaret til en ny beregning";
1450 EXEC SVAR
1455 G,F8:=O;FSLUT:=O
1460 IF S$="j" THEN 
1465 F8:=1;FSLUT:=1
1470 PRINT "Ønskes alle andre forudsætninger for beregningerne bevaret";
1475 EXEC SVAR
1480 IF S$="j" THEN G:=1
1485 ENDIF 
1490 ENDPROC FORTSÆT
1495 PROC REGN20
1500 HD1:=D1;HD2:=D2;HDA2:=DA2;HD3:=D3;HD4:=D4;HD5:=D5;HD6:=D6
1505 ENDPROC REGN20
1510 PROC REGN10
1515 D1:=HD1;D2:=HD2;DA2:=HDA2;D3:=HD3;D4:=HD4;D5:=HD5;D6:=HD6
1520 ENDPROC REGN10
1525 PROC REGN21
1530 BD1:=D1;BD2:=D2;BDA2:=DA2;BD3:=D3;BD4:=D4;BD5:=D5;BD6:=D6
1535 ENDPROC REGN21
1540 PROC REGN22
1545 D1:=BD1;D2:=BD2;DA2:=BDA2;D3:=BD3;D4:=BD4;D5:=BD5;D6:=BD6
1550 ENDPROC REGN22
1555 PROC LFIL
1560 REPEAT 
1565 GET FIL$:S$
1570 IF STATUS(FIL$)=O THEN PRINT S$
1575 UNTIL STATUS(FIL$)=19
1580 CLOSE FIL$
1585 ENDPROC LFIL
1590 PROC SKÆRM
1595 A1$(24):="24. FORMUE "+PIL$(1:18)
1600 FOR X:=1 TO 12 DO 
1605 PRINT A1$(X);
1610 IF A(X)<>O THEN PRINT USING NU$:A(X);
1615 PRINT TAB(42);A1$(X+12);
1620 IF A(X+12)<>O THEN PRINT USING NU$:A(X+12);
1625 PRINT 
1630 NEXT X
1635 ENDPROC SKÆRM
1640 PROC INDKOMST
1645 CLEAR 
1650 PRINT TAB(29);">>> EASY - SKAT <<<"
1655 PRINT TAB(20);"*** INDDATERING TIL ";QT$;" ***"
1660 PRINT "Nr. Indkomst";TAB(33);"Beløb";TAB(42);"Nr. Fradrag";TAB(74);
1665 PRINT "Beløb"
1670 PRINT 
1675 EXEC SKÆRM
1680 REPEAT 
1685 REPEAT 
1690 B6:=A(24)
1695 CURSOR 1,20
1700 INPUT "Skriv nummer på indkomst/fradrag (1 til 24, 0 for slut) ----> ":N
1705 IF N>24 THEN PRINT "*** Nummeret skal være fra 1 til 24 ***";CHR$(7)
1710 UNTIL N<25
1715 IF N=2 OR N=8 OR N=18 OR N=19 THEN 
1720 EXEC WIN
1725 ELSE 
1730 IF N<>O THEN 
1735 PRINT "Skriv beløbets størelse "+LI$(1:36)+">";
1740 INPUT " ":A(N)
1745 IF N=11 THEN 
1750 A(12):=INT(A(11)*25/W)
1755 CURSOR 30,16
1760 PRINT USING NU$:A(12)
1765 ENDIF 
1770 ENDIF 
1775 ENDIF 
1780 CURSOR 1,17
1785 FOR X:=1 TO 12 DO 
1790 PRINT SP$;
1795 NEXT X
1800 IF N<>O THEN 
1805 IF N>12 THEN CURSOR 71,N-8
1810 IF N<=12 THEN CURSOR 30,N+4
1815 IF A(N)<>O THEN 
1820 PRINT USING NU$:A(N)
1825 ELSE 
1830 PRINT SP$(1:9)
1835 ENDIF 
1840 ENDIF 
1845 UNTIL N=O
1850 CLEAR 
1855 ENDPROC INDKOMST
1860 PROC REGN1
1865 C1:=A(1)+A(2)+A(4)-A(5)-A(7)+A(6)+A(9)+A(10)-A(14)-A(18)+A(15)-A(16)
1870 C1:=C1+A(17)-A(22)-A(23)
1875 C2:=A(3)+A(5)+A(7)-A(9)+A(12)+A(11)-A(15)-A(13)-A(17)-A(19)-A(20)-A(21)
1880 C2:=C2+A(22)+A(8);C7:=C1+C2
1885 ENDPROC REGN1
1890 PROC INDATP
1895 C3:=A(8)-A(9)-A(21)+A(22)
1900 IF C3<O THEN C3:=O
1905 IF G<>1 THEN 
1910 PRINT "Skriv størrelsen på modtaget ATP-beløb til brug for "
1915 INPUT "rentenedslag (evt, 0): ":ATP
1920 PRINT LI$
1925 ENDIF 
1930 C3:=C3+ATP;C3:=C3*30/W
1935 IF C3>3500 THEN C3:=3500
1940 IF C7>F3+99 THEN C3:=C3-((INT(C7/W)*W)-F3)/2
1945 IF C3<O THEN C3:=O
1950 C3:=INT(C3+.9);C5:=O
1955 IF C3>A(8)-A(9) THEN C5:=C3-A(8)+A(9)
1960 C3:=C3-C5;C2:=C2-C3;C1:=C1-C5;C7:=C1+C2
1965 ENDPROC INDATP
1970 PROC FEJLMED
1975 FE:=O
1980 PRINT "FEJLMEDDELELSER:"
1985 IF A(9)>A(8) THEN EXEC FEJL1(1)
1990 IF A(5)>A(4) THEN EXEC FEJL1(2)
1995 IF A(7)>A(6) THEN EXEC FEJL1(3)
2000 IF A(15)>A(14) THEN EXEC FEJL1(4)
2005 IF A(17)>A(16) THEN EXEC FEJL1(5)
2010 IF A(23)>A(6)*50/W THEN EXEC FEJL1(6)
2015 IF A(23)>M1 THEN 
2020 FE:=1
2025 PRINT "Medarbejdende ægtefællefradrag er for stor. Må højst udgøre";M1;
2030 PRINT "."
2035 PRINT 
2040 ENDIF 
2045 IF A(12)>A(11)*25/W THEN EXEC FEJL1(7)
2050 IF A(22)>A(21) THEN EXEC FEJL1(8)
2055 IF (A(9)>O OR A(22)>O) AND A(4)-A(5)=O AND A(6)-A(7)=O THEN 
2060 IF A(14)-A(15)=O AND A(16)-A(17)=O THEN EXEC FEJL1(9)
2065 ENDIF 
2070 ENDPROC FEJLMED
2075 PROC FEJL1(Æ)
2080 FIL$:="dde:skfejl";FE:=1
2085 OPEN FIL$,R
2090 FOR Ø:=1 TO 9 DO 
2095 FOR Q:=1 TO 4 DO 
2100 GET FIL$:S$
2105 IF LEN(S$)>2 AND Æ=Ø AND STATUS(FIL$)<19 THEN PRINT S$
2110 NEXT Q
2115 NEXT Ø
2120 CLOSE FIL$
2125 ENDPROC FEJL1
2130 PROC FEJL
2135 IF FE=O THEN 
2140 PRINT "Ingen åbenbare fejl fundet."
2145 PRINT LI$
2150 ELSE 
2155 PRINT "Skal der foretages rettelser";
2160 EXEC SVAR
2165 IF S$="n" THEN FE:=O
2170 PRINT LI$
2175 ENDIF 
2180 ENDPROC FEJL
2185 PROC TTEST
2190 PRINT "TOTALTEST:"
2195 IF A(23)<>H(10) OR A(10)<>H(23) THEN 
2200 FE:=1
2205 PRINT "Medarbejdende ægtefælleindkomst er ikke lig med medarbejdende "
2210 PRINT "ægtefællefradrag."
2215 PRINT 
2220 ENDIF 
2225 IF C4>O AND C7<O THEN FIL$:="dde:skatfejb";FE:=1
2230 IF C4<O AND C7>O THEN FIL$:="dde:skatfejh";FE:=1
2235 IF FIL$(9:3)="fej" AND FE=1 THEN 
2240 OPEN FIL$,R
2245 EXEC LFIL
2250 QT$:="Det negative beløb udgør ";QB:=C7
2255 EXEC LSKRIV2
2260 PRINT 
2265 ENDIF 
2270 ENDPROC TTEST
2275 PROC NULSTIL2
2280 FOR X:=1 TO 23 DO 
2285 A(X):=O
2290 NEXT X
2295 ENDPROC NULSTIL2
2300 PROC SÆTATILH
2305 FOR X:=1 TO 23 DO 
2310 A(X):=H(X)
2315 NEXT X
2320 ENDPROC SÆTATILH
2325 PROC SÆTATILK
2330 FOR X:=1 TO 23 DO 
2335 A(X):=K(X)
2340 NEXT X
2345 ENDPROC SÆTATILK
2350 PROC SÆTHTILA
2355 FOR X:=1 TO 23 DO 
2360 H(X):=A(X)
2365 NEXT X
2370 ENDPROC SÆTHTILA
2375 PROC SÆTKTILA
2380 FOR X:=1 TO 23 DO 
2385 K(X):=A(X)
2390 NEXT X
2395 ENDPROC SÆTKTILA
2400 PROC SKATIND
2405 S$:=NU$+" KR."
2410 EXEC LSKRIV3
2415 PRINT 
2420 C7,C7IK,C7FR:=O
2425 FOR X:=1 TO 12 DO 
2430 PRINT A1$(X,5:25);
2435 IF A(X)<>O THEN PRINT USING S$:A(X);
2440 IF X<12 THEN 
2445 PRINT TAB(41);A1$(X+12,5:25);
2450 IF A(X+12)<>O THEN PRINT USING S$:A(X+12);
2455 ELSE 
2460 IF C3>O THEN 
2465 PRINT TAB(41);"RENTEINDTÆGTSNEDSLAG ....";
2470 PRINT USING S$:C3;
2475 ENDIF 
2480 ENDIF 
2485 PRINT 
2490 NEXT X
2495 FOR X:=1 TO 23 DO 
2500 IF X<>5 AND X<>7 AND X<>9 AND X<>15 AND X<>17 AND X<>22 THEN 
2505 IF X<=12 THEN C7IK:=C7IK+A(X)
2510 IF X>12 THEN C7FR:=C7FR+A(X)
2515 ENDIF 
2520 NEXT X
2525 QT$:=SP$(1:25)+LI$(1:12)+SP$(1:29)+LI$(1:12)
2530 EXEC LSKRIV3
2535 PRINT "INDKOMST IALT ";PIL$(1:11);
2540 PRINT USING S$:C7IK;
2545 PRINT TAB(41);"FRADRAG IALT ";PIL$(1:12);
2550 PRINT USING S$:C7FR
2555 QT$:=SP$(1:25)+"============"+SP$(1:29)+"============"
2560 EXEC LSKRIV3
2565 PRINT 
2570 PRINT "ARBEJDSINDKOMST ";PIL$(1:9);
2575 PRINT USING S$:C1;
2580 PRINT TAB(41);"FORMUEINDKOMST ";PIL$(1:10);
2585 PRINT USING S$:C2
2590 C7:=C1+C2
2595 PRINT "SKATTEPLIGTIG INDKOMST ";PIL$(1:42);
2600 PRINT USING S$:C7
2605 PRINT "SKATTEPLIGTIG FORMUE ";PIL$(1:44);
2610 PRINT USING S$:B6
2615 ENDPROC SKATIND
2620 PROC FORMUE
2625 B7:=HFORMUE
2630 IF B7<U2+99 THEN B7:=O
2635 ENDPROC FORMUE
2640 PROC ÆFORMUE
2645 B7:=HFORMUE;B8:=BFORMUE
2650 IF T4=1 AND B7+B8<U2+99 THEN B7:=O;B8:=O
2655 IF T4=O AND B7<U2+99 THEN B7:=O
2660 IF T4=O AND B8<U2+99 THEN B8:=O
2665 ENDPROC ÆFORMUE
2670 PROC REGN3
2675 IF B1<O THEN B2:=B2+B1;B1:=O
2680 IF B4<O THEN B5:=B5+B4;B4:=O
2685 IF B1=B4 THEN 
2690 IF B2=>B5 THEN T0:=1
2695 IF B2<B5 THEN T0:=2
2700 ELSE 
2705 IF B1>B4 THEN 
2710 T0:=1
2715 IF B5<O AND ABS(B5)>C4 THEN EXEC REGN23
2720 ELSE 
2725 T0:=2
2730 IF B2<O AND ABS(B2)>C6 THEN EXEC REGN24
2735 ENDIF 
2740 ENDIF 
2745 IF (T0=1 AND ABS(B5)<=1000) OR (T0=2 AND ABS(B2)<=1000) THEN T2:=2
2750 ENDPROC REGN3
2755 PROC REGN23
2760 E4:=B5+C4;B5:=B5-E4;B4:=B4+E4
2765 ENDPROC REGN23
2770 PROC REGN24
2775 E4:=B2+C6;B2:=B2-E4;B1:=B1+E4
2780 ENDPROC REGN24
2785 PROC REGN25
2790 C7:=INT(C7/W)*W
2795 IF C7<=P1 OR C7<=P2 THEN 
2800 D1:=C7*16/W*U1
2805 IF C7>P1 THEN D1:=((C7-P1)*32/W*U1)+(P1*16/W*U1)
2810 ELSE 
2815 D1:=((C7-P2)*44/W*U1)+((P2-P1)*32/W*U1)+(P1*16/W*U1)
2820 IF P7+P8>E1 THEN D1:=D1-((C7-P2)*(P7+P8-E1)/W)
2825 ENDIF 
2830 ENDPROC REGN25
2835 PROC REGN26
2840 D2:=C7*P0/W
2845 ENDPROC REGN26
2850 PROC REGN27
2855 DA2:=C7*PA0/W
2860 ENDPROC REGN27
2865 PROC REGN28
2870 D3:=C7*P7/W
2875 ENDPROC REGN28
2880 PROC REGN29
2885 D4:=C7*P8/W
2890 ENDPROC REGN29
2895 PROC REGN30
2900 D5:=C7*P9/W
2905 ENDPROC REGN30
2910 PROC REGN31
2915 D0:=D1+D2+DA2+D3+D4+D5
2920 ENDPROC REGN31
2925 PROC REGN32
2930 D1:=D1-(C8*16/W*U1)
2935 ENDPROC REGN32
2940 PROC REGN33
2945 D2:=D2-(C8*P0/W);D2AFR:=D2-INT(D2);D2:=INT(D2)
2950 ENDPROC REGN33
2955 PROC REGN34
2960 DA2:=DA2-(C8*PA0/W);D2AFR:=DA2-INT(DA2);DA2:=INT(DA2)
2965 ENDPROC REGN34
2970 PROC REGN35
2975 D3:=D3-(C8*P7/W)
2980 ENDPROC REGN35
2985 PROC REGN36
2990 D4:=D4-(C8*P8/W)
2995 ENDPROC REGN36
3000 PROC REGN37
3005 D5:=D5-(C8*P9/W)
3010 ENDPROC REGN37
3015 PROC REGN38
3020 D6:=D1+D2+DA2+D3+D4+D5
3025 ENDPROC REGN38
3030 PROC REGN6
3035 C7:=(INT(C6/W)*W)+B2
3040 IF T0=1 THEN C7:=(INT(C4/W)*W)+B5
3045 D8:=C7
3050 EXEC REGN25
3055 E2:=D1;C7:=C6
3060 IF T0=1 THEN C7:=C4
3065 EXEC REGN25
3070 E2:=E2-D1
3075 EXEC REGN51
3080 IF T0=1 THEN 
3085 EXEC KIRKE
3090 ELSE 
3095 EXEC GKIRKE
3100 ENDIF 
3105 D5:=O
3110 IF (T0=1 AND TKH=1) OR (T0=2 AND TKB=1) THEN EXEC REGN30
3115 EXEC REGN31
3120 EXEC REGN39
3125 EXEC REGN50
3130 IF T0=1 THEN 
3135 EXEC REGN20
3140 C9:=D0;D7:=D6;C7:=INT(B5/W)*W
3145 ELSE 
3150 EXEC REGN21
3155 C0:=D0;D9:=D6;C7:=INT(B2/W)*W
3160 ENDIF 
3165 EXEC REGN51
3170 IF T0=1 THEN 
3175 EXEC GKIRKE
3180 ELSE 
3185 EXEC KIRKE
3190 ENDIF 
3195 D5:=O
3200 IF (T0=2 AND TKH=1) OR (T0=1 AND TKB=1) THEN EXEC REGN30
3205 C7:=B1
3210 IF T0=1 THEN C7:=B4
3215 EXEC REGN25
3220 AR:=D1;D1:=D1+E2;E8:=D2
3225 EXEC REGN26
3230 AR:=AR+D2;D2:=D2+E8;E8:=DA2
3235 EXEC REGN27
3240 AR:=AR+DA2;DA2:=DA2+E8;E8:=D3
3245 EXEC REGN28
3250 AR:=AR+D3;D3:=D3+E8;E8:=D4
3255 EXEC REGN29
3260 AR:=AR+D4;D4:=D4+E8
3265 IF D5<>O THEN 
3270 E8:=D5
3275 EXEC REGN30
3280 AR:=AR+D5;D5:=D5+E8
3285 ENDIF 
3290 E8:=O
3295 EXEC REGN31
3300 EXEC REGN42
3305 EXEC REGN32
3310 EXEC REGN33
3315 GEMAFR:=D2AFR
3320 EXEC REGN34
3325 GEMAFR:=GEMAFR+D2AFR
3330 EXEC REGN40
3335 EXEC REGN35
3340 EXEC REGN36
3345 IF D5>O THEN 
3350 EXEC REGN37
3355 ELSE 
3360 IF C8>C7 THEN D5:=D5-((C8-C7)*P9/W)
3365 ENDIF 
3370 EXEC REGN38
3375 IF T0=1 THEN 
3380 EXEC REGN21
3385 C0:=D0;D9:=D6
3390 ELSE 
3395 EXEC REGN20
3400 C9:=D0;D7:=D6
3405 ENDIF 
3410 ENDPROC REGN6
3415 PROC KIRKE
3420 IF G<>1 THEN 
3425 PRINT "Er hovedpersonen medlem af folkekirken";
3430 EXEC SVAR
3435 TKH:=O
3440 IF S$="j" THEN TKH:=1
3445 ENDIF 
3450 ENDPROC KIRKE
3455 PROC GKIRKE
3460 IF G<>1 THEN 
3465 PRINT "Er den gifte kvinde medlem af folkekirken";
3470 EXEC SVAR
3475 TKB:=O
3480 IF S$="j" THEN TKB:=1
3485 ENDIF 
3490 ENDPROC GKIRKE
3495 PROC REGN39
3500 C8:=P3
3505 IF T0=1 AND T1<>O THEN C8:=P6
3510 IF T0=2 AND T3<>O THEN C8:=P6
3515 ENDPROC REGN39
3520 PROC REGN40
3525 IF C8=P3 THEN C8:=P4
3530 ENDPROC REGN40
3535 PROC REGN42
3540 C8:=P3
3545 IF T0=1 AND T3<>O THEN C8:=P6
3550 IF T0=2 AND T1<>O THEN C8:=P6
3555 ENDPROC REGN42
3560 PROC REGN4
3565 C7:=C4
3570 EXEC REGN25
3575 EXEC REGN51
3580 EXEC KIRKE
3585 D5:=O
3590 IF TKH=1 THEN EXEC REGN30
3595 EXEC REGN31
3600 IF T2=O AND T1<>O THEN C8:=P5
3605 IF T2=2 AND T1<>O THEN C8:=P6
3610 IF T1=O THEN C8:=P3
3615 EXEC REGN50
3620 EXEC REGN20
3625 C9:=D0;D7:=D6
3630 ENDPROC REGN4
3635 PROC REGN5
3640 C7:=C6
3645 EXEC REGN25
3650 EXEC REGN51
3655 EXEC GKIRKE
3660 D5:=O
3665 IF TKB=1 THEN EXEC REGN30
3670 EXEC REGN31
3675 C8:=P6
3680 IF T3=O THEN C8:=P3
3685 EXEC REGN50
3690 EXEC REGN21
3695 C0:=D0;D9:=D6
3700 ENDPROC REGN5
3705 PROC REGN7
3710 IF HD1+HD2+HDA2<0 AND HD3+HD4+HD5>0 THEN EXEC MSSIKS
3715 IF T2=O THEN 
3720 HD6:=HD1+HD2+HDA2+HD3+HD4+HD5
3725 IF HD6<=O THEN HD1:=O;HD2:=O;HDA2:=O;HD3:=O;HD4:=O;HD5:=O;HD6:=O
3730 ELSE 
3735 IF HD1+HD2+HDA2<0 AND HD3+HD4+HD5>0 THEN EXEC MSSIKS1
3740 IF HD1<O THEN 
3745 BD1:=BD1+HD1;HD1:=O
3750 IF BD1<O THEN BD1:=O
3755 ENDIF 
3760 IF HD2<O THEN 
3765 BD2:=BD2+HD2;HD2:=O
3770 IF BD2<O THEN BD2:=O
3775 ENDIF 
3780 IF HDA2<O THEN 
3785 BDA2:=BDA2+HDA2;HDA2:=O
3790 IF BDA2<O THEN BDA2:=O
3795 ENDIF 
3800 IF HD3<O THEN 
3805 BD3:=BD3+HD3;HD3:=O
3810 IF BD3<O THEN BD3:=O
3815 ENDIF 
3820 IF HD4<O THEN 
3825 BD4:=BD4+HD4;HD4:=O
3830 IF BD4<O THEN BD4:=O
3835 ENDIF 
3840 IF HD5<O THEN 
3845 BD5:=BD5+HD5;HD5:=O
3850 IF BD5<O THEN BD5:=O
3855 ENDIF 
3860 IF BD1<O THEN 
3865 HD1:=HD1+BD1;BD1:=O
3870 IF HD1<O THEN HD1:=O
3875 ENDIF 
3880 IF BD2<O THEN 
3885 HD2:=HD2+BD2;BD2:=O
3890 IF HD2<O THEN HD2:=O
3895 ENDIF 
3900 IF BDA2<O THEN 
3905 HDA2:=HDA2+BDA2;BDA2:=O
3910 IF HDA2<O THEN HDA2:=O
3915 ENDIF 
3920 IF BD3<O THEN 
3925 HD3:=HD3+BD3;BD3:=O
3930 IF HD3<O THEN HD3:=O
3935 ENDIF 
3940 IF BD4<O THEN 
3945 HD4:=HD4+BD4;BD4:=O
3950 IF HD4<O THEN HD4:=O
3955 ENDIF 
3960 IF BD5<O THEN 
3965 HD5:=HD5+BD5;BD5:=O
3970 IF HD5<O THEN HD5:=O
3975 ENDIF 
3980 HD6:=HD1+HD2+HDA2+HD3+HD4+HD5;BD6:=BD1+BD2+BDA2+BD3+BD4+BD5
3985 ENDIF 
3990 ENDPROC REGN7
3995 PROC MSSIKS
4000 F4:=ABS(HD1+HD2+HDA2)
4005 IF F4>HD3+HD4+HD5 THEN F4:=HD3+HD4+HD5
4010 HD3:=HD3-(F4/(P7+P8+P9)*P7);HD4:=HD4-(F4/(P7+P8+P9)*P8)
4015 HD5:=HD5-(F4/(P7+P8+P9)*P9);D1:=HD1;D2:=HD2;DA2:=HDA2
4020 HD1:=HD1+(F4/(D1+D2+DA2)*D1);HD2:=HD2+(F4/(D1+D2+DA2)*D2)
4025 HDA2:=HDA2+(F4/(D1+D2+DA2)*DA2)
4030 ENDPROC MSSIKS
4035 PROC MSSIKS1
4040 F4:=ABS(BD1+BD2+BDA2)
4045 IF F4>BD3+BD4+BD5 THEN F4:=BD3+BD4+BD5
4050 BD3:=BD3-(F4/(P7+P8+P9)*P7);BD4:=BD4-(F4/(P7+P8+P9)*P8)
4055 BD5:=BD5-(F4/(P7+P8+P9)*P9);D1:=BD1;D2:=BD2;DA2:=BDA2
4060 BD1:=BD1+(F4/(D1+D2+DA2)*D1);BD2:=BD2+(F4/(D1+D2+DA2)*D2)
4065 BDA2:=BDA2+(F4/(D1+D2+DA2)*DA2)
4070 ENDPROC MSSIKS1
4075 PROC REGN43
4080 IF T0=1 AND B4<C8 THEN E9:=(((INT(B4/W)*W)-C8)*((16*U1)+P0+PA0)/W)
4085 IF T0=1 AND C4<C8 THEN E8:=(((INT(C4/W)*W)-C8)*((16*U1)+P0+PA0)/W)
4090 IF T0=2 AND B1<C8 THEN E8:=(((INT(B1/W)*W)-C8)*((16*U1)+P0+PA0)/W)
4095 IF T0=2 AND C6<C8 THEN E9:=(((INT(C6/W)*W)-C8)*((16*U1)+P0+PA0)/W)
4100 ENDPROC REGN43
4105 PROC REGN44
4110 IF T0=1 AND B4<C8 THEN E9:=E9+((((INT(B4/W)*W)-C8)*(P7+P8))/W)
4115 IF T0=1 AND C4<C8 THEN E8:=E8+((((INT(C4/W)*W)-C8)*(P7+P8))/W)
4120 IF T0=2 AND B1<C8 THEN E8:=E8+((((INT(B1/W)*W)-C8)*(P7+P8))/W)
4125 IF T0=2 AND C6<C8 THEN E9:=E9+((((INT(C6/W)*W)-C8)*(P7+P8))/W)
4130 ENDPROC REGN44
4135 PROC REGN8
4140 B9:=O;B7:=INT(B7/W)*W;B9:=(B7-U2)*22/1000
4145 IF D6-D5+B9>C4*78/W THEN 
4150 E5:=(D6-D5+B9)-(C4*78/W)
4155 IF E5<=B9*60/W THEN 
4160 B9:=B9-E5
4165 ELSE 
4170 E5:=E5-(B9*60/W);B9:=B9-(B9*60/W)
4175 D1:=D1-E5
4180 IF D1<0 THEN D1:=0
4185 EXEC REGN38
4190 EXEC REGN7
4195 ENDIF 
4200 ENDIF 
4205 ENDPROC REGN8
4210 PROC REGN9
4215 IF B7<O THEN B7:=O
4220 IF B8<O THEN B8:=O
4225 B6:=B7+B8;B6:=INT(B6/W)*W;E7:=(B6-U2)*22/1000
4230 IF B7>O THEN B9:=E7/B6*B7
4235 IF B8>O THEN E6:=E7/B6*B8
4240 IF T2=2 AND (T0=1 OR T0=2) THEN 
4245 IF T0=1 THEN D8:=C4
4250 IF T0=2 THEN D8:=C6
4255 D0:=O
4260 ELSE 
4265 IF T0=1 THEN 
4270 C7:=B5
4275 ELSE 
4280 C7:=B2
4285 ENDIF 
4290 D0:=(INT(C7/W)*W)*((P0+PA0+P7+P8)/W);D0:=D0+E2
4295 ENDIF 
4300 IF E8<O THEN D0:=D0+E8
4305 IF E9<O THEN D0:=D0+E9
4310 IF T0=1 AND E8=>O THEN D0:=D0+HD6-HD5+GEMAFR
4315 IF C0<0 THEN D0:=D0-C0
4320 IF T0=2 AND E9=>O THEN D0:=D0+BD6-BD5+GEMAFR
4325 IF C9<0 THEN D0:=D0-C9
4330 D0:=D0+E7
4335 IF D0<=D8*78/W THEN EXIT 
4340 E5:=D0-(D8*78/W)
4345 IF E5<=E7*60/W THEN 
4350 B9:=B9-(E5/B6*B7);E6:=E6-(E5/B6*B8)
4355 ELSE 
4360 D0:=E7*60/W;E5:=E5-D0;B9:=B9-(D0/B6*B7);E6:=E6-(D0/B6*B8)
4365 EXEC REGN10
4370 D1:=D1-(E5/B6*B7)
4375 EXEC REGN38
4380 D7:=D6
4385 EXEC REGN20
4390 EXEC REGN22
4395 D1:=D1-(E5/B6*B8)
4400 EXEC REGN38
4405 D9:=D6
4410 EXEC REGN21
4415 EXEC REGN7
4420 ENDIF 
4425 ENDPROC REGN9
4430 PROC SKAT
4435 QT$:="SKATTEBEREGNING:"
4440 EXEC LSKRIV3
4445 PRINT 
4450 QT$:="STATSSKAT "+PIL$(1:24);QB:=D1
4455 EXEC LSKRIV2
4460 QT$:="FOLKEPENSIONSBIDRAG "+PIL$(1:14);QB:=D2
4465 EXEC LSKRIV2
4470 QT$:="DAGPENGEFONDBIDRAG "+PIL$(1:15);QB:=DA2
4475 EXEC LSKRIV2
4480 QT$:="KOMMUNESKAT "+PIL$(1:22);QB:=D3
4485 EXEC LSKRIV2
4490 QT$:="AMTSKOMMUNAL INDKOMSTSKAT "+PIL$(1:8);QB:=D4
4495 EXEC LSKRIV2
4500 IF D5>O THEN 
4505 QT$:="KIRKESKAT "+PIL$(1:24);QB:=D5
4510 EXEC LSKRIV2
4515 ENDIF 
4520 ENDPROC SKAT
4525 PROC INDSKAT
4530 QT$:=SP$(1:34)+LI$(1:16)
4535 EXEC LSKRIV3
4540 QT$:="INDKOMSTSKAT IALT "+PIL$(1:16);QB:=D6
4545 EXEC LSKRIV2
4550 ENDPROC INDSKAT
4555 PROC FSKAT
4560 IF FS>O THEN 
4565 QT$:="FORMUESKAT "+PIL$(1:23);QB:=FS
4570 EXEC LSKRIV2
4575 QT$:=SP$(1:34)+LI$(1:16)
4580 EXEC LSKRIV3
4585 QT$:="*** TOTALSKAT "+PIL$(1:20);QB:=D6+FS
4590 EXEC LSKRIV2
4595 ENDIF 
4600 QT$:=SP$(1:34)+"================"
4605 EXEC LSKRIV3
4610 ENDPROC FSKAT
4615 PROC SKATPRO
4620 QT$:="Kommuneskatteprocent       ";QB:=P7
4625 EXEC LSKRIV4
4630 QT$:="Amtskommunal skatteprocent ";QB:=P8
4635 EXEC LSKRIV4
4640 QT$:="Kirkeskatteprocent         ";QB:=P9
4645 EXEC LSKRIV4
4650 IF T1<>O THEN 
4655 QT$:="Hovedpersonen er beregnet med personfradrag som pensionist."
4660 EXEC LSKRIV3
4665 ENDIF 
4670 IF T3<>O THEN 
4675 QT$:="Den gifte kvinde er beregnet med personfradrag som pensionist."
4680 EXEC LSKRIV3
4685 ENDIF 
4690 IF T4=1 THEN 
4695 QT$:="Beregningerne er sket efter reglerne om ligedeling ægtefæller."
4700 EXEC LSKRIV3
4705 ENDIF 
4710 ENDPROC SKATPRO
4715 PROC LSKRIV2
4720 PRINT USING QT$+"#########.## KR.":QB
4725 ENDPROC LSKRIV2
4730 PROC LSKRIV1
4735 PRINT USING QT$+"######### KR.":QB
4740 ENDPROC LSKRIV1
4745 PROC LSKRIV4
4750 PRINT USING QT$+"#######.# PCT.":QB
4755 ENDPROC LSKRIV4
4760 PROC SVAR
4765 REPEAT 
4770 INPUT "? (j/n) ":S$
4775 IF S$="N" THEN S$:="n"
4780 IF S$="J" THEN S$:="j"
4785 IF S$="q" OR S$="Q" THEN END 
4790 UNTIL S$="j" OR S$="n"
4795 PRINT LI$
4800 ENDPROC SVAR
4805 PROC LSKRIV
4810 PRINT 
4815 ENDPROC LSKRIV
4820 PROC LSKRIV3
4825 PRINT QT$
4830 ENDPROC LSKRIV3
4835 PROC REGN50
4840 EXEC REGN32
4845 EXEC REGN33
4850 EXEC REGN34
4855 IF C8=P3 THEN C8:=P4
4860 EXEC REGN35
4865 EXEC REGN36
4870 IF D5>O THEN 
4875 EXEC REGN37
4880 ELSE 
4885 IF C8>C7 THEN D5:=D5-((C8-C7)*P9/W)
4890 ENDIF 
4895 EXEC REGN38
4900 ENDPROC REGN50
4905 PROC REGN51
4910 EXEC REGN26
4915 EXEC REGN27
4920 EXEC REGN28
4925 EXEC REGN29
4930 ENDPROC REGN51
4935 PROC RETURN
4940 S$:="-"
4945 PRINT 
4950 PRINT TAB(65);
4955 EDIT "TRYK -RETURN":S$
4960 ENDPROC RETURN
4965 PROC SKIFT
4970 IF Y=1 THEN 
4975 EXEC RETURN
4980 CLEAR 
4985 ELSE 
4990 FOR X:=1 TO 5 DO 
4995 PRINT 
5000 NEXT X
5005 ENDIF 
5010 ENDPROC SKIFT
5015 PROC SIDESKIFT
5020 IF Y=2 THEN 
5025 PRINT CHR$(12)
5030 PRINT REV$
5035 PRINT ADR$
5040 ENDIF 
5045 EXEC SKIFT
5050 ENDPROC SIDESKIFT
5055 PROC WIN
5060 CURSOR 1,20
5065 PRINT SP$+SP$
5070 X:=3;P:=O;A(N):=O;FIL$:="DDE:INDKOM"
5075 OPEN FIL$,R
5080 IF N=18 THEN X:=6;P:=6
5085 IF N=8 THEN P:=3
5090 IF N=19 THEN P:=12
5095 CURSOR 1,23-X
5100 FOR Y:=1 TO P+X DO 
5105 GET FIL$:S$
5110 IF Y>P THEN 
5115 PRINT S$
5120 ENDIF 
5125 NEXT Y
5130 FOR Y:=1 TO X DO 
5135 CURSOR 65,22-X+Y
5140 INPUT B
5145 A(N):=A(N)+B
5150 NEXT Y
5155 CLOSE FIL$
5160 ENDPROC WIN

Mikados K File

0x0000…0030 Line {l1=0x2e, l2=»0010 INTEGER X,PR,Y,F8,FE,G,T0,T1,T2,T3,T4,O,W«, l3=0x2e}
0x0030…003d Line {l1=0x0b, l2=»0015 CLEAR «, l3=0x0b}
0x003d…0082 Line {l1=0x43, l2=»0020 STATUS,G1,B7,B8,U2,F0,F7,T,TKB,TKH,B3,C0,BD6,C6,F0,F7,OV,HS:=0«, l3=0x43}
0x0082…00cd Line {l1=0x49, l2=»0025 AKT,SKG,D6,HFORMUE,BFORMUE,B6,HC3,BC3,HATP,BATP,GSLUT,FSLUT,F1,F2:=0«, l3=0x49}
0x00cd…00e7 Line {l1=0x18, l2=»0030 T0,T1,T2,T3,T4,O:=0«, l3=0x18}
0x00e7…012e Line {l1=0x45, l2=»0035 DIM A1$(29) OF 29,A(29),H(23),K(23),LI$ OF 80,QT$ OF 80,S$ OF 80«, l3=0x45}
0x012e…0179 Line {l1=0x49, l2=»0040 DIM FIL$ OF 15,PIL$ OF 45,SP$ OF 40,REV$ OF 80,ADR$ OF 80,HKL$ OF 38«, l3=0x49}
0x0179…0197 Line {l1=0x1c, l2=»0045 DIM BKL$ OF 38,NU$ OF 9«, l3=0x1c}
0x0197…01d8 Line {l1=0x3f, l2=»0050 LI$:="";PIL$:="";SP$:="";NU$:="#########";W:=100;GEMAFR:=O«, l3=0x3f}
0x01d8…01fa Line {l1=0x20, l2=»0055 REV$:="Revisor Kaja Jensen"«, l3=0x20}
0x01fa…0231 Line {l1=0x35, l2=»0060 ADR$:="Lysholmvej 14, 2650 Hvidovre, (01)784852"«, l3=0x35}
0x0231…024a Line {l1=0x17, l2=»0065 FOR X:=1 TO 78 DO «, l3=0x17}
0x024a…0279 Line {l1=0x2d, l2=»0070 LI$:=LI$+"-";PIL$:=PIL$+".";SP$:=SP$+" "«, l3=0x2d}
0x0279…0286 Line {l1=0x0b, l2=»0075 NEXT X«, l3=0x0b}
0x0286…029d Line {l1=0x15, l2=»0080 F8,T4,G:=O;T2:=2«, l3=0x15}
0x029d…02b7 Line {l1=0x18, l2=»0085 FIL$:="dde:skatsys"«, l3=0x18}
0x02b7…02c9 Line {l1=0x10, l2=»0090 OPEN FIL$,R«, l3=0x10}
0x02c9…02dc Line {l1=0x11, l2=»0095 GET FIL$:SYS«, l3=0x11}
0x02dc…02ed Line {l1=0x0f, l2=»0100 CLOSE FIL$«, l3=0x0f}
0x02ed…0302 Line {l1=0x13, l2=»0105 IF SYS=1 THEN «, l3=0x13}
0x0302…0314 Line {l1=0x10, l2=»0110 OPEN FIL$,W«, l3=0x10}
0x0314…0321 Line {l1=0x0b, l2=»0115 SYS:=O«, l3=0x0b}
0x0321…0334 Line {l1=0x11, l2=»0120 PUT FIL$:SYS«, l3=0x11}
0x0334…0345 Line {l1=0x0f, l2=»0125 CLOSE FIL$«, l3=0x0f}
0x0345…035e Line {l1=0x17, l2=»0130 FIL$:="dde:hskvar"«, l3=0x17}
0x035e…0370 Line {l1=0x10, l2=»0135 OPEN FIL$,R«, l3=0x10}
0x0370…0389 Line {l1=0x17, l2=»0140 FOR X:=1 TO 29 DO «, l3=0x17}
0x0389…039d Line {l1=0x12, l2=»0145 GET FIL$:A(X)«, l3=0x12}
0x039d…03c3 Line {l1=0x24, l2=»0150 IF X<24 THEN GET FIL$:H(X),K(X)«, l3=0x24}
0x03c3…03d0 Line {l1=0x0b, l2=»0155 NEXT X«, l3=0x0b}
0x03d0…03eb Line {l1=0x19, l2=»0160 GET FIL$:F8,T1,T2,T4«, l3=0x19}
0x03eb…03fc Line {l1=0x0f, l2=»0165 CLOSE FIL$«, l3=0x0f}
0x03fc…0413 Line {l1=0x15, l2=»0170 FIL$:="dde:fvar"«, l3=0x15}
0x0413…0425 Line {l1=0x10, l2=»0175 OPEN FIL$,R«, l3=0x10}
0x0425…0451 Line {l1=0x2a, l2=»0180 GET FIL$:PR,C4,HD6,C9,B0,T1,TKH,F6,F1«, l3=0x2a}
0x0451…047b Line {l1=0x28, l2=»0185 GET FIL$:F9,P1,P7,P8,P9,T0,B2,B1,B9«, l3=0x28}
0x047b…04a7 Line {l1=0x2a, l2=»0190 GET FIL$:T2,C6,BD6,C0,B3,E6,F2,T3,TKB«, l3=0x2a}
0x04a7…04cd Line {l1=0x24, l2=»0195 GET FIL$:F0,F7,SKG,AKT,D6,GSLUT«, l3=0x24}
0x04cd…04fe Line {l1=0x2f, l2=»0200 GET FIL$:HFORMUE,BFORMUE,HATP,BATP,G,FSLUT«, l3=0x2f}
0x04fe…0517 Line {l1=0x17, l2=»0205 GET FIL$:HKL$,BKL$«, l3=0x17}
0x0517…0528 Line {l1=0x0f, l2=»0210 CLOSE FIL$«, l3=0x0f}
0x0528…053b Line {l1=0x11, l2=»0215 EXEC FORTSÆT«, l3=0x11}
0x053b…0547 Line {l1=0x0a, l2=»0220 ELSE «, l3=0x0a}
0x0547…0571 Line {l1=0x28, l2=»0225 PRINT TAB(29);">>> EASY - SKAT <<<"«, l3=0x28}
0x0571…058c Line {l1=0x19, l2=»0230 FIL$:="DDE:skatvejl"«, l3=0x19}
0x058c…059e Line {l1=0x10, l2=»0235 OPEN FIL$,R«, l3=0x10}
0x059e…05ae Line {l1=0x0e, l2=»0240 EXEC LFIL«, l3=0x0e}
0x05ae…05c0 Line {l1=0x10, l2=»0245 EXEC RETURN«, l3=0x10}
0x05c0…05cd Line {l1=0x0b, l2=»0250 ENDIF «, l3=0x0b}
0x05cd…05d8 Line {l1=0x09, l2=»0255 X:=O«, l3=0x09}
0x05d8…05f3 Line {l1=0x19, l2=»0260 OPEN "dde:skatart",R«, l3=0x19}
0x05f3…0601 Line {l1=0x0c, l2=»0265 REPEAT «, l3=0x0c}
0x0601…060e Line {l1=0x0b, l2=»0270 X:=X+1«, l3=0x0b}
0x060e…062d Line {l1=0x1d, l2=»0275 GET "dde:skatart":A1$(X)«, l3=0x1d}
0x062d…0675 Line {l1=0x46, l2=»0280 UNTIL STATUS("dde:skatart")=19 OR STATUS("dde:skatart")>O OR X=29«, l3=0x46}
0x0675…0682 Line {l1=0x0b, l2=»0285 CLOSE «, l3=0x0b}
0x0682…06c2 Line {l1=0x3e, l2=»0290 E1:=28;F3:=64000;F4:=70999;F5:=1985;P1:=111300;P2:=182600«, l3=0x3e}
0x06c2…06ff Line {l1=0x3b, l2=»0295 P3:=22700;P4:=20300;P5:=43900;P6:=24000;P0:=3.5;PA0:=2«, l3=0x3b}
0x06ff…0723 Line {l1=0x22, l2=»0300 U1:=.9;U2:=1229200;M1:=112700«, l3=0x22}
0x0723…0731 Line {l1=0x0c, l2=»0305 REPEAT «, l3=0x0c}
0x0731…073f Line {l1=0x0c, l2=»0310 REPEAT «, l3=0x0c}
0x073f…074c Line {l1=0x0b, l2=»0315 START:«, l3=0x0b}
0x074c…0793 Line {l1=0x45, l2=»0320 E8,E9,E6,C5,B9,AR,BD1,BD2,BDA2,BD3,BD4,BD5,BD6,E4,E7,E5,D8,E2:=O«, l3=0x45}
0x0793…07ac Line {l1=0x17, l2=»0325 IF T4=1 THEN T2:=1«, l3=0x17}
0x07ac…07ce Line {l1=0x20, l2=»0330 IF F8<>1 THEN EXEC NULSTIL2«, l3=0x20}
0x07ce…07ef Line {l1=0x1f, l2=»0335 IF F8=1 THEN EXEC SÆTATILH«, l3=0x1f}
0x07ef…07fd Line {l1=0x0c, l2=»0340 REPEAT «, l3=0x0c}
0x07fd…080b Line {l1=0x0c, l2=»0345 REPEAT «, l3=0x0c}
0x080b…083c Line {l1=0x2f, l2=»0350 FE:=O;QT$:=" HOVEPERSONEN ";A(24):=HFORMUE«, l3=0x2f}
0x083c…0850 Line {l1=0x12, l2=»0355 EXEC INDKOMST«, l3=0x12}
0x0850…086b Line {l1=0x19, l2=»0360 HFORMUE:=B6;A(24):=O«, l3=0x19}
0x086b…087e Line {l1=0x11, l2=»0365 EXEC FEJLMED«, l3=0x11}
0x087e…088e Line {l1=0x0e, l2=»0370 EXEC FEJL«, l3=0x0e}
0x088e…08a0 Line {l1=0x10, l2=»0375 UNTIL FE<>1«, l3=0x10}
0x08a0…08c1 Line {l1=0x1f, l2=»0380 F6:=A(12);F9:=A(11)*(30/W)«, l3=0x1f}
0x08c1…08d5 Line {l1=0x12, l2=»0385 EXEC SÆTHTILA«, l3=0x12}
0x08d5…08e6 Line {l1=0x0f, l2=»0390 EXEC REGN1«, l3=0x0f}
0x08e6…08fa Line {l1=0x12, l2=»0395 IF G<>1 THEN «, l3=0x12}
0x08fa…0947 Line {l1=0x4b, l2=»0400 PRINT "Er hovedpersonen tilkendt enke-, folke- eller invalidepension,"«, l3=0x4b}
0x0947…0984 Line {l1=0x3b, l2=»0405 PRINT "dvs. har ret til personfradrag som pensionist";«, l3=0x3b}
0x0984…0994 Line {l1=0x0e, l2=»0410 EXEC SVAR«, l3=0x0e}
0x0994…09a0 Line {l1=0x0a, l2=»0415 T1:=O«, l3=0x0a}
0x09a0…09b6 Line {l1=0x14, l2=»0420 IF S$="j" THEN «, l3=0x14}
0x09b6…09c2 Line {l1=0x0a, l2=»0425 T1:=2«, l3=0x0a}
0x09c2…0a0b Line {l1=0x47, l2=»0430 PRINT "Er hovedpersonen fyldt 67 år ved indkomstårets begyndelse";«, l3=0x47}
0x0a0b…0a1b Line {l1=0x0e, l2=»0435 EXEC SVAR«, l3=0x0e}
0x0a1b…0a36 Line {l1=0x19, l2=»0440 IF S$="j" THEN T1:=1«, l3=0x19}
0x0a36…0a43 Line {l1=0x0b, l2=»0445 ENDIF «, l3=0x0b}
0x0a43…0a50 Line {l1=0x0b, l2=»0450 ENDIF «, l3=0x0b}
0x0a50…0a64 Line {l1=0x12, l2=»0455 IF T1=1 THEN «, l3=0x12}
0x0a64…0a80 Line {l1=0x1a, l2=»0460 IF G=1 THEN ATP:=HATP«, l3=0x1a}
0x0a80…0a92 Line {l1=0x10, l2=»0465 EXEC INDATP«, l3=0x10}
0x0a92…0aad Line {l1=0x19, l2=»0470 HC3:=C3+C5;HATP:=ATP«, l3=0x19}
0x0aad…0aba Line {l1=0x0b, l2=»0475 ENDIF «, l3=0x0b}
0x0aba…0aea Line {l1=0x2e, l2=»0480 B0:=A(1);B1:=C1;B2:=C2;C4:=C7;PR:=O;C3:=O«, l3=0x2e}
0x0aea…0b05 Line {l1=0x19, l2=»0485 IF T1=1 THEN C3:=HC3«, l3=0x19}
0x0b05…0b18 Line {l1=0x11, l2=»0490 EXEC SKATIND«, l3=0x11}
0x0b18…0b25 Line {l1=0x0b, l2=»0495 PRINT «, l3=0x0b}
0x0b25…0b55 Line {l1=0x2e, l2=»0500 PRINT "Ønskes rettelser til ovenstående";«, l3=0x2e}
0x0b55…0b65 Line {l1=0x0e, l2=»0505 EXEC SVAR«, l3=0x0e}
0x0b65…0b72 Line {l1=0x0b, l2=»0510 CLEAR «, l3=0x0b}
0x0b72…0b85 Line {l1=0x11, l2=»0515 UNTIL S$="n"«, l3=0x11}
0x0b85…0b99 Line {l1=0x12, l2=»0520 IF G<>1 THEN «, l3=0x12}
0x0b99…0be3 Line {l1=0x48, l2=»0525 PRINT "Skal der foretages beregning af en ægtefælle (gift kvinde)";«, l3=0x48}
0x0be3…0bf3 Line {l1=0x0e, l2=»0530 EXEC SVAR«, l3=0x0e}
0x0bf3…0c07 Line {l1=0x12, l2=»0535 EXEC NULSTIL2«, l3=0x12}
0x0c07…0c13 Line {l1=0x0a, l2=»0540 T2:=O«, l3=0x0a}
0x0c13…0c29 Line {l1=0x14, l2=»0545 IF S$="j" THEN «, l3=0x14}
0x0c29…0c66 Line {l1=0x3b, l2=»0550 PRINT "Har ægtefællerne været gift hele kalenderåret";«, l3=0x3b}
0x0c66…0c76 Line {l1=0x0e, l2=»0555 EXEC SVAR«, l3=0x0e}
0x0c76…0c88 Line {l1=0x10, l2=»0560 T2:=2;T4:=O«, l3=0x10}
0x0c88…0ca9 Line {l1=0x1f, l2=»0565 IF S$="j" THEN T2:=1;T4:=1«, l3=0x1f}
0x0ca9…0cca Line {l1=0x1f, l2=»0570 IF F8=1 THEN EXEC SÆTATILK«, l3=0x1f}
0x0cca…0cd7 Line {l1=0x0b, l2=»0575 ENDIF «, l3=0x0b}
0x0cd7…0ce3 Line {l1=0x0a, l2=»0580 ELSE «, l3=0x0a}
0x0ce3…0cf8 Line {l1=0x13, l2=»0585 IF T2<>O THEN «, l3=0x13}
0x0cf8…0d0c Line {l1=0x12, l2=»0590 EXEC NULSTIL2«, l3=0x12}
0x0d0c…0d2d Line {l1=0x1f, l2=»0595 IF F8=1 THEN EXEC SÆTATILK«, l3=0x1f}
0x0d2d…0d3a Line {l1=0x0b, l2=»0600 ENDIF «, l3=0x0b}
0x0d3a…0d47 Line {l1=0x0b, l2=»0605 ENDIF «, l3=0x0b}
0x0d47…0d5c Line {l1=0x13, l2=»0610 IF T2<>O THEN «, l3=0x13}
0x0d5c…0d6a Line {l1=0x0c, l2=»0615 REPEAT «, l3=0x0c}
0x0d6a…0d78 Line {l1=0x0c, l2=»0620 REPEAT «, l3=0x0c}
0x0d78…0dad Line {l1=0x33, l2=»0625 FE:=O;QT$:=" DEN GIFTE KVINDE ";A(24):=BFORMUE«, l3=0x33}
0x0dad…0dc1 Line {l1=0x12, l2=»0630 EXEC INDKOMST«, l3=0x12}
0x0dc1…0ddc Line {l1=0x19, l2=»0635 BFORMUE:=B6;A(24):=O«, l3=0x19}
0x0ddc…0def Line {l1=0x11, l2=»0640 EXEC FEJLMED«, l3=0x11}
0x0def…0dff Line {l1=0x0e, l2=»0645 EXEC FEJL«, l3=0x0e}
0x0dff…0e11 Line {l1=0x10, l2=»0650 UNTIL FE<>1«, l3=0x10}
0x0e11…0e32 Line {l1=0x1f, l2=»0655 F7:=A(12);F0:=A(11)*(30/W)«, l3=0x1f}
0x0e32…0e46 Line {l1=0x12, l2=»0660 EXEC SÆTKTILA«, l3=0x12}
0x0e46…0e57 Line {l1=0x0f, l2=»0665 EXEC REGN1«, l3=0x0f}
0x0e57…0e68 Line {l1=0x0f, l2=»0670 EXEC TTEST«, l3=0x0f}
0x0e68…0e78 Line {l1=0x0e, l2=»0675 EXEC FEJL«, l3=0x0e}
0x0e78…0e8c Line {l1=0x12, l2=»0680 IF FE=1 THEN «, l3=0x12}
0x0e8c…0e9e Line {l1=0x10, l2=»0685 FE:=O;F8:=1«, l3=0x10}
0x0e9e…0eb0 Line {l1=0x10, l2=»0690 GO TO START«, l3=0x10}
0x0eb0…0ebd Line {l1=0x0b, l2=»0695 ENDIF «, l3=0x0b}
0x0ebd…0ed1 Line {l1=0x12, l2=»0700 IF G<>1 THEN «, l3=0x12}
0x0ed1…0f20 Line {l1=0x4d, l2=»0705 PRINT "Er den gifte kvinde tilkendt enke-, folke- eller invalidepension"«, l3=0x4d}
0x0f20…0f5d Line {l1=0x3b, l2=»0710 PRINT "dvs. har ret til personfradrag som pensionist";«, l3=0x3b}
0x0f5d…0f6d Line {l1=0x0e, l2=»0715 EXEC SVAR«, l3=0x0e}
0x0f6d…0f79 Line {l1=0x0a, l2=»0720 T3:=O«, l3=0x0a}
0x0f79…0f8f Line {l1=0x14, l2=»0725 IF S$="j" THEN «, l3=0x14}
0x0f8f…0f9b Line {l1=0x0a, l2=»0730 T3:=2«, l3=0x0a}
0x0f9b…0fe7 Line {l1=0x4a, l2=»0735 PRINT "Er den gifte kvinde fyldt 67 år ved indkomstårets begyndelse";«, l3=0x4a}
0x0fe7…0ff7 Line {l1=0x0e, l2=»0740 EXEC SVAR«, l3=0x0e}
0x0ff7…1012 Line {l1=0x19, l2=»0745 IF S$="j" THEN T3:=1«, l3=0x19}
0x1012…101f Line {l1=0x0b, l2=»0750 ENDIF «, l3=0x0b}
0x101f…102c Line {l1=0x0b, l2=»0755 ENDIF «, l3=0x0b}
0x102c…1040 Line {l1=0x12, l2=»0760 IF T3=1 THEN «, l3=0x12}
0x1040…105c Line {l1=0x1a, l2=»0765 IF G=1 THEN ATP:=BATP«, l3=0x1a}
0x105c…106e Line {l1=0x10, l2=»0770 EXEC INDATP«, l3=0x10}
0x106e…1089 Line {l1=0x19, l2=»0775 BC3:=C3+C5;BATP:=ATP«, l3=0x19}
0x1089…1096 Line {l1=0x0b, l2=»0780 ENDIF «, l3=0x0b}
0x1096…10c0 Line {l1=0x28, l2=»0785 B3:=A(1);B4:=C1;B5:=C2;C6:=C7;PR:=O«, l3=0x28}
0x10c0…10d9 Line {l1=0x17, l2=»0790 IF C6<O THEN C6:=O«, l3=0x17}
0x10d9…10e5 Line {l1=0x0a, l2=»0795 C3:=O«, l3=0x0a}
0x10e5…1100 Line {l1=0x19, l2=»0800 IF T3=1 THEN C3:=BC3«, l3=0x19}
0x1100…1113 Line {l1=0x11, l2=»0805 EXEC SKATIND«, l3=0x11}
0x1113…1120 Line {l1=0x0b, l2=»0810 PRINT «, l3=0x0b}
0x1120…1150 Line {l1=0x2e, l2=»0815 PRINT "Ønskes rettelser til ovenstående";«, l3=0x2e}
0x1150…1160 Line {l1=0x0e, l2=»0820 EXEC SVAR«, l3=0x0e}
0x1160…116d Line {l1=0x0b, l2=»0825 CLEAR «, l3=0x0b}
0x116d…1180 Line {l1=0x11, l2=»0830 UNTIL S$="n"«, l3=0x11}
0x1180…118d Line {l1=0x0b, l2=»0835 ENDIF «, l3=0x0b}
0x118d…11a6 Line {l1=0x17, l2=»0840 IF C4<O THEN C4:=O«, l3=0x17}
0x11a6…11c5 Line {l1=0x1d, l2=»0845 IF T2=O THEN EXEC FORMUE«, l3=0x1d}
0x11c5…11e6 Line {l1=0x1f, l2=»0850 IF T2<>O THEN EXEC ÆFORMUE«, l3=0x1f}
0x11e6…11fa Line {l1=0x12, l2=»0855 IF G<>1 THEN «, l3=0x12}
0x11fa…1228 Line {l1=0x2c, l2=»0860 INPUT "Skriv kommuneskatteprocent: ":P7«, l3=0x2c}
0x1228…1238 Line {l1=0x0e, l2=»0865 PRINT LI$«, l3=0x0e}
0x1238…1271 Line {l1=0x37, l2=»0870 INPUT "Skriv den amtskommunale skatteprocent: ":P8«, l3=0x37}
0x1271…1281 Line {l1=0x0e, l2=»0875 PRINT LI$«, l3=0x0e}
0x1281…12af Line {l1=0x2c, l2=»0880 INPUT "Skriv kirkeskatteprocenten: ":P9«, l3=0x2c}
0x12af…12bf Line {l1=0x0e, l2=»0885 PRINT LI$«, l3=0x0e}
0x12bf…130c Line {l1=0x4b, l2=»0890 PRINT "Ønskes klientens navn anvendt i opgørelsen i stedet for HOVED";«, l3=0x4b}
0x130c…132b Line {l1=0x1d, l2=»0895 PRINT "PERSONEN og GIFT"«, l3=0x1d}
0x132b…1341 Line {l1=0x14, l2=»0900 PRINT "KVINDE";«, l3=0x14}
0x1341…1351 Line {l1=0x0e, l2=»0905 EXEC SVAR«, l3=0x0e}
0x1351…1386 Line {l1=0x33, l2=»0910 HKL$:="HOVEDPERSONEN";BKL$:="DEN GIFTE KVINDE"«, l3=0x33}
0x1386…139c Line {l1=0x14, l2=»0915 IF S$="j" THEN «, l3=0x14}
0x139c…13cd Line {l1=0x2f, l2=»0920 INPUT "Skriv hovedpersonens navn    ":HKL$«, l3=0x2f}
0x13cd…140c Line {l1=0x3d, l2=»0925 IF T2<>O THEN INPUT "Skriv den gifte kvindes navn ":BKL$«, l3=0x3d}
0x140c…141c Line {l1=0x0e, l2=»0930 PRINT LI$«, l3=0x0e}
0x141c…1429 Line {l1=0x0b, l2=»0935 ENDIF «, l3=0x0b}
0x1429…1436 Line {l1=0x0b, l2=»0940 ENDIF «, l3=0x0b}
0x1436…1454 Line {l1=0x1c, l2=»0945 IF T2=1 THEN EXEC REGN3«, l3=0x1c}
0x1454…1469 Line {l1=0x13, l2=»0950 IF T2<>1 THEN «, l3=0x13}
0x1469…147a Line {l1=0x0f, l2=»0955 EXEC REGN4«, l3=0x0f}
0x147a…1498 Line {l1=0x1c, l2=»0960 IF T2=2 THEN EXEC REGN5«, l3=0x1c}
0x1498…14a4 Line {l1=0x0a, l2=»0965 ELSE «, l3=0x0a}
0x14a4…14b5 Line {l1=0x0f, l2=»0970 EXEC REGN6«, l3=0x0f}
0x14b5…14c2 Line {l1=0x0b, l2=»0975 ENDIF «, l3=0x0b}
0x14c2…14d3 Line {l1=0x0f, l2=»0980 EXEC REGN7«, l3=0x0f}
0x14d3…14fe Line {l1=0x29, l2=»0985 IF T2=O AND B7>U2+99 THEN EXEC REGN8«, l3=0x29}
0x14fe…152c Line {l1=0x2c, l2=»0990 IF T4=1 AND B7+B8>U2+99 THEN EXEC REGN9«, l3=0x2c}
0x152c…1556 Line {l1=0x28, l2=»0995 IF T2=2 AND T4=O AND B7>U2+99 THEN «, l3=0x28}
0x1556…1567 Line {l1=0x0f, l2=»1000 EXEC REGN8«, l3=0x0f}
0x1567…157d Line {l1=0x14, l2=»1005 HB9:=B9;HB7:=B7«, l3=0x14}
0x157d…158a Line {l1=0x0b, l2=»1010 ENDIF «, l3=0x0b}
0x158a…15b4 Line {l1=0x28, l2=»1015 IF T2=2 AND T4=O AND B8>U2+99 THEN «, l3=0x28}
0x15b4…15c1 Line {l1=0x0b, l2=»1020 B7:=B8«, l3=0x0b}
0x15c1…15d2 Line {l1=0x0f, l2=»1025 EXEC REGN8«, l3=0x0f}
0x15d2…15ef Line {l1=0x1b, l2=»1030 E6:=B9;B9:=HB9;B7:=HB7«, l3=0x1b}
0x15ef…15fc Line {l1=0x0b, l2=»1035 ENDIF «, l3=0x0b}
0x15fc…162d Line {l1=0x2f, l2=»1040 PRINT "Ønskes der print af beregningerne";«, l3=0x2f}
0x162d…163d Line {l1=0x0e, l2=»1045 EXEC SVAR«, l3=0x0e}
0x163d…1649 Line {l1=0x0a, l2=»1050 PR:=O«, l3=0x0a}
0x1649…1664 Line {l1=0x19, l2=»1055 IF S$="j" THEN PR:=1«, l3=0x19}
0x1664…167f Line {l1=0x19, l2=»1060 FOR Y:=1 TO PR+1 DO «, l3=0x19}
0x167f…169c Line {l1=0x1b, l2=»1065 IF Y=2 THEN OUTPUT "P"«, l3=0x1b}
0x169c…16b1 Line {l1=0x13, l2=»1070 EXEC SIDESKIFT«, l3=0x13}
0x16b1…16c5 Line {l1=0x12, l2=»1075 EXEC SÆTATILH«, l3=0x12}
0x16c5…16f2 Line {l1=0x2b, l2=»1080 QT$:="INDKOMSTOPGØRELSE FOR "+HKL$+":"«, l3=0x2b}
0x16f2…16fe Line {l1=0x0a, l2=»1085 C3:=O«, l3=0x0a}
0x16fe…1719 Line {l1=0x19, l2=»1090 IF T1=1 THEN C3:=HC3«, l3=0x19}
0x1719…1739 Line {l1=0x1e, l2=»1095 C1:=B1;C2:=B2;B6:=HFORMUE«, l3=0x1e}
0x1739…174c Line {l1=0x11, l2=»1100 EXEC SKATIND«, l3=0x11}
0x174c…175d Line {l1=0x0f, l2=»1105 EXEC SKIFT«, l3=0x0f}
0x175d…176f Line {l1=0x10, l2=»1110 EXEC REGN10«, l3=0x10}
0x176f…177f Line {l1=0x0e, l2=»1115 EXEC SKAT«, l3=0x0e}
0x177f…1792 Line {l1=0x11, l2=»1120 EXEC INDSKAT«, l3=0x11}
0x1792…179f Line {l1=0x0b, l2=»1125 FS:=B9«, l3=0x0b}
0x179f…17b0 Line {l1=0x0f, l2=»1130 EXEC FSKAT«, l3=0x0f}
0x17b0…17c5 Line {l1=0x13, l2=»1135 EXEC SIDESKIFT«, l3=0x13}
0x17c5…17da Line {l1=0x13, l2=»1140 IF T2<>O THEN «, l3=0x13}
0x17da…17ee Line {l1=0x12, l2=»1145 EXEC SÆTATILK«, l3=0x12}
0x17ee…181b Line {l1=0x2b, l2=»1150 QT$:="INDKOMSTOPGØRELSE FOR "+BKL$+":"«, l3=0x2b}
0x181b…1827 Line {l1=0x0a, l2=»1155 C3:=O«, l3=0x0a}
0x1827…1842 Line {l1=0x19, l2=»1160 IF T3=1 THEN C3:=BC3«, l3=0x19}
0x1842…1862 Line {l1=0x1e, l2=»1165 C1:=B4;C2:=B5;B6:=BFORMUE«, l3=0x1e}
0x1862…1875 Line {l1=0x11, l2=»1170 EXEC SKATIND«, l3=0x11}
0x1875…1886 Line {l1=0x0f, l2=»1175 EXEC SKIFT«, l3=0x0f}
0x1886…1898 Line {l1=0x10, l2=»1180 EXEC REGN22«, l3=0x10}
0x1898…18a8 Line {l1=0x0e, l2=»1185 EXEC SKAT«, l3=0x0e}
0x18a8…18bb Line {l1=0x11, l2=»1190 EXEC INDSKAT«, l3=0x11}
0x18bb…18c8 Line {l1=0x0b, l2=»1195 FS:=E6«, l3=0x0b}
0x18c8…18d9 Line {l1=0x0f, l2=»1200 EXEC FSKAT«, l3=0x0f}
0x18d9…18ee Line {l1=0x13, l2=»1205 EXEC SIDESKIFT«, l3=0x13}
0x18ee…18fb Line {l1=0x0b, l2=»1210 ENDIF «, l3=0x0b}
0x18fb…190e Line {l1=0x11, l2=»1215 EXEC SKATPRO«, l3=0x11}
0x190e…191f Line {l1=0x0f, l2=»1220 EXEC SKIFT«, l3=0x0f}
0x191f…192c Line {l1=0x0b, l2=»1225 NEXT Y«, l3=0x0b}
0x192c…193d Line {l1=0x0f, l2=»1230 OUTPUT "T"«, l3=0x0f}
0x193d…194d Line {l1=0x0e, l2=»1235 PRINT LI$«, l3=0x0e}
0x194d…1998 Line {l1=0x49, l2=»1240 PRINT "Ønskes beregning af forskudsregistrering, d.v.s skattekort ";«, l3=0x49}
0x1998…19ac Line {l1=0x12, l2=»1245 PRINT "m.v.";«, l3=0x12}
0x19ac…19bc Line {l1=0x0e, l2=»1250 EXEC SVAR«, l3=0x0e}
0x19bc…19d2 Line {l1=0x14, l2=»1255 IF S$="j" THEN «, l3=0x14}
0x19d2…1a1b Line {l1=0x47, l2=»1260 PRINT "*** VENT **** FORSKUDSREGISTREINGS PROGRAMMET INDLÆSES ***"«, l3=0x47}
0x1a1b…1a33 Line {l1=0x16, l2=»1265 EXEC PROGRAMSKIFT«, l3=0x16}
0x1a33…1a4d Line {l1=0x18, l2=»1270 CHAIN "dde:forsk85"«, l3=0x18}
0x1a4d…1a5a Line {l1=0x0b, l2=»1275 ENDIF «, l3=0x0b}
0x1a5a…1a87 Line {l1=0x2b, l2=»1280 PRINT "Ønskes årsopgørelse udskrevet";«, l3=0x2b}
0x1a87…1a97 Line {l1=0x0e, l2=»1285 EXEC SVAR«, l3=0x0e}
0x1a97…1aad Line {l1=0x14, l2=»1290 IF S$="j" THEN «, l3=0x14}
0x1aad…1aef Line {l1=0x40, l2=»1295 PRINT "*** VENT **** ÅRSOPGØRELSES PROGRAMMET INDLÆSES ***"«, l3=0x40}
0x1aef…1b07 Line {l1=0x16, l2=»1300 EXEC PROGRAMSKIFT«, l3=0x16}
0x1b07…1b21 Line {l1=0x18, l2=»1305 CHAIN "DDE:ÅRSOP85"«, l3=0x18}
0x1b21…1b2e Line {l1=0x0b, l2=»1310 ENDIF «, l3=0x0b}
0x1b2e…1b41 Line {l1=0x11, l2=»1315 EXEC FORTSÆT«, l3=0x11}
0x1b41…1b53 Line {l1=0x10, l2=»1320 UNTIL F8<>1«, l3=0x10}
0x1b53…1b7e Line {l1=0x29, l2=»1325 T2:=2;T4:=O;GSLUT,HFORMUE,BFORMUE:=O«, l3=0x29}
0x1b7e…1b8f Line {l1=0x0f, l2=»1330 UNTIL 1<>1«, l3=0x0f}
0x1b8f…1ba7 Line {l1=0x16, l2=»1335 PROC PROGRAMSKIFT«, l3=0x16}
0x1ba7…1bbe Line {l1=0x15, l2=»1340 FIL$:="dde:fvar"«, l3=0x15}
0x1bbe…1bd0 Line {l1=0x10, l2=»1345 OPEN FIL$,W«, l3=0x10}
0x1bd0…1bfc Line {l1=0x2a, l2=»1350 PUT FIL$:PR,C4,HD6,C9,B0,T1,TKH,F6,F1«, l3=0x2a}
0x1bfc…1c26 Line {l1=0x28, l2=»1355 PUT FIL$:F9,P1,P7,P8,P9,T0,B2,B1,B9«, l3=0x28}
0x1c26…1c52 Line {l1=0x2a, l2=»1360 PUT FIL$:T2,C6,BD6,C0,B3,E6,F2,T3,TKB«, l3=0x2a}
0x1c52…1c78 Line {l1=0x24, l2=»1365 PUT FIL$:F0,F7,SKG,AKT,D6,GSLUT«, l3=0x24}
0x1c78…1ca9 Line {l1=0x2f, l2=»1370 PUT FIL$:HFORMUE,BFORMUE,HATP,BATP,G,FSLUT«, l3=0x2f}
0x1ca9…1cc2 Line {l1=0x17, l2=»1375 PUT FIL$:HKL$,BKL$«, l3=0x17}
0x1cc2…1cd3 Line {l1=0x0f, l2=»1380 CLOSE FIL$«, l3=0x0f}
0x1cd3…1cec Line {l1=0x17, l2=»1385 FIL$:="dde:hskvar"«, l3=0x17}
0x1cec…1cfe Line {l1=0x10, l2=»1390 OPEN FIL$,W«, l3=0x10}
0x1cfe…1d17 Line {l1=0x17, l2=»1395 FOR X:=1 TO 29 DO «, l3=0x17}
0x1d17…1d2b Line {l1=0x12, l2=»1400 PUT FIL$:A(X)«, l3=0x12}
0x1d2b…1d51 Line {l1=0x24, l2=»1405 IF X<24 THEN PUT FIL$:H(X),K(X)«, l3=0x24}
0x1d51…1d5e Line {l1=0x0b, l2=»1410 NEXT X«, l3=0x0b}
0x1d5e…1d79 Line {l1=0x19, l2=»1415 PUT FIL$:F8,T1,T2,T4«, l3=0x19}
0x1d79…1d8a Line {l1=0x0f, l2=»1420 CLOSE FIL$«, l3=0x0f}
0x1d8a…1da5 Line {l1=0x19, l2=»1425 ENDPROC PROGRAMSKIFT«, l3=0x19}
0x1da5…1db8 Line {l1=0x11, l2=»1430 PROC FORTSÆT«, l3=0x11}
0x1db8…1dc5 Line {l1=0x0b, l2=»1435 CLEAR «, l3=0x0b}
0x1dc5…1e0a Line {l1=0x43, l2=»1440 PRINT "*** BEREGNINGEN ER GENNEMFØRT *** Ønskes de indtastede"«, l3=0x43}
0x1e0a…1e48 Line {l1=0x3c, l2=»1445 PRINT "indkomster/fradrag bevaret til en ny beregning";«, l3=0x3c}
0x1e48…1e58 Line {l1=0x0e, l2=»1450 EXEC SVAR«, l3=0x0e}
0x1e58…1e6f Line {l1=0x15, l2=»1455 G,F8:=O;FSLUT:=O«, l3=0x15}
0x1e6f…1e85 Line {l1=0x14, l2=»1460 IF S$="j" THEN «, l3=0x14}
0x1e85…1e9a Line {l1=0x13, l2=»1465 F8:=1;FSLUT:=1«, l3=0x13}
0x1e9a…1ee4 Line {l1=0x48, l2=»1470 PRINT "Ønskes alle andre forudsætninger for beregningerne bevaret";«, l3=0x48}
0x1ee4…1ef4 Line {l1=0x0e, l2=»1475 EXEC SVAR«, l3=0x0e}
0x1ef4…1f0e Line {l1=0x18, l2=»1480 IF S$="j" THEN G:=1«, l3=0x18}
0x1f0e…1f1b Line {l1=0x0b, l2=»1485 ENDIF «, l3=0x0b}
0x1f1b…1f31 Line {l1=0x14, l2=»1490 ENDPROC FORTSÆT«, l3=0x14}
0x1f31…1f43 Line {l1=0x10, l2=»1495 PROC REGN20«, l3=0x10}
0x1f43…1f83 Line {l1=0x3e, l2=»1500 HD1:=D1;HD2:=D2;HDA2:=DA2;HD3:=D3;HD4:=D4;HD5:=D5;HD6:=D6«, l3=0x3e}
0x1f83…1f98 Line {l1=0x13, l2=»1505 ENDPROC REGN20«, l3=0x13}
0x1f98…1faa Line {l1=0x10, l2=»1510 PROC REGN10«, l3=0x10}
0x1faa…1fea Line {l1=0x3e, l2=»1515 D1:=HD1;D2:=HD2;DA2:=HDA2;D3:=HD3;D4:=HD4;D5:=HD5;D6:=HD6«, l3=0x3e}
0x1fea…1fff Line {l1=0x13, l2=»1520 ENDPROC REGN10«, l3=0x13}
0x1fff…2011 Line {l1=0x10, l2=»1525 PROC REGN21«, l3=0x10}
0x2011…2051 Line {l1=0x3e, l2=»1530 BD1:=D1;BD2:=D2;BDA2:=DA2;BD3:=D3;BD4:=D4;BD5:=D5;BD6:=D6«, l3=0x3e}
0x2051…2066 Line {l1=0x13, l2=»1535 ENDPROC REGN21«, l3=0x13}
0x2066…2078 Line {l1=0x10, l2=»1540 PROC REGN22«, l3=0x10}
0x2078…20b8 Line {l1=0x3e, l2=»1545 D1:=BD1;D2:=BD2;DA2:=BDA2;D3:=BD3;D4:=BD4;D5:=BD5;D6:=BD6«, l3=0x3e}
0x20b8…20cd Line {l1=0x13, l2=»1550 ENDPROC REGN22«, l3=0x13}
0x20cd…20dd Line {l1=0x0e, l2=»1555 PROC LFIL«, l3=0x0e}
0x20dd…20eb Line {l1=0x0c, l2=»1560 REPEAT «, l3=0x0c}
0x20eb…20fd Line {l1=0x10, l2=»1565 GET FIL$:S$«, l3=0x10}
0x20fd…2123 Line {l1=0x24, l2=»1570 IF STATUS(FIL$)=O THEN PRINT S$«, l3=0x24}
0x2123…213f Line {l1=0x1a, l2=»1575 UNTIL STATUS(FIL$)=19«, l3=0x1a}
0x213f…2150 Line {l1=0x0f, l2=»1580 CLOSE FIL$«, l3=0x0f}
0x2150…2163 Line {l1=0x11, l2=»1585 ENDPROC LFIL«, l3=0x11}
0x2163…2174 Line {l1=0x0f, l2=»1590 PROC SKÆRM«, l3=0x0f}
0x2174…219c Line {l1=0x26, l2=»1595 A1$(24):="24. FORMUE "+PIL$(1:18)«, l3=0x26}
0x219c…21b5 Line {l1=0x17, l2=»1600 FOR X:=1 TO 12 DO «, l3=0x17}
0x21b5…21c9 Line {l1=0x12, l2=»1605 PRINT A1$(X);«, l3=0x12}
0x21c9…21f5 Line {l1=0x2a, l2=»1610 IF A(X)<>O THEN PRINT USING NU$:A(X);«, l3=0x2a}
0x21f5…2214 Line {l1=0x1d, l2=»1615 PRINT TAB(42);A1$(X+12);«, l3=0x1d}
0x2214…2246 Line {l1=0x30, l2=»1620 IF A(X+12)<>O THEN PRINT USING NU$:A(X+12);«, l3=0x30}
0x2246…2253 Line {l1=0x0b, l2=»1625 PRINT «, l3=0x0b}
0x2253…2260 Line {l1=0x0b, l2=»1630 NEXT X«, l3=0x0b}
0x2260…2274 Line {l1=0x12, l2=»1635 ENDPROC SKÆRM«, l3=0x12}
0x2274…2288 Line {l1=0x12, l2=»1640 PROC INDKOMST«, l3=0x12}
0x2288…2295 Line {l1=0x0b, l2=»1645 CLEAR «, l3=0x0b}
0x2295…22bf Line {l1=0x28, l2=»1650 PRINT TAB(29);">>> EASY - SKAT <<<"«, l3=0x28}
0x22bf…22f5 Line {l1=0x34, l2=»1655 PRINT TAB(20);"*** INDDATERING TIL ";QT$;" ***"«, l3=0x34}
0x22f5…233f Line {l1=0x48, l2=»1660 PRINT "Nr. Indkomst";TAB(33);"Beløb";TAB(42);"Nr. Fradrag";TAB(74);«, l3=0x48}
0x233f…2353 Line {l1=0x12, l2=»1665 PRINT "Beløb"«, l3=0x12}
0x2353…2360 Line {l1=0x0b, l2=»1670 PRINT «, l3=0x0b}
0x2360…2371 Line {l1=0x0f, l2=»1675 EXEC SKÆRM«, l3=0x0f}
0x2371…237f Line {l1=0x0c, l2=»1680 REPEAT «, l3=0x0c}
0x237f…238d Line {l1=0x0c, l2=»1685 REPEAT «, l3=0x0c}
0x238d…239d Line {l1=0x0e, l2=»1690 B6:=A(24)«, l3=0x0e}
0x239d…23af Line {l1=0x10, l2=»1695 CURSOR 1,20«, l3=0x10}
0x23af…23fe Line {l1=0x4d, l2=»1700 INPUT "Skriv nummer på indkomst/fradrag (1 til 24, 0 for slut) ----> ":N«, l3=0x4d}
0x23fe…2449 Line {l1=0x49, l2=»1705 IF N>24 THEN PRINT "*** Nummeret skal være fra 1 til 24 ***";CHR$(7)«, l3=0x49}
0x2449…245a Line {l1=0x0f, l2=»1710 UNTIL N<25«, l3=0x0f}
0x245a…2484 Line {l1=0x28, l2=»1715 IF N=2 OR N=8 OR N=18 OR N=19 THEN «, l3=0x28}
0x2484…2493 Line {l1=0x0d, l2=»1720 EXEC WIN«, l3=0x0d}
0x2493…249f Line {l1=0x0a, l2=»1725 ELSE «, l3=0x0a}
0x249f…24b3 Line {l1=0x12, l2=»1730 IF N<>O THEN «, l3=0x12}
0x24b3…24e9 Line {l1=0x34, l2=»1735 PRINT "Skriv beløbets størelse "+LI$(1:36)+">";«, l3=0x34}
0x24e9…24fe Line {l1=0x13, l2=»1740 INPUT " ":A(N)«, l3=0x13}
0x24fe…2512 Line {l1=0x12, l2=»1745 IF N=11 THEN «, l3=0x12}
0x2512…252f Line {l1=0x1b, l2=»1750 A(12):=INT(A(11)*25/W)«, l3=0x1b}
0x252f…2542 Line {l1=0x11, l2=»1755 CURSOR 30,16«, l3=0x11}
0x2542…255e Line {l1=0x1a, l2=»1760 PRINT USING NU$:A(12)«, l3=0x1a}
0x255e…256b Line {l1=0x0b, l2=»1765 ENDIF «, l3=0x0b}
0x256b…2578 Line {l1=0x0b, l2=»1770 ENDIF «, l3=0x0b}
0x2578…2585 Line {l1=0x0b, l2=»1775 ENDIF «, l3=0x0b}
0x2585…2597 Line {l1=0x10, l2=»1780 CURSOR 1,17«, l3=0x10}
0x2597…25b0 Line {l1=0x17, l2=»1785 FOR X:=1 TO 12 DO «, l3=0x17}
0x25b0…25c1 Line {l1=0x0f, l2=»1790 PRINT SP$;«, l3=0x0f}
0x25c1…25ce Line {l1=0x0b, l2=»1795 NEXT X«, l3=0x0b}
0x25ce…25e2 Line {l1=0x12, l2=»1800 IF N<>O THEN «, l3=0x12}
0x25e2…2603 Line {l1=0x1f, l2=»1805 IF N>12 THEN CURSOR 71,N-8«, l3=0x1f}
0x2603…2625 Line {l1=0x20, l2=»1810 IF N<=12 THEN CURSOR 30,N+4«, l3=0x20}
0x2625…263c Line {l1=0x15, l2=»1815 IF A(N)<>O THEN «, l3=0x15}
0x263c…2657 Line {l1=0x19, l2=»1820 PRINT USING NU$:A(N)«, l3=0x19}
0x2657…2663 Line {l1=0x0a, l2=»1825 ELSE «, l3=0x0a}
0x2663…2678 Line {l1=0x13, l2=»1830 PRINT SP$(1:9)«, l3=0x13}
0x2678…2685 Line {l1=0x0b, l2=»1835 ENDIF «, l3=0x0b}
0x2685…2692 Line {l1=0x0b, l2=»1840 ENDIF «, l3=0x0b}
0x2692…26a2 Line {l1=0x0e, l2=»1845 UNTIL N=O«, l3=0x0e}
0x26a2…26af Line {l1=0x0b, l2=»1850 CLEAR «, l3=0x0b}
0x26af…26c6 Line {l1=0x15, l2=»1855 ENDPROC INDKOMST«, l3=0x15}
0x26c6…26d7 Line {l1=0x0f, l2=»1860 PROC REGN1«, l3=0x0f}
0x26d7…2722 Line {l1=0x49, l2=»1865 C1:=A(1)+A(2)+A(4)-A(5)-A(7)+A(6)+A(9)+A(10)-A(14)-A(18)+A(15)-A(16)«, l3=0x49}
0x2722…2741 Line {l1=0x1d, l2=»1870 C1:=C1+A(17)-A(22)-A(23)«, l3=0x1d}
0x2741…278f Line {l1=0x4c, l2=»1875 C2:=A(3)+A(5)+A(7)-A(9)+A(12)+A(11)-A(15)-A(13)-A(17)-A(19)-A(20)-A(21)«, l3=0x4c}
0x278f…27b1 Line {l1=0x20, l2=»1880 C2:=C2+A(22)+A(8);C7:=C1+C2«, l3=0x20}
0x27b1…27c5 Line {l1=0x12, l2=»1885 ENDPROC REGN1«, l3=0x12}
0x27c5…27d7 Line {l1=0x10, l2=»1890 PROC INDATP«, l3=0x10}
0x27d7…27f7 Line {l1=0x1e, l2=»1895 C3:=A(8)-A(9)-A(21)+A(22)«, l3=0x1e}
0x27f7…2810 Line {l1=0x17, l2=»1900 IF C3<O THEN C3:=O«, l3=0x17}
0x2810…2824 Line {l1=0x12, l2=»1905 IF G<>1 THEN «, l3=0x12}
0x2824…2867 Line {l1=0x41, l2=»1910 PRINT "Skriv størrelsen på modtaget ATP-beløb til brug for "«, l3=0x41}
0x2867…2891 Line {l1=0x28, l2=»1915 INPUT "rentenedslag (evt, 0): ":ATP«, l3=0x28}
0x2891…28a1 Line {l1=0x0e, l2=»1920 PRINT LI$«, l3=0x0e}
0x28a1…28ae Line {l1=0x0b, l2=»1925 ENDIF «, l3=0x0b}
0x28ae…28cb Line {l1=0x1b, l2=»1930 C3:=C3+ATP;C3:=C3*30/W«, l3=0x1b}
0x28cb…28ea Line {l1=0x1d, l2=»1935 IF C3>3500 THEN C3:=3500«, l3=0x1d}
0x28ea…291d Line {l1=0x31, l2=»1940 IF C7>F3+99 THEN C3:=C3-((INT(C7/W)*W)-F3)/2«, l3=0x31}
0x291d…2936 Line {l1=0x17, l2=»1945 IF C3<O THEN C3:=O«, l3=0x17}
0x2936…2951 Line {l1=0x19, l2=»1950 C3:=INT(C3+.9);C5:=O«, l3=0x19}
0x2951…297d Line {l1=0x2a, l2=»1955 IF C3>A(8)-A(9) THEN C5:=C3-A(8)+A(9)«, l3=0x2a}
0x297d…29ab Line {l1=0x2c, l2=»1960 C3:=C3-C5;C2:=C2-C3;C1:=C1-C5;C7:=C1+C2«, l3=0x2c}
0x29ab…29c0 Line {l1=0x13, l2=»1965 ENDPROC INDATP«, l3=0x13}
0x29c0…29d3 Line {l1=0x11, l2=»1970 PROC FEJLMED«, l3=0x11}
0x29d3…29df Line {l1=0x0a, l2=»1975 FE:=O«, l3=0x0a}
0x29df…29fe Line {l1=0x1d, l2=»1980 PRINT "FEJLMEDDELELSER:"«, l3=0x1d}
0x29fe…2a24 Line {l1=0x24, l2=»1985 IF A(9)>A(8) THEN EXEC FEJL1(1)«, l3=0x24}
0x2a24…2a4a Line {l1=0x24, l2=»1990 IF A(5)>A(4) THEN EXEC FEJL1(2)«, l3=0x24}
0x2a4a…2a70 Line {l1=0x24, l2=»1995 IF A(7)>A(6) THEN EXEC FEJL1(3)«, l3=0x24}
0x2a70…2a98 Line {l1=0x26, l2=»2000 IF A(15)>A(14) THEN EXEC FEJL1(4)«, l3=0x26}
0x2a98…2ac0 Line {l1=0x26, l2=»2005 IF A(17)>A(16) THEN EXEC FEJL1(5)«, l3=0x26}
0x2ac0…2aec Line {l1=0x2a, l2=»2010 IF A(23)>A(6)*50/W THEN EXEC FEJL1(6)«, l3=0x2a}
0x2aec…2b04 Line {l1=0x16, l2=»2015 IF A(23)>M1 THEN «, l3=0x16}
0x2b04…2b10 Line {l1=0x0a, l2=»2020 FE:=1«, l3=0x0a}
0x2b10…2b5e Line {l1=0x4c, l2=»2025 PRINT "Medarbejdende ægtefællefradrag er for stor. Må højst udgøre";M1;«, l3=0x4c}
0x2b5e…2b6e Line {l1=0x0e, l2=»2030 PRINT "."«, l3=0x0e}
0x2b6e…2b7b Line {l1=0x0b, l2=»2035 PRINT «, l3=0x0b}
0x2b7b…2b88 Line {l1=0x0b, l2=»2040 ENDIF «, l3=0x0b}
0x2b88…2bb5 Line {l1=0x2b, l2=»2045 IF A(12)>A(11)*25/W THEN EXEC FEJL1(7)«, l3=0x2b}
0x2bb5…2bdd Line {l1=0x26, l2=»2050 IF A(22)>A(21) THEN EXEC FEJL1(8)«, l3=0x26}
0x2bdd…2c20 Line {l1=0x41, l2=»2055 IF (A(9)>O OR A(22)>O) AND A(4)-A(5)=O AND A(6)-A(7)=O THEN «, l3=0x41}
0x2c20…2c5c Line {l1=0x3a, l2=»2060 IF A(14)-A(15)=O AND A(16)-A(17)=O THEN EXEC FEJL1(9)«, l3=0x3a}
0x2c5c…2c69 Line {l1=0x0b, l2=»2065 ENDIF «, l3=0x0b}
0x2c69…2c7f Line {l1=0x14, l2=»2070 ENDPROC FEJLMED«, l3=0x14}
0x2c7f…2c93 Line {l1=0x12, l2=»2075 PROC FEJL1(Æ)«, l3=0x12}
0x2c93…2cb2 Line {l1=0x1d, l2=»2080 FIL$:="dde:skfejl";FE:=1«, l3=0x1d}
0x2cb2…2cc4 Line {l1=0x10, l2=»2085 OPEN FIL$,R«, l3=0x10}
0x2cc4…2cdc Line {l1=0x16, l2=»2090 FOR Ø:=1 TO 9 DO «, l3=0x16}
0x2cdc…2cf4 Line {l1=0x16, l2=»2095 FOR Q:=1 TO 4 DO «, l3=0x16}
0x2cf4…2d06 Line {l1=0x10, l2=»2100 GET FIL$:S$«, l3=0x10}
0x2d06…2d43 Line {l1=0x3b, l2=»2105 IF LEN(S$)>2 AND Æ=Ø AND STATUS(FIL$)<19 THEN PRINT S$«, l3=0x3b}
0x2d43…2d50 Line {l1=0x0b, l2=»2110 NEXT Q«, l3=0x0b}
0x2d50…2d5d Line {l1=0x0b, l2=»2115 NEXT Ø«, l3=0x0b}
0x2d5d…2d6e Line {l1=0x0f, l2=»2120 CLOSE FIL$«, l3=0x0f}
0x2d6e…2d82 Line {l1=0x12, l2=»2125 ENDPROC FEJL1«, l3=0x12}
0x2d82…2d92 Line {l1=0x0e, l2=»2130 PROC FEJL«, l3=0x0e}
0x2d92…2da6 Line {l1=0x12, l2=»2135 IF FE=O THEN «, l3=0x12}
0x2da6…2dd0 Line {l1=0x28, l2=»2140 PRINT "Ingen åbenbare fejl fundet."«, l3=0x28}
0x2dd0…2de0 Line {l1=0x0e, l2=»2145 PRINT LI$«, l3=0x0e}
0x2de0…2dec Line {l1=0x0a, l2=»2150 ELSE «, l3=0x0a}
0x2dec…2e18 Line {l1=0x2a, l2=»2155 PRINT "Skal der foretages rettelser";«, l3=0x2a}
0x2e18…2e28 Line {l1=0x0e, l2=»2160 EXEC SVAR«, l3=0x0e}
0x2e28…2e43 Line {l1=0x19, l2=»2165 IF S$="n" THEN FE:=O«, l3=0x19}
0x2e43…2e53 Line {l1=0x0e, l2=»2170 PRINT LI$«, l3=0x0e}
0x2e53…2e60 Line {l1=0x0b, l2=»2175 ENDIF «, l3=0x0b}
0x2e60…2e73 Line {l1=0x11, l2=»2180 ENDPROC FEJL«, l3=0x11}
0x2e73…2e84 Line {l1=0x0f, l2=»2185 PROC TTEST«, l3=0x0f}
0x2e84…2e9d Line {l1=0x17, l2=»2190 PRINT "TOTALTEST:"«, l3=0x17}
0x2e9d…2ec9 Line {l1=0x2a, l2=»2195 IF A(23)<>H(10) OR A(10)<>H(23) THEN «, l3=0x2a}
0x2ec9…2ed5 Line {l1=0x0a, l2=»2200 FE:=1«, l3=0x0a}
0x2ed5…2f22 Line {l1=0x4b, l2=»2205 PRINT "Medarbejdende ægtefælleindkomst er ikke lig med medarbejdende "«, l3=0x4b}
0x2f22…2f42 Line {l1=0x1e, l2=»2210 PRINT "ægtefællefradrag."«, l3=0x1e}
0x2f42…2f4f Line {l1=0x0b, l2=»2215 PRINT «, l3=0x0b}
0x2f4f…2f5c Line {l1=0x0b, l2=»2220 ENDIF «, l3=0x0b}
0x2f5c…2f93 Line {l1=0x35, l2=»2225 IF C4>O AND C7<O THEN FIL$:="dde:skatfejb";FE:=1«, l3=0x35}
0x2f93…2fca Line {l1=0x35, l2=»2230 IF C4<O AND C7>O THEN FIL$:="dde:skatfejh";FE:=1«, l3=0x35}
0x2fca…2ff2 Line {l1=0x26, l2=»2235 IF FIL$(9:3)="fej" AND FE=1 THEN «, l3=0x26}
0x2ff2…3004 Line {l1=0x10, l2=»2240 OPEN FIL$,R«, l3=0x10}
0x3004…3014 Line {l1=0x0e, l2=»2245 EXEC LFIL«, l3=0x0e}
0x3014…3042 Line {l1=0x2c, l2=»2250 QT$:="Det negative beløb udgør ";QB:=C7«, l3=0x2c}
0x3042…3055 Line {l1=0x11, l2=»2255 EXEC LSKRIV2«, l3=0x11}
0x3055…3062 Line {l1=0x0b, l2=»2260 PRINT «, l3=0x0b}
0x3062…306f Line {l1=0x0b, l2=»2265 ENDIF «, l3=0x0b}
0x306f…3083 Line {l1=0x12, l2=»2270 ENDPROC TTEST«, l3=0x12}
0x3083…3097 Line {l1=0x12, l2=»2275 PROC NULSTIL2«, l3=0x12}
0x3097…30b0 Line {l1=0x17, l2=»2280 FOR X:=1 TO 23 DO «, l3=0x17}
0x30b0…30be Line {l1=0x0c, l2=»2285 A(X):=O«, l3=0x0c}
0x30be…30cb Line {l1=0x0b, l2=»2290 NEXT X«, l3=0x0b}
0x30cb…30e2 Line {l1=0x15, l2=»2295 ENDPROC NULSTIL2«, l3=0x15}
0x30e2…30f6 Line {l1=0x12, l2=»2300 PROC SÆTATILH«, l3=0x12}
0x30f6…310f Line {l1=0x17, l2=»2305 FOR X:=1 TO 23 DO «, l3=0x17}
0x310f…3120 Line {l1=0x0f, l2=»2310 A(X):=H(X)«, l3=0x0f}
0x3120…312d Line {l1=0x0b, l2=»2315 NEXT X«, l3=0x0b}
0x312d…3144 Line {l1=0x15, l2=»2320 ENDPROC SÆTATILH«, l3=0x15}
0x3144…3158 Line {l1=0x12, l2=»2325 PROC SÆTATILK«, l3=0x12}
0x3158…3171 Line {l1=0x17, l2=»2330 FOR X:=1 TO 23 DO «, l3=0x17}
0x3171…3182 Line {l1=0x0f, l2=»2335 A(X):=K(X)«, l3=0x0f}
0x3182…318f Line {l1=0x0b, l2=»2340 NEXT X«, l3=0x0b}
0x318f…31a6 Line {l1=0x15, l2=»2345 ENDPROC SÆTATILK«, l3=0x15}
0x31a6…31ba Line {l1=0x12, l2=»2350 PROC SÆTHTILA«, l3=0x12}
0x31ba…31d3 Line {l1=0x17, l2=»2355 FOR X:=1 TO 23 DO «, l3=0x17}
0x31d3…31e4 Line {l1=0x0f, l2=»2360 H(X):=A(X)«, l3=0x0f}
0x31e4…31f1 Line {l1=0x0b, l2=»2365 NEXT X«, l3=0x0b}
0x31f1…3208 Line {l1=0x15, l2=»2370 ENDPROC SÆTHTILA«, l3=0x15}
0x3208…321c Line {l1=0x12, l2=»2375 PROC SÆTKTILA«, l3=0x12}
0x321c…3235 Line {l1=0x17, l2=»2380 FOR X:=1 TO 23 DO «, l3=0x17}
0x3235…3246 Line {l1=0x0f, l2=»2385 K(X):=A(X)«, l3=0x0f}
0x3246…3253 Line {l1=0x0b, l2=»2390 NEXT X«, l3=0x0b}
0x3253…326a Line {l1=0x15, l2=»2395 ENDPROC SÆTKTILA«, l3=0x15}
0x326a…327d Line {l1=0x11, l2=»2400 PROC SKATIND«, l3=0x11}
0x327d…3292 Line {l1=0x13, l2=»2405 S$:=NU$+" KR."«, l3=0x13}
0x3292…32a5 Line {l1=0x11, l2=»2410 EXEC LSKRIV3«, l3=0x11}
0x32a5…32b2 Line {l1=0x0b, l2=»2415 PRINT «, l3=0x0b}
0x32b2…32c8 Line {l1=0x14, l2=»2420 C7,C7IK,C7FR:=O«, l3=0x14}
0x32c8…32e1 Line {l1=0x17, l2=»2425 FOR X:=1 TO 12 DO «, l3=0x17}
0x32e1…32fa Line {l1=0x17, l2=»2430 PRINT A1$(X,5:25);«, l3=0x17}
0x32fa…3325 Line {l1=0x29, l2=»2435 IF A(X)<>O THEN PRINT USING S$:A(X);«, l3=0x29}
0x3325…3339 Line {l1=0x12, l2=»2440 IF X<12 THEN «, l3=0x12}
0x3339…335d Line {l1=0x22, l2=»2445 PRINT TAB(41);A1$(X+12,5:25);«, l3=0x22}
0x335d…338e Line {l1=0x2f, l2=»2450 IF A(X+12)<>O THEN PRINT USING S$:A(X+12);«, l3=0x2f}
0x338e…339a Line {l1=0x0a, l2=»2455 ELSE «, l3=0x0a}
0x339a…33ae Line {l1=0x12, l2=»2460 IF C3>O THEN «, l3=0x12}
0x33ae…33df Line {l1=0x2f, l2=»2465 PRINT TAB(41);"RENTEINDTÆGTSNEDSLAG ....";«, l3=0x2f}
0x33df…33f8 Line {l1=0x17, l2=»2470 PRINT USING S$:C3;«, l3=0x17}
0x33f8…3405 Line {l1=0x0b, l2=»2475 ENDIF «, l3=0x0b}
0x3405…3412 Line {l1=0x0b, l2=»2480 ENDIF «, l3=0x0b}
0x3412…341f Line {l1=0x0b, l2=»2485 PRINT «, l3=0x0b}
0x341f…342c Line {l1=0x0b, l2=»2490 NEXT X«, l3=0x0b}
0x342c…3445 Line {l1=0x17, l2=»2495 FOR X:=1 TO 23 DO «, l3=0x17}
0x3445…3489 Line {l1=0x42, l2=»2500 IF X<>5 AND X<>7 AND X<>9 AND X<>15 AND X<>17 AND X<>22 THEN «, l3=0x42}
0x3489…34ad Line {l1=0x22, l2=»2505 IF X<=12 THEN C7IK:=C7IK+A(X)«, l3=0x22}
0x34ad…34d0 Line {l1=0x21, l2=»2510 IF X>12 THEN C7FR:=C7FR+A(X)«, l3=0x21}
0x34d0…34dd Line {l1=0x0b, l2=»2515 ENDIF «, l3=0x0b}
0x34dd…34ea Line {l1=0x0b, l2=»2520 NEXT X«, l3=0x0b}
0x34ea…351d Line {l1=0x31, l2=»2525 QT$:=SP$(1:25)+LI$(1:12)+SP$(1:29)+LI$(1:12)«, l3=0x31}
0x351d…3530 Line {l1=0x11, l2=»2530 EXEC LSKRIV3«, l3=0x11}
0x3530…3559 Line {l1=0x27, l2=»2535 PRINT "INDKOMST IALT ";PIL$(1:11);«, l3=0x27}
0x3559…3574 Line {l1=0x19, l2=»2540 PRINT USING S$:C7IK;«, l3=0x19}
0x3574…35a4 Line {l1=0x2e, l2=»2545 PRINT TAB(41);"FRADRAG IALT ";PIL$(1:12);«, l3=0x2e}
0x35a4…35be Line {l1=0x18, l2=»2550 PRINT USING S$:C7FR«, l3=0x18}
0x35be…35fb Line {l1=0x3b, l2=»2555 QT$:=SP$(1:25)+"============"+SP$(1:29)+"============"«, l3=0x3b}
0x35fb…360e Line {l1=0x11, l2=»2560 EXEC LSKRIV3«, l3=0x11}
0x360e…361b Line {l1=0x0b, l2=»2565 PRINT «, l3=0x0b}
0x361b…3645 Line {l1=0x28, l2=»2570 PRINT "ARBEJDSINDKOMST ";PIL$(1:9);«, l3=0x28}
0x3645…365e Line {l1=0x17, l2=»2575 PRINT USING S$:C1;«, l3=0x17}
0x365e…3690 Line {l1=0x30, l2=»2580 PRINT TAB(41);"FORMUEINDKOMST ";PIL$(1:10);«, l3=0x30}
0x3690…36a8 Line {l1=0x16, l2=»2585 PRINT USING S$:C2«, l3=0x16}
0x36a8…36b8 Line {l1=0x0e, l2=»2590 C7:=C1+C2«, l3=0x0e}
0x36b8…36ea Line {l1=0x30, l2=»2595 PRINT "SKATTEPLIGTIG INDKOMST ";PIL$(1:42);«, l3=0x30}
0x36ea…3702 Line {l1=0x16, l2=»2600 PRINT USING S$:C7«, l3=0x16}
0x3702…3732 Line {l1=0x2e, l2=»2605 PRINT "SKATTEPLIGTIG FORMUE ";PIL$(1:44);«, l3=0x2e}
0x3732…374a Line {l1=0x16, l2=»2610 PRINT USING S$:B6«, l3=0x16}
0x374a…3760 Line {l1=0x14, l2=»2615 ENDPROC SKATIND«, l3=0x14}
0x3760…3772 Line {l1=0x10, l2=»2620 PROC FORMUE«, l3=0x10}
0x3772…3784 Line {l1=0x10, l2=»2625 B7:=HFORMUE«, l3=0x10}
0x3784…37a1 Line {l1=0x1b, l2=»2630 IF B7<U2+99 THEN B7:=O«, l3=0x1b}
0x37a1…37b6 Line {l1=0x13, l2=»2635 ENDPROC FORMUE«, l3=0x13}
0x37b6…37c9 Line {l1=0x11, l2=»2640 PROC ÆFORMUE«, l3=0x11}
0x37c9…37e7 Line {l1=0x1c, l2=»2645 B7:=HFORMUE;B8:=BFORMUE«, l3=0x1c}
0x37e7…3816 Line {l1=0x2d, l2=»2650 IF T4=1 AND B7+B8<U2+99 THEN B7:=O;B8:=O«, l3=0x2d}
0x3816…383c Line {l1=0x24, l2=»2655 IF T4=O AND B7<U2+99 THEN B7:=O«, l3=0x24}
0x383c…3862 Line {l1=0x24, l2=»2660 IF T4=O AND B8<U2+99 THEN B8:=O«, l3=0x24}
0x3862…3878 Line {l1=0x14, l2=»2665 ENDPROC ÆFORMUE«, l3=0x14}
0x3878…3889 Line {l1=0x0f, l2=»2670 PROC REGN3«, l3=0x0f}
0x3889…38ac Line {l1=0x21, l2=»2675 IF B1<O THEN B2:=B2+B1;B1:=O«, l3=0x21}
0x38ac…38cf Line {l1=0x21, l2=»2680 IF B4<O THEN B5:=B5+B4;B4:=O«, l3=0x21}
0x38cf…38e4 Line {l1=0x13, l2=»2685 IF B1=B4 THEN «, l3=0x13}
0x38e4…38ff Line {l1=0x19, l2=»2690 IF B2=>B5 THEN T0:=1«, l3=0x19}
0x38ff…3919 Line {l1=0x18, l2=»2695 IF B2<B5 THEN T0:=2«, l3=0x18}
0x3919…3925 Line {l1=0x0a, l2=»2700 ELSE «, l3=0x0a}
0x3925…393a Line {l1=0x13, l2=»2705 IF B1>B4 THEN «, l3=0x13}
0x393a…3946 Line {l1=0x0a, l2=»2710 T0:=1«, l3=0x0a}
0x3946…3974 Line {l1=0x2c, l2=»2715 IF B5<O AND ABS(B5)>C4 THEN EXEC REGN23«, l3=0x2c}
0x3974…3980 Line {l1=0x0a, l2=»2720 ELSE «, l3=0x0a}
0x3980…398c Line {l1=0x0a, l2=»2725 T0:=2«, l3=0x0a}
0x398c…39ba Line {l1=0x2c, l2=»2730 IF B2<O AND ABS(B2)>C6 THEN EXEC REGN24«, l3=0x2c}
0x39ba…39c7 Line {l1=0x0b, l2=»2735 ENDIF «, l3=0x0b}
0x39c7…39d4 Line {l1=0x0b, l2=»2740 ENDIF «, l3=0x0b}
0x39d4…3a1d Line {l1=0x47, l2=»2745 IF (T0=1 AND ABS(B5)<=1000) OR (T0=2 AND ABS(B2)<=1000) THEN T2:=2«, l3=0x47}
0x3a1d…3a31 Line {l1=0x12, l2=»2750 ENDPROC REGN3«, l3=0x12}
0x3a31…3a43 Line {l1=0x10, l2=»2755 PROC REGN23«, l3=0x10}
0x3a43…3a67 Line {l1=0x22, l2=»2760 E4:=B5+C4;B5:=B5-E4;B4:=B4+E4«, l3=0x22}
0x3a67…3a7c Line {l1=0x13, l2=»2765 ENDPROC REGN23«, l3=0x13}
0x3a7c…3a8e Line {l1=0x10, l2=»2770 PROC REGN24«, l3=0x10}
0x3a8e…3ab2 Line {l1=0x22, l2=»2775 E4:=B2+C6;B2:=B2-E4;B1:=B1+E4«, l3=0x22}
0x3ab2…3ac7 Line {l1=0x13, l2=»2780 ENDPROC REGN24«, l3=0x13}
0x3ac7…3ad9 Line {l1=0x10, l2=»2785 PROC REGN25«, l3=0x10}
0x3ad9…3aef Line {l1=0x14, l2=»2790 C7:=INT(C7/W)*W«, l3=0x14}
0x3aef…3b0f Line {l1=0x1e, l2=»2795 IF C7<=P1 OR C7<=P2 THEN «, l3=0x1e}
0x3b0f…3b24 Line {l1=0x13, l2=»2800 D1:=C7*16/W*U1«, l3=0x13}
0x3b24…3b5b Line {l1=0x35, l2=»2805 IF C7>P1 THEN D1:=((C7-P1)*32/W*U1)+(P1*16/W*U1)«, l3=0x35}
0x3b5b…3b67 Line {l1=0x0a, l2=»2810 ELSE «, l3=0x0a}
0x3b67…3ba2 Line {l1=0x39, l2=»2815 D1:=((C7-P2)*44/W*U1)+((P2-P1)*32/W*U1)+(P1*16/W*U1)«, l3=0x39}
0x3ba2…3bd7 Line {l1=0x33, l2=»2820 IF P7+P8>E1 THEN D1:=D1-((C7-P2)*(P7+P8-E1)/W)«, l3=0x33}
0x3bd7…3be4 Line {l1=0x0b, l2=»2825 ENDIF «, l3=0x0b}
0x3be4…3bf9 Line {l1=0x13, l2=»2830 ENDPROC REGN25«, l3=0x13}
0x3bf9…3c0b Line {l1=0x10, l2=»2835 PROC REGN26«, l3=0x10}
0x3c0b…3c1d Line {l1=0x10, l2=»2840 D2:=C7*P0/W«, l3=0x10}
0x3c1d…3c32 Line {l1=0x13, l2=»2845 ENDPROC REGN26«, l3=0x13}
0x3c32…3c44 Line {l1=0x10, l2=»2850 PROC REGN27«, l3=0x10}
0x3c44…3c58 Line {l1=0x12, l2=»2855 DA2:=C7*PA0/W«, l3=0x12}
0x3c58…3c6d Line {l1=0x13, l2=»2860 ENDPROC REGN27«, l3=0x13}
0x3c6d…3c7f Line {l1=0x10, l2=»2865 PROC REGN28«, l3=0x10}
0x3c7f…3c91 Line {l1=0x10, l2=»2870 D3:=C7*P7/W«, l3=0x10}
0x3c91…3ca6 Line {l1=0x13, l2=»2875 ENDPROC REGN28«, l3=0x13}
0x3ca6…3cb8 Line {l1=0x10, l2=»2880 PROC REGN29«, l3=0x10}
0x3cb8…3cca Line {l1=0x10, l2=»2885 D4:=C7*P8/W«, l3=0x10}
0x3cca…3cdf Line {l1=0x13, l2=»2890 ENDPROC REGN29«, l3=0x13}
0x3cdf…3cf1 Line {l1=0x10, l2=»2895 PROC REGN30«, l3=0x10}
0x3cf1…3d03 Line {l1=0x10, l2=»2900 D5:=C7*P9/W«, l3=0x10}
0x3d03…3d18 Line {l1=0x13, l2=»2905 ENDPROC REGN30«, l3=0x13}
0x3d18…3d2a Line {l1=0x10, l2=»2910 PROC REGN31«, l3=0x10}
0x3d2a…3d47 Line {l1=0x1b, l2=»2915 D0:=D1+D2+DA2+D3+D4+D5«, l3=0x1b}
0x3d47…3d5c Line {l1=0x13, l2=»2920 ENDPROC REGN31«, l3=0x13}
0x3d5c…3d6e Line {l1=0x10, l2=»2925 PROC REGN32«, l3=0x10}
0x3d6e…3d88 Line {l1=0x18, l2=»2930 D1:=D1-(C8*16/W*U1)«, l3=0x18}
0x3d88…3d9d Line {l1=0x13, l2=»2935 ENDPROC REGN32«, l3=0x13}
0x3d9d…3daf Line {l1=0x10, l2=»2940 PROC REGN33«, l3=0x10}
0x3daf…3de4 Line {l1=0x33, l2=»2945 D2:=D2-(C8*P0/W);D2AFR:=D2-INT(D2);D2:=INT(D2)«, l3=0x33}
0x3de4…3df9 Line {l1=0x13, l2=»2950 ENDPROC REGN33«, l3=0x13}
0x3df9…3e0b Line {l1=0x10, l2=»2955 PROC REGN34«, l3=0x10}
0x3e0b…3e47 Line {l1=0x3a, l2=»2960 DA2:=DA2-(C8*PA0/W);D2AFR:=DA2-INT(DA2);DA2:=INT(DA2)«, l3=0x3a}
0x3e47…3e5c Line {l1=0x13, l2=»2965 ENDPROC REGN34«, l3=0x13}
0x3e5c…3e6e Line {l1=0x10, l2=»2970 PROC REGN35«, l3=0x10}
0x3e6e…3e85 Line {l1=0x15, l2=»2975 D3:=D3-(C8*P7/W)«, l3=0x15}
0x3e85…3e9a Line {l1=0x13, l2=»2980 ENDPROC REGN35«, l3=0x13}
0x3e9a…3eac Line {l1=0x10, l2=»2985 PROC REGN36«, l3=0x10}
0x3eac…3ec3 Line {l1=0x15, l2=»2990 D4:=D4-(C8*P8/W)«, l3=0x15}
0x3ec3…3ed8 Line {l1=0x13, l2=»2995 ENDPROC REGN36«, l3=0x13}
0x3ed8…3eea Line {l1=0x10, l2=»3000 PROC REGN37«, l3=0x10}
0x3eea…3f01 Line {l1=0x15, l2=»3005 D5:=D5-(C8*P9/W)«, l3=0x15}
0x3f01…3f16 Line {l1=0x13, l2=»3010 ENDPROC REGN37«, l3=0x13}
0x3f16…3f28 Line {l1=0x10, l2=»3015 PROC REGN38«, l3=0x10}
0x3f28…3f45 Line {l1=0x1b, l2=»3020 D6:=D1+D2+DA2+D3+D4+D5«, l3=0x1b}
0x3f45…3f5a Line {l1=0x13, l2=»3025 ENDPROC REGN38«, l3=0x13}
0x3f5a…3f6b Line {l1=0x0f, l2=»3030 PROC REGN6«, l3=0x0f}
0x3f6b…3f86 Line {l1=0x19, l2=»3035 C7:=(INT(C6/W)*W)+B2«, l3=0x19}
0x3f86…3fae Line {l1=0x26, l2=»3040 IF T0=1 THEN C7:=(INT(C4/W)*W)+B5«, l3=0x26}
0x3fae…3fbb Line {l1=0x0b, l2=»3045 D8:=C7«, l3=0x0b}
0x3fbb…3fcd Line {l1=0x10, l2=»3050 EXEC REGN25«, l3=0x10}
0x3fcd…3fe1 Line {l1=0x12, l2=»3055 E2:=D1;C7:=C6«, l3=0x12}
0x3fe1…3ffb Line {l1=0x18, l2=»3060 IF T0=1 THEN C7:=C4«, l3=0x18}
0x3ffb…400d Line {l1=0x10, l2=»3065 EXEC REGN25«, l3=0x10}
0x400d…401d Line {l1=0x0e, l2=»3070 E2:=E2-D1«, l3=0x0e}
0x401d…402f Line {l1=0x10, l2=»3075 EXEC REGN51«, l3=0x10}
0x402f…4043 Line {l1=0x12, l2=»3080 IF T0=1 THEN «, l3=0x12}
0x4043…4054 Line {l1=0x0f, l2=»3085 EXEC KIRKE«, l3=0x0f}
0x4054…4060 Line {l1=0x0a, l2=»3090 ELSE «, l3=0x0a}
0x4060…4072 Line {l1=0x10, l2=»3095 EXEC GKIRKE«, l3=0x10}
0x4072…407f Line {l1=0x0b, l2=»3100 ENDIF «, l3=0x0b}
0x407f…408b Line {l1=0x0a, l2=»3105 D5:=O«, l3=0x0a}
0x408b…40ca Line {l1=0x3d, l2=»3110 IF (T0=1 AND TKH=1) OR (T0=2 AND TKB=1) THEN EXEC REGN30«, l3=0x3d}
0x40ca…40dc Line {l1=0x10, l2=»3115 EXEC REGN31«, l3=0x10}
0x40dc…40ee Line {l1=0x10, l2=»3120 EXEC REGN39«, l3=0x10}
0x40ee…4100 Line {l1=0x10, l2=»3125 EXEC REGN50«, l3=0x10}
0x4100…4114 Line {l1=0x12, l2=»3130 IF T0=1 THEN «, l3=0x12}
0x4114…4126 Line {l1=0x10, l2=»3135 EXEC REGN20«, l3=0x10}
0x4126…414a Line {l1=0x22, l2=»3140 C9:=D0;D7:=D6;C7:=INT(B5/W)*W«, l3=0x22}
0x414a…4156 Line {l1=0x0a, l2=»3145 ELSE «, l3=0x0a}
0x4156…4168 Line {l1=0x10, l2=»3150 EXEC REGN21«, l3=0x10}
0x4168…418c Line {l1=0x22, l2=»3155 C0:=D0;D9:=D6;C7:=INT(B2/W)*W«, l3=0x22}
0x418c…4199 Line {l1=0x0b, l2=»3160 ENDIF «, l3=0x0b}
0x4199…41ab Line {l1=0x10, l2=»3165 EXEC REGN51«, l3=0x10}
0x41ab…41bf Line {l1=0x12, l2=»3170 IF T0=1 THEN «, l3=0x12}
0x41bf…41d1 Line {l1=0x10, l2=»3175 EXEC GKIRKE«, l3=0x10}
0x41d1…41dd Line {l1=0x0a, l2=»3180 ELSE «, l3=0x0a}
0x41dd…41ee Line {l1=0x0f, l2=»3185 EXEC KIRKE«, l3=0x0f}
0x41ee…41fb Line {l1=0x0b, l2=»3190 ENDIF «, l3=0x0b}
0x41fb…4207 Line {l1=0x0a, l2=»3195 D5:=O«, l3=0x0a}
0x4207…4246 Line {l1=0x3d, l2=»3200 IF (T0=2 AND TKH=1) OR (T0=1 AND TKB=1) THEN EXEC REGN30«, l3=0x3d}
0x4246…4253 Line {l1=0x0b, l2=»3205 C7:=B1«, l3=0x0b}
0x4253…426d Line {l1=0x18, l2=»3210 IF T0=1 THEN C7:=B4«, l3=0x18}
0x426d…427f Line {l1=0x10, l2=»3215 EXEC REGN25«, l3=0x10}
0x427f…429d Line {l1=0x1c, l2=»3220 AR:=D1;D1:=D1+E2;E8:=D2«, l3=0x1c}
0x429d…42af Line {l1=0x10, l2=»3225 EXEC REGN26«, l3=0x10}
0x42af…42d1 Line {l1=0x20, l2=»3230 AR:=AR+D2;D2:=D2+E8;E8:=DA2«, l3=0x20}
0x42d1…42e3 Line {l1=0x10, l2=»3235 EXEC REGN27«, l3=0x10}
0x42e3…4307 Line {l1=0x22, l2=»3240 AR:=AR+DA2;DA2:=DA2+E8;E8:=D3«, l3=0x22}
0x4307…4319 Line {l1=0x10, l2=»3245 EXEC REGN28«, l3=0x10}
0x4319…433a Line {l1=0x1f, l2=»3250 AR:=AR+D3;D3:=D3+E8;E8:=D4«, l3=0x1f}
0x433a…434c Line {l1=0x10, l2=»3255 EXEC REGN29«, l3=0x10}
0x434c…4366 Line {l1=0x18, l2=»3260 AR:=AR+D4;D4:=D4+E8«, l3=0x18}
0x4366…437b Line {l1=0x13, l2=»3265 IF D5<>O THEN «, l3=0x13}
0x437b…4388 Line {l1=0x0b, l2=»3270 E8:=D5«, l3=0x0b}
0x4388…439a Line {l1=0x10, l2=»3275 EXEC REGN30«, l3=0x10}
0x439a…43b4 Line {l1=0x18, l2=»3280 AR:=AR+D5;D5:=D5+E8«, l3=0x18}
0x43b4…43c1 Line {l1=0x0b, l2=»3285 ENDIF «, l3=0x0b}
0x43c1…43cd Line {l1=0x0a, l2=»3290 E8:=O«, l3=0x0a}
0x43cd…43df Line {l1=0x10, l2=»3295 EXEC REGN31«, l3=0x10}
0x43df…43f1 Line {l1=0x10, l2=»3300 EXEC REGN42«, l3=0x10}
0x43f1…4403 Line {l1=0x10, l2=»3305 EXEC REGN32«, l3=0x10}
0x4403…4415 Line {l1=0x10, l2=»3310 EXEC REGN33«, l3=0x10}
0x4415…4429 Line {l1=0x12, l2=»3315 GEMAFR:=D2AFR«, l3=0x12}
0x4429…443b Line {l1=0x10, l2=»3320 EXEC REGN34«, l3=0x10}
0x443b…4456 Line {l1=0x19, l2=»3325 GEMAFR:=GEMAFR+D2AFR«, l3=0x19}
0x4456…4468 Line {l1=0x10, l2=»3330 EXEC REGN40«, l3=0x10}
0x4468…447a Line {l1=0x10, l2=»3335 EXEC REGN35«, l3=0x10}
0x447a…448c Line {l1=0x10, l2=»3340 EXEC REGN36«, l3=0x10}
0x448c…44a0 Line {l1=0x12, l2=»3345 IF D5>O THEN «, l3=0x12}
0x44a0…44b2 Line {l1=0x10, l2=»3350 EXEC REGN37«, l3=0x10}
0x44b2…44be Line {l1=0x0a, l2=»3355 ELSE «, l3=0x0a}
0x44be…44e8 Line {l1=0x28, l2=»3360 IF C8>C7 THEN D5:=D5-((C8-C7)*P9/W)«, l3=0x28}
0x44e8…44f5 Line {l1=0x0b, l2=»3365 ENDIF «, l3=0x0b}
0x44f5…4507 Line {l1=0x10, l2=»3370 EXEC REGN38«, l3=0x10}
0x4507…451b Line {l1=0x12, l2=»3375 IF T0=1 THEN «, l3=0x12}
0x451b…452d Line {l1=0x10, l2=»3380 EXEC REGN21«, l3=0x10}
0x452d…4541 Line {l1=0x12, l2=»3385 C0:=D0;D9:=D6«, l3=0x12}
0x4541…454d Line {l1=0x0a, l2=»3390 ELSE «, l3=0x0a}
0x454d…455f Line {l1=0x10, l2=»3395 EXEC REGN20«, l3=0x10}
0x455f…4573 Line {l1=0x12, l2=»3400 C9:=D0;D7:=D6«, l3=0x12}
0x4573…4580 Line {l1=0x0b, l2=»3405 ENDIF «, l3=0x0b}
0x4580…4594 Line {l1=0x12, l2=»3410 ENDPROC REGN6«, l3=0x12}
0x4594…45a5 Line {l1=0x0f, l2=»3415 PROC KIRKE«, l3=0x0f}
0x45a5…45b9 Line {l1=0x12, l2=»3420 IF G<>1 THEN «, l3=0x12}
0x45b9…45ef Line {l1=0x34, l2=»3425 PRINT "Er hovedpersonen medlem af folkekirken";«, l3=0x34}
0x45ef…45ff Line {l1=0x0e, l2=»3430 EXEC SVAR«, l3=0x0e}
0x45ff…460c Line {l1=0x0b, l2=»3435 TKH:=O«, l3=0x0b}
0x460c…4628 Line {l1=0x1a, l2=»3440 IF S$="j" THEN TKH:=1«, l3=0x1a}
0x4628…4635 Line {l1=0x0b, l2=»3445 ENDIF «, l3=0x0b}
0x4635…4649 Line {l1=0x12, l2=»3450 ENDPROC KIRKE«, l3=0x12}
0x4649…465b Line {l1=0x10, l2=»3455 PROC GKIRKE«, l3=0x10}
0x465b…466f Line {l1=0x12, l2=»3460 IF G<>1 THEN «, l3=0x12}
0x466f…46a8 Line {l1=0x37, l2=»3465 PRINT "Er den gifte kvinde medlem af folkekirken";«, l3=0x37}
0x46a8…46b8 Line {l1=0x0e, l2=»3470 EXEC SVAR«, l3=0x0e}
0x46b8…46c5 Line {l1=0x0b, l2=»3475 TKB:=O«, l3=0x0b}
0x46c5…46e1 Line {l1=0x1a, l2=»3480 IF S$="j" THEN TKB:=1«, l3=0x1a}
0x46e1…46ee Line {l1=0x0b, l2=»3485 ENDIF «, l3=0x0b}
0x46ee…4703 Line {l1=0x13, l2=»3490 ENDPROC GKIRKE«, l3=0x13}
0x4703…4715 Line {l1=0x10, l2=»3495 PROC REGN39«, l3=0x10}
0x4715…4722 Line {l1=0x0b, l2=»3500 C8:=P3«, l3=0x0b}
0x4722…4746 Line {l1=0x22, l2=»3505 IF T0=1 AND T1<>O THEN C8:=P6«, l3=0x22}
0x4746…476a Line {l1=0x22, l2=»3510 IF T0=2 AND T3<>O THEN C8:=P6«, l3=0x22}
0x476a…477f Line {l1=0x13, l2=»3515 ENDPROC REGN39«, l3=0x13}
0x477f…4791 Line {l1=0x10, l2=»3520 PROC REGN40«, l3=0x10}
0x4791…47ac Line {l1=0x19, l2=»3525 IF C8=P3 THEN C8:=P4«, l3=0x19}
0x47ac…47c1 Line {l1=0x13, l2=»3530 ENDPROC REGN40«, l3=0x13}
0x47c1…47d3 Line {l1=0x10, l2=»3535 PROC REGN42«, l3=0x10}
0x47d3…47e0 Line {l1=0x0b, l2=»3540 C8:=P3«, l3=0x0b}
0x47e0…4804 Line {l1=0x22, l2=»3545 IF T0=1 AND T3<>O THEN C8:=P6«, l3=0x22}
0x4804…4828 Line {l1=0x22, l2=»3550 IF T0=2 AND T1<>O THEN C8:=P6«, l3=0x22}
0x4828…483d Line {l1=0x13, l2=»3555 ENDPROC REGN42«, l3=0x13}
0x483d…484e Line {l1=0x0f, l2=»3560 PROC REGN4«, l3=0x0f}
0x484e…485b Line {l1=0x0b, l2=»3565 C7:=C4«, l3=0x0b}
0x485b…486d Line {l1=0x10, l2=»3570 EXEC REGN25«, l3=0x10}
0x486d…487f Line {l1=0x10, l2=»3575 EXEC REGN51«, l3=0x10}
0x487f…4890 Line {l1=0x0f, l2=»3580 EXEC KIRKE«, l3=0x0f}
0x4890…489c Line {l1=0x0a, l2=»3585 D5:=O«, l3=0x0a}
0x489c…48bc Line {l1=0x1e, l2=»3590 IF TKH=1 THEN EXEC REGN30«, l3=0x1e}
0x48bc…48ce Line {l1=0x10, l2=»3595 EXEC REGN31«, l3=0x10}
0x48ce…48f2 Line {l1=0x22, l2=»3600 IF T2=O AND T1<>O THEN C8:=P5«, l3=0x22}
0x48f2…4916 Line {l1=0x22, l2=»3605 IF T2=2 AND T1<>O THEN C8:=P6«, l3=0x22}
0x4916…4930 Line {l1=0x18, l2=»3610 IF T1=O THEN C8:=P3«, l3=0x18}
0x4930…4942 Line {l1=0x10, l2=»3615 EXEC REGN50«, l3=0x10}
0x4942…4954 Line {l1=0x10, l2=»3620 EXEC REGN20«, l3=0x10}
0x4954…4968 Line {l1=0x12, l2=»3625 C9:=D0;D7:=D6«, l3=0x12}
0x4968…497c Line {l1=0x12, l2=»3630 ENDPROC REGN4«, l3=0x12}
0x497c…498d Line {l1=0x0f, l2=»3635 PROC REGN5«, l3=0x0f}
0x498d…499a Line {l1=0x0b, l2=»3640 C7:=C6«, l3=0x0b}
0x499a…49ac Line {l1=0x10, l2=»3645 EXEC REGN25«, l3=0x10}
0x49ac…49be Line {l1=0x10, l2=»3650 EXEC REGN51«, l3=0x10}
0x49be…49d0 Line {l1=0x10, l2=»3655 EXEC GKIRKE«, l3=0x10}
0x49d0…49dc Line {l1=0x0a, l2=»3660 D5:=O«, l3=0x0a}
0x49dc…49fc Line {l1=0x1e, l2=»3665 IF TKB=1 THEN EXEC REGN30«, l3=0x1e}
0x49fc…4a0e Line {l1=0x10, l2=»3670 EXEC REGN31«, l3=0x10}
0x4a0e…4a1b Line {l1=0x0b, l2=»3675 C8:=P6«, l3=0x0b}
0x4a1b…4a35 Line {l1=0x18, l2=»3680 IF T3=O THEN C8:=P3«, l3=0x18}
0x4a35…4a47 Line {l1=0x10, l2=»3685 EXEC REGN50«, l3=0x10}
0x4a47…4a59 Line {l1=0x10, l2=»3690 EXEC REGN21«, l3=0x10}
0x4a59…4a6d Line {l1=0x12, l2=»3695 C0:=D0;D9:=D6«, l3=0x12}
0x4a6d…4a81 Line {l1=0x12, l2=»3700 ENDPROC REGN5«, l3=0x12}
0x4a81…4a92 Line {l1=0x0f, l2=»3705 PROC REGN7«, l3=0x0f}
0x4a92…4acd Line {l1=0x39, l2=»3710 IF HD1+HD2+HDA2<0 AND HD3+HD4+HD5>0 THEN EXEC MSSIKS«, l3=0x39}
0x4acd…4ae1 Line {l1=0x12, l2=»3715 IF T2=O THEN «, l3=0x12}
0x4ae1…4b05 Line {l1=0x22, l2=»3720 HD6:=HD1+HD2+HDA2+HD3+HD4+HD5«, l3=0x22}
0x4b05…4b4c Line {l1=0x45, l2=»3725 IF HD6<=O THEN HD1:=O;HD2:=O;HDA2:=O;HD3:=O;HD4:=O;HD5:=O;HD6:=O«, l3=0x45}
0x4b4c…4b58 Line {l1=0x0a, l2=»3730 ELSE «, l3=0x0a}
0x4b58…4b94 Line {l1=0x3a, l2=»3735 IF HD1+HD2+HDA2<0 AND HD3+HD4+HD5>0 THEN EXEC MSSIKS1«, l3=0x3a}
0x4b94…4ba9 Line {l1=0x13, l2=»3740 IF HD1<O THEN «, l3=0x13}
0x4ba9…4bc3 Line {l1=0x18, l2=»3745 BD1:=BD1+HD1;HD1:=O«, l3=0x18}
0x4bc3…4bde Line {l1=0x19, l2=»3750 IF BD1<O THEN BD1:=O«, l3=0x19}
0x4bde…4beb Line {l1=0x0b, l2=»3755 ENDIF «, l3=0x0b}
0x4beb…4c00 Line {l1=0x13, l2=»3760 IF HD2<O THEN «, l3=0x13}
0x4c00…4c1a Line {l1=0x18, l2=»3765 BD2:=BD2+HD2;HD2:=O«, l3=0x18}
0x4c1a…4c35 Line {l1=0x19, l2=»3770 IF BD2<O THEN BD2:=O«, l3=0x19}
0x4c35…4c42 Line {l1=0x0b, l2=»3775 ENDIF «, l3=0x0b}
0x4c42…4c58 Line {l1=0x14, l2=»3780 IF HDA2<O THEN «, l3=0x14}
0x4c58…4c76 Line {l1=0x1c, l2=»3785 BDA2:=BDA2+HDA2;HDA2:=O«, l3=0x1c}
0x4c76…4c93 Line {l1=0x1b, l2=»3790 IF BDA2<O THEN BDA2:=O«, l3=0x1b}
0x4c93…4ca0 Line {l1=0x0b, l2=»3795 ENDIF «, l3=0x0b}
0x4ca0…4cb5 Line {l1=0x13, l2=»3800 IF HD3<O THEN «, l3=0x13}
0x4cb5…4ccf Line {l1=0x18, l2=»3805 BD3:=BD3+HD3;HD3:=O«, l3=0x18}
0x4ccf…4cea Line {l1=0x19, l2=»3810 IF BD3<O THEN BD3:=O«, l3=0x19}
0x4cea…4cf7 Line {l1=0x0b, l2=»3815 ENDIF «, l3=0x0b}
0x4cf7…4d0c Line {l1=0x13, l2=»3820 IF HD4<O THEN «, l3=0x13}
0x4d0c…4d26 Line {l1=0x18, l2=»3825 BD4:=BD4+HD4;HD4:=O«, l3=0x18}
0x4d26…4d41 Line {l1=0x19, l2=»3830 IF BD4<O THEN BD4:=O«, l3=0x19}
0x4d41…4d4e Line {l1=0x0b, l2=»3835 ENDIF «, l3=0x0b}
0x4d4e…4d63 Line {l1=0x13, l2=»3840 IF HD5<O THEN «, l3=0x13}
0x4d63…4d7d Line {l1=0x18, l2=»3845 BD5:=BD5+HD5;HD5:=O«, l3=0x18}
0x4d7d…4d98 Line {l1=0x19, l2=»3850 IF BD5<O THEN BD5:=O«, l3=0x19}
0x4d98…4da5 Line {l1=0x0b, l2=»3855 ENDIF «, l3=0x0b}
0x4da5…4dba Line {l1=0x13, l2=»3860 IF BD1<O THEN «, l3=0x13}
0x4dba…4dd4 Line {l1=0x18, l2=»3865 HD1:=HD1+BD1;BD1:=O«, l3=0x18}
0x4dd4…4def Line {l1=0x19, l2=»3870 IF HD1<O THEN HD1:=O«, l3=0x19}
0x4def…4dfc Line {l1=0x0b, l2=»3875 ENDIF «, l3=0x0b}
0x4dfc…4e11 Line {l1=0x13, l2=»3880 IF BD2<O THEN «, l3=0x13}
0x4e11…4e2b Line {l1=0x18, l2=»3885 HD2:=HD2+BD2;BD2:=O«, l3=0x18}
0x4e2b…4e46 Line {l1=0x19, l2=»3890 IF HD2<O THEN HD2:=O«, l3=0x19}
0x4e46…4e53 Line {l1=0x0b, l2=»3895 ENDIF «, l3=0x0b}
0x4e53…4e69 Line {l1=0x14, l2=»3900 IF BDA2<O THEN «, l3=0x14}
0x4e69…4e87 Line {l1=0x1c, l2=»3905 HDA2:=HDA2+BDA2;BDA2:=O«, l3=0x1c}
0x4e87…4ea4 Line {l1=0x1b, l2=»3910 IF HDA2<O THEN HDA2:=O«, l3=0x1b}
0x4ea4…4eb1 Line {l1=0x0b, l2=»3915 ENDIF «, l3=0x0b}
0x4eb1…4ec6 Line {l1=0x13, l2=»3920 IF BD3<O THEN «, l3=0x13}
0x4ec6…4ee0 Line {l1=0x18, l2=»3925 HD3:=HD3+BD3;BD3:=O«, l3=0x18}
0x4ee0…4efb Line {l1=0x19, l2=»3930 IF HD3<O THEN HD3:=O«, l3=0x19}
0x4efb…4f08 Line {l1=0x0b, l2=»3935 ENDIF «, l3=0x0b}
0x4f08…4f1d Line {l1=0x13, l2=»3940 IF BD4<O THEN «, l3=0x13}
0x4f1d…4f37 Line {l1=0x18, l2=»3945 HD4:=HD4+BD4;BD4:=O«, l3=0x18}
0x4f37…4f52 Line {l1=0x19, l2=»3950 IF HD4<O THEN HD4:=O«, l3=0x19}
0x4f52…4f5f Line {l1=0x0b, l2=»3955 ENDIF «, l3=0x0b}
0x4f5f…4f74 Line {l1=0x13, l2=»3960 IF BD5<O THEN «, l3=0x13}
0x4f74…4f8e Line {l1=0x18, l2=»3965 HD5:=HD5+BD5;BD5:=O«, l3=0x18}
0x4f8e…4fa9 Line {l1=0x19, l2=»3970 IF HD5<O THEN HD5:=O«, l3=0x19}
0x4fa9…4fb6 Line {l1=0x0b, l2=»3975 ENDIF «, l3=0x0b}
0x4fb6…4ff8 Line {l1=0x40, l2=»3980 HD6:=HD1+HD2+HDA2+HD3+HD4+HD5;BD6:=BD1+BD2+BDA2+BD3+BD4+BD5«, l3=0x40}
0x4ff8…5005 Line {l1=0x0b, l2=»3985 ENDIF «, l3=0x0b}
0x5005…5019 Line {l1=0x12, l2=»3990 ENDPROC REGN7«, l3=0x12}
0x5019…502b Line {l1=0x10, l2=»3995 PROC MSSIKS«, l3=0x10}
0x502b…5047 Line {l1=0x1a, l2=»4000 F4:=ABS(HD1+HD2+HDA2)«, l3=0x1a}
0x5047…5074 Line {l1=0x2b, l2=»4005 IF F4>HD3+HD4+HD5 THEN F4:=HD3+HD4+HD5«, l3=0x2b}
0x5074…50b2 Line {l1=0x3c, l2=»4010 HD3:=HD3-(F4/(P7+P8+P9)*P7);HD4:=HD4-(F4/(P7+P8+P9)*P8)«, l3=0x3c}
0x50b2…50ee Line {l1=0x3a, l2=»4015 HD5:=HD5-(F4/(P7+P8+P9)*P9);D1:=HD1;D2:=HD2;DA2:=HDA2«, l3=0x3a}
0x50ee…512e Line {l1=0x3e, l2=»4020 HD1:=HD1+(F4/(D1+D2+DA2)*D1);HD2:=HD2+(F4/(D1+D2+DA2)*D2)«, l3=0x3e}
0x512e…5154 Line {l1=0x24, l2=»4025 HDA2:=HDA2+(F4/(D1+D2+DA2)*DA2)«, l3=0x24}
0x5154…5169 Line {l1=0x13, l2=»4030 ENDPROC MSSIKS«, l3=0x13}
0x5169…517c Line {l1=0x11, l2=»4035 PROC MSSIKS1«, l3=0x11}
0x517c…5198 Line {l1=0x1a, l2=»4040 F4:=ABS(BD1+BD2+BDA2)«, l3=0x1a}
0x5198…51c5 Line {l1=0x2b, l2=»4045 IF F4>BD3+BD4+BD5 THEN F4:=BD3+BD4+BD5«, l3=0x2b}
0x51c5…5203 Line {l1=0x3c, l2=»4050 BD3:=BD3-(F4/(P7+P8+P9)*P7);BD4:=BD4-(F4/(P7+P8+P9)*P8)«, l3=0x3c}
0x5203…523f Line {l1=0x3a, l2=»4055 BD5:=BD5-(F4/(P7+P8+P9)*P9);D1:=BD1;D2:=BD2;DA2:=BDA2«, l3=0x3a}
0x523f…527f Line {l1=0x3e, l2=»4060 BD1:=BD1+(F4/(D1+D2+DA2)*D1);BD2:=BD2+(F4/(D1+D2+DA2)*D2)«, l3=0x3e}
0x527f…52a5 Line {l1=0x24, l2=»4065 BDA2:=BDA2+(F4/(D1+D2+DA2)*DA2)«, l3=0x24}
0x52a5…52bb Line {l1=0x14, l2=»4070 ENDPROC MSSIKS1«, l3=0x14}
0x52bb…52cd Line {l1=0x10, l2=»4075 PROC REGN43«, l3=0x10}
0x52cd…5316 Line {l1=0x47, l2=»4080 IF T0=1 AND B4<C8 THEN E9:=(((INT(B4/W)*W)-C8)*((16*U1)+P0+PA0)/W)«, l3=0x47}
0x5316…535f Line {l1=0x47, l2=»4085 IF T0=1 AND C4<C8 THEN E8:=(((INT(C4/W)*W)-C8)*((16*U1)+P0+PA0)/W)«, l3=0x47}
0x535f…53a8 Line {l1=0x47, l2=»4090 IF T0=2 AND B1<C8 THEN E8:=(((INT(B1/W)*W)-C8)*((16*U1)+P0+PA0)/W)«, l3=0x47}
0x53a8…53f1 Line {l1=0x47, l2=»4095 IF T0=2 AND C6<C8 THEN E9:=(((INT(C6/W)*W)-C8)*((16*U1)+P0+PA0)/W)«, l3=0x47}
0x53f1…5406 Line {l1=0x13, l2=»4100 ENDPROC REGN43«, l3=0x13}
0x5406…5418 Line {l1=0x10, l2=»4105 PROC REGN44«, l3=0x10}
0x5418…545d Line {l1=0x43, l2=»4110 IF T0=1 AND B4<C8 THEN E9:=E9+((((INT(B4/W)*W)-C8)*(P7+P8))/W)«, l3=0x43}
0x545d…54a2 Line {l1=0x43, l2=»4115 IF T0=1 AND C4<C8 THEN E8:=E8+((((INT(C4/W)*W)-C8)*(P7+P8))/W)«, l3=0x43}
0x54a2…54e7 Line {l1=0x43, l2=»4120 IF T0=2 AND B1<C8 THEN E8:=E8+((((INT(B1/W)*W)-C8)*(P7+P8))/W)«, l3=0x43}
0x54e7…552c Line {l1=0x43, l2=»4125 IF T0=2 AND C6<C8 THEN E9:=E9+((((INT(C6/W)*W)-C8)*(P7+P8))/W)«, l3=0x43}
0x552c…5541 Line {l1=0x13, l2=»4130 ENDPROC REGN44«, l3=0x13}
0x5541…5552 Line {l1=0x0f, l2=»4135 PROC REGN8«, l3=0x0f}
0x5552…5582 Line {l1=0x2e, l2=»4140 B9:=O;B7:=INT(B7/W)*W;B9:=(B7-U2)*22/1000«, l3=0x2e}
0x5582…55a2 Line {l1=0x1e, l2=»4145 IF D6-D5+B9>C4*78/W THEN «, l3=0x1e}
0x55a2…55c1 Line {l1=0x1d, l2=»4150 E5:=(D6-D5+B9)-(C4*78/W)«, l3=0x1d}
0x55c1…55dc Line {l1=0x19, l2=»4155 IF E5<=B9*60/W THEN «, l3=0x19}
0x55dc…55ec Line {l1=0x0e, l2=»4160 B9:=B9-E5«, l3=0x0e}
0x55ec…55f8 Line {l1=0x0a, l2=»4165 ELSE «, l3=0x0a}
0x55f8…5620 Line {l1=0x26, l2=»4170 E5:=E5-(B9*60/W);B9:=B9-(B9*60/W)«, l3=0x26}
0x5620…5630 Line {l1=0x0e, l2=»4175 D1:=D1-E5«, l3=0x0e}
0x5630…5649 Line {l1=0x17, l2=»4180 IF D1<0 THEN D1:=0«, l3=0x17}
0x5649…565b Line {l1=0x10, l2=»4185 EXEC REGN38«, l3=0x10}
0x565b…566c Line {l1=0x0f, l2=»4190 EXEC REGN7«, l3=0x0f}
0x566c…5679 Line {l1=0x0b, l2=»4195 ENDIF «, l3=0x0b}
0x5679…5686 Line {l1=0x0b, l2=»4200 ENDIF «, l3=0x0b}
0x5686…569a Line {l1=0x12, l2=»4205 ENDPROC REGN8«, l3=0x12}
0x569a…56ab Line {l1=0x0f, l2=»4210 PROC REGN9«, l3=0x0f}
0x56ab…56c4 Line {l1=0x17, l2=»4215 IF B7<O THEN B7:=O«, l3=0x17}
0x56c4…56dd Line {l1=0x17, l2=»4220 IF B8<O THEN B8:=O«, l3=0x17}
0x56dd…5711 Line {l1=0x32, l2=»4225 B6:=B7+B8;B6:=INT(B6/W)*W;E7:=(B6-U2)*22/1000«, l3=0x32}
0x5711…5731 Line {l1=0x1e, l2=»4230 IF B7>O THEN B9:=E7/B6*B7«, l3=0x1e}
0x5731…5751 Line {l1=0x1e, l2=»4235 IF B8>O THEN E6:=E7/B6*B8«, l3=0x1e}
0x5751…5778 Line {l1=0x25, l2=»4240 IF T2=2 AND (T0=1 OR T0=2) THEN «, l3=0x25}
0x5778…5792 Line {l1=0x18, l2=»4245 IF T0=1 THEN D8:=C4«, l3=0x18}
0x5792…57ac Line {l1=0x18, l2=»4250 IF T0=2 THEN D8:=C6«, l3=0x18}
0x57ac…57b8 Line {l1=0x0a, l2=»4255 D0:=O«, l3=0x0a}
0x57b8…57c4 Line {l1=0x0a, l2=»4260 ELSE «, l3=0x0a}
0x57c4…57d8 Line {l1=0x12, l2=»4265 IF T0=1 THEN «, l3=0x12}
0x57d8…57e5 Line {l1=0x0b, l2=»4270 C7:=B5«, l3=0x0b}
0x57e5…57f1 Line {l1=0x0a, l2=»4275 ELSE «, l3=0x0a}
0x57f1…57fe Line {l1=0x0b, l2=»4280 C7:=B2«, l3=0x0b}
0x57fe…580b Line {l1=0x0b, l2=»4285 ENDIF «, l3=0x0b}
0x580b…5840 Line {l1=0x33, l2=»4290 D0:=(INT(C7/W)*W)*((P0+PA0+P7+P8)/W);D0:=D0+E2«, l3=0x33}
0x5840…584d Line {l1=0x0b, l2=»4295 ENDIF «, l3=0x0b}
0x584d…586a Line {l1=0x1b, l2=»4300 IF E8<O THEN D0:=D0+E8«, l3=0x1b}
0x586a…5887 Line {l1=0x1b, l2=»4305 IF E9<O THEN D0:=D0+E9«, l3=0x1b}
0x5887…58ba Line {l1=0x31, l2=»4310 IF T0=1 AND E8=>O THEN D0:=D0+HD6-HD5+GEMAFR«, l3=0x31}
0x58ba…58d7 Line {l1=0x1b, l2=»4315 IF C0<0 THEN D0:=D0-C0«, l3=0x1b}
0x58d7…590a Line {l1=0x31, l2=»4320 IF T0=2 AND E9=>O THEN D0:=D0+BD6-BD5+GEMAFR«, l3=0x31}
0x590a…5927 Line {l1=0x1b, l2=»4325 IF C9<0 THEN D0:=D0-C9«, l3=0x1b}
0x5927…5937 Line {l1=0x0e, l2=»4330 D0:=D0+E7«, l3=0x0e}
0x5937…5957 Line {l1=0x1e, l2=»4335 IF D0<=D8*78/W THEN EXIT «, l3=0x1e}
0x5957…596e Line {l1=0x15, l2=»4340 E5:=D0-(D8*78/W)«, l3=0x15}
0x596e…5989 Line {l1=0x19, l2=»4345 IF E5<=E7*60/W THEN «, l3=0x19}
0x5989…59b3 Line {l1=0x28, l2=»4350 B9:=B9-(E5/B6*B7);E6:=E6-(E5/B6*B8)«, l3=0x28}
0x59b3…59bf Line {l1=0x0a, l2=»4355 ELSE «, l3=0x0a}
0x59bf…59ff Line {l1=0x3e, l2=»4360 D0:=E7*60/W;E5:=E5-D0;B9:=B9-(D0/B6*B7);E6:=E6-(D0/B6*B8)«, l3=0x3e}
0x59ff…5a11 Line {l1=0x10, l2=»4365 EXEC REGN10«, l3=0x10}
0x5a11…5a29 Line {l1=0x16, l2=»4370 D1:=D1-(E5/B6*B7)«, l3=0x16}
0x5a29…5a3b Line {l1=0x10, l2=»4375 EXEC REGN38«, l3=0x10}
0x5a3b…5a48 Line {l1=0x0b, l2=»4380 D7:=D6«, l3=0x0b}
0x5a48…5a5a Line {l1=0x10, l2=»4385 EXEC REGN20«, l3=0x10}
0x5a5a…5a6c Line {l1=0x10, l2=»4390 EXEC REGN22«, l3=0x10}
0x5a6c…5a84 Line {l1=0x16, l2=»4395 D1:=D1-(E5/B6*B8)«, l3=0x16}
0x5a84…5a96 Line {l1=0x10, l2=»4400 EXEC REGN38«, l3=0x10}
0x5a96…5aa3 Line {l1=0x0b, l2=»4405 D9:=D6«, l3=0x0b}
0x5aa3…5ab5 Line {l1=0x10, l2=»4410 EXEC REGN21«, l3=0x10}
0x5ab5…5ac6 Line {l1=0x0f, l2=»4415 EXEC REGN7«, l3=0x0f}
0x5ac6…5ad3 Line {l1=0x0b, l2=»4420 ENDIF «, l3=0x0b}
0x5ad3…5ae7 Line {l1=0x12, l2=»4425 ENDPROC REGN9«, l3=0x12}
0x5ae7…5af7 Line {l1=0x0e, l2=»4430 PROC SKAT«, l3=0x0e}
0x5af7…5b15 Line {l1=0x1c, l2=»4435 QT$:="SKATTEBEREGNING:"«, l3=0x1c}
0x5b15…5b28 Line {l1=0x11, l2=»4440 EXEC LSKRIV3«, l3=0x11}
0x5b28…5b35 Line {l1=0x0b, l2=»4445 PRINT «, l3=0x0b}
0x5b35…5b5f Line {l1=0x28, l2=»4450 QT$:="STATSSKAT "+PIL$(1:24);QB:=D1«, l3=0x28}
0x5b5f…5b72 Line {l1=0x11, l2=»4455 EXEC LSKRIV2«, l3=0x11}
0x5b72…5ba6 Line {l1=0x32, l2=»4460 QT$:="FOLKEPENSIONSBIDRAG "+PIL$(1:14);QB:=D2«, l3=0x32}
0x5ba6…5bb9 Line {l1=0x11, l2=»4465 EXEC LSKRIV2«, l3=0x11}
0x5bb9…5bed Line {l1=0x32, l2=»4470 QT$:="DAGPENGEFONDBIDRAG "+PIL$(1:15);QB:=DA2«, l3=0x32}
0x5bed…5c00 Line {l1=0x11, l2=»4475 EXEC LSKRIV2«, l3=0x11}
0x5c00…5c2c Line {l1=0x2a, l2=»4480 QT$:="KOMMUNESKAT "+PIL$(1:22);QB:=D3«, l3=0x2a}
0x5c2c…5c3f Line {l1=0x11, l2=»4485 EXEC LSKRIV2«, l3=0x11}
0x5c3f…5c78 Line {l1=0x37, l2=»4490 QT$:="AMTSKOMMUNAL INDKOMSTSKAT "+PIL$(1:8);QB:=D4«, l3=0x37}
0x5c78…5c8b Line {l1=0x11, l2=»4495 EXEC LSKRIV2«, l3=0x11}
0x5c8b…5c9f Line {l1=0x12, l2=»4500 IF D5>O THEN «, l3=0x12}
0x5c9f…5cc9 Line {l1=0x28, l2=»4505 QT$:="KIRKESKAT "+PIL$(1:24);QB:=D5«, l3=0x28}
0x5cc9…5cdc Line {l1=0x11, l2=»4510 EXEC LSKRIV2«, l3=0x11}
0x5cdc…5ce9 Line {l1=0x0b, l2=»4515 ENDIF «, l3=0x0b}
0x5ce9…5cfc Line {l1=0x11, l2=»4520 ENDPROC SKAT«, l3=0x11}
0x5cfc…5d0f Line {l1=0x11, l2=»4525 PROC INDSKAT«, l3=0x11}
0x5d0f…5d2e Line {l1=0x1d, l2=»4530 QT$:=SP$(1:34)+LI$(1:16)«, l3=0x1d}
0x5d2e…5d41 Line {l1=0x11, l2=»4535 EXEC LSKRIV3«, l3=0x11}
0x5d41…5d73 Line {l1=0x30, l2=»4540 QT$:="INDKOMSTSKAT IALT "+PIL$(1:16);QB:=D6«, l3=0x30}
0x5d73…5d86 Line {l1=0x11, l2=»4545 EXEC LSKRIV2«, l3=0x11}
0x5d86…5d9c Line {l1=0x14, l2=»4550 ENDPROC INDSKAT«, l3=0x14}
0x5d9c…5dad Line {l1=0x0f, l2=»4555 PROC FSKAT«, l3=0x0f}
0x5dad…5dc1 Line {l1=0x12, l2=»4560 IF FS>O THEN «, l3=0x12}
0x5dc1…5dec Line {l1=0x29, l2=»4565 QT$:="FORMUESKAT "+PIL$(1:23);QB:=FS«, l3=0x29}
0x5dec…5dff Line {l1=0x11, l2=»4570 EXEC LSKRIV2«, l3=0x11}
0x5dff…5e1e Line {l1=0x1d, l2=»4575 QT$:=SP$(1:34)+LI$(1:16)«, l3=0x1d}
0x5e1e…5e31 Line {l1=0x11, l2=»4580 EXEC LSKRIV3«, l3=0x11}
0x5e31…5e62 Line {l1=0x2f, l2=»4585 QT$:="*** TOTALSKAT "+PIL$(1:20);QB:=D6+FS«, l3=0x2f}
0x5e62…5e75 Line {l1=0x11, l2=»4590 EXEC LSKRIV2«, l3=0x11}
0x5e75…5e82 Line {l1=0x0b, l2=»4595 ENDIF «, l3=0x0b}
0x5e82…5eaa Line {l1=0x26, l2=»4600 QT$:=SP$(1:34)+"================"«, l3=0x26}
0x5eaa…5ebd Line {l1=0x11, l2=»4605 EXEC LSKRIV3«, l3=0x11}
0x5ebd…5ed1 Line {l1=0x12, l2=»4610 ENDPROC FSKAT«, l3=0x12}
0x5ed1…5ee4 Line {l1=0x11, l2=»4615 PROC SKATPRO«, l3=0x11}
0x5ee4…5f14 Line {l1=0x2e, l2=»4620 QT$:="Kommuneskatteprocent       ";QB:=P7«, l3=0x2e}
0x5f14…5f27 Line {l1=0x11, l2=»4625 EXEC LSKRIV4«, l3=0x11}
0x5f27…5f57 Line {l1=0x2e, l2=»4630 QT$:="Amtskommunal skatteprocent ";QB:=P8«, l3=0x2e}
0x5f57…5f6a Line {l1=0x11, l2=»4635 EXEC LSKRIV4«, l3=0x11}
0x5f6a…5f9a Line {l1=0x2e, l2=»4640 QT$:="Kirkeskatteprocent         ";QB:=P9«, l3=0x2e}
0x5f9a…5fad Line {l1=0x11, l2=»4645 EXEC LSKRIV4«, l3=0x11}
0x5fad…5fc2 Line {l1=0x13, l2=»4650 IF T1<>O THEN «, l3=0x13}
0x5fc2…600b Line {l1=0x47, l2=»4655 QT$:="Hovedpersonen er beregnet med personfradrag som pensionist."«, l3=0x47}
0x600b…601e Line {l1=0x11, l2=»4660 EXEC LSKRIV3«, l3=0x11}
0x601e…602b Line {l1=0x0b, l2=»4665 ENDIF «, l3=0x0b}
0x602b…6040 Line {l1=0x13, l2=»4670 IF T3<>O THEN «, l3=0x13}
0x6040…608c Line {l1=0x4a, l2=»4675 QT$:="Den gifte kvinde er beregnet med personfradrag som pensionist."«, l3=0x4a}
0x608c…609f Line {l1=0x11, l2=»4680 EXEC LSKRIV3«, l3=0x11}
0x609f…60ac Line {l1=0x0b, l2=»4685 ENDIF «, l3=0x0b}
0x60ac…60c0 Line {l1=0x12, l2=»4690 IF T4=1 THEN «, l3=0x12}
0x60c0…610c Line {l1=0x4a, l2=»4695 QT$:="Beregningerne er sket efter reglerne om ligedeling ægtefæller."«, l3=0x4a}
0x610c…611f Line {l1=0x11, l2=»4700 EXEC LSKRIV3«, l3=0x11}
0x611f…612c Line {l1=0x0b, l2=»4705 ENDIF «, l3=0x0b}
0x612c…6142 Line {l1=0x14, l2=»4710 ENDPROC SKATPRO«, l3=0x14}
0x6142…6155 Line {l1=0x11, l2=»4715 PROC LSKRIV2«, l3=0x11}
0x6155…6181 Line {l1=0x2a, l2=»4720 PRINT USING QT$+"#########.## KR.":QB«, l3=0x2a}
0x6181…6197 Line {l1=0x14, l2=»4725 ENDPROC LSKRIV2«, l3=0x14}
0x6197…61aa Line {l1=0x11, l2=»4730 PROC LSKRIV1«, l3=0x11}
0x61aa…61d3 Line {l1=0x27, l2=»4735 PRINT USING QT$+"######### KR.":QB«, l3=0x27}
0x61d3…61e9 Line {l1=0x14, l2=»4740 ENDPROC LSKRIV1«, l3=0x14}
0x61e9…61fc Line {l1=0x11, l2=»4745 PROC LSKRIV4«, l3=0x11}
0x61fc…6226 Line {l1=0x28, l2=»4750 PRINT USING QT$+"#######.# PCT.":QB«, l3=0x28}
0x6226…623c Line {l1=0x14, l2=»4755 ENDPROC LSKRIV4«, l3=0x14}
0x623c…624c Line {l1=0x0e, l2=»4760 PROC SVAR«, l3=0x0e}
0x624c…625a Line {l1=0x0c, l2=»4765 REPEAT «, l3=0x0c}
0x625a…6274 Line {l1=0x18, l2=»4770 INPUT "? (j/n) ":S$«, l3=0x18}
0x6274…6291 Line {l1=0x1b, l2=»4775 IF S$="N" THEN S$:="n"«, l3=0x1b}
0x6291…62ae Line {l1=0x1b, l2=»4780 IF S$="J" THEN S$:="j"«, l3=0x1b}
0x62ae…62d2 Line {l1=0x22, l2=»4785 IF S$="q" OR S$="Q" THEN END «, l3=0x22}
0x62d2…62ef Line {l1=0x1b, l2=»4790 UNTIL S$="j" OR S$="n"«, l3=0x1b}
0x62ef…62ff Line {l1=0x0e, l2=»4795 PRINT LI$«, l3=0x0e}
0x62ff…6312 Line {l1=0x11, l2=»4800 ENDPROC SVAR«, l3=0x11}
0x6312…6324 Line {l1=0x10, l2=»4805 PROC LSKRIV«, l3=0x10}
0x6324…6331 Line {l1=0x0b, l2=»4810 PRINT «, l3=0x0b}
0x6331…6346 Line {l1=0x13, l2=»4815 ENDPROC LSKRIV«, l3=0x13}
0x6346…6359 Line {l1=0x11, l2=»4820 PROC LSKRIV3«, l3=0x11}
0x6359…6369 Line {l1=0x0e, l2=»4825 PRINT QT$«, l3=0x0e}
0x6369…637f Line {l1=0x14, l2=»4830 ENDPROC LSKRIV3«, l3=0x14}
0x637f…6391 Line {l1=0x10, l2=»4835 PROC REGN50«, l3=0x10}
0x6391…63a3 Line {l1=0x10, l2=»4840 EXEC REGN32«, l3=0x10}
0x63a3…63b5 Line {l1=0x10, l2=»4845 EXEC REGN33«, l3=0x10}
0x63b5…63c7 Line {l1=0x10, l2=»4850 EXEC REGN34«, l3=0x10}
0x63c7…63e2 Line {l1=0x19, l2=»4855 IF C8=P3 THEN C8:=P4«, l3=0x19}
0x63e2…63f4 Line {l1=0x10, l2=»4860 EXEC REGN35«, l3=0x10}
0x63f4…6406 Line {l1=0x10, l2=»4865 EXEC REGN36«, l3=0x10}
0x6406…641a Line {l1=0x12, l2=»4870 IF D5>O THEN «, l3=0x12}
0x641a…642c Line {l1=0x10, l2=»4875 EXEC REGN37«, l3=0x10}
0x642c…6438 Line {l1=0x0a, l2=»4880 ELSE «, l3=0x0a}
0x6438…6462 Line {l1=0x28, l2=»4885 IF C8>C7 THEN D5:=D5-((C8-C7)*P9/W)«, l3=0x28}
0x6462…646f Line {l1=0x0b, l2=»4890 ENDIF «, l3=0x0b}
0x646f…6481 Line {l1=0x10, l2=»4895 EXEC REGN38«, l3=0x10}
0x6481…6496 Line {l1=0x13, l2=»4900 ENDPROC REGN50«, l3=0x13}
0x6496…64a8 Line {l1=0x10, l2=»4905 PROC REGN51«, l3=0x10}
0x64a8…64ba Line {l1=0x10, l2=»4910 EXEC REGN26«, l3=0x10}
0x64ba…64cc Line {l1=0x10, l2=»4915 EXEC REGN27«, l3=0x10}
0x64cc…64de Line {l1=0x10, l2=»4920 EXEC REGN28«, l3=0x10}
0x64de…64f0 Line {l1=0x10, l2=»4925 EXEC REGN29«, l3=0x10}
0x64f0…6505 Line {l1=0x13, l2=»4930 ENDPROC REGN51«, l3=0x13}
0x6505…6517 Line {l1=0x10, l2=»4935 PROC RETURN«, l3=0x10}
0x6517…6525 Line {l1=0x0c, l2=»4940 S$:="-"«, l3=0x0c}
0x6525…6532 Line {l1=0x0b, l2=»4945 PRINT «, l3=0x0b}
0x6532…6547 Line {l1=0x13, l2=»4950 PRINT TAB(65);«, l3=0x13}
0x6547…6564 Line {l1=0x1b, l2=»4955 EDIT "TRYK -RETURN":S$«, l3=0x1b}
0x6564…6579 Line {l1=0x13, l2=»4960 ENDPROC RETURN«, l3=0x13}
0x6579…658a Line {l1=0x0f, l2=»4965 PROC SKIFT«, l3=0x0f}
0x658a…659d Line {l1=0x11, l2=»4970 IF Y=1 THEN «, l3=0x11}
0x659d…65af Line {l1=0x10, l2=»4975 EXEC RETURN«, l3=0x10}
0x65af…65bc Line {l1=0x0b, l2=»4980 CLEAR «, l3=0x0b}
0x65bc…65c8 Line {l1=0x0a, l2=»4985 ELSE «, l3=0x0a}
0x65c8…65e0 Line {l1=0x16, l2=»4990 FOR X:=1 TO 5 DO «, l3=0x16}
0x65e0…65ed Line {l1=0x0b, l2=»4995 PRINT «, l3=0x0b}
0x65ed…65fa Line {l1=0x0b, l2=»5000 NEXT X«, l3=0x0b}
0x65fa…6607 Line {l1=0x0b, l2=»5005 ENDIF «, l3=0x0b}
0x6607…661b Line {l1=0x12, l2=»5010 ENDPROC SKIFT«, l3=0x12}
0x661b…6630 Line {l1=0x13, l2=»5015 PROC SIDESKIFT«, l3=0x13}
0x6630…6643 Line {l1=0x11, l2=»5020 IF Y=2 THEN «, l3=0x11}
0x6643…6658 Line {l1=0x13, l2=»5025 PRINT CHR$(12)«, l3=0x13}
0x6658…6669 Line {l1=0x0f, l2=»5030 PRINT REV$«, l3=0x0f}
0x6669…667a Line {l1=0x0f, l2=»5035 PRINT ADR$«, l3=0x0f}
0x667a…6687 Line {l1=0x0b, l2=»5040 ENDIF «, l3=0x0b}
0x6687…6698 Line {l1=0x0f, l2=»5045 EXEC SKIFT«, l3=0x0f}
0x6698…66b0 Line {l1=0x16, l2=»5050 ENDPROC SIDESKIFT«, l3=0x16}
0x66b0…66bf Line {l1=0x0d, l2=»5055 PROC WIN«, l3=0x0d}
0x66bf…66d1 Line {l1=0x10, l2=»5060 CURSOR 1,20«, l3=0x10}
0x66d1…66e5 Line {l1=0x12, l2=»5065 PRINT SP$+SP$«, l3=0x12}
0x66e5…6710 Line {l1=0x29, l2=»5070 X:=3;P:=O;A(N):=O;FIL$:="DDE:INDKOM"«, l3=0x29}
0x6710…6722 Line {l1=0x10, l2=»5075 OPEN FIL$,R«, l3=0x10}
0x6722…673f Line {l1=0x1b, l2=»5080 IF N=18 THEN X:=6;P:=6«, l3=0x1b}
0x673f…6756 Line {l1=0x15, l2=»5085 IF N=8 THEN P:=3«, l3=0x15}
0x6756…676f Line {l1=0x17, l2=»5090 IF N=19 THEN P:=12«, l3=0x17}
0x676f…6783 Line {l1=0x12, l2=»5095 CURSOR 1,23-X«, l3=0x12}
0x6783…679d Line {l1=0x18, l2=»5100 FOR Y:=1 TO P+X DO «, l3=0x18}
0x679d…67af Line {l1=0x10, l2=»5105 GET FIL$:S$«, l3=0x10}
0x67af…67c2 Line {l1=0x11, l2=»5110 IF Y>P THEN «, l3=0x11}
0x67c2…67d1 Line {l1=0x0d, l2=»5115 PRINT S$«, l3=0x0d}
0x67d1…67de Line {l1=0x0b, l2=»5120 ENDIF «, l3=0x0b}
0x67de…67eb Line {l1=0x0b, l2=»5125 NEXT Y«, l3=0x0b}
0x67eb…6803 Line {l1=0x16, l2=»5130 FOR Y:=1 TO X DO «, l3=0x16}
0x6803…681a Line {l1=0x15, l2=»5135 CURSOR 65,22-X+Y«, l3=0x15}
0x681a…6828 Line {l1=0x0c, l2=»5140 INPUT B«, l3=0x0c}
0x6828…683b Line {l1=0x11, l2=»5145 A(N):=A(N)+B«, l3=0x11}
0x683b…6848 Line {l1=0x0b, l2=»5150 NEXT Y«, l3=0x0b}
0x6848…6859 Line {l1=0x0f, l2=»5155 CLOSE FIL$«, l3=0x0f}
0x6859…686b Line {l1=0x10, l2=»5160 ENDPROC WIN«, l3=0x10}
0x686b…6880 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00                                    ┆                     ┆
0x6880…68a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00   ┆                                ┆
            […0x20…]

Reduced view