|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 7584 (0x1da0)
Types: TextFile
Notes: Mikados_K
Names: »AFSLJOUR.K«
└─⟦385f097a1⟧ Bits:30008988 SPC/1 COMAL programmer til bogføring
└─⟦this⟧ »AFSLJOUR.K«
0900PROC INLØNMOD(N) 0902GET FIL1$,G*N-E:POST1$ 0904GET FIL1$,G*N:POST2$,C1,C2,LT,LF,LR,LA,RPI,K1,K2,FG,FD 0906EXEC FEJL(E,N,FIL1$) 0908ENDPROC 0910PROC NÆSTE 0912REPEAT 0914LMNR=LMNR+E 0916LA=E 0918IF LMNR<=MLMNR THEN 0920EXEC INLØNMOD(LMNR) 0922IF LP$<>POST2$(21) THEN LA=B 0924IF ORK$="A" AND POST2$(24,25)>"89" THEN LA=B 0926IF ORK$="F" AND POST2$(24,25)<"90" THEN LA=B 0928ENDIF 0930UNTIL LA>B 0932ENDPROC 1000DIM STARTPER$(8),SLUTPER$(8),DAD$(6) 1010DIM RES$(15),OP1$(12),OP2$(12),TAH$(12) 1020DIM TOTAL$(W,12),FIL1$(16),LP$(E),ORK$(E),POST1$(71),POST2$(27) 1030DIM RESUL$(12),RESUL1$(12),TV$(45,11),POST5$(55),MF11$(40),MF12$(50) 1040DIM FIL$(16),FIL2$(16),POST3$(55),POST4$(34) 1050DIM MF1$(16) 1060TAH$=" 0+" 1070DIM BL$(79),L$(79),LIN$(12),LIN1$(12) 1080FOR I=E TO 79 1090BL$=BL$+" " 1100NEXT I 1110PROC CALC(AR3,B1,B2,ES) 1120RES$=ES$;OP1$=B1$;OP2$=B2$;SI=B;FLAG=B;ART=AR3-6*(AR3>5) 1130CALL "P641210:REGN" 1140IF AR3<6 THEN 1150IF FLAG THEN STOP 1160ENDIF 1170ES$=RES$ 1180ENDPROC 1190PROC UDTÆL 1200J=W*(LMNR-E) 1210FOR K=4 TO W 1220FOR I=E TO 5 1230POST5$((I-E)*11+E:11)=TV$((K-E)*5+I) 1240NEXT I 1250PUT FIL2$,J+K:POST5$ 1260NEXT K 1270EXEC FEJL(-LMNR,-K,FIL2$) 1280ENDPROC 1290PROC INDTÆL 1300J=W*(LMNR-E) 1310FOR K=4 TO W 1320GET FIL2$,J+K:POST5$ 1330FOR I=E TO 5 1340TV$((K-E)*5+I)=POST5$((I-E)*11+E:11) 1350NEXT I 1360NEXT K 1370EXEC FEJL(LMNR,K,FIL2$) 1380ENDPROC 1390PROC SKRIVHOVED 1400PRINT 1410SLJNR=SLJNR+E 1420PRINT USING " SIDE ####":SLJNR; 1425PRINT " UDSKRIFTSDATO ";DAD$; 1430PRINT TAB(49);"LØNPERIODEN ";STARTPER$;" / ";SLUTPER$; 1440LINIE=5 1450PRINT TAB(35);"LØNJOURNAL" 1460PRINT TAB(35);"**********" 1470PRINT 1510ENDPROC 1520PROC INDVIRK 1530OPEN FIL$,W 1540EXEC FEJL(B,B,FIL$) 1550GET FIL$,E:POST3$ 1560GET FIL$,G:POST4$,SLJNR,MLMNR,ATPLM 1565GET FIL$,V:DAD$ 1570ENDPROC 1580PROC FEJL(P1,P2,P3) 1590IF STATUS(P3$)<>B THEN 1600OUTPUT T 1610PRINT "FIL-FEJL ";P3$;STATUS(P3$),P1;P2 1620STOP 1630ENDIF 1640ENDPROC 1650FIL2$="P641220:" 1660FIL$=FIL2$+"VIRKKART" 1670EXEC INDVIRK 1675FIL1$=FIL2$+"LØNMODRG" 1680OPEN FIL1$,R 1690FIL2$=FIL2$+"TÆLLEREG" 1700OPEN FIL2$,W 1710MF1$="P641210:LØNJOUR" 1720OPEN MF1$,R 1730MAXLIN=72 1740L$=BL$ 1745CURSOR E,11 1750GET MF1$:STARTPER$,SLUTPER$,LP$,ORK$,MFD 1760OUTPUT P 1770FOR I=E TO W 1780TOTAL$(I)=TAH$ 1790NEXT I 1800EXEC SKRIVHOVED 2820LMNR=B 2825PRINT " Rettelse i særlige årstælleværker" 2830PRINT " Lønnr";TAB(14);"Trækpligtig A-indk Trækfri A-indk";TAB(57); 2840PRINT "A-skat" 2850LINIE=LINIE+G 2860REPEAT 2870EXEC NÆSTE 2880IF LMNR<=MLMNR THEN 2890EXEC INDTÆL 2900EXEC CALC(E,TV$(36),TV$(35),RESUL$) 2910EXEC CALC(E,TV$(39),TV$(38),RESUL1$) 2920EXEC CALC(E,TV$(42),TV$(41),LIN$) 2930TV$(35)=TAH$(G:11);TV$(36)=TAH$(G:11) 2940TV$(38)=TAH$(G:11);TV$(39)=TAH$(G:11) 2950TV$(41)=TAH$(G:11);TV$(42)=TAH$(G:11) 2960OUTP=B 2970EXEC CALC(4,RESUL$,TAH$,RESUL$) 2980IF SI<>B THEN 2990OUTP=E 3000EXEC CALC(B,RESUL$,TOTAL$(E),TOTAL$(E)) 3010ENDIF 3020EXEC CALC(4,RESUL1$,TAH$,RESUL1$) 3030IF SI<>B THEN 3040OUTP=E 3050EXEC CALC(B,RESUL1$,TOTAL$(G),TOTAL$(G)) 3060ENDIF 3070EXEC CALC(4,LIN$,TAH$,LIN$) 3080IF SI<>B THEN 3090OUTP=E 3100EXEC CALC(B,LIN$,TOTAL$(V),TOTAL$(V)) 3110ENDIF 3120IF OUTP THEN 3130LINIE=LINIE+E 3140IF LINIE>MAXLIN-6 THEN 3150WHILE LINIE<MAXLIN 3160PRINT 3170LINIE=LINIE+E 3180ENDWHILE 3190PRINT 3195SLJNR=SLJNR+E 3196PRINT USING " SIDE ####":SLJNR; 3198PRINT " UDSKRIFTSDATO ";DAD$; 3200PRINT TAB(49);"LØNPERIODEN ";STARTPER$;" / ";SLUTPER$; 3205PRINT 3207PRINT 3210PRINT 3220LINIE=5 3240PRINT " Lønnr";TAB(14);"Trækpligtig A-indk Trækfri A-indk";TAB(57); 3250PRINT "A-skat" 3260LINIE=LINIE+V 3262ENDIF 3264IF RESUL$(12)="+" THEN RESUL$(12)=" " 3266IF RESUL1$(12)="+" THEN RESUL1$(12)=" " 3268IF LIN$(12)="+" THEN LIN$(12)=" " 3270PRINT USING "####":LMNR; 3272PRINT TAB(21);RESUL$;TAB(36);RESUL1$;TAB(52);LIN$ 3275ENDIF 3277EXEC UDTÆL 3278ENDIF 3279UNTIL LMNR=>MLMNR 3280FOR I=E TO V 3290IF TOTAL$(I,12)="+" THEN TOTAL$(I,12)=" " 3300NEXT I 3310PRINT " ***";TAB(21);TOTAL$(E);TAB(36);TOTAL$(G);TAB(52);TOTAL$(V) 3320FOR I=E TO V 3330TOTAL$(I)=TAH$ 3340NEXT I 3345PRINT 3347LINIE=LINIE+E 3350LMNR=B 3360IF LINIE>MAXLIN-10 THEN 3370WHILE LINIE<MAXLIN 3380PRINT 3390LINIE=LINIE+E 3400ENDWHILE 3410PRINT 3415SLJNR=SLJNR+E 3420PRINT USING " SIDE ####":SLJNR; 3421PRINT " UDSKRIFTSDATO ";DAD$; 3422PRINT TAB(49);"LØNPERIODEN ";STARTPER$;" / ";SLUTPER$; 3425PRINT 3427PRINT 3430PRINT 3440LINIE=5 3450ENDIF 3455PRINT " Rettelse i tælleværker til brug for ferie- og SH-opgørelse" 3460PRINT " Lønnr";TAB(18);"Sygeferiepenge Beregn feriep SH-opsparing"; 3470PRINT " SH-forskud" 3480LINIE=LINIE+G 3490REPEAT 3500EXEC NÆSTE 3510IF LMNR<=MLMNR THEN 3520EXEC INDTÆL 3530EXEC CALC(E,TV$(19),TV$(18),RESUL$) 3540EXEC CALC(E,TV$(22),TV$(21),RESUL1$) 3550EXEC CALC(E,TV$(25),TV$(24),LIN$) 3555EXEC CALC(E,TV$(28),TV$(27),LIN1$) 3560TV$(18)=TAH$(G:11);TV$(19)=TAH$(G:11) 3570TV$(21)=TAH$(G:11);TV$(22)=TAH$(G:11) 3580TV$(24)=TAH$(G:11);TV$(25)=TAH$(G:11) 3585TV$(27)=TAH$(G:11);TV$(28)=TAH$(G:11) 3590OUTP=B 3600EXEC CALC(4,RESUL$,TAH$,RESUL$) 3610IF SI<>B THEN 3620OUTP=E 3630EXEC CALC(B,RESUL$,TOTAL$(E),TOTAL$(E)) 3640ENDIF 3650EXEC CALC(4,RESUL1$,TAH$,RESUL1$) 3660IF SI<>B THEN 3670OUTP=E 3680EXEC CALC(B,RESUL1$,TOTAL$(G),TOTAL$(G)) 3690ENDIF 3700EXEC CALC(4,LIN$,TAH$,LIN$) 3710IF SI<>B THEN 3720OUTP=E 3730EXEC CALC(B,LIN$,TOTAL$(V),TOTAL$(V)) 3740ENDIF 3741EXEC CALC(4,LIN1$,TAH$,LIN1$) 3742IF SI<>B THEN 3743OUTP=E 3744EXEC CALC(B,LIN1$,TOTAL$(4),TOTAL$(4)) 3745ENDIF 3750IF OUTP THEN 3760LINIE=LINIE+E 3770IF LINIE>MAXLIN-6 THEN 3780WHILE LINIE<MAXLIN 3790PRINT 3800LINIE=LINIE+E 3810ENDWHILE 3820PRINT 3825SLJNR=SLJNR+E 3830PRINT USING " SIDE ####":SLJNR; 3831PRINT " UDSKRIFTSDATO ";DAD$; 3832PRINT TAB(49);"LØNPERIODEN ";STARTPER$;" / ";SLUTPER$; 3835PRINT 3837PRINT 3840PRINT 3850LINIE=5 3870PRINT " Lønnr";TAB(18);"Sygeferiepenge Beregn feriep SH-opsparing"; 3880PRINT " SH-forskud" 3890LINIE=LINIE+V 3900ENDIF 3901IF RESUL$(12)="+" THEN RESUL$(12)=" " 3902IF RESUL1$(12)="+" THEN RESUL$(12)=" " 3903IF LIN$(12)="+" THEN LIN$(12)=" " 3904IF LIN1$(12)="+" THEN LIN1$(12)=" " 3905PRINT USING "####":LMNR; 3906PRINT TAB(21);RESUL$;TAB(36);RESUL1$;TAB(52);LIN$;TAB(68);LIN1$; 3910ENDIF 3912EXEC UDTÆL 3915ENDIF 3920UNTIL LMNR=>MLMNR 3930FOR I=E TO 4 3940IF TOTAL$(I,12)="+" THEN TOTAL$(I,12)=" " 3950NEXT I 3960PRINT " ***";TAB(21);TOTAL$(E);TAB(36);TOTAL$(G);TAB(52);TOTAL$(V); 3970PRINT TAB(68);TOTAL$(4); 3990LINIE=LINIE+G 4010WHILE LINIE<MAXLIN 4020PRINT 4030LINIE=LINIE+E 4040ENDWHILE 4170PUT FIL$,E:POST3$ 4180PUT FIL$,G:POST4$,SLJNR,MLMNR,ATPLM 4190CLOSE 4195OUTPUT T 4200CHAIN "P641210:LFERIE"
0x0000…0017 Line {l1=0x15, l2=»0900PROC INLØNMOD(N) «, l3=0x15}
0x0017…0034 Line {l1=0x1b, l2=»0902GET FIL1$,G*N-E:POST1$ «, l3=0x1b}
0x0034…0071 Line {l1=0x3b, l2=»0904GET FIL1$,G*N:POST2$,C1,C2,LT,LF,LR,LA,RPI,K1,K2,FG,FD «, l3=0x3b}
0x0071…008c Line {l1=0x19, l2=»0906EXEC FEJL(E,N,FIL1$) «, l3=0x19}
0x008c…009b Line {l1=0x0d, l2=»0908ENDPROC «, l3=0x0d}
0x009b…00ac Line {l1=0x0f, l2=»0910PROC NÆSTE «, l3=0x0f}
0x00ac…00ba Line {l1=0x0c, l2=»0912REPEAT «, l3=0x0c}
0x00ba…00cc Line {l1=0x10, l2=»0914LMNR=LMNR+E «, l3=0x10}
0x00cc…00d7 Line {l1=0x09, l2=»0916LA=E «, l3=0x09}
0x00d7…00f2 Line {l1=0x19, l2=»0918IF LMNR<=MLMNR THEN «, l3=0x19}
0x00f2…010c Line {l1=0x18, l2=»0920EXEC INLØNMOD(LMNR) «, l3=0x18}
0x010c…012f Line {l1=0x21, l2=»0922IF LP$<>POST2$(21) THEN LA=B «, l3=0x21}
0x012f…0162 Line {l1=0x31, l2=»0924IF ORK$="A" AND POST2$(24,25)>"89" THEN LA=B «, l3=0x31}
0x0162…0195 Line {l1=0x31, l2=»0926IF ORK$="F" AND POST2$(24,25)<"90" THEN LA=B «, l3=0x31}
0x0195…01a2 Line {l1=0x0b, l2=»0928ENDIF «, l3=0x0b}
0x01a2…01b3 Line {l1=0x0f, l2=»0930UNTIL LA>B «, l3=0x0f}
0x01b3…01c2 Line {l1=0x0d, l2=»0932ENDPROC «, l3=0x0d}
0x01c2…01ed Line {l1=0x29, l2=»1000DIM STARTPER$(8),SLUTPER$(8),DAD$(6) «, l3=0x29}
0x01ed…021b Line {l1=0x2c, l2=»1010DIM RES$(15),OP1$(12),OP2$(12),TAH$(12) «, l3=0x2c}
0x021b…0261 Line {l1=0x44, l2=»1020DIM TOTAL$(W,12),FIL1$(16),LP$(E),ORK$(E),POST1$(71),POST2$(27) «, l3=0x44}
0x0261…02ac Line {l1=0x49, l2=»1030DIM RESUL$(12),RESUL1$(12),TV$(45,11),POST5$(55),MF11$(40),MF12$(50) «, l3=0x49}
0x02ac…02df Line {l1=0x31, l2=»1040DIM FIL$(16),FIL2$(16),POST3$(55),POST4$(34) «, l3=0x31}
0x02df…02f2 Line {l1=0x11, l2=»1050DIM MF1$(16) «, l3=0x11}
0x02f2…030c Line {l1=0x18, l2=»1060TAH$=" 0+" «, l3=0x18}
0x030c…0338 Line {l1=0x2a, l2=»1070DIM BL$(79),L$(79),LIN$(12),LIN1$(12) «, l3=0x2a}
0x0338…034c Line {l1=0x12, l2=»1080FOR I=E TO 79 «, l3=0x12}
0x034c…035e Line {l1=0x10, l2=»1090BL$=BL$+" " «, l3=0x10}
0x035e…036b Line {l1=0x0b, l2=»1100NEXT I «, l3=0x0b}
0x036b…0389 Line {l1=0x1c, l2=»1110PROC CALC(AR3,B1,B2,ES) «, l3=0x1c}
0x0389…03c8 Line {l1=0x3d, l2=»1120RES$=ES$;OP1$=B1$;OP2$=B2$;SI=B;FLAG=B;ART=AR3-6*(AR3>5) «, l3=0x3d}
0x03c8…03e2 Line {l1=0x18, l2=»1130CALL "P641210:REGN" «, l3=0x18}
0x03e2…03f7 Line {l1=0x13, l2=»1140IF AR3<6 THEN «, l3=0x13}
0x03f7…0410 Line {l1=0x17, l2=»1150IF FLAG THEN STOP «, l3=0x17}
0x0410…041d Line {l1=0x0b, l2=»1160ENDIF «, l3=0x0b}
0x041d…042c Line {l1=0x0d, l2=»1170ES$=RES$ «, l3=0x0d}
0x042c…043b Line {l1=0x0d, l2=»1180ENDPROC «, l3=0x0d}
0x043b…044c Line {l1=0x0f, l2=»1190PROC UDTÆL «, l3=0x0f}
0x044c…045f Line {l1=0x11, l2=»1200J=W*(LMNR-E) «, l3=0x11}
0x045f…0472 Line {l1=0x11, l2=»1210FOR K=4 TO W «, l3=0x11}
0x0472…0485 Line {l1=0x11, l2=»1220FOR I=E TO 5 «, l3=0x11}
0x0485…04b0 Line {l1=0x29, l2=»1230POST5$((I-E)*11+E:11)=TV$((K-E)*5+I) «, l3=0x29}
0x04b0…04bd Line {l1=0x0b, l2=»1240NEXT I «, l3=0x0b}
0x04bd…04d8 Line {l1=0x19, l2=»1250PUT FIL2$,J+K:POST5$ «, l3=0x19}
0x04d8…04e5 Line {l1=0x0b, l2=»1260NEXT K «, l3=0x0b}
0x04e5…0505 Line {l1=0x1e, l2=»1270EXEC FEJL(-LMNR,-K,FIL2$) «, l3=0x1e}
0x0505…0514 Line {l1=0x0d, l2=»1280ENDPROC «, l3=0x0d}
0x0514…0526 Line {l1=0x10, l2=»1290PROC INDTÆL «, l3=0x10}
0x0526…0539 Line {l1=0x11, l2=»1300J=W*(LMNR-E) «, l3=0x11}
0x0539…054c Line {l1=0x11, l2=»1310FOR K=4 TO W «, l3=0x11}
0x054c…0567 Line {l1=0x19, l2=»1320GET FIL2$,J+K:POST5$ «, l3=0x19}
0x0567…057a Line {l1=0x11, l2=»1330FOR I=E TO 5 «, l3=0x11}
0x057a…05a5 Line {l1=0x29, l2=»1340TV$((K-E)*5+I)=POST5$((I-E)*11+E:11) «, l3=0x29}
0x05a5…05b2 Line {l1=0x0b, l2=»1350NEXT I «, l3=0x0b}
0x05b2…05bf Line {l1=0x0b, l2=»1360NEXT K «, l3=0x0b}
0x05bf…05dd Line {l1=0x1c, l2=»1370EXEC FEJL(LMNR,K,FIL2$) «, l3=0x1c}
0x05dd…05ec Line {l1=0x0d, l2=»1380ENDPROC «, l3=0x0d}
0x05ec…0602 Line {l1=0x14, l2=»1390PROC SKRIVHOVED «, l3=0x14}
0x0602…060f Line {l1=0x0b, l2=»1400PRINT «, l3=0x0b}
0x060f…0623 Line {l1=0x12, l2=»1410SLJNR=SLJNR+E «, l3=0x12}
0x0623…0649 Line {l1=0x24, l2=»1420PRINT USING " SIDE ####":SLJNR; «, l3=0x24}
0x0649…0671 Line {l1=0x26, l2=»1425PRINT " UDSKRIFTSDATO ";DAD$; «, l3=0x26}
0x0671…06ae Line {l1=0x3b, l2=»1430PRINT TAB(49);"LØNPERIODEN ";STARTPER$;" / ";SLUTPER$; «, l3=0x3b}
0x06ae…06bc Line {l1=0x0c, l2=»1440LINIE=5 «, l3=0x0c}
0x06bc…06dd Line {l1=0x1f, l2=»1450PRINT TAB(35);"LØNJOURNAL" «, l3=0x1f}
0x06dd…06fe Line {l1=0x1f, l2=»1460PRINT TAB(35);"**********" «, l3=0x1f}
0x06fe…070b Line {l1=0x0b, l2=»1470PRINT «, l3=0x0b}
0x070b…071a Line {l1=0x0d, l2=»1510ENDPROC «, l3=0x0d}
0x071a…072d Line {l1=0x11, l2=»1520PROC INDVIRK «, l3=0x11}
0x072d…073f Line {l1=0x10, l2=»1530OPEN FIL$,W «, l3=0x10}
0x073f…0759 Line {l1=0x18, l2=»1540EXEC FEJL(B,B,FIL$) «, l3=0x18}
0x0759…0771 Line {l1=0x16, l2=»1550GET FIL$,E:POST3$ «, l3=0x16}
0x0771…079b Line {l1=0x28, l2=»1560GET FIL$,G:POST4$,SLJNR,MLMNR,ATPLM «, l3=0x28}
0x079b…07b1 Line {l1=0x14, l2=»1565GET FIL$,V:DAD$ «, l3=0x14}
0x07b1…07c0 Line {l1=0x0d, l2=»1570ENDPROC «, l3=0x0d}
0x07c0…07da Line {l1=0x18, l2=»1580PROC FEJL(P1,P2,P3) «, l3=0x18}
0x07da…07f8 Line {l1=0x1c, l2=»1590IF STATUS(P3$)<>B THEN «, l3=0x1c}
0x07f8…0807 Line {l1=0x0d, l2=»1600OUTPUT T «, l3=0x0d}
0x0807…0835 Line {l1=0x2c, l2=»1610PRINT "FIL-FEJL ";P3$;STATUS(P3$),P1;P2 «, l3=0x2c}
0x0835…0841 Line {l1=0x0a, l2=»1620STOP «, l3=0x0a}
0x0841…084e Line {l1=0x0b, l2=»1630ENDIF «, l3=0x0b}
0x084e…085d Line {l1=0x0d, l2=»1640ENDPROC «, l3=0x0d}
0x085d…0874 Line {l1=0x15, l2=»1650FIL2$="P641220:" «, l3=0x15}
0x0874…0890 Line {l1=0x1a, l2=»1660FIL$=FIL2$+"VIRKKART" «, l3=0x1a}
0x0890…08a3 Line {l1=0x11, l2=»1670EXEC INDVIRK «, l3=0x11}
0x08a3…08c0 Line {l1=0x1b, l2=»1675FIL1$=FIL2$+"LØNMODRG" «, l3=0x1b}
0x08c0…08d3 Line {l1=0x11, l2=»1680OPEN FIL1$,R «, l3=0x11}
0x08d3…08f0 Line {l1=0x1b, l2=»1690FIL2$=FIL2$+"TÆLLEREG" «, l3=0x1b}
0x08f0…0903 Line {l1=0x11, l2=»1700OPEN FIL2$,W «, l3=0x11}
0x0903…0920 Line {l1=0x1b, l2=»1710MF1$="P641210:LØNJOUR" «, l3=0x1b}
0x0920…0932 Line {l1=0x10, l2=»1720OPEN MF1$,R «, l3=0x10}
0x0932…0942 Line {l1=0x0e, l2=»1730MAXLIN=72 «, l3=0x0e}
0x0942…094f Line {l1=0x0b, l2=»1740L$=BL$ «, l3=0x0b}
0x094f…0961 Line {l1=0x10, l2=»1745CURSOR E,11 «, l3=0x10}
0x0961…0990 Line {l1=0x2d, l2=»1750GET MF1$:STARTPER$,SLUTPER$,LP$,ORK$,MFD «, l3=0x2d}
0x0990…099f Line {l1=0x0d, l2=»1760OUTPUT P «, l3=0x0d}
0x099f…09b2 Line {l1=0x11, l2=»1770FOR I=E TO W «, l3=0x11}
0x09b2…09c7 Line {l1=0x13, l2=»1780TOTAL$(I)=TAH$ «, l3=0x13}
0x09c7…09d4 Line {l1=0x0b, l2=»1790NEXT I «, l3=0x0b}
0x09d4…09ea Line {l1=0x14, l2=»1800EXEC SKRIVHOVED «, l3=0x14}
0x09ea…09f7 Line {l1=0x0b, l2=»2820LMNR=B «, l3=0x0b}
0x09f7…0a28 Line {l1=0x2f, l2=»2825PRINT " Rettelse i særlige årstælleværker" «, l3=0x2f}
0x0a28…0a72 Line {l1=0x48, l2=»2830PRINT " Lønnr";TAB(14);"Trækpligtig A-indk Trækfri A-indk";TAB(57); «, l3=0x48}
0x0a72…0a87 Line {l1=0x13, l2=»2840PRINT "A-skat" «, l3=0x13}
0x0a87…0a9b Line {l1=0x12, l2=»2850LINIE=LINIE+G «, l3=0x12}
0x0a9b…0aa9 Line {l1=0x0c, l2=»2860REPEAT «, l3=0x0c}
0x0aa9…0aba Line {l1=0x0f, l2=»2870EXEC NÆSTE «, l3=0x0f}
0x0aba…0ad5 Line {l1=0x19, l2=»2880IF LMNR<=MLMNR THEN «, l3=0x19}
0x0ad5…0ae7 Line {l1=0x10, l2=»2890EXEC INDTÆL «, l3=0x10}
0x0ae7…0b11 Line {l1=0x28, l2=»2900EXEC CALC(E,TV$(36),TV$(35),RESUL$) «, l3=0x28}
0x0b11…0b3c Line {l1=0x29, l2=»2910EXEC CALC(E,TV$(39),TV$(38),RESUL1$) «, l3=0x29}
0x0b3c…0b64 Line {l1=0x26, l2=»2920EXEC CALC(E,TV$(42),TV$(41),LIN$) «, l3=0x26}
0x0b64…0b90 Line {l1=0x2a, l2=»2930TV$(35)=TAH$(G:11);TV$(36)=TAH$(G:11) «, l3=0x2a}
0x0b90…0bbc Line {l1=0x2a, l2=»2940TV$(38)=TAH$(G:11);TV$(39)=TAH$(G:11) «, l3=0x2a}
0x0bbc…0be8 Line {l1=0x2a, l2=»2950TV$(41)=TAH$(G:11);TV$(42)=TAH$(G:11) «, l3=0x2a}
0x0be8…0bf5 Line {l1=0x0b, l2=»2960OUTP=B «, l3=0x0b}
0x0bf5…0c1b Line {l1=0x24, l2=»2970EXEC CALC(4,RESUL$,TAH$,RESUL$) «, l3=0x24}
0x0c1b…0c30 Line {l1=0x13, l2=»2980IF SI<>B THEN «, l3=0x13}
0x0c30…0c3d Line {l1=0x0b, l2=»2990OUTP=E «, l3=0x0b}
0x0c3d…0c6b Line {l1=0x2c, l2=»3000EXEC CALC(B,RESUL$,TOTAL$(E),TOTAL$(E)) «, l3=0x2c}
0x0c6b…0c78 Line {l1=0x0b, l2=»3010ENDIF «, l3=0x0b}
0x0c78…0ca0 Line {l1=0x26, l2=»3020EXEC CALC(4,RESUL1$,TAH$,RESUL1$) «, l3=0x26}
0x0ca0…0cb5 Line {l1=0x13, l2=»3030IF SI<>B THEN «, l3=0x13}
0x0cb5…0cc2 Line {l1=0x0b, l2=»3040OUTP=E «, l3=0x0b}
0x0cc2…0cf1 Line {l1=0x2d, l2=»3050EXEC CALC(B,RESUL1$,TOTAL$(G),TOTAL$(G)) «, l3=0x2d}
0x0cf1…0cfe Line {l1=0x0b, l2=»3060ENDIF «, l3=0x0b}
0x0cfe…0d20 Line {l1=0x20, l2=»3070EXEC CALC(4,LIN$,TAH$,LIN$) «, l3=0x20}
0x0d20…0d35 Line {l1=0x13, l2=»3080IF SI<>B THEN «, l3=0x13}
0x0d35…0d42 Line {l1=0x0b, l2=»3090OUTP=E «, l3=0x0b}
0x0d42…0d6e Line {l1=0x2a, l2=»3100EXEC CALC(B,LIN$,TOTAL$(V),TOTAL$(V)) «, l3=0x2a}
0x0d6e…0d7b Line {l1=0x0b, l2=»3110ENDIF «, l3=0x0b}
0x0d7b…0d8f Line {l1=0x12, l2=»3120IF OUTP THEN «, l3=0x12}
0x0d8f…0da3 Line {l1=0x12, l2=»3130LINIE=LINIE+E «, l3=0x12}
0x0da3…0dc1 Line {l1=0x1c, l2=»3140IF LINIE>MAXLIN-6 THEN «, l3=0x1c}
0x0dc1…0dda Line {l1=0x17, l2=»3150WHILE LINIE<MAXLIN «, l3=0x17}
0x0dda…0de7 Line {l1=0x0b, l2=»3160PRINT «, l3=0x0b}
0x0de7…0dfb Line {l1=0x12, l2=»3170LINIE=LINIE+E «, l3=0x12}
0x0dfb…0e0b Line {l1=0x0e, l2=»3180ENDWHILE «, l3=0x0e}
0x0e0b…0e18 Line {l1=0x0b, l2=»3190PRINT «, l3=0x0b}
0x0e18…0e2c Line {l1=0x12, l2=»3195SLJNR=SLJNR+E «, l3=0x12}
0x0e2c…0e52 Line {l1=0x24, l2=»3196PRINT USING " SIDE ####":SLJNR; «, l3=0x24}
0x0e52…0e7a Line {l1=0x26, l2=»3198PRINT " UDSKRIFTSDATO ";DAD$; «, l3=0x26}
0x0e7a…0eb7 Line {l1=0x3b, l2=»3200PRINT TAB(49);"LØNPERIODEN ";STARTPER$;" / ";SLUTPER$; «, l3=0x3b}
0x0eb7…0ec4 Line {l1=0x0b, l2=»3205PRINT «, l3=0x0b}
0x0ec4…0ed1 Line {l1=0x0b, l2=»3207PRINT «, l3=0x0b}
0x0ed1…0ede Line {l1=0x0b, l2=»3210PRINT «, l3=0x0b}
0x0ede…0eec Line {l1=0x0c, l2=»3220LINIE=5 «, l3=0x0c}
0x0eec…0f36 Line {l1=0x48, l2=»3240PRINT " Lønnr";TAB(14);"Trækpligtig A-indk Trækfri A-indk";TAB(57); «, l3=0x48}
0x0f36…0f4b Line {l1=0x13, l2=»3250PRINT "A-skat" «, l3=0x13}
0x0f4b…0f5f Line {l1=0x12, l2=»3260LINIE=LINIE+V «, l3=0x12}
0x0f5f…0f6c Line {l1=0x0b, l2=»3262ENDIF «, l3=0x0b}
0x0f6c…0f98 Line {l1=0x2a, l2=»3264IF RESUL$(12)="+" THEN RESUL$(12)=" " «, l3=0x2a}
0x0f98…0fc6 Line {l1=0x2c, l2=»3266IF RESUL1$(12)="+" THEN RESUL1$(12)=" " «, l3=0x2c}
0x0fc6…0fee Line {l1=0x26, l2=»3268IF LIN$(12)="+" THEN LIN$(12)=" " «, l3=0x26}
0x0fee…100d Line {l1=0x1d, l2=»3270PRINT USING "####":LMNR; «, l3=0x1d}
0x100d…1045 Line {l1=0x36, l2=»3272PRINT TAB(21);RESUL$;TAB(36);RESUL1$;TAB(52);LIN$ «, l3=0x36}
0x1045…1052 Line {l1=0x0b, l2=»3275ENDIF «, l3=0x0b}
0x1052…1063 Line {l1=0x0f, l2=»3277EXEC UDTÆL «, l3=0x0f}
0x1063…1070 Line {l1=0x0b, l2=»3278ENDIF «, l3=0x0b}
0x1070…1088 Line {l1=0x16, l2=»3279UNTIL LMNR=>MLMNR «, l3=0x16}
0x1088…109b Line {l1=0x11, l2=»3280FOR I=E TO V «, l3=0x11}
0x109b…10cb Line {l1=0x2e, l2=»3290IF TOTAL$(I,12)="+" THEN TOTAL$(I,12)=" " «, l3=0x2e}
0x10cb…10d8 Line {l1=0x0b, l2=»3300NEXT I «, l3=0x0b}
0x10d8…1121 Line {l1=0x47, l2=»3310PRINT " ***";TAB(21);TOTAL$(E);TAB(36);TOTAL$(G);TAB(52);TOTAL$(V) «, l3=0x47}
0x1121…1134 Line {l1=0x11, l2=»3320FOR I=E TO V «, l3=0x11}
0x1134…1149 Line {l1=0x13, l2=»3330TOTAL$(I)=TAH$ «, l3=0x13}
0x1149…1156 Line {l1=0x0b, l2=»3340NEXT I «, l3=0x0b}
0x1156…1163 Line {l1=0x0b, l2=»3345PRINT «, l3=0x0b}
0x1163…1177 Line {l1=0x12, l2=»3347LINIE=LINIE+E «, l3=0x12}
0x1177…1184 Line {l1=0x0b, l2=»3350LMNR=B «, l3=0x0b}
0x1184…11a3 Line {l1=0x1d, l2=»3360IF LINIE>MAXLIN-10 THEN «, l3=0x1d}
0x11a3…11bc Line {l1=0x17, l2=»3370WHILE LINIE<MAXLIN «, l3=0x17}
0x11bc…11c9 Line {l1=0x0b, l2=»3380PRINT «, l3=0x0b}
0x11c9…11dd Line {l1=0x12, l2=»3390LINIE=LINIE+E «, l3=0x12}
0x11dd…11ed Line {l1=0x0e, l2=»3400ENDWHILE «, l3=0x0e}
0x11ed…11fa Line {l1=0x0b, l2=»3410PRINT «, l3=0x0b}
0x11fa…120e Line {l1=0x12, l2=»3415SLJNR=SLJNR+E «, l3=0x12}
0x120e…1234 Line {l1=0x24, l2=»3420PRINT USING " SIDE ####":SLJNR; «, l3=0x24}
0x1234…125c Line {l1=0x26, l2=»3421PRINT " UDSKRIFTSDATO ";DAD$; «, l3=0x26}
0x125c…1299 Line {l1=0x3b, l2=»3422PRINT TAB(49);"LØNPERIODEN ";STARTPER$;" / ";SLUTPER$; «, l3=0x3b}
0x1299…12a6 Line {l1=0x0b, l2=»3425PRINT «, l3=0x0b}
0x12a6…12b3 Line {l1=0x0b, l2=»3427PRINT «, l3=0x0b}
0x12b3…12c0 Line {l1=0x0b, l2=»3430PRINT «, l3=0x0b}
0x12c0…12ce Line {l1=0x0c, l2=»3440LINIE=5 «, l3=0x0c}
0x12ce…12db Line {l1=0x0b, l2=»3450ENDIF «, l3=0x0b}
0x12db…1325 Line {l1=0x48, l2=»3455PRINT " Rettelse i tælleværker til brug for ferie- og SH-opgørelse" «, l3=0x48}
0x1325…1373 Line {l1=0x4c, l2=»3460PRINT " Lønnr";TAB(18);"Sygeferiepenge Beregn feriep SH-opsparing"; «, l3=0x4c}
0x1373…1392 Line {l1=0x1d, l2=»3470PRINT " SH-forskud" «, l3=0x1d}
0x1392…13a6 Line {l1=0x12, l2=»3480LINIE=LINIE+G «, l3=0x12}
0x13a6…13b4 Line {l1=0x0c, l2=»3490REPEAT «, l3=0x0c}
0x13b4…13c5 Line {l1=0x0f, l2=»3500EXEC NÆSTE «, l3=0x0f}
0x13c5…13e0 Line {l1=0x19, l2=»3510IF LMNR<=MLMNR THEN «, l3=0x19}
0x13e0…13f2 Line {l1=0x10, l2=»3520EXEC INDTÆL «, l3=0x10}
0x13f2…141c Line {l1=0x28, l2=»3530EXEC CALC(E,TV$(19),TV$(18),RESUL$) «, l3=0x28}
0x141c…1447 Line {l1=0x29, l2=»3540EXEC CALC(E,TV$(22),TV$(21),RESUL1$) «, l3=0x29}
0x1447…146f Line {l1=0x26, l2=»3550EXEC CALC(E,TV$(25),TV$(24),LIN$) «, l3=0x26}
0x146f…1498 Line {l1=0x27, l2=»3555EXEC CALC(E,TV$(28),TV$(27),LIN1$) «, l3=0x27}
0x1498…14c4 Line {l1=0x2a, l2=»3560TV$(18)=TAH$(G:11);TV$(19)=TAH$(G:11) «, l3=0x2a}
0x14c4…14f0 Line {l1=0x2a, l2=»3570TV$(21)=TAH$(G:11);TV$(22)=TAH$(G:11) «, l3=0x2a}
0x14f0…151c Line {l1=0x2a, l2=»3580TV$(24)=TAH$(G:11);TV$(25)=TAH$(G:11) «, l3=0x2a}
0x151c…1548 Line {l1=0x2a, l2=»3585TV$(27)=TAH$(G:11);TV$(28)=TAH$(G:11) «, l3=0x2a}
0x1548…1555 Line {l1=0x0b, l2=»3590OUTP=B «, l3=0x0b}
0x1555…157b Line {l1=0x24, l2=»3600EXEC CALC(4,RESUL$,TAH$,RESUL$) «, l3=0x24}
0x157b…1590 Line {l1=0x13, l2=»3610IF SI<>B THEN «, l3=0x13}
0x1590…159d Line {l1=0x0b, l2=»3620OUTP=E «, l3=0x0b}
0x159d…15cb Line {l1=0x2c, l2=»3630EXEC CALC(B,RESUL$,TOTAL$(E),TOTAL$(E)) «, l3=0x2c}
0x15cb…15d8 Line {l1=0x0b, l2=»3640ENDIF «, l3=0x0b}
0x15d8…1600 Line {l1=0x26, l2=»3650EXEC CALC(4,RESUL1$,TAH$,RESUL1$) «, l3=0x26}
0x1600…1615 Line {l1=0x13, l2=»3660IF SI<>B THEN «, l3=0x13}
0x1615…1622 Line {l1=0x0b, l2=»3670OUTP=E «, l3=0x0b}
0x1622…1651 Line {l1=0x2d, l2=»3680EXEC CALC(B,RESUL1$,TOTAL$(G),TOTAL$(G)) «, l3=0x2d}
0x1651…165e Line {l1=0x0b, l2=»3690ENDIF «, l3=0x0b}
0x165e…1680 Line {l1=0x20, l2=»3700EXEC CALC(4,LIN$,TAH$,LIN$) «, l3=0x20}
0x1680…1695 Line {l1=0x13, l2=»3710IF SI<>B THEN «, l3=0x13}
0x1695…16a2 Line {l1=0x0b, l2=»3720OUTP=E «, l3=0x0b}
0x16a2…16ce Line {l1=0x2a, l2=»3730EXEC CALC(B,LIN$,TOTAL$(V),TOTAL$(V)) «, l3=0x2a}
0x16ce…16db Line {l1=0x0b, l2=»3740ENDIF «, l3=0x0b}
0x16db…16ff Line {l1=0x22, l2=»3741EXEC CALC(4,LIN1$,TAH$,LIN1$) «, l3=0x22}
0x16ff…1714 Line {l1=0x13, l2=»3742IF SI<>B THEN «, l3=0x13}
0x1714…1721 Line {l1=0x0b, l2=»3743OUTP=E «, l3=0x0b}
0x1721…174e Line {l1=0x2b, l2=»3744EXEC CALC(B,LIN1$,TOTAL$(4),TOTAL$(4)) «, l3=0x2b}
0x174e…175b Line {l1=0x0b, l2=»3745ENDIF «, l3=0x0b}
0x175b…176f Line {l1=0x12, l2=»3750IF OUTP THEN «, l3=0x12}
0x176f…1783 Line {l1=0x12, l2=»3760LINIE=LINIE+E «, l3=0x12}
0x1783…17a1 Line {l1=0x1c, l2=»3770IF LINIE>MAXLIN-6 THEN «, l3=0x1c}
0x17a1…17ba Line {l1=0x17, l2=»3780WHILE LINIE<MAXLIN «, l3=0x17}
0x17ba…17c7 Line {l1=0x0b, l2=»3790PRINT «, l3=0x0b}
0x17c7…17db Line {l1=0x12, l2=»3800LINIE=LINIE+E «, l3=0x12}
0x17db…17eb Line {l1=0x0e, l2=»3810ENDWHILE «, l3=0x0e}
0x17eb…17f8 Line {l1=0x0b, l2=»3820PRINT «, l3=0x0b}
0x17f8…180c Line {l1=0x12, l2=»3825SLJNR=SLJNR+E «, l3=0x12}
0x180c…1832 Line {l1=0x24, l2=»3830PRINT USING " SIDE ####":SLJNR; «, l3=0x24}
0x1832…185a Line {l1=0x26, l2=»3831PRINT " UDSKRIFTSDATO ";DAD$; «, l3=0x26}
0x185a…1897 Line {l1=0x3b, l2=»3832PRINT TAB(49);"LØNPERIODEN ";STARTPER$;" / ";SLUTPER$; «, l3=0x3b}
0x1897…18a4 Line {l1=0x0b, l2=»3835PRINT «, l3=0x0b}
0x18a4…18b1 Line {l1=0x0b, l2=»3837PRINT «, l3=0x0b}
0x18b1…18be Line {l1=0x0b, l2=»3840PRINT «, l3=0x0b}
0x18be…18cc Line {l1=0x0c, l2=»3850LINIE=5 «, l3=0x0c}
0x18cc…191a Line {l1=0x4c, l2=»3870PRINT " Lønnr";TAB(18);"Sygeferiepenge Beregn feriep SH-opsparing"; «, l3=0x4c}
0x191a…1939 Line {l1=0x1d, l2=»3880PRINT " SH-forskud" «, l3=0x1d}
0x1939…194d Line {l1=0x12, l2=»3890LINIE=LINIE+V «, l3=0x12}
0x194d…195a Line {l1=0x0b, l2=»3900ENDIF «, l3=0x0b}
0x195a…1986 Line {l1=0x2a, l2=»3901IF RESUL$(12)="+" THEN RESUL$(12)=" " «, l3=0x2a}
0x1986…19b3 Line {l1=0x2b, l2=»3902IF RESUL1$(12)="+" THEN RESUL$(12)=" " «, l3=0x2b}
0x19b3…19db Line {l1=0x26, l2=»3903IF LIN$(12)="+" THEN LIN$(12)=" " «, l3=0x26}
0x19db…1a05 Line {l1=0x28, l2=»3904IF LIN1$(12)="+" THEN LIN1$(12)=" " «, l3=0x28}
0x1a05…1a24 Line {l1=0x1d, l2=»3905PRINT USING "####":LMNR; «, l3=0x1d}
0x1a24…1a6b Line {l1=0x45, l2=»3906PRINT TAB(21);RESUL$;TAB(36);RESUL1$;TAB(52);LIN$;TAB(68);LIN1$; «, l3=0x45}
0x1a6b…1a78 Line {l1=0x0b, l2=»3910ENDIF «, l3=0x0b}
0x1a78…1a89 Line {l1=0x0f, l2=»3912EXEC UDTÆL «, l3=0x0f}
0x1a89…1a96 Line {l1=0x0b, l2=»3915ENDIF «, l3=0x0b}
0x1a96…1aae Line {l1=0x16, l2=»3920UNTIL LMNR=>MLMNR «, l3=0x16}
0x1aae…1ac1 Line {l1=0x11, l2=»3930FOR I=E TO 4 «, l3=0x11}
0x1ac1…1af1 Line {l1=0x2e, l2=»3940IF TOTAL$(I,12)="+" THEN TOTAL$(I,12)=" " «, l3=0x2e}
0x1af1…1afe Line {l1=0x0b, l2=»3950NEXT I «, l3=0x0b}
0x1afe…1b48 Line {l1=0x48, l2=»3960PRINT " ***";TAB(21);TOTAL$(E);TAB(36);TOTAL$(G);TAB(52);TOTAL$(V); «, l3=0x48}
0x1b48…1b67 Line {l1=0x1d, l2=»3970PRINT TAB(68);TOTAL$(4); «, l3=0x1d}
0x1b67…1b7b Line {l1=0x12, l2=»3990LINIE=LINIE+G «, l3=0x12}
0x1b7b…1b94 Line {l1=0x17, l2=»4010WHILE LINIE<MAXLIN «, l3=0x17}
0x1b94…1ba1 Line {l1=0x0b, l2=»4020PRINT «, l3=0x0b}
0x1ba1…1bb5 Line {l1=0x12, l2=»4030LINIE=LINIE+E «, l3=0x12}
0x1bb5…1bc5 Line {l1=0x0e, l2=»4040ENDWHILE «, l3=0x0e}
0x1bc5…1bdd Line {l1=0x16, l2=»4170PUT FIL$,E:POST3$ «, l3=0x16}
0x1bdd…1c07 Line {l1=0x28, l2=»4180PUT FIL$,G:POST4$,SLJNR,MLMNR,ATPLM «, l3=0x28}
0x1c07…1c14 Line {l1=0x0b, l2=»4190CLOSE «, l3=0x0b}
0x1c14…1c23 Line {l1=0x0d, l2=»4195OUTPUT T «, l3=0x0d}
0x1c23…1c40 Line {l1=0x1b, l2=»4200CHAIN "P641210:LFERIE" «, l3=0x1b}
0x1c40…1c60 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 ┆ ┆
[…0xa…]