|
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: 12640 (0x3160)
Types: TextFile
Notes: Mikados_K
Names: »JOURNAL.K«
└─⟦385f097a1⟧ Bits:30008988 SPC/1 COMAL programmer til bogføring
└─⟦this⟧ »JOURNAL.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) 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),DAD$(6) 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=6 1450PRINT TAB(35);"LØNJOURNAL" 1460PRINT TAB(35);"**********" 1470PRINT " LØN TIMER FERIEB ATP PENSION A-INDK A-SKAT NETTOLØN"; 1480PRINT " UDBETALT" 1490PRINT " NR";TAB(18);"LØN";TAB(33);"LØNMODT IALT";TAB(56);"/FRADR"; 1500PRINT " TIL-PI KONTANT" 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$,W 1730MAXLIN=72 1740L$=BL$ 1750GET MF1$:STARTPER$,SLUTPER$,LP$,ORK$ 1760OUTPUT P 1770FOR I=E TO W 1780TOTAL$(I)=TAH$ 1790NEXT I 1792LINIE=MAXLIN 1794IF STARTPER$<>"00-00-00" THEN 1800EXEC SKRIVHOVED 1810GET MF1$:LMNR,MF11$ 1820WHILE LMNR<=MLMNR 1840IF LINIE>MAXLIN-7 THEN 1850WHILE LINIE<MAXLIN 1860PRINT 1870LINIE=LINIE+E 1880ENDWHILE 1890EXEC SKRIVHOVED 1910ENDIF 1915LINIE=LINIE+V 1920GET MF1$:MF12$ 1930FOR I=E TO 4 1940RESUL$=MF11$(E+(I-E)*10:10) 1950EXEC CALC(B,RESUL$,TOTAL$(I),TOTAL$(I)) 1960IF MF11$(I*10)="+" THEN MF11$(I*10)=" " 1970NEXT I 1980FOR I=5 TO W 1990RESUL$=MF12$(E+(I-5)*10:10) 2000EXEC CALC(B,RESUL$,TOTAL$(I),TOTAL$(I)) 2010IF MF12$((I-4)*10)="+" THEN MF12$((I-4)*10)=" " 2020NEXT I 2030PRINT USING "####":LMNR; 2040PRINT TAB(7);MF11$(E,10);TAB(23);MF11$(11,20);TAB(38);MF11$(21,30); 2050PRINT TAB(54);MF11$(31,40);TAB(70);MF12$(E,10); 2060PRINT TAB(15);MF12$(11,20);TAB(31);MF12$(21,30);TAB(46);MF12$(31,40); 2070PRINT TAB(62);MF12$(41,50) 2075PRINT "************************************************************"; 2076PRINT "*******************"; 2080GET MF1$:LMNR,MF11$ 2090ENDWHILE 2100FOR I=E TO W 2110IF TOTAL$(I,12)="+" THEN TOTAL$(I,12)=" " 2120NEXT I 2130PRINT " ***";TOTAL$(E);TAB(21);TOTAL$(G);TAB(36);TOTAL$(V); 2140PRINT TAB(52);TOTAL$(4);TAB(68);TOTAL$(5); 2150PRINT TAB(13);TOTAL$(6);TAB(29);TOTAL$(7);TAB(44);TOTAL$(8);TAB(60); 2160PRINT TOTAL$(W) 2170LINIE=LINIE+G 2175ENDIF 2180IF LINIE>MAXLIN-22 THEN 2190WHILE LINIE<MAXLIN 2200PRINT 2210LINIE=LINIE+E 2220ENDWHILE 2230PRINT 2240SLJNR=SLJNR+E 2250PRINT USING " SIDE ####":SLJNR; 2251PRINT " UDSKRIFTSDATO ";DAD$; 2252PRINT TAB(49);"LØNPERIODEN ";STARTPER$;" / ";SLUTPER$; 2253PRINT 2254PRINT 2255PRINT 2256LINIE=5 2258ENDIF 2260LINIE=LINIE+20 2270PRINT " Heraf" 2280GET MF1$:TOTAL$(E),TOTAL$(G),TOTAL$(V),TOTAL$(4),TOTAL$(5),TOTAL$(6) 2290TOTAL$(8)=TOTAL$(6) 2300FOR I=E TO 6 2310IF TOTAL$(I,12)="+" THEN TOTAL$(I,12)=" " 2320NEXT I 2330PRINT TAB(6);"LA 40 Ferietillæg";TAB(36);TOTAL$(E) 2340PRINT TAB(6);"LA 41 Sygedagpenge";TAB(36);TOTAL$(G) 2350PRINT TAB(6);"LA 42 SH-forskud";TAB(36);TOTAL$(V) 2360PRINT TAB(6);"LA*84 Trækfri A-indk";TAB(36);TOTAL$(4) 2370PRINT TAB(6);"LA 57-59 Nettoløndele";TAB(52);TOTAL$(5) 2380PRINT " Ferie og SH" 2390PRINT " opgørelse" 2400PRINT TAB(6);"LA 70 Feriep til beskatn";TAB(36);TOTAL$(6) 2410GET MF1$:TOTAL$(E),TOTAL$(G),TOTAL$(V),TOTAL$(4),TOTAL$(5),TOTAL$(6) 2420EXEC CALC(B,TOTAL$(8),TOTAL$(G),TOTAL$(8)) 2421EXEC CALC(B,TOTAL$(8),TOTAL$(V),TOTAL$(8)) 2422EXEC CALC(B,TOTAL$(8),TOTAL$(5),TOTAL$(8)) 2423EXEC CALC(B,TOTAL$(8),TOTAL$(6),TOTAL$(8)) 2424EXEC CALC(B,TOTAL$(E),TOTAL$(4),TOTAL$(7)) 2430FOR I=E TO 6 2440IF TOTAL$(I,12)="+" THEN TOTAL$(I,12)=" " 2450NEXT I 2460PRINT TAB(6);"LA*71 A-skat";TAB(44);TOTAL$(E) 2470PRINT 2480PRINT TAB(6);"LA*90 Beregnede feriep";TAB(36);TOTAL$(G) 2490PRINT TAB(6);"LA*91 Sygeferiepenge";TAB(36);TOTAL$(V) 2500PRINT TAB(6);"LA*92 A-skat";TAB(44);TOTAL$(4) 2510PRINT 2520PRINT TAB(6);"LA*95 SH-opsparing";TAB(36);TOTAL$(5) 2530PRINT TAB(6);"LA*96 SH-forskud";TAB(36);TOTAL$(6) 2550GET MF1$:TOTAL$(E),TOTAL$(G),TOTAL$(V),TOTAL$(4) 2560EXEC CALC(B,TOTAL$(E),TOTAL$(7),TOTAL$(7)) 2570EXEC CALC(B,TOTAL$(G),TOTAL$(V),TOTAL$(6)) 2580EXEC CALC(B,TOTAL$(4),TOTAL$(6),TOTAL$(6)) 2590FOR I=E TO 8 2600IF TOTAL$(I,12)="+" THEN TOTAL$(I,12)=" " 2610NEXT I 2620PRINT TAB(6);"LA*97 A-skat";TAB(44);TOTAL$(E) 2630PRINT TAB(6);"**";TAB(36);TOTAL$(8) 2640PRINT TAB(44);TOTAL$(7) 2645IF STARTPER$<>"00-00-00" THEN 2650TOTAL$(W)=TOTAL$(6) 2660TOTAL$(8)=TOTAL$(4) 2670TOTAL$(7)=TOTAL$(V) 2680TOTAL$(6)=TOTAL$(G) 2690FOR I=E TO 4 2700TOTAL$(I)=TAH$ 2710NEXT I 2720LMNR=B 2730IF LINIE>MAXLIN-10 THEN 2740WHILE LINIE<MAXLIN 2750PRINT 2760LINIE=LINIE+E 2770ENDWHILE 2780PRINT 2785SLJNR=SLJNR+E 2790PRINT USING " SIDE ####":SLJNR; 2795PRINT TAB(49);"LØNPERIODEN ";STARTPER$;" / ";SLUTPER$; 2797PRINT 2798PRINT 2800PRINT 2810LINIE=5 2820ENDIF 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 RESUL1$(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); 3980PRINT 3990LINIE=LINIE+G 4000IF LINIE>MAXLIN-8 THEN 4010WHILE LINIE<MAXLIN 4020PRINT 4030LINIE=LINIE+E 4040ENDWHILE 4050PRINT 4055SLJNR=SLJNR+E 4060PRINT USING " SIDE ####":SLJNR; 4061PRINT " UDSKRIFTSDATO ";DAD$; 4062PRINT TAB(49);"LØNPERIODEN ";STARTPER$;" / ";SLUTPER$; 4065PRINT 4067PRINT 4070PRINT 4080LINIE=5 4090ENDIF 4100PRINT " Beregnet i" 4110PRINT " Perioden" 4120PRINT TAB(6);"LA 72 Sygeferiepenge";TAB(52);TOTAL$(6) 4130PRINT TAB(6);"LA*78 Beregnede feriep";TAB(52);TOTAL$(7) 4140PRINT TAB(6);"LA*79 SH-opsparing";TAB(52);TOTAL$(8) 4150PRINT TAB(6);"**";TAB(52);TOTAL$(W) 4160LINIE=LINIE+7 4161ENDIF 4162WHILE LINIE<MAXLIN 4164PRINT 4165LINIE=LINIE+E 4166ENDWHILE 4170PUT FIL$,E:POST3$ 4180PUT FIL$,G:POST4$,SLJNR,MLMNR,ATPLM 4190CLOSE 4195OUTPUT T 4197IF STARTPER$<>"00-00-00" THEN 4200CHAIN "P641210:LFRADRAG" 4210ELSE 4220CHAIN "P641210:STARTB" 4230ENDIF
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…01e5 Line {l1=0x21, l2=»1000DIM STARTPER$(8),SLUTPER$(8) «, l3=0x21}
0x01e5…0213 Line {l1=0x2c, l2=»1010DIM RES$(15),OP1$(12),OP2$(12),TAH$(12) «, l3=0x2c}
0x0213…0259 Line {l1=0x44, l2=»1020DIM TOTAL$(W,12),FIL1$(16),LP$(E),ORK$(E),POST1$(71),POST2$(27) «, l3=0x44}
0x0259…02a4 Line {l1=0x49, l2=»1030DIM RESUL$(12),RESUL1$(12),TV$(45,11),POST5$(55),MF11$(40),MF12$(50) «, l3=0x49}
0x02a4…02df Line {l1=0x39, l2=»1040DIM FIL$(16),FIL2$(16),POST3$(55),POST4$(34),DAD$(6) «, l3=0x39}
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=6 «, 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…074d Line {l1=0x4d, l2=»1470PRINT " LØN TIMER FERIEB ATP PENSION A-INDK A-SKAT NETTOLØN"; «, l3=0x4d}
0x074d…0767 Line {l1=0x18, l2=»1480PRINT " UDBETALT" «, l3=0x18}
0x0767…07b0 Line {l1=0x47, l2=»1490PRINT " NR";TAB(18);"LØN";TAB(33);"LØNMODT IALT";TAB(56);"/FRADR"; «, l3=0x47}
0x07b0…07d0 Line {l1=0x1e, l2=»1500PRINT " TIL-PI KONTANT" «, l3=0x1e}
0x07d0…07df Line {l1=0x0d, l2=»1510ENDPROC «, l3=0x0d}
0x07df…07f2 Line {l1=0x11, l2=»1520PROC INDVIRK «, l3=0x11}
0x07f2…0804 Line {l1=0x10, l2=»1530OPEN FIL$,W «, l3=0x10}
0x0804…081e Line {l1=0x18, l2=»1540EXEC FEJL(B,B,FIL$) «, l3=0x18}
0x081e…0836 Line {l1=0x16, l2=»1550GET FIL$,E:POST3$ «, l3=0x16}
0x0836…0860 Line {l1=0x28, l2=»1560GET FIL$,G:POST4$,SLJNR,MLMNR,ATPLM «, l3=0x28}
0x0860…0876 Line {l1=0x14, l2=»1565GET FIL$,V:DAD$ «, l3=0x14}
0x0876…0885 Line {l1=0x0d, l2=»1570ENDPROC «, l3=0x0d}
0x0885…089f Line {l1=0x18, l2=»1580PROC FEJL(P1,P2,P3) «, l3=0x18}
0x089f…08bd Line {l1=0x1c, l2=»1590IF STATUS(P3$)<>B THEN «, l3=0x1c}
0x08bd…08cc Line {l1=0x0d, l2=»1600OUTPUT T «, l3=0x0d}
0x08cc…08fa Line {l1=0x2c, l2=»1610PRINT "FIL-FEJL ";P3$;STATUS(P3$),P1;P2 «, l3=0x2c}
0x08fa…0906 Line {l1=0x0a, l2=»1620STOP «, l3=0x0a}
0x0906…0913 Line {l1=0x0b, l2=»1630ENDIF «, l3=0x0b}
0x0913…0922 Line {l1=0x0d, l2=»1640ENDPROC «, l3=0x0d}
0x0922…0939 Line {l1=0x15, l2=»1650FIL2$="P641220:" «, l3=0x15}
0x0939…0955 Line {l1=0x1a, l2=»1660FIL$=FIL2$+"VIRKKART" «, l3=0x1a}
0x0955…0968 Line {l1=0x11, l2=»1670EXEC INDVIRK «, l3=0x11}
0x0968…0985 Line {l1=0x1b, l2=»1675FIL1$=FIL2$+"LØNMODRG" «, l3=0x1b}
0x0985…0998 Line {l1=0x11, l2=»1680OPEN FIL1$,R «, l3=0x11}
0x0998…09b5 Line {l1=0x1b, l2=»1690FIL2$=FIL2$+"TÆLLEREG" «, l3=0x1b}
0x09b5…09c8 Line {l1=0x11, l2=»1700OPEN FIL2$,W «, l3=0x11}
0x09c8…09e5 Line {l1=0x1b, l2=»1710MF1$="P641210:LØNJOUR" «, l3=0x1b}
0x09e5…09f7 Line {l1=0x10, l2=»1720OPEN MF1$,W «, l3=0x10}
0x09f7…0a07 Line {l1=0x0e, l2=»1730MAXLIN=72 «, l3=0x0e}
0x0a07…0a14 Line {l1=0x0b, l2=»1740L$=BL$ «, l3=0x0b}
0x0a14…0a3f Line {l1=0x29, l2=»1750GET MF1$:STARTPER$,SLUTPER$,LP$,ORK$ «, l3=0x29}
0x0a3f…0a4e Line {l1=0x0d, l2=»1760OUTPUT P «, l3=0x0d}
0x0a4e…0a61 Line {l1=0x11, l2=»1770FOR I=E TO W «, l3=0x11}
0x0a61…0a76 Line {l1=0x13, l2=»1780TOTAL$(I)=TAH$ «, l3=0x13}
0x0a76…0a83 Line {l1=0x0b, l2=»1790NEXT I «, l3=0x0b}
0x0a83…0a96 Line {l1=0x11, l2=»1792LINIE=MAXLIN «, l3=0x11}
0x0a96…0abb Line {l1=0x23, l2=»1794IF STARTPER$<>"00-00-00" THEN «, l3=0x23}
0x0abb…0ad1 Line {l1=0x14, l2=»1800EXEC SKRIVHOVED «, l3=0x14}
0x0ad1…0aeb Line {l1=0x18, l2=»1810GET MF1$:LMNR,MF11$ «, l3=0x18}
0x0aeb…0b03 Line {l1=0x16, l2=»1820WHILE LMNR<=MLMNR «, l3=0x16}
0x0b03…0b21 Line {l1=0x1c, l2=»1840IF LINIE>MAXLIN-7 THEN «, l3=0x1c}
0x0b21…0b3a Line {l1=0x17, l2=»1850WHILE LINIE<MAXLIN «, l3=0x17}
0x0b3a…0b47 Line {l1=0x0b, l2=»1860PRINT «, l3=0x0b}
0x0b47…0b5b Line {l1=0x12, l2=»1870LINIE=LINIE+E «, l3=0x12}
0x0b5b…0b6b Line {l1=0x0e, l2=»1880ENDWHILE «, l3=0x0e}
0x0b6b…0b81 Line {l1=0x14, l2=»1890EXEC SKRIVHOVED «, l3=0x14}
0x0b81…0b8e Line {l1=0x0b, l2=»1910ENDIF «, l3=0x0b}
0x0b8e…0ba2 Line {l1=0x12, l2=»1915LINIE=LINIE+V «, l3=0x12}
0x0ba2…0bb7 Line {l1=0x13, l2=»1920GET MF1$:MF12$ «, l3=0x13}
0x0bb7…0bca Line {l1=0x11, l2=»1930FOR I=E TO 4 «, l3=0x11}
0x0bca…0bec Line {l1=0x20, l2=»1940RESUL$=MF11$(E+(I-E)*10:10) «, l3=0x20}
0x0bec…0c1a Line {l1=0x2c, l2=»1950EXEC CALC(B,RESUL$,TOTAL$(I),TOTAL$(I)) «, l3=0x2c}
0x0c1a…0c48 Line {l1=0x2c, l2=»1960IF MF11$(I*10)="+" THEN MF11$(I*10)=" " «, l3=0x2c}
0x0c48…0c55 Line {l1=0x0b, l2=»1970NEXT I «, l3=0x0b}
0x0c55…0c68 Line {l1=0x11, l2=»1980FOR I=5 TO W «, l3=0x11}
0x0c68…0c8a Line {l1=0x20, l2=»1990RESUL$=MF12$(E+(I-5)*10:10) «, l3=0x20}
0x0c8a…0cb8 Line {l1=0x2c, l2=»2000EXEC CALC(B,RESUL$,TOTAL$(I),TOTAL$(I)) «, l3=0x2c}
0x0cb8…0cee Line {l1=0x34, l2=»2010IF MF12$((I-4)*10)="+" THEN MF12$((I-4)*10)=" " «, l3=0x34}
0x0cee…0cfb Line {l1=0x0b, l2=»2020NEXT I «, l3=0x0b}
0x0cfb…0d1a Line {l1=0x1d, l2=»2030PRINT USING "####":LMNR; «, l3=0x1d}
0x0d1a…0d64 Line {l1=0x48, l2=»2040PRINT TAB(7);MF11$(E,10);TAB(23);MF11$(11,20);TAB(38);MF11$(21,30); «, l3=0x48}
0x0d64…0d9a Line {l1=0x34, l2=»2050PRINT TAB(54);MF11$(31,40);TAB(70);MF12$(E,10); «, l3=0x34}
0x0d9a…0de6 Line {l1=0x4a, l2=»2060PRINT TAB(15);MF12$(11,20);TAB(31);MF12$(21,30);TAB(46);MF12$(31,40); «, l3=0x4a}
0x0de6…0e07 Line {l1=0x1f, l2=»2070PRINT TAB(62);MF12$(41,50) «, l3=0x1f}
0x0e07…0e53 Line {l1=0x4a, l2=»2075PRINT "************************************************************"; «, l3=0x4a}
0x0e53…0e76 Line {l1=0x21, l2=»2076PRINT "*******************"; «, l3=0x21}
0x0e76…0e90 Line {l1=0x18, l2=»2080GET MF1$:LMNR,MF11$ «, l3=0x18}
0x0e90…0ea0 Line {l1=0x0e, l2=»2090ENDWHILE «, l3=0x0e}
0x0ea0…0eb3 Line {l1=0x11, l2=»2100FOR I=E TO W «, l3=0x11}
0x0eb3…0ee3 Line {l1=0x2e, l2=»2110IF TOTAL$(I,12)="+" THEN TOTAL$(I,12)=" " «, l3=0x2e}
0x0ee3…0ef0 Line {l1=0x0b, l2=»2120NEXT I «, l3=0x0b}
0x0ef0…0f32 Line {l1=0x40, l2=»2130PRINT " ***";TOTAL$(E);TAB(21);TOTAL$(G);TAB(36);TOTAL$(V); «, l3=0x40}
0x0f32…0f63 Line {l1=0x2f, l2=»2140PRINT TAB(52);TOTAL$(4);TAB(68);TOTAL$(5); «, l3=0x2f}
0x0f63…0fae Line {l1=0x49, l2=»2150PRINT TAB(13);TOTAL$(6);TAB(29);TOTAL$(7);TAB(44);TOTAL$(8);TAB(60); «, l3=0x49}
0x0fae…0fc4 Line {l1=0x14, l2=»2160PRINT TOTAL$(W) «, l3=0x14}
0x0fc4…0fd8 Line {l1=0x12, l2=»2170LINIE=LINIE+G «, l3=0x12}
0x0fd8…0fe5 Line {l1=0x0b, l2=»2175ENDIF «, l3=0x0b}
0x0fe5…1004 Line {l1=0x1d, l2=»2180IF LINIE>MAXLIN-22 THEN «, l3=0x1d}
0x1004…101d Line {l1=0x17, l2=»2190WHILE LINIE<MAXLIN «, l3=0x17}
0x101d…102a Line {l1=0x0b, l2=»2200PRINT «, l3=0x0b}
0x102a…103e Line {l1=0x12, l2=»2210LINIE=LINIE+E «, l3=0x12}
0x103e…104e Line {l1=0x0e, l2=»2220ENDWHILE «, l3=0x0e}
0x104e…105b Line {l1=0x0b, l2=»2230PRINT «, l3=0x0b}
0x105b…106f Line {l1=0x12, l2=»2240SLJNR=SLJNR+E «, l3=0x12}
0x106f…1095 Line {l1=0x24, l2=»2250PRINT USING " SIDE ####":SLJNR; «, l3=0x24}
0x1095…10bd Line {l1=0x26, l2=»2251PRINT " UDSKRIFTSDATO ";DAD$; «, l3=0x26}
0x10bd…10fa Line {l1=0x3b, l2=»2252PRINT TAB(49);"LØNPERIODEN ";STARTPER$;" / ";SLUTPER$; «, l3=0x3b}
0x10fa…1107 Line {l1=0x0b, l2=»2253PRINT «, l3=0x0b}
0x1107…1114 Line {l1=0x0b, l2=»2254PRINT «, l3=0x0b}
0x1114…1121 Line {l1=0x0b, l2=»2255PRINT «, l3=0x0b}
0x1121…112f Line {l1=0x0c, l2=»2256LINIE=5 «, l3=0x0c}
0x112f…113c Line {l1=0x0b, l2=»2258ENDIF «, l3=0x0b}
0x113c…1151 Line {l1=0x13, l2=»2260LINIE=LINIE+20 «, l3=0x13}
0x1151…1166 Line {l1=0x13, l2=»2270PRINT " Heraf" «, l3=0x13}
0x1166…11b1 Line {l1=0x49, l2=»2280GET MF1$:TOTAL$(E),TOTAL$(G),TOTAL$(V),TOTAL$(4),TOTAL$(5),TOTAL$(6) «, l3=0x49}
0x11b1…11cb Line {l1=0x18, l2=»2290TOTAL$(8)=TOTAL$(6) «, l3=0x18}
0x11cb…11de Line {l1=0x11, l2=»2300FOR I=E TO 6 «, l3=0x11}
0x11de…120e Line {l1=0x2e, l2=»2310IF TOTAL$(I,12)="+" THEN TOTAL$(I,12)=" " «, l3=0x2e}
0x120e…121b Line {l1=0x0b, l2=»2320NEXT I «, l3=0x0b}
0x121b…1257 Line {l1=0x3a, l2=»2330PRINT TAB(6);"LA 40 Ferietillæg";TAB(36);TOTAL$(E) «, l3=0x3a}
0x1257…1294 Line {l1=0x3b, l2=»2340PRINT TAB(6);"LA 41 Sygedagpenge";TAB(36);TOTAL$(G) «, l3=0x3b}
0x1294…12cf Line {l1=0x39, l2=»2350PRINT TAB(6);"LA 42 SH-forskud";TAB(36);TOTAL$(V) «, l3=0x39}
0x12cf…130e Line {l1=0x3d, l2=»2360PRINT TAB(6);"LA*84 Trækfri A-indk";TAB(36);TOTAL$(4) «, l3=0x3d}
0x130e…134b Line {l1=0x3b, l2=»2370PRINT TAB(6);"LA 57-59 Nettoløndele";TAB(52);TOTAL$(5) «, l3=0x3b}
0x134b…1366 Line {l1=0x19, l2=»2380PRINT " Ferie og SH" «, l3=0x19}
0x1366…137f Line {l1=0x17, l2=»2390PRINT " opgørelse" «, l3=0x17}
0x137f…13c2 Line {l1=0x41, l2=»2400PRINT TAB(6);"LA 70 Feriep til beskatn";TAB(36);TOTAL$(6) «, l3=0x41}
0x13c2…140d Line {l1=0x49, l2=»2410GET MF1$:TOTAL$(E),TOTAL$(G),TOTAL$(V),TOTAL$(4),TOTAL$(5),TOTAL$(6) «, l3=0x49}
0x140d…143e Line {l1=0x2f, l2=»2420EXEC CALC(B,TOTAL$(8),TOTAL$(G),TOTAL$(8)) «, l3=0x2f}
0x143e…146f Line {l1=0x2f, l2=»2421EXEC CALC(B,TOTAL$(8),TOTAL$(V),TOTAL$(8)) «, l3=0x2f}
0x146f…14a0 Line {l1=0x2f, l2=»2422EXEC CALC(B,TOTAL$(8),TOTAL$(5),TOTAL$(8)) «, l3=0x2f}
0x14a0…14d1 Line {l1=0x2f, l2=»2423EXEC CALC(B,TOTAL$(8),TOTAL$(6),TOTAL$(8)) «, l3=0x2f}
0x14d1…1502 Line {l1=0x2f, l2=»2424EXEC CALC(B,TOTAL$(E),TOTAL$(4),TOTAL$(7)) «, l3=0x2f}
0x1502…1515 Line {l1=0x11, l2=»2430FOR I=E TO 6 «, l3=0x11}
0x1515…1545 Line {l1=0x2e, l2=»2440IF TOTAL$(I,12)="+" THEN TOTAL$(I,12)=" " «, l3=0x2e}
0x1545…1552 Line {l1=0x0b, l2=»2450NEXT I «, l3=0x0b}
0x1552…1589 Line {l1=0x35, l2=»2460PRINT TAB(6);"LA*71 A-skat";TAB(44);TOTAL$(E) «, l3=0x35}
0x1589…1596 Line {l1=0x0b, l2=»2470PRINT «, l3=0x0b}
0x1596…15d7 Line {l1=0x3f, l2=»2480PRINT TAB(6);"LA*90 Beregnede feriep";TAB(36);TOTAL$(G) «, l3=0x3f}
0x15d7…1616 Line {l1=0x3d, l2=»2490PRINT TAB(6);"LA*91 Sygeferiepenge";TAB(36);TOTAL$(V) «, l3=0x3d}
0x1616…164d Line {l1=0x35, l2=»2500PRINT TAB(6);"LA*92 A-skat";TAB(44);TOTAL$(4) «, l3=0x35}
0x164d…165a Line {l1=0x0b, l2=»2510PRINT «, l3=0x0b}
0x165a…1697 Line {l1=0x3b, l2=»2520PRINT TAB(6);"LA*95 SH-opsparing";TAB(36);TOTAL$(5) «, l3=0x3b}
0x1697…16d2 Line {l1=0x39, l2=»2530PRINT TAB(6);"LA*96 SH-forskud";TAB(36);TOTAL$(6) «, l3=0x39}
0x16d2…1709 Line {l1=0x35, l2=»2550GET MF1$:TOTAL$(E),TOTAL$(G),TOTAL$(V),TOTAL$(4) «, l3=0x35}
0x1709…173a Line {l1=0x2f, l2=»2560EXEC CALC(B,TOTAL$(E),TOTAL$(7),TOTAL$(7)) «, l3=0x2f}
0x173a…176b Line {l1=0x2f, l2=»2570EXEC CALC(B,TOTAL$(G),TOTAL$(V),TOTAL$(6)) «, l3=0x2f}
0x176b…179c Line {l1=0x2f, l2=»2580EXEC CALC(B,TOTAL$(4),TOTAL$(6),TOTAL$(6)) «, l3=0x2f}
0x179c…17af Line {l1=0x11, l2=»2590FOR I=E TO 8 «, l3=0x11}
0x17af…17df Line {l1=0x2e, l2=»2600IF TOTAL$(I,12)="+" THEN TOTAL$(I,12)=" " «, l3=0x2e}
0x17df…17ec Line {l1=0x0b, l2=»2610NEXT I «, l3=0x0b}
0x17ec…1823 Line {l1=0x35, l2=»2620PRINT TAB(6);"LA*97 A-skat";TAB(44);TOTAL$(E) «, l3=0x35}
0x1823…184d Line {l1=0x28, l2=»2630PRINT TAB(6);"**";TAB(36);TOTAL$(8) «, l3=0x28}
0x184d…186b Line {l1=0x1c, l2=»2640PRINT TAB(44);TOTAL$(7) «, l3=0x1c}
0x186b…1890 Line {l1=0x23, l2=»2645IF STARTPER$<>"00-00-00" THEN «, l3=0x23}
0x1890…18aa Line {l1=0x18, l2=»2650TOTAL$(W)=TOTAL$(6) «, l3=0x18}
0x18aa…18c4 Line {l1=0x18, l2=»2660TOTAL$(8)=TOTAL$(4) «, l3=0x18}
0x18c4…18de Line {l1=0x18, l2=»2670TOTAL$(7)=TOTAL$(V) «, l3=0x18}
0x18de…18f8 Line {l1=0x18, l2=»2680TOTAL$(6)=TOTAL$(G) «, l3=0x18}
0x18f8…190b Line {l1=0x11, l2=»2690FOR I=E TO 4 «, l3=0x11}
0x190b…1920 Line {l1=0x13, l2=»2700TOTAL$(I)=TAH$ «, l3=0x13}
0x1920…192d Line {l1=0x0b, l2=»2710NEXT I «, l3=0x0b}
0x192d…193a Line {l1=0x0b, l2=»2720LMNR=B «, l3=0x0b}
0x193a…1959 Line {l1=0x1d, l2=»2730IF LINIE>MAXLIN-10 THEN «, l3=0x1d}
0x1959…1972 Line {l1=0x17, l2=»2740WHILE LINIE<MAXLIN «, l3=0x17}
0x1972…197f Line {l1=0x0b, l2=»2750PRINT «, l3=0x0b}
0x197f…1993 Line {l1=0x12, l2=»2760LINIE=LINIE+E «, l3=0x12}
0x1993…19a3 Line {l1=0x0e, l2=»2770ENDWHILE «, l3=0x0e}
0x19a3…19b0 Line {l1=0x0b, l2=»2780PRINT «, l3=0x0b}
0x19b0…19c4 Line {l1=0x12, l2=»2785SLJNR=SLJNR+E «, l3=0x12}
0x19c4…19ea Line {l1=0x24, l2=»2790PRINT USING " SIDE ####":SLJNR; «, l3=0x24}
0x19ea…1a27 Line {l1=0x3b, l2=»2795PRINT TAB(49);"LØNPERIODEN ";STARTPER$;" / ";SLUTPER$; «, l3=0x3b}
0x1a27…1a34 Line {l1=0x0b, l2=»2797PRINT «, l3=0x0b}
0x1a34…1a41 Line {l1=0x0b, l2=»2798PRINT «, l3=0x0b}
0x1a41…1a4e Line {l1=0x0b, l2=»2800PRINT «, l3=0x0b}
0x1a4e…1a5c Line {l1=0x0c, l2=»2810LINIE=5 «, l3=0x0c}
0x1a5c…1a69 Line {l1=0x0b, l2=»2820ENDIF «, l3=0x0b}
0x1a69…1a9a Line {l1=0x2f, l2=»2825PRINT " Rettelse i særlige årstælleværker" «, l3=0x2f}
0x1a9a…1ae4 Line {l1=0x48, l2=»2830PRINT " Lønnr";TAB(14);"Trækpligtig A-indk Trækfri A-indk";TAB(57); «, l3=0x48}
0x1ae4…1af9 Line {l1=0x13, l2=»2840PRINT "A-skat" «, l3=0x13}
0x1af9…1b0d Line {l1=0x12, l2=»2850LINIE=LINIE+G «, l3=0x12}
0x1b0d…1b1b Line {l1=0x0c, l2=»2860REPEAT «, l3=0x0c}
0x1b1b…1b2c Line {l1=0x0f, l2=»2870EXEC NÆSTE «, l3=0x0f}
0x1b2c…1b47 Line {l1=0x19, l2=»2880IF LMNR<=MLMNR THEN «, l3=0x19}
0x1b47…1b59 Line {l1=0x10, l2=»2890EXEC INDTÆL «, l3=0x10}
0x1b59…1b83 Line {l1=0x28, l2=»2900EXEC CALC(E,TV$(36),TV$(35),RESUL$) «, l3=0x28}
0x1b83…1bae Line {l1=0x29, l2=»2910EXEC CALC(E,TV$(39),TV$(38),RESUL1$) «, l3=0x29}
0x1bae…1bd6 Line {l1=0x26, l2=»2920EXEC CALC(E,TV$(42),TV$(41),LIN$) «, l3=0x26}
0x1bd6…1c02 Line {l1=0x2a, l2=»2930TV$(35)=TAH$(G:11);TV$(36)=TAH$(G:11) «, l3=0x2a}
0x1c02…1c2e Line {l1=0x2a, l2=»2940TV$(38)=TAH$(G:11);TV$(39)=TAH$(G:11) «, l3=0x2a}
0x1c2e…1c5a Line {l1=0x2a, l2=»2950TV$(41)=TAH$(G:11);TV$(42)=TAH$(G:11) «, l3=0x2a}
0x1c5a…1c67 Line {l1=0x0b, l2=»2960OUTP=B «, l3=0x0b}
0x1c67…1c8d Line {l1=0x24, l2=»2970EXEC CALC(4,RESUL$,TAH$,RESUL$) «, l3=0x24}
0x1c8d…1ca2 Line {l1=0x13, l2=»2980IF SI<>B THEN «, l3=0x13}
0x1ca2…1caf Line {l1=0x0b, l2=»2990OUTP=E «, l3=0x0b}
0x1caf…1cdd Line {l1=0x2c, l2=»3000EXEC CALC(B,RESUL$,TOTAL$(E),TOTAL$(E)) «, l3=0x2c}
0x1cdd…1cea Line {l1=0x0b, l2=»3010ENDIF «, l3=0x0b}
0x1cea…1d12 Line {l1=0x26, l2=»3020EXEC CALC(4,RESUL1$,TAH$,RESUL1$) «, l3=0x26}
0x1d12…1d27 Line {l1=0x13, l2=»3030IF SI<>B THEN «, l3=0x13}
0x1d27…1d34 Line {l1=0x0b, l2=»3040OUTP=E «, l3=0x0b}
0x1d34…1d63 Line {l1=0x2d, l2=»3050EXEC CALC(B,RESUL1$,TOTAL$(G),TOTAL$(G)) «, l3=0x2d}
0x1d63…1d70 Line {l1=0x0b, l2=»3060ENDIF «, l3=0x0b}
0x1d70…1d92 Line {l1=0x20, l2=»3070EXEC CALC(4,LIN$,TAH$,LIN$) «, l3=0x20}
0x1d92…1da7 Line {l1=0x13, l2=»3080IF SI<>B THEN «, l3=0x13}
0x1da7…1db4 Line {l1=0x0b, l2=»3090OUTP=E «, l3=0x0b}
0x1db4…1de0 Line {l1=0x2a, l2=»3100EXEC CALC(B,LIN$,TOTAL$(V),TOTAL$(V)) «, l3=0x2a}
0x1de0…1ded Line {l1=0x0b, l2=»3110ENDIF «, l3=0x0b}
0x1ded…1e01 Line {l1=0x12, l2=»3120IF OUTP THEN «, l3=0x12}
0x1e01…1e15 Line {l1=0x12, l2=»3130LINIE=LINIE+E «, l3=0x12}
0x1e15…1e33 Line {l1=0x1c, l2=»3140IF LINIE>MAXLIN-6 THEN «, l3=0x1c}
0x1e33…1e4c Line {l1=0x17, l2=»3150WHILE LINIE<MAXLIN «, l3=0x17}
0x1e4c…1e59 Line {l1=0x0b, l2=»3160PRINT «, l3=0x0b}
0x1e59…1e6d Line {l1=0x12, l2=»3170LINIE=LINIE+E «, l3=0x12}
0x1e6d…1e7d Line {l1=0x0e, l2=»3180ENDWHILE «, l3=0x0e}
0x1e7d…1e8a Line {l1=0x0b, l2=»3190PRINT «, l3=0x0b}
0x1e8a…1e9e Line {l1=0x12, l2=»3195SLJNR=SLJNR+E «, l3=0x12}
0x1e9e…1ec4 Line {l1=0x24, l2=»3196PRINT USING " SIDE ####":SLJNR; «, l3=0x24}
0x1ec4…1eec Line {l1=0x26, l2=»3198PRINT " UDSKRIFTSDATO ";DAD$; «, l3=0x26}
0x1eec…1f29 Line {l1=0x3b, l2=»3200PRINT TAB(49);"LØNPERIODEN ";STARTPER$;" / ";SLUTPER$; «, l3=0x3b}
0x1f29…1f36 Line {l1=0x0b, l2=»3205PRINT «, l3=0x0b}
0x1f36…1f43 Line {l1=0x0b, l2=»3207PRINT «, l3=0x0b}
0x1f43…1f50 Line {l1=0x0b, l2=»3210PRINT «, l3=0x0b}
0x1f50…1f5e Line {l1=0x0c, l2=»3220LINIE=5 «, l3=0x0c}
0x1f5e…1fa8 Line {l1=0x48, l2=»3240PRINT " Lønnr";TAB(14);"Trækpligtig A-indk Trækfri A-indk";TAB(57); «, l3=0x48}
0x1fa8…1fbd Line {l1=0x13, l2=»3250PRINT "A-skat" «, l3=0x13}
0x1fbd…1fd1 Line {l1=0x12, l2=»3260LINIE=LINIE+V «, l3=0x12}
0x1fd1…1fde Line {l1=0x0b, l2=»3262ENDIF «, l3=0x0b}
0x1fde…200a Line {l1=0x2a, l2=»3264IF RESUL$(12)="+" THEN RESUL$(12)=" " «, l3=0x2a}
0x200a…2038 Line {l1=0x2c, l2=»3266IF RESUL1$(12)="+" THEN RESUL1$(12)=" " «, l3=0x2c}
0x2038…2060 Line {l1=0x26, l2=»3268IF LIN$(12)="+" THEN LIN$(12)=" " «, l3=0x26}
0x2060…207f Line {l1=0x1d, l2=»3270PRINT USING "####":LMNR; «, l3=0x1d}
0x207f…20b7 Line {l1=0x36, l2=»3272PRINT TAB(21);RESUL$;TAB(36);RESUL1$;TAB(52);LIN$ «, l3=0x36}
0x20b7…20c4 Line {l1=0x0b, l2=»3275ENDIF «, l3=0x0b}
0x20c4…20d5 Line {l1=0x0f, l2=»3277EXEC UDTÆL «, l3=0x0f}
0x20d5…20e2 Line {l1=0x0b, l2=»3278ENDIF «, l3=0x0b}
0x20e2…20fa Line {l1=0x16, l2=»3279UNTIL LMNR=>MLMNR «, l3=0x16}
0x20fa…210d Line {l1=0x11, l2=»3280FOR I=E TO V «, l3=0x11}
0x210d…213d Line {l1=0x2e, l2=»3290IF TOTAL$(I,12)="+" THEN TOTAL$(I,12)=" " «, l3=0x2e}
0x213d…214a Line {l1=0x0b, l2=»3300NEXT I «, l3=0x0b}
0x214a…2193 Line {l1=0x47, l2=»3310PRINT " ***";TAB(21);TOTAL$(E);TAB(36);TOTAL$(G);TAB(52);TOTAL$(V) «, l3=0x47}
0x2193…21a6 Line {l1=0x11, l2=»3320FOR I=E TO V «, l3=0x11}
0x21a6…21bb Line {l1=0x13, l2=»3330TOTAL$(I)=TAH$ «, l3=0x13}
0x21bb…21c8 Line {l1=0x0b, l2=»3340NEXT I «, l3=0x0b}
0x21c8…21d5 Line {l1=0x0b, l2=»3345PRINT «, l3=0x0b}
0x21d5…21e9 Line {l1=0x12, l2=»3347LINIE=LINIE+E «, l3=0x12}
0x21e9…21f6 Line {l1=0x0b, l2=»3350LMNR=B «, l3=0x0b}
0x21f6…2215 Line {l1=0x1d, l2=»3360IF LINIE>MAXLIN-10 THEN «, l3=0x1d}
0x2215…222e Line {l1=0x17, l2=»3370WHILE LINIE<MAXLIN «, l3=0x17}
0x222e…223b Line {l1=0x0b, l2=»3380PRINT «, l3=0x0b}
0x223b…224f Line {l1=0x12, l2=»3390LINIE=LINIE+E «, l3=0x12}
0x224f…225f Line {l1=0x0e, l2=»3400ENDWHILE «, l3=0x0e}
0x225f…226c Line {l1=0x0b, l2=»3410PRINT «, l3=0x0b}
0x226c…2280 Line {l1=0x12, l2=»3415SLJNR=SLJNR+E «, l3=0x12}
0x2280…22a6 Line {l1=0x24, l2=»3420PRINT USING " SIDE ####":SLJNR; «, l3=0x24}
0x22a6…22ce Line {l1=0x26, l2=»3421PRINT " UDSKRIFTSDATO ";DAD$; «, l3=0x26}
0x22ce…230b Line {l1=0x3b, l2=»3422PRINT TAB(49);"LØNPERIODEN ";STARTPER$;" / ";SLUTPER$; «, l3=0x3b}
0x230b…2318 Line {l1=0x0b, l2=»3425PRINT «, l3=0x0b}
0x2318…2325 Line {l1=0x0b, l2=»3427PRINT «, l3=0x0b}
0x2325…2332 Line {l1=0x0b, l2=»3430PRINT «, l3=0x0b}
0x2332…2340 Line {l1=0x0c, l2=»3440LINIE=5 «, l3=0x0c}
0x2340…234d Line {l1=0x0b, l2=»3450ENDIF «, l3=0x0b}
0x234d…2397 Line {l1=0x48, l2=»3455PRINT " Rettelse i tælleværker til brug for ferie- og SH-opgørelse" «, l3=0x48}
0x2397…23e5 Line {l1=0x4c, l2=»3460PRINT " Lønnr";TAB(18);"Sygeferiepenge Beregn feriep SH-opsparing"; «, l3=0x4c}
0x23e5…2404 Line {l1=0x1d, l2=»3470PRINT " SH-forskud" «, l3=0x1d}
0x2404…2418 Line {l1=0x12, l2=»3480LINIE=LINIE+G «, l3=0x12}
0x2418…2426 Line {l1=0x0c, l2=»3490REPEAT «, l3=0x0c}
0x2426…2437 Line {l1=0x0f, l2=»3500EXEC NÆSTE «, l3=0x0f}
0x2437…2452 Line {l1=0x19, l2=»3510IF LMNR<=MLMNR THEN «, l3=0x19}
0x2452…2464 Line {l1=0x10, l2=»3520EXEC INDTÆL «, l3=0x10}
0x2464…248e Line {l1=0x28, l2=»3530EXEC CALC(E,TV$(19),TV$(18),RESUL$) «, l3=0x28}
0x248e…24b9 Line {l1=0x29, l2=»3540EXEC CALC(E,TV$(22),TV$(21),RESUL1$) «, l3=0x29}
0x24b9…24e1 Line {l1=0x26, l2=»3550EXEC CALC(E,TV$(25),TV$(24),LIN$) «, l3=0x26}
0x24e1…250a Line {l1=0x27, l2=»3555EXEC CALC(E,TV$(28),TV$(27),LIN1$) «, l3=0x27}
0x250a…2536 Line {l1=0x2a, l2=»3560TV$(18)=TAH$(G:11);TV$(19)=TAH$(G:11) «, l3=0x2a}
0x2536…2562 Line {l1=0x2a, l2=»3570TV$(21)=TAH$(G:11);TV$(22)=TAH$(G:11) «, l3=0x2a}
0x2562…258e Line {l1=0x2a, l2=»3580TV$(24)=TAH$(G:11);TV$(25)=TAH$(G:11) «, l3=0x2a}
0x258e…25ba Line {l1=0x2a, l2=»3585TV$(27)=TAH$(G:11);TV$(28)=TAH$(G:11) «, l3=0x2a}
0x25ba…25c7 Line {l1=0x0b, l2=»3590OUTP=B «, l3=0x0b}
0x25c7…25ed Line {l1=0x24, l2=»3600EXEC CALC(4,RESUL$,TAH$,RESUL$) «, l3=0x24}
0x25ed…2602 Line {l1=0x13, l2=»3610IF SI<>B THEN «, l3=0x13}
0x2602…260f Line {l1=0x0b, l2=»3620OUTP=E «, l3=0x0b}
0x260f…263d Line {l1=0x2c, l2=»3630EXEC CALC(B,RESUL$,TOTAL$(E),TOTAL$(E)) «, l3=0x2c}
0x263d…264a Line {l1=0x0b, l2=»3640ENDIF «, l3=0x0b}
0x264a…2672 Line {l1=0x26, l2=»3650EXEC CALC(4,RESUL1$,TAH$,RESUL1$) «, l3=0x26}
0x2672…2687 Line {l1=0x13, l2=»3660IF SI<>B THEN «, l3=0x13}
0x2687…2694 Line {l1=0x0b, l2=»3670OUTP=E «, l3=0x0b}
0x2694…26c3 Line {l1=0x2d, l2=»3680EXEC CALC(B,RESUL1$,TOTAL$(G),TOTAL$(G)) «, l3=0x2d}
0x26c3…26d0 Line {l1=0x0b, l2=»3690ENDIF «, l3=0x0b}
0x26d0…26f2 Line {l1=0x20, l2=»3700EXEC CALC(4,LIN$,TAH$,LIN$) «, l3=0x20}
0x26f2…2707 Line {l1=0x13, l2=»3710IF SI<>B THEN «, l3=0x13}
0x2707…2714 Line {l1=0x0b, l2=»3720OUTP=E «, l3=0x0b}
0x2714…2740 Line {l1=0x2a, l2=»3730EXEC CALC(B,LIN$,TOTAL$(V),TOTAL$(V)) «, l3=0x2a}
0x2740…274d Line {l1=0x0b, l2=»3740ENDIF «, l3=0x0b}
0x274d…2771 Line {l1=0x22, l2=»3741EXEC CALC(4,LIN1$,TAH$,LIN1$) «, l3=0x22}
0x2771…2786 Line {l1=0x13, l2=»3742IF SI<>B THEN «, l3=0x13}
0x2786…2793 Line {l1=0x0b, l2=»3743OUTP=E «, l3=0x0b}
0x2793…27c0 Line {l1=0x2b, l2=»3744EXEC CALC(B,LIN1$,TOTAL$(4),TOTAL$(4)) «, l3=0x2b}
0x27c0…27cd Line {l1=0x0b, l2=»3745ENDIF «, l3=0x0b}
0x27cd…27e1 Line {l1=0x12, l2=»3750IF OUTP THEN «, l3=0x12}
0x27e1…27f5 Line {l1=0x12, l2=»3760LINIE=LINIE+E «, l3=0x12}
0x27f5…2813 Line {l1=0x1c, l2=»3770IF LINIE>MAXLIN-6 THEN «, l3=0x1c}
0x2813…282c Line {l1=0x17, l2=»3780WHILE LINIE<MAXLIN «, l3=0x17}
0x282c…2839 Line {l1=0x0b, l2=»3790PRINT «, l3=0x0b}
0x2839…284d Line {l1=0x12, l2=»3800LINIE=LINIE+E «, l3=0x12}
0x284d…285d Line {l1=0x0e, l2=»3810ENDWHILE «, l3=0x0e}
0x285d…286a Line {l1=0x0b, l2=»3820PRINT «, l3=0x0b}
0x286a…287e Line {l1=0x12, l2=»3825SLJNR=SLJNR+E «, l3=0x12}
0x287e…28a4 Line {l1=0x24, l2=»3830PRINT USING " SIDE ####":SLJNR; «, l3=0x24}
0x28a4…28cc Line {l1=0x26, l2=»3831PRINT " UDSKRIFTSDATO ";DAD$; «, l3=0x26}
0x28cc…2909 Line {l1=0x3b, l2=»3832PRINT TAB(49);"LØNPERIODEN ";STARTPER$;" / ";SLUTPER$; «, l3=0x3b}
0x2909…2916 Line {l1=0x0b, l2=»3835PRINT «, l3=0x0b}
0x2916…2923 Line {l1=0x0b, l2=»3837PRINT «, l3=0x0b}
0x2923…2930 Line {l1=0x0b, l2=»3840PRINT «, l3=0x0b}
0x2930…293e Line {l1=0x0c, l2=»3850LINIE=5 «, l3=0x0c}
0x293e…298c Line {l1=0x4c, l2=»3870PRINT " Lønnr";TAB(18);"Sygeferiepenge Beregn feriep SH-opsparing"; «, l3=0x4c}
0x298c…29ab Line {l1=0x1d, l2=»3880PRINT " SH-forskud" «, l3=0x1d}
0x29ab…29bf Line {l1=0x12, l2=»3890LINIE=LINIE+V «, l3=0x12}
0x29bf…29cc Line {l1=0x0b, l2=»3900ENDIF «, l3=0x0b}
0x29cc…29f8 Line {l1=0x2a, l2=»3901IF RESUL$(12)="+" THEN RESUL$(12)=" " «, l3=0x2a}
0x29f8…2a26 Line {l1=0x2c, l2=»3902IF RESUL1$(12)="+" THEN RESUL1$(12)=" " «, l3=0x2c}
0x2a26…2a4e Line {l1=0x26, l2=»3903IF LIN$(12)="+" THEN LIN$(12)=" " «, l3=0x26}
0x2a4e…2a78 Line {l1=0x28, l2=»3904IF LIN1$(12)="+" THEN LIN1$(12)=" " «, l3=0x28}
0x2a78…2a97 Line {l1=0x1d, l2=»3905PRINT USING "####":LMNR; «, l3=0x1d}
0x2a97…2ade Line {l1=0x45, l2=»3906PRINT TAB(21);RESUL$;TAB(36);RESUL1$;TAB(52);LIN$;TAB(68);LIN1$; «, l3=0x45}
0x2ade…2aeb Line {l1=0x0b, l2=»3910ENDIF «, l3=0x0b}
0x2aeb…2afc Line {l1=0x0f, l2=»3912EXEC UDTÆL «, l3=0x0f}
0x2afc…2b09 Line {l1=0x0b, l2=»3915ENDIF «, l3=0x0b}
0x2b09…2b21 Line {l1=0x16, l2=»3920UNTIL LMNR=>MLMNR «, l3=0x16}
0x2b21…2b34 Line {l1=0x11, l2=»3930FOR I=E TO 4 «, l3=0x11}
0x2b34…2b64 Line {l1=0x2e, l2=»3940IF TOTAL$(I,12)="+" THEN TOTAL$(I,12)=" " «, l3=0x2e}
0x2b64…2b71 Line {l1=0x0b, l2=»3950NEXT I «, l3=0x0b}
0x2b71…2bbb Line {l1=0x48, l2=»3960PRINT " ***";TAB(21);TOTAL$(E);TAB(36);TOTAL$(G);TAB(52);TOTAL$(V); «, l3=0x48}
0x2bbb…2bda Line {l1=0x1d, l2=»3970PRINT TAB(68);TOTAL$(4); «, l3=0x1d}
0x2bda…2be7 Line {l1=0x0b, l2=»3980PRINT «, l3=0x0b}
0x2be7…2bfb Line {l1=0x12, l2=»3990LINIE=LINIE+G «, l3=0x12}
0x2bfb…2c19 Line {l1=0x1c, l2=»4000IF LINIE>MAXLIN-8 THEN «, l3=0x1c}
0x2c19…2c32 Line {l1=0x17, l2=»4010WHILE LINIE<MAXLIN «, l3=0x17}
0x2c32…2c3f Line {l1=0x0b, l2=»4020PRINT «, l3=0x0b}
0x2c3f…2c53 Line {l1=0x12, l2=»4030LINIE=LINIE+E «, l3=0x12}
0x2c53…2c63 Line {l1=0x0e, l2=»4040ENDWHILE «, l3=0x0e}
0x2c63…2c70 Line {l1=0x0b, l2=»4050PRINT «, l3=0x0b}
0x2c70…2c84 Line {l1=0x12, l2=»4055SLJNR=SLJNR+E «, l3=0x12}
0x2c84…2caa Line {l1=0x24, l2=»4060PRINT USING " SIDE ####":SLJNR; «, l3=0x24}
0x2caa…2cd2 Line {l1=0x26, l2=»4061PRINT " UDSKRIFTSDATO ";DAD$; «, l3=0x26}
0x2cd2…2d0f Line {l1=0x3b, l2=»4062PRINT TAB(49);"LØNPERIODEN ";STARTPER$;" / ";SLUTPER$; «, l3=0x3b}
0x2d0f…2d1c Line {l1=0x0b, l2=»4065PRINT «, l3=0x0b}
0x2d1c…2d29 Line {l1=0x0b, l2=»4067PRINT «, l3=0x0b}
0x2d29…2d36 Line {l1=0x0b, l2=»4070PRINT «, l3=0x0b}
0x2d36…2d44 Line {l1=0x0c, l2=»4080LINIE=5 «, l3=0x0c}
0x2d44…2d51 Line {l1=0x0b, l2=»4090ENDIF «, l3=0x0b}
0x2d51…2d6b Line {l1=0x18, l2=»4100PRINT " Beregnet i" «, l3=0x18}
0x2d6b…2d83 Line {l1=0x16, l2=»4110PRINT " Perioden" «, l3=0x16}
0x2d83…2dc2 Line {l1=0x3d, l2=»4120PRINT TAB(6);"LA 72 Sygeferiepenge";TAB(52);TOTAL$(6) «, l3=0x3d}
0x2dc2…2e03 Line {l1=0x3f, l2=»4130PRINT TAB(6);"LA*78 Beregnede feriep";TAB(52);TOTAL$(7) «, l3=0x3f}
0x2e03…2e40 Line {l1=0x3b, l2=»4140PRINT TAB(6);"LA*79 SH-opsparing";TAB(52);TOTAL$(8) «, l3=0x3b}
0x2e40…2e6a Line {l1=0x28, l2=»4150PRINT TAB(6);"**";TAB(52);TOTAL$(W) «, l3=0x28}
0x2e6a…2e7e Line {l1=0x12, l2=»4160LINIE=LINIE+7 «, l3=0x12}
0x2e7e…2e8b Line {l1=0x0b, l2=»4161ENDIF «, l3=0x0b}
0x2e8b…2ea4 Line {l1=0x17, l2=»4162WHILE LINIE<MAXLIN «, l3=0x17}
0x2ea4…2eb1 Line {l1=0x0b, l2=»4164PRINT «, l3=0x0b}
0x2eb1…2ec5 Line {l1=0x12, l2=»4165LINIE=LINIE+E «, l3=0x12}
0x2ec5…2ed5 Line {l1=0x0e, l2=»4166ENDWHILE «, l3=0x0e}
0x2ed5…2eed Line {l1=0x16, l2=»4170PUT FIL$,E:POST3$ «, l3=0x16}
0x2eed…2f17 Line {l1=0x28, l2=»4180PUT FIL$,G:POST4$,SLJNR,MLMNR,ATPLM «, l3=0x28}
0x2f17…2f24 Line {l1=0x0b, l2=»4190CLOSE «, l3=0x0b}
0x2f24…2f33 Line {l1=0x0d, l2=»4195OUTPUT T «, l3=0x0d}
0x2f33…2f58 Line {l1=0x23, l2=»4197IF STARTPER$<>"00-00-00" THEN «, l3=0x23}
0x2f58…2f77 Line {l1=0x1d, l2=»4200CHAIN "P641210:LFRADRAG" «, l3=0x1d}
0x2f77…2f83 Line {l1=0x0a, l2=»4210ELSE «, l3=0x0a}
0x2f83…2fa0 Line {l1=0x1b, l2=»4220CHAIN "P641210:STARTB" «, l3=0x1b}
0x2fa0…2fad Line {l1=0x0b, l2=»4230ENDIF «, l3=0x0b}
0x2fad…2fc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x2fc0…2fe0 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 ┆ ┆
[…0xc…]