|
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: 10112 (0x2780)
Types: TextFile
Notes: Mikados_K
Names: »ABESTAT.K«
└─⟦385f097a1⟧ Bits:30008988 SPC/1 COMAL programmer til bogføring
└─⟦this⟧ »ABESTAT.K«
0100DIM FELT12$(12),FELT15$(12),FELT26$(12),FELT29$(12),FELT30$(12) 0105DIM FELT31$(12),FELT32$(12),FELT33$(12),FELT34$(12),FELT35$(12) 0106DIM FELT36$(12) 0110DIM STARTPER$(8),SLUTPER$(8),TV006$(12),KVT$(E),Å$(G),LP$(E) 0120DIM RES$(15),OP1$(12),OP2$(12),TAH$(12),HUND$(12) 0140DIM RESUL$(12),RESUL1$(12),TV$(45,11),POST5$(55),DAD$(6) 0150DIM FIL$(16),FIL2$(16),POST1$(71),POST2$(27),POST3$(55),POST4$(34) 0170TAH$=" 0+" 0171TV006$=TAH$;FELT12$=TAH$;FELT15$=TAH$;FELT26$=TAH$;FELT29$=TAH$ 0172FELT30$=TAH$;FELT31$=TAH$;FELT32$=TAH$;FELT33$=TAH$;FELT34$=TAH$ 0173FELT35$=TAH$;FELT36$=TAH$ 0190HUND$=" 100,00+" 0210DIM X(5),Y(5),TYPE(5) 0220DIM BL$(79),L$(79),LIN$(12) 0230FOR I=E TO 79 0240BL$=BL$+" " 0250NEXT I 0260X(E)=27 0270X(G)=34 0280X(4)=38 0290X(5),X(V)=39 0310Y(E),Y(G)=G;Y(V)=V;Y(4)=4;Y(5)=5 0340TYPE(E),TYPE(G)=6 0350TYPE(V),TYPE(5)=-E 0360TYPE(4)=G 0370PROC CALC(AR3,B1,B2,ES) 0380RES$=ES$;OP1$=B1$;OP2$=B2$;SI=B;FLAG=B;ART=AR3-6*(AR3>5) 0390CALL "P641210:REGN" 0391IF AR3=V AND FLAG=6 THEN 0392RES$=TAH$ 0393FLAG=B 0394ENDIF 0400IF AR3<6 THEN 0410IF FLAG THEN STOP 0420ENDIF 0430ES$=RES$ 0440ENDPROC 0450PROC UDTÆL 0460J=W*(LMNR-E) 0470FOR K=E TO V 0480FOR I=E TO 5 0490POST5$((I-E)*11+E:11)=TAH$(G:11) 0500NEXT I 0510PUT FIL2$,J+K:POST5$ 0520NEXT K 0530EXEC FEJL(-LMNR,-K,FIL2$) 0540ENDPROC 0550PROC INDTÆL 0560J=W*(LMNR-E) 0570FOR K=E TO V 0580GET FIL2$,J+K:POST5$ 0590FOR I=E TO 5 0600TV$((K-E)*5+I)=POST5$((I-E)*11+E:11) 0610NEXT I 0620NEXT K 0630EXEC FEJL(LMNR,K,FIL2$) 0640ENDPROC 0650PROC DATOCHECK(NR5,OK5) 0660OK5=E 0670ÅR=(ORD(NR5$(E))-48)*10+ORD(NR5$(G))-48 0680MÅNED=(ORD(NR5$(V))-48)*10+ORD(NR5$(4))-48 0690DATO=(ORD(NR5$(5))-48)*10+ORD(NR5$(6))-48 0700IF DATO<E OR MÅNED<E OR MÅNED>12 OR DATO>31 THEN OK5=B 0710IF OK5=B THEN EXIT 0720CASE MÅNED OF 0730WHEN 4,6,W,11 0740IF DATO>30 THEN OK5=B 0750WHEN G 0760IF DATO>29 THEN OK5=B 0770IF DATO=29 AND ÅR MOD 4<>B THEN OK5=B 0780ENDCASE 0790ENDPROC 0800PROC INLØNMOD(N) 0810GET FIL$,G*N-E:POST1$ 0820GET FIL$,G*N:POST2$,C1,C2,LT,LF,LR,LA,RPI,K1,K2,FG,FD 0830EXEC FEJL(E,N,FIL$) 0840ENDPROC 0900PROC CONV(NR2,OK22,CIF) 0910OK2=OK22 0920NR2$="" 0930REPEAT 0940NR2$=CHR((OK2 MOD 10)+48)+NR2$ 0950CIF=CIF-E 0960OK2=OK2 DIV 10 0970IF CIF<B AND OK2=B THEN CIF=B 0980UNTIL CIF=B 0990ENDPROC 1000PROC CHECK(NR1,OK1) 1010OK1=B 1020RESULT=B 1030IF LEN(NR1$)>B THEN 1040IF NR1$(E)="-" THEN 1050FORTEGN=-E 1060OK1=E 1070ELSE 1080FORTEGN=E 1090ENDIF 1100WHILE LEN(NR1$)>OK1 1110OK1=OK1+E 1120IF NR1$(OK1)<"0" OR NR1$(OK1)>"9" THEN 1130FORTEGN=B 1140OK1=LEN(NR1$) 1150ENDIF 1160RESULT=RESULT*10+ORD(NR1$(OK1))-48 1170ENDWHILE 1175RESULT=RESULT*FORTEGN 1180OK1=OK1*FORTEGN 1190IF OK1<B THEN OK1=OK1+E 1200ENDIF 1210ENDPROC 1220PROC INOPL(OPL) 1230EXEC INLINE(OPL) 1240CASE OPL OF 1250WHEN E 1260REPEAT 1270EXEC DATOCHECK(L$,I) 1280IF I=B THEN EXEC INLINE(OPL) 1290UNTIL I=E 1295STD=RESULT 1300EXEC CONVDATE(STARTPER$,RESULT) 1310WHEN G 1320REPEAT 1330EXEC DATOCHECK(L$,I) 1340IF I=B THEN EXEC INLINE(OPL) 1350UNTIL I=E 1355SLD=RESULT 1360EXEC CONVDATE(SLUTPER$,RESULT) 1370WHEN V 1380WHILE L$<"1" OR L$>"4" 1390EXEC INLINE(OPL) 1400ENDWHILE 1410KVT$=L$ 1460WHEN 4 1470Å$=L$ 1540WHEN 5 1550WHILE L$<"1" OR L$>"7" 1560EXEC INLINE(OPL) 1570ENDWHILE 1580LP$=L$ 1870ENDCASE 1880ENDPROC 1890PROC INDVIRK 1900OPEN FIL$,R 1910EXEC FEJL(B,B,FIL$) 1920GET FIL$,E:POST3$ 1930GET FIL$,G:POST4$,SLJNR,MLMNR,ATPLM 1935GET FIL$,V:DAD$ 1940ENDPROC 1950PROC FEJL(P1,P2,P3) 1960IF STATUS(P3$)<>B THEN 1970OUTPUT T 1980PRINT "FIL-FEJL ";P3$;STATUS(P3$),P1;P2 1990STOP 2000ENDIF 2010ENDPROC 2020PROC INLINE(N) 2030REPEAT 2040CURSOR X(N),Y(N) 2050INPUT "",L$ 2060IF TYPE(N)<B THEN 2070IF LEN(L$)<=ABS(TYPE(N)) THEN 2080OK=E 2090FOR I=LEN(L$)+E TO ABS(TYPE(N)) 2100L$(I)=" " 2110NEXT I 2120ELSE 2130OK=B 2140ENDIF 2150ELSE 2160EXEC CHECK(L$,OK) 2170IF TYPE(N)>B AND TYPE(N)<>OK THEN OK=B 2180ENDIF 2190UNTIL OK<>B 2200ENDPROC 2210PROC SKRIVPICT 2220CLEAR 2230PRINT TAB(11);"Arbejderlønstatistik" 2240PRINT " Lønperioden" 2250PRINT " Kvartal 1,2,3 eller 4" 2260PRINT " Årstal";TAB(36);"19" 2270PRINT " Lønperiodekode 1,2,3,4,5,6 eller 7" 2420ENDPROC 2600PROC CONVDATE(NR1,OK1) 2610OK11=OK1;NR1$="" 2620FOR I=8 TO E STEP -E 2630IF I MOD V=B THEN 2640NR1$(I)="-" 2650ELSE 2660NR1$(I)=CHR(OK11 MOD 10+48) 2670OK11=OK11 DIV 10 2680ENDIF 2690NEXT I 2700ENDPROC 2970PROC SKRIVBUND 2980FOR I=E TO 13 2990PRINT 3000NEXT I 3030EXEC CONV(RESUL$,C1,6) 3040EXEC CONV(LIN$,C2,4) 3050RESUL$=RESUL$+LIN$ 3060PRINT TAB(11);"LØNMODTAGER ";RESUL$; 3070PRINT USING " ####":LMNR; 3080PRINT TAB(44);"ARBEJDSGIVER ";POST3$(E,7) 3090PRINT 3100PRINT 3110PRINT TAB(13);POST1$(E,25);TAB(46);POST3$(8,32) 3120PRINT 3130PRINT TAB(46);POST3$(33,55) 3140PRINT TAB(46);POST4$(E,4);" "; 3150PRINT POST4$(5,18) 3160FOR I=E TO 7 3170PRINT 3180NEXT I 3230ENDPROC 3440PROC NÆSTE 3450REPEAT 3460LMNR=LMNR+E 3470LA=E 3480IF LMNR<=MLMNR THEN 3490EXEC INLØNMOD(LMNR) 3500IF LP$<>POST2$(21) THEN LA=B 3510IF POST2$(24,25)>"79" THEN LA=B 3530ENDIF 3540UNTIL LA>B 3550ENDPROC 3560PROC SKRIVHOVED 3562PRINT 3564SIDE=SIDE+E 3566PRINT USING " SIDE ###":SIDE; 3567PRINT " UDSKRIFTSDATO ";DAD$; 3568PRINT TAB(49);"LØNPERIODEN ";STARTPER$;" / ";SLUTPER$; 3570PRINT TAB(20);"ARBEJDERLØNSTATISTIK FOR ";KVT$;". KVARTAL 19";Å$ 3572PRINT TAB(20);"****************************************" 3574PRINT 3590IF STD>LA THEN 3600STDA=STD 3610ELSE 3620STDA=LA 3630ENDIF 3640IF SLD<FD OR FD=B THEN 3650SLDA=SLD 3660ELSE 3670SLDA=FD 3680ENDIF 3910EXEC CONVDATE(RESUL1$,STDA) 3920PRINT " ANSAT FRA ";RESUL1$;" TIL "; 3930EXEC CONVDATE(RESUL1$,SLDA) 3940PRINT RESUL1$;" OR-KODE ";POST2$(24,25);" FAGGR-KODE";FG;" " 3950PRINT 3960PRINT TAB(16);"LØNDELE";TAB(39);"TV";TAB(47);"TIMER";TAB(59);"BELØB" 3970ENDPROC 8190FIL$="P641220:VIRKKART" 8200EXEC INDVIRK 8210CLOSE FIL$ 8220FIL$="P641220:LØNMODRG" 8230OPEN FIL$,R 8260FIL2$="P641220:TÆLLEREG" 8270OPEN FIL2$,W 8300EXEC SKRIVPICT 8310FOR J=E TO 5 8330EXEC INOPL(J) 8340NEXT J 8350SIDE=B 8360LMNR=B 8370L$=BL$ 8380OUTPUT P 8390REPEAT 8400EXEC NÆSTE 8420IF LMNR<=MLMNR THEN 8425EXEC INDTÆL 8427EXEC SKRIVHOVED 8430EXEC CALC(B,TV$(G),TV$(4),TV006$) 8435EXEC CALC(V,TV$(E),TV006$,LIN$) 8440EXEC CALC(G,TV$(G),LIN$,FELT12$) 8441EXEC CALC(E,TV$(E),FELT12$,LIN$) 8442EXEC CALC(B,TV$(V),FELT12$,FELT12$) 8450EXEC CALC(B,TV$(5),LIN$,FELT15$) 8455EXEC CALC(B,TV$(11),TV$(12),FELT26$) 8460EXEC CALC(B,TV$(14),FELT26$,FELT26$) 8465EXEC CALC(B,TV$(15),FELT26$,FELT26$) 8470EXEC CALC(G,TV$(G),HUND$,FELT29$) 8475EXEC CALC(V,FELT29$,TV006$,FELT29$) 8480EXEC CALC(G,TV$(6),HUND$,FELT30$) 8485EXEC CALC(V,FELT30$,TV006$,FELT30$) 8490EXEC CALC(V,FELT12$,TV$(G),FELT31$) 8495EXEC CALC(V,FELT15$,TV$(4),FELT32$) 8500EXEC CALC(B,FELT12$,FELT15$,FELT33$) 8505EXEC CALC(V,FELT33$,TV006$,FELT33$) 8510EXEC CALC(V,TV$(7),TV006$,FELT34$) 8515EXEC CALC(V,TV$(8),TV006$,FELT35$) 8520EXEC CALC(V,TV$(W),TV006$,FELT36$) 8521EXEC CALC(4,TV$(13),TAH$,TAH$) 8522IF SI=B AND POST2$(26)="2" THEN TV$(13)=" " 8525FOR I=E TO 15 8530IF TV$(I,11)="+" THEN TV$(I,11)=" " 8535NEXT I 8537IF TV006$(12)="+" THEN TV006$(12)=" " 8540IF FELT12$(12)="+" THEN FELT12$(12)=" " 8545IF FELT15$(12)="+" THEN FELT15$(12)=" " 8550IF FELT26$(12)="+" THEN FELT26$(12)=" " 8555IF FELT29$(12)="+" THEN FELT29$(12)=" " 8560IF FELT30$(12)="+" THEN FELT30$(12)=" " 8565IF FELT31$(12)="+" THEN FELT31$(12)=" " 8570IF FELT32$(12)="+" THEN FELT32$(12)=" " 8575IF FELT33$(12)="+" THEN FELT33$(12)=" " 8580IF FELT34$(12)="+" THEN FELT34$(12)=" " 8585IF FELT35$(12)="+" THEN FELT35$(12)=" " 8590IF FELT36$(12)="+" THEN FELT36$(12)=" " 8595PRINT TAB(16);"AKKORDTIMER";TAB(38);"002 ";TV$(G) 8600PRINT 8605PRINT TAB(G);TV$(V);TAB(16);"AKKORDBELØB";TAB(38);"003";TAB(53);FELT12$ 8610PRINT 8615PRINT TAB(16);"TIDLØNSTIMER";TAB(38);"004 ";TV$(4) 8620PRINT 8625PRINT TAB(G);TV$(5);TAB(16);"TIDLØNSBELØB";TAB(38);"005";TAB(53);FELT15$ 8630PRINT 8635PRINT TAB(16);"TIMER IALT";TAB(38);"006";TV006$ 8640PRINT 8645PRINT TAB(16);"HERAF OVERTIMER";TAB(38);"007 ";TV$(6) 8650PRINT 8655PRINT TAB(16);"OVERTIDSTILLÆG";TAB(38);"008";TAB(54);TV$(7) 8660PRINT 8665PRINT TAB(16);"HOLDDRIFTSTILLÆG";TAB(38);"009";TAB(54);TV$(8) 8670PRINT 8675PRINT TAB(16);"GENETILLÆG";TAB(38);"010";TAB(54);TV$(W) 8680PRINT 8685PRINT TAB(16);"DIV U F ARBEJDST";TAB(38);"011";TAB(54);TV$(10) 8690PRINT 8695PRINT TAB(16);"FERIEBERETT LØN";TAB(38);"012";TAB(54);TV$(11) 8700PRINT 8705PRINT TAB(16);"SYGEFERIEPENGE";TAB(38);"013";TAB(54);TV$(12) 8710PRINT 8715PRINT TAB(16);"BEREGNEDE FERIEP";TAB(38);"015";TAB(54);TV$(14) 8720PRINT 8725PRINT TAB(16);"SH-OPSPARING";TAB(38);"016";TAB(54);TV$(15) 8730PRINT 8735PRINT TAB(16);"***";TAB(53);FELT26$ 8740PRINT 8741PRINT TAB(16);"SYGEDAGPENGE";TAB(38);"014";TAB(54);TV$(13) 8742PRINT 8745PRINT TAB(G);TV$(E);TAB(16);"TILLÆG TIL FORDELING";TAB(38);"001" 8750PRINT 8755PRINT TAB(6);"------%------ ---------------------GENNEMSNIT"; 8760PRINT "----------------------" 8765PRINT TAB(5);"AKKORD OVERT AKKORD TIDLØN TILSAMM OVERTID"; 8770PRINT " HOLDDR GENE" 8775PRINT TAB(5);FELT29$(6,12);FELT30$(5,12);FELT31$(4,12);FELT32$(4,12); 8780PRINT FELT33$(4,12);FELT34$(4,12);FELT35$(4,12);FELT36$(4,12) 8820EXEC SKRIVBUND 8840EXEC UDTÆL 8850ENDIF 8860UNTIL LMNR=>MLMNR 8870CLOSE 8880OUTPUT T 8890CHAIN "P641210:STARTB"
0x0000…0046 Line {l1=0x44, l2=»0100DIM FELT12$(12),FELT15$(12),FELT26$(12),FELT29$(12),FELT30$(12) «, l3=0x44}
0x0046…008c Line {l1=0x44, l2=»0105DIM FELT31$(12),FELT32$(12),FELT33$(12),FELT34$(12),FELT35$(12) «, l3=0x44}
0x008c…00a2 Line {l1=0x14, l2=»0106DIM FELT36$(12) «, l3=0x14}
0x00a2…00e5 Line {l1=0x41, l2=»0110DIM STARTPER$(8),SLUTPER$(8),TV006$(12),KVT$(E),Å$(G),LP$(E) «, l3=0x41}
0x00e5…011d Line {l1=0x36, l2=»0120DIM RES$(15),OP1$(12),OP2$(12),TAH$(12),HUND$(12) «, l3=0x36}
0x011d…015c Line {l1=0x3d, l2=»0140DIM RESUL$(12),RESUL1$(12),TV$(45,11),POST5$(55),DAD$(6) «, l3=0x3d}
0x015c…01a5 Line {l1=0x47, l2=»0150DIM FIL$(16),FIL2$(16),POST1$(71),POST2$(27),POST3$(55),POST4$(34) «, l3=0x47}
0x01a5…01bf Line {l1=0x18, l2=»0170TAH$=" 0+" «, l3=0x18}
0x01bf…0205 Line {l1=0x44, l2=»0171TV006$=TAH$;FELT12$=TAH$;FELT15$=TAH$;FELT26$=TAH$;FELT29$=TAH$ «, l3=0x44}
0x0205…024c Line {l1=0x45, l2=»0172FELT30$=TAH$;FELT31$=TAH$;FELT32$=TAH$;FELT33$=TAH$;FELT34$=TAH$ «, l3=0x45}
0x024c…026c Line {l1=0x1e, l2=»0173FELT35$=TAH$;FELT36$=TAH$ «, l3=0x1e}
0x026c…0287 Line {l1=0x19, l2=»0190HUND$=" 100,00+" «, l3=0x19}
0x0287…02a3 Line {l1=0x1a, l2=»0210DIM X(5),Y(5),TYPE(5) «, l3=0x1a}
0x02a3…02c5 Line {l1=0x20, l2=»0220DIM BL$(79),L$(79),LIN$(12) «, l3=0x20}
0x02c5…02d9 Line {l1=0x12, l2=»0230FOR I=E TO 79 «, l3=0x12}
0x02d9…02eb Line {l1=0x10, l2=»0240BL$=BL$+" " «, l3=0x10}
0x02eb…02f8 Line {l1=0x0b, l2=»0250NEXT I «, l3=0x0b}
0x02f8…0306 Line {l1=0x0c, l2=»0260X(E)=27 «, l3=0x0c}
0x0306…0314 Line {l1=0x0c, l2=»0270X(G)=34 «, l3=0x0c}
0x0314…0322 Line {l1=0x0c, l2=»0280X(4)=38 «, l3=0x0c}
0x0322…0335 Line {l1=0x11, l2=»0290X(5),X(V)=39 «, l3=0x11}
0x0335…035c Line {l1=0x25, l2=»0310Y(E),Y(G)=G;Y(V)=V;Y(4)=4;Y(5)=5 «, l3=0x25}
0x035c…0374 Line {l1=0x16, l2=»0340TYPE(E),TYPE(G)=6 «, l3=0x16}
0x0374…038d Line {l1=0x17, l2=»0350TYPE(V),TYPE(5)=-E «, l3=0x17}
0x038d…039d Line {l1=0x0e, l2=»0360TYPE(4)=G «, l3=0x0e}
0x039d…03bb Line {l1=0x1c, l2=»0370PROC CALC(AR3,B1,B2,ES) «, l3=0x1c}
0x03bb…03fa Line {l1=0x3d, l2=»0380RES$=ES$;OP1$=B1$;OP2$=B2$;SI=B;FLAG=B;ART=AR3-6*(AR3>5) «, l3=0x3d}
0x03fa…0414 Line {l1=0x18, l2=»0390CALL "P641210:REGN" «, l3=0x18}
0x0414…0434 Line {l1=0x1e, l2=»0391IF AR3=V AND FLAG=6 THEN «, l3=0x1e}
0x0434…0444 Line {l1=0x0e, l2=»0392RES$=TAH$ «, l3=0x0e}
0x0444…0451 Line {l1=0x0b, l2=»0393FLAG=B «, l3=0x0b}
0x0451…045e Line {l1=0x0b, l2=»0394ENDIF «, l3=0x0b}
0x045e…0473 Line {l1=0x13, l2=»0400IF AR3<6 THEN «, l3=0x13}
0x0473…048c Line {l1=0x17, l2=»0410IF FLAG THEN STOP «, l3=0x17}
0x048c…0499 Line {l1=0x0b, l2=»0420ENDIF «, l3=0x0b}
0x0499…04a8 Line {l1=0x0d, l2=»0430ES$=RES$ «, l3=0x0d}
0x04a8…04b7 Line {l1=0x0d, l2=»0440ENDPROC «, l3=0x0d}
0x04b7…04c8 Line {l1=0x0f, l2=»0450PROC UDTÆL «, l3=0x0f}
0x04c8…04db Line {l1=0x11, l2=»0460J=W*(LMNR-E) «, l3=0x11}
0x04db…04ee Line {l1=0x11, l2=»0470FOR K=E TO V «, l3=0x11}
0x04ee…0501 Line {l1=0x11, l2=»0480FOR I=E TO 5 «, l3=0x11}
0x0501…0528 Line {l1=0x25, l2=»0490POST5$((I-E)*11+E:11)=TAH$(G:11) «, l3=0x25}
0x0528…0535 Line {l1=0x0b, l2=»0500NEXT I «, l3=0x0b}
0x0535…0550 Line {l1=0x19, l2=»0510PUT FIL2$,J+K:POST5$ «, l3=0x19}
0x0550…055d Line {l1=0x0b, l2=»0520NEXT K «, l3=0x0b}
0x055d…057d Line {l1=0x1e, l2=»0530EXEC FEJL(-LMNR,-K,FIL2$) «, l3=0x1e}
0x057d…058c Line {l1=0x0d, l2=»0540ENDPROC «, l3=0x0d}
0x058c…059e Line {l1=0x10, l2=»0550PROC INDTÆL «, l3=0x10}
0x059e…05b1 Line {l1=0x11, l2=»0560J=W*(LMNR-E) «, l3=0x11}
0x05b1…05c4 Line {l1=0x11, l2=»0570FOR K=E TO V «, l3=0x11}
0x05c4…05df Line {l1=0x19, l2=»0580GET FIL2$,J+K:POST5$ «, l3=0x19}
0x05df…05f2 Line {l1=0x11, l2=»0590FOR I=E TO 5 «, l3=0x11}
0x05f2…061d Line {l1=0x29, l2=»0600TV$((K-E)*5+I)=POST5$((I-E)*11+E:11) «, l3=0x29}
0x061d…062a Line {l1=0x0b, l2=»0610NEXT I «, l3=0x0b}
0x062a…0637 Line {l1=0x0b, l2=»0620NEXT K «, l3=0x0b}
0x0637…0655 Line {l1=0x1c, l2=»0630EXEC FEJL(LMNR,K,FIL2$) «, l3=0x1c}
0x0655…0664 Line {l1=0x0d, l2=»0640ENDPROC «, l3=0x0d}
0x0664…0682 Line {l1=0x1c, l2=»0650PROC DATOCHECK(NR5,OK5) «, l3=0x1c}
0x0682…068e Line {l1=0x0a, l2=»0660OK5=E «, l3=0x0a}
0x068e…06bc Line {l1=0x2c, l2=»0670ÅR=(ORD(NR5$(E))-48)*10+ORD(NR5$(G))-48 «, l3=0x2c}
0x06bc…06ed Line {l1=0x2f, l2=»0680MÅNED=(ORD(NR5$(V))-48)*10+ORD(NR5$(4))-48 «, l3=0x2f}
0x06ed…071d Line {l1=0x2e, l2=»0690DATO=(ORD(NR5$(5))-48)*10+ORD(NR5$(6))-48 «, l3=0x2e}
0x071d…075a Line {l1=0x3b, l2=»0700IF DATO<E OR MÅNED<E OR MÅNED>12 OR DATO>31 THEN OK5=B «, l3=0x3b}
0x075a…0774 Line {l1=0x18, l2=»0710IF OK5=B THEN EXIT «, l3=0x18}
0x0774…0789 Line {l1=0x13, l2=»0720CASE MÅNED OF «, l3=0x13}
0x0789…079d Line {l1=0x12, l2=»0730WHEN 4,6,W,11 «, l3=0x12}
0x079d…07b9 Line {l1=0x1a, l2=»0740IF DATO>30 THEN OK5=B «, l3=0x1a}
0x07b9…07c6 Line {l1=0x0b, l2=»0750WHEN G «, l3=0x0b}
0x07c6…07e2 Line {l1=0x1a, l2=»0760IF DATO>29 THEN OK5=B «, l3=0x1a}
0x07e2…080e Line {l1=0x2a, l2=»0770IF DATO=29 AND ÅR MOD 4<>B THEN OK5=B «, l3=0x2a}
0x080e…081d Line {l1=0x0d, l2=»0780ENDCASE «, l3=0x0d}
0x081d…082c Line {l1=0x0d, l2=»0790ENDPROC «, l3=0x0d}
0x082c…0843 Line {l1=0x15, l2=»0800PROC INLØNMOD(N) «, l3=0x15}
0x0843…085f Line {l1=0x1a, l2=»0810GET FIL$,G*N-E:POST1$ «, l3=0x1a}
0x085f…089b Line {l1=0x3a, l2=»0820GET FIL$,G*N:POST2$,C1,C2,LT,LF,LR,LA,RPI,K1,K2,FG,FD «, l3=0x3a}
0x089b…08b5 Line {l1=0x18, l2=»0830EXEC FEJL(E,N,FIL$) «, l3=0x18}
0x08b5…08c4 Line {l1=0x0d, l2=»0840ENDPROC «, l3=0x0d}
0x08c4…08e2 Line {l1=0x1c, l2=»0900PROC CONV(NR2,OK22,CIF) «, l3=0x1c}
0x08e2…08f1 Line {l1=0x0d, l2=»0910OK2=OK22 «, l3=0x0d}
0x08f1…08ff Line {l1=0x0c, l2=»0920NR2$="" «, l3=0x0c}
0x08ff…090d Line {l1=0x0c, l2=»0930REPEAT «, l3=0x0c}
0x090d…0932 Line {l1=0x23, l2=»0940NR2$=CHR((OK2 MOD 10)+48)+NR2$ «, l3=0x23}
0x0932…0942 Line {l1=0x0e, l2=»0950CIF=CIF-E «, l3=0x0e}
0x0942…0957 Line {l1=0x13, l2=»0960OK2=OK2 DIV 10 «, l3=0x13}
0x0957…097b Line {l1=0x22, l2=»0970IF CIF<B AND OK2=B THEN CIF=B «, l3=0x22}
0x097b…098d Line {l1=0x10, l2=»0980UNTIL CIF=B «, l3=0x10}
0x098d…099c Line {l1=0x0d, l2=»0990ENDPROC «, l3=0x0d}
0x099c…09b6 Line {l1=0x18, l2=»1000PROC CHECK(NR1,OK1) «, l3=0x18}
0x09b6…09c2 Line {l1=0x0a, l2=»1010OK1=B «, l3=0x0a}
0x09c2…09d1 Line {l1=0x0d, l2=»1020RESULT=B «, l3=0x0d}
0x09d1…09ec Line {l1=0x19, l2=»1030IF LEN(NR1$)>B THEN «, l3=0x19}
0x09ec…0a07 Line {l1=0x19, l2=»1040IF NR1$(E)="-" THEN «, l3=0x19}
0x0a07…0a18 Line {l1=0x0f, l2=»1050FORTEGN=-E «, l3=0x0f}
0x0a18…0a24 Line {l1=0x0a, l2=»1060OK1=E «, l3=0x0a}
0x0a24…0a30 Line {l1=0x0a, l2=»1070ELSE «, l3=0x0a}
0x0a30…0a40 Line {l1=0x0e, l2=»1080FORTEGN=E «, l3=0x0e}
0x0a40…0a4d Line {l1=0x0b, l2=»1090ENDIF «, l3=0x0b}
0x0a4d…0a67 Line {l1=0x18, l2=»1100WHILE LEN(NR1$)>OK1 «, l3=0x18}
0x0a67…0a77 Line {l1=0x0e, l2=»1110OK1=OK1+E «, l3=0x0e}
0x0a77…0aa5 Line {l1=0x2c, l2=»1120IF NR1$(OK1)<"0" OR NR1$(OK1)>"9" THEN «, l3=0x2c}
0x0aa5…0ab5 Line {l1=0x0e, l2=»1130FORTEGN=B «, l3=0x0e}
0x0ab5…0ac9 Line {l1=0x12, l2=»1140OK1=LEN(NR1$) «, l3=0x12}
0x0ac9…0ad6 Line {l1=0x0b, l2=»1150ENDIF «, l3=0x0b}
0x0ad6…0aff Line {l1=0x27, l2=»1160RESULT=RESULT*10+ORD(NR1$(OK1))-48 «, l3=0x27}
0x0aff…0b0f Line {l1=0x0e, l2=»1170ENDWHILE «, l3=0x0e}
0x0b0f…0b2b Line {l1=0x1a, l2=»1175RESULT=RESULT*FORTEGN «, l3=0x1a}
0x0b2b…0b41 Line {l1=0x14, l2=»1180OK1=OK1*FORTEGN «, l3=0x14}
0x0b41…0b5f Line {l1=0x1c, l2=»1190IF OK1<B THEN OK1=OK1+E «, l3=0x1c}
0x0b5f…0b6c Line {l1=0x0b, l2=»1200ENDIF «, l3=0x0b}
0x0b6c…0b7b Line {l1=0x0d, l2=»1210ENDPROC «, l3=0x0d}
0x0b7b…0b91 Line {l1=0x14, l2=»1220PROC INOPL(OPL) «, l3=0x14}
0x0b91…0ba8 Line {l1=0x15, l2=»1230EXEC INLINE(OPL) «, l3=0x15}
0x0ba8…0bbb Line {l1=0x11, l2=»1240CASE OPL OF «, l3=0x11}
0x0bbb…0bc8 Line {l1=0x0b, l2=»1250WHEN E «, l3=0x0b}
0x0bc8…0bd6 Line {l1=0x0c, l2=»1260REPEAT «, l3=0x0c}
0x0bd6…0bf1 Line {l1=0x19, l2=»1270EXEC DATOCHECK(L$,I) «, l3=0x19}
0x0bf1…0c14 Line {l1=0x21, l2=»1280IF I=B THEN EXEC INLINE(OPL) «, l3=0x21}
0x0c14…0c24 Line {l1=0x0e, l2=»1290UNTIL I=E «, l3=0x0e}
0x0c24…0c35 Line {l1=0x0f, l2=»1295STD=RESULT «, l3=0x0f}
0x0c35…0c5b Line {l1=0x24, l2=»1300EXEC CONVDATE(STARTPER$,RESULT) «, l3=0x24}
0x0c5b…0c68 Line {l1=0x0b, l2=»1310WHEN G «, l3=0x0b}
0x0c68…0c76 Line {l1=0x0c, l2=»1320REPEAT «, l3=0x0c}
0x0c76…0c91 Line {l1=0x19, l2=»1330EXEC DATOCHECK(L$,I) «, l3=0x19}
0x0c91…0cb4 Line {l1=0x21, l2=»1340IF I=B THEN EXEC INLINE(OPL) «, l3=0x21}
0x0cb4…0cc4 Line {l1=0x0e, l2=»1350UNTIL I=E «, l3=0x0e}
0x0cc4…0cd5 Line {l1=0x0f, l2=»1355SLD=RESULT «, l3=0x0f}
0x0cd5…0cfa Line {l1=0x23, l2=»1360EXEC CONVDATE(SLUTPER$,RESULT) «, l3=0x23}
0x0cfa…0d07 Line {l1=0x0b, l2=»1370WHEN V «, l3=0x0b}
0x0d07…0d24 Line {l1=0x1b, l2=»1380WHILE L$<"1" OR L$>"4" «, l3=0x1b}
0x0d24…0d3b Line {l1=0x15, l2=»1390EXEC INLINE(OPL) «, l3=0x15}
0x0d3b…0d4b Line {l1=0x0e, l2=»1400ENDWHILE «, l3=0x0e}
0x0d4b…0d59 Line {l1=0x0c, l2=»1410KVT$=L$ «, l3=0x0c}
0x0d59…0d66 Line {l1=0x0b, l2=»1460WHEN 4 «, l3=0x0b}
0x0d66…0d72 Line {l1=0x0a, l2=»1470Å$=L$ «, l3=0x0a}
0x0d72…0d7f Line {l1=0x0b, l2=»1540WHEN 5 «, l3=0x0b}
0x0d7f…0d9c Line {l1=0x1b, l2=»1550WHILE L$<"1" OR L$>"7" «, l3=0x1b}
0x0d9c…0db3 Line {l1=0x15, l2=»1560EXEC INLINE(OPL) «, l3=0x15}
0x0db3…0dc3 Line {l1=0x0e, l2=»1570ENDWHILE «, l3=0x0e}
0x0dc3…0dd0 Line {l1=0x0b, l2=»1580LP$=L$ «, l3=0x0b}
0x0dd0…0ddf Line {l1=0x0d, l2=»1870ENDCASE «, l3=0x0d}
0x0ddf…0dee Line {l1=0x0d, l2=»1880ENDPROC «, l3=0x0d}
0x0dee…0e01 Line {l1=0x11, l2=»1890PROC INDVIRK «, l3=0x11}
0x0e01…0e13 Line {l1=0x10, l2=»1900OPEN FIL$,R «, l3=0x10}
0x0e13…0e2d Line {l1=0x18, l2=»1910EXEC FEJL(B,B,FIL$) «, l3=0x18}
0x0e2d…0e45 Line {l1=0x16, l2=»1920GET FIL$,E:POST3$ «, l3=0x16}
0x0e45…0e6f Line {l1=0x28, l2=»1930GET FIL$,G:POST4$,SLJNR,MLMNR,ATPLM «, l3=0x28}
0x0e6f…0e85 Line {l1=0x14, l2=»1935GET FIL$,V:DAD$ «, l3=0x14}
0x0e85…0e94 Line {l1=0x0d, l2=»1940ENDPROC «, l3=0x0d}
0x0e94…0eae Line {l1=0x18, l2=»1950PROC FEJL(P1,P2,P3) «, l3=0x18}
0x0eae…0ecc Line {l1=0x1c, l2=»1960IF STATUS(P3$)<>B THEN «, l3=0x1c}
0x0ecc…0edb Line {l1=0x0d, l2=»1970OUTPUT T «, l3=0x0d}
0x0edb…0f09 Line {l1=0x2c, l2=»1980PRINT "FIL-FEJL ";P3$;STATUS(P3$),P1;P2 «, l3=0x2c}
0x0f09…0f15 Line {l1=0x0a, l2=»1990STOP «, l3=0x0a}
0x0f15…0f22 Line {l1=0x0b, l2=»2000ENDIF «, l3=0x0b}
0x0f22…0f31 Line {l1=0x0d, l2=»2010ENDPROC «, l3=0x0d}
0x0f31…0f46 Line {l1=0x13, l2=»2020PROC INLINE(N) «, l3=0x13}
0x0f46…0f54 Line {l1=0x0c, l2=»2030REPEAT «, l3=0x0c}
0x0f54…0f6b Line {l1=0x15, l2=»2040CURSOR X(N),Y(N) «, l3=0x15}
0x0f6b…0f7d Line {l1=0x10, l2=»2050INPUT "",L$ «, l3=0x10}
0x0f7d…0f96 Line {l1=0x17, l2=»2060IF TYPE(N)<B THEN «, l3=0x17}
0x0f96…0fbb Line {l1=0x23, l2=»2070IF LEN(L$)<=ABS(TYPE(N)) THEN «, l3=0x23}
0x0fbb…0fc6 Line {l1=0x09, l2=»2080OK=E «, l3=0x09}
0x0fc6…0fec Line {l1=0x24, l2=»2090FOR I=LEN(L$)+E TO ABS(TYPE(N)) «, l3=0x24}
0x0fec…0ffc Line {l1=0x0e, l2=»2100L$(I)=" " «, l3=0x0e}
0x0ffc…1009 Line {l1=0x0b, l2=»2110NEXT I «, l3=0x0b}
0x1009…1015 Line {l1=0x0a, l2=»2120ELSE «, l3=0x0a}
0x1015…1020 Line {l1=0x09, l2=»2130OK=B «, l3=0x09}
0x1020…102d Line {l1=0x0b, l2=»2140ENDIF «, l3=0x0b}
0x102d…1039 Line {l1=0x0a, l2=»2150ELSE «, l3=0x0a}
0x1039…1051 Line {l1=0x16, l2=»2160EXEC CHECK(L$,OK) «, l3=0x16}
0x1051…107e Line {l1=0x2b, l2=»2170IF TYPE(N)>B AND TYPE(N)<>OK THEN OK=B «, l3=0x2b}
0x107e…108b Line {l1=0x0b, l2=»2180ENDIF «, l3=0x0b}
0x108b…109d Line {l1=0x10, l2=»2190UNTIL OK<>B «, l3=0x10}
0x109d…10ac Line {l1=0x0d, l2=»2200ENDPROC «, l3=0x0d}
0x10ac…10c1 Line {l1=0x13, l2=»2210PROC SKRIVPICT «, l3=0x13}
0x10c1…10ce Line {l1=0x0b, l2=»2220CLEAR «, l3=0x0b}
0x10ce…10f9 Line {l1=0x29, l2=»2230PRINT TAB(11);"Arbejderlønstatistik" «, l3=0x29}
0x10f9…1114 Line {l1=0x19, l2=»2240PRINT " Lønperioden" «, l3=0x19}
0x1114…1139 Line {l1=0x23, l2=»2250PRINT " Kvartal 1,2,3 eller 4" «, l3=0x23}
0x1139…115c Line {l1=0x21, l2=»2260PRINT " Årstal";TAB(36);"19" «, l3=0x21}
0x115c…118e Line {l1=0x30, l2=»2270PRINT " Lønperiodekode 1,2,3,4,5,6 eller 7" «, l3=0x30}
0x118e…119d Line {l1=0x0d, l2=»2420ENDPROC «, l3=0x0d}
0x119d…11ba Line {l1=0x1b, l2=»2600PROC CONVDATE(NR1,OK1) «, l3=0x1b}
0x11ba…11d1 Line {l1=0x15, l2=»2610OK11=OK1;NR1$="" «, l3=0x15}
0x11d1…11ec Line {l1=0x19, l2=»2620FOR I=8 TO E STEP -E «, l3=0x19}
0x11ec…1205 Line {l1=0x17, l2=»2630IF I MOD V=B THEN «, l3=0x17}
0x1205…1217 Line {l1=0x10, l2=»2640NR1$(I)="-" «, l3=0x10}
0x1217…1223 Line {l1=0x0a, l2=»2650ELSE «, l3=0x0a}
0x1223…1245 Line {l1=0x20, l2=»2660NR1$(I)=CHR(OK11 MOD 10+48) «, l3=0x20}
0x1245…125c Line {l1=0x15, l2=»2670OK11=OK11 DIV 10 «, l3=0x15}
0x125c…1269 Line {l1=0x0b, l2=»2680ENDIF «, l3=0x0b}
0x1269…1276 Line {l1=0x0b, l2=»2690NEXT I «, l3=0x0b}
0x1276…1285 Line {l1=0x0d, l2=»2700ENDPROC «, l3=0x0d}
0x1285…129a Line {l1=0x13, l2=»2970PROC SKRIVBUND «, l3=0x13}
0x129a…12ae Line {l1=0x12, l2=»2980FOR I=E TO 13 «, l3=0x12}
0x12ae…12bb Line {l1=0x0b, l2=»2990PRINT «, l3=0x0b}
0x12bb…12c8 Line {l1=0x0b, l2=»3000NEXT I «, l3=0x0b}
0x12c8…12e5 Line {l1=0x1b, l2=»3030EXEC CONV(RESUL$,C1,6) «, l3=0x1b}
0x12e5…1300 Line {l1=0x19, l2=»3040EXEC CONV(LIN$,C2,4) «, l3=0x19}
0x1300…1319 Line {l1=0x17, l2=»3050RESUL$=RESUL$+LIN$ «, l3=0x17}
0x1319…1344 Line {l1=0x29, l2=»3060PRINT TAB(11);"LØNMODTAGER ";RESUL$; «, l3=0x29}
0x1344…1364 Line {l1=0x1e, l2=»3070PRINT USING " ####":LMNR; «, l3=0x1e}
0x1364…1394 Line {l1=0x2e, l2=»3080PRINT TAB(44);"ARBEJDSGIVER ";POST3$(E,7) «, l3=0x2e}
0x1394…13a1 Line {l1=0x0b, l2=»3090PRINT «, l3=0x0b}
0x13a1…13ae Line {l1=0x0b, l2=»3100PRINT «, l3=0x0b}
0x13ae…13e4 Line {l1=0x34, l2=»3110PRINT TAB(13);POST1$(E,25);TAB(46);POST3$(8,32) «, l3=0x34}
0x13e4…13f1 Line {l1=0x0b, l2=»3120PRINT «, l3=0x0b}
0x13f1…1413 Line {l1=0x20, l2=»3130PRINT TAB(46);POST3$(33,55) «, l3=0x20}
0x1413…1438 Line {l1=0x23, l2=»3140PRINT TAB(46);POST4$(E,4);" "; «, l3=0x23}
0x1438…1451 Line {l1=0x17, l2=»3150PRINT POST4$(5,18) «, l3=0x17}
0x1451…1464 Line {l1=0x11, l2=»3160FOR I=E TO 7 «, l3=0x11}
0x1464…1471 Line {l1=0x0b, l2=»3170PRINT «, l3=0x0b}
0x1471…147e Line {l1=0x0b, l2=»3180NEXT I «, l3=0x0b}
0x147e…148d Line {l1=0x0d, l2=»3230ENDPROC «, l3=0x0d}
0x148d…149e Line {l1=0x0f, l2=»3440PROC NÆSTE «, l3=0x0f}
0x149e…14ac Line {l1=0x0c, l2=»3450REPEAT «, l3=0x0c}
0x14ac…14be Line {l1=0x10, l2=»3460LMNR=LMNR+E «, l3=0x10}
0x14be…14c9 Line {l1=0x09, l2=»3470LA=E «, l3=0x09}
0x14c9…14e4 Line {l1=0x19, l2=»3480IF LMNR<=MLMNR THEN «, l3=0x19}
0x14e4…14fe Line {l1=0x18, l2=»3490EXEC INLØNMOD(LMNR) «, l3=0x18}
0x14fe…1521 Line {l1=0x21, l2=»3500IF LP$<>POST2$(21) THEN LA=B «, l3=0x21}
0x1521…1547 Line {l1=0x24, l2=»3510IF POST2$(24,25)>"79" THEN LA=B «, l3=0x24}
0x1547…1554 Line {l1=0x0b, l2=»3530ENDIF «, l3=0x0b}
0x1554…1565 Line {l1=0x0f, l2=»3540UNTIL LA>B «, l3=0x0f}
0x1565…1574 Line {l1=0x0d, l2=»3550ENDPROC «, l3=0x0d}
0x1574…158a Line {l1=0x14, l2=»3560PROC SKRIVHOVED «, l3=0x14}
0x158a…1597 Line {l1=0x0b, l2=»3562PRINT «, l3=0x0b}
0x1597…15a9 Line {l1=0x10, l2=»3564SIDE=SIDE+E «, l3=0x10}
0x15a9…15cd Line {l1=0x22, l2=»3566PRINT USING " SIDE ###":SIDE; «, l3=0x22}
0x15cd…15f5 Line {l1=0x26, l2=»3567PRINT " UDSKRIFTSDATO ";DAD$; «, l3=0x26}
0x15f5…1632 Line {l1=0x3b, l2=»3568PRINT TAB(49);"LØNPERIODEN ";STARTPER$;" / ";SLUTPER$; «, l3=0x3b}
0x1632…1679 Line {l1=0x45, l2=»3570PRINT TAB(20);"ARBEJDERLØNSTATISTIK FOR ";KVT$;". KVARTAL 19";Å$ «, l3=0x45}
0x1679…16b8 Line {l1=0x3d, l2=»3572PRINT TAB(20);"****************************************" «, l3=0x3d}
0x16b8…16c5 Line {l1=0x0b, l2=»3574PRINT «, l3=0x0b}
0x16c5…16db Line {l1=0x14, l2=»3590IF STD>LA THEN «, l3=0x14}
0x16db…16ea Line {l1=0x0d, l2=»3600STDA=STD «, l3=0x0d}
0x16ea…16f6 Line {l1=0x0a, l2=»3610ELSE «, l3=0x0a}
0x16f6…1704 Line {l1=0x0c, l2=»3620STDA=LA «, l3=0x0c}
0x1704…1711 Line {l1=0x0b, l2=»3630ENDIF «, l3=0x0b}
0x1711…172f Line {l1=0x1c, l2=»3640IF SLD<FD OR FD=B THEN «, l3=0x1c}
0x172f…173e Line {l1=0x0d, l2=»3650SLDA=SLD «, l3=0x0d}
0x173e…174a Line {l1=0x0a, l2=»3660ELSE «, l3=0x0a}
0x174a…1758 Line {l1=0x0c, l2=»3670SLDA=FD «, l3=0x0c}
0x1758…1765 Line {l1=0x0b, l2=»3680ENDIF «, l3=0x0b}
0x1765…1787 Line {l1=0x20, l2=»3910EXEC CONVDATE(RESUL1$,STDA) «, l3=0x20}
0x1787…17b2 Line {l1=0x29, l2=»3920PRINT " ANSAT FRA ";RESUL1$;" TIL "; «, l3=0x29}
0x17b2…17d4 Line {l1=0x20, l2=»3930EXEC CONVDATE(RESUL1$,SLDA) «, l3=0x20}
0x17d4…1817 Line {l1=0x41, l2=»3940PRINT RESUL1$;" OR-KODE ";POST2$(24,25);" FAGGR-KODE";FG;" " «, l3=0x41}
0x1817…1824 Line {l1=0x0b, l2=»3950PRINT «, l3=0x0b}
0x1824…186f Line {l1=0x49, l2=»3960PRINT TAB(16);"LØNDELE";TAB(39);"TV";TAB(47);"TIMER";TAB(59);"BELØB" «, l3=0x49}
0x186f…187e Line {l1=0x0d, l2=»3970ENDPROC «, l3=0x0d}
0x187e…189c Line {l1=0x1c, l2=»8190FIL$="P641220:VIRKKART" «, l3=0x1c}
0x189c…18af Line {l1=0x11, l2=»8200EXEC INDVIRK «, l3=0x11}
0x18af…18c0 Line {l1=0x0f, l2=»8210CLOSE FIL$ «, l3=0x0f}
0x18c0…18de Line {l1=0x1c, l2=»8220FIL$="P641220:LØNMODRG" «, l3=0x1c}
0x18de…18f0 Line {l1=0x10, l2=»8230OPEN FIL$,R «, l3=0x10}
0x18f0…190f Line {l1=0x1d, l2=»8260FIL2$="P641220:TÆLLEREG" «, l3=0x1d}
0x190f…1922 Line {l1=0x11, l2=»8270OPEN FIL2$,W «, l3=0x11}
0x1922…1937 Line {l1=0x13, l2=»8300EXEC SKRIVPICT «, l3=0x13}
0x1937…194a Line {l1=0x11, l2=»8310FOR J=E TO 5 «, l3=0x11}
0x194a…195e Line {l1=0x12, l2=»8330EXEC INOPL(J) «, l3=0x12}
0x195e…196b Line {l1=0x0b, l2=»8340NEXT J «, l3=0x0b}
0x196b…1978 Line {l1=0x0b, l2=»8350SIDE=B «, l3=0x0b}
0x1978…1985 Line {l1=0x0b, l2=»8360LMNR=B «, l3=0x0b}
0x1985…1992 Line {l1=0x0b, l2=»8370L$=BL$ «, l3=0x0b}
0x1992…19a1 Line {l1=0x0d, l2=»8380OUTPUT P «, l3=0x0d}
0x19a1…19af Line {l1=0x0c, l2=»8390REPEAT «, l3=0x0c}
0x19af…19c0 Line {l1=0x0f, l2=»8400EXEC NÆSTE «, l3=0x0f}
0x19c0…19db Line {l1=0x19, l2=»8420IF LMNR<=MLMNR THEN «, l3=0x19}
0x19db…19ed Line {l1=0x10, l2=»8425EXEC INDTÆL «, l3=0x10}
0x19ed…1a03 Line {l1=0x14, l2=»8427EXEC SKRIVHOVED «, l3=0x14}
0x1a03…1a2b Line {l1=0x26, l2=»8430EXEC CALC(B,TV$(G),TV$(4),TV006$) «, l3=0x26}
0x1a2b…1a51 Line {l1=0x24, l2=»8435EXEC CALC(V,TV$(E),TV006$,LIN$) «, l3=0x24}
0x1a51…1a78 Line {l1=0x25, l2=»8440EXEC CALC(G,TV$(G),LIN$,FELT12$) «, l3=0x25}
0x1a78…1a9f Line {l1=0x25, l2=»8441EXEC CALC(E,TV$(E),FELT12$,LIN$) «, l3=0x25}
0x1a9f…1ac9 Line {l1=0x28, l2=»8442EXEC CALC(B,TV$(V),FELT12$,FELT12$) «, l3=0x28}
0x1ac9…1af0 Line {l1=0x25, l2=»8450EXEC CALC(B,TV$(5),LIN$,FELT15$) «, l3=0x25}
0x1af0…1b1b Line {l1=0x29, l2=»8455EXEC CALC(B,TV$(11),TV$(12),FELT26$) «, l3=0x29}
0x1b1b…1b46 Line {l1=0x29, l2=»8460EXEC CALC(B,TV$(14),FELT26$,FELT26$) «, l3=0x29}
0x1b46…1b71 Line {l1=0x29, l2=»8465EXEC CALC(B,TV$(15),FELT26$,FELT26$) «, l3=0x29}
0x1b71…1b99 Line {l1=0x26, l2=»8470EXEC CALC(G,TV$(G),HUND$,FELT29$) «, l3=0x26}
0x1b99…1bc3 Line {l1=0x28, l2=»8475EXEC CALC(V,FELT29$,TV006$,FELT29$) «, l3=0x28}
0x1bc3…1beb Line {l1=0x26, l2=»8480EXEC CALC(G,TV$(6),HUND$,FELT30$) «, l3=0x26}
0x1beb…1c15 Line {l1=0x28, l2=»8485EXEC CALC(V,FELT30$,TV006$,FELT30$) «, l3=0x28}
0x1c15…1c3f Line {l1=0x28, l2=»8490EXEC CALC(V,FELT12$,TV$(G),FELT31$) «, l3=0x28}
0x1c3f…1c69 Line {l1=0x28, l2=»8495EXEC CALC(V,FELT15$,TV$(4),FELT32$) «, l3=0x28}
0x1c69…1c94 Line {l1=0x29, l2=»8500EXEC CALC(B,FELT12$,FELT15$,FELT33$) «, l3=0x29}
0x1c94…1cbe Line {l1=0x28, l2=»8505EXEC CALC(V,FELT33$,TV006$,FELT33$) «, l3=0x28}
0x1cbe…1ce7 Line {l1=0x27, l2=»8510EXEC CALC(V,TV$(7),TV006$,FELT34$) «, l3=0x27}
0x1ce7…1d10 Line {l1=0x27, l2=»8515EXEC CALC(V,TV$(8),TV006$,FELT35$) «, l3=0x27}
0x1d10…1d39 Line {l1=0x27, l2=»8520EXEC CALC(V,TV$(W),TV006$,FELT36$) «, l3=0x27}
0x1d39…1d5e Line {l1=0x23, l2=»8521EXEC CALC(4,TV$(13),TAH$,TAH$) «, l3=0x23}
0x1d5e…1d9b Line {l1=0x3b, l2=»8522IF SI=B AND POST2$(26)="2" THEN TV$(13)=" " «, l3=0x3b}
0x1d9b…1daf Line {l1=0x12, l2=»8525FOR I=E TO 15 «, l3=0x12}
0x1daf…1dd9 Line {l1=0x28, l2=»8530IF TV$(I,11)="+" THEN TV$(I,11)=" " «, l3=0x28}
0x1dd9…1de6 Line {l1=0x0b, l2=»8535NEXT I «, l3=0x0b}
0x1de6…1e12 Line {l1=0x2a, l2=»8537IF TV006$(12)="+" THEN TV006$(12)=" " «, l3=0x2a}
0x1e12…1e40 Line {l1=0x2c, l2=»8540IF FELT12$(12)="+" THEN FELT12$(12)=" " «, l3=0x2c}
0x1e40…1e6e Line {l1=0x2c, l2=»8545IF FELT15$(12)="+" THEN FELT15$(12)=" " «, l3=0x2c}
0x1e6e…1e9c Line {l1=0x2c, l2=»8550IF FELT26$(12)="+" THEN FELT26$(12)=" " «, l3=0x2c}
0x1e9c…1eca Line {l1=0x2c, l2=»8555IF FELT29$(12)="+" THEN FELT29$(12)=" " «, l3=0x2c}
0x1eca…1ef8 Line {l1=0x2c, l2=»8560IF FELT30$(12)="+" THEN FELT30$(12)=" " «, l3=0x2c}
0x1ef8…1f26 Line {l1=0x2c, l2=»8565IF FELT31$(12)="+" THEN FELT31$(12)=" " «, l3=0x2c}
0x1f26…1f54 Line {l1=0x2c, l2=»8570IF FELT32$(12)="+" THEN FELT32$(12)=" " «, l3=0x2c}
0x1f54…1f82 Line {l1=0x2c, l2=»8575IF FELT33$(12)="+" THEN FELT33$(12)=" " «, l3=0x2c}
0x1f82…1fb0 Line {l1=0x2c, l2=»8580IF FELT34$(12)="+" THEN FELT34$(12)=" " «, l3=0x2c}
0x1fb0…1fde Line {l1=0x2c, l2=»8585IF FELT35$(12)="+" THEN FELT35$(12)=" " «, l3=0x2c}
0x1fde…200c Line {l1=0x2c, l2=»8590IF FELT36$(12)="+" THEN FELT36$(12)=" " «, l3=0x2c}
0x200c…2044 Line {l1=0x36, l2=»8595PRINT TAB(16);"AKKORDTIMER";TAB(38);"002 ";TV$(G) «, l3=0x36}
0x2044…2051 Line {l1=0x0b, l2=»8600PRINT «, l3=0x0b}
0x2051…209f Line {l1=0x4c, l2=»8605PRINT TAB(G);TV$(V);TAB(16);"AKKORDBELØB";TAB(38);"003";TAB(53);FELT12$ «, l3=0x4c}
0x209f…20ac Line {l1=0x0b, l2=»8610PRINT «, l3=0x0b}
0x20ac…20e5 Line {l1=0x37, l2=»8615PRINT TAB(16);"TIDLØNSTIMER";TAB(38);"004 ";TV$(4) «, l3=0x37}
0x20e5…20f2 Line {l1=0x0b, l2=»8620PRINT «, l3=0x0b}
0x20f2…2141 Line {l1=0x4d, l2=»8625PRINT TAB(G);TV$(5);TAB(16);"TIDLØNSBELØB";TAB(38);"005";TAB(53);FELT15$ «, l3=0x4d}
0x2141…214e Line {l1=0x0b, l2=»8630PRINT «, l3=0x0b}
0x214e…2184 Line {l1=0x34, l2=»8635PRINT TAB(16);"TIMER IALT";TAB(38);"006";TV006$ «, l3=0x34}
0x2184…2191 Line {l1=0x0b, l2=»8640PRINT «, l3=0x0b}
0x2191…21cd Line {l1=0x3a, l2=»8645PRINT TAB(16);"HERAF OVERTIMER";TAB(38);"007 ";TV$(6) «, l3=0x3a}
0x21cd…21da Line {l1=0x0b, l2=»8650PRINT «, l3=0x0b}
0x21da…221c Line {l1=0x40, l2=»8655PRINT TAB(16);"OVERTIDSTILLÆG";TAB(38);"008";TAB(54);TV$(7) «, l3=0x40}
0x221c…2229 Line {l1=0x0b, l2=»8660PRINT «, l3=0x0b}
0x2229…226d Line {l1=0x42, l2=»8665PRINT TAB(16);"HOLDDRIFTSTILLÆG";TAB(38);"009";TAB(54);TV$(8) «, l3=0x42}
0x226d…227a Line {l1=0x0b, l2=»8670PRINT «, l3=0x0b}
0x227a…22b8 Line {l1=0x3c, l2=»8675PRINT TAB(16);"GENETILLÆG";TAB(38);"010";TAB(54);TV$(W) «, l3=0x3c}
0x22b8…22c5 Line {l1=0x0b, l2=»8680PRINT «, l3=0x0b}
0x22c5…230a Line {l1=0x43, l2=»8685PRINT TAB(16);"DIV U F ARBEJDST";TAB(38);"011";TAB(54);TV$(10) «, l3=0x43}
0x230a…2317 Line {l1=0x0b, l2=»8690PRINT «, l3=0x0b}
0x2317…235b Line {l1=0x42, l2=»8695PRINT TAB(16);"FERIEBERETT LØN";TAB(38);"012";TAB(54);TV$(11) «, l3=0x42}
0x235b…2368 Line {l1=0x0b, l2=»8700PRINT «, l3=0x0b}
0x2368…23ab Line {l1=0x41, l2=»8705PRINT TAB(16);"SYGEFERIEPENGE";TAB(38);"013";TAB(54);TV$(12) «, l3=0x41}
0x23ab…23b8 Line {l1=0x0b, l2=»8710PRINT «, l3=0x0b}
0x23b8…23fd Line {l1=0x43, l2=»8715PRINT TAB(16);"BEREGNEDE FERIEP";TAB(38);"015";TAB(54);TV$(14) «, l3=0x43}
0x23fd…240a Line {l1=0x0b, l2=»8720PRINT «, l3=0x0b}
0x240a…244b Line {l1=0x3f, l2=»8725PRINT TAB(16);"SH-OPSPARING";TAB(38);"016";TAB(54);TV$(15) «, l3=0x3f}
0x244b…2458 Line {l1=0x0b, l2=»8730PRINT «, l3=0x0b}
0x2458…2482 Line {l1=0x28, l2=»8735PRINT TAB(16);"***";TAB(53);FELT26$ «, l3=0x28}
0x2482…248f Line {l1=0x0b, l2=»8740PRINT «, l3=0x0b}
0x248f…24d0 Line {l1=0x3f, l2=»8741PRINT TAB(16);"SYGEDAGPENGE";TAB(38);"014";TAB(54);TV$(13) «, l3=0x3f}
0x24d0…24dd Line {l1=0x0b, l2=»8742PRINT «, l3=0x0b}
0x24dd…2524 Line {l1=0x45, l2=»8745PRINT TAB(G);TV$(E);TAB(16);"TILLÆG TIL FORDELING";TAB(38);"001" «, l3=0x45}
0x2524…2531 Line {l1=0x0b, l2=»8750PRINT «, l3=0x0b}
0x2531…2576 Line {l1=0x43, l2=»8755PRINT TAB(6);"------%------ ---------------------GENNEMSNIT"; «, l3=0x43}
0x2576…259b Line {l1=0x23, l2=»8760PRINT "----------------------" «, l3=0x23}
0x259b…25e4 Line {l1=0x47, l2=»8765PRINT TAB(5);"AKKORD OVERT AKKORD TIDLØN TILSAMM OVERTID"; «, l3=0x47}
0x25e4…2604 Line {l1=0x1e, l2=»8770PRINT " HOLDDR GENE" «, l3=0x1e}
0x2604…2650 Line {l1=0x4a, l2=»8775PRINT TAB(5);FELT29$(6,12);FELT30$(5,12);FELT31$(4,12);FELT32$(4,12); «, l3=0x4a}
0x2650…2694 Line {l1=0x42, l2=»8780PRINT FELT33$(4,12);FELT34$(4,12);FELT35$(4,12);FELT36$(4,12) «, l3=0x42}
0x2694…26a9 Line {l1=0x13, l2=»8820EXEC SKRIVBUND «, l3=0x13}
0x26a9…26ba Line {l1=0x0f, l2=»8840EXEC UDTÆL «, l3=0x0f}
0x26ba…26c7 Line {l1=0x0b, l2=»8850ENDIF «, l3=0x0b}
0x26c7…26df Line {l1=0x16, l2=»8860UNTIL LMNR=>MLMNR «, l3=0x16}
0x26df…26ec Line {l1=0x0b, l2=»8870CLOSE «, l3=0x0b}
0x26ec…26fb Line {l1=0x0d, l2=»8880OUTPUT T «, l3=0x0d}
0x26fb…2718 Line {l1=0x1b, l2=»8890CHAIN "P641210:STARTB" «, l3=0x1b}
0x2718…2720 00 00 00 00 00 00 00 00 ┆ ┆
0x2720…2740 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 ┆ ┆
[…0x2…]