|
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: »BKLFERIE.K«
└─⟦385f097a1⟧ Bits:30008988 SPC/1 COMAL programmer til bogføring
└─⟦this⟧ »BKLFERIE.K«
0100DIM A1(V),A2(V),A3(V),A4(V),A5(V),A6(G),A7$(8),A8$(8),A9$(E),B0$(E) 0120DIM RES$(15),OP1$(12),OP2$(12),B1$(12),B2$(12),B3$(12),B4$(12),B5$(12) 0130DIM B7(10),B8$(10,37),B9$(8,11),C0$(12),C1$(12),C2$(12),C3$(12) 0140DIM C4$(12),C5$(45,11),C6$(55),C9$(16),D0$(16),D1$(71) 0150DIM D2$(27),D3$(55),D4$(34),D5$(29),D6$(37),D7$(16),D8$(16),D9$(16) 0160DIM E0$(16),E1$(16),E2$(16,12),E6(18),E7(18),E8(18),E9$(79),F0$(79) 0162DIM F1$(12),DD$(6),PAGE$(19,68),ÅR$(G),KV$(E) 0170B3$=" 0+";B5$=" 6,00+";B4$=" 100,00+" 0171FOR I=E TO 16 0172E2$(I)=B3$ 0173NEXT I 0200A6(E),A6(G),E3,E4,E5=B 0230FOR I=E TO 79 0240E9$=E9$+" " 0250NEXT I 0251FOR I=E TO 19 0253PAGE$(I)=E9$(E,68) 0255NEXT I 0260E6(11),E6(14),E6(17)=27;E6(12),E6(15),E6(18)=34 0280E8(4)=-4 0300E6(4)=36;E6(5),E6(6)=39;E6(10),E6(13),E6(16)=23 0310E7(4)=4;E7(5)=5;E7(6)=6 0320E7(10),E7(11),E7(12)=12;E7(13),E7(14),E7(15)=13;E7(16),E7(17),E7(18)=14 0340E8(11),E8(12),E8(14),E8(15),E8(17),E8(18)=6;E8(5),E8(6)=-E 0350E8(10),E8(13),E8(16)=B 0370PROC C(F2,F3,F4,F5) 0380RES$=F5$;OP1$=F3$;OP2$=F4$;SI=B;FLAG=B;ART=F2-6*(F2>5) 0390CALL "P641210:REGN" 0400IF F2<6 AND FLAG THEN STOP 0430F5$=RES$ 0440ENDPROC 0441PROC OPTÆL(F6,F7) 0442F1$=F7$;C2$=C5$(F6) 0443EXEC C(0,C2$,F1$,F1$) 0444C5$(F6)=F1$(G:11) 0448ENDPROC 0450PROC UDTÆL 0460J=W*(F8-E) 0470FOR F9=E TO W 0480FOR I=E TO 5 0490C6$((I-E)*11+E:11)=C5$((F9-E)*5+I) 0500NEXT I 0510PUT D0$,J+F9:C6$ 0520NEXT F9 0530EXEC F(-F8,-F9,D0$) 0540ENDPROC 0550PROC INDTÆL 0560J=W*(F8-E) 0570FOR F9=E TO W 0580GET D0$,J+F9:C6$ 0590FOR I=E TO 5 0600C5$((F9-E)*5+I)=C6$((I-E)*11+E:11) 0610NEXT I 0620NEXT F9 0630EXEC F(F8,F9,D0$) 0640ENDPROC 0641PROC OP(F6,F7) 0642F1$=F7$;C2$=E2$(F6) 0643EXEC C(0,C2$,F1$,F1$) 0644E2$(F6)=F1$ 0645ENDPROC 0650PROC DATOCHECK(G0,G1) 0660G1=E 0670G2=(ORD(G0$(E))-48)*10+ORD(G0$(G))-48 0680G3=(ORD(G0$(V))-48)*10+ORD(G0$(4))-48 0690G4=(ORD(G0$(5))-48)*10+ORD(G0$(6))-48 0700IF G4<E OR G3<E OR G3>12 OR G4>31 THEN G1=B 0710IF G1=B THEN EXIT 0720CASE G3 OF 0730WHEN 4,6,W,11 0740IF G4>30 THEN G1=B 0750WHEN G 0760IF G4>29 THEN G1=B 0770IF G4=29 AND G2 MOD 4<>B THEN G1=B 0780ENDCASE 0790ENDPROC 0800PROC INLØNMOD(G5) 0810GET C9$,G*G5-E:D1$ 0820GET C9$,G*G5:D2$,G6,G7,G8,G9,H0,H1,H2,H3,H4,H5,H6 0830EXEC F(1,G5,C9$) 0840ENDPROC 0850PROC UDLØNMOD(G5) 0860PUT C9$,G*G5-E:D1$ 0870PUT C9$,G*G5:D2$,G6,G7,G8,G9,H0,H1,H2,H3,H4,H5,H6 0880EXEC F(2,G5,C9$) 0890ENDPROC 0900PROC CONV(H7,H8,H9) 0910I0=H8;H7$="" 0930REPEAT 0940H7$=CHR((I0 MOD 10)+48)+H7$;H9=H9-E;I0=I0 DIV 10 0970IF H9<B AND I0=B THEN H9=B 0980UNTIL H9=B 0990ENDPROC 1000PROC CHECK(I1,I2) 1010I2,I3=B 1030IF LEN(I1$)>B THEN 1035I4=E 1040IF I1$(E)="-" THEN I4=-E;I2=E 1100WHILE LEN(I1$)>I2 1110I2=I2+E 1120IF I1$(I2)<"0" OR I1$(I2)>"9" THEN I4=B;I2=LEN(I1$) 1160I3=I3*10+ORD(I1$(I2))-48 1170ENDWHILE 1175I3=I3*I4;I2=I2*I4 1190IF I2<B THEN I2=I2+E 1200ENDIF 1210ENDPROC 1211PROC Ø 1212REPEAT 1213EXEC DATOCHECK(F0$,I) 1214IF I=B THEN EXEC INLINE(I5) 1215UNTIL I=E 1216ENDPROC 1220PROC INOPL(I5) 1230EXEC INLINE(I5) 1240CASE I5 OF 1460WHEN 4 1470REPEAT 1480F0$=F0$+"+" 1490EXEC C(6,F0$,B3$,F1$) 1500IF FLAG<>B THEN EXEC INLINE(I5) 1510UNTIL FLAG=B 1520EXEC C(0,F0$,B3$,F1$) 1530EXEC PERVERT(F1$,I7) 1540WHEN 5 1550WHILE F0$<"1" OR F0$>"7" 1560EXEC INLINE(I5) 1570ENDWHILE 1580A9$=F0$ 1590WHEN 6 1600WHILE F0$<>"A" AND F0$<>"F" 1610EXEC INLINE(I5) 1620ENDWHILE 1630B0$=F0$ 1660WHEN 10,13,16 1670A2(I5 DIV V-G)=I3 1680IF I3<>B THEN 1690E4=E 1700ELSE 1710I5=I5+G 1720ENDIF 1730WHEN 11,14,17 1740EXEC Ø 1780A4(I5 DIV 3-2)=I3 1790WHEN 12,15,18 1800EXEC Ø 1840A5(I5 DIV 3-3)=I3 1870ENDCASE 1880ENDPROC 1890PROC INDVIRK 1900OPEN C9$,R 1910EXEC F(0,0,C9$) 1920GET C9$,E:D3$ 1930GET C9$,G:D4$,I8,I9,J0 1940ENDPROC 1950PROC F(J1,J2,J3) 1960IF STATUS(J3$)<>B THEN 1970OUTPUT T 1980PRINT "FIL-FEJL ";J3$;STATUS(J3$),J1;J2 1990STOP 2000ENDIF 2010ENDPROC 2020PROC INLINE(G5) 2030REPEAT 2040CURSOR E6(G5),E7(G5) 2050INPUT "",F0$ 2060IF E8(G5)<B THEN 2065J4=B 2070IF LEN(F0$)<=ABS(E8(G5)) THEN 2080J4=E 2090FOR I=LEN(F0$)+E TO ABS(E8(G5)) 2100F0$(I)=" " 2110NEXT I 2140ENDIF 2150ELSE 2160EXEC CHECK(F0$,J4) 2170IF E8(G5)>B AND E8(G5)<>J4 THEN J4=B 2180ENDIF 2190UNTIL J4<>B 2200ENDPROC 2210PROC SKRIVPICT 2220CLEAR 2230PRINT TAB(17);"Afregning" 2240PRINT 2250PRINT 2260PRINT " Maksimum feriedage i året" 2270PRINT " Lønperiodekode 1,2,3,4,5,6 eller 7" 2280PRINT " Arbejdere(A) eller funktionærer(F)" 2290PRINT 2300PRINT 2310; 2320PRINT 2330PRINT " Feriepengeopgørelse: start-slutdag" 2340PRINT " Feriekode 1/lønnr" 2350PRINT " Feriekode 2/lønnr" 2360PRINT " Feriekode 3/lønnr" 2420ENDPROC 2600PROC CONVDATE(I1,I2) 2610K0=I2;I1$="" 2620FOR I=6 TO E STEP -E 2625I1$(I)=CHR(K0 MOD 10+48) 2633K0=K0 DIV 10 2690NEXT I 2700ENDPROC 2710PROC Æ(I1,I2) 2720I1$=" 0+" 2730IF I2<>B THEN 2740I1$(W,10)=",0";I0=ABS(I2);K0=INT((I0-INT(I0))*100+0.50001) 2770IF I2<B THEN I1$(12)="-" 2780FOR I=11 TO E STEP -E 2790IF I<>W THEN 2800I1$(I)=CHR(K0 MOD 10+48) 2810K0=K0 DIV 10 2820IF K0=B AND I<10 THEN I=B 2830ELSE 2840K0=INT(I0) 2850ENDIF 2860NEXT I 2870ENDIF 2880ENDPROC 2890PROC PERVERT(I1,I2) 2900I2=B 2910FOR I=E TO LEN(I1$)-E 2920IF I1$(I)<>" " AND I1$(I)<>"," THEN I2=10*I2+ORD(I1$(I))-48 2930NEXT I 2940IF I1$(I)="-" THEN I2=-I2 2950I2=I2/100 2960ENDPROC 2970PROC SKRIVBUND 2980PAGE$(16,PS+5:7)=D3$(E,7) 2990PAGE$(17,PS+5:25)=D3$(8,32) 3000PAGE$(18,PS+5:23)=D3$(33,55) 3010PAGE$(19,PS+5:19)=D4$(E,4)+" "+D4$(5,18) 3020IF PS=E THEN 3030PS=38 3040ELSE 3050EXEC SKRIVPAGE 3060PS=E 3070ENDIF 3080ENDPROC 3085TAP=W 3090PROC SKRIVPAGE 3092LINE=E 3094PRINT 3096EXEC SL 3098EXEC SL 3100EXEC SL 3102PRINT 3104EXEC SL 3106EXEC SL 3108EXEC SL 3110EXEC SL 3112PRINT 3114EXEC SL 3116EXEC SL 3118PRINT 3120EXEC SL 3122PRINT 3124EXEC SL 3126PRINT 3128EXEC SL 3130PRINT 3132EXEC SL 3134PRINT 3136EXEC SL 3138PRINT 3140EXEC SL 3142PRINT 3144EXEC SL 3146EXEC SL 3148EXEC SL 3150EXEC SL 3152PRINT 3154; 3156; 3158; 3160FOR I=E TO 19 3162PAGE$(I)=E9$(E,68) 3164NEXT I 3166ENDPROC 3170PROC SL 3180PRINT TAB(TAP);PAGE$(LINE) 3190LINE=LINE+E 3200ENDPROC 3240PROC SKRIVHOVED 3250PAGE$(E,PS+24:G)=ÅR$ 3255PAGE$(G,PS+24:E)=KV$ 3260EXEC CONV(C3$,G6,6) 3265EXEC CONV(F1$,G7,4) 3270C3$=C3$+F1$ 3275PAGE$(V,PS+10:10)=C3$ 3280EXEC CONV(C3$,F8,4) 3285PAGE$(4,PS+5:4)=C3$ 3290PAGE$(5,PS+5:25)=D1$(E,25) 3292PAGE$(6,PS+5:23)=D1$(26,48) 3295PAGE$(7,PS+5:19)=D2$(E,4)+" "+D2$(5,18) 3300ENDPROC 3440PROC NÆSTE 3450REPEAT 3460F8=F8+E 3470H1=E 3480IF F8<=I9 THEN 3490EXEC INLØNMOD(F8) 3500IF A9$<>D2$(21) THEN H1=B 3510IF B0$="A" AND D2$(24,25)>"89" THEN H1=B 3520IF B0$="F" AND D2$(24,25)<"90" THEN H1=B 3530ENDIF 3540UNTIL H1>B 3550ENDPROC 3560PROC BEREGNFERIE 3570EXEC SKRIVHOVED 3580EXEC INDTÆL 3585K4=H1 3590IF A4(K3)>H1 THEN K4=A4(K3) 3595K5=H6 3640IF A5(K3)<H6 OR H6=B THEN K5=A5(K3) 3690K6=K5 MOD 100-K4 MOD 100 3700K6=K6+30*(K5 DIV 100 MOD 100-K4 DIV 100 MOD 100) 3705K7=INT(G*I7*K6/365+0.5)/G 3710K6=K6+365*(K5 DIV 10000-K4 DIV 10000) 3720IF A9$="1" THEN K7=B 3770EXEC Æ(C3$,K7) 3800C4$=C5$(29) 3810EXEC C(0,C3$,C4$,F1$) 3820C5$(29)=F1$(G:11) 3830IF K3=V THEN 3840EXEC Æ(C3$,I7) 3850EXEC C(4,F1$,C3$,C4$) 3860IF SI=G THEN F1$=C3$ 3870ENDIF 3873C4$=C5$(44) 3876EXEC C(0,C4$,F1$,C4$) 3880C5$(44)=C4$(G:11) 3890IF K4<>A4(K3) OR K5<>A5(K3) THEN 3910EXEC CONVDATE(C4$,K4) 3920PAGE$(W,PS+5:6)=C4$ 3930EXEC CONVDATE(C4$,K5) 3940PAGE$(W,PS+14:6)=C4$ 3945ELSE 3950PAGE$(8,PS+22:G)="**" 3960ENDIF 3990IF C5$(16,11)="+" THEN C5$(16,11)=" " 4000PAGE$(10,PS+20:11)=C5$(16) 4010C5$(16)=B3$(G:11) 4025EXEC OP(8,C5$(20)) 4030PAGE$(11,PS+15:G)="16" 4040PAGE$(11,PS+20:11)=C5$(20) 4055EXEC OP(9,C5$(17)) 4060PAGE$(12,PS+20:11)=C5$(17) 4070IF PAGE$(12,PS+30)="+" THEN PAGE$(12,PS+30)=" " 4080IF H0>B THEN 4090EXEC Æ(C3$,H0) 4100ELSE 4110K8=INT(G9*12/365) 4120EXEC Æ(C4$,K8) 4125F1$=C5$(29) 4130EXEC C(2,F1$,C4$,C3$) 4140ENDIF 4150B1$=C5$(20);C4$=C5$(17);C5$(20)=B3$(G:11);C5$(17)=B3$(G:11) 4160C5$(29)=C5$(20) 4190EXEC C(0,B1$,C4$,B1$) 4200EXEC OPTÆL(34,B1$) 4250PAGE$(13,PS+20:11)=B1$(G:11) 4260EXEC C(4,B1$,C3$,C4$) 4280PAGE$(14,PS:10)=C3$(V:10) 4285IF PAGE$(14,PS+W)="+" THEN PAGE$(14,PS+W)=" " 4290IF SI=G THEN 4300EXEC C(1,B1$,C3$,C4$) 4310H0=B 4320EXEC Æ(C3$,G8) 4335C3$(12)="-" 4340EXEC C(2,C4$,C3$,B2$) 4350EXEC C(3,B2$,B4$,B2$) 4355B2$(10,11)="00" 4360EXEC C(0,B1$,B2$,C0$) 4370ELSE 4380B2$=B3$ 4390C0$=B1$ 4400IF H0>B THEN 4410EXEC C(1,C3$,B1$,C3$) 4420EXEC PERVERT(C3$,H0) 4430ENDIF 4440ENDIF 4441EXEC OPTÆL(40,B2$) 4442EXEC OP(10,B2$) 4470PAGE$(14,PS+20:11)=B2$(G:11) 4480PAGE$(15,PS+20:11)=C0$(G:11) 4520ENDPROC 4530PROC BEREGNSH 4635EXEC OP(11,C5$(23)) 4660C3$=C5$(23);C5$(23)=B3$(G:11) 4670C4$=" "+C5$(26) 4675IF C4$(12)="+" THEN EXEC C(1,B3$,C4$,C4$) 4685EXEC OP(12,C4$) 4710C5$(26)=B3$(G:11) 4720EXEC C(0,C3$,C4$,B1$) 4730EXEC OPTÆL(34,B1$) 4780EXEC Æ(C3$,G8) 4782PAGE$(14,PS+10:5)=C3$(6:5) 4785C3$(12)="-" 4790IF B1$(12)="+" THEN 4810EXEC C(2,C3$,B1$,C1$) 4820EXEC C(3,C1$,B4$,C1$) 4830C1$(10,11)="00" 4840EXEC OPTÆL(40,C1$) 4860ELSE 4880C1$=B3$ 4890ENDIF 4892F1$=PAGE$(11,PS+20:11) 4894EXEC C(0,F1$,B1$,F1$) 4896IF F1$(12)="+" THEN F1$(12)=" " 4898PAGE$(11,PS+20:11)=F1$(G:11) 4900F1$=PAGE$(13,PS+20:11) 4902EXEC C(0,F1$,B1$,F1$) 4904IF F1$(12)="+" THEN F1$(12)=" " 4906PAGE$(13,PS+20:11)=F1$(G:11) 4915EXEC OP(13,C1$) 4920F1$=PAGE$(14,PS+20:11) 4922EXEC C(0,F1$,C1$,F1$) 4924IF F1$(12)="+" THEN F1$(12)=" " 4926PAGE$(14,PS+20:11)=F1$(G:11) 4950EXEC C(0,C1$,B1$,C2$) 4960F1$=PAGE$(15,PS+20:11) 4962EXEC C(0,F1$,C2$,F1$) 4964IF F1$(12)="+" THEN F1$(12)=" " 4966PAGE$(15,PS+20:11)=F1$(G:11) 5000ENDPROC 8181D8$="P641220:" 8182E1$="P641210:" 8190C9$=D8$+"VIRKKART" 8200EXEC INDVIRK 8210CLOSE C9$ 8220C9$=D8$+"LØNMODRG" 8230OPEN C9$,W 8260D0$=D8$+"TÆLLEREG" 8270OPEN D0$,W 8291D9$=E1$+"LØNJOUR" 8292OPEN D9$,W 8300EXEC SKRIVPICT 8310FOR J=4 TO 18 8320IF J=7 THEN J=10 8330EXEC INOPL(J) 8340NEXT J 8343ÅR$=" " 8345EDIT "Monter BKL's ferieopgørelser, RETURN",ÅR$ 8350PS=E 8355ÅR$="82" 8356KV$="1" 8357EDIT "År ",ÅR$ 8358EDIT "Kvartal ",KV$ 8360F8=B 8365A7$="00-00-00" 8366A8$=A7$ 8370F0$=E9$ 8372PUT D9$:A7$,A8$,A9$,B0$ 8380OUTPUT P 8390REPEAT 8400EXEC NÆSTE 8410L3,K9=B 8420IF F8<=I9 THEN 8540IF E4=E THEN 8550K3=ORD(D2$(22))-48 8560IF K3<4 THEN 8570IF A2(K3)=F8 OR A2(K3)=-E THEN 8580EXEC BEREGNFERIE 8585EXEC BEREGNSH 8590K9=E 8600ENDIF 8610ENDIF 8620ENDIF 8815IF K9>B THEN 8820EXEC SKRIVBUND 8830EXEC UDLØNMOD(F8) 8840EXEC UDTÆL 8845ENDIF 8850ENDIF 8860UNTIL F8=>I9 8862PUT D9$:E2$(E),E2$(G),E2$(V),E2$(4),E2$(5),E2$(6) 8864PUT D9$:E2$(7),E2$(8),E2$(W),E2$(10),E2$(11),E2$(12) 8866PUT D9$:E2$(13),E2$(14),E2$(15),E2$(16) 8869IF PS>E THEN EXEC SKRIVPAGE 8870CLOSE 8875OUTPUT T 8877EDIT "Monter listepapir, RETURN",E9$ 8880CHAIN "P641210:JOURNAL"
0x0000…004a Line {l1=0x48, l2=»0100DIM A1(V),A2(V),A3(V),A4(V),A5(V),A6(G),A7$(8),A8$(8),A9$(E),B0$(E) «, l3=0x48}
0x004a…0097 Line {l1=0x4b, l2=»0120DIM RES$(15),OP1$(12),OP2$(12),B1$(12),B2$(12),B3$(12),B4$(12),B5$(12) «, l3=0x4b}
0x0097…00dd Line {l1=0x44, l2=»0130DIM B7(10),B8$(10,37),B9$(8,11),C0$(12),C1$(12),C2$(12),C3$(12) «, l3=0x44}
0x00dd…011a Line {l1=0x3b, l2=»0140DIM C4$(12),C5$(45,11),C6$(55),C9$(16),D0$(16),D1$(71) «, l3=0x3b}
0x011a…0164 Line {l1=0x48, l2=»0150DIM D2$(27),D3$(55),D4$(34),D5$(29),D6$(37),D7$(16),D8$(16),D9$(16) «, l3=0x48}
0x0164…01ae Line {l1=0x48, l2=»0160DIM E0$(16),E1$(16),E2$(16,12),E6(18),E7(18),E8(18),E9$(79),F0$(79) «, l3=0x48}
0x01ae…01e2 Line {l1=0x32, l2=»0162DIM F1$(12),DD$(6),PAGE$(19,68),ÅR$(G),KV$(E) «, l3=0x32}
0x01e2…0221 Line {l1=0x3d, l2=»0170B3$=" 0+";B5$=" 6,00+";B4$=" 100,00+" «, l3=0x3d}
0x0221…0235 Line {l1=0x12, l2=»0171FOR I=E TO 16 «, l3=0x12}
0x0235…0246 Line {l1=0x0f, l2=»0172E2$(I)=B3$ «, l3=0x0f}
0x0246…0253 Line {l1=0x0b, l2=»0173NEXT I «, l3=0x0b}
0x0253…0270 Line {l1=0x1b, l2=»0200A6(E),A6(G),E3,E4,E5=B «, l3=0x1b}
0x0270…0284 Line {l1=0x12, l2=»0230FOR I=E TO 79 «, l3=0x12}
0x0284…0296 Line {l1=0x10, l2=»0240E9$=E9$+" " «, l3=0x10}
0x0296…02a3 Line {l1=0x0b, l2=»0250NEXT I «, l3=0x0b}
0x02a3…02b7 Line {l1=0x12, l2=»0251FOR I=E TO 19 «, l3=0x12}
0x02b7…02d0 Line {l1=0x17, l2=»0253PAGE$(I)=E9$(E,68) «, l3=0x17}
0x02d0…02dd Line {l1=0x0b, l2=»0255NEXT I «, l3=0x0b}
0x02dd…0313 Line {l1=0x34, l2=»0260E6(11),E6(14),E6(17)=27;E6(12),E6(15),E6(18)=34 «, l3=0x34}
0x0313…0322 Line {l1=0x0d, l2=»0280E8(4)=-4 «, l3=0x0d}
0x0322…0358 Line {l1=0x34, l2=»0300E6(4)=36;E6(5),E6(6)=39;E6(10),E6(13),E6(16)=23 «, l3=0x34}
0x0358…0376 Line {l1=0x1c, l2=»0310E7(4)=4;E7(5)=5;E7(6)=6 «, l3=0x1c}
0x0376…03c4 Line {l1=0x4c, l2=»0320E7(10),E7(11),E7(12)=12;E7(13),E7(14),E7(15)=13;E7(16),E7(17),E7(18)=14 «, l3=0x4c}
0x03c4…0405 Line {l1=0x3f, l2=»0340E8(11),E8(12),E8(14),E8(15),E8(17),E8(18)=6;E8(5),E8(6)=-E «, l3=0x3f}
0x0405…0422 Line {l1=0x1b, l2=»0350E8(10),E8(13),E8(16)=B «, l3=0x1b}
0x0422…043c Line {l1=0x18, l2=»0370PROC C(F2,F3,F4,F5) «, l3=0x18}
0x043c…0479 Line {l1=0x3b, l2=»0380RES$=F5$;OP1$=F3$;OP2$=F4$;SI=B;FLAG=B;ART=F2-6*(F2>5) «, l3=0x3b}
0x0479…0493 Line {l1=0x18, l2=»0390CALL "P641210:REGN" «, l3=0x18}
0x0493…04b5 Line {l1=0x20, l2=»0400IF F2<6 AND FLAG THEN STOP «, l3=0x20}
0x04b5…04c4 Line {l1=0x0d, l2=»0430F5$=RES$ «, l3=0x0d}
0x04c4…04d3 Line {l1=0x0d, l2=»0440ENDPROC «, l3=0x0d}
0x04d3…04eb Line {l1=0x16, l2=»0441PROC OPTÆL(F6,F7) «, l3=0x16}
0x04eb…0505 Line {l1=0x18, l2=»0442F1$=F7$;C2$=C5$(F6) «, l3=0x18}
0x0505…0521 Line {l1=0x1a, l2=»0443EXEC C(0,C2$,F1$,F1$) «, l3=0x1a}
0x0521…0539 Line {l1=0x16, l2=»0444C5$(F6)=F1$(G:11) «, l3=0x16}
0x0539…0548 Line {l1=0x0d, l2=»0448ENDPROC «, l3=0x0d}
0x0548…0559 Line {l1=0x0f, l2=»0450PROC UDTÆL «, l3=0x0f}
0x0559…056a Line {l1=0x0f, l2=»0460J=W*(F8-E) «, l3=0x0f}
0x056a…057e Line {l1=0x12, l2=»0470FOR F9=E TO W «, l3=0x12}
0x057e…0591 Line {l1=0x11, l2=»0480FOR I=E TO 5 «, l3=0x11}
0x0591…05ba Line {l1=0x27, l2=»0490C6$((I-E)*11+E:11)=C5$((F9-E)*5+I) «, l3=0x27}
0x05ba…05c7 Line {l1=0x0b, l2=»0500NEXT I «, l3=0x0b}
0x05c7…05de Line {l1=0x15, l2=»0510PUT D0$,J+F9:C6$ «, l3=0x15}
0x05de…05ec Line {l1=0x0c, l2=»0520NEXT F9 «, l3=0x0c}
0x05ec…0606 Line {l1=0x18, l2=»0530EXEC F(-F8,-F9,D0$) «, l3=0x18}
0x0606…0615 Line {l1=0x0d, l2=»0540ENDPROC «, l3=0x0d}
0x0615…0627 Line {l1=0x10, l2=»0550PROC INDTÆL «, l3=0x10}
0x0627…0638 Line {l1=0x0f, l2=»0560J=W*(F8-E) «, l3=0x0f}
0x0638…064c Line {l1=0x12, l2=»0570FOR F9=E TO W «, l3=0x12}
0x064c…0663 Line {l1=0x15, l2=»0580GET D0$,J+F9:C6$ «, l3=0x15}
0x0663…0676 Line {l1=0x11, l2=»0590FOR I=E TO 5 «, l3=0x11}
0x0676…069f Line {l1=0x27, l2=»0600C5$((F9-E)*5+I)=C6$((I-E)*11+E:11) «, l3=0x27}
0x069f…06ac Line {l1=0x0b, l2=»0610NEXT I «, l3=0x0b}
0x06ac…06ba Line {l1=0x0c, l2=»0620NEXT F9 «, l3=0x0c}
0x06ba…06d2 Line {l1=0x16, l2=»0630EXEC F(F8,F9,D0$) «, l3=0x16}
0x06d2…06e1 Line {l1=0x0d, l2=»0640ENDPROC «, l3=0x0d}
0x06e1…06f6 Line {l1=0x13, l2=»0641PROC OP(F6,F7) «, l3=0x13}
0x06f6…0710 Line {l1=0x18, l2=»0642F1$=F7$;C2$=E2$(F6) «, l3=0x18}
0x0710…072c Line {l1=0x1a, l2=»0643EXEC C(0,C2$,F1$,F1$) «, l3=0x1a}
0x072c…073e Line {l1=0x10, l2=»0644E2$(F6)=F1$ «, l3=0x10}
0x073e…074d Line {l1=0x0d, l2=»0645ENDPROC «, l3=0x0d}
0x074d…0769 Line {l1=0x1a, l2=»0650PROC DATOCHECK(G0,G1) «, l3=0x1a}
0x0769…0774 Line {l1=0x09, l2=»0660G1=E «, l3=0x09}
0x0774…07a0 Line {l1=0x2a, l2=»0670G2=(ORD(G0$(E))-48)*10+ORD(G0$(G))-48 «, l3=0x2a}
0x07a0…07cc Line {l1=0x2a, l2=»0680G3=(ORD(G0$(V))-48)*10+ORD(G0$(4))-48 «, l3=0x2a}
0x07cc…07f8 Line {l1=0x2a, l2=»0690G4=(ORD(G0$(5))-48)*10+ORD(G0$(6))-48 «, l3=0x2a}
0x07f8…082a Line {l1=0x30, l2=»0700IF G4<E OR G3<E OR G3>12 OR G4>31 THEN G1=B «, l3=0x30}
0x082a…0843 Line {l1=0x17, l2=»0710IF G1=B THEN EXIT «, l3=0x17}
0x0843…0855 Line {l1=0x10, l2=»0720CASE G3 OF «, l3=0x10}
0x0855…0869 Line {l1=0x12, l2=»0730WHEN 4,6,W,11 «, l3=0x12}
0x0869…0882 Line {l1=0x17, l2=»0740IF G4>30 THEN G1=B «, l3=0x17}
0x0882…088f Line {l1=0x0b, l2=»0750WHEN G «, l3=0x0b}
0x088f…08a8 Line {l1=0x17, l2=»0760IF G4>29 THEN G1=B «, l3=0x17}
0x08a8…08d1 Line {l1=0x27, l2=»0770IF G4=29 AND G2 MOD 4<>B THEN G1=B «, l3=0x27}
0x08d1…08e0 Line {l1=0x0d, l2=»0780ENDCASE «, l3=0x0d}
0x08e0…08ef Line {l1=0x0d, l2=»0790ENDPROC «, l3=0x0d}
0x08ef…0907 Line {l1=0x16, l2=»0800PROC INLØNMOD(G5) «, l3=0x16}
0x0907…0920 Line {l1=0x17, l2=»0810GET C9$,G*G5-E:D1$ «, l3=0x17}
0x0920…0958 Line {l1=0x36, l2=»0820GET C9$,G*G5:D2$,G6,G7,G8,G9,H0,H1,H2,H3,H4,H5,H6 «, l3=0x36}
0x0958…096f Line {l1=0x15, l2=»0830EXEC F(1,G5,C9$) «, l3=0x15}
0x096f…097e Line {l1=0x0d, l2=»0840ENDPROC «, l3=0x0d}
0x097e…0996 Line {l1=0x16, l2=»0850PROC UDLØNMOD(G5) «, l3=0x16}
0x0996…09af Line {l1=0x17, l2=»0860PUT C9$,G*G5-E:D1$ «, l3=0x17}
0x09af…09e7 Line {l1=0x36, l2=»0870PUT C9$,G*G5:D2$,G6,G7,G8,G9,H0,H1,H2,H3,H4,H5,H6 «, l3=0x36}
0x09e7…09fe Line {l1=0x15, l2=»0880EXEC F(2,G5,C9$) «, l3=0x15}
0x09fe…0a0d Line {l1=0x0d, l2=»0890ENDPROC «, l3=0x0d}
0x0a0d…0a27 Line {l1=0x18, l2=»0900PROC CONV(H7,H8,H9) «, l3=0x18}
0x0a27…0a3a Line {l1=0x11, l2=»0910I0=H8;H7$="" «, l3=0x11}
0x0a3a…0a48 Line {l1=0x0c, l2=»0930REPEAT «, l3=0x0c}
0x0a48…0a7f Line {l1=0x35, l2=»0940H7$=CHR((I0 MOD 10)+48)+H7$;H9=H9-E;I0=I0 DIV 10 «, l3=0x35}
0x0a7f…0aa0 Line {l1=0x1f, l2=»0970IF H9<B AND I0=B THEN H9=B «, l3=0x1f}
0x0aa0…0ab1 Line {l1=0x0f, l2=»0980UNTIL H9=B «, l3=0x0f}
0x0ab1…0ac0 Line {l1=0x0d, l2=»0990ENDPROC «, l3=0x0d}
0x0ac0…0ad8 Line {l1=0x16, l2=»1000PROC CHECK(I1,I2) «, l3=0x16}
0x0ad8…0ae6 Line {l1=0x0c, l2=»1010I2,I3=B «, l3=0x0c}
0x0ae6…0b00 Line {l1=0x18, l2=»1030IF LEN(I1$)>B THEN «, l3=0x18}
0x0b00…0b0b Line {l1=0x09, l2=»1035I4=E «, l3=0x09}
0x0b0b…0b2f Line {l1=0x22, l2=»1040IF I1$(E)="-" THEN I4=-E;I2=E «, l3=0x22}
0x0b2f…0b47 Line {l1=0x16, l2=»1100WHILE LEN(I1$)>I2 «, l3=0x16}
0x0b47…0b55 Line {l1=0x0c, l2=»1110I2=I2+E «, l3=0x0c}
0x0b55…0b8f Line {l1=0x38, l2=»1120IF I1$(I2)<"0" OR I1$(I2)>"9" THEN I4=B;I2=LEN(I1$) «, l3=0x38}
0x0b8f…0bae Line {l1=0x1d, l2=»1160I3=I3*10+ORD(I1$(I2))-48 «, l3=0x1d}
0x0bae…0bbe Line {l1=0x0e, l2=»1170ENDWHILE «, l3=0x0e}
0x0bbe…0bd6 Line {l1=0x16, l2=»1175I3=I3*I4;I2=I2*I4 «, l3=0x16}
0x0bd6…0bf1 Line {l1=0x19, l2=»1190IF I2<B THEN I2=I2+E «, l3=0x19}
0x0bf1…0bfe Line {l1=0x0b, l2=»1200ENDIF «, l3=0x0b}
0x0bfe…0c0d Line {l1=0x0d, l2=»1210ENDPROC «, l3=0x0d}
0x0c0d…0c1a Line {l1=0x0b, l2=»1211PROC Ø «, l3=0x0b}
0x0c1a…0c28 Line {l1=0x0c, l2=»1212REPEAT «, l3=0x0c}
0x0c28…0c44 Line {l1=0x1a, l2=»1213EXEC DATOCHECK(F0$,I) «, l3=0x1a}
0x0c44…0c66 Line {l1=0x20, l2=»1214IF I=B THEN EXEC INLINE(I5) «, l3=0x20}
0x0c66…0c76 Line {l1=0x0e, l2=»1215UNTIL I=E «, l3=0x0e}
0x0c76…0c85 Line {l1=0x0d, l2=»1216ENDPROC «, l3=0x0d}
0x0c85…0c9a Line {l1=0x13, l2=»1220PROC INOPL(I5) «, l3=0x13}
0x0c9a…0cb0 Line {l1=0x14, l2=»1230EXEC INLINE(I5) «, l3=0x14}
0x0cb0…0cc2 Line {l1=0x10, l2=»1240CASE I5 OF «, l3=0x10}
0x0cc2…0ccf Line {l1=0x0b, l2=»1460WHEN 4 «, l3=0x0b}
0x0ccf…0cdd Line {l1=0x0c, l2=»1470REPEAT «, l3=0x0c}
0x0cdd…0cef Line {l1=0x10, l2=»1480F0$=F0$+"+" «, l3=0x10}
0x0cef…0d0b Line {l1=0x1a, l2=»1490EXEC C(6,F0$,B3$,F1$) «, l3=0x1a}
0x0d0b…0d31 Line {l1=0x24, l2=»1500IF FLAG<>B THEN EXEC INLINE(I5) «, l3=0x24}
0x0d31…0d44 Line {l1=0x11, l2=»1510UNTIL FLAG=B «, l3=0x11}
0x0d44…0d60 Line {l1=0x1a, l2=»1520EXEC C(0,F0$,B3$,F1$) «, l3=0x1a}
0x0d60…0d7b Line {l1=0x19, l2=»1530EXEC PERVERT(F1$,I7) «, l3=0x19}
0x0d7b…0d88 Line {l1=0x0b, l2=»1540WHEN 5 «, l3=0x0b}
0x0d88…0da7 Line {l1=0x1d, l2=»1550WHILE F0$<"1" OR F0$>"7" «, l3=0x1d}
0x0da7…0dbd Line {l1=0x14, l2=»1560EXEC INLINE(I5) «, l3=0x14}
0x0dbd…0dcd Line {l1=0x0e, l2=»1570ENDWHILE «, l3=0x0e}
0x0dcd…0ddb Line {l1=0x0c, l2=»1580A9$=F0$ «, l3=0x0c}
0x0ddb…0de8 Line {l1=0x0b, l2=»1590WHEN 6 «, l3=0x0b}
0x0de8…0e0a Line {l1=0x20, l2=»1600WHILE F0$<>"A" AND F0$<>"F" «, l3=0x20}
0x0e0a…0e20 Line {l1=0x14, l2=»1610EXEC INLINE(I5) «, l3=0x14}
0x0e20…0e30 Line {l1=0x0e, l2=»1620ENDWHILE «, l3=0x0e}
0x0e30…0e3e Line {l1=0x0c, l2=»1630B0$=F0$ «, l3=0x0c}
0x0e3e…0e52 Line {l1=0x12, l2=»1660WHEN 10,13,16 «, l3=0x12}
0x0e52…0e6a Line {l1=0x16, l2=»1670A2(I5 DIV V-G)=I3 «, l3=0x16}
0x0e6a…0e7f Line {l1=0x13, l2=»1680IF I3<>B THEN «, l3=0x13}
0x0e7f…0e8a Line {l1=0x09, l2=»1690E4=E «, l3=0x09}
0x0e8a…0e96 Line {l1=0x0a, l2=»1700ELSE «, l3=0x0a}
0x0e96…0ea4 Line {l1=0x0c, l2=»1710I5=I5+G «, l3=0x0c}
0x0ea4…0eb1 Line {l1=0x0b, l2=»1720ENDIF «, l3=0x0b}
0x0eb1…0ec5 Line {l1=0x12, l2=»1730WHEN 11,14,17 «, l3=0x12}
0x0ec5…0ed2 Line {l1=0x0b, l2=»1740EXEC Ø «, l3=0x0b}
0x0ed2…0eea Line {l1=0x16, l2=»1780A4(I5 DIV 3-2)=I3 «, l3=0x16}
0x0eea…0efe Line {l1=0x12, l2=»1790WHEN 12,15,18 «, l3=0x12}
0x0efe…0f0b Line {l1=0x0b, l2=»1800EXEC Ø «, l3=0x0b}
0x0f0b…0f23 Line {l1=0x16, l2=»1840A5(I5 DIV 3-3)=I3 «, l3=0x16}
0x0f23…0f32 Line {l1=0x0d, l2=»1870ENDCASE «, l3=0x0d}
0x0f32…0f41 Line {l1=0x0d, l2=»1880ENDPROC «, l3=0x0d}
0x0f41…0f54 Line {l1=0x11, l2=»1890PROC INDVIRK «, l3=0x11}
0x0f54…0f65 Line {l1=0x0f, l2=»1900OPEN C9$,R «, l3=0x0f}
0x0f65…0f7b Line {l1=0x14, l2=»1910EXEC F(0,0,C9$) «, l3=0x14}
0x0f7b…0f8f Line {l1=0x12, l2=»1920GET C9$,E:D3$ «, l3=0x12}
0x0f8f…0fac Line {l1=0x1b, l2=»1930GET C9$,G:D4$,I8,I9,J0 «, l3=0x1b}
0x0fac…0fbb Line {l1=0x0d, l2=»1940ENDPROC «, l3=0x0d}
0x0fbb…0fd2 Line {l1=0x15, l2=»1950PROC F(J1,J2,J3) «, l3=0x15}
0x0fd2…0ff0 Line {l1=0x1c, l2=»1960IF STATUS(J3$)<>B THEN «, l3=0x1c}
0x0ff0…0fff Line {l1=0x0d, l2=»1970OUTPUT T «, l3=0x0d}
0x0fff…102d Line {l1=0x2c, l2=»1980PRINT "FIL-FEJL ";J3$;STATUS(J3$),J1;J2 «, l3=0x2c}
0x102d…1039 Line {l1=0x0a, l2=»1990STOP «, l3=0x0a}
0x1039…1046 Line {l1=0x0b, l2=»2000ENDIF «, l3=0x0b}
0x1046…1055 Line {l1=0x0d, l2=»2010ENDPROC «, l3=0x0d}
0x1055…106b Line {l1=0x14, l2=»2020PROC INLINE(G5) «, l3=0x14}
0x106b…1079 Line {l1=0x0c, l2=»2030REPEAT «, l3=0x0c}
0x1079…1094 Line {l1=0x19, l2=»2040CURSOR E6(G5),E7(G5) «, l3=0x19}
0x1094…10a7 Line {l1=0x11, l2=»2050INPUT "",F0$ «, l3=0x11}
0x10a7…10bf Line {l1=0x16, l2=»2060IF E8(G5)<B THEN «, l3=0x16}
0x10bf…10ca Line {l1=0x09, l2=»2065J4=B «, l3=0x09}
0x10ca…10ef Line {l1=0x23, l2=»2070IF LEN(F0$)<=ABS(E8(G5)) THEN «, l3=0x23}
0x10ef…10fa Line {l1=0x09, l2=»2080J4=E «, l3=0x09}
0x10fa…1120 Line {l1=0x24, l2=»2090FOR I=LEN(F0$)+E TO ABS(E8(G5)) «, l3=0x24}
0x1120…1131 Line {l1=0x0f, l2=»2100F0$(I)=" " «, l3=0x0f}
0x1131…113e Line {l1=0x0b, l2=»2110NEXT I «, l3=0x0b}
0x113e…114b Line {l1=0x0b, l2=»2140ENDIF «, l3=0x0b}
0x114b…1157 Line {l1=0x0a, l2=»2150ELSE «, l3=0x0a}
0x1157…1170 Line {l1=0x17, l2=»2160EXEC CHECK(F0$,J4) «, l3=0x17}
0x1170…119b Line {l1=0x29, l2=»2170IF E8(G5)>B AND E8(G5)<>J4 THEN J4=B «, l3=0x29}
0x119b…11a8 Line {l1=0x0b, l2=»2180ENDIF «, l3=0x0b}
0x11a8…11ba Line {l1=0x10, l2=»2190UNTIL J4<>B «, l3=0x10}
0x11ba…11c9 Line {l1=0x0d, l2=»2200ENDPROC «, l3=0x0d}
0x11c9…11de Line {l1=0x13, l2=»2210PROC SKRIVPICT «, l3=0x13}
0x11de…11eb Line {l1=0x0b, l2=»2220CLEAR «, l3=0x0b}
0x11eb…120b Line {l1=0x1e, l2=»2230PRINT TAB(17);"Afregning" «, l3=0x1e}
0x120b…1218 Line {l1=0x0b, l2=»2240PRINT «, l3=0x0b}
0x1218…1225 Line {l1=0x0b, l2=»2250PRINT «, l3=0x0b}
0x1225…124e Line {l1=0x27, l2=»2260PRINT " Maksimum feriedage i året" «, l3=0x27}
0x124e…1280 Line {l1=0x30, l2=»2270PRINT " Lønperiodekode 1,2,3,4,5,6 eller 7" «, l3=0x30}
0x1280…12b2 Line {l1=0x30, l2=»2280PRINT " Arbejdere(A) eller funktionærer(F)" «, l3=0x30}
0x12b2…12bf Line {l1=0x0b, l2=»2290PRINT «, l3=0x0b}
0x12bf…12cc Line {l1=0x0b, l2=»2300PRINT «, l3=0x0b}
0x12cc…12d5 Line {l1=0x07, l2=»2310; «, l3=0x07}
0x12d5…12e2 Line {l1=0x0b, l2=»2320PRINT «, l3=0x0b}
0x12e2…1318 Line {l1=0x34, l2=»2330PRINT " Feriepengeopgørelse: start-slutdag" «, l3=0x34}
0x1318…1339 Line {l1=0x1f, l2=»2340PRINT " Feriekode 1/lønnr" «, l3=0x1f}
0x1339…135a Line {l1=0x1f, l2=»2350PRINT " Feriekode 2/lønnr" «, l3=0x1f}
0x135a…137b Line {l1=0x1f, l2=»2360PRINT " Feriekode 3/lønnr" «, l3=0x1f}
0x137b…138a Line {l1=0x0d, l2=»2420ENDPROC «, l3=0x0d}
0x138a…13a5 Line {l1=0x19, l2=»2600PROC CONVDATE(I1,I2) «, l3=0x19}
0x13a5…13b8 Line {l1=0x11, l2=»2610K0=I2;I1$="" «, l3=0x11}
0x13b8…13d3 Line {l1=0x19, l2=»2620FOR I=6 TO E STEP -E «, l3=0x19}
0x13d3…13f2 Line {l1=0x1d, l2=»2625I1$(I)=CHR(K0 MOD 10+48) «, l3=0x1d}
0x13f2…1405 Line {l1=0x11, l2=»2633K0=K0 DIV 10 «, l3=0x11}
0x1405…1412 Line {l1=0x0b, l2=»2690NEXT I «, l3=0x0b}
0x1412…1421 Line {l1=0x0d, l2=»2700ENDPROC «, l3=0x0d}
0x1421…1435 Line {l1=0x12, l2=»2710PROC Æ(I1,I2) «, l3=0x12}
0x1435…144e Line {l1=0x17, l2=»2720I1$=" 0+" «, l3=0x17}
0x144e…1463 Line {l1=0x13, l2=»2730IF I2<>B THEN «, l3=0x13}
0x1463…14a4 Line {l1=0x3f, l2=»2740I1$(W,10)=",0";I0=ABS(I2);K0=INT((I0-INT(I0))*100+0.50001) «, l3=0x3f}
0x14a4…14c3 Line {l1=0x1d, l2=»2770IF I2<B THEN I1$(12)="-" «, l3=0x1d}
0x14c3…14df Line {l1=0x1a, l2=»2780FOR I=11 TO E STEP -E «, l3=0x1a}
0x14df…14f3 Line {l1=0x12, l2=»2790IF I<>W THEN «, l3=0x12}
0x14f3…1512 Line {l1=0x1d, l2=»2800I1$(I)=CHR(K0 MOD 10+48) «, l3=0x1d}
0x1512…1525 Line {l1=0x11, l2=»2810K0=K0 DIV 10 «, l3=0x11}
0x1525…1545 Line {l1=0x1e, l2=»2820IF K0=B AND I<10 THEN I=B «, l3=0x1e}
0x1545…1551 Line {l1=0x0a, l2=»2830ELSE «, l3=0x0a}
0x1551…1562 Line {l1=0x0f, l2=»2840K0=INT(I0) «, l3=0x0f}
0x1562…156f Line {l1=0x0b, l2=»2850ENDIF «, l3=0x0b}
0x156f…157c Line {l1=0x0b, l2=»2860NEXT I «, l3=0x0b}
0x157c…1589 Line {l1=0x0b, l2=»2870ENDIF «, l3=0x0b}
0x1589…1598 Line {l1=0x0d, l2=»2880ENDPROC «, l3=0x0d}
0x1598…15b2 Line {l1=0x18, l2=»2890PROC PERVERT(I1,I2) «, l3=0x18}
0x15b2…15bd Line {l1=0x09, l2=»2900I2=B «, l3=0x09}
0x15bd…15d9 Line {l1=0x1a, l2=»2910FOR I=E TO LEN(I1$)-E «, l3=0x1a}
0x15d9…161b Line {l1=0x40, l2=»2920IF I1$(I)<>" " AND I1$(I)<>"," THEN I2=10*I2+ORD(I1$(I))-48 «, l3=0x40}
0x161b…1628 Line {l1=0x0b, l2=»2930NEXT I «, l3=0x0b}
0x1628…1648 Line {l1=0x1e, l2=»2940IF I1$(I)="-" THEN I2=-I2 «, l3=0x1e}
0x1648…1658 Line {l1=0x0e, l2=»2950I2=I2/100 «, l3=0x0e}
0x1658…1667 Line {l1=0x0d, l2=»2960ENDPROC «, l3=0x0d}
0x1667…167c Line {l1=0x13, l2=»2970PROC SKRIVBUND «, l3=0x13}
0x167c…169c Line {l1=0x1e, l2=»2980PAGE$(16,PS+5:7)=D3$(E,7) «, l3=0x1e}
0x169c…16be Line {l1=0x20, l2=»2990PAGE$(17,PS+5:25)=D3$(8,32) «, l3=0x20}
0x16be…16e1 Line {l1=0x21, l2=»3000PAGE$(18,PS+5:23)=D3$(33,55) «, l3=0x21}
0x16e1…1710 Line {l1=0x2d, l2=»3010PAGE$(19,PS+5:19)=D4$(E,4)+" "+D4$(5,18) «, l3=0x2d}
0x1710…1724 Line {l1=0x12, l2=»3020IF PS=E THEN «, l3=0x12}
0x1724…1730 Line {l1=0x0a, l2=»3030PS=38 «, l3=0x0a}
0x1730…173c Line {l1=0x0a, l2=»3040ELSE «, l3=0x0a}
0x173c…1751 Line {l1=0x13, l2=»3050EXEC SKRIVPAGE «, l3=0x13}
0x1751…175c Line {l1=0x09, l2=»3060PS=E «, l3=0x09}
0x175c…1769 Line {l1=0x0b, l2=»3070ENDIF «, l3=0x0b}
0x1769…1778 Line {l1=0x0d, l2=»3080ENDPROC «, l3=0x0d}
0x1778…1784 Line {l1=0x0a, l2=»3085TAP=W «, l3=0x0a}
0x1784…1799 Line {l1=0x13, l2=»3090PROC SKRIVPAGE «, l3=0x13}
0x1799…17a6 Line {l1=0x0b, l2=»3092LINE=E «, l3=0x0b}
0x17a6…17b3 Line {l1=0x0b, l2=»3094PRINT «, l3=0x0b}
0x17b3…17c1 Line {l1=0x0c, l2=»3096EXEC SL «, l3=0x0c}
0x17c1…17cf Line {l1=0x0c, l2=»3098EXEC SL «, l3=0x0c}
0x17cf…17dd Line {l1=0x0c, l2=»3100EXEC SL «, l3=0x0c}
0x17dd…17ea Line {l1=0x0b, l2=»3102PRINT «, l3=0x0b}
0x17ea…17f8 Line {l1=0x0c, l2=»3104EXEC SL «, l3=0x0c}
0x17f8…1806 Line {l1=0x0c, l2=»3106EXEC SL «, l3=0x0c}
0x1806…1814 Line {l1=0x0c, l2=»3108EXEC SL «, l3=0x0c}
0x1814…1822 Line {l1=0x0c, l2=»3110EXEC SL «, l3=0x0c}
0x1822…182f Line {l1=0x0b, l2=»3112PRINT «, l3=0x0b}
0x182f…183d Line {l1=0x0c, l2=»3114EXEC SL «, l3=0x0c}
0x183d…184b Line {l1=0x0c, l2=»3116EXEC SL «, l3=0x0c}
0x184b…1858 Line {l1=0x0b, l2=»3118PRINT «, l3=0x0b}
0x1858…1866 Line {l1=0x0c, l2=»3120EXEC SL «, l3=0x0c}
0x1866…1873 Line {l1=0x0b, l2=»3122PRINT «, l3=0x0b}
0x1873…1881 Line {l1=0x0c, l2=»3124EXEC SL «, l3=0x0c}
0x1881…188e Line {l1=0x0b, l2=»3126PRINT «, l3=0x0b}
0x188e…189c Line {l1=0x0c, l2=»3128EXEC SL «, l3=0x0c}
0x189c…18a9 Line {l1=0x0b, l2=»3130PRINT «, l3=0x0b}
0x18a9…18b7 Line {l1=0x0c, l2=»3132EXEC SL «, l3=0x0c}
0x18b7…18c4 Line {l1=0x0b, l2=»3134PRINT «, l3=0x0b}
0x18c4…18d2 Line {l1=0x0c, l2=»3136EXEC SL «, l3=0x0c}
0x18d2…18df Line {l1=0x0b, l2=»3138PRINT «, l3=0x0b}
0x18df…18ed Line {l1=0x0c, l2=»3140EXEC SL «, l3=0x0c}
0x18ed…18fa Line {l1=0x0b, l2=»3142PRINT «, l3=0x0b}
0x18fa…1908 Line {l1=0x0c, l2=»3144EXEC SL «, l3=0x0c}
0x1908…1916 Line {l1=0x0c, l2=»3146EXEC SL «, l3=0x0c}
0x1916…1924 Line {l1=0x0c, l2=»3148EXEC SL «, l3=0x0c}
0x1924…1932 Line {l1=0x0c, l2=»3150EXEC SL «, l3=0x0c}
0x1932…193f Line {l1=0x0b, l2=»3152PRINT «, l3=0x0b}
0x193f…1948 Line {l1=0x07, l2=»3154; «, l3=0x07}
0x1948…1951 Line {l1=0x07, l2=»3156; «, l3=0x07}
0x1951…195a Line {l1=0x07, l2=»3158; «, l3=0x07}
0x195a…196e Line {l1=0x12, l2=»3160FOR I=E TO 19 «, l3=0x12}
0x196e…1987 Line {l1=0x17, l2=»3162PAGE$(I)=E9$(E,68) «, l3=0x17}
0x1987…1994 Line {l1=0x0b, l2=»3164NEXT I «, l3=0x0b}
0x1994…19a3 Line {l1=0x0d, l2=»3166ENDPROC «, l3=0x0d}
0x19a3…19b1 Line {l1=0x0c, l2=»3170PROC SL «, l3=0x0c}
0x19b1…19d2 Line {l1=0x1f, l2=»3180PRINT TAB(TAP);PAGE$(LINE) «, l3=0x1f}
0x19d2…19e4 Line {l1=0x10, l2=»3190LINE=LINE+E «, l3=0x10}
0x19e4…19f3 Line {l1=0x0d, l2=»3200ENDPROC «, l3=0x0d}
0x19f3…1a09 Line {l1=0x14, l2=»3240PROC SKRIVHOVED «, l3=0x14}
0x1a09…1a24 Line {l1=0x19, l2=»3250PAGE$(E,PS+24:G)=ÅR$ «, l3=0x19}
0x1a24…1a3f Line {l1=0x19, l2=»3255PAGE$(G,PS+24:E)=KV$ «, l3=0x19}
0x1a3f…1a59 Line {l1=0x18, l2=»3260EXEC CONV(C3$,G6,6) «, l3=0x18}
0x1a59…1a73 Line {l1=0x18, l2=»3265EXEC CONV(F1$,G7,4) «, l3=0x18}
0x1a73…1a85 Line {l1=0x10, l2=»3270C3$=C3$+F1$ «, l3=0x10}
0x1a85…1aa1 Line {l1=0x1a, l2=»3275PAGE$(V,PS+10:10)=C3$ «, l3=0x1a}
0x1aa1…1abb Line {l1=0x18, l2=»3280EXEC CONV(C3$,F8,4) «, l3=0x18}
0x1abb…1ad5 Line {l1=0x18, l2=»3285PAGE$(4,PS+5:4)=C3$ «, l3=0x18}
0x1ad5…1af6 Line {l1=0x1f, l2=»3290PAGE$(5,PS+5:25)=D1$(E,25) «, l3=0x1f}
0x1af6…1b18 Line {l1=0x20, l2=»3292PAGE$(6,PS+5:23)=D1$(26,48) «, l3=0x20}
0x1b18…1b46 Line {l1=0x2c, l2=»3295PAGE$(7,PS+5:19)=D2$(E,4)+" "+D2$(5,18) «, l3=0x2c}
0x1b46…1b55 Line {l1=0x0d, l2=»3300ENDPROC «, l3=0x0d}
0x1b55…1b66 Line {l1=0x0f, l2=»3440PROC NÆSTE «, l3=0x0f}
0x1b66…1b74 Line {l1=0x0c, l2=»3450REPEAT «, l3=0x0c}
0x1b74…1b82 Line {l1=0x0c, l2=»3460F8=F8+E «, l3=0x0c}
0x1b82…1b8d Line {l1=0x09, l2=»3470H1=E «, l3=0x09}
0x1b8d…1ba3 Line {l1=0x14, l2=»3480IF F8<=I9 THEN «, l3=0x14}
0x1ba3…1bbb Line {l1=0x16, l2=»3490EXEC INLØNMOD(F8) «, l3=0x16}
0x1bbb…1bdb Line {l1=0x1e, l2=»3500IF A9$<>D2$(21) THEN H1=B «, l3=0x1e}
0x1bdb…1c0a Line {l1=0x2d, l2=»3510IF B0$="A" AND D2$(24,25)>"89" THEN H1=B «, l3=0x2d}
0x1c0a…1c39 Line {l1=0x2d, l2=»3520IF B0$="F" AND D2$(24,25)<"90" THEN H1=B «, l3=0x2d}
0x1c39…1c46 Line {l1=0x0b, l2=»3530ENDIF «, l3=0x0b}
0x1c46…1c57 Line {l1=0x0f, l2=»3540UNTIL H1>B «, l3=0x0f}
0x1c57…1c66 Line {l1=0x0d, l2=»3550ENDPROC «, l3=0x0d}
0x1c66…1c7d Line {l1=0x15, l2=»3560PROC BEREGNFERIE «, l3=0x15}
0x1c7d…1c93 Line {l1=0x14, l2=»3570EXEC SKRIVHOVED «, l3=0x14}
0x1c93…1ca5 Line {l1=0x10, l2=»3580EXEC INDTÆL «, l3=0x10}
0x1ca5…1cb1 Line {l1=0x0a, l2=»3585K4=H1 «, l3=0x0a}
0x1cb1…1cd3 Line {l1=0x20, l2=»3590IF A4(K3)>H1 THEN K4=A4(K3) «, l3=0x20}
0x1cd3…1cdf Line {l1=0x0a, l2=»3595K5=H6 «, l3=0x0a}
0x1cdf…1d09 Line {l1=0x28, l2=»3640IF A5(K3)<H6 OR H6=B THEN K5=A5(K3) «, l3=0x28}
0x1d09…1d28 Line {l1=0x1d, l2=»3690K6=K5 MOD 100-K4 MOD 100 «, l3=0x1d}
0x1d28…1d5f Line {l1=0x35, l2=»3700K6=K6+30*(K5 DIV 100 MOD 100-K4 DIV 100 MOD 100) «, l3=0x35}
0x1d5f…1d7f Line {l1=0x1e, l2=»3705K7=INT(G*I7*K6/365+0.5)/G «, l3=0x1e}
0x1d7f…1dab Line {l1=0x2a, l2=»3710K6=K6+365*(K5 DIV 10000-K4 DIV 10000) «, l3=0x2a}
0x1dab…1dc6 Line {l1=0x19, l2=»3720IF A9$="1" THEN K7=B «, l3=0x19}
0x1dc6…1ddb Line {l1=0x13, l2=»3770EXEC Æ(C3$,K7) «, l3=0x13}
0x1ddb…1ded Line {l1=0x10, l2=»3800C4$=C5$(29) «, l3=0x10}
0x1ded…1e09 Line {l1=0x1a, l2=»3810EXEC C(0,C3$,C4$,F1$) «, l3=0x1a}
0x1e09…1e21 Line {l1=0x16, l2=»3820C5$(29)=F1$(G:11) «, l3=0x16}
0x1e21…1e35 Line {l1=0x12, l2=»3830IF K3=V THEN «, l3=0x12}
0x1e35…1e4a Line {l1=0x13, l2=»3840EXEC Æ(C3$,I7) «, l3=0x13}
0x1e4a…1e66 Line {l1=0x1a, l2=»3850EXEC C(4,F1$,C3$,C4$) «, l3=0x1a}
0x1e66…1e81 Line {l1=0x19, l2=»3860IF SI=G THEN F1$=C3$ «, l3=0x19}
0x1e81…1e8e Line {l1=0x0b, l2=»3870ENDIF «, l3=0x0b}
0x1e8e…1ea0 Line {l1=0x10, l2=»3873C4$=C5$(44) «, l3=0x10}
0x1ea0…1ebc Line {l1=0x1a, l2=»3876EXEC C(0,C4$,F1$,C4$) «, l3=0x1a}
0x1ebc…1ed4 Line {l1=0x16, l2=»3880C5$(44)=C4$(G:11) «, l3=0x16}
0x1ed4…1efc Line {l1=0x26, l2=»3890IF K4<>A4(K3) OR K5<>A5(K3) THEN «, l3=0x26}
0x1efc…1f18 Line {l1=0x1a, l2=»3910EXEC CONVDATE(C4$,K4) «, l3=0x1a}
0x1f18…1f32 Line {l1=0x18, l2=»3920PAGE$(W,PS+5:6)=C4$ «, l3=0x18}
0x1f32…1f4e Line {l1=0x1a, l2=»3930EXEC CONVDATE(C4$,K5) «, l3=0x1a}
0x1f4e…1f69 Line {l1=0x19, l2=»3940PAGE$(W,PS+14:6)=C4$ «, l3=0x19}
0x1f69…1f75 Line {l1=0x0a, l2=»3945ELSE «, l3=0x0a}
0x1f75…1f91 Line {l1=0x1a, l2=»3950PAGE$(8,PS+22:G)="**" «, l3=0x1a}
0x1f91…1f9e Line {l1=0x0b, l2=»3960ENDIF «, l3=0x0b}
0x1f9e…1fca Line {l1=0x2a, l2=»3990IF C5$(16,11)="+" THEN C5$(16,11)=" " «, l3=0x2a}
0x1fca…1feb Line {l1=0x1f, l2=»4000PAGE$(10,PS+20:11)=C5$(16) «, l3=0x1f}
0x1feb…2003 Line {l1=0x16, l2=»4010C5$(16)=B3$(G:11) «, l3=0x16}
0x2003…201c Line {l1=0x17, l2=»4025EXEC OP(8,C5$(20)) «, l3=0x17}
0x201c…2039 Line {l1=0x1b, l2=»4030PAGE$(11,PS+15:G)="16" «, l3=0x1b}
0x2039…205a Line {l1=0x1f, l2=»4040PAGE$(11,PS+20:11)=C5$(20) «, l3=0x1f}
0x205a…2073 Line {l1=0x17, l2=»4055EXEC OP(9,C5$(17)) «, l3=0x17}
0x2073…2094 Line {l1=0x1f, l2=»4060PAGE$(12,PS+20:11)=C5$(17) «, l3=0x1f}
0x2094…20ca Line {l1=0x34, l2=»4070IF PAGE$(12,PS+30)="+" THEN PAGE$(12,PS+30)=" " «, l3=0x34}
0x20ca…20de Line {l1=0x12, l2=»4080IF H0>B THEN «, l3=0x12}
0x20de…20f3 Line {l1=0x13, l2=»4090EXEC Æ(C3$,H0) «, l3=0x13}
0x20f3…20ff Line {l1=0x0a, l2=»4100ELSE «, l3=0x0a}
0x20ff…2117 Line {l1=0x16, l2=»4110K8=INT(G9*12/365) «, l3=0x16}
0x2117…212c Line {l1=0x13, l2=»4120EXEC Æ(C4$,K8) «, l3=0x13}
0x212c…213e Line {l1=0x10, l2=»4125F1$=C5$(29) «, l3=0x10}
0x213e…215a Line {l1=0x1a, l2=»4130EXEC C(2,F1$,C4$,C3$) «, l3=0x1a}
0x215a…2167 Line {l1=0x0b, l2=»4140ENDIF «, l3=0x0b}
0x2167…21a9 Line {l1=0x40, l2=»4150B1$=C5$(20);C4$=C5$(17);C5$(20)=B3$(G:11);C5$(17)=B3$(G:11) «, l3=0x40}
0x21a9…21bf Line {l1=0x14, l2=»4160C5$(29)=C5$(20) «, l3=0x14}
0x21bf…21db Line {l1=0x1a, l2=»4190EXEC C(0,B1$,C4$,B1$) «, l3=0x1a}
0x21db…21f4 Line {l1=0x17, l2=»4200EXEC OPTÆL(34,B1$) «, l3=0x17}
0x21f4…2217 Line {l1=0x21, l2=»4250PAGE$(13,PS+20:11)=B1$(G:11) «, l3=0x21}
0x2217…2233 Line {l1=0x1a, l2=»4260EXEC C(4,B1$,C3$,C4$) «, l3=0x1a}
0x2233…2253 Line {l1=0x1e, l2=»4280PAGE$(14,PS:10)=C3$(V:10) «, l3=0x1e}
0x2253…2287 Line {l1=0x32, l2=»4285IF PAGE$(14,PS+W)="+" THEN PAGE$(14,PS+W)=" " «, l3=0x32}
0x2287…229b Line {l1=0x12, l2=»4290IF SI=G THEN «, l3=0x12}
0x229b…22b7 Line {l1=0x1a, l2=»4300EXEC C(1,B1$,C3$,C4$) «, l3=0x1a}
0x22b7…22c2 Line {l1=0x09, l2=»4310H0=B «, l3=0x09}
0x22c2…22d7 Line {l1=0x13, l2=»4320EXEC Æ(C3$,G8) «, l3=0x13}
0x22d7…22e9 Line {l1=0x10, l2=»4335C3$(12)="-" «, l3=0x10}
0x22e9…2305 Line {l1=0x1a, l2=»4340EXEC C(2,C4$,C3$,B2$) «, l3=0x1a}
0x2305…2321 Line {l1=0x1a, l2=»4350EXEC C(3,B2$,B4$,B2$) «, l3=0x1a}
0x2321…2337 Line {l1=0x14, l2=»4355B2$(10,11)="00" «, l3=0x14}
0x2337…2353 Line {l1=0x1a, l2=»4360EXEC C(0,B1$,B2$,C0$) «, l3=0x1a}
0x2353…235f Line {l1=0x0a, l2=»4370ELSE «, l3=0x0a}
0x235f…236d Line {l1=0x0c, l2=»4380B2$=B3$ «, l3=0x0c}
0x236d…237b Line {l1=0x0c, l2=»4390C0$=B1$ «, l3=0x0c}
0x237b…238f Line {l1=0x12, l2=»4400IF H0>B THEN «, l3=0x12}
0x238f…23ab Line {l1=0x1a, l2=»4410EXEC C(1,C3$,B1$,C3$) «, l3=0x1a}
0x23ab…23c6 Line {l1=0x19, l2=»4420EXEC PERVERT(C3$,H0) «, l3=0x19}
0x23c6…23d3 Line {l1=0x0b, l2=»4430ENDIF «, l3=0x0b}
0x23d3…23e0 Line {l1=0x0b, l2=»4440ENDIF «, l3=0x0b}
0x23e0…23f9 Line {l1=0x17, l2=»4441EXEC OPTÆL(40,B2$) «, l3=0x17}
0x23f9…240f Line {l1=0x14, l2=»4442EXEC OP(10,B2$) «, l3=0x14}
0x240f…2432 Line {l1=0x21, l2=»4470PAGE$(14,PS+20:11)=B2$(G:11) «, l3=0x21}
0x2432…2455 Line {l1=0x21, l2=»4480PAGE$(15,PS+20:11)=C0$(G:11) «, l3=0x21}
0x2455…2464 Line {l1=0x0d, l2=»4520ENDPROC «, l3=0x0d}
0x2464…2478 Line {l1=0x12, l2=»4530PROC BEREGNSH «, l3=0x12}
0x2478…2492 Line {l1=0x18, l2=»4635EXEC OP(11,C5$(23)) «, l3=0x18}
0x2492…24b6 Line {l1=0x22, l2=»4660C3$=C5$(23);C5$(23)=B3$(G:11) «, l3=0x22}
0x24b6…24cc Line {l1=0x14, l2=»4670C4$=" "+C5$(26) «, l3=0x14}
0x24cc…24fc Line {l1=0x2e, l2=»4675IF C4$(12)="+" THEN EXEC C(1,B3$,C4$,C4$) «, l3=0x2e}
0x24fc…2512 Line {l1=0x14, l2=»4685EXEC OP(12,C4$) «, l3=0x14}
0x2512…252a Line {l1=0x16, l2=»4710C5$(26)=B3$(G:11) «, l3=0x16}
0x252a…2546 Line {l1=0x1a, l2=»4720EXEC C(0,C3$,C4$,B1$) «, l3=0x1a}
0x2546…255f Line {l1=0x17, l2=»4730EXEC OPTÆL(34,B1$) «, l3=0x17}
0x255f…2574 Line {l1=0x13, l2=»4780EXEC Æ(C3$,G8) «, l3=0x13}
0x2574…2595 Line {l1=0x1f, l2=»4782PAGE$(14,PS+10:5)=C3$(6:5) «, l3=0x1f}
0x2595…25a7 Line {l1=0x10, l2=»4785C3$(12)="-" «, l3=0x10}
0x25a7…25c2 Line {l1=0x19, l2=»4790IF B1$(12)="+" THEN «, l3=0x19}
0x25c2…25de Line {l1=0x1a, l2=»4810EXEC C(2,C3$,B1$,C1$) «, l3=0x1a}
0x25de…25fa Line {l1=0x1a, l2=»4820EXEC C(3,C1$,B4$,C1$) «, l3=0x1a}
0x25fa…2610 Line {l1=0x14, l2=»4830C1$(10,11)="00" «, l3=0x14}
0x2610…2629 Line {l1=0x17, l2=»4840EXEC OPTÆL(40,C1$) «, l3=0x17}
0x2629…2635 Line {l1=0x0a, l2=»4860ELSE «, l3=0x0a}
0x2635…2643 Line {l1=0x0c, l2=»4880C1$=B3$ «, l3=0x0c}
0x2643…2650 Line {l1=0x0b, l2=»4890ENDIF «, l3=0x0b}
0x2650…266d Line {l1=0x1b, l2=»4892F1$=PAGE$(11,PS+20:11) «, l3=0x1b}
0x266d…2689 Line {l1=0x1a, l2=»4894EXEC C(0,F1$,B1$,F1$) «, l3=0x1a}
0x2689…26af Line {l1=0x24, l2=»4896IF F1$(12)="+" THEN F1$(12)=" " «, l3=0x24}
0x26af…26d2 Line {l1=0x21, l2=»4898PAGE$(11,PS+20:11)=F1$(G:11) «, l3=0x21}
0x26d2…26ef Line {l1=0x1b, l2=»4900F1$=PAGE$(13,PS+20:11) «, l3=0x1b}
0x26ef…270b Line {l1=0x1a, l2=»4902EXEC C(0,F1$,B1$,F1$) «, l3=0x1a}
0x270b…2731 Line {l1=0x24, l2=»4904IF F1$(12)="+" THEN F1$(12)=" " «, l3=0x24}
0x2731…2754 Line {l1=0x21, l2=»4906PAGE$(13,PS+20:11)=F1$(G:11) «, l3=0x21}
0x2754…276a Line {l1=0x14, l2=»4915EXEC OP(13,C1$) «, l3=0x14}
0x276a…2787 Line {l1=0x1b, l2=»4920F1$=PAGE$(14,PS+20:11) «, l3=0x1b}
0x2787…27a3 Line {l1=0x1a, l2=»4922EXEC C(0,F1$,C1$,F1$) «, l3=0x1a}
0x27a3…27c9 Line {l1=0x24, l2=»4924IF F1$(12)="+" THEN F1$(12)=" " «, l3=0x24}
0x27c9…27ec Line {l1=0x21, l2=»4926PAGE$(14,PS+20:11)=F1$(G:11) «, l3=0x21}
0x27ec…2808 Line {l1=0x1a, l2=»4950EXEC C(0,C1$,B1$,C2$) «, l3=0x1a}
0x2808…2825 Line {l1=0x1b, l2=»4960F1$=PAGE$(15,PS+20:11) «, l3=0x1b}
0x2825…2841 Line {l1=0x1a, l2=»4962EXEC C(0,F1$,C2$,F1$) «, l3=0x1a}
0x2841…2867 Line {l1=0x24, l2=»4964IF F1$(12)="+" THEN F1$(12)=" " «, l3=0x24}
0x2867…288a Line {l1=0x21, l2=»4966PAGE$(15,PS+20:11)=F1$(G:11) «, l3=0x21}
0x288a…2899 Line {l1=0x0d, l2=»5000ENDPROC «, l3=0x0d}
0x2899…28ae Line {l1=0x13, l2=»8181D8$="P641220:" «, l3=0x13}
0x28ae…28c3 Line {l1=0x13, l2=»8182E1$="P641210:" «, l3=0x13}
0x28c3…28dc Line {l1=0x17, l2=»8190C9$=D8$+"VIRKKART" «, l3=0x17}
0x28dc…28ef Line {l1=0x11, l2=»8200EXEC INDVIRK «, l3=0x11}
0x28ef…28ff Line {l1=0x0e, l2=»8210CLOSE C9$ «, l3=0x0e}
0x28ff…2918 Line {l1=0x17, l2=»8220C9$=D8$+"LØNMODRG" «, l3=0x17}
0x2918…2929 Line {l1=0x0f, l2=»8230OPEN C9$,W «, l3=0x0f}
0x2929…2942 Line {l1=0x17, l2=»8260D0$=D8$+"TÆLLEREG" «, l3=0x17}
0x2942…2953 Line {l1=0x0f, l2=»8270OPEN D0$,W «, l3=0x0f}
0x2953…296b Line {l1=0x16, l2=»8291D9$=E1$+"LØNJOUR" «, l3=0x16}
0x296b…297c Line {l1=0x0f, l2=»8292OPEN D9$,W «, l3=0x0f}
0x297c…2991 Line {l1=0x13, l2=»8300EXEC SKRIVPICT «, l3=0x13}
0x2991…29a5 Line {l1=0x12, l2=»8310FOR J=4 TO 18 «, l3=0x12}
0x29a5…29bc Line {l1=0x15, l2=»8320IF J=7 THEN J=10 «, l3=0x15}
0x29bc…29d0 Line {l1=0x12, l2=»8330EXEC INOPL(J) «, l3=0x12}
0x29d0…29dd Line {l1=0x0b, l2=»8340NEXT J «, l3=0x0b}
0x29dd…29eb Line {l1=0x0c, l2=»8343ÅR$=" " «, l3=0x0c}
0x29eb…2a21 Line {l1=0x34, l2=»8345EDIT "Monter BKL's ferieopgørelser, RETURN",ÅR$ «, l3=0x34}
0x2a21…2a2c Line {l1=0x09, l2=»8350PS=E «, l3=0x09}
0x2a2c…2a3b Line {l1=0x0d, l2=»8355ÅR$="82" «, l3=0x0d}
0x2a3b…2a49 Line {l1=0x0c, l2=»8356KV$="1" «, l3=0x0c}
0x2a49…2a5e Line {l1=0x13, l2=»8357EDIT "År ",ÅR$ «, l3=0x13}
0x2a5e…2a78 Line {l1=0x18, l2=»8358EDIT "Kvartal ",KV$ «, l3=0x18}
0x2a78…2a83 Line {l1=0x09, l2=»8360F8=B «, l3=0x09}
0x2a83…2a98 Line {l1=0x13, l2=»8365A7$="00-00-00" «, l3=0x13}
0x2a98…2aa6 Line {l1=0x0c, l2=»8366A8$=A7$ «, l3=0x0c}
0x2aa6…2ab4 Line {l1=0x0c, l2=»8370F0$=E9$ «, l3=0x0c}
0x2ab4…2ad2 Line {l1=0x1c, l2=»8372PUT D9$:A7$,A8$,A9$,B0$ «, l3=0x1c}
0x2ad2…2ae1 Line {l1=0x0d, l2=»8380OUTPUT P «, l3=0x0d}
0x2ae1…2aef Line {l1=0x0c, l2=»8390REPEAT «, l3=0x0c}
0x2aef…2b00 Line {l1=0x0f, l2=»8400EXEC NÆSTE «, l3=0x0f}
0x2b00…2b0e Line {l1=0x0c, l2=»8410L3,K9=B «, l3=0x0c}
0x2b0e…2b24 Line {l1=0x14, l2=»8420IF F8<=I9 THEN «, l3=0x14}
0x2b24…2b38 Line {l1=0x12, l2=»8540IF E4=E THEN «, l3=0x12}
0x2b38…2b51 Line {l1=0x17, l2=»8550K3=ORD(D2$(22))-48 «, l3=0x17}
0x2b51…2b65 Line {l1=0x12, l2=»8560IF K3<4 THEN «, l3=0x12}
0x2b65…2b8b Line {l1=0x24, l2=»8570IF A2(K3)=F8 OR A2(K3)=-E THEN «, l3=0x24}
0x2b8b…2ba2 Line {l1=0x15, l2=»8580EXEC BEREGNFERIE «, l3=0x15}
0x2ba2…2bb6 Line {l1=0x12, l2=»8585EXEC BEREGNSH «, l3=0x12}
0x2bb6…2bc1 Line {l1=0x09, l2=»8590K9=E «, l3=0x09}
0x2bc1…2bce Line {l1=0x0b, l2=»8600ENDIF «, l3=0x0b}
0x2bce…2bdb Line {l1=0x0b, l2=»8610ENDIF «, l3=0x0b}
0x2bdb…2be8 Line {l1=0x0b, l2=»8620ENDIF «, l3=0x0b}
0x2be8…2bfc Line {l1=0x12, l2=»8815IF K9>B THEN «, l3=0x12}
0x2bfc…2c11 Line {l1=0x13, l2=»8820EXEC SKRIVBUND «, l3=0x13}
0x2c11…2c29 Line {l1=0x16, l2=»8830EXEC UDLØNMOD(F8) «, l3=0x16}
0x2c29…2c3a Line {l1=0x0f, l2=»8840EXEC UDTÆL «, l3=0x0f}
0x2c3a…2c47 Line {l1=0x0b, l2=»8845ENDIF «, l3=0x0b}
0x2c47…2c54 Line {l1=0x0b, l2=»8850ENDIF «, l3=0x0b}
0x2c54…2c67 Line {l1=0x11, l2=»8860UNTIL F8=>I9 «, l3=0x11}
0x2c67…2c9f Line {l1=0x36, l2=»8862PUT D9$:E2$(E),E2$(G),E2$(V),E2$(4),E2$(5),E2$(6) «, l3=0x36}
0x2c9f…2cda Line {l1=0x39, l2=»8864PUT D9$:E2$(7),E2$(8),E2$(W),E2$(10),E2$(11),E2$(12) «, l3=0x39}
0x2cda…2d08 Line {l1=0x2c, l2=»8866PUT D9$:E2$(13),E2$(14),E2$(15),E2$(16) «, l3=0x2c}
0x2d08…2d2a Line {l1=0x20, l2=»8869IF PS>E THEN EXEC SKRIVPAGE «, l3=0x20}
0x2d2a…2d37 Line {l1=0x0b, l2=»8870CLOSE «, l3=0x0b}
0x2d37…2d46 Line {l1=0x0d, l2=»8875OUTPUT T «, l3=0x0d}
0x2d46…2d71 Line {l1=0x29, l2=»8877EDIT "Monter listepapir, RETURN",E9$ «, l3=0x29}
0x2d71…2d8f Line {l1=0x1c, l2=»8880CHAIN "P641210:JOURNAL" «, l3=0x1c}
0x2d8f…2da0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x2da0…2dc0 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 ┆ ┆
[…0x1d…]