|
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: 25280 (0x62c0)
Types: TextFile
Notes: Mikados_K
Names: »ECLØN.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »ECLØN.K«
0100 DIM A1(3),A2(3),A3(3),A4(3),A5(3),A6(2),A7$(8),A8$(8),A9$(1),B0$(1) 0120 DIM RES$(15),OP1$(12),OP2$(12),B1$(12),B2$(12),B3$(12),B4$(12),B5$(12) 0130 DIM B6$(50),B7(10),B8$(10,37),B9$(8,11),C0$(12),C1$(12),C2$(12),C3$(12) 0140 DIM C4$(12),C5$(45,11),C6$(55),C7$(40),C8$(50),C9$(16),D0$(16),D1$(71) 0150 DIM D2$(27),D3$(55),D4$(34),D5$(29),D6$(37),D7$(16),D8$(16),D9$(16) 0160 DIM E0$(16),E1$(16),E2$(16,12),E6(21),E7(21),E8(21),E9$(79),F0$(79) 0162 DIM F1$(12),DD$(6),B61$(50),DAD$(6) 0163 TI=10;EL=11;AZ=28 0170 B3$=" 0+";B5$="6,00+";B4$="100,00+" 0171 FOR I=1 TO 16 0172 E2$(I)=B3$ 0173 NEXT I 0200 A6(1),A6(2),E3,E4,E5=0 0230 FOR I=1 TO 79 0240 E9$=E9$+" " 0250 NEXT I 0260 E6(1),E6(EL),E6(14),E6(17)=27;E6(2),E6(3),E6(12),E6(15),E6(18)=34 0280 E6(7)=29;E6(8)=33;E6(9)=37;E7(19)=17;E7(20)=18;E7(21)=19;E8(4)=-4 0300 E6(4)=36;E6(5),E6(6)=39;E6(TI),E6(13),E6(16),E6(19),E6(20),E6(21)=23 0310 E7(1),E7(2)=2;E7(3)=3;E7(4)=4;E7(5)=5;E7(6)=6;E7(7),E7(8),E7(9)=9 0320 E7(TI),E7(EL),E7(12)=12;E7(13),E7(14),E7(15)=13;E7(16),E7(17),E7(18)=14 0340 E8(1),E8(2),E8(EL),E8(12),E8(14),E8(15),E8(17),E8(18)=6;E8(5),E8(6)=-1 0350 E8(3),E8(7),E8(8),E8(9),E8(TI),E8(13),E8(16),E8(19),E8(20),E8(21)=0 0370 PROC C(F2,F3,F4,F5) 0380 RES$=F5$;OP1$=F3$;OP2$=F4$;SI=0;FLAG=0;ART=F2-6*(F2>5) 0390 CALL "DDE:REGN" 0400 IF F2<6 AND FLAG THEN STOP 0430 F5$=RES$ 0440 ENDPROC 0441 PROC OPTÆL(F6,F7) 0442 F1$=F7$;C2$=C5$(F6) 0443 EXEC C(0,C2$,F1$,F1$) 0444 C5$(F6)=F1$(2:EL) 0445 IF J5=73 AND C5$(F6,EL)="-" THEN C5$(F6)=B3$(2:EL) 0448 ENDPROC 0450 PROC UDTÆL 0460 J=9*(F8-1) 0470 FOR F9=1 TO 9 0480 FOR I=1 TO 5 0490 C6$((I-1)*EL+1:EL)=C5$((F9-1)*5+I) 0500 NEXT I 0510 PUT D0$,J+F9:C6$ 0520 NEXT F9 0530 EXEC F(-F8,-F9,D0$) 0540 ENDPROC 0550 PROC INDTÆL 0560 J=9*(F8-1) 0570 FOR F9=1 TO 9 0580 GET D0$,J+F9:C6$ 0590 FOR I=1 TO 5 0600 C5$((F9-1)*5+I)=C6$((I-1)*EL+1:EL) 0610 NEXT I 0620 NEXT F9 0630 EXEC F(F8,F9,D0$) 0640 ENDPROC 0641 PROC OP(F6,F7) 0642 F1$=F7$;C2$=E2$(F6) 0643 EXEC C(0,C2$,F1$,F1$) 0644 E2$(F6)=F1$ 0645 ENDPROC 0650 PROC DATOCHECK(G0,G1) 0660 G1=1 0670 G2=(ORD(G0$(1))-48)*TI+ORD(G0$(2))-48 0680 G3=(ORD(G0$(3))-48)*TI+ORD(G0$(4))-48 0690 G4=(ORD(G0$(5))-48)*TI+ORD(G0$(6))-48 0700 IF G4<1 OR G3<1 OR G3>12 OR G4>31 THEN G1=0 0710 IF G1=0 THEN EXIT 0720 CASE G3 OF 0730 WHEN 4,6,9,EL 0740 IF G4>30 THEN G1=0 0750 WHEN 2 0760 IF G4>29 THEN G1=0 0770 IF G4=29 AND G2 MOD 4<>0 THEN G1=0 0780 ENDCASE 0790 ENDPROC 0800 PROC INLØNMOD(G5) 0810 GET C9$,2*G5-1:D1$ 0820 GET C9$,2*G5:D2$,G6,G7,G8,G9,H0,H1,H2,H3,H4,H5,H6 0830 EXEC F(1,G5,C9$) 0840 ENDPROC 0850 PROC UDLØNMOD(G5) 0860 PUT C9$,2*G5-1:D1$ 0870 PUT C9$,2*G5:D2$,G6,G7,G8,G9,H0,H1,H2,H3,H4,H5,H6 0880 EXEC F(2,G5,C9$) 0890 ENDPROC 0900 PROC CONV(H7,H8,H9) 0910 I0=H8;H7$="" 0930 REPEAT 0940 H7$=CHR((I0 MOD TI)+48)+H7$;H9=H9-1;I0=I0 DIV TI 0970 IF H9<0 AND I0=0 THEN H9=0 0980 UNTIL H9=0 0990 ENDPROC 1000 PROC CHECK(I1,I2) 1010 I2,I3=0 1030 IF LEN(I1$)>0 THEN 1035 I4=1 1040 IF I1$(1)="-" THEN I4=-1;I2=1 1100 WHILE LEN(I1$)>I2 1110 I2=I2+1 1120 IF I1$(I2)<"0" OR I1$(I2)>"9" THEN I4=0;I2=LEN(I1$) 1160 I3=I3*TI+ORD(I1$(I2))-48 1170 ENDWHILE 1175 I3=I3*I4;I2=I2*I4 1190 IF I2<0 THEN I2=I2+1 1200 ENDIF 1210 ENDPROC 1211 PROC Ø 1212 REPEAT 1213 EXEC DATOCHECK(F0$,I) 1214 IF I=0 THEN EXEC INLINE(I5) 1215 UNTIL I=1 1216 ENDPROC 1220 PROC INOPL(I5) 1230 EXEC INLINE(I5) 1240 CASE I5 OF 1250 WHEN 1 1260 EXEC Ø 1300 EXEC CONVDATE(A7$,I3) 1310 WHEN 2 1320 EXEC Ø 1360 EXEC CONVDATE(A8$,I3) 1370 WHEN 3 1380 IF I3>0 THEN 1390 EXEC Ø 1430 ENDIF 1440 I6=I3;DD$=F0$ 1450 IF I6<>-1 THEN E3=1 1460 WHEN 4 1470 REPEAT 1480 F0$=F0$+"+" 1490 EXEC C(6,F0$,B3$,F1$) 1500 IF FLAG<>0 THEN EXEC INLINE(I5) 1510 UNTIL FLAG=0 1520 EXEC C(0,F0$,B3$,F1$) 1530 EXEC PERVERT(F1$,I7) 1540 WHEN 5 1550 WHILE F0$<"1" OR F0$>"7" 1560 EXEC INLINE(I5) 1570 ENDWHILE 1580 A9$=F0$ 1590 WHEN 6 1600 WHILE F0$<>"A" AND F0$<>"F" 1610 EXEC INLINE(I5) 1620 ENDWHILE 1630 B0$=F0$ 1640 WHEN 7,8,9 1650 A1(I5-6)=I3 1660 WHEN TI,13,16 1670 A2(I5 DIV 3-2)=I3 1680 IF I3<>0 THEN 1690 E4=1 1700 ELSE 1710 I5=I5+2 1720 ENDIF 1730 WHEN EL,14,17 1740 EXEC Ø 1780 A4(I5 DIV 3-2)=I3 1790 WHEN 12,15,18 1800 EXEC Ø 1840 A5(I5 DIV 3-3)=I3 1850 WHEN 19,20,21 1860 A3(I5-18)=I3 1865 IF I3<>0 THEN E5=1 1870 ENDCASE 1880 ENDPROC 1890 PROC INDVIRK 1900 OPEN C9$,R 1910 EXEC F(0,0,C9$) 1920 GET C9$,1:D3$ 1930 GET C9$,2:D4$,I8,I9,J0 1935 GET C9$,3:DAD$ 1940 ENDPROC 1950 PROC F(J1,J2,J3) 1960 IF STATUS(J3$)<>0 THEN 1970 OUTPUT T 1980 PRINT "FIL-FEJL ";J3$;STATUS(J3$),J1;J2 1990 STOP 2000 ENDIF 2010 ENDPROC 2020 PROC INLINE(G5) 2030 REPEAT 2040 CURSOR E6(G5),E7(G5) 2050 INPUT "",F0$ 2060 IF E8(G5)<0 THEN 2065 J4=0 2070 IF LEN(F0$)<=ABS(E8(G5)) THEN 2080 J4=1 2090 FOR I=LEN(F0$)+1 TO ABS(E8(G5)) 2100 F0$(I)=" " 2110 NEXT I 2140 ENDIF 2150 ELSE 2160 EXEC CHECK(F0$,J4) 2170 IF E8(G5)>0 AND E8(G5)<>J4 THEN J4=0 2180 ENDIF 2190 UNTIL J4<>0 2200 ENDPROC 2210 PROC SKRIVPICT 2220 CLEAR 2230 PRINT TAB(17);"Afregning" 2240 PRINT " Lønperioden" 2250 PRINT " Dispositionsdato, lønoverførsel" 2260 PRINT " Maksimum feriedage i året" 2270 PRINT " Lønperiodekode 1,2,3,4,5,6 eller 7" 2280 PRINT " Arbejdere(A) eller funktionærer(F)" 2290 PRINT 2300 PRINT " Lønspecifikationer" 2310 PRINT " Gruppe/lønnr" 2320 PRINT 2330 PRINT " Feriepengeopgørelse: start-slutdag" 2340 PRINT " Feriekode 1/lønnr" 2350 PRINT " Feriekode 2/lønnr" 2360 PRINT " Feriekode 3/lønnr" 2370 PRINT 2380 PRINT " SH-opgørelse" 2390 PRINT " SH-kode 1/lønnr" 2400 PRINT " SH-kode 2/lønnr" 2410 PRINT " SH-kode 3/lønnr" 2420 ENDPROC 2430 PROC Å 2440 EXEC CONV(OP1$,J5,2) 2450 F0$(1)=D5$(29);F0$(2,3)=OP1$;F0$(5:20)=D5$(2,21) 2480 IF F0$(43)="+" THEN F0$(43)=" " 2490 IF F0$(54)="+" THEN F0$(54)=" " 2500 IF F0$(62)="+" THEN F0$(62)=" " 2510 PRINT F0$; 2520 J6=J6+1;F0$=E9$ 2540 ENDPROC 2550 PROC Z(G5) 2560 J5=G5 2570 GET D8$,G5:D5$,J7,J8,J9 2580 EXEC F(2,G5,D8$) 2590 ENDPROC 2600 PROC CONVDATE(I1,I2) 2610 K0=I2;I1$="" 2620 FOR I=8 TO 1 STEP -1 2625 I1$(I)=CHR(K0 MOD TI+48) 2630 IF I MOD 3=0 THEN 2631 I1$(I)="-" 2632 ELSE 2633 K0=K0 DIV TI 2634 ENDIF 2690 NEXT I 2700 ENDPROC 2710 PROC Æ(I1,I2) 2720 I1$=B3$ 2730 IF I2<>0 THEN 2740 I1$(9,TI)=",0";I0=ABS(I2);K0=INT((I0-INT(I0))*100+0.50001) 2770 IF I2<0 THEN I1$(12)="-" 2780 FOR I=EL TO 1 STEP -1 2790 IF I<>9 THEN 2800 I1$(I)=CHR(K0 MOD TI+48) 2810 K0=K0 DIV TI 2820 IF K0=0 AND I<TI THEN I=0 2830 ELSE 2840 K0=INT(I0) 2850 ENDIF 2860 NEXT I 2870 ENDIF 2880 ENDPROC 2890 PROC PERVERT(I1,I2) 2900 I2=0 2910 FOR I=1 TO LEN(I1$)-1 2920 IF I1$(I)<>" " AND I1$(I)<>"," THEN I2=TI*I2+ORD(I1$(I))-48 2930 NEXT I 2940 IF I1$(I)="-" THEN I2=-I2 2950 I2=I2/100 2960 ENDPROC 2970 PROC SKRIVBUND 2980 IF J6>0 THEN 2990 WHILE J6<K1-12 3000 PRINT 3010 J6=J6+1 3020 ENDWHILE 3030 EXEC CONV(C3$,G6,6) 3040 EXEC CONV(F1$,G7,4) 3050 C3$=C3$+F1$ 3060 PRINT TAB(EL);"LØNMODTAGER ";C3$; 3070 PRINT USING " ####":F8; 3080 PRINT TAB(44);"ARBEJDSGIVER ";D3$(1,7) 3090 PRINT 3100 PRINT 3110 PRINT TAB(13);D1$(1,25);TAB(46);D3$(8,32) 3120 PRINT TAB(13);D1$(26,48) 3130 PRINT TAB(13);D1$(49,71);TAB(46);D3$(33,55) 3140 PRINT TAB(13);D2$(1,4);" ";D2$(5,18);TAB(46);D4$(1,4);" "; 3150 PRINT D4$(5,18) 3160 J6=J6+7 3170 WHILE J6<K1 3180 PRINT 3190 J6=J6+1 3200 ENDWHILE 3210 J6=0 3220 ENDIF 3230 ENDPROC 3240 PROC SKRIVHOVED(G5) 3250 PRINT 3260 A6(G5)=A6(G5)+1 3270 PRINT USING " SIDE####":A6(G5); 3275 PRINT " UDSKRIFTSDATO ";DAD$; 3280 PRINT TAB(49);"LØNPERIODEN ";A7$;" / ";A8$; 3290 CASE G5 OF 3300 WHEN 1 3310 J6=6 3320 PRINT TAB(33);"LØNSPECIFIKATION" 3330 PRINT TAB(33);"****************" 3340 PRINT 3350 PRINT " LA TEKST";TAB(26);"NUMMER SALDO ENHEDER SATS "; 3360 PRINT "UDBETALT/TRUKKET"; 3370 WHEN 2 3380 J6=5 3390 PRINT TAB(29);"FERIE- OG SH-OPGØRELSE" 3400 PRINT TAB(29);"**********************" 3410 PRINT 3420 ENDCASE 3430 ENDPROC 3440 PROC NÆSTE 3450 REPEAT 3460 F8=F8+1 3470 H1=1 3480 IF F8<=I9 THEN 3490 EXEC INLØNMOD(F8) 3500 IF A9$<>D2$(21) THEN H1=0 3510 IF B0$="A" AND D2$(24,25)>"89" THEN H1=0 3520 IF B0$="F" AND D2$(24,25)<"90" THEN H1=0 3530 ENDIF 3540 UNTIL H1>0 3550 ENDPROC 3560 PROC BEREGNFERIE 3570 EXEC SKRIVHOVED(2) 3580 IF K2=0 THEN EXEC INDTÆL 3585 K4=H1 3590 IF A4(K3)>H1 THEN K4=A4(K3) 3595 K5=H6 3640 IF A5(K3)<H6 OR H6=0 THEN K5=A5(K3) 3690 K6=K5 MOD 100-K4 MOD 100 3700 K6=K6+30*(K5 DIV 100 MOD 100-K4 DIV 100 MOD 100) 3705 K7=INT(2*I7*K6/365+0.5)/2 3710 K6=K6+365*(K5 DIV 10000-K4 DIV 10000) 3720 IF A9$="1" THEN K7=0 3770 EXEC Æ(C3$,K7) 3800 C4$=C5$(29) 3810 EXEC C(0,C3$,C4$,F1$) 3820 C5$(29)=F1$(2:EL) 3830 IF K3=3 THEN 3840 EXEC Æ(C3$,I7) 3850 EXEC C(4,F1$,C3$,C4$) 3860 IF SI=2 THEN F1$=C3$ 3870 ENDIF 3873 C4$=C5$(44) 3876 EXEC C(0,C4$,F1$,C4$) 3880 C5$(44)=C4$(2:EL) 3890 PRINT " FERIEKODE ";D2$(22);" OR-KODE ";D2$(24,25);" FAGGR-KODE";H5 3910 EXEC CONVDATE(C4$,K4) 3920 PRINT " ANSAT FRA ";C4$;" TIL "; 3930 EXEC CONVDATE(C4$,K5) 3940 EXEC C(3,F1$,B5$,C3$) 3945 IF C3$(8)=" " THEN C3$(8)="0" 3950 PRINT C4$;" FERIEDAGE ";F1$(7,TI);" HERAF ";C3$(8);" LØRDAGE" 3960 PRINT 3970 PRINT " LA TEKST";TAB(38);"SALDO ENHEDER SATS UDBETALT/TRUKKET"; 3990 IF C5$(16,EL)="+" THEN C5$(16,EL)=" " 4000 PRINT TAB(5);"FERIEBERETT LØN";TAB(42);"0 ";C5$(16) 4010 C5$(16)=B3$(2:EL) 4020 EXEC Z(90) 4025 EXEC OP(8,C5$(20)) 4030 F0$(42)="0";F0$(44,54)=C5$(20) 4040 EXEC Å 4050 EXEC Z(91) 4055 EXEC OP(9,C5$(17)) 4060 F0$(42)="0";F0$(44,54)=C5$(17) 4070 EXEC Å 4080 IF H0>0 THEN 4090 EXEC Æ(C3$,H0) 4100 ELSE 4110 K8=INT(G9*12/365) 4120 EXEC Æ(C4$,K8) 4125 F1$=C5$(29) 4130 EXEC C(2,F1$,C4$,C3$) 4140 ENDIF 4150 B1$=C5$(20);C4$=C5$(17);C5$(20)=B3$(2:EL);C5$(17)=B3$(2:EL) 4160 C5$(29)=C5$(20) 4190 EXEC C(0,B1$,C4$,B1$) 4200 EXEC OPTÆL(34,B1$) 4230 EXEC Z(82) 4235 F0$(33,43)=C5$(34) 4240 F0$(64+(B1$(12)="-")*6:TI)=B1$(2:TI) 4250 EXEC Å 4260 EXEC C(4,B1$,C3$,C4$) 4270 EXEC Z(92) 4280 F0$(45,54)=C3$(3:TI) 4290 IF SI=2 THEN 4300 EXEC C(1,B1$,C3$,C4$) 4310 H0=0 4320 EXEC Æ(C3$,G8) 4330 F0$(56,62)=C3$(6:7) 4335 C3$(12)="-" 4340 EXEC C(2,C4$,C3$,B2$) 4350 EXEC C(3,B2$,B4$,B2$) 4355 B2$(TI,EL)="00" 4360 EXEC C(0,B1$,B2$,C0$) 4370 ELSE 4380 B2$=B3$ 4390 C0$=B1$ 4400 IF H0>0 THEN 4410 EXEC C(1,C3$,B1$,C3$) 4420 EXEC PERVERT(C3$,H0) 4430 ENDIF 4440 ENDIF 4441 EXEC OPTÆL(40,B2$) 4442 EXEC OP(TI,B2$) 4444 F0$(33,43)=C5$(40) 4450 F0$(70,79)=B2$(2:TI) 4460 EXEC Å 4470 EXEC Z(93) 4480 F0$(64+6*(C0$(12)="-"):TI)=C0$(2:TI) 4490 EXEC Å 4500 PRINT 4510 J6=J6+6 4520 ENDPROC 4530 PROC BEREGNSH 4540 IF K9=0 THEN 4550 EXEC SKRIVHOVED(2) 4560 IF K2=0 THEN EXEC INDTÆL 4570 ENDIF 4580 PRINT " SH-KODE ";D2$(23);" OR-KODE ";D2$(24,25); 4590 PRINT " FAGGR-KODE";H5 4600 PRINT 4610 PRINT " LA TEKST";TAB(38);"SALDO ENHEDER SATS "; 4620 PRINT "UDBETALT/TRUKKET"; 4630 EXEC Z(95) 4635 EXEC OP(EL,C5$(23)) 4640 F0$(42)="0";F0$(44,54)=C5$(23) 4650 EXEC Å 4660 C3$=C5$(23);C5$(23)=B3$(2:EL) 4670 C4$=" "+C5$(26) 4675 IF C4$(12)="+" THEN EXEC C(1,B3$,C4$,C4$) 4680 EXEC Z(96) 4685 EXEC OP(12,C4$) 4690 F0$(42)="0";F0$(44,54)=C4$(2:EL) 4700 EXEC Å 4710 C5$(26)=B3$(2:EL) 4720 EXEC C(0,C3$,C4$,B1$) 4730 EXEC OPTÆL(34,B1$) 4760 EXEC Z(82) 4770 F0$(33,43)=C5$(34) 4780 EXEC Æ(C3$,G8) 4782 C4$=B3$ 4785 C3$(12)="-" 4790 IF B1$(12)="+" THEN 4795 B2$=B1$ 4800 F0$(64:TI)=B1$(2:TI) 4801 IF H0>0 THEN 4802 EXEC Æ(C4$,H0) 4803 EXEC C(4,B1$,C4$,C2$) 4804 IF SI=2 THEN 4805 EXEC C(1,B1$,C4$,B2$) 4806 H0=0 4807 ELSE 4808 EXEC C(1,C4$,B1$,C2$) 4809 B2$=B3$ 4810 EXEC PERVERT(C2$,H0) 4811 ENDIF 4812 ENDIF 4819 EXEC C(2,C3$,B2$,C1$) 4820 EXEC C(3,C1$,B4$,C1$) 4830 C1$(TI,EL)="00" 4840 EXEC OPTÆL(40,C1$) 4860 ELSE 4870 F0$(70:TI)=B1$(2:TI) 4880 C1$=B3$ 4890 ENDIF 4900 EXEC Å 4910 EXEC Z(97) 4915 EXEC OP(13,C1$) 4920 F0$(33,43)=C5$(40);F0$(45,54)=C4$(3:TI) 4930 F0$(56:6)=C3$(6:6);F0$(70:TI)=C1$(2:TI) 4940 EXEC Å 4950 EXEC C(0,C1$,B1$,C2$) 4960 EXEC Z(98) 4970 F0$(64+6*(C2$(12)="-"):TI)=C2$(2:TI) 4980 EXEC Å 4990 J6=J6+3 5000 ENDPROC 5010 PROC BEREGNLØN 5020 L0=(F8-1)*J0+1 5030 GET D7$,L0:D6$ 5040 IF D6$(1)="1" THEN 5042 FOR I=1 TO 8 5044 B9$(I)=B3$(2:EL) 5046 NEXT I 5050 L1=1 5060 L2=0 5062 D6$(1)="2" 5064 PUT D7$,L0:D6$ 5070 EXEC SKRIVHOVED(1) 5080 EXEC INDTÆL 5090 REPEAT 5100 J5=ORD(D6$(3))-48 5110 IF D6$(4)<>" " THEN J5=J5*TI+ORD(D6$(4))-48 5120 IF J5<78 AND J5<>60 AND J5<>70 THEN 5130 EXEC Z(J5) 5140 IF J7>0 THEN 5141 IF J7=2 OR J7=4 OR J7=7 THEN 5143 C3$=D6$(EL:TI) 5144 EXEC OPTÆL(J7,C3$) 5146 J7=J7+1 5147 IF J7<7 THEN 5148 F1$=B9$(8) 5149 EXEC C(0,F1$,C3$,C4$) 5150 B9$(8)=C4$(2:EL) 5151 ENDIF 5152 ENDIF 5160 C3$=D6$(AZ:TI) 5170 EXEC OPTÆL(J7,C3$) 5190 ENDIF 5200 IF J8>0 THEN 5220 C3$=D6$(AZ:TI) 5230 EXEC OPTÆL(J8,C3$) 5250 ENDIF 5260 IF J9>0 THEN 5280 C3$=D6$(AZ:TI) 5290 EXEC OPTÆL(J9,C3$) 5310 ENDIF 5320 F0$(26:6)=D6$(5:6) 5330 CASE 0=0 OF 5340 WHEN (J5>0 AND J5<60) OR (J5>61 AND J5<65) 5350 CASE J5 OF 5360 WHEN 41,49 5370 F0$(33,43)=C5$(J9) 5371 IF J5=49 THEN 5372 C8$(21,30)=D6$(AZ:TI) 5373 ELSE 5374 EXEC OP(2,D6$(AZ,37)) 5375 ENDIF 5380 WHEN 42 5385 EXEC OP(3,D6$(AZ,37)) 5390 F0$(33,43)=C5$(26) 5400 ENDCASE 5402 IF J5=40 THEN EXEC OP(1,D6$(AZ,37)) 5405 IF J5>61 THEN 5406 D6$(37)="-" 5407 C3$=B6$(EL+20*(J5=62)+30*(J5=64):TI);C4$=D6$(AZ:TI) 5408 EXEC C(0,C3$,C4$,C3$) 5409 B6$(EL+20*(J5=62)+30*(J5=64):TI)=C3$(3:TI) 5415 ENDIF 5418 F0$(45,54)=D6$(EL:TI) 5420 F0$(56,62)=D6$(21:7) 5430 IF D6$(37)="+" THEN 5440 F0$(65:9)=D6$(AZ:9) 5450 ELSE 5460 F0$(71,79)=D6$(AZ:9) 5470 ENDIF 5480 WHEN J5=61 OR (J5>64 AND J5<70) 5490 D6$(37)="+" 5492 IF J5>67 THEN D6$(37)="-" 5500 F1$=D6$(EL:TI) 5510 C3$=D6$(AZ:TI) 5520 EXEC C(0,F1$,C3$,C4$) 5522 IF C4$(12)="-" THEN 5524 D6$(EL:TI)=B3$(3:TI) 5526 D6$(AZ:TI)=F1$ 5528 ELSE 5530 D6$(EL:TI)=C4$(3:TI) 5531 ENDIF 5532 D6$(1)="2" 5533 D6$(37)="+" 5534 PUT D7$,L0:D6$ 5535 D6$(37)="-" 5536 IF J5=61 THEN 5537 C3$=B6$(1,TI) 5538 ELSE 5539 C3$=B61$(1+TI*(J5=66)+20*(J5=67)+30*(J5=68)+40*(J5=69):TI) 5540 ENDIF 5542 C4$=D6$(AZ:TI) 5543 EXEC C(0,C3$,C4$,C3$) 5544 IF J5=61 THEN 5545 B6$(1,TI)=C3$(3:TI) 5546 ELSE 5547 B61$(1+TI*(J5=66)+20*(J5=67)+30*(J5=68)+40*(J5=69):TI)=C3$(3:TI) 5548 ENDIF 5550 F0$(34,43)=D6$(EL:TI) 5560 F0$(71,79)=D6$(AZ:9) 5570 WHEN J5=72 5575 EXEC OP(14,D6$(EL,20)) 5580 F0$(33,43)=C5$(J8) 5590 F0$(45,54)=D6$(EL:TI) 5593 WHEN J5=73 5595 F0$(45,54)=D6$(EL:TI) 5600 WHEN J5=75 5610 F0$(45,54)=D6$(EL:TI) 5620 L2=(ORD(F0$(45))-48)*TI+ORD(F0$(46))-48 5630 L2=L2*100+(ORD(F0$(47))-48)*TI+ORD(F0$(48))-48 5640 L2=100*L2+(ORD(F0$(49))-48)*TI+ORD(F0$(50))-48 5650 ENDCASE 5660 EXEC Å 5670 FOR I=1 TO 7 5680 IF D5$(I+21)="1" THEN 5690 C4$=D6$(AZ:TI) 5700 C3$=B9$(I) 5710 EXEC C(0,C4$,C3$,C4$) 5720 B9$(I)=C4$(2:EL) 5730 ENDIF 5740 NEXT I 5770 ELSE 5780 B7(L1)=L0 5790 B8$(L1)=D6$ 5800 IF J5<78 THEN L3=L1 5810 L1=L1+1 5820 ENDIF 5830 IF J5<83 THEN 5840 L0=L0+1 5850 GET D7$,L0:D6$ 5860 ENDIF 5870 UNTIL J5=83 5875 B8$(L1-2,37)="-" 5880 F1$=B8$(L1-2,AZ:TI) 5890 C3$=B9$(2) 5900 EXEC C(0,F1$,C3$,C4$) 5910 B9$(2)=C4$(2:EL) 5920 C3$=B9$(7) 5930 EXEC C(0,F1$,C3$,C4$) 5940 B9$(7)=C4$(2:EL) 5950 IF H6>0 THEN 5960 C3$=B3$ 5970 ELSE 5980 IF H0>0 THEN 5990 EXEC Æ(C3$,H0) 6000 ELSE 6002 K8=INT(G9*12/365) 6004 EXEC Æ(C3$,K8) 6010 C4$=B8$(L1-1,EL:TI) 6020 CASE D2$(21) OF 6030 WHEN "1" 6040 F1$="1+" 6050 EXEC C(4,F1$,C4$,C3$) 6060 IF SI<>0 THEN 6100 EXEC C(2,C3$,C4$,F1$) 6110 C3$=F1$ 6120 ENDIF 6130 WHEN "2","3" 6140 F1$="7+" 6150 EXEC C(4,F1$,C4$,C3$) 6160 IF SI=0 THEN 6170 K8=INT(G9*12/52) 6180 EXEC Æ(C3$,K8) 6190 ELSE 6220 EXEC C(2,C3$,C4$,C3$) 6230 ENDIF 6240 WHEN "4","5" 6250 F1$="14+" 6260 EXEC C(4,F1$,C4$,C3$) 6270 IF SI=0 THEN 6280 K8=INT(G9*12/26) 6290 EXEC Æ(C3$,K8) 6300 ELSE 6330 EXEC C(2,C3$,C4$,C3$) 6340 ENDIF 6350 WHEN "6","7" 6360 F1$="30+" 6370 EXEC C(4,F1$,C4$,C3$) 6380 IF SI=0 THEN 6390 EXEC Æ(C3$,G9) 6400 ELSE 6430 EXEC C(2,C3$,C4$,C3$) 6440 ENDIF 6450 ENDCASE 6470 ENDIF 6475 H6=L2 6480 ENDIF 6485 B8$(L1-1,EL:TI)=C3$(3:TI) 6490 F1$=B9$(2) 6500 EXEC C(4,F1$,C3$,C4$) 6502 IF F1$(11)="-" THEN 6504 SI=2 6506 C3$=B3$ 6508 ENDIF 6510 IF SI=2 THEN 6515 IF F1$(11)="+" THEN H0=0 6520 EXEC C(1,F1$,C3$,C4$) 6530 F1$=B8$(L1-1,21:7) 6535 F1$(7)="-" 6540 EXEC C(2,C4$,F1$,C3$) 6545 IF C4$(12)="-" THEN C3$(12)="+" 6550 EXEC C(3,C3$,B4$,C4$) 6555 C4$(TI,EL)="00" 6560 ELSE 6562 IF H0>0 THEN 6564 EXEC C(1,C3$,F1$,C3$) 6566 EXEC PERVERT(C3$,H0) 6568 ENDIF 6570 C4$=B3$ 6580 ENDIF 6590 B8$(L1-1,AZ:TI)=C4$(3:TI) 6600 F1$=B9$(7) 6602 EXEC C(0,F1$,C4$,C3$) 6604 B9$(7)=C3$(2:EL) 6610 FOR I=1 TO L3 6630 IF B8$(I,3,4)="60" THEN 6635 EXEC Z(60) 6640 C4$=B8$(L1-1,AZ:9)+"+" 6650 F1$=B9$(2) 6660 EXEC C(4,C4$,F1$,C3$) 6670 IF SI=1 THEN 6680 EXEC C(1,F1$,C4$,C3$) 6690 F1$=B8$(I,21:7) 6700 EXEC C(2,C3$,F1$,C4$) 6710 EXEC C(3,C4$,B4$,C3$) 6715 C3$(TI,EL)="00" 6720 ELSE 6730 C3$=" 0-" 6740 ENDIF 6750 C4$=B8$(I,EL:TI) 6760 EXEC C(4,C4$,C3$,F1$) 6770 IF SI=2 THEN 6780 EXEC C(1,C4$,C3$,F1$) 6790 B8$(I,EL:TI)=F1$(3:TI) 6800 B8$(I,AZ:TI)=C3$(3:TI) 6810 ELSE 6820 B8$(I,EL:TI)=B3$(3:TI) 6830 B8$(I,AZ:TI)=C4$ 6840 ENDIF 6842 C3$=B8$(I,AZ:TI) 6844 C4$=B9$(7) 6846 EXEC C(1,C4$,C3$,C4$) 6848 B9$(7)=C4$(2:EL) 6852 B8$(I,1)="2" 6854 PUT D7$,B7(I):B8$(I) 6855 B8$(I,37)="-" 6860 F0$(34,43)=B8$(I,EL:TI) 6870 F0$(71,79)=B8$(I,AZ:9) 6871 C3$=B8$(I,AZ:TI) 6872 C4$=B6$(21,30) 6873 EXEC C(0,C3$,C4$,C4$) 6875 B6$(21,30)=C4$(3:TI) 6876 C4$=B9$(5) 6877 EXEC C(0,C3$,C4$,C3$) 6878 B9$(5)=C3$(2:EL) 6880 ELSE 6881 EXEC Z(70) 6882 C3$=B8$(I,AZ:TI) 6883 EXEC OP(6,C3$) 6884 EXEC OPTÆL(J9,C3$) 6890 F0$(45,54)=B8$(I,EL:TI) 6900 F0$(67,75)=B8$(I,AZ:9) 6910 ENDIF 6920 F0$(26:6)=B8$(I,5:6) 6930 F0$(56,62)=B8$(I,21:7) 6940 EXEC Å 6950 IF J5=70 THEN 6960 EXEC Z(71) 6970 C3$=B8$(L1-1,21:7) 6980 C4$=B8$(I,AZ:TI) 6990 EXEC C(2,C3$,C4$,F1$) 7000 EXEC C(3,F1$,B4$,C3$) 7010 F0$(56,62)=B8$(L1-1,21:7) 7015 C3$(TI,EL)="00" 7020 F0$(67,75)=C3$(3:9) 7022 C3$(12)="-" 7026 EXEC OPTÆL(J9,C3$) 7027 EXEC OP(7,C3$) 7030 EXEC Å 7040 ENDIF 7070 NEXT I 7071 EXEC C(0,B9$(4),B9$(5),C3$) 7072 EXEC C(0,B9$(6),C3$,C3$) 7073 C7$(31,40)=C3$(3,12) 7074 EXEC OP(5,B9$(4)) 7080 EXEC Z(76) 7090 C3$=B9$(1) 7100 EXEC OPTÆL(16,C3$) 7110 EXEC OPTÆL(EL,C3$) 7120 EXEC OPTÆL(31,C3$) 7130 F0$(33,43)=C5$(16) 7140 F0$(44,54)=B9$(1) 7150 F0$(56,62)=B9$(8,5:7) 7151 C3$=B9$(8) 7152 EXEC OPTÆL(30,C3$) 7153 C7$(1,TI)=C3$(2,EL) 7154 C8$(EL,20)=B9$(1,2:TI) 7160 EXEC Å 7170 EXEC Z(78) 7180 L3=L3+1 7190 C3$=B8$(L3,21:7) 7200 C4$=B9$(1) 7210 EXEC C(2,C3$,C4$,F1$) 7220 EXEC C(3,F1$,B4$,C3$) 7225 EXEC OP(15,C3$) 7230 F0$(45,54)=C3$(3:TI) 7250 EXEC OPTÆL(20,C3$) 7280 EXEC OPTÆL(14,C3$) 7300 F0$(33,43)=C5$(20) 7310 F0$(56,62)=B8$(L3,21:7) 7320 EXEC Å 7330 L3=L3+1 7340 IF B8$(L3,3,4)="79" THEN 7345 IF D2$(24,25)<"90" THEN 7350 EXEC Z(79) 7360 C3$=B8$(L3,21:7) 7370 C4$=B9$(1) 7380 EXEC C(2,C3$,C4$,F1$) 7390 EXEC C(3,F1$,B4$,C3$) 7395 EXEC OP(16,C3$) 7400 F0$(45,54)=C3$(3:TI) 7420 EXEC OPTÆL(15,C3$) 7450 EXEC OPTÆL(23,C3$) 7470 C3$=C5$(26) 7480 EXEC C(1,F1$,C3$,C4$) 7490 F0$(33,43)=C4$(2:EL) 7500 F0$(56,62)=B8$(L3,21:7) 7510 EXEC Å 7515 ENDIF 7520 L3=L3+1 7530 ENDIF 7540 EXEC Z(80) 7560 C3$=B8$(L3,AZ:TI) 7565 C7$(EL,20)=C3$ 7570 EXEC OPTÆL(43,C3$) 7590 F0$(33,43)=C5$(43) 7600 F0$(45,54)=B8$(L3,EL:TI) 7610 F0$(56,62)=B8$(L3,21:7) 7620 F0$(71,79)=B8$(L3,AZ:9) 7630 EXEC Å 7640 L3=L3+1 7650 EXEC Z(82) 7660 C3$=B9$(2) 7680 EXEC OPTÆL(34,C3$) 7700 F0$(33,43)=C5$(34) 7710 F0$(45,54)=B9$(2,2:TI) 7720 EXEC Å 7730 EXEC Z(83) 7740 C3$=B8$(L3,AZ:TI) 7750 C8$(31,40)=C3$ 7760 EXEC OPTÆL(40,C3$) 7780 F0$(33,43)=C5$(40) 7790 F0$(45,54)=B8$(L3,EL:TI) 7800 F0$(56,62)=B8$(L3,21:7) 7810 F0$(65+6*(B8$(L3,37)="-"):9)=B8$(L3,AZ:9) 7820 EXEC Å 7830 EXEC Z(84) 7840 C3$=B9$(3) 7850 EXEC OP(4,C3$) 7860 EXEC OPTÆL(37,C3$) 7880 F0$(33,43)=C5$(37) 7890 F0$(44,54)=B9$(3) 7892 EXEC C(0,B9$(2),B9$(3),C3$) 7894 C7$(21,30)=C3$(3,12) 7900 EXEC Å 7910 C3$=B9$(7) 7920 EXEC C(4,C3$,B3$,C4$) 7925 IF C3$(11)="-" THEN SI=1 7930 IF SI=2 THEN 7940 IF H2>0 AND (H3>0 OR H4>0) THEN 7950 IF D4$(19,24)<>"000000" AND D4$(25,34)<>"0000000000" THEN 7960 SI=0 7970 EXEC Z(88) 7975 F0$(27,48)="Til disposition "+DD$ 7980 F0$(64:TI)=B9$(7,1:TI) 7985 C8$(41,50)=B9$(7,2:TI) 7990 EXEC CONV(OP1$,0+H2 MOD 10000,4) 8000 D5$(5:4)=OP1$ 8010 EXEC CONV(OP1$,H3,5) 8020 D5$(12:5)=OP1$ 8030 EXEC CONV(OP1$,H4,5) 8040 D5$(17:5)=OP1$ 8050 EXEC Å 8055 PUT E1$:F8,B9$(7) 8060 ENDIF 8070 ENDIF 8080 ELSE 8090 SI=2 8100 ENDIF 8110 IF SI=2 THEN 8120 EXEC Z(89) 8130 F0$(64+6*(B9$(7,EL)="-"):TI)=B9$(7,1:TI) 8135 C8$(1,TI)=B9$(7,2:TI) 8140 EXEC Å 8150 ENDIF 8160 EXEC SKRIVBUND 8161 K2=1 8162 ELSE 8163 K2=0 8170 ENDIF 8180 ENDPROC 8181 D8$="P641217:" 8182 E1$="DDE:" 8190 C9$=D8$+"VIRKKART" 8200 EXEC INDVIRK 8210 CLOSE C9$ 8220 C9$=D8$+"LØNMODRG" 8230 OPEN C9$,W 8240 D7$=D8$+"TRANSREG" 8250 OPEN D7$,W 8260 D0$=D8$+"TÆLLEREG" 8270 OPEN D0$,W 8280 D8$=D8$+"LØNARTRG" 8290 OPEN D8$,R 8291 D9$=E1$+"LØNJOUR" 8292 OPEN D9$,W 8293 E0$=E1$+"FRADRAG" 8294 OPEN E0$,W 8295 E1$=E1$+"LØNBILAG" 8296 OPEN E1$,W 8300 EXEC SKRIVPICT 8310 FOR J=1 TO 21 8320 IF J=7 AND E3=0 THEN J=TI 8330 EXEC INOPL(J) 8340 NEXT J 8350 K1=72 8355 J6=0 8360 F8=0 8370 F0$=E9$ 8372 PUT D9$:A7$,A8$,A9$,B0$ 8374 PUT E0$:A7$,A8$ 8376 PUT E1$:I6 8380 OUTPUT P 8390 REPEAT 8400 EXEC NÆSTE 8410 L3,L4,K2,K9=0 8412 C7$=B3$(3:TI)+B3$(3:TI)+B3$(3:TI)+B3$(3:TI) 8414 C8$=C7$+B3$(3:TI) 8416 B6$=C8$ 8417 B61$=B6$ 8420 IF F8<=I9 THEN 8430 IF E3=1 THEN 8440 J=1 8450 REPEAT 8460 IF A1(J)=F8 OR A1(J)=-1 THEN J=TI 8470 J=J+1 8480 UNTIL J>3 8490 IF J=EL THEN 8500 EXEC BEREGNLØN 8520 ENDIF 8530 ENDIF 8540 IF E4=1 THEN 8550 K3=ORD(D2$(22))-48 8560 IF K3<4 THEN 8570 IF A2(K3)=F8 OR A2(K3)=-1 THEN 8580 EXEC BEREGNFERIE 8590 K9=1 8600 ENDIF 8610 ENDIF 8620 ENDIF 8630 IF E5=1 THEN 8640 K3=ORD(D2$(23))-48 8650 IF K3<4 THEN 8660 IF A3(K3)=F8 OR A3(K3)=-1 THEN 8670 EXEC BEREGNSH 8680 L4=1 8690 ENDIF 8700 ENDIF 8710 ENDIF 8720 IF K9*L4=1 THEN 8730 EXEC C(0,C0$,C2$,C3$) 8731 EXEC C(4,C3$,B3$,C3$) 8732 IF SI<>0 THEN 8740 EXEC C(2,C0$,B4$,C4$) 8750 EXEC C(3,C4$,C3$,C4$) 8760 EXEC C(4,C4$,B4$,C3$) 8770 IF SI=2 THEN C4$=B4$ 8771 ELSE 8772 C4$=B3$ 8773 ENDIF 8780 PRINT 8790 PRINT "Nettoferiepengene udgør ";C4$(6,EL);" %" 8800 J6=J6+2 8810 ENDIF 8815 IF K2+K9+L4>0 THEN 8820 EXEC SKRIVBUND 8830 EXEC UDLØNMOD(F8) 8840 EXEC UDTÆL 8843 PUT D9$:F8,C7$ 8844 PUT D9$:C8$ 8845 ENDIF 8846 IF K2=1 THEN 8847 PUT E0$:F8,B6$ 8848 PUT E0$:F8,B61$ 8849 ENDIF 8850 ENDIF 8860 UNTIL F8=>I9 8861 PUT D9$:I9+1,C7$ 8862 PUT D9$:E2$(1),E2$(2),E2$(3),E2$(4),E2$(5),E2$(6) 8864 PUT D9$:E2$(7),E2$(8),E2$(9),E2$(TI),E2$(EL),E2$(12) 8866 PUT D9$:E2$(13),E2$(14),E2$(15),E2$(16) 8867 ENDFILE E0$ 8868 ENDFILE E1$ 8870 CLOSE 8880 CHAIN "DDE:JOURNAL"
0x0000…004a Line {l1=0x48, l2=»0100 DIM A1(3),A2(3),A3(3),A4(3),A5(3),A6(2),A7$(8),A8$(8),A9$(1),B0$(1)«, l3=0x48}
0x004a…0097 Line {l1=0x4b, l2=»0120 DIM RES$(15),OP1$(12),OP2$(12),B1$(12),B2$(12),B3$(12),B4$(12),B5$(12)«, l3=0x4b}
0x0097…00e5 Line {l1=0x4c, l2=»0130 DIM B6$(50),B7(10),B8$(10,37),B9$(8,11),C0$(12),C1$(12),C2$(12),C3$(12)«, l3=0x4c}
0x00e5…0132 Line {l1=0x4b, l2=»0140 DIM C4$(12),C5$(45,11),C6$(55),C7$(40),C8$(50),C9$(16),D0$(16),D1$(71)«, l3=0x4b}
0x0132…017c Line {l1=0x48, l2=»0150 DIM D2$(27),D3$(55),D4$(34),D5$(29),D6$(37),D7$(16),D8$(16),D9$(16)«, l3=0x48}
0x017c…01c6 Line {l1=0x48, l2=»0160 DIM E0$(16),E1$(16),E2$(16,12),E6(21),E7(21),E8(21),E9$(79),F0$(79)«, l3=0x48}
0x01c6…01f0 Line {l1=0x28, l2=»0162 DIM F1$(12),DD$(6),B61$(50),DAD$(6)«, l3=0x28}
0x01f0…0208 Line {l1=0x16, l2=»0163 TI=10;EL=11;AZ=28«, l3=0x16}
0x0208…023b Line {l1=0x31, l2=»0170 B3$=" 0+";B5$="6,00+";B4$="100,00+"«, l3=0x31}
0x023b…024f Line {l1=0x12, l2=»0171 FOR I=1 TO 16«, l3=0x12}
0x024f…0260 Line {l1=0x0f, l2=»0172 E2$(I)=B3$«, l3=0x0f}
0x0260…026d Line {l1=0x0b, l2=»0173 NEXT I«, l3=0x0b}
0x026d…028a Line {l1=0x1b, l2=»0200 A6(1),A6(2),E3,E4,E5=0«, l3=0x1b}
0x028a…029e Line {l1=0x12, l2=»0230 FOR I=1 TO 79«, l3=0x12}
0x029e…02b0 Line {l1=0x10, l2=»0240 E9$=E9$+" "«, l3=0x10}
0x02b0…02bd Line {l1=0x0b, l2=»0250 NEXT I«, l3=0x0b}
0x02bd…0305 Line {l1=0x46, l2=»0260 E6(1),E6(EL),E6(14),E6(17)=27;E6(2),E6(3),E6(12),E6(15),E6(18)=34«, l3=0x46}
0x0305…034d Line {l1=0x46, l2=»0280 E6(7)=29;E6(8)=33;E6(9)=37;E7(19)=17;E7(20)=18;E7(21)=19;E8(4)=-4«, l3=0x46}
0x034d…0398 Line {l1=0x49, l2=»0300 E6(4)=36;E6(5),E6(6)=39;E6(TI),E6(13),E6(16),E6(19),E6(20),E6(21)=23«, l3=0x49}
0x0398…03e0 Line {l1=0x46, l2=»0310 E7(1),E7(2)=2;E7(3)=3;E7(4)=4;E7(5)=5;E7(6)=6;E7(7),E7(8),E7(9)=9«, l3=0x46}
0x03e0…042e Line {l1=0x4c, l2=»0320 E7(TI),E7(EL),E7(12)=12;E7(13),E7(14),E7(15)=13;E7(16),E7(17),E7(18)=14«, l3=0x4c}
0x042e…047b Line {l1=0x4b, l2=»0340 E8(1),E8(2),E8(EL),E8(12),E8(14),E8(15),E8(17),E8(18)=6;E8(5),E8(6)=-1«, l3=0x4b}
0x047b…04c5 Line {l1=0x48, l2=»0350 E8(3),E8(7),E8(8),E8(9),E8(TI),E8(13),E8(16),E8(19),E8(20),E8(21)=0«, l3=0x48}
0x04c5…04df Line {l1=0x18, l2=»0370 PROC C(F2,F3,F4,F5)«, l3=0x18}
0x04df…051c Line {l1=0x3b, l2=»0380 RES$=F5$;OP1$=F3$;OP2$=F4$;SI=0;FLAG=0;ART=F2-6*(F2>5)«, l3=0x3b}
0x051c…0532 Line {l1=0x14, l2=»0390 CALL "DDE:REGN"«, l3=0x14}
0x0532…0554 Line {l1=0x20, l2=»0400 IF F2<6 AND FLAG THEN STOP «, l3=0x20}
0x0554…0563 Line {l1=0x0d, l2=»0430 F5$=RES$«, l3=0x0d}
0x0563…0572 Line {l1=0x0d, l2=»0440 ENDPROC «, l3=0x0d}
0x0572…058a Line {l1=0x16, l2=»0441 PROC OPTÆL(F6,F7)«, l3=0x16}
0x058a…05a4 Line {l1=0x18, l2=»0442 F1$=F7$;C2$=C5$(F6)«, l3=0x18}
0x05a4…05c0 Line {l1=0x1a, l2=»0443 EXEC C(0,C2$,F1$,F1$)«, l3=0x1a}
0x05c0…05d8 Line {l1=0x16, l2=»0444 C5$(F6)=F1$(2:EL)«, l3=0x16}
0x05d8…0611 Line {l1=0x37, l2=»0445 IF J5=73 AND C5$(F6,EL)="-" THEN C5$(F6)=B3$(2:EL)«, l3=0x37}
0x0611…0620 Line {l1=0x0d, l2=»0448 ENDPROC «, l3=0x0d}
0x0620…0631 Line {l1=0x0f, l2=»0450 PROC UDTÆL«, l3=0x0f}
0x0631…0642 Line {l1=0x0f, l2=»0460 J=9*(F8-1)«, l3=0x0f}
0x0642…0656 Line {l1=0x12, l2=»0470 FOR F9=1 TO 9«, l3=0x12}
0x0656…0669 Line {l1=0x11, l2=»0480 FOR I=1 TO 5«, l3=0x11}
0x0669…0692 Line {l1=0x27, l2=»0490 C6$((I-1)*EL+1:EL)=C5$((F9-1)*5+I)«, l3=0x27}
0x0692…069f Line {l1=0x0b, l2=»0500 NEXT I«, l3=0x0b}
0x069f…06b6 Line {l1=0x15, l2=»0510 PUT D0$,J+F9:C6$«, l3=0x15}
0x06b6…06c4 Line {l1=0x0c, l2=»0520 NEXT F9«, l3=0x0c}
0x06c4…06de Line {l1=0x18, l2=»0530 EXEC F(-F8,-F9,D0$)«, l3=0x18}
0x06de…06ed Line {l1=0x0d, l2=»0540 ENDPROC «, l3=0x0d}
0x06ed…06ff Line {l1=0x10, l2=»0550 PROC INDTÆL«, l3=0x10}
0x06ff…0710 Line {l1=0x0f, l2=»0560 J=9*(F8-1)«, l3=0x0f}
0x0710…0724 Line {l1=0x12, l2=»0570 FOR F9=1 TO 9«, l3=0x12}
0x0724…073b Line {l1=0x15, l2=»0580 GET D0$,J+F9:C6$«, l3=0x15}
0x073b…074e Line {l1=0x11, l2=»0590 FOR I=1 TO 5«, l3=0x11}
0x074e…0777 Line {l1=0x27, l2=»0600 C5$((F9-1)*5+I)=C6$((I-1)*EL+1:EL)«, l3=0x27}
0x0777…0784 Line {l1=0x0b, l2=»0610 NEXT I«, l3=0x0b}
0x0784…0792 Line {l1=0x0c, l2=»0620 NEXT F9«, l3=0x0c}
0x0792…07aa Line {l1=0x16, l2=»0630 EXEC F(F8,F9,D0$)«, l3=0x16}
0x07aa…07b9 Line {l1=0x0d, l2=»0640 ENDPROC «, l3=0x0d}
0x07b9…07ce Line {l1=0x13, l2=»0641 PROC OP(F6,F7)«, l3=0x13}
0x07ce…07e8 Line {l1=0x18, l2=»0642 F1$=F7$;C2$=E2$(F6)«, l3=0x18}
0x07e8…0804 Line {l1=0x1a, l2=»0643 EXEC C(0,C2$,F1$,F1$)«, l3=0x1a}
0x0804…0816 Line {l1=0x10, l2=»0644 E2$(F6)=F1$«, l3=0x10}
0x0816…0825 Line {l1=0x0d, l2=»0645 ENDPROC «, l3=0x0d}
0x0825…0841 Line {l1=0x1a, l2=»0650 PROC DATOCHECK(G0,G1)«, l3=0x1a}
0x0841…084c Line {l1=0x09, l2=»0660 G1=1«, l3=0x09}
0x084c…0878 Line {l1=0x2a, l2=»0670 G2=(ORD(G0$(1))-48)*TI+ORD(G0$(2))-48«, l3=0x2a}
0x0878…08a4 Line {l1=0x2a, l2=»0680 G3=(ORD(G0$(3))-48)*TI+ORD(G0$(4))-48«, l3=0x2a}
0x08a4…08d0 Line {l1=0x2a, l2=»0690 G4=(ORD(G0$(5))-48)*TI+ORD(G0$(6))-48«, l3=0x2a}
0x08d0…0902 Line {l1=0x30, l2=»0700 IF G4<1 OR G3<1 OR G3>12 OR G4>31 THEN G1=0«, l3=0x30}
0x0902…091b Line {l1=0x17, l2=»0710 IF G1=0 THEN EXIT «, l3=0x17}
0x091b…092d Line {l1=0x10, l2=»0720 CASE G3 OF «, l3=0x10}
0x092d…0941 Line {l1=0x12, l2=»0730 WHEN 4,6,9,EL«, l3=0x12}
0x0941…095a Line {l1=0x17, l2=»0740 IF G4>30 THEN G1=0«, l3=0x17}
0x095a…0967 Line {l1=0x0b, l2=»0750 WHEN 2«, l3=0x0b}
0x0967…0980 Line {l1=0x17, l2=»0760 IF G4>29 THEN G1=0«, l3=0x17}
0x0980…09a9 Line {l1=0x27, l2=»0770 IF G4=29 AND G2 MOD 4<>0 THEN G1=0«, l3=0x27}
0x09a9…09b8 Line {l1=0x0d, l2=»0780 ENDCASE «, l3=0x0d}
0x09b8…09c7 Line {l1=0x0d, l2=»0790 ENDPROC «, l3=0x0d}
0x09c7…09df Line {l1=0x16, l2=»0800 PROC INLØNMOD(G5)«, l3=0x16}
0x09df…09f8 Line {l1=0x17, l2=»0810 GET C9$,2*G5-1:D1$«, l3=0x17}
0x09f8…0a30 Line {l1=0x36, l2=»0820 GET C9$,2*G5:D2$,G6,G7,G8,G9,H0,H1,H2,H3,H4,H5,H6«, l3=0x36}
0x0a30…0a47 Line {l1=0x15, l2=»0830 EXEC F(1,G5,C9$)«, l3=0x15}
0x0a47…0a56 Line {l1=0x0d, l2=»0840 ENDPROC «, l3=0x0d}
0x0a56…0a6e Line {l1=0x16, l2=»0850 PROC UDLØNMOD(G5)«, l3=0x16}
0x0a6e…0a87 Line {l1=0x17, l2=»0860 PUT C9$,2*G5-1:D1$«, l3=0x17}
0x0a87…0abf Line {l1=0x36, l2=»0870 PUT C9$,2*G5:D2$,G6,G7,G8,G9,H0,H1,H2,H3,H4,H5,H6«, l3=0x36}
0x0abf…0ad6 Line {l1=0x15, l2=»0880 EXEC F(2,G5,C9$)«, l3=0x15}
0x0ad6…0ae5 Line {l1=0x0d, l2=»0890 ENDPROC «, l3=0x0d}
0x0ae5…0aff Line {l1=0x18, l2=»0900 PROC CONV(H7,H8,H9)«, l3=0x18}
0x0aff…0b12 Line {l1=0x11, l2=»0910 I0=H8;H7$=""«, l3=0x11}
0x0b12…0b20 Line {l1=0x0c, l2=»0930 REPEAT «, l3=0x0c}
0x0b20…0b57 Line {l1=0x35, l2=»0940 H7$=CHR((I0 MOD TI)+48)+H7$;H9=H9-1;I0=I0 DIV TI«, l3=0x35}
0x0b57…0b78 Line {l1=0x1f, l2=»0970 IF H9<0 AND I0=0 THEN H9=0«, l3=0x1f}
0x0b78…0b89 Line {l1=0x0f, l2=»0980 UNTIL H9=0«, l3=0x0f}
0x0b89…0b98 Line {l1=0x0d, l2=»0990 ENDPROC «, l3=0x0d}
0x0b98…0bb0 Line {l1=0x16, l2=»1000 PROC CHECK(I1,I2)«, l3=0x16}
0x0bb0…0bbe Line {l1=0x0c, l2=»1010 I2,I3=0«, l3=0x0c}
0x0bbe…0bd8 Line {l1=0x18, l2=»1030 IF LEN(I1$)>0 THEN «, l3=0x18}
0x0bd8…0be3 Line {l1=0x09, l2=»1035 I4=1«, l3=0x09}
0x0be3…0c07 Line {l1=0x22, l2=»1040 IF I1$(1)="-" THEN I4=-1;I2=1«, l3=0x22}
0x0c07…0c1f Line {l1=0x16, l2=»1100 WHILE LEN(I1$)>I2«, l3=0x16}
0x0c1f…0c2d Line {l1=0x0c, l2=»1110 I2=I2+1«, l3=0x0c}
0x0c2d…0c67 Line {l1=0x38, l2=»1120 IF I1$(I2)<"0" OR I1$(I2)>"9" THEN I4=0;I2=LEN(I1$)«, l3=0x38}
0x0c67…0c86 Line {l1=0x1d, l2=»1160 I3=I3*TI+ORD(I1$(I2))-48«, l3=0x1d}
0x0c86…0c96 Line {l1=0x0e, l2=»1170 ENDWHILE «, l3=0x0e}
0x0c96…0cae Line {l1=0x16, l2=»1175 I3=I3*I4;I2=I2*I4«, l3=0x16}
0x0cae…0cc9 Line {l1=0x19, l2=»1190 IF I2<0 THEN I2=I2+1«, l3=0x19}
0x0cc9…0cd6 Line {l1=0x0b, l2=»1200 ENDIF «, l3=0x0b}
0x0cd6…0ce5 Line {l1=0x0d, l2=»1210 ENDPROC «, l3=0x0d}
0x0ce5…0cf2 Line {l1=0x0b, l2=»1211 PROC Ø«, l3=0x0b}
0x0cf2…0d00 Line {l1=0x0c, l2=»1212 REPEAT «, l3=0x0c}
0x0d00…0d1c Line {l1=0x1a, l2=»1213 EXEC DATOCHECK(F0$,I)«, l3=0x1a}
0x0d1c…0d3e Line {l1=0x20, l2=»1214 IF I=0 THEN EXEC INLINE(I5)«, l3=0x20}
0x0d3e…0d4e Line {l1=0x0e, l2=»1215 UNTIL I=1«, l3=0x0e}
0x0d4e…0d5d Line {l1=0x0d, l2=»1216 ENDPROC «, l3=0x0d}
0x0d5d…0d72 Line {l1=0x13, l2=»1220 PROC INOPL(I5)«, l3=0x13}
0x0d72…0d88 Line {l1=0x14, l2=»1230 EXEC INLINE(I5)«, l3=0x14}
0x0d88…0d9a Line {l1=0x10, l2=»1240 CASE I5 OF «, l3=0x10}
0x0d9a…0da7 Line {l1=0x0b, l2=»1250 WHEN 1«, l3=0x0b}
0x0da7…0db4 Line {l1=0x0b, l2=»1260 EXEC Ø«, l3=0x0b}
0x0db4…0dd0 Line {l1=0x1a, l2=»1300 EXEC CONVDATE(A7$,I3)«, l3=0x1a}
0x0dd0…0ddd Line {l1=0x0b, l2=»1310 WHEN 2«, l3=0x0b}
0x0ddd…0dea Line {l1=0x0b, l2=»1320 EXEC Ø«, l3=0x0b}
0x0dea…0e06 Line {l1=0x1a, l2=»1360 EXEC CONVDATE(A8$,I3)«, l3=0x1a}
0x0e06…0e13 Line {l1=0x0b, l2=»1370 WHEN 3«, l3=0x0b}
0x0e13…0e27 Line {l1=0x12, l2=»1380 IF I3>0 THEN «, l3=0x12}
0x0e27…0e34 Line {l1=0x0b, l2=»1390 EXEC Ø«, l3=0x0b}
0x0e34…0e41 Line {l1=0x0b, l2=»1430 ENDIF «, l3=0x0b}
0x0e41…0e55 Line {l1=0x12, l2=»1440 I6=I3;DD$=F0$«, l3=0x12}
0x0e55…0e6f Line {l1=0x18, l2=»1450 IF I6<>-1 THEN E3=1«, l3=0x18}
0x0e6f…0e7c Line {l1=0x0b, l2=»1460 WHEN 4«, l3=0x0b}
0x0e7c…0e8a Line {l1=0x0c, l2=»1470 REPEAT «, l3=0x0c}
0x0e8a…0e9c Line {l1=0x10, l2=»1480 F0$=F0$+"+"«, l3=0x10}
0x0e9c…0eb8 Line {l1=0x1a, l2=»1490 EXEC C(6,F0$,B3$,F1$)«, l3=0x1a}
0x0eb8…0ede Line {l1=0x24, l2=»1500 IF FLAG<>0 THEN EXEC INLINE(I5)«, l3=0x24}
0x0ede…0ef1 Line {l1=0x11, l2=»1510 UNTIL FLAG=0«, l3=0x11}
0x0ef1…0f0d Line {l1=0x1a, l2=»1520 EXEC C(0,F0$,B3$,F1$)«, l3=0x1a}
0x0f0d…0f28 Line {l1=0x19, l2=»1530 EXEC PERVERT(F1$,I7)«, l3=0x19}
0x0f28…0f35 Line {l1=0x0b, l2=»1540 WHEN 5«, l3=0x0b}
0x0f35…0f54 Line {l1=0x1d, l2=»1550 WHILE F0$<"1" OR F0$>"7"«, l3=0x1d}
0x0f54…0f6a Line {l1=0x14, l2=»1560 EXEC INLINE(I5)«, l3=0x14}
0x0f6a…0f7a Line {l1=0x0e, l2=»1570 ENDWHILE «, l3=0x0e}
0x0f7a…0f88 Line {l1=0x0c, l2=»1580 A9$=F0$«, l3=0x0c}
0x0f88…0f95 Line {l1=0x0b, l2=»1590 WHEN 6«, l3=0x0b}
0x0f95…0fb7 Line {l1=0x20, l2=»1600 WHILE F0$<>"A" AND F0$<>"F"«, l3=0x20}
0x0fb7…0fcd Line {l1=0x14, l2=»1610 EXEC INLINE(I5)«, l3=0x14}
0x0fcd…0fdd Line {l1=0x0e, l2=»1620 ENDWHILE «, l3=0x0e}
0x0fdd…0feb Line {l1=0x0c, l2=»1630 B0$=F0$«, l3=0x0c}
0x0feb…0ffc Line {l1=0x0f, l2=»1640 WHEN 7,8,9«, l3=0x0f}
0x0ffc…100e Line {l1=0x10, l2=»1650 A1(I5-6)=I3«, l3=0x10}
0x100e…1022 Line {l1=0x12, l2=»1660 WHEN TI,13,16«, l3=0x12}
0x1022…103a Line {l1=0x16, l2=»1670 A2(I5 DIV 3-2)=I3«, l3=0x16}
0x103a…104f Line {l1=0x13, l2=»1680 IF I3<>0 THEN «, l3=0x13}
0x104f…105a Line {l1=0x09, l2=»1690 E4=1«, l3=0x09}
0x105a…1066 Line {l1=0x0a, l2=»1700 ELSE «, l3=0x0a}
0x1066…1074 Line {l1=0x0c, l2=»1710 I5=I5+2«, l3=0x0c}
0x1074…1081 Line {l1=0x0b, l2=»1720 ENDIF «, l3=0x0b}
0x1081…1095 Line {l1=0x12, l2=»1730 WHEN EL,14,17«, l3=0x12}
0x1095…10a2 Line {l1=0x0b, l2=»1740 EXEC Ø«, l3=0x0b}
0x10a2…10ba Line {l1=0x16, l2=»1780 A4(I5 DIV 3-2)=I3«, l3=0x16}
0x10ba…10ce Line {l1=0x12, l2=»1790 WHEN 12,15,18«, l3=0x12}
0x10ce…10db Line {l1=0x0b, l2=»1800 EXEC Ø«, l3=0x0b}
0x10db…10f3 Line {l1=0x16, l2=»1840 A5(I5 DIV 3-3)=I3«, l3=0x16}
0x10f3…1107 Line {l1=0x12, l2=»1850 WHEN 19,20,21«, l3=0x12}
0x1107…111a Line {l1=0x11, l2=»1860 A3(I5-18)=I3«, l3=0x11}
0x111a…1133 Line {l1=0x17, l2=»1865 IF I3<>0 THEN E5=1«, l3=0x17}
0x1133…1142 Line {l1=0x0d, l2=»1870 ENDCASE «, l3=0x0d}
0x1142…1151 Line {l1=0x0d, l2=»1880 ENDPROC «, l3=0x0d}
0x1151…1164 Line {l1=0x11, l2=»1890 PROC INDVIRK«, l3=0x11}
0x1164…1175 Line {l1=0x0f, l2=»1900 OPEN C9$,R«, l3=0x0f}
0x1175…118b Line {l1=0x14, l2=»1910 EXEC F(0,0,C9$)«, l3=0x14}
0x118b…119f Line {l1=0x12, l2=»1920 GET C9$,1:D3$«, l3=0x12}
0x119f…11bc Line {l1=0x1b, l2=»1930 GET C9$,2:D4$,I8,I9,J0«, l3=0x1b}
0x11bc…11d1 Line {l1=0x13, l2=»1935 GET C9$,3:DAD$«, l3=0x13}
0x11d1…11e0 Line {l1=0x0d, l2=»1940 ENDPROC «, l3=0x0d}
0x11e0…11f7 Line {l1=0x15, l2=»1950 PROC F(J1,J2,J3)«, l3=0x15}
0x11f7…1215 Line {l1=0x1c, l2=»1960 IF STATUS(J3$)<>0 THEN «, l3=0x1c}
0x1215…1224 Line {l1=0x0d, l2=»1970 OUTPUT T«, l3=0x0d}
0x1224…1252 Line {l1=0x2c, l2=»1980 PRINT "FIL-FEJL ";J3$;STATUS(J3$),J1;J2«, l3=0x2c}
0x1252…125e Line {l1=0x0a, l2=»1990 STOP «, l3=0x0a}
0x125e…126b Line {l1=0x0b, l2=»2000 ENDIF «, l3=0x0b}
0x126b…127a Line {l1=0x0d, l2=»2010 ENDPROC «, l3=0x0d}
0x127a…1290 Line {l1=0x14, l2=»2020 PROC INLINE(G5)«, l3=0x14}
0x1290…129e Line {l1=0x0c, l2=»2030 REPEAT «, l3=0x0c}
0x129e…12b9 Line {l1=0x19, l2=»2040 CURSOR E6(G5),E7(G5)«, l3=0x19}
0x12b9…12cc Line {l1=0x11, l2=»2050 INPUT "",F0$«, l3=0x11}
0x12cc…12e4 Line {l1=0x16, l2=»2060 IF E8(G5)<0 THEN «, l3=0x16}
0x12e4…12ef Line {l1=0x09, l2=»2065 J4=0«, l3=0x09}
0x12ef…1314 Line {l1=0x23, l2=»2070 IF LEN(F0$)<=ABS(E8(G5)) THEN «, l3=0x23}
0x1314…131f Line {l1=0x09, l2=»2080 J4=1«, l3=0x09}
0x131f…1345 Line {l1=0x24, l2=»2090 FOR I=LEN(F0$)+1 TO ABS(E8(G5))«, l3=0x24}
0x1345…1356 Line {l1=0x0f, l2=»2100 F0$(I)=" "«, l3=0x0f}
0x1356…1363 Line {l1=0x0b, l2=»2110 NEXT I«, l3=0x0b}
0x1363…1370 Line {l1=0x0b, l2=»2140 ENDIF «, l3=0x0b}
0x1370…137c Line {l1=0x0a, l2=»2150 ELSE «, l3=0x0a}
0x137c…1395 Line {l1=0x17, l2=»2160 EXEC CHECK(F0$,J4)«, l3=0x17}
0x1395…13c0 Line {l1=0x29, l2=»2170 IF E8(G5)>0 AND E8(G5)<>J4 THEN J4=0«, l3=0x29}
0x13c0…13cd Line {l1=0x0b, l2=»2180 ENDIF «, l3=0x0b}
0x13cd…13df Line {l1=0x10, l2=»2190 UNTIL J4<>0«, l3=0x10}
0x13df…13ee Line {l1=0x0d, l2=»2200 ENDPROC «, l3=0x0d}
0x13ee…1403 Line {l1=0x13, l2=»2210 PROC SKRIVPICT«, l3=0x13}
0x1403…1410 Line {l1=0x0b, l2=»2220 CLEAR «, l3=0x0b}
0x1410…1430 Line {l1=0x1e, l2=»2230 PRINT TAB(17);"Afregning"«, l3=0x1e}
0x1430…144b Line {l1=0x19, l2=»2240 PRINT " Lønperioden"«, l3=0x19}
0x144b…147a Line {l1=0x2d, l2=»2250 PRINT " Dispositionsdato, lønoverførsel"«, l3=0x2d}
0x147a…14a3 Line {l1=0x27, l2=»2260 PRINT " Maksimum feriedage i året"«, l3=0x27}
0x14a3…14d5 Line {l1=0x30, l2=»2270 PRINT " Lønperiodekode 1,2,3,4,5,6 eller 7"«, l3=0x30}
0x14d5…1507 Line {l1=0x30, l2=»2280 PRINT " Arbejdere(A) eller funktionærer(F)"«, l3=0x30}
0x1507…1514 Line {l1=0x0b, l2=»2290 PRINT «, l3=0x0b}
0x1514…1536 Line {l1=0x20, l2=»2300 PRINT " Lønspecifikationer"«, l3=0x20}
0x1536…1552 Line {l1=0x1a, l2=»2310 PRINT " Gruppe/lønnr"«, l3=0x1a}
0x1552…155f Line {l1=0x0b, l2=»2320 PRINT «, l3=0x0b}
0x155f…1595 Line {l1=0x34, l2=»2330 PRINT " Feriepengeopgørelse: start-slutdag"«, l3=0x34}
0x1595…15b6 Line {l1=0x1f, l2=»2340 PRINT " Feriekode 1/lønnr"«, l3=0x1f}
0x15b6…15d7 Line {l1=0x1f, l2=»2350 PRINT " Feriekode 2/lønnr"«, l3=0x1f}
0x15d7…15f8 Line {l1=0x1f, l2=»2360 PRINT " Feriekode 3/lønnr"«, l3=0x1f}
0x15f8…1605 Line {l1=0x0b, l2=»2370 PRINT «, l3=0x0b}
0x1605…1621 Line {l1=0x1a, l2=»2380 PRINT " SH-opgørelse"«, l3=0x1a}
0x1621…1640 Line {l1=0x1d, l2=»2390 PRINT " SH-kode 1/lønnr"«, l3=0x1d}
0x1640…165f Line {l1=0x1d, l2=»2400 PRINT " SH-kode 2/lønnr"«, l3=0x1d}
0x165f…167e Line {l1=0x1d, l2=»2410 PRINT " SH-kode 3/lønnr"«, l3=0x1d}
0x167e…168d Line {l1=0x0d, l2=»2420 ENDPROC «, l3=0x0d}
0x168d…169a Line {l1=0x0b, l2=»2430 PROC Å«, l3=0x0b}
0x169a…16b5 Line {l1=0x19, l2=»2440 EXEC CONV(OP1$,J5,2)«, l3=0x19}
0x16b5…16ec Line {l1=0x35, l2=»2450 F0$(1)=D5$(29);F0$(2,3)=OP1$;F0$(5:20)=D5$(2,21)«, l3=0x35}
0x16ec…1712 Line {l1=0x24, l2=»2480 IF F0$(43)="+" THEN F0$(43)=" "«, l3=0x24}
0x1712…1738 Line {l1=0x24, l2=»2490 IF F0$(54)="+" THEN F0$(54)=" "«, l3=0x24}
0x1738…175e Line {l1=0x24, l2=»2500 IF F0$(62)="+" THEN F0$(62)=" "«, l3=0x24}
0x175e…176f Line {l1=0x0f, l2=»2510 PRINT F0$;«, l3=0x0f}
0x176f…1785 Line {l1=0x14, l2=»2520 J6=J6+1;F0$=E9$«, l3=0x14}
0x1785…1794 Line {l1=0x0d, l2=»2540 ENDPROC «, l3=0x0d}
0x1794…17a5 Line {l1=0x0f, l2=»2550 PROC Z(G5)«, l3=0x0f}
0x17a5…17b1 Line {l1=0x0a, l2=»2560 J5=G5«, l3=0x0a}
0x17b1…17cf Line {l1=0x1c, l2=»2570 GET D8$,G5:D5$,J7,J8,J9«, l3=0x1c}
0x17cf…17e6 Line {l1=0x15, l2=»2580 EXEC F(2,G5,D8$)«, l3=0x15}
0x17e6…17f5 Line {l1=0x0d, l2=»2590 ENDPROC «, l3=0x0d}
0x17f5…1810 Line {l1=0x19, l2=»2600 PROC CONVDATE(I1,I2)«, l3=0x19}
0x1810…1823 Line {l1=0x11, l2=»2610 K0=I2;I1$=""«, l3=0x11}
0x1823…183e Line {l1=0x19, l2=»2620 FOR I=8 TO 1 STEP -1«, l3=0x19}
0x183e…185d Line {l1=0x1d, l2=»2625 I1$(I)=CHR(K0 MOD TI+48)«, l3=0x1d}
0x185d…1876 Line {l1=0x17, l2=»2630 IF I MOD 3=0 THEN «, l3=0x17}
0x1876…1887 Line {l1=0x0f, l2=»2631 I1$(I)="-"«, l3=0x0f}
0x1887…1893 Line {l1=0x0a, l2=»2632 ELSE «, l3=0x0a}
0x1893…18a6 Line {l1=0x11, l2=»2633 K0=K0 DIV TI«, l3=0x11}
0x18a6…18b3 Line {l1=0x0b, l2=»2634 ENDIF «, l3=0x0b}
0x18b3…18c0 Line {l1=0x0b, l2=»2690 NEXT I«, l3=0x0b}
0x18c0…18cf Line {l1=0x0d, l2=»2700 ENDPROC «, l3=0x0d}
0x18cf…18e3 Line {l1=0x12, l2=»2710 PROC Æ(I1,I2)«, l3=0x12}
0x18e3…18f1 Line {l1=0x0c, l2=»2720 I1$=B3$«, l3=0x0c}
0x18f1…1906 Line {l1=0x13, l2=»2730 IF I2<>0 THEN «, l3=0x13}
0x1906…1947 Line {l1=0x3f, l2=»2740 I1$(9,TI)=",0";I0=ABS(I2);K0=INT((I0-INT(I0))*100+0.50001)«, l3=0x3f}
0x1947…1966 Line {l1=0x1d, l2=»2770 IF I2<0 THEN I1$(12)="-"«, l3=0x1d}
0x1966…1982 Line {l1=0x1a, l2=»2780 FOR I=EL TO 1 STEP -1«, l3=0x1a}
0x1982…1996 Line {l1=0x12, l2=»2790 IF I<>9 THEN «, l3=0x12}
0x1996…19b5 Line {l1=0x1d, l2=»2800 I1$(I)=CHR(K0 MOD TI+48)«, l3=0x1d}
0x19b5…19c8 Line {l1=0x11, l2=»2810 K0=K0 DIV TI«, l3=0x11}
0x19c8…19e8 Line {l1=0x1e, l2=»2820 IF K0=0 AND I<TI THEN I=0«, l3=0x1e}
0x19e8…19f4 Line {l1=0x0a, l2=»2830 ELSE «, l3=0x0a}
0x19f4…1a05 Line {l1=0x0f, l2=»2840 K0=INT(I0)«, l3=0x0f}
0x1a05…1a12 Line {l1=0x0b, l2=»2850 ENDIF «, l3=0x0b}
0x1a12…1a1f Line {l1=0x0b, l2=»2860 NEXT I«, l3=0x0b}
0x1a1f…1a2c Line {l1=0x0b, l2=»2870 ENDIF «, l3=0x0b}
0x1a2c…1a3b Line {l1=0x0d, l2=»2880 ENDPROC «, l3=0x0d}
0x1a3b…1a55 Line {l1=0x18, l2=»2890 PROC PERVERT(I1,I2)«, l3=0x18}
0x1a55…1a60 Line {l1=0x09, l2=»2900 I2=0«, l3=0x09}
0x1a60…1a7c Line {l1=0x1a, l2=»2910 FOR I=1 TO LEN(I1$)-1«, l3=0x1a}
0x1a7c…1abe Line {l1=0x40, l2=»2920 IF I1$(I)<>" " AND I1$(I)<>"," THEN I2=TI*I2+ORD(I1$(I))-48«, l3=0x40}
0x1abe…1acb Line {l1=0x0b, l2=»2930 NEXT I«, l3=0x0b}
0x1acb…1aeb Line {l1=0x1e, l2=»2940 IF I1$(I)="-" THEN I2=-I2«, l3=0x1e}
0x1aeb…1afb Line {l1=0x0e, l2=»2950 I2=I2/100«, l3=0x0e}
0x1afb…1b0a Line {l1=0x0d, l2=»2960 ENDPROC «, l3=0x0d}
0x1b0a…1b1f Line {l1=0x13, l2=»2970 PROC SKRIVBUND«, l3=0x13}
0x1b1f…1b33 Line {l1=0x12, l2=»2980 IF J6>0 THEN «, l3=0x12}
0x1b33…1b48 Line {l1=0x13, l2=»2990 WHILE J6<K1-12«, l3=0x13}
0x1b48…1b55 Line {l1=0x0b, l2=»3000 PRINT «, l3=0x0b}
0x1b55…1b63 Line {l1=0x0c, l2=»3010 J6=J6+1«, l3=0x0c}
0x1b63…1b73 Line {l1=0x0e, l2=»3020 ENDWHILE «, l3=0x0e}
0x1b73…1b8d Line {l1=0x18, l2=»3030 EXEC CONV(C3$,G6,6)«, l3=0x18}
0x1b8d…1ba7 Line {l1=0x18, l2=»3040 EXEC CONV(F1$,G7,4)«, l3=0x18}
0x1ba7…1bb9 Line {l1=0x10, l2=»3050 C3$=C3$+F1$«, l3=0x10}
0x1bb9…1be1 Line {l1=0x26, l2=»3060 PRINT TAB(EL);"LØNMODTAGER ";C3$;«, l3=0x26}
0x1be1…1bff Line {l1=0x1c, l2=»3070 PRINT USING " ####":F8;«, l3=0x1c}
0x1bff…1c2c Line {l1=0x2b, l2=»3080 PRINT TAB(44);"ARBEJDSGIVER ";D3$(1,7)«, l3=0x2b}
0x1c2c…1c39 Line {l1=0x0b, l2=»3090 PRINT «, l3=0x0b}
0x1c39…1c46 Line {l1=0x0b, l2=»3100 PRINT «, l3=0x0b}
0x1c46…1c76 Line {l1=0x2e, l2=»3110 PRINT TAB(13);D1$(1,25);TAB(46);D3$(8,32)«, l3=0x2e}
0x1c76…1c95 Line {l1=0x1d, l2=»3120 PRINT TAB(13);D1$(26,48)«, l3=0x1d}
0x1c95…1cc7 Line {l1=0x30, l2=»3130 PRINT TAB(13);D1$(49,71);TAB(46);D3$(33,55)«, l3=0x30}
0x1cc7…1d08 Line {l1=0x3f, l2=»3140 PRINT TAB(13);D2$(1,4);" ";D2$(5,18);TAB(46);D4$(1,4);" ";«, l3=0x3f}
0x1d08…1d1e Line {l1=0x14, l2=»3150 PRINT D4$(5,18)«, l3=0x14}
0x1d1e…1d2c Line {l1=0x0c, l2=»3160 J6=J6+7«, l3=0x0c}
0x1d2c…1d3e Line {l1=0x10, l2=»3170 WHILE J6<K1«, l3=0x10}
0x1d3e…1d4b Line {l1=0x0b, l2=»3180 PRINT «, l3=0x0b}
0x1d4b…1d59 Line {l1=0x0c, l2=»3190 J6=J6+1«, l3=0x0c}
0x1d59…1d69 Line {l1=0x0e, l2=»3200 ENDWHILE «, l3=0x0e}
0x1d69…1d74 Line {l1=0x09, l2=»3210 J6=0«, l3=0x09}
0x1d74…1d81 Line {l1=0x0b, l2=»3220 ENDIF «, l3=0x0b}
0x1d81…1d90 Line {l1=0x0d, l2=»3230 ENDPROC «, l3=0x0d}
0x1d90…1daa Line {l1=0x18, l2=»3240 PROC SKRIVHOVED(G5)«, l3=0x18}
0x1daa…1db7 Line {l1=0x0b, l2=»3250 PRINT «, l3=0x0b}
0x1db7…1dcd Line {l1=0x14, l2=»3260 A6(G5)=A6(G5)+1«, l3=0x14}
0x1dcd…1df3 Line {l1=0x24, l2=»3270 PRINT USING " SIDE####":A6(G5);«, l3=0x24}
0x1df3…1e1b Line {l1=0x26, l2=»3275 PRINT " UDSKRIFTSDATO ";DAD$;«, l3=0x26}
0x1e1b…1e4d Line {l1=0x30, l2=»3280 PRINT TAB(49);"LØNPERIODEN ";A7$;" / ";A8$;«, l3=0x30}
0x1e4d…1e5f Line {l1=0x10, l2=»3290 CASE G5 OF «, l3=0x10}
0x1e5f…1e6c Line {l1=0x0b, l2=»3300 WHEN 1«, l3=0x0b}
0x1e6c…1e77 Line {l1=0x09, l2=»3310 J6=6«, l3=0x09}
0x1e77…1e9e Line {l1=0x25, l2=»3320 PRINT TAB(33);"LØNSPECIFIKATION"«, l3=0x25}
0x1e9e…1ec5 Line {l1=0x25, l2=»3330 PRINT TAB(33);"****************"«, l3=0x25}
0x1ec5…1ed2 Line {l1=0x0b, l2=»3340 PRINT «, l3=0x0b}
0x1ed2…1f1c Line {l1=0x48, l2=»3350 PRINT " LA TEKST";TAB(26);"NUMMER SALDO ENHEDER SATS ";«, l3=0x48}
0x1f1c…1f3c Line {l1=0x1e, l2=»3360 PRINT "UDBETALT/TRUKKET";«, l3=0x1e}
0x1f3c…1f49 Line {l1=0x0b, l2=»3370 WHEN 2«, l3=0x0b}
0x1f49…1f54 Line {l1=0x09, l2=»3380 J6=5«, l3=0x09}
0x1f54…1f81 Line {l1=0x2b, l2=»3390 PRINT TAB(29);"FERIE- OG SH-OPGØRELSE"«, l3=0x2b}
0x1f81…1fae Line {l1=0x2b, l2=»3400 PRINT TAB(29);"**********************"«, l3=0x2b}
0x1fae…1fbb Line {l1=0x0b, l2=»3410 PRINT «, l3=0x0b}
0x1fbb…1fca Line {l1=0x0d, l2=»3420 ENDCASE «, l3=0x0d}
0x1fca…1fd9 Line {l1=0x0d, l2=»3430 ENDPROC «, l3=0x0d}
0x1fd9…1fea Line {l1=0x0f, l2=»3440 PROC NÆSTE«, l3=0x0f}
0x1fea…1ff8 Line {l1=0x0c, l2=»3450 REPEAT «, l3=0x0c}
0x1ff8…2006 Line {l1=0x0c, l2=»3460 F8=F8+1«, l3=0x0c}
0x2006…2011 Line {l1=0x09, l2=»3470 H1=1«, l3=0x09}
0x2011…2027 Line {l1=0x14, l2=»3480 IF F8<=I9 THEN «, l3=0x14}
0x2027…203f Line {l1=0x16, l2=»3490 EXEC INLØNMOD(F8)«, l3=0x16}
0x203f…205f Line {l1=0x1e, l2=»3500 IF A9$<>D2$(21) THEN H1=0«, l3=0x1e}
0x205f…208e Line {l1=0x2d, l2=»3510 IF B0$="A" AND D2$(24,25)>"89" THEN H1=0«, l3=0x2d}
0x208e…20bd Line {l1=0x2d, l2=»3520 IF B0$="F" AND D2$(24,25)<"90" THEN H1=0«, l3=0x2d}
0x20bd…20ca Line {l1=0x0b, l2=»3530 ENDIF «, l3=0x0b}
0x20ca…20db Line {l1=0x0f, l2=»3540 UNTIL H1>0«, l3=0x0f}
0x20db…20ea Line {l1=0x0d, l2=»3550 ENDPROC «, l3=0x0d}
0x20ea…2101 Line {l1=0x15, l2=»3560 PROC BEREGNFERIE«, l3=0x15}
0x2101…211a Line {l1=0x17, l2=»3570 EXEC SKRIVHOVED(2)«, l3=0x17}
0x211a…2139 Line {l1=0x1d, l2=»3580 IF K2=0 THEN EXEC INDTÆL«, l3=0x1d}
0x2139…2145 Line {l1=0x0a, l2=»3585 K4=H1«, l3=0x0a}
0x2145…2167 Line {l1=0x20, l2=»3590 IF A4(K3)>H1 THEN K4=A4(K3)«, l3=0x20}
0x2167…2173 Line {l1=0x0a, l2=»3595 K5=H6«, l3=0x0a}
0x2173…219d Line {l1=0x28, l2=»3640 IF A5(K3)<H6 OR H6=0 THEN K5=A5(K3)«, l3=0x28}
0x219d…21bc Line {l1=0x1d, l2=»3690 K6=K5 MOD 100-K4 MOD 100«, l3=0x1d}
0x21bc…21f3 Line {l1=0x35, l2=»3700 K6=K6+30*(K5 DIV 100 MOD 100-K4 DIV 100 MOD 100)«, l3=0x35}
0x21f3…2213 Line {l1=0x1e, l2=»3705 K7=INT(2*I7*K6/365+0.5)/2«, l3=0x1e}
0x2213…223f Line {l1=0x2a, l2=»3710 K6=K6+365*(K5 DIV 10000-K4 DIV 10000)«, l3=0x2a}
0x223f…225a Line {l1=0x19, l2=»3720 IF A9$="1" THEN K7=0«, l3=0x19}
0x225a…226f Line {l1=0x13, l2=»3770 EXEC Æ(C3$,K7)«, l3=0x13}
0x226f…2281 Line {l1=0x10, l2=»3800 C4$=C5$(29)«, l3=0x10}
0x2281…229d Line {l1=0x1a, l2=»3810 EXEC C(0,C3$,C4$,F1$)«, l3=0x1a}
0x229d…22b5 Line {l1=0x16, l2=»3820 C5$(29)=F1$(2:EL)«, l3=0x16}
0x22b5…22c9 Line {l1=0x12, l2=»3830 IF K3=3 THEN «, l3=0x12}
0x22c9…22de Line {l1=0x13, l2=»3840 EXEC Æ(C3$,I7)«, l3=0x13}
0x22de…22fa Line {l1=0x1a, l2=»3850 EXEC C(4,F1$,C3$,C4$)«, l3=0x1a}
0x22fa…2315 Line {l1=0x19, l2=»3860 IF SI=2 THEN F1$=C3$«, l3=0x19}
0x2315…2322 Line {l1=0x0b, l2=»3870 ENDIF «, l3=0x0b}
0x2322…2334 Line {l1=0x10, l2=»3873 C4$=C5$(44)«, l3=0x10}
0x2334…2350 Line {l1=0x1a, l2=»3876 EXEC C(0,C4$,F1$,C4$)«, l3=0x1a}
0x2350…2368 Line {l1=0x16, l2=»3880 C5$(44)=C4$(2:EL)«, l3=0x16}
0x2368…23b2 Line {l1=0x48, l2=»3890 PRINT " FERIEKODE ";D2$(22);" OR-KODE ";D2$(24,25);" FAGGR-KODE";H5«, l3=0x48}
0x23b2…23ce Line {l1=0x1a, l2=»3910 EXEC CONVDATE(C4$,K4)«, l3=0x1a}
0x23ce…23f5 Line {l1=0x25, l2=»3920 PRINT " ANSAT FRA ";C4$;" TIL ";«, l3=0x25}
0x23f5…2411 Line {l1=0x1a, l2=»3930 EXEC CONVDATE(C4$,K5)«, l3=0x1a}
0x2411…242d Line {l1=0x1a, l2=»3940 EXEC C(3,F1$,B5$,C3$)«, l3=0x1a}
0x242d…2451 Line {l1=0x22, l2=»3945 IF C3$(8)=" " THEN C3$(8)="0"«, l3=0x22}
0x2451…2495 Line {l1=0x42, l2=»3950 PRINT C4$;" FERIEDAGE ";F1$(7,TI);" HERAF ";C3$(8);" LØRDAGE"«, l3=0x42}
0x2495…24a2 Line {l1=0x0b, l2=»3960 PRINT «, l3=0x0b}
0x24a2…24f0 Line {l1=0x4c, l2=»3970 PRINT " LA TEKST";TAB(38);"SALDO ENHEDER SATS UDBETALT/TRUKKET";«, l3=0x4c}
0x24f0…251c Line {l1=0x2a, l2=»3990 IF C5$(16,EL)="+" THEN C5$(16,EL)=" "«, l3=0x2a}
0x251c…2556 Line {l1=0x38, l2=»4000 PRINT TAB(5);"FERIEBERETT LØN";TAB(42);"0 ";C5$(16)«, l3=0x38}
0x2556…256e Line {l1=0x16, l2=»4010 C5$(16)=B3$(2:EL)«, l3=0x16}
0x256e…257f Line {l1=0x0f, l2=»4020 EXEC Z(90)«, l3=0x0f}
0x257f…2598 Line {l1=0x17, l2=»4025 EXEC OP(8,C5$(20))«, l3=0x17}
0x2598…25bd Line {l1=0x23, l2=»4030 F0$(42)="0";F0$(44,54)=C5$(20)«, l3=0x23}
0x25bd…25ca Line {l1=0x0b, l2=»4040 EXEC Å«, l3=0x0b}
0x25ca…25db Line {l1=0x0f, l2=»4050 EXEC Z(91)«, l3=0x0f}
0x25db…25f4 Line {l1=0x17, l2=»4055 EXEC OP(9,C5$(17))«, l3=0x17}
0x25f4…2619 Line {l1=0x23, l2=»4060 F0$(42)="0";F0$(44,54)=C5$(17)«, l3=0x23}
0x2619…2626 Line {l1=0x0b, l2=»4070 EXEC Å«, l3=0x0b}
0x2626…263a Line {l1=0x12, l2=»4080 IF H0>0 THEN «, l3=0x12}
0x263a…264f Line {l1=0x13, l2=»4090 EXEC Æ(C3$,H0)«, l3=0x13}
0x264f…265b Line {l1=0x0a, l2=»4100 ELSE «, l3=0x0a}
0x265b…2673 Line {l1=0x16, l2=»4110 K8=INT(G9*12/365)«, l3=0x16}
0x2673…2688 Line {l1=0x13, l2=»4120 EXEC Æ(C4$,K8)«, l3=0x13}
0x2688…269a Line {l1=0x10, l2=»4125 F1$=C5$(29)«, l3=0x10}
0x269a…26b6 Line {l1=0x1a, l2=»4130 EXEC C(2,F1$,C4$,C3$)«, l3=0x1a}
0x26b6…26c3 Line {l1=0x0b, l2=»4140 ENDIF «, l3=0x0b}
0x26c3…2705 Line {l1=0x40, l2=»4150 B1$=C5$(20);C4$=C5$(17);C5$(20)=B3$(2:EL);C5$(17)=B3$(2:EL)«, l3=0x40}
0x2705…271b Line {l1=0x14, l2=»4160 C5$(29)=C5$(20)«, l3=0x14}
0x271b…2737 Line {l1=0x1a, l2=»4190 EXEC C(0,B1$,C4$,B1$)«, l3=0x1a}
0x2737…2750 Line {l1=0x17, l2=»4200 EXEC OPTÆL(34,B1$)«, l3=0x17}
0x2750…2761 Line {l1=0x0f, l2=»4230 EXEC Z(82)«, l3=0x0f}
0x2761…277a Line {l1=0x17, l2=»4235 F0$(33,43)=C5$(34)«, l3=0x17}
0x277a…27a5 Line {l1=0x29, l2=»4240 F0$(64+(B1$(12)="-")*6:TI)=B1$(2:TI)«, l3=0x29}
0x27a5…27b2 Line {l1=0x0b, l2=»4250 EXEC Å«, l3=0x0b}
0x27b2…27ce Line {l1=0x1a, l2=»4260 EXEC C(4,B1$,C3$,C4$)«, l3=0x1a}
0x27ce…27df Line {l1=0x0f, l2=»4270 EXEC Z(92)«, l3=0x0f}
0x27df…27fa Line {l1=0x19, l2=»4280 F0$(45,54)=C3$(3:TI)«, l3=0x19}
0x27fa…280e Line {l1=0x12, l2=»4290 IF SI=2 THEN «, l3=0x12}
0x280e…282a Line {l1=0x1a, l2=»4300 EXEC C(1,B1$,C3$,C4$)«, l3=0x1a}
0x282a…2835 Line {l1=0x09, l2=»4310 H0=0«, l3=0x09}
0x2835…284a Line {l1=0x13, l2=»4320 EXEC Æ(C3$,G8)«, l3=0x13}
0x284a…2864 Line {l1=0x18, l2=»4330 F0$(56,62)=C3$(6:7)«, l3=0x18}
0x2864…2876 Line {l1=0x10, l2=»4335 C3$(12)="-"«, l3=0x10}
0x2876…2892 Line {l1=0x1a, l2=»4340 EXEC C(2,C4$,C3$,B2$)«, l3=0x1a}
0x2892…28ae Line {l1=0x1a, l2=»4350 EXEC C(3,B2$,B4$,B2$)«, l3=0x1a}
0x28ae…28c4 Line {l1=0x14, l2=»4355 B2$(TI,EL)="00"«, l3=0x14}
0x28c4…28e0 Line {l1=0x1a, l2=»4360 EXEC C(0,B1$,B2$,C0$)«, l3=0x1a}
0x28e0…28ec Line {l1=0x0a, l2=»4370 ELSE «, l3=0x0a}
0x28ec…28fa Line {l1=0x0c, l2=»4380 B2$=B3$«, l3=0x0c}
0x28fa…2908 Line {l1=0x0c, l2=»4390 C0$=B1$«, l3=0x0c}
0x2908…291c Line {l1=0x12, l2=»4400 IF H0>0 THEN «, l3=0x12}
0x291c…2938 Line {l1=0x1a, l2=»4410 EXEC C(1,C3$,B1$,C3$)«, l3=0x1a}
0x2938…2953 Line {l1=0x19, l2=»4420 EXEC PERVERT(C3$,H0)«, l3=0x19}
0x2953…2960 Line {l1=0x0b, l2=»4430 ENDIF «, l3=0x0b}
0x2960…296d Line {l1=0x0b, l2=»4440 ENDIF «, l3=0x0b}
0x296d…2986 Line {l1=0x17, l2=»4441 EXEC OPTÆL(40,B2$)«, l3=0x17}
0x2986…299c Line {l1=0x14, l2=»4442 EXEC OP(TI,B2$)«, l3=0x14}
0x299c…29b5 Line {l1=0x17, l2=»4444 F0$(33,43)=C5$(40)«, l3=0x17}
0x29b5…29d0 Line {l1=0x19, l2=»4450 F0$(70,79)=B2$(2:TI)«, l3=0x19}
0x29d0…29dd Line {l1=0x0b, l2=»4460 EXEC Å«, l3=0x0b}
0x29dd…29ee Line {l1=0x0f, l2=»4470 EXEC Z(93)«, l3=0x0f}
0x29ee…2a19 Line {l1=0x29, l2=»4480 F0$(64+6*(C0$(12)="-"):TI)=C0$(2:TI)«, l3=0x29}
0x2a19…2a26 Line {l1=0x0b, l2=»4490 EXEC Å«, l3=0x0b}
0x2a26…2a33 Line {l1=0x0b, l2=»4500 PRINT «, l3=0x0b}
0x2a33…2a41 Line {l1=0x0c, l2=»4510 J6=J6+6«, l3=0x0c}
0x2a41…2a50 Line {l1=0x0d, l2=»4520 ENDPROC «, l3=0x0d}
0x2a50…2a64 Line {l1=0x12, l2=»4530 PROC BEREGNSH«, l3=0x12}
0x2a64…2a78 Line {l1=0x12, l2=»4540 IF K9=0 THEN «, l3=0x12}
0x2a78…2a91 Line {l1=0x17, l2=»4550 EXEC SKRIVHOVED(2)«, l3=0x17}
0x2a91…2ab0 Line {l1=0x1d, l2=»4560 IF K2=0 THEN EXEC INDTÆL«, l3=0x1d}
0x2ab0…2abd Line {l1=0x0b, l2=»4570 ENDIF «, l3=0x0b}
0x2abd…2af7 Line {l1=0x38, l2=»4580 PRINT " SH-KODE ";D2$(23);" OR-KODE ";D2$(24,25);«, l3=0x38}
0x2af7…2b14 Line {l1=0x1b, l2=»4590 PRINT " FAGGR-KODE";H5«, l3=0x1b}
0x2b14…2b21 Line {l1=0x0b, l2=»4600 PRINT «, l3=0x0b}
0x2b21…2b5f Line {l1=0x3c, l2=»4610 PRINT " LA TEKST";TAB(38);"SALDO ENHEDER SATS ";«, l3=0x3c}
0x2b5f…2b7f Line {l1=0x1e, l2=»4620 PRINT "UDBETALT/TRUKKET";«, l3=0x1e}
0x2b7f…2b90 Line {l1=0x0f, l2=»4630 EXEC Z(95)«, l3=0x0f}
0x2b90…2baa Line {l1=0x18, l2=»4635 EXEC OP(EL,C5$(23))«, l3=0x18}
0x2baa…2bcf Line {l1=0x23, l2=»4640 F0$(42)="0";F0$(44,54)=C5$(23)«, l3=0x23}
0x2bcf…2bdc Line {l1=0x0b, l2=»4650 EXEC Å«, l3=0x0b}
0x2bdc…2c00 Line {l1=0x22, l2=»4660 C3$=C5$(23);C5$(23)=B3$(2:EL)«, l3=0x22}
0x2c00…2c16 Line {l1=0x14, l2=»4670 C4$=" "+C5$(26)«, l3=0x14}
0x2c16…2c46 Line {l1=0x2e, l2=»4675 IF C4$(12)="+" THEN EXEC C(1,B3$,C4$,C4$)«, l3=0x2e}
0x2c46…2c57 Line {l1=0x0f, l2=»4680 EXEC Z(96)«, l3=0x0f}
0x2c57…2c6d Line {l1=0x14, l2=»4685 EXEC OP(12,C4$)«, l3=0x14}
0x2c6d…2c94 Line {l1=0x25, l2=»4690 F0$(42)="0";F0$(44,54)=C4$(2:EL)«, l3=0x25}
0x2c94…2ca1 Line {l1=0x0b, l2=»4700 EXEC Å«, l3=0x0b}
0x2ca1…2cb9 Line {l1=0x16, l2=»4710 C5$(26)=B3$(2:EL)«, l3=0x16}
0x2cb9…2cd5 Line {l1=0x1a, l2=»4720 EXEC C(0,C3$,C4$,B1$)«, l3=0x1a}
0x2cd5…2cee Line {l1=0x17, l2=»4730 EXEC OPTÆL(34,B1$)«, l3=0x17}
0x2cee…2cff Line {l1=0x0f, l2=»4760 EXEC Z(82)«, l3=0x0f}
0x2cff…2d18 Line {l1=0x17, l2=»4770 F0$(33,43)=C5$(34)«, l3=0x17}
0x2d18…2d2d Line {l1=0x13, l2=»4780 EXEC Æ(C3$,G8)«, l3=0x13}
0x2d2d…2d3b Line {l1=0x0c, l2=»4782 C4$=B3$«, l3=0x0c}
0x2d3b…2d4d Line {l1=0x10, l2=»4785 C3$(12)="-"«, l3=0x10}
0x2d4d…2d68 Line {l1=0x19, l2=»4790 IF B1$(12)="+" THEN «, l3=0x19}
0x2d68…2d76 Line {l1=0x0c, l2=»4795 B2$=B1$«, l3=0x0c}
0x2d76…2d91 Line {l1=0x19, l2=»4800 F0$(64:TI)=B1$(2:TI)«, l3=0x19}
0x2d91…2da5 Line {l1=0x12, l2=»4801 IF H0>0 THEN «, l3=0x12}
0x2da5…2dba Line {l1=0x13, l2=»4802 EXEC Æ(C4$,H0)«, l3=0x13}
0x2dba…2dd6 Line {l1=0x1a, l2=»4803 EXEC C(4,B1$,C4$,C2$)«, l3=0x1a}
0x2dd6…2dea Line {l1=0x12, l2=»4804 IF SI=2 THEN «, l3=0x12}
0x2dea…2e06 Line {l1=0x1a, l2=»4805 EXEC C(1,B1$,C4$,B2$)«, l3=0x1a}
0x2e06…2e11 Line {l1=0x09, l2=»4806 H0=0«, l3=0x09}
0x2e11…2e1d Line {l1=0x0a, l2=»4807 ELSE «, l3=0x0a}
0x2e1d…2e39 Line {l1=0x1a, l2=»4808 EXEC C(1,C4$,B1$,C2$)«, l3=0x1a}
0x2e39…2e47 Line {l1=0x0c, l2=»4809 B2$=B3$«, l3=0x0c}
0x2e47…2e62 Line {l1=0x19, l2=»4810 EXEC PERVERT(C2$,H0)«, l3=0x19}
0x2e62…2e6f Line {l1=0x0b, l2=»4811 ENDIF «, l3=0x0b}
0x2e6f…2e7c Line {l1=0x0b, l2=»4812 ENDIF «, l3=0x0b}
0x2e7c…2e98 Line {l1=0x1a, l2=»4819 EXEC C(2,C3$,B2$,C1$)«, l3=0x1a}
0x2e98…2eb4 Line {l1=0x1a, l2=»4820 EXEC C(3,C1$,B4$,C1$)«, l3=0x1a}
0x2eb4…2eca Line {l1=0x14, l2=»4830 C1$(TI,EL)="00"«, l3=0x14}
0x2eca…2ee3 Line {l1=0x17, l2=»4840 EXEC OPTÆL(40,C1$)«, l3=0x17}
0x2ee3…2eef Line {l1=0x0a, l2=»4860 ELSE «, l3=0x0a}
0x2eef…2f0a Line {l1=0x19, l2=»4870 F0$(70:TI)=B1$(2:TI)«, l3=0x19}
0x2f0a…2f18 Line {l1=0x0c, l2=»4880 C1$=B3$«, l3=0x0c}
0x2f18…2f25 Line {l1=0x0b, l2=»4890 ENDIF «, l3=0x0b}
0x2f25…2f32 Line {l1=0x0b, l2=»4900 EXEC Å«, l3=0x0b}
0x2f32…2f43 Line {l1=0x0f, l2=»4910 EXEC Z(97)«, l3=0x0f}
0x2f43…2f59 Line {l1=0x14, l2=»4915 EXEC OP(13,C1$)«, l3=0x14}
0x2f59…2f87 Line {l1=0x2c, l2=»4920 F0$(33,43)=C5$(40);F0$(45,54)=C4$(3:TI)«, l3=0x2c}
0x2f87…2fb5 Line {l1=0x2c, l2=»4930 F0$(56:6)=C3$(6:6);F0$(70:TI)=C1$(2:TI)«, l3=0x2c}
0x2fb5…2fc2 Line {l1=0x0b, l2=»4940 EXEC Å«, l3=0x0b}
0x2fc2…2fde Line {l1=0x1a, l2=»4950 EXEC C(0,C1$,B1$,C2$)«, l3=0x1a}
0x2fde…2fef Line {l1=0x0f, l2=»4960 EXEC Z(98)«, l3=0x0f}
0x2fef…301a Line {l1=0x29, l2=»4970 F0$(64+6*(C2$(12)="-"):TI)=C2$(2:TI)«, l3=0x29}
0x301a…3027 Line {l1=0x0b, l2=»4980 EXEC Å«, l3=0x0b}
0x3027…3035 Line {l1=0x0c, l2=»4990 J6=J6+3«, l3=0x0c}
0x3035…3044 Line {l1=0x0d, l2=»5000 ENDPROC «, l3=0x0d}
0x3044…3059 Line {l1=0x13, l2=»5010 PROC BEREGNLØN«, l3=0x13}
0x3059…306e Line {l1=0x13, l2=»5020 L0=(F8-1)*J0+1«, l3=0x13}
0x306e…3083 Line {l1=0x13, l2=»5030 GET D7$,L0:D6$«, l3=0x13}
0x3083…309d Line {l1=0x18, l2=»5040 IF D6$(1)="1" THEN «, l3=0x18}
0x309d…30b0 Line {l1=0x11, l2=»5042 FOR I=1 TO 8«, l3=0x11}
0x30b0…30c7 Line {l1=0x15, l2=»5044 B9$(I)=B3$(2:EL)«, l3=0x15}
0x30c7…30d4 Line {l1=0x0b, l2=»5046 NEXT I«, l3=0x0b}
0x30d4…30df Line {l1=0x09, l2=»5050 L1=1«, l3=0x09}
0x30df…30ea Line {l1=0x09, l2=»5060 L2=0«, l3=0x09}
0x30ea…30fb Line {l1=0x0f, l2=»5062 D6$(1)="2"«, l3=0x0f}
0x30fb…3110 Line {l1=0x13, l2=»5064 PUT D7$,L0:D6$«, l3=0x13}
0x3110…3129 Line {l1=0x17, l2=»5070 EXEC SKRIVHOVED(1)«, l3=0x17}
0x3129…313b Line {l1=0x10, l2=»5080 EXEC INDTÆL«, l3=0x10}
0x313b…3149 Line {l1=0x0c, l2=»5090 REPEAT «, l3=0x0c}
0x3149…3161 Line {l1=0x16, l2=»5100 J5=ORD(D6$(3))-48«, l3=0x16}
0x3161…3193 Line {l1=0x30, l2=»5110 IF D6$(4)<>" " THEN J5=J5*TI+ORD(D6$(4))-48«, l3=0x30}
0x3193…31be Line {l1=0x29, l2=»5120 IF J5<78 AND J5<>60 AND J5<>70 THEN «, l3=0x29}
0x31be…31cf Line {l1=0x0f, l2=»5130 EXEC Z(J5)«, l3=0x0f}
0x31cf…31e3 Line {l1=0x12, l2=»5140 IF J7>0 THEN «, l3=0x12}
0x31e3…3207 Line {l1=0x22, l2=»5141 IF J7=2 OR J7=4 OR J7=7 THEN «, l3=0x22}
0x3207…321c Line {l1=0x13, l2=»5143 C3$=D6$(EL:TI)«, l3=0x13}
0x321c…3235 Line {l1=0x17, l2=»5144 EXEC OPTÆL(J7,C3$)«, l3=0x17}
0x3235…3243 Line {l1=0x0c, l2=»5146 J7=J7+1«, l3=0x0c}
0x3243…3257 Line {l1=0x12, l2=»5147 IF J7<7 THEN «, l3=0x12}
0x3257…3268 Line {l1=0x0f, l2=»5148 F1$=B9$(8)«, l3=0x0f}
0x3268…3284 Line {l1=0x1a, l2=»5149 EXEC C(0,F1$,C3$,C4$)«, l3=0x1a}
0x3284…329b Line {l1=0x15, l2=»5150 B9$(8)=C4$(2:EL)«, l3=0x15}
0x329b…32a8 Line {l1=0x0b, l2=»5151 ENDIF «, l3=0x0b}
0x32a8…32b5 Line {l1=0x0b, l2=»5152 ENDIF «, l3=0x0b}
0x32b5…32ca Line {l1=0x13, l2=»5160 C3$=D6$(AZ:TI)«, l3=0x13}
0x32ca…32e3 Line {l1=0x17, l2=»5170 EXEC OPTÆL(J7,C3$)«, l3=0x17}
0x32e3…32f0 Line {l1=0x0b, l2=»5190 ENDIF «, l3=0x0b}
0x32f0…3304 Line {l1=0x12, l2=»5200 IF J8>0 THEN «, l3=0x12}
0x3304…3319 Line {l1=0x13, l2=»5220 C3$=D6$(AZ:TI)«, l3=0x13}
0x3319…3332 Line {l1=0x17, l2=»5230 EXEC OPTÆL(J8,C3$)«, l3=0x17}
0x3332…333f Line {l1=0x0b, l2=»5250 ENDIF «, l3=0x0b}
0x333f…3353 Line {l1=0x12, l2=»5260 IF J9>0 THEN «, l3=0x12}
0x3353…3368 Line {l1=0x13, l2=»5280 C3$=D6$(AZ:TI)«, l3=0x13}
0x3368…3381 Line {l1=0x17, l2=»5290 EXEC OPTÆL(J9,C3$)«, l3=0x17}
0x3381…338e Line {l1=0x0b, l2=»5310 ENDIF «, l3=0x0b}
0x338e…33a7 Line {l1=0x17, l2=»5320 F0$(26:6)=D6$(5:6)«, l3=0x17}
0x33a7…33ba Line {l1=0x11, l2=»5330 CASE 0=0 OF «, l3=0x11}
0x33ba…33eb Line {l1=0x2f, l2=»5340 WHEN (J5>0 AND J5<60) OR (J5>61 AND J5<65)«, l3=0x2f}
0x33eb…33fd Line {l1=0x10, l2=»5350 CASE J5 OF «, l3=0x10}
0x33fd…340e Line {l1=0x0f, l2=»5360 WHEN 41,49«, l3=0x0f}
0x340e…3427 Line {l1=0x17, l2=»5370 F0$(33,43)=C5$(J9)«, l3=0x17}
0x3427…343c Line {l1=0x13, l2=»5371 IF J5=49 THEN «, l3=0x13}
0x343c…3458 Line {l1=0x1a, l2=»5372 C8$(21,30)=D6$(AZ:TI)«, l3=0x1a}
0x3458…3464 Line {l1=0x0a, l2=»5373 ELSE «, l3=0x0a}
0x3464…3480 Line {l1=0x1a, l2=»5374 EXEC OP(2,D6$(AZ,37))«, l3=0x1a}
0x3480…348d Line {l1=0x0b, l2=»5375 ENDIF «, l3=0x0b}
0x348d…349b Line {l1=0x0c, l2=»5380 WHEN 42«, l3=0x0c}
0x349b…34b7 Line {l1=0x1a, l2=»5385 EXEC OP(3,D6$(AZ,37))«, l3=0x1a}
0x34b7…34d0 Line {l1=0x17, l2=»5390 F0$(33,43)=C5$(26)«, l3=0x17}
0x34d0…34df Line {l1=0x0d, l2=»5400 ENDCASE «, l3=0x0d}
0x34df…3509 Line {l1=0x28, l2=»5402 IF J5=40 THEN EXEC OP(1,D6$(AZ,37))«, l3=0x28}
0x3509…351e Line {l1=0x13, l2=»5405 IF J5>61 THEN «, l3=0x13}
0x351e…3530 Line {l1=0x10, l2=»5406 D6$(37)="-"«, l3=0x10}
0x3530…356a Line {l1=0x38, l2=»5407 C3$=B6$(EL+20*(J5=62)+30*(J5=64):TI);C4$=D6$(AZ:TI)«, l3=0x38}
0x356a…3586 Line {l1=0x1a, l2=»5408 EXEC C(0,C3$,C4$,C3$)«, l3=0x1a}
0x3586…35b7 Line {l1=0x2f, l2=»5409 B6$(EL+20*(J5=62)+30*(J5=64):TI)=C3$(3:TI)«, l3=0x2f}
0x35b7…35c4 Line {l1=0x0b, l2=»5415 ENDIF «, l3=0x0b}
0x35c4…35e0 Line {l1=0x1a, l2=»5418 F0$(45,54)=D6$(EL:TI)«, l3=0x1a}
0x35e0…35fb Line {l1=0x19, l2=»5420 F0$(56,62)=D6$(21:7)«, l3=0x19}
0x35fb…3616 Line {l1=0x19, l2=»5430 IF D6$(37)="+" THEN «, l3=0x19}
0x3616…3630 Line {l1=0x18, l2=»5440 F0$(65:9)=D6$(AZ:9)«, l3=0x18}
0x3630…363c Line {l1=0x0a, l2=»5450 ELSE «, l3=0x0a}
0x363c…3657 Line {l1=0x19, l2=»5460 F0$(71,79)=D6$(AZ:9)«, l3=0x19}
0x3657…3664 Line {l1=0x0b, l2=»5470 ENDIF «, l3=0x0b}
0x3664…368a Line {l1=0x24, l2=»5480 WHEN J5=61 OR (J5>64 AND J5<70)«, l3=0x24}
0x368a…369c Line {l1=0x10, l2=»5490 D6$(37)="+"«, l3=0x10}
0x369c…36bc Line {l1=0x1e, l2=»5492 IF J5>67 THEN D6$(37)="-"«, l3=0x1e}
0x36bc…36d1 Line {l1=0x13, l2=»5500 F1$=D6$(EL:TI)«, l3=0x13}
0x36d1…36e6 Line {l1=0x13, l2=»5510 C3$=D6$(AZ:TI)«, l3=0x13}
0x36e6…3702 Line {l1=0x1a, l2=»5520 EXEC C(0,F1$,C3$,C4$)«, l3=0x1a}
0x3702…371d Line {l1=0x19, l2=»5522 IF C4$(12)="-" THEN «, l3=0x19}
0x371d…3738 Line {l1=0x19, l2=»5524 D6$(EL:TI)=B3$(3:TI)«, l3=0x19}
0x3738…374d Line {l1=0x13, l2=»5526 D6$(AZ:TI)=F1$«, l3=0x13}
0x374d…3759 Line {l1=0x0a, l2=»5528 ELSE «, l3=0x0a}
0x3759…3774 Line {l1=0x19, l2=»5530 D6$(EL:TI)=C4$(3:TI)«, l3=0x19}
0x3774…3781 Line {l1=0x0b, l2=»5531 ENDIF «, l3=0x0b}
0x3781…3792 Line {l1=0x0f, l2=»5532 D6$(1)="2"«, l3=0x0f}
0x3792…37a4 Line {l1=0x10, l2=»5533 D6$(37)="+"«, l3=0x10}
0x37a4…37b9 Line {l1=0x13, l2=»5534 PUT D7$,L0:D6$«, l3=0x13}
0x37b9…37cb Line {l1=0x10, l2=»5535 D6$(37)="-"«, l3=0x10}
0x37cb…37e0 Line {l1=0x13, l2=»5536 IF J5=61 THEN «, l3=0x13}
0x37e0…37f4 Line {l1=0x12, l2=»5537 C3$=B6$(1,TI)«, l3=0x12}
0x37f4…3800 Line {l1=0x0a, l2=»5538 ELSE «, l3=0x0a}
0x3800…3841 Line {l1=0x3f, l2=»5539 C3$=B61$(1+TI*(J5=66)+20*(J5=67)+30*(J5=68)+40*(J5=69):TI)«, l3=0x3f}
0x3841…384e Line {l1=0x0b, l2=»5540 ENDIF «, l3=0x0b}
0x384e…3863 Line {l1=0x13, l2=»5542 C4$=D6$(AZ:TI)«, l3=0x13}
0x3863…387f Line {l1=0x1a, l2=»5543 EXEC C(0,C3$,C4$,C3$)«, l3=0x1a}
0x387f…3894 Line {l1=0x13, l2=»5544 IF J5=61 THEN «, l3=0x13}
0x3894…38ae Line {l1=0x18, l2=»5545 B6$(1,TI)=C3$(3:TI)«, l3=0x18}
0x38ae…38ba Line {l1=0x0a, l2=»5546 ELSE «, l3=0x0a}
0x38ba…3901 Line {l1=0x45, l2=»5547 B61$(1+TI*(J5=66)+20*(J5=67)+30*(J5=68)+40*(J5=69):TI)=C3$(3:TI)«, l3=0x45}
0x3901…390e Line {l1=0x0b, l2=»5548 ENDIF «, l3=0x0b}
0x390e…392a Line {l1=0x1a, l2=»5550 F0$(34,43)=D6$(EL:TI)«, l3=0x1a}
0x392a…3945 Line {l1=0x19, l2=»5560 F0$(71,79)=D6$(AZ:9)«, l3=0x19}
0x3945…3956 Line {l1=0x0f, l2=»5570 WHEN J5=72«, l3=0x0f}
0x3956…3973 Line {l1=0x1b, l2=»5575 EXEC OP(14,D6$(EL,20))«, l3=0x1b}
0x3973…398c Line {l1=0x17, l2=»5580 F0$(33,43)=C5$(J8)«, l3=0x17}
0x398c…39a8 Line {l1=0x1a, l2=»5590 F0$(45,54)=D6$(EL:TI)«, l3=0x1a}
0x39a8…39b9 Line {l1=0x0f, l2=»5593 WHEN J5=73«, l3=0x0f}
0x39b9…39d5 Line {l1=0x1a, l2=»5595 F0$(45,54)=D6$(EL:TI)«, l3=0x1a}
0x39d5…39e6 Line {l1=0x0f, l2=»5600 WHEN J5=75«, l3=0x0f}
0x39e6…3a02 Line {l1=0x1a, l2=»5610 F0$(45,54)=D6$(EL:TI)«, l3=0x1a}
0x3a02…3a30 Line {l1=0x2c, l2=»5620 L2=(ORD(F0$(45))-48)*TI+ORD(F0$(46))-48«, l3=0x2c}
0x3a30…3a65 Line {l1=0x33, l2=»5630 L2=L2*100+(ORD(F0$(47))-48)*TI+ORD(F0$(48))-48«, l3=0x33}
0x3a65…3a9a Line {l1=0x33, l2=»5640 L2=100*L2+(ORD(F0$(49))-48)*TI+ORD(F0$(50))-48«, l3=0x33}
0x3a9a…3aa9 Line {l1=0x0d, l2=»5650 ENDCASE «, l3=0x0d}
0x3aa9…3ab6 Line {l1=0x0b, l2=»5660 EXEC Å«, l3=0x0b}
0x3ab6…3ac9 Line {l1=0x11, l2=»5670 FOR I=1 TO 7«, l3=0x11}
0x3ac9…3ae6 Line {l1=0x1b, l2=»5680 IF D5$(I+21)="1" THEN «, l3=0x1b}
0x3ae6…3afb Line {l1=0x13, l2=»5690 C4$=D6$(AZ:TI)«, l3=0x13}
0x3afb…3b0c Line {l1=0x0f, l2=»5700 C3$=B9$(I)«, l3=0x0f}
0x3b0c…3b28 Line {l1=0x1a, l2=»5710 EXEC C(0,C4$,C3$,C4$)«, l3=0x1a}
0x3b28…3b3f Line {l1=0x15, l2=»5720 B9$(I)=C4$(2:EL)«, l3=0x15}
0x3b3f…3b4c Line {l1=0x0b, l2=»5730 ENDIF «, l3=0x0b}
0x3b4c…3b59 Line {l1=0x0b, l2=»5740 NEXT I«, l3=0x0b}
0x3b59…3b65 Line {l1=0x0a, l2=»5770 ELSE «, l3=0x0a}
0x3b65…3b75 Line {l1=0x0e, l2=»5780 B7(L1)=L0«, l3=0x0e}
0x3b75…3b87 Line {l1=0x10, l2=»5790 B8$(L1)=D6$«, l3=0x10}
0x3b87…3ba1 Line {l1=0x18, l2=»5800 IF J5<78 THEN L3=L1«, l3=0x18}
0x3ba1…3baf Line {l1=0x0c, l2=»5810 L1=L1+1«, l3=0x0c}
0x3baf…3bbc Line {l1=0x0b, l2=»5820 ENDIF «, l3=0x0b}
0x3bbc…3bd1 Line {l1=0x13, l2=»5830 IF J5<83 THEN «, l3=0x13}
0x3bd1…3bdf Line {l1=0x0c, l2=»5840 L0=L0+1«, l3=0x0c}
0x3bdf…3bf4 Line {l1=0x13, l2=»5850 GET D7$,L0:D6$«, l3=0x13}
0x3bf4…3c01 Line {l1=0x0b, l2=»5860 ENDIF «, l3=0x0b}
0x3c01…3c13 Line {l1=0x10, l2=»5870 UNTIL J5=83«, l3=0x10}
0x3c13…3c2a Line {l1=0x15, l2=»5875 B8$(L1-2,37)="-"«, l3=0x15}
0x3c2a…3c44 Line {l1=0x18, l2=»5880 F1$=B8$(L1-2,AZ:TI)«, l3=0x18}
0x3c44…3c55 Line {l1=0x0f, l2=»5890 C3$=B9$(2)«, l3=0x0f}
0x3c55…3c71 Line {l1=0x1a, l2=»5900 EXEC C(0,F1$,C3$,C4$)«, l3=0x1a}
0x3c71…3c88 Line {l1=0x15, l2=»5910 B9$(2)=C4$(2:EL)«, l3=0x15}
0x3c88…3c99 Line {l1=0x0f, l2=»5920 C3$=B9$(7)«, l3=0x0f}
0x3c99…3cb5 Line {l1=0x1a, l2=»5930 EXEC C(0,F1$,C3$,C4$)«, l3=0x1a}
0x3cb5…3ccc Line {l1=0x15, l2=»5940 B9$(7)=C4$(2:EL)«, l3=0x15}
0x3ccc…3ce0 Line {l1=0x12, l2=»5950 IF H6>0 THEN «, l3=0x12}
0x3ce0…3cee Line {l1=0x0c, l2=»5960 C3$=B3$«, l3=0x0c}
0x3cee…3cfa Line {l1=0x0a, l2=»5970 ELSE «, l3=0x0a}
0x3cfa…3d0e Line {l1=0x12, l2=»5980 IF H0>0 THEN «, l3=0x12}
0x3d0e…3d23 Line {l1=0x13, l2=»5990 EXEC Æ(C3$,H0)«, l3=0x13}
0x3d23…3d2f Line {l1=0x0a, l2=»6000 ELSE «, l3=0x0a}
0x3d2f…3d47 Line {l1=0x16, l2=»6002 K8=INT(G9*12/365)«, l3=0x16}
0x3d47…3d5c Line {l1=0x13, l2=»6004 EXEC Æ(C3$,K8)«, l3=0x13}
0x3d5c…3d76 Line {l1=0x18, l2=»6010 C4$=B8$(L1-1,EL:TI)«, l3=0x18}
0x3d76…3d8d Line {l1=0x15, l2=»6020 CASE D2$(21) OF «, l3=0x15}
0x3d8d…3d9c Line {l1=0x0d, l2=»6030 WHEN "1"«, l3=0x0d}
0x3d9c…3dab Line {l1=0x0d, l2=»6040 F1$="1+"«, l3=0x0d}
0x3dab…3dc7 Line {l1=0x1a, l2=»6050 EXEC C(4,F1$,C4$,C3$)«, l3=0x1a}
0x3dc7…3ddc Line {l1=0x13, l2=»6060 IF SI<>0 THEN «, l3=0x13}
0x3ddc…3df8 Line {l1=0x1a, l2=»6100 EXEC C(2,C3$,C4$,F1$)«, l3=0x1a}
0x3df8…3e06 Line {l1=0x0c, l2=»6110 C3$=F1$«, l3=0x0c}
0x3e06…3e13 Line {l1=0x0b, l2=»6120 ENDIF «, l3=0x0b}
0x3e13…3e26 Line {l1=0x11, l2=»6130 WHEN "2","3"«, l3=0x11}
0x3e26…3e35 Line {l1=0x0d, l2=»6140 F1$="7+"«, l3=0x0d}
0x3e35…3e51 Line {l1=0x1a, l2=»6150 EXEC C(4,F1$,C4$,C3$)«, l3=0x1a}
0x3e51…3e65 Line {l1=0x12, l2=»6160 IF SI=0 THEN «, l3=0x12}
0x3e65…3e7c Line {l1=0x15, l2=»6170 K8=INT(G9*12/52)«, l3=0x15}
0x3e7c…3e91 Line {l1=0x13, l2=»6180 EXEC Æ(C3$,K8)«, l3=0x13}
0x3e91…3e9d Line {l1=0x0a, l2=»6190 ELSE «, l3=0x0a}
0x3e9d…3eb9 Line {l1=0x1a, l2=»6220 EXEC C(2,C3$,C4$,C3$)«, l3=0x1a}
0x3eb9…3ec6 Line {l1=0x0b, l2=»6230 ENDIF «, l3=0x0b}
0x3ec6…3ed9 Line {l1=0x11, l2=»6240 WHEN "4","5"«, l3=0x11}
0x3ed9…3ee9 Line {l1=0x0e, l2=»6250 F1$="14+"«, l3=0x0e}
0x3ee9…3f05 Line {l1=0x1a, l2=»6260 EXEC C(4,F1$,C4$,C3$)«, l3=0x1a}
0x3f05…3f19 Line {l1=0x12, l2=»6270 IF SI=0 THEN «, l3=0x12}
0x3f19…3f30 Line {l1=0x15, l2=»6280 K8=INT(G9*12/26)«, l3=0x15}
0x3f30…3f45 Line {l1=0x13, l2=»6290 EXEC Æ(C3$,K8)«, l3=0x13}
0x3f45…3f51 Line {l1=0x0a, l2=»6300 ELSE «, l3=0x0a}
0x3f51…3f6d Line {l1=0x1a, l2=»6330 EXEC C(2,C3$,C4$,C3$)«, l3=0x1a}
0x3f6d…3f7a Line {l1=0x0b, l2=»6340 ENDIF «, l3=0x0b}
0x3f7a…3f8d Line {l1=0x11, l2=»6350 WHEN "6","7"«, l3=0x11}
0x3f8d…3f9d Line {l1=0x0e, l2=»6360 F1$="30+"«, l3=0x0e}
0x3f9d…3fb9 Line {l1=0x1a, l2=»6370 EXEC C(4,F1$,C4$,C3$)«, l3=0x1a}
0x3fb9…3fcd Line {l1=0x12, l2=»6380 IF SI=0 THEN «, l3=0x12}
0x3fcd…3fe2 Line {l1=0x13, l2=»6390 EXEC Æ(C3$,G9)«, l3=0x13}
0x3fe2…3fee Line {l1=0x0a, l2=»6400 ELSE «, l3=0x0a}
0x3fee…400a Line {l1=0x1a, l2=»6430 EXEC C(2,C3$,C4$,C3$)«, l3=0x1a}
0x400a…4017 Line {l1=0x0b, l2=»6440 ENDIF «, l3=0x0b}
0x4017…4026 Line {l1=0x0d, l2=»6450 ENDCASE «, l3=0x0d}
0x4026…4033 Line {l1=0x0b, l2=»6470 ENDIF «, l3=0x0b}
0x4033…403f Line {l1=0x0a, l2=»6475 H6=L2«, l3=0x0a}
0x403f…404c Line {l1=0x0b, l2=»6480 ENDIF «, l3=0x0b}
0x404c…406c Line {l1=0x1e, l2=»6485 B8$(L1-1,EL:TI)=C3$(3:TI)«, l3=0x1e}
0x406c…407d Line {l1=0x0f, l2=»6490 F1$=B9$(2)«, l3=0x0f}
0x407d…4099 Line {l1=0x1a, l2=»6500 EXEC C(4,F1$,C3$,C4$)«, l3=0x1a}
0x4099…40b4 Line {l1=0x19, l2=»6502 IF F1$(11)="-" THEN «, l3=0x19}
0x40b4…40bf Line {l1=0x09, l2=»6504 SI=2«, l3=0x09}
0x40bf…40cd Line {l1=0x0c, l2=»6506 C3$=B3$«, l3=0x0c}
0x40cd…40da Line {l1=0x0b, l2=»6508 ENDIF «, l3=0x0b}
0x40da…40ee Line {l1=0x12, l2=»6510 IF SI=2 THEN «, l3=0x12}
0x40ee…410d Line {l1=0x1d, l2=»6515 IF F1$(11)="+" THEN H0=0«, l3=0x1d}
0x410d…4129 Line {l1=0x1a, l2=»6520 EXEC C(1,F1$,C3$,C4$)«, l3=0x1a}
0x4129…4142 Line {l1=0x17, l2=»6530 F1$=B8$(L1-1,21:7)«, l3=0x17}
0x4142…4153 Line {l1=0x0f, l2=»6535 F1$(7)="-"«, l3=0x0f}
0x4153…416f Line {l1=0x1a, l2=»6540 EXEC C(2,C4$,F1$,C3$)«, l3=0x1a}
0x416f…4195 Line {l1=0x24, l2=»6545 IF C4$(12)="-" THEN C3$(12)="+"«, l3=0x24}
0x4195…41b1 Line {l1=0x1a, l2=»6550 EXEC C(3,C3$,B4$,C4$)«, l3=0x1a}
0x41b1…41c7 Line {l1=0x14, l2=»6555 C4$(TI,EL)="00"«, l3=0x14}
0x41c7…41d3 Line {l1=0x0a, l2=»6560 ELSE «, l3=0x0a}
0x41d3…41e7 Line {l1=0x12, l2=»6562 IF H0>0 THEN «, l3=0x12}
0x41e7…4203 Line {l1=0x1a, l2=»6564 EXEC C(1,C3$,F1$,C3$)«, l3=0x1a}
0x4203…421e Line {l1=0x19, l2=»6566 EXEC PERVERT(C3$,H0)«, l3=0x19}
0x421e…422b Line {l1=0x0b, l2=»6568 ENDIF «, l3=0x0b}
0x422b…4239 Line {l1=0x0c, l2=»6570 C4$=B3$«, l3=0x0c}
0x4239…4246 Line {l1=0x0b, l2=»6580 ENDIF «, l3=0x0b}
0x4246…4266 Line {l1=0x1e, l2=»6590 B8$(L1-1,AZ:TI)=C4$(3:TI)«, l3=0x1e}
0x4266…4277 Line {l1=0x0f, l2=»6600 F1$=B9$(7)«, l3=0x0f}
0x4277…4293 Line {l1=0x1a, l2=»6602 EXEC C(0,F1$,C4$,C3$)«, l3=0x1a}
0x4293…42aa Line {l1=0x15, l2=»6604 B9$(7)=C3$(2:EL)«, l3=0x15}
0x42aa…42be Line {l1=0x12, l2=»6610 FOR I=1 TO L3«, l3=0x12}
0x42be…42dd Line {l1=0x1d, l2=»6630 IF B8$(I,3,4)="60" THEN «, l3=0x1d}
0x42dd…42ee Line {l1=0x0f, l2=»6635 EXEC Z(60)«, l3=0x0f}
0x42ee…430b Line {l1=0x1b, l2=»6640 C4$=B8$(L1-1,AZ:9)+"+"«, l3=0x1b}
0x430b…431c Line {l1=0x0f, l2=»6650 F1$=B9$(2)«, l3=0x0f}
0x431c…4338 Line {l1=0x1a, l2=»6660 EXEC C(4,C4$,F1$,C3$)«, l3=0x1a}
0x4338…434c Line {l1=0x12, l2=»6670 IF SI=1 THEN «, l3=0x12}
0x434c…4368 Line {l1=0x1a, l2=»6680 EXEC C(1,F1$,C4$,C3$)«, l3=0x1a}
0x4368…437e Line {l1=0x14, l2=»6690 F1$=B8$(I,21:7)«, l3=0x14}
0x437e…439a Line {l1=0x1a, l2=»6700 EXEC C(2,C3$,F1$,C4$)«, l3=0x1a}
0x439a…43b6 Line {l1=0x1a, l2=»6710 EXEC C(3,C4$,B4$,C3$)«, l3=0x1a}
0x43b6…43cc Line {l1=0x14, l2=»6715 C3$(TI,EL)="00"«, l3=0x14}
0x43cc…43d8 Line {l1=0x0a, l2=»6720 ELSE «, l3=0x0a}
0x43d8…43f1 Line {l1=0x17, l2=»6730 C3$=" 0-"«, l3=0x17}
0x43f1…43fe Line {l1=0x0b, l2=»6740 ENDIF «, l3=0x0b}
0x43fe…4415 Line {l1=0x15, l2=»6750 C4$=B8$(I,EL:TI)«, l3=0x15}
0x4415…4431 Line {l1=0x1a, l2=»6760 EXEC C(4,C4$,C3$,F1$)«, l3=0x1a}
0x4431…4445 Line {l1=0x12, l2=»6770 IF SI=2 THEN «, l3=0x12}
0x4445…4461 Line {l1=0x1a, l2=»6780 EXEC C(1,C4$,C3$,F1$)«, l3=0x1a}
0x4461…447e Line {l1=0x1b, l2=»6790 B8$(I,EL:TI)=F1$(3:TI)«, l3=0x1b}
0x447e…449b Line {l1=0x1b, l2=»6800 B8$(I,AZ:TI)=C3$(3:TI)«, l3=0x1b}
0x449b…44a7 Line {l1=0x0a, l2=»6810 ELSE «, l3=0x0a}
0x44a7…44c4 Line {l1=0x1b, l2=»6820 B8$(I,EL:TI)=B3$(3:TI)«, l3=0x1b}
0x44c4…44db Line {l1=0x15, l2=»6830 B8$(I,AZ:TI)=C4$«, l3=0x15}
0x44db…44e8 Line {l1=0x0b, l2=»6840 ENDIF «, l3=0x0b}
0x44e8…44ff Line {l1=0x15, l2=»6842 C3$=B8$(I,AZ:TI)«, l3=0x15}
0x44ff…4510 Line {l1=0x0f, l2=»6844 C4$=B9$(7)«, l3=0x0f}
0x4510…452c Line {l1=0x1a, l2=»6846 EXEC C(1,C4$,C3$,C4$)«, l3=0x1a}
0x452c…4543 Line {l1=0x15, l2=»6848 B9$(7)=C4$(2:EL)«, l3=0x15}
0x4543…4556 Line {l1=0x11, l2=»6852 B8$(I,1)="2"«, l3=0x11}
0x4556…4571 Line {l1=0x19, l2=»6854 PUT D7$,B7(I):B8$(I)«, l3=0x19}
0x4571…4585 Line {l1=0x12, l2=»6855 B8$(I,37)="-"«, l3=0x12}
0x4585…45a3 Line {l1=0x1c, l2=»6860 F0$(34,43)=B8$(I,EL:TI)«, l3=0x1c}
0x45a3…45c0 Line {l1=0x1b, l2=»6870 F0$(71,79)=B8$(I,AZ:9)«, l3=0x1b}
0x45c0…45d7 Line {l1=0x15, l2=»6871 C3$=B8$(I,AZ:TI)«, l3=0x15}
0x45d7…45ec Line {l1=0x13, l2=»6872 C4$=B6$(21,30)«, l3=0x13}
0x45ec…4608 Line {l1=0x1a, l2=»6873 EXEC C(0,C3$,C4$,C4$)«, l3=0x1a}
0x4608…4623 Line {l1=0x19, l2=»6875 B6$(21,30)=C4$(3:TI)«, l3=0x19}
0x4623…4634 Line {l1=0x0f, l2=»6876 C4$=B9$(5)«, l3=0x0f}
0x4634…4650 Line {l1=0x1a, l2=»6877 EXEC C(0,C3$,C4$,C3$)«, l3=0x1a}
0x4650…4667 Line {l1=0x15, l2=»6878 B9$(5)=C3$(2:EL)«, l3=0x15}
0x4667…4673 Line {l1=0x0a, l2=»6880 ELSE «, l3=0x0a}
0x4673…4684 Line {l1=0x0f, l2=»6881 EXEC Z(70)«, l3=0x0f}
0x4684…469b Line {l1=0x15, l2=»6882 C3$=B8$(I,AZ:TI)«, l3=0x15}
0x469b…46b0 Line {l1=0x13, l2=»6883 EXEC OP(6,C3$)«, l3=0x13}
0x46b0…46c9 Line {l1=0x17, l2=»6884 EXEC OPTÆL(J9,C3$)«, l3=0x17}
0x46c9…46e7 Line {l1=0x1c, l2=»6890 F0$(45,54)=B8$(I,EL:TI)«, l3=0x1c}
0x46e7…4704 Line {l1=0x1b, l2=»6900 F0$(67,75)=B8$(I,AZ:9)«, l3=0x1b}
0x4704…4711 Line {l1=0x0b, l2=»6910 ENDIF «, l3=0x0b}
0x4711…472c Line {l1=0x19, l2=»6920 F0$(26:6)=B8$(I,5:6)«, l3=0x19}
0x472c…4749 Line {l1=0x1b, l2=»6930 F0$(56,62)=B8$(I,21:7)«, l3=0x1b}
0x4749…4756 Line {l1=0x0b, l2=»6940 EXEC Å«, l3=0x0b}
0x4756…476b Line {l1=0x13, l2=»6950 IF J5=70 THEN «, l3=0x13}
0x476b…477c Line {l1=0x0f, l2=»6960 EXEC Z(71)«, l3=0x0f}
0x477c…4795 Line {l1=0x17, l2=»6970 C3$=B8$(L1-1,21:7)«, l3=0x17}
0x4795…47ac Line {l1=0x15, l2=»6980 C4$=B8$(I,AZ:TI)«, l3=0x15}
0x47ac…47c8 Line {l1=0x1a, l2=»6990 EXEC C(2,C3$,C4$,F1$)«, l3=0x1a}
0x47c8…47e4 Line {l1=0x1a, l2=»7000 EXEC C(3,F1$,B4$,C3$)«, l3=0x1a}
0x47e4…4804 Line {l1=0x1e, l2=»7010 F0$(56,62)=B8$(L1-1,21:7)«, l3=0x1e}
0x4804…481a Line {l1=0x14, l2=»7015 C3$(TI,EL)="00"«, l3=0x14}
0x481a…4834 Line {l1=0x18, l2=»7020 F0$(67,75)=C3$(3:9)«, l3=0x18}
0x4834…4846 Line {l1=0x10, l2=»7022 C3$(12)="-"«, l3=0x10}
0x4846…485f Line {l1=0x17, l2=»7026 EXEC OPTÆL(J9,C3$)«, l3=0x17}
0x485f…4874 Line {l1=0x13, l2=»7027 EXEC OP(7,C3$)«, l3=0x13}
0x4874…4881 Line {l1=0x0b, l2=»7030 EXEC Å«, l3=0x0b}
0x4881…488e Line {l1=0x0b, l2=»7040 ENDIF «, l3=0x0b}
0x488e…489b Line {l1=0x0b, l2=»7070 NEXT I«, l3=0x0b}
0x489b…48bd Line {l1=0x20, l2=»7071 EXEC C(0,B9$(4),B9$(5),C3$)«, l3=0x20}
0x48bd…48dc Line {l1=0x1d, l2=»7072 EXEC C(0,B9$(6),C3$,C3$)«, l3=0x1d}
0x48dc…48f7 Line {l1=0x19, l2=»7073 C7$(31,40)=C3$(3,12)«, l3=0x19}
0x48f7…490f Line {l1=0x16, l2=»7074 EXEC OP(5,B9$(4))«, l3=0x16}
0x490f…4920 Line {l1=0x0f, l2=»7080 EXEC Z(76)«, l3=0x0f}
0x4920…4931 Line {l1=0x0f, l2=»7090 C3$=B9$(1)«, l3=0x0f}
0x4931…494a Line {l1=0x17, l2=»7100 EXEC OPTÆL(16,C3$)«, l3=0x17}
0x494a…4963 Line {l1=0x17, l2=»7110 EXEC OPTÆL(EL,C3$)«, l3=0x17}
0x4963…497c Line {l1=0x17, l2=»7120 EXEC OPTÆL(31,C3$)«, l3=0x17}
0x497c…4995 Line {l1=0x17, l2=»7130 F0$(33,43)=C5$(16)«, l3=0x17}
0x4995…49ad Line {l1=0x16, l2=»7140 F0$(44,54)=B9$(1)«, l3=0x16}
0x49ad…49c9 Line {l1=0x1a, l2=»7150 F0$(56,62)=B9$(8,5:7)«, l3=0x1a}
0x49c9…49da Line {l1=0x0f, l2=»7151 C3$=B9$(8)«, l3=0x0f}
0x49da…49f3 Line {l1=0x17, l2=»7152 EXEC OPTÆL(30,C3$)«, l3=0x17}
0x49f3…4a0d Line {l1=0x18, l2=»7153 C7$(1,TI)=C3$(2,EL)«, l3=0x18}
0x4a0d…4a2a Line {l1=0x1b, l2=»7154 C8$(EL,20)=B9$(1,2:TI)«, l3=0x1b}
0x4a2a…4a37 Line {l1=0x0b, l2=»7160 EXEC Å«, l3=0x0b}
0x4a37…4a48 Line {l1=0x0f, l2=»7170 EXEC Z(78)«, l3=0x0f}
0x4a48…4a56 Line {l1=0x0c, l2=»7180 L3=L3+1«, l3=0x0c}
0x4a56…4a6d Line {l1=0x15, l2=»7190 C3$=B8$(L3,21:7)«, l3=0x15}
0x4a6d…4a7e Line {l1=0x0f, l2=»7200 C4$=B9$(1)«, l3=0x0f}
0x4a7e…4a9a Line {l1=0x1a, l2=»7210 EXEC C(2,C3$,C4$,F1$)«, l3=0x1a}
0x4a9a…4ab6 Line {l1=0x1a, l2=»7220 EXEC C(3,F1$,B4$,C3$)«, l3=0x1a}
0x4ab6…4acc Line {l1=0x14, l2=»7225 EXEC OP(15,C3$)«, l3=0x14}
0x4acc…4ae7 Line {l1=0x19, l2=»7230 F0$(45,54)=C3$(3:TI)«, l3=0x19}
0x4ae7…4b00 Line {l1=0x17, l2=»7250 EXEC OPTÆL(20,C3$)«, l3=0x17}
0x4b00…4b19 Line {l1=0x17, l2=»7280 EXEC OPTÆL(14,C3$)«, l3=0x17}
0x4b19…4b32 Line {l1=0x17, l2=»7300 F0$(33,43)=C5$(20)«, l3=0x17}
0x4b32…4b50 Line {l1=0x1c, l2=»7310 F0$(56,62)=B8$(L3,21:7)«, l3=0x1c}
0x4b50…4b5d Line {l1=0x0b, l2=»7320 EXEC Å«, l3=0x0b}
0x4b5d…4b6b Line {l1=0x0c, l2=»7330 L3=L3+1«, l3=0x0c}
0x4b6b…4b8b Line {l1=0x1e, l2=»7340 IF B8$(L3,3,4)="79" THEN «, l3=0x1e}
0x4b8b…4baa Line {l1=0x1d, l2=»7345 IF D2$(24,25)<"90" THEN «, l3=0x1d}
0x4baa…4bbb Line {l1=0x0f, l2=»7350 EXEC Z(79)«, l3=0x0f}
0x4bbb…4bd2 Line {l1=0x15, l2=»7360 C3$=B8$(L3,21:7)«, l3=0x15}
0x4bd2…4be3 Line {l1=0x0f, l2=»7370 C4$=B9$(1)«, l3=0x0f}
0x4be3…4bff Line {l1=0x1a, l2=»7380 EXEC C(2,C3$,C4$,F1$)«, l3=0x1a}
0x4bff…4c1b Line {l1=0x1a, l2=»7390 EXEC C(3,F1$,B4$,C3$)«, l3=0x1a}
0x4c1b…4c31 Line {l1=0x14, l2=»7395 EXEC OP(16,C3$)«, l3=0x14}
0x4c31…4c4c Line {l1=0x19, l2=»7400 F0$(45,54)=C3$(3:TI)«, l3=0x19}
0x4c4c…4c65 Line {l1=0x17, l2=»7420 EXEC OPTÆL(15,C3$)«, l3=0x17}
0x4c65…4c7e Line {l1=0x17, l2=»7450 EXEC OPTÆL(23,C3$)«, l3=0x17}
0x4c7e…4c90 Line {l1=0x10, l2=»7470 C3$=C5$(26)«, l3=0x10}
0x4c90…4cac Line {l1=0x1a, l2=»7480 EXEC C(1,F1$,C3$,C4$)«, l3=0x1a}
0x4cac…4cc7 Line {l1=0x19, l2=»7490 F0$(33,43)=C4$(2:EL)«, l3=0x19}
0x4cc7…4ce5 Line {l1=0x1c, l2=»7500 F0$(56,62)=B8$(L3,21:7)«, l3=0x1c}
0x4ce5…4cf2 Line {l1=0x0b, l2=»7510 EXEC Å«, l3=0x0b}
0x4cf2…4cff Line {l1=0x0b, l2=»7515 ENDIF «, l3=0x0b}
0x4cff…4d0d Line {l1=0x0c, l2=»7520 L3=L3+1«, l3=0x0c}
0x4d0d…4d1a Line {l1=0x0b, l2=»7530 ENDIF «, l3=0x0b}
0x4d1a…4d2b Line {l1=0x0f, l2=»7540 EXEC Z(80)«, l3=0x0f}
0x4d2b…4d43 Line {l1=0x16, l2=»7560 C3$=B8$(L3,AZ:TI)«, l3=0x16}
0x4d43…4d58 Line {l1=0x13, l2=»7565 C7$(EL,20)=C3$«, l3=0x13}
0x4d58…4d71 Line {l1=0x17, l2=»7570 EXEC OPTÆL(43,C3$)«, l3=0x17}
0x4d71…4d8a Line {l1=0x17, l2=»7590 F0$(33,43)=C5$(43)«, l3=0x17}
0x4d8a…4da9 Line {l1=0x1d, l2=»7600 F0$(45,54)=B8$(L3,EL:TI)«, l3=0x1d}
0x4da9…4dc7 Line {l1=0x1c, l2=»7610 F0$(56,62)=B8$(L3,21:7)«, l3=0x1c}
0x4dc7…4de5 Line {l1=0x1c, l2=»7620 F0$(71,79)=B8$(L3,AZ:9)«, l3=0x1c}
0x4de5…4df2 Line {l1=0x0b, l2=»7630 EXEC Å«, l3=0x0b}
0x4df2…4e00 Line {l1=0x0c, l2=»7640 L3=L3+1«, l3=0x0c}
0x4e00…4e11 Line {l1=0x0f, l2=»7650 EXEC Z(82)«, l3=0x0f}
0x4e11…4e22 Line {l1=0x0f, l2=»7660 C3$=B9$(2)«, l3=0x0f}
0x4e22…4e3b Line {l1=0x17, l2=»7680 EXEC OPTÆL(34,C3$)«, l3=0x17}
0x4e3b…4e54 Line {l1=0x17, l2=»7700 F0$(33,43)=C5$(34)«, l3=0x17}
0x4e54…4e71 Line {l1=0x1b, l2=»7710 F0$(45,54)=B9$(2,2:TI)«, l3=0x1b}
0x4e71…4e7e Line {l1=0x0b, l2=»7720 EXEC Å«, l3=0x0b}
0x4e7e…4e8f Line {l1=0x0f, l2=»7730 EXEC Z(83)«, l3=0x0f}
0x4e8f…4ea7 Line {l1=0x16, l2=»7740 C3$=B8$(L3,AZ:TI)«, l3=0x16}
0x4ea7…4ebc Line {l1=0x13, l2=»7750 C8$(31,40)=C3$«, l3=0x13}
0x4ebc…4ed5 Line {l1=0x17, l2=»7760 EXEC OPTÆL(40,C3$)«, l3=0x17}
0x4ed5…4eee Line {l1=0x17, l2=»7780 F0$(33,43)=C5$(40)«, l3=0x17}
0x4eee…4f0d Line {l1=0x1d, l2=»7790 F0$(45,54)=B8$(L3,EL:TI)«, l3=0x1d}
0x4f0d…4f2b Line {l1=0x1c, l2=»7800 F0$(56,62)=B8$(L3,21:7)«, l3=0x1c}
0x4f2b…4f5b Line {l1=0x2e, l2=»7810 F0$(65+6*(B8$(L3,37)="-"):9)=B8$(L3,AZ:9)«, l3=0x2e}
0x4f5b…4f68 Line {l1=0x0b, l2=»7820 EXEC Å«, l3=0x0b}
0x4f68…4f79 Line {l1=0x0f, l2=»7830 EXEC Z(84)«, l3=0x0f}
0x4f79…4f8a Line {l1=0x0f, l2=»7840 C3$=B9$(3)«, l3=0x0f}
0x4f8a…4f9f Line {l1=0x13, l2=»7850 EXEC OP(4,C3$)«, l3=0x13}
0x4f9f…4fb8 Line {l1=0x17, l2=»7860 EXEC OPTÆL(37,C3$)«, l3=0x17}
0x4fb8…4fd1 Line {l1=0x17, l2=»7880 F0$(33,43)=C5$(37)«, l3=0x17}
0x4fd1…4fe9 Line {l1=0x16, l2=»7890 F0$(44,54)=B9$(3)«, l3=0x16}
0x4fe9…500b Line {l1=0x20, l2=»7892 EXEC C(0,B9$(2),B9$(3),C3$)«, l3=0x20}
0x500b…5026 Line {l1=0x19, l2=»7894 C7$(21,30)=C3$(3,12)«, l3=0x19}
0x5026…5033 Line {l1=0x0b, l2=»7900 EXEC Å«, l3=0x0b}
0x5033…5044 Line {l1=0x0f, l2=»7910 C3$=B9$(7)«, l3=0x0f}
0x5044…5060 Line {l1=0x1a, l2=»7920 EXEC C(4,C3$,B3$,C4$)«, l3=0x1a}
0x5060…507f Line {l1=0x1d, l2=»7925 IF C3$(11)="-" THEN SI=1«, l3=0x1d}
0x507f…5093 Line {l1=0x12, l2=»7930 IF SI=2 THEN «, l3=0x12}
0x5093…50ba Line {l1=0x25, l2=»7940 IF H2>0 AND (H3>0 OR H4>0) THEN «, l3=0x25}
0x50ba…50fb Line {l1=0x3f, l2=»7950 IF D4$(19,24)<>"000000" AND D4$(25,34)<>"0000000000" THEN «, l3=0x3f}
0x50fb…5106 Line {l1=0x09, l2=»7960 SI=0«, l3=0x09}
0x5106…5117 Line {l1=0x0f, l2=»7970 EXEC Z(88)«, l3=0x0f}
0x5117…513f Line {l1=0x26, l2=»7975 F0$(27,48)="Til disposition "+DD$«, l3=0x26}
0x513f…515c Line {l1=0x1b, l2=»7980 F0$(64:TI)=B9$(7,1:TI)«, l3=0x1b}
0x515c…5179 Line {l1=0x1b, l2=»7985 C8$(41,50)=B9$(7,2:TI)«, l3=0x1b}
0x5179…51a0 Line {l1=0x25, l2=»7990 EXEC CONV(OP1$,0+H2 MOD 10000,4)«, l3=0x25}
0x51a0…51b4 Line {l1=0x12, l2=»8000 D5$(5:4)=OP1$«, l3=0x12}
0x51b4…51cf Line {l1=0x19, l2=»8010 EXEC CONV(OP1$,H3,5)«, l3=0x19}
0x51cf…51e4 Line {l1=0x13, l2=»8020 D5$(12:5)=OP1$«, l3=0x13}
0x51e4…51ff Line {l1=0x19, l2=»8030 EXEC CONV(OP1$,H4,5)«, l3=0x19}
0x51ff…5214 Line {l1=0x13, l2=»8040 D5$(17:5)=OP1$«, l3=0x13}
0x5214…5221 Line {l1=0x0b, l2=»8050 EXEC Å«, l3=0x0b}
0x5221…5239 Line {l1=0x16, l2=»8055 PUT E1$:F8,B9$(7)«, l3=0x16}
0x5239…5246 Line {l1=0x0b, l2=»8060 ENDIF «, l3=0x0b}
0x5246…5253 Line {l1=0x0b, l2=»8070 ENDIF «, l3=0x0b}
0x5253…525f Line {l1=0x0a, l2=»8080 ELSE «, l3=0x0a}
0x525f…526a Line {l1=0x09, l2=»8090 SI=2«, l3=0x09}
0x526a…5277 Line {l1=0x0b, l2=»8100 ENDIF «, l3=0x0b}
0x5277…528b Line {l1=0x12, l2=»8110 IF SI=2 THEN «, l3=0x12}
0x528b…529c Line {l1=0x0f, l2=»8120 EXEC Z(89)«, l3=0x0f}
0x529c…52cb Line {l1=0x2d, l2=»8130 F0$(64+6*(B9$(7,EL)="-"):TI)=B9$(7,1:TI)«, l3=0x2d}
0x52cb…52e7 Line {l1=0x1a, l2=»8135 C8$(1,TI)=B9$(7,2:TI)«, l3=0x1a}
0x52e7…52f4 Line {l1=0x0b, l2=»8140 EXEC Å«, l3=0x0b}
0x52f4…5301 Line {l1=0x0b, l2=»8150 ENDIF «, l3=0x0b}
0x5301…5316 Line {l1=0x13, l2=»8160 EXEC SKRIVBUND«, l3=0x13}
0x5316…5321 Line {l1=0x09, l2=»8161 K2=1«, l3=0x09}
0x5321…532d Line {l1=0x0a, l2=»8162 ELSE «, l3=0x0a}
0x532d…5338 Line {l1=0x09, l2=»8163 K2=0«, l3=0x09}
0x5338…5345 Line {l1=0x0b, l2=»8170 ENDIF «, l3=0x0b}
0x5345…5354 Line {l1=0x0d, l2=»8180 ENDPROC «, l3=0x0d}
0x5354…5369 Line {l1=0x13, l2=»8181 D8$="P641217:"«, l3=0x13}
0x5369…537a Line {l1=0x0f, l2=»8182 E1$="DDE:"«, l3=0x0f}
0x537a…5393 Line {l1=0x17, l2=»8190 C9$=D8$+"VIRKKART"«, l3=0x17}
0x5393…53a6 Line {l1=0x11, l2=»8200 EXEC INDVIRK«, l3=0x11}
0x53a6…53b6 Line {l1=0x0e, l2=»8210 CLOSE C9$«, l3=0x0e}
0x53b6…53cf Line {l1=0x17, l2=»8220 C9$=D8$+"LØNMODRG"«, l3=0x17}
0x53cf…53e0 Line {l1=0x0f, l2=»8230 OPEN C9$,W«, l3=0x0f}
0x53e0…53f9 Line {l1=0x17, l2=»8240 D7$=D8$+"TRANSREG"«, l3=0x17}
0x53f9…540a Line {l1=0x0f, l2=»8250 OPEN D7$,W«, l3=0x0f}
0x540a…5423 Line {l1=0x17, l2=»8260 D0$=D8$+"TÆLLEREG"«, l3=0x17}
0x5423…5434 Line {l1=0x0f, l2=»8270 OPEN D0$,W«, l3=0x0f}
0x5434…544d Line {l1=0x17, l2=»8280 D8$=D8$+"LØNARTRG"«, l3=0x17}
0x544d…545e Line {l1=0x0f, l2=»8290 OPEN D8$,R«, l3=0x0f}
0x545e…5476 Line {l1=0x16, l2=»8291 D9$=E1$+"LØNJOUR"«, l3=0x16}
0x5476…5487 Line {l1=0x0f, l2=»8292 OPEN D9$,W«, l3=0x0f}
0x5487…549f Line {l1=0x16, l2=»8293 E0$=E1$+"FRADRAG"«, l3=0x16}
0x549f…54b0 Line {l1=0x0f, l2=»8294 OPEN E0$,W«, l3=0x0f}
0x54b0…54c9 Line {l1=0x17, l2=»8295 E1$=E1$+"LØNBILAG"«, l3=0x17}
0x54c9…54da Line {l1=0x0f, l2=»8296 OPEN E1$,W«, l3=0x0f}
0x54da…54ef Line {l1=0x13, l2=»8300 EXEC SKRIVPICT«, l3=0x13}
0x54ef…5503 Line {l1=0x12, l2=»8310 FOR J=1 TO 21«, l3=0x12}
0x5503…5523 Line {l1=0x1e, l2=»8320 IF J=7 AND E3=0 THEN J=TI«, l3=0x1e}
0x5523…5537 Line {l1=0x12, l2=»8330 EXEC INOPL(J)«, l3=0x12}
0x5537…5544 Line {l1=0x0b, l2=»8340 NEXT J«, l3=0x0b}
0x5544…5550 Line {l1=0x0a, l2=»8350 K1=72«, l3=0x0a}
0x5550…555b Line {l1=0x09, l2=»8355 J6=0«, l3=0x09}
0x555b…5566 Line {l1=0x09, l2=»8360 F8=0«, l3=0x09}
0x5566…5574 Line {l1=0x0c, l2=»8370 F0$=E9$«, l3=0x0c}
0x5574…5592 Line {l1=0x1c, l2=»8372 PUT D9$:A7$,A8$,A9$,B0$«, l3=0x1c}
0x5592…55a8 Line {l1=0x14, l2=»8374 PUT E0$:A7$,A8$«, l3=0x14}
0x55a8…55b9 Line {l1=0x0f, l2=»8376 PUT E1$:I6«, l3=0x0f}
0x55b9…55c8 Line {l1=0x0d, l2=»8380 OUTPUT P«, l3=0x0d}
0x55c8…55d6 Line {l1=0x0c, l2=»8390 REPEAT «, l3=0x0c}
0x55d6…55e7 Line {l1=0x0f, l2=»8400 EXEC NÆSTE«, l3=0x0f}
0x55e7…55fb Line {l1=0x12, l2=»8410 L3,L4,K2,K9=0«, l3=0x12}
0x55fb…562d Line {l1=0x30, l2=»8412 C7$=B3$(3:TI)+B3$(3:TI)+B3$(3:TI)+B3$(3:TI)«, l3=0x30}
0x562d…5645 Line {l1=0x16, l2=»8414 C8$=C7$+B3$(3:TI)«, l3=0x16}
0x5645…5653 Line {l1=0x0c, l2=»8416 B6$=C8$«, l3=0x0c}
0x5653…5662 Line {l1=0x0d, l2=»8417 B61$=B6$«, l3=0x0d}
0x5662…5678 Line {l1=0x14, l2=»8420 IF F8<=I9 THEN «, l3=0x14}
0x5678…568c Line {l1=0x12, l2=»8430 IF E3=1 THEN «, l3=0x12}
0x568c…5696 Line {l1=0x08, l2=»8440 J=1«, l3=0x08}
0x5696…56a4 Line {l1=0x0c, l2=»8450 REPEAT «, l3=0x0c}
0x56a4…56cc Line {l1=0x26, l2=»8460 IF A1(J)=F8 OR A1(J)=-1 THEN J=TI«, l3=0x26}
0x56cc…56d8 Line {l1=0x0a, l2=»8470 J=J+1«, l3=0x0a}
0x56d8…56e8 Line {l1=0x0e, l2=»8480 UNTIL J>3«, l3=0x0e}
0x56e8…56fc Line {l1=0x12, l2=»8490 IF J=EL THEN «, l3=0x12}
0x56fc…5711 Line {l1=0x13, l2=»8500 EXEC BEREGNLØN«, l3=0x13}
0x5711…571e Line {l1=0x0b, l2=»8520 ENDIF «, l3=0x0b}
0x571e…572b Line {l1=0x0b, l2=»8530 ENDIF «, l3=0x0b}
0x572b…573f Line {l1=0x12, l2=»8540 IF E4=1 THEN «, l3=0x12}
0x573f…5758 Line {l1=0x17, l2=»8550 K3=ORD(D2$(22))-48«, l3=0x17}
0x5758…576c Line {l1=0x12, l2=»8560 IF K3<4 THEN «, l3=0x12}
0x576c…5792 Line {l1=0x24, l2=»8570 IF A2(K3)=F8 OR A2(K3)=-1 THEN «, l3=0x24}
0x5792…57a9 Line {l1=0x15, l2=»8580 EXEC BEREGNFERIE«, l3=0x15}
0x57a9…57b4 Line {l1=0x09, l2=»8590 K9=1«, l3=0x09}
0x57b4…57c1 Line {l1=0x0b, l2=»8600 ENDIF «, l3=0x0b}
0x57c1…57ce Line {l1=0x0b, l2=»8610 ENDIF «, l3=0x0b}
0x57ce…57db Line {l1=0x0b, l2=»8620 ENDIF «, l3=0x0b}
0x57db…57ef Line {l1=0x12, l2=»8630 IF E5=1 THEN «, l3=0x12}
0x57ef…5808 Line {l1=0x17, l2=»8640 K3=ORD(D2$(23))-48«, l3=0x17}
0x5808…581c Line {l1=0x12, l2=»8650 IF K3<4 THEN «, l3=0x12}
0x581c…5842 Line {l1=0x24, l2=»8660 IF A3(K3)=F8 OR A3(K3)=-1 THEN «, l3=0x24}
0x5842…5856 Line {l1=0x12, l2=»8670 EXEC BEREGNSH«, l3=0x12}
0x5856…5861 Line {l1=0x09, l2=»8680 L4=1«, l3=0x09}
0x5861…586e Line {l1=0x0b, l2=»8690 ENDIF «, l3=0x0b}
0x586e…587b Line {l1=0x0b, l2=»8700 ENDIF «, l3=0x0b}
0x587b…5888 Line {l1=0x0b, l2=»8710 ENDIF «, l3=0x0b}
0x5888…589f Line {l1=0x15, l2=»8720 IF K9*L4=1 THEN «, l3=0x15}
0x589f…58bb Line {l1=0x1a, l2=»8730 EXEC C(0,C0$,C2$,C3$)«, l3=0x1a}
0x58bb…58d7 Line {l1=0x1a, l2=»8731 EXEC C(4,C3$,B3$,C3$)«, l3=0x1a}
0x58d7…58ec Line {l1=0x13, l2=»8732 IF SI<>0 THEN «, l3=0x13}
0x58ec…5908 Line {l1=0x1a, l2=»8740 EXEC C(2,C0$,B4$,C4$)«, l3=0x1a}
0x5908…5924 Line {l1=0x1a, l2=»8750 EXEC C(3,C4$,C3$,C4$)«, l3=0x1a}
0x5924…5940 Line {l1=0x1a, l2=»8760 EXEC C(4,C4$,B4$,C3$)«, l3=0x1a}
0x5940…595b Line {l1=0x19, l2=»8770 IF SI=2 THEN C4$=B4$«, l3=0x19}
0x595b…5967 Line {l1=0x0a, l2=»8771 ELSE «, l3=0x0a}
0x5967…5975 Line {l1=0x0c, l2=»8772 C4$=B3$«, l3=0x0c}
0x5975…5982 Line {l1=0x0b, l2=»8773 ENDIF «, l3=0x0b}
0x5982…598f Line {l1=0x0b, l2=»8780 PRINT «, l3=0x0b}
0x598f…59c5 Line {l1=0x34, l2=»8790 PRINT "Nettoferiepengene udgør ";C4$(6,EL);" %"«, l3=0x34}
0x59c5…59d3 Line {l1=0x0c, l2=»8800 J6=J6+2«, l3=0x0c}
0x59d3…59e0 Line {l1=0x0b, l2=»8810 ENDIF «, l3=0x0b}
0x59e0…59fa Line {l1=0x18, l2=»8815 IF K2+K9+L4>0 THEN «, l3=0x18}
0x59fa…5a0f Line {l1=0x13, l2=»8820 EXEC SKRIVBUND«, l3=0x13}
0x5a0f…5a27 Line {l1=0x16, l2=»8830 EXEC UDLØNMOD(F8)«, l3=0x16}
0x5a27…5a38 Line {l1=0x0f, l2=»8840 EXEC UDTÆL«, l3=0x0f}
0x5a38…5a4d Line {l1=0x13, l2=»8843 PUT D9$:F8,C7$«, l3=0x13}
0x5a4d…5a5f Line {l1=0x10, l2=»8844 PUT D9$:C8$«, l3=0x10}
0x5a5f…5a6c Line {l1=0x0b, l2=»8845 ENDIF «, l3=0x0b}
0x5a6c…5a80 Line {l1=0x12, l2=»8846 IF K2=1 THEN «, l3=0x12}
0x5a80…5a95 Line {l1=0x13, l2=»8847 PUT E0$:F8,B6$«, l3=0x13}
0x5a95…5aab Line {l1=0x14, l2=»8848 PUT E0$:F8,B61$«, l3=0x14}
0x5aab…5ab8 Line {l1=0x0b, l2=»8849 ENDIF «, l3=0x0b}
0x5ab8…5ac5 Line {l1=0x0b, l2=»8850 ENDIF «, l3=0x0b}
0x5ac5…5ad8 Line {l1=0x11, l2=»8860 UNTIL F8=>I9«, l3=0x11}
0x5ad8…5aef Line {l1=0x15, l2=»8861 PUT D9$:I9+1,C7$«, l3=0x15}
0x5aef…5b27 Line {l1=0x36, l2=»8862 PUT D9$:E2$(1),E2$(2),E2$(3),E2$(4),E2$(5),E2$(6)«, l3=0x36}
0x5b27…5b62 Line {l1=0x39, l2=»8864 PUT D9$:E2$(7),E2$(8),E2$(9),E2$(TI),E2$(EL),E2$(12)«, l3=0x39}
0x5b62…5b90 Line {l1=0x2c, l2=»8866 PUT D9$:E2$(13),E2$(14),E2$(15),E2$(16)«, l3=0x2c}
0x5b90…5ba2 Line {l1=0x10, l2=»8867 ENDFILE E0$«, l3=0x10}
0x5ba2…5bb4 Line {l1=0x10, l2=»8868 ENDFILE E1$«, l3=0x10}
0x5bb4…5bc1 Line {l1=0x0b, l2=»8870 CLOSE «, l3=0x0b}
0x5bc1…5bdb Line {l1=0x18, l2=»8880 CHAIN "DDE:JOURNAL"«, l3=0x18}
0x5bdb…5be0 00 00 00 00 00 ┆ ┆
0x5be0…5c00 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 ┆ ┆
[…0x36…]