|
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: 15168 (0x3b40)
Types: TextFile
Notes: Mikados_K
Names: »BJ.K«
└─⟦ec8c1e0b0⟧ Bits:30007442 8" floppy ( MIKPROG vol. 1-3, MIKREL vol. 1-3, PCSE 4.7.80 vol 1-3, GL.SYS )
└─⟦this⟧ »BJ.K«
0100 DIM K1$(17),K2$(17),K3$(17),K4$(17),B9$(12),UDAGE$(9),T1(9),T2(9),T3(9) 0110 DIM TKODE$(1),BELØB$(12),TEKST$(25),BLANK$(77),BMOMS$(12),INDMOMS$(12) 0120 DIM TFIL$(18,10),N$(6),UDMOMS$(12),TAL4$(14),OP1$(12),OP2$(12),RES$(14) 0130 DIM DEBNAVN$(25),DEBBY$(20),DEBGADE$(25),DEBTLF$(9),DEBKGR$(2),DEBLK$(2) 0140 DIM DSALDO1$(12),DSALDO2$(12),DSALDO3$(12),DSALDO4$(12),ÅRKØB$(12) 0150 DIM MDNKØB$(12),TAL3$(12),MOMS$(12),DMOMS$(12),K5$(17),K6$(17),K7$(17) 0160 DIM FNAVN$(25),FUKODE$(1),FMKODE$(1),FMDEBET$(12),FMKREDIT$(12),K8$(17) 0170 DIM KRENAVN$(25),FÅDEBET$(12),FÅKREDIT$(12),B8$(12),TK$(1),STREG$(77) 0180 DIM K9$(17),K10$(17),K11$(17),K12$(17),K13$(17),KREGADE$(25),KREBY$(20) 0190 DIM KRELK$(1),KRGR$(1),KSALDO1$(12),KSALDO2$(12),TAH$(12),SUM$(12),A$(1) 0200 PROC FEJL(NR1,NR2,NR3) 0210 IF STATUS(NR3$)<>0 THEN 0220 PRINT STATUS(NR3$),NR1,NR2,NR3$ 0230 STOP 0240 ENDIF 0250 ENDPROC 0260 PROC BOGFØRING(KONTNR,EDATO,BLGNR,TEK1,BE2) 0270 KTAL=KONTNR DIV 10000;KTAL9=KONTNR DIV 1000 0280 KODE2=0 0290 IF KTAL=DTAL THEN 0300 EXEC FINDPOST1(DTAB1,DTAB,MDANTAL,KONTNR,DPIL3,K3$) 0310 DEBNR=KONTNR 0320 IF CEKS=1 THEN STOP 0330 EXEC HENTDPOST 0340 INDEX=INT(ORD(DEBKGR$)-48)*2 0350 B8$=BE2$ 0360 IF B8$(LEN(B8$))="-" THEN 0370 EXEC CALC(0,KGR$(INDEX),B8$,KGR$(INDEX)) 0380 EXEC NEDSKRIV(B8$,DSALDO4$) 0390 EXEC NEDSKRIV(B8$,DSALDO3$) 0400 EXEC NEDSKRIV(B8$,DSALDO2$) 0410 EXEC NEDSKRIV(B8$,DSALDO1$) 0420 ELSE 0430 EXEC CALC(0,KGR$(INDEX-1),B8$,KGR$(INDEX-1)) 0440 ENDIF 0450 EXEC CALC(0,DSALDO1$,B8$,DSALDO1$) 0460 EXEC GEMDPOST 0470 EXEC GEMMID(DMIDNR,K10$) 0480 ELSE 0490 IF KTAL9=KRTAL THEN 0500 EXEC FINDPOST1(KTAB1,KTAB,MKANTAL,KONTNR,KPIL3,K4$) 0510 KRENR=KONTNR 0520 IF CEKS=1 THEN STOP 0530 EXEC HENTKRPOST 0540 INDEX=INT(ORD(KRGR$)-48)*2 0550 B8$=BE2$ 0560 IF B8$(LEN(B8$))="+" THEN 0570 EXEC CALC(0,KREGR$(INDEX-1),B8$,KREGR$(INDEX-1)) 0580 EXEC NEDSKRIV1(B8$,KSALDO2$) 0590 EXEC NEDSKRIV1(B8$,KSALDO1$) 0600 ELSE 0610 EXEC CALC(0,KREGR$(INDEX),B8$,KREGR$(INDEX)) 0620 ENDIF 0630 EXEC CALC(0,KSALDO1$,B8$,KSALDO1$) 0640 EXEC GEMKRPOST 0650 EXEC GEMMID(KRMIDNR,K11$) 0660 ELSE 0670 EXEC FINDPOST1(FTAB1,FTAB,MFANTAL,KONTNR,FPIL3,K2$) 0680 FNR=KONTNR 0690 IF CEKS=1 THEN STOP 0700 EXEC HENTPOST 0710 KODE2=ORD(FMKODE$)-48 0720 IF FMKODE$<>"0" THEN 0730 B9$="0+" 0740 BMOMS$="0+" 0750 EXEC CALC(2,BE2$,TAL3$,B9$) 0760 EXEC CALC(3,B9$,DMOMS$,B9$) 0770 EXEC CALC(1,BE2$,B9$,BMOMS$) 0780 IF FMKODE$="1" THEN 0790 EXEC CALC(0,INDMOMS$,BMOMS$,INDMOMS$) 0800 ELSE 0810 EXEC CALC(0,UDMOMS$,BMOMS$,UDMOMS$) 0820 ENDIF 0830 BE2$=B9$ 0840 ENDIF 0850 IF BE2$(LEN(BE2$))="-" THEN 0860 EXEC CALC(0,FMKREDIT$,BE2$,FMKREDIT$) 0870 EXEC CALC(0,FÅKREDIT$,BE2$,FÅKREDIT$) 0880 ELSE 0890 EXEC CALC(0,FMDEBET$,BE2$,FMDEBET$) 0900 EXEC CALC(0,FÅDEBET$,BE2$,FÅDEBET$) 0910 ENDIF 0920 EXEC GEMFPOST 0930 EXEC GEMMID(FMIDNR,K9$) 0940 ENDIF 0950 ENDIF 0960 ENDPROC 0970 PROC BJUDSKRIV(BJSNR,BJLNR,TK1) 0980 IF BJLNR=36 OR BJLNR=0 THEN 0990 BJSNR=BJSNR+1 1000 EXEC BJHOVEDUD(DATO,BJSNR) 1010 BJLNR=0 1020 ENDIF 1030 BJLNR=BJLNR+1;KODE1=INT(ORD(TK1$)-48) 1040 EXEC BJLINIEUD(BILAG,TEKSTKODE,KONTO,BELØB$,KODE1,BMOMS$,KODE2) 1050 ENDPROC 1060 PROC BJHOVEDUD(UDAG,BJOSNR) 1070 EXEC UDATO(UDAG,UDAGE$) 1080 OUTPUT P 1090 IF BJLNR=36 THEN 1100 FOR BJLNR=BJLNR TO 42 1110 PRINT " " 1120 NEXT BJLNR 1130 ENDIF 1140 PRINT TAB(6);CHR(14);"Bogholderijournal";CHR(15);TAB(40);"Dato:";UDAGE$; 1150 PRINT TAB(57); 1160 PRINT USING "Side:###":BJOSNR 1170 PRINT CHR(10);TAB(73);"Moms" 1180 PRINT TAB(3);"Bilag";TAB(10);"Tekst";TAB(37);"Konto";TAB(49);"Beløb"; 1190 PRINT TAB(58);"Kode";TAB(68);"Beløb";TAB(76);"Kode" 1200 PRINT TAB(3);STREG$ 1210 ENDPROC 1220 PROC BJLINIEUD(BLG,TEKKODE,KONT,BELB,KO1,MO,KO2) 1230 IF BLG<>-1 THEN 1240 PRINT USING "#######":BLG; 1250 ENDIF 1260 IF TEKKODE<10 AND TEKKODE>0 OR TEKKODE>20 THEN 1270 TEKST$=TFIL$(TEKKODE-10*(TEKKODE>20))+BLANK$(1:15) 1280 ENDIF 1290 IF TEKKODE<>0 THEN 1300 PRINT TAB(10);TEKST$; 1310 ENDIF 1320 PRINT TAB(36); 1330 PRINT USING "######":KONT; 1340 PRINT TAB(44); 1350 EXEC CALC(0,BELB$,SUM$,SUM$) 1360 EXEC CALC(5,BELB$,TAL3$,TAL4$) 1370 PRINT TAL4$;TAB(58); 1380 IF KO2<>0 THEN 1390 PRINT USING "###":KO1; 1400 PRINT TAB(63); 1410 EXEC CALC(5,MO$,TAL3$,TAL4$) 1420 PRINT TAL4$;TAB(77); 1430 PRINT USING "###":KO2 1440 ELSE 1450 PRINT USING "###":KO1 1460 ENDIF 1470 ENDPROC 1480 PROC NEDSKRIV1(PSAL1,KSAL) 1490 IF KSAL$(LEN(KSAL$))="-" THEN 1500 EXEC CALC(0,KSAL$,PSAL1$,KSAL$) 1510 IF KSAL$(LEN(KSAL$))="+" THEN 1520 PSAL1$=KSAL$ 1530 KSAL$="0+" 1540 ELSE 1550 PSAL1$="0+" 1560 ENDIF 1570 ENDIF 1580 ENDPROC 1590 PROC NEDSKRIV(PSAL,DSAL) 1600 IF DSAL$(LEN(DSAL$))="+" THEN 1610 EXEC CALC(0,DSAL$,PSAL$,DSAL$) 1620 IF DSAL$(LEN(DSAL$))="-" THEN 1630 PSAL$=DSAL$ 1640 DSAL$="0+" 1650 ELSE 1660 PSAL$="0+" 1670 ENDIF 1680 ENDIF 1690 ENDPROC 1700 PROC UDATO(DA1,DA2) 1710 DA3=DA1 1720 DA2$=" " 1730 FOR J=8 TO 1 STEP -1 1740 IF J MOD 3=0 THEN 1750 DA2$(J)="." 1760 ELSE 1770 DA2$(J)=CHR(DA3 MOD 10+48) 1780 DA3=DA3 DIV 10 1790 ENDIF 1800 NEXT J 1810 ENDPROC 1820 PROC GEMMID(MIDANTAL,L2) 1830 MIDANTAL=MIDANTAL+1 1840 PUT L2$,MIDANTAL:KONTO,DDATO,BILAG,TKODE$,BELØB$ 1850 EXEC FEJL(1,1,L2$) 1860 IF TEKSTKODE>9 AND TEKSTKODE<20 THEN 1870 MIDANTAL=MIDANTAL+1 1880 PUT L2$,MIDANTAL:KONTO,TEKST$ 1890 EXEC FEJL(1,2,L2$) 1900 ENDIF 1910 ENDPROC 1920 PROC FINDPOST1(TAB4,Q,MANT2,NØGL5,PIL6,L8) 1930 PIL1=MANT2 DIV 8;PIL6=PIL1;CEKS=1;MANT3=MANT2 DIV 4;MANT4=MANT2 DIV 32 1940 REPEAT 1950 IF NØGL5=TAB4(PIL6) OR PIL1=1 THEN EXIT 1960 PIL1=(PIL1+1) DIV 2 1970 PIL6=PIL6+PIL1*(1-2*(NØGL5<TAB4(PIL6))) 1980 IF PIL6<1 THEN PIL6=1 1990 IF PIL6>MANT3 THEN PIL6=MANT3 2000 UNTIL PIL1=0 2010 IF TAB4(PIL6)>NØGL5 THEN PIL6=PIL6-1*(PIL6>1) 2020 PIL6=MANT4+PIL6 2030 GET L8$,PIL6:Q(1,1),Q(1,2),Q(2,1),Q(2,2),Q(3,1),Q(3,2),Q(4,1),Q(4,2) 2040 EXEC FEJL(2,1,L8$) 2050 FOR PIL6=1 TO 4 2060 IF NØGL5=Q(PIL6,1) THEN EXIT 2070 NEXT PIL6 2080 IF PIL6<>5 THEN CEKS=0 2090 ENDPROC 2100 PROC INDTAB1(Z,MANT5,L7) 2110 PIL1=MANT5 DIV 32 2120 FOR I=1 TO PIL1 2130 H=(I-1)*8+1 2140 GET L7$,I:Z(H),Z(H+1),Z(H+2),Z(H+3),Z(H+4),Z(H+5),Z(H+6),Z(H+7) 2150 EXEC FEJL(3,1,L7$) 2160 NEXT I 2170 ENDPROC 2180 PROC CALC(ART,B1,B2,ES) 2190 OP1$=B1$ 2200 OP2$=B2$ 2210 RES$=ES$ 2220 SI=0 2230 FLAG=0 2240 CALL "P641210:REGN" 2250 ES$=RES$ 2260 IF FLAG THEN STOP 2270 ENDPROC 2280 PROC HENTDPOST 2290 S=DTAB(DPIL3,2) 2300 GET K6$,S:DEBNR,DEBNAVN$,DSALDO1$,DEBKGR$ 2310 EXEC FEJL(8,2,K6$) 2320 IF DEBNR<>DTAB(DPIL3,1) THEN STOP 2330 GET K6$,S+1:DSALDO2$,DSALDO3$,DSALDO4$,DEBPOSTNR,DEBLK$ 2340 EXEC FEJL(8,3,K6$) 2350 GET K6$,S+2:DEBGADE$,DEBTLF$,HPOST,HKUNDE 2360 EXEC FEJL(8,4,K6$) 2370 GET K6$,S+3:DEBBY$,ÅRKØB$,MDNKØB$ 2380 EXEC FEJL(8,5,K6$) 2390 ENDPROC 2400 PROC HENTPOST 2410 S=FTAB(FPIL3,2) 2420 GET K5$,S:FNR,FNAVN$ 2430 EXEC FEJL(3,2,K5$) 2440 IF FNR<>FTAB(FPIL3,1) THEN STOP 2450 GET K5$,S+1:FMKODE$,FMDEBET$,FMKREDIT$ 2460 EXEC FEJL(3,3,K5$) 2470 GET K5$,S+2:FUKODE$,FÅDEBET$,FÅKREDIT$ 2480 EXEC FEJL(3,4,K5$) 2490 ENDPROC 2500 PROC HENTKRPOST 2510 S=KTAB(KPIL3,2) 2520 GET K7$,S:KRENR,KRENAVN$,KREGADE$ 2530 EXEC FEJL(4,1,K7$) 2540 GET K7$,S+1:KREBY$,KRELK$,KRGR$,KREPOSTNR,KSALDO1$,KSALDO2$ 2550 EXEC FEJL(4,2,K7$) 2560 ENDPROC 2570 PROC GEMKRPOST 2580 S=KTAB(KPIL3,2) 2590 PUT K7$,S:KRENR,KRENAVN$,KREGADE$ 2600 EXEC FEJL(5,1,K7$) 2610 PUT K7$,S+1:KREBY$,KRELK$,KRGR$,KREPOSTNR,KSALDO1$,KSALDO2$ 2620 EXEC FEJL(5,2,K7$) 2630 ENDPROC 2640 PROC GEMDPOST 2650 S=DTAB(DPIL3,2) 2660 PUT K6$,S:DEBNR,DEBNAVN$,DSALDO1$,DEBKGR$ 2670 EXEC FEJL(9,3,K6$) 2680 PUT K6$,S+1:DSALDO2$,DSALDO3$,DSALDO4$,DEBPOSTNR,DEBLK$ 2690 EXEC FEJL(9,4,K6$) 2700 ENDPROC 2710 PROC GEMFPOST 2720 S=FTAB(FPIL3,2) 2730 PUT K5$,S:FNR,FNAVN$ 2740 EXEC FEJL(4,3,K5$) 2750 PUT K5$,S+1:FMKODE$,FMDEBET$,FMKREDIT$ 2760 EXEC FEJL(4,4,K5$) 2770 PUT K5$,S+2:FUKODE$,FÅDEBET$,FÅKREDIT$ 2780 EXEC FEJL(4,5,K5$) 2790 ENDPROC 2800 K1$="P641220:SYSTEM1" 2810 OPEN K1$,R 2820 EXEC FEJL(9,1,K1$) 2830 GET K1$,1:MFANTAL,MDANTAL,MKANTAL 2840 EXEC FEJL(9,2,K1$) 2850 GET K1$,2:MKASPOST,MPPOST,MBHPOST,MFPMID 2860 EXEC FEJL(9,3,K1$) 2870 GET K1$,3:MDPMID,MKPMID 2880 EXEC FEJL(9,4,K1$) 2890 GET K1$,4:MKPOST,MFAK,MVGR,MKGR 2900 EXEC FEJL(9,5,K1$) 2910 GET K1$,5:MKRGR 2920 EXEC FEJL(9,6,K1$) 2930 GET K1$,6:KASSENR,GIRONR,BANKNR,UDMOMSNR 2940 EXEC FEJL(9,7,K1$) 2950 GET K1$,7:INDMOMSNR 2960 EXEC FEJL(9,8,K1$) 2970 GET K1$,8:DIVNR,DIVDNR,DIFNR,DTAL 2980 EXEC FEJL(9,9,K1$) 2990 GET K1$,9:KRTAL 3000 EXEC FEJL(9,10,K1$) 3010 GET K1$,10:N$ 3020 EXEC FEJL(9,11,K1$) 3030 GET K1$,11:K2$ 3040 EXEC FEJL(9,12,K1$) 3050 GET K1$,12:K3$ 3060 EXEC FEJL(9,13,K1$) 3070 GET K1$,13:K4$ 3080 EXEC FEJL(9,14,K1$) 3090 GET K1$,15:K5$ 3100 EXEC FEJL(9,15,K1$) 3110 GET K1$,16:K6$ 3120 EXEC FEJL(9,16,K1$) 3130 GET K1$,17:K7$ 3140 EXEC FEJL(9,17,K1$) 3150 GET K1$,21:K8$ 3160 EXEC FEJL(9,18,K1$) 3170 GET K1$,22:K9$ 3180 EXEC FEJL(9,19,K1$) 3190 GET K1$,23:K10$ 3200 EXEC FEJL(9,20,K1$) 3210 GET K1$,24:K11$ 3220 EXEC FEJL(9,21,K1$) 3230 GET K1$,28:K12$ 3240 EXEC FEJL(9,22,K1$) 3250 GET K1$,36:K13$ 3260 EXEC FEJL(9,23,K1$) 3270 CLOSE K1$ 3280 EXEC FEJL(9,24,K1$) 3290 DIM FTAB1(MFANTAL DIV 4),DTAB1(MDANTAL DIV 4),KTAB1(MKANTAL DIV 4) 3300 DIM FTAB(4,2),DTAB(4,2),KTAB(4,2),KGR$(MKGR*2,12),KREGR$(MKRGR*2,12) 3310 FOR I=1 TO MKGR*2 3320 KGR$(I)="0+" 3330 NEXT I 3340 FOR I=1 TO MKRGR*2 3350 KREGR$(I)="0+" 3360 NEXT I 3370 K2$=N$+K2$;K3$=N$+K3$;K4$=N$+K4$;K5$=N$+K5$;K6$=N$+K6$;K13$=N$+K13$ 3380 K8$=N$+K8$;K9$=N$+K9$;K10$=N$+K10$;K11$=N$+K11$;K12$=N$+K12$;K7$=N$+K7$ 3390 OPEN K13$,R 3400 EXEC FEJL(9,25,K13$) 3410 GET K13$,1:MOMS$ 3420 EXEC FEJL(9,26,K13$) 3430 GET K13$,2:T1(1),T1(2),T1(3),T1(4),T1(5),T1(6),T1(7),T1(8),T1(9) 3440 EXEC FEJL(9,27,K13$) 3450 FOR I=1 TO 6 3460 H=(I-1)*3+1 3470 GET K13$,I+5:TFIL$(H),TFIL$(H+1),TFIL$(H+2) 3480 EXEC FEJL(9,28,K13$) 3490 NEXT I 3500 GET K13$,12:T2(1),T2(2),T2(3),T2(4),T2(5),T2(6),T2(7),T2(8),T2(9) 3510 EXEC FEJL(9,29,K13$) 3520 GET K13$,13:T3(1),T3(2),T3(3),T3(4),T3(5),T3(6),T3(7),T3(8),T3(9) 3530 EXEC FEJL(9,30,K13$) 3540 CLOSE K13$ 3550 EXEC FEJL(9,31,K13$) 3560 TAL3$="100+" 3570 EXEC CALC(0,TAL3$,MOMS$,DMOMS$) 3580 BLANK$=" " 3590 TAL4$="0+";SUM$="0+";STREG$="--------------------------------------" 3600 STREG$=STREG$+STREG$+"-";TAH$="0+";BJSIDENR=T1(6);DATO=T1(7) 3610 BHPOSTNR=T3(1);FAKPOSTNR=T2(3);FMIDNR=T3(2);DMIDNR=T3(3);KRMIDNR=T3(4) 3620 OPEN K2$,R 3630 EXEC FEJL(9,32,K2$) 3640 OPEN K3$,R 3650 EXEC FEJL(9,33,K3$) 3660 OPEN K4$,R 3670 EXEC FEJL(9,34,K4$) 3680 OPEN K5$,W 3690 EXEC FEJL(9,35,K5$) 3700 OPEN K6$,W 3710 EXEC FEJL(9,36,K6$) 3720 OPEN K7$,W 3730 EXEC FEJL(9,37,K7$) 3740 OPEN K8$,R 3750 EXEC FEJL(9,38,K8$) 3760 OPEN K9$,W 3770 EXEC FEJL(9,39,K9$) 3780 OPEN K10$,W 3790 EXEC FEJL(9,40,K10$) 3800 OPEN K11$,W 3810 EXEC FEJL(9,41,K11$) 3820 OPEN K12$,R 3830 EXEC FEJL(9,42,K12$) 3840 EXEC INDTAB1(KTAB1,MKANTAL,K4$) 3850 EXEC INDTAB1(FTAB1,MFANTAL,K2$) 3860 EXEC INDTAB1(DTAB1,MDANTAL,K3$) 3870 BJLINIENR=0;UDMOMS$="0+";INDMOMS$="0+" 3880 PROC BFØR(PNR,G) 3890 FOR I=1 TO PNR 3900 GET G$,I:KONTO,DDATO,BILAG,TKODE$,BELØB$,TK$ 3910 EXEC FEJL(1,4,G$) 3920 TEKSTKODE=ORD(TKODE$)-48 3930 IF TEKSTKODE>9 AND TEKSTKODE<20 THEN 3940 I=I+1 3950 GET G$,I:KONTO,TEKST$ 3960 EXEC FEJL(1,5,G$) 3970 ENDIF 3980 EXEC BOGFØRING(KONTO,DDATO,BILAG,TEKSTKODE,BELØB$) 3990 EXEC BJUDSKRIV(BJSIDENR,BJLINIENR,TK$) 4000 NEXT I 4010 ENDPROC 4020 CLEAR 4030 REPEAT 4040 CURSOR 8,13 4050 INPUT "Monter papir til udskrift af bogholderijournal og tast RETURN",A$ 4060 UNTIL ORD(A$)=255 4070 EXEC BFØR(BHPOSTNR,K8$) 4080 EXEC BFØR(FAKPOSTNR,K12$) 4090 TEKSTKODE=28;TK$="0" 4100 TKODE$=CHR(76) 4110 DDATO=DATO 4120 BILAG=BJSIDENR 4130 KONTO=INDMOMSNR 4140 BELØB$=INDMOMS$ 4150 EXEC BOGFØRING(KONTO,DDATO,BILAG,TEKSTKODE,BELØB$) 4160 TEKSTKODE=10 4170 TEKST$="Samlet indgående afgift" 4180 EXEC BJUDSKRIV(BJSIDENR,BJLINIENR,TK$) 4190 TEKSTKODE=28 4200 KONTO=UDMOMSNR 4210 BELØB$=UDMOMS$ 4220 EXEC BOGFØRING(KONTO,DDATO,BILAG,TEKSTKODE,BELØB$) 4230 TEKSTKODE=10 4240 TEKST$="Samlet udgående afgift" 4250 EXEC BJUDSKRIV(BJSIDENR,BJLINIENR,TK$) 4260 EXEC CALC(4,SUM$,TAH$,TAH$) 4270 IF SI<>0 THEN 4280 TEKSTKODE=10;KONTO=DIFNR;TEKST$="Difference bogholderi" 4290 IF SUM$(LEN(SUM$))="+" THEN 4300 BELØB$=SUM$(1:LEN(SUM$)-1)+"-" 4310 ELSE 4320 BELØB$=SUM$(1:LEN(SUM$)-1)+"+" 4330 ENDIF 4340 EXEC BOGFØRING(KONTO,DDATO,BILAG,TEKSTKODE,BELØB$) 4350 EXEC BJUDSKRIV(BJSIDENR,BJLINIENR,TK$) 4360 ENDIF 4370 FOR I=BJLINIENR TO 36 4380 PRINT CHR(10); 4390 NEXT I 4400 PRINT " " 4410 PRINT STREG$ 4420 EXEC CALC(5,SUM$,TAL3$,TAL4$) 4430 IF TAL4$(LEN(TAL4$))="+" THEN TAL4$(LEN(TAL4$))=" " 4440 PRINT TAB(10);CHR(14);"Difference";CHR(15);TAB(36);TAL4$ 4450 PRINT STREG$ 4460 PRINT CHR(10);CHR(10) 4470 PROC GRUPPE(GR,KG1) 4480 FOR I=1 TO 2*GR STEP 2 4490 FNR=FNR+1 4500 EXEC FINDPOST1(FTAB1,FTAB,MFANTAL,FNR,FPIL3,K2$) 4510 IF CEKS=1 THEN STOP 4520 EXEC HENTPOST 4530 EXEC CALC(0,FMDEBET$,KG1$(I),FMDEBET$) 4540 EXEC CALC(0,FÅDEBET$,KG1$(I),FÅDEBET$) 4550 EXEC CALC(0,FMKREDIT$,KG1$(I+1),FMKREDIT$) 4560 EXEC CALC(0,FÅKREDIT$,KG1$(I+1),FÅKREDIT$) 4570 EXEC GEMFPOST 4580 NEXT I 4590 ENDPROC 4600 FNR=DTAL*10000 4610 EXEC GRUPPE(MKGR,KGR$) 4620 FNR=KRTAL*1000 4630 EXEC GRUPPE(MKRGR,KREGR$) 4640 CLOSE K5$ 4650 EXEC FEJL(9,45,K5$) 4660 CLOSE K6$ 4670 EXEC FEJL(9,46,K6$) 4680 CLOSE K7$ 4690 EXEC FEJL(9,47,K7$) 4700 CLOSE K9$ 4710 EXEC FEJL(9,48,K9$) 4720 CLOSE K10$ 4730 EXEC FEJL(9,49,K10$) 4740 CLOSE K11$ 4750 EXEC FEJL(9,50,K11$) 4760 CLOSE 4770 T1(6)=BJSIDENR;T3(1)=0;T2(3)=0;T3(2)=FMIDNR;T3(3)=DMIDNR;T3(4)=KRMIDNR 4780 OPEN K13$,W 4790 EXEC FEJL(9,51,K13$) 4800 PUT K13$,2:T1(1),T1(2),T1(3),T1(4),T1(5),T1(6),T1(7),T1(8),T1(9) 4810 EXEC FEJL(9,52,K13$) 4820 PUT K13$,12:T2(1),T2(2),T2(3),T2(4),T2(5),T2(6),T2(7),T2(8),T2(9) 4830 EXEC FEJL(9,53,K13$) 4840 PUT K13$,13:T3(1),T3(2),T3(3),T3(4),T3(5),T3(6),T3(7),T3(8),T3(9) 4850 EXEC FEJL(9,54,K13$) 4860 CLOSE K13$ 4870 EXEC FEJL(9,55,K13$) 4880 OUTPUT T 4890 CHAIN "P641210:FSORT"
0x0000…004e Line {l1=0x4c, l2=»0100 DIM K1$(17),K2$(17),K3$(17),K4$(17),B9$(12),UDAGE$(9),T1(9),T2(9),T3(9)«, l3=0x4c}
0x004e…009b Line {l1=0x4b, l2=»0110 DIM TKODE$(1),BELØB$(12),TEKST$(25),BLANK$(77),BMOMS$(12),INDMOMS$(12)«, l3=0x4b}
0x009b…00e9 Line {l1=0x4c, l2=»0120 DIM TFIL$(18,10),N$(6),UDMOMS$(12),TAL4$(14),OP1$(12),OP2$(12),RES$(14)«, l3=0x4c}
0x00e9…0138 Line {l1=0x4d, l2=»0130 DIM DEBNAVN$(25),DEBBY$(20),DEBGADE$(25),DEBTLF$(9),DEBKGR$(2),DEBLK$(2)«, l3=0x4d}
0x0138…0181 Line {l1=0x47, l2=»0140 DIM DSALDO1$(12),DSALDO2$(12),DSALDO3$(12),DSALDO4$(12),ÅRKØB$(12)«, l3=0x47}
0x0181…01ce Line {l1=0x4b, l2=»0150 DIM MDNKØB$(12),TAL3$(12),MOMS$(12),DMOMS$(12),K5$(17),K6$(17),K7$(17)«, l3=0x4b}
0x01ce…021c Line {l1=0x4c, l2=»0160 DIM FNAVN$(25),FUKODE$(1),FMKODE$(1),FMDEBET$(12),FMKREDIT$(12),K8$(17)«, l3=0x4c}
0x021c…0268 Line {l1=0x4a, l2=»0170 DIM KRENAVN$(25),FÅDEBET$(12),FÅKREDIT$(12),B8$(12),TK$(1),STREG$(77)«, l3=0x4a}
0x0268…02b6 Line {l1=0x4c, l2=»0180 DIM K9$(17),K10$(17),K11$(17),K12$(17),K13$(17),KREGADE$(25),KREBY$(20)«, l3=0x4c}
0x02b6…0305 Line {l1=0x4d, l2=»0190 DIM KRELK$(1),KRGR$(1),KSALDO1$(12),KSALDO2$(12),TAH$(12),SUM$(12),A$(1)«, l3=0x4d}
0x0305…0322 Line {l1=0x1b, l2=»0200 PROC FEJL(NR1,NR2,NR3)«, l3=0x1b}
0x0322…0341 Line {l1=0x1d, l2=»0210 IF STATUS(NR3$)<>0 THEN «, l3=0x1d}
0x0341…0367 Line {l1=0x24, l2=»0220 PRINT STATUS(NR3$),NR1,NR2,NR3$«, l3=0x24}
0x0367…0373 Line {l1=0x0a, l2=»0230 STOP «, l3=0x0a}
0x0373…0380 Line {l1=0x0b, l2=»0240 ENDIF «, l3=0x0b}
0x0380…038f Line {l1=0x0d, l2=»0250 ENDPROC «, l3=0x0d}
0x038f…03c1 Line {l1=0x30, l2=»0260 PROC BOGFØRING(KONTNR,EDATO,BLGNR,TEK1,BE2)«, l3=0x30}
0x03c1…03f3 Line {l1=0x30, l2=»0270 KTAL=KONTNR DIV 10000;KTAL9=KONTNR DIV 1000«, l3=0x30}
0x03f3…0401 Line {l1=0x0c, l2=»0280 KODE2=0«, l3=0x0c}
0x0401…041a Line {l1=0x17, l2=»0290 IF KTAL=DTAL THEN «, l3=0x17}
0x041a…0454 Line {l1=0x38, l2=»0300 EXEC FINDPOST1(DTAB1,DTAB,MDANTAL,KONTNR,DPIL3,K3$)«, l3=0x38}
0x0454…0467 Line {l1=0x11, l2=»0310 DEBNR=KONTNR«, l3=0x11}
0x0467…0482 Line {l1=0x19, l2=»0320 IF CEKS=1 THEN STOP «, l3=0x19}
0x0482…0497 Line {l1=0x13, l2=»0330 EXEC HENTDPOST«, l3=0x13}
0x0497…04ba Line {l1=0x21, l2=»0340 INDEX=INT(ORD(DEBKGR$)-48)*2«, l3=0x21}
0x04ba…04c9 Line {l1=0x0d, l2=»0350 B8$=BE2$«, l3=0x0d}
0x04c9…04ea Line {l1=0x1f, l2=»0360 IF B8$(LEN(B8$))="-" THEN «, l3=0x1f}
0x04ea…0519 Line {l1=0x2d, l2=»0370 EXEC CALC(0,KGR$(INDEX),B8$,KGR$(INDEX))«, l3=0x2d}
0x0519…053b Line {l1=0x20, l2=»0380 EXEC NEDSKRIV(B8$,DSALDO4$)«, l3=0x20}
0x053b…055d Line {l1=0x20, l2=»0390 EXEC NEDSKRIV(B8$,DSALDO3$)«, l3=0x20}
0x055d…057f Line {l1=0x20, l2=»0400 EXEC NEDSKRIV(B8$,DSALDO2$)«, l3=0x20}
0x057f…05a1 Line {l1=0x20, l2=»0410 EXEC NEDSKRIV(B8$,DSALDO1$)«, l3=0x20}
0x05a1…05ad Line {l1=0x0a, l2=»0420 ELSE «, l3=0x0a}
0x05ad…05e0 Line {l1=0x31, l2=»0430 EXEC CALC(0,KGR$(INDEX-1),B8$,KGR$(INDEX-1))«, l3=0x31}
0x05e0…05ed Line {l1=0x0b, l2=»0440 ENDIF «, l3=0x0b}
0x05ed…0616 Line {l1=0x27, l2=»0450 EXEC CALC(0,DSALDO1$,B8$,DSALDO1$)«, l3=0x27}
0x0616…062a Line {l1=0x12, l2=»0460 EXEC GEMDPOST«, l3=0x12}
0x062a…0649 Line {l1=0x1d, l2=»0470 EXEC GEMMID(DMIDNR,K10$)«, l3=0x1d}
0x0649…0655 Line {l1=0x0a, l2=»0480 ELSE «, l3=0x0a}
0x0655…0670 Line {l1=0x19, l2=»0490 IF KTAL9=KRTAL THEN «, l3=0x19}
0x0670…06aa Line {l1=0x38, l2=»0500 EXEC FINDPOST1(KTAB1,KTAB,MKANTAL,KONTNR,KPIL3,K4$)«, l3=0x38}
0x06aa…06bd Line {l1=0x11, l2=»0510 KRENR=KONTNR«, l3=0x11}
0x06bd…06d8 Line {l1=0x19, l2=»0520 IF CEKS=1 THEN STOP «, l3=0x19}
0x06d8…06ee Line {l1=0x14, l2=»0530 EXEC HENTKRPOST«, l3=0x14}
0x06ee…070f Line {l1=0x1f, l2=»0540 INDEX=INT(ORD(KRGR$)-48)*2«, l3=0x1f}
0x070f…071e Line {l1=0x0d, l2=»0550 B8$=BE2$«, l3=0x0d}
0x071e…073f Line {l1=0x1f, l2=»0560 IF B8$(LEN(B8$))="+" THEN «, l3=0x1f}
0x073f…0776 Line {l1=0x35, l2=»0570 EXEC CALC(0,KREGR$(INDEX-1),B8$,KREGR$(INDEX-1))«, l3=0x35}
0x0776…0799 Line {l1=0x21, l2=»0580 EXEC NEDSKRIV1(B8$,KSALDO2$)«, l3=0x21}
0x0799…07bc Line {l1=0x21, l2=»0590 EXEC NEDSKRIV1(B8$,KSALDO1$)«, l3=0x21}
0x07bc…07c8 Line {l1=0x0a, l2=»0600 ELSE «, l3=0x0a}
0x07c8…07fb Line {l1=0x31, l2=»0610 EXEC CALC(0,KREGR$(INDEX),B8$,KREGR$(INDEX))«, l3=0x31}
0x07fb…0808 Line {l1=0x0b, l2=»0620 ENDIF «, l3=0x0b}
0x0808…0831 Line {l1=0x27, l2=»0630 EXEC CALC(0,KSALDO1$,B8$,KSALDO1$)«, l3=0x27}
0x0831…0846 Line {l1=0x13, l2=»0640 EXEC GEMKRPOST«, l3=0x13}
0x0846…0866 Line {l1=0x1e, l2=»0650 EXEC GEMMID(KRMIDNR,K11$)«, l3=0x1e}
0x0866…0872 Line {l1=0x0a, l2=»0660 ELSE «, l3=0x0a}
0x0872…08ac Line {l1=0x38, l2=»0670 EXEC FINDPOST1(FTAB1,FTAB,MFANTAL,KONTNR,FPIL3,K2$)«, l3=0x38}
0x08ac…08bd Line {l1=0x0f, l2=»0680 FNR=KONTNR«, l3=0x0f}
0x08bd…08d8 Line {l1=0x19, l2=»0690 IF CEKS=1 THEN STOP «, l3=0x19}
0x08d8…08ec Line {l1=0x12, l2=»0700 EXEC HENTPOST«, l3=0x12}
0x08ec…0908 Line {l1=0x1a, l2=»0710 KODE2=ORD(FMKODE$)-48«, l3=0x1a}
0x0908…0924 Line {l1=0x1a, l2=»0720 IF FMKODE$<>"0" THEN «, l3=0x1a}
0x0924…0933 Line {l1=0x0d, l2=»0730 B9$="0+"«, l3=0x0d}
0x0933…0945 Line {l1=0x10, l2=»0740 BMOMS$="0+"«, l3=0x10}
0x0945…0967 Line {l1=0x20, l2=»0750 EXEC CALC(2,BE2$,TAL3$,B9$)«, l3=0x20}
0x0967…0989 Line {l1=0x20, l2=»0760 EXEC CALC(3,B9$,DMOMS$,B9$)«, l3=0x20}
0x0989…09ac Line {l1=0x21, l2=»0770 EXEC CALC(1,BE2$,B9$,BMOMS$)«, l3=0x21}
0x09ac…09c7 Line {l1=0x19, l2=»0780 IF FMKODE$="1" THEN «, l3=0x19}
0x09c7…09f3 Line {l1=0x2a, l2=»0790 EXEC CALC(0,INDMOMS$,BMOMS$,INDMOMS$)«, l3=0x2a}
0x09f3…09ff Line {l1=0x0a, l2=»0800 ELSE «, l3=0x0a}
0x09ff…0a29 Line {l1=0x28, l2=»0810 EXEC CALC(0,UDMOMS$,BMOMS$,UDMOMS$)«, l3=0x28}
0x0a29…0a36 Line {l1=0x0b, l2=»0820 ENDIF «, l3=0x0b}
0x0a36…0a45 Line {l1=0x0d, l2=»0830 BE2$=B9$«, l3=0x0d}
0x0a45…0a52 Line {l1=0x0b, l2=»0840 ENDIF «, l3=0x0b}
0x0a52…0a75 Line {l1=0x21, l2=»0850 IF BE2$(LEN(BE2$))="-" THEN «, l3=0x21}
0x0a75…0aa1 Line {l1=0x2a, l2=»0860 EXEC CALC(0,FMKREDIT$,BE2$,FMKREDIT$)«, l3=0x2a}
0x0aa1…0acd Line {l1=0x2a, l2=»0870 EXEC CALC(0,FÅKREDIT$,BE2$,FÅKREDIT$)«, l3=0x2a}
0x0acd…0ad9 Line {l1=0x0a, l2=»0880 ELSE «, l3=0x0a}
0x0ad9…0b03 Line {l1=0x28, l2=»0890 EXEC CALC(0,FMDEBET$,BE2$,FMDEBET$)«, l3=0x28}
0x0b03…0b2d Line {l1=0x28, l2=»0900 EXEC CALC(0,FÅDEBET$,BE2$,FÅDEBET$)«, l3=0x28}
0x0b2d…0b3a Line {l1=0x0b, l2=»0910 ENDIF «, l3=0x0b}
0x0b3a…0b4e Line {l1=0x12, l2=»0920 EXEC GEMFPOST«, l3=0x12}
0x0b4e…0b6c Line {l1=0x1c, l2=»0930 EXEC GEMMID(FMIDNR,K9$)«, l3=0x1c}
0x0b6c…0b79 Line {l1=0x0b, l2=»0940 ENDIF «, l3=0x0b}
0x0b79…0b86 Line {l1=0x0b, l2=»0950 ENDIF «, l3=0x0b}
0x0b86…0b95 Line {l1=0x0d, l2=»0960 ENDPROC «, l3=0x0d}
0x0b95…0bbb Line {l1=0x24, l2=»0970 PROC BJUDSKRIV(BJSNR,BJLNR,TK1)«, l3=0x24}
0x0bbb…0bde Line {l1=0x21, l2=»0980 IF BJLNR=36 OR BJLNR=0 THEN «, l3=0x21}
0x0bde…0bf2 Line {l1=0x12, l2=»0990 BJSNR=BJSNR+1«, l3=0x12}
0x0bf2…0c13 Line {l1=0x1f, l2=»1000 EXEC BJHOVEDUD(DATO,BJSNR)«, l3=0x1f}
0x0c13…0c21 Line {l1=0x0c, l2=»1010 BJLNR=0«, l3=0x0c}
0x0c21…0c2e Line {l1=0x0b, l2=»1020 ENDIF «, l3=0x0b}
0x0c2e…0c5a Line {l1=0x2a, l2=»1030 BJLNR=BJLNR+1;KODE1=INT(ORD(TK1$)-48)«, l3=0x2a}
0x0c5a…0ca0 Line {l1=0x44, l2=»1040 EXEC BJLINIEUD(BILAG,TEKSTKODE,KONTO,BELØB$,KODE1,BMOMS$,KODE2)«, l3=0x44}
0x0ca0…0caf Line {l1=0x0d, l2=»1050 ENDPROC «, l3=0x0d}
0x0caf…0cd1 Line {l1=0x20, l2=»1060 PROC BJHOVEDUD(UDAG,BJOSNR)«, l3=0x20}
0x0cd1…0cef Line {l1=0x1c, l2=»1070 EXEC UDATO(UDAG,UDAGE$)«, l3=0x1c}
0x0cef…0cfe Line {l1=0x0d, l2=»1080 OUTPUT P«, l3=0x0d}
0x0cfe…0d16 Line {l1=0x16, l2=»1090 IF BJLNR=36 THEN «, l3=0x16}
0x0d16…0d32 Line {l1=0x1a, l2=»1100 FOR BJLNR=BJLNR TO 42«, l3=0x1a}
0x0d32…0d42 Line {l1=0x0e, l2=»1110 PRINT " "«, l3=0x0e}
0x0d42…0d53 Line {l1=0x0f, l2=»1120 NEXT BJLNR«, l3=0x0f}
0x0d53…0d60 Line {l1=0x0b, l2=»1130 ENDIF «, l3=0x0b}
0x0d60…0daf Line {l1=0x4d, l2=»1140 PRINT TAB(6);CHR(14);"Bogholderijournal";CHR(15);TAB(40);"Dato:";UDAGE$;«, l3=0x4d}
0x0daf…0dc4 Line {l1=0x13, l2=»1150 PRINT TAB(57);«, l3=0x13}
0x0dc4…0de8 Line {l1=0x22, l2=»1160 PRINT USING "Side:###":BJOSNR«, l3=0x22}
0x0de8…0e0b Line {l1=0x21, l2=»1170 PRINT CHR(10);TAB(73);"Moms"«, l3=0x21}
0x0e0b…0e57 Line {l1=0x4a, l2=»1180 PRINT TAB(3);"Bilag";TAB(10);"Tekst";TAB(37);"Konto";TAB(49);"Beløb";«, l3=0x4a}
0x0e57…0e91 Line {l1=0x38, l2=»1190 PRINT TAB(58);"Kode";TAB(68);"Beløb";TAB(76);"Kode"«, l3=0x38}
0x0e91…0eab Line {l1=0x18, l2=»1200 PRINT TAB(3);STREG$«, l3=0x18}
0x0eab…0eba Line {l1=0x0d, l2=»1210 ENDPROC «, l3=0x0d}
0x0eba…0ef1 Line {l1=0x35, l2=»1220 PROC BJLINIEUD(BLG,TEKKODE,KONT,BELB,KO1,MO,KO2)«, l3=0x35}
0x0ef1…0f08 Line {l1=0x15, l2=»1230 IF BLG<>-1 THEN «, l3=0x15}
0x0f08…0f29 Line {l1=0x1f, l2=»1240 PRINT USING "#######":BLG;«, l3=0x1f}
0x0f29…0f36 Line {l1=0x0b, l2=»1250 ENDIF «, l3=0x0b}
0x0f36…0f6c Line {l1=0x34, l2=»1260 IF TEKKODE<10 AND TEKKODE>0 OR TEKKODE>20 THEN «, l3=0x34}
0x0f6c…0fa5 Line {l1=0x37, l2=»1270 TEKST$=TFIL$(TEKKODE-10*(TEKKODE>20))+BLANK$(1:15)«, l3=0x37}
0x0fa5…0fb2 Line {l1=0x0b, l2=»1280 ENDIF «, l3=0x0b}
0x0fb2…0fcc Line {l1=0x18, l2=»1290 IF TEKKODE<>0 THEN «, l3=0x18}
0x0fcc…0fe8 Line {l1=0x1a, l2=»1300 PRINT TAB(10);TEKST$;«, l3=0x1a}
0x0fe8…0ff5 Line {l1=0x0b, l2=»1310 ENDIF «, l3=0x0b}
0x0ff5…100a Line {l1=0x13, l2=»1320 PRINT TAB(36);«, l3=0x13}
0x100a…102b Line {l1=0x1f, l2=»1330 PRINT USING "######":KONT;«, l3=0x1f}
0x102b…1040 Line {l1=0x13, l2=»1340 PRINT TAB(44);«, l3=0x13}
0x1040…1063 Line {l1=0x21, l2=»1350 EXEC CALC(0,BELB$,SUM$,SUM$)«, l3=0x21}
0x1063…1088 Line {l1=0x23, l2=»1360 EXEC CALC(5,BELB$,TAL3$,TAL4$)«, l3=0x23}
0x1088…10a3 Line {l1=0x19, l2=»1370 PRINT TAL4$;TAB(58);«, l3=0x19}
0x10a3…10b9 Line {l1=0x14, l2=»1380 IF KO2<>0 THEN «, l3=0x14}
0x10b9…10d6 Line {l1=0x1b, l2=»1390 PRINT USING "###":KO1;«, l3=0x1b}
0x10d6…10eb Line {l1=0x13, l2=»1400 PRINT TAB(63);«, l3=0x13}
0x10eb…110e Line {l1=0x21, l2=»1410 EXEC CALC(5,MO$,TAL3$,TAL4$)«, l3=0x21}
0x110e…1129 Line {l1=0x19, l2=»1420 PRINT TAL4$;TAB(77);«, l3=0x19}
0x1129…1145 Line {l1=0x1a, l2=»1430 PRINT USING "###":KO2«, l3=0x1a}
0x1145…1151 Line {l1=0x0a, l2=»1440 ELSE «, l3=0x0a}
0x1151…116d Line {l1=0x1a, l2=»1450 PRINT USING "###":KO1«, l3=0x1a}
0x116d…117a Line {l1=0x0b, l2=»1460 ENDIF «, l3=0x0b}
0x117a…1189 Line {l1=0x0d, l2=»1470 ENDPROC «, l3=0x0d}
0x1189…11aa Line {l1=0x1f, l2=»1480 PROC NEDSKRIV1(PSAL1,KSAL)«, l3=0x1f}
0x11aa…11cf Line {l1=0x23, l2=»1490 IF KSAL$(LEN(KSAL$))="-" THEN «, l3=0x23}
0x11cf…11f5 Line {l1=0x24, l2=»1500 EXEC CALC(0,KSAL$,PSAL1$,KSAL$)«, l3=0x24}
0x11f5…121a Line {l1=0x23, l2=»1510 IF KSAL$(LEN(KSAL$))="+" THEN «, l3=0x23}
0x121a…122d Line {l1=0x11, l2=»1520 PSAL1$=KSAL$«, l3=0x11}
0x122d…123e Line {l1=0x0f, l2=»1530 KSAL$="0+"«, l3=0x0f}
0x123e…124a Line {l1=0x0a, l2=»1540 ELSE «, l3=0x0a}
0x124a…125c Line {l1=0x10, l2=»1550 PSAL1$="0+"«, l3=0x10}
0x125c…1269 Line {l1=0x0b, l2=»1560 ENDIF «, l3=0x0b}
0x1269…1276 Line {l1=0x0b, l2=»1570 ENDIF «, l3=0x0b}
0x1276…1285 Line {l1=0x0d, l2=»1580 ENDPROC «, l3=0x0d}
0x1285…12a4 Line {l1=0x1d, l2=»1590 PROC NEDSKRIV(PSAL,DSAL)«, l3=0x1d}
0x12a4…12c9 Line {l1=0x23, l2=»1600 IF DSAL$(LEN(DSAL$))="+" THEN «, l3=0x23}
0x12c9…12ee Line {l1=0x23, l2=»1610 EXEC CALC(0,DSAL$,PSAL$,DSAL$)«, l3=0x23}
0x12ee…1313 Line {l1=0x23, l2=»1620 IF DSAL$(LEN(DSAL$))="-" THEN «, l3=0x23}
0x1313…1325 Line {l1=0x10, l2=»1630 PSAL$=DSAL$«, l3=0x10}
0x1325…1336 Line {l1=0x0f, l2=»1640 DSAL$="0+"«, l3=0x0f}
0x1336…1342 Line {l1=0x0a, l2=»1650 ELSE «, l3=0x0a}
0x1342…1353 Line {l1=0x0f, l2=»1660 PSAL$="0+"«, l3=0x0f}
0x1353…1360 Line {l1=0x0b, l2=»1670 ENDIF «, l3=0x0b}
0x1360…136d Line {l1=0x0b, l2=»1680 ENDIF «, l3=0x0b}
0x136d…137c Line {l1=0x0d, l2=»1690 ENDPROC «, l3=0x0d}
0x137c…1396 Line {l1=0x18, l2=»1700 PROC UDATO(DA1,DA2)«, l3=0x18}
0x1396…13a4 Line {l1=0x0c, l2=»1710 DA3=DA1«, l3=0x0c}
0x13a4…13ba Line {l1=0x14, l2=»1720 DA2$=" "«, l3=0x14}
0x13ba…13d5 Line {l1=0x19, l2=»1730 FOR J=8 TO 1 STEP -1«, l3=0x19}
0x13d5…13ee Line {l1=0x17, l2=»1740 IF J MOD 3=0 THEN «, l3=0x17}
0x13ee…1400 Line {l1=0x10, l2=»1750 DA2$(J)="."«, l3=0x10}
0x1400…140c Line {l1=0x0a, l2=»1760 ELSE «, l3=0x0a}
0x140c…142d Line {l1=0x1f, l2=»1770 DA2$(J)=CHR(DA3 MOD 10+48)«, l3=0x1f}
0x142d…1442 Line {l1=0x13, l2=»1780 DA3=DA3 DIV 10«, l3=0x13}
0x1442…144f Line {l1=0x0b, l2=»1790 ENDIF «, l3=0x0b}
0x144f…145c Line {l1=0x0b, l2=»1800 NEXT J«, l3=0x0b}
0x145c…146b Line {l1=0x0d, l2=»1810 ENDPROC «, l3=0x0d}
0x146b…148a Line {l1=0x1d, l2=»1820 PROC GEMMID(MIDANTAL,L2)«, l3=0x1d}
0x148a…14a4 Line {l1=0x18, l2=»1830 MIDANTAL=MIDANTAL+1«, l3=0x18}
0x14a4…14db Line {l1=0x35, l2=»1840 PUT L2$,MIDANTAL:KONTO,DDATO,BILAG,TKODE$,BELØB$«, l3=0x35}
0x14db…14f4 Line {l1=0x17, l2=»1850 EXEC FEJL(1,1,L2$)«, l3=0x17}
0x14f4…1520 Line {l1=0x2a, l2=»1860 IF TEKSTKODE>9 AND TEKSTKODE<20 THEN «, l3=0x2a}
0x1520…153a Line {l1=0x18, l2=»1870 MIDANTAL=MIDANTAL+1«, l3=0x18}
0x153a…155e Line {l1=0x22, l2=»1880 PUT L2$,MIDANTAL:KONTO,TEKST$«, l3=0x22}
0x155e…1577 Line {l1=0x17, l2=»1890 EXEC FEJL(1,2,L2$)«, l3=0x17}
0x1577…1584 Line {l1=0x0b, l2=»1900 ENDIF «, l3=0x0b}
0x1584…1593 Line {l1=0x0d, l2=»1910 ENDPROC «, l3=0x0d}
0x1593…15c4 Line {l1=0x2f, l2=»1920 PROC FINDPOST1(TAB4,Q,MANT2,NØGL5,PIL6,L8)«, l3=0x2f}
0x15c4…1611 Line {l1=0x4b, l2=»1930 PIL1=MANT2 DIV 8;PIL6=PIL1;CEKS=1;MANT3=MANT2 DIV 4;MANT4=MANT2 DIV 32«, l3=0x4b}
0x1611…161f Line {l1=0x0c, l2=»1940 REPEAT «, l3=0x0c}
0x161f…164e Line {l1=0x2d, l2=»1950 IF NØGL5=TAB4(PIL6) OR PIL1=1 THEN EXIT «, l3=0x2d}
0x164e…1668 Line {l1=0x18, l2=»1960 PIL1=(PIL1+1) DIV 2«, l3=0x18}
0x1668…1696 Line {l1=0x2c, l2=»1970 PIL6=PIL6+PIL1*(1-2*(NØGL5<TAB4(PIL6)))«, l3=0x2c}
0x1696…16b2 Line {l1=0x1a, l2=»1980 IF PIL6<1 THEN PIL6=1«, l3=0x1a}
0x16b2…16d6 Line {l1=0x22, l2=»1990 IF PIL6>MANT3 THEN PIL6=MANT3«, l3=0x22}
0x16d6…16e9 Line {l1=0x11, l2=»2000 UNTIL PIL1=0«, l3=0x11}
0x16e9…171d Line {l1=0x32, l2=»2010 IF TAB4(PIL6)>NØGL5 THEN PIL6=PIL6-1*(PIL6>1)«, l3=0x32}
0x171d…1733 Line {l1=0x14, l2=»2020 PIL6=MANT4+PIL6«, l3=0x14}
0x1733…177e Line {l1=0x49, l2=»2030 GET L8$,PIL6:Q(1,1),Q(1,2),Q(2,1),Q(2,2),Q(3,1),Q(3,2),Q(4,1),Q(4,2)«, l3=0x49}
0x177e…1797 Line {l1=0x17, l2=»2040 EXEC FEJL(2,1,L8$)«, l3=0x17}
0x1797…17ad Line {l1=0x14, l2=»2050 FOR PIL6=1 TO 4«, l3=0x14}
0x17ad…17d1 Line {l1=0x22, l2=»2060 IF NØGL5=Q(PIL6,1) THEN EXIT «, l3=0x22}
0x17d1…17e1 Line {l1=0x0e, l2=»2070 NEXT PIL6«, l3=0x0e}
0x17e1…17fe Line {l1=0x1b, l2=»2080 IF PIL6<>5 THEN CEKS=0«, l3=0x1b}
0x17fe…180d Line {l1=0x0d, l2=»2090 ENDPROC «, l3=0x0d}
0x180d…182c Line {l1=0x1d, l2=»2100 PROC INDTAB1(Z,MANT5,L7)«, l3=0x1d}
0x182c…1844 Line {l1=0x16, l2=»2110 PIL1=MANT5 DIV 32«, l3=0x16}
0x1844…185a Line {l1=0x14, l2=»2120 FOR I=1 TO PIL1«, l3=0x14}
0x185a…186c Line {l1=0x10, l2=»2130 H=(I-1)*8+1«, l3=0x10}
0x186c…18b2 Line {l1=0x44, l2=»2140 GET L7$,I:Z(H),Z(H+1),Z(H+2),Z(H+3),Z(H+4),Z(H+5),Z(H+6),Z(H+7)«, l3=0x44}
0x18b2…18cb Line {l1=0x17, l2=»2150 EXEC FEJL(3,1,L7$)«, l3=0x17}
0x18cb…18d8 Line {l1=0x0b, l2=»2160 NEXT I«, l3=0x0b}
0x18d8…18e7 Line {l1=0x0d, l2=»2170 ENDPROC «, l3=0x0d}
0x18e7…1905 Line {l1=0x1c, l2=»2180 PROC CALC(ART,B1,B2,ES)«, l3=0x1c}
0x1905…1914 Line {l1=0x0d, l2=»2190 OP1$=B1$«, l3=0x0d}
0x1914…1923 Line {l1=0x0d, l2=»2200 OP2$=B2$«, l3=0x0d}
0x1923…1932 Line {l1=0x0d, l2=»2210 RES$=ES$«, l3=0x0d}
0x1932…193d Line {l1=0x09, l2=»2220 SI=0«, l3=0x09}
0x193d…194a Line {l1=0x0b, l2=»2230 FLAG=0«, l3=0x0b}
0x194a…1964 Line {l1=0x18, l2=»2240 CALL "P641210:REGN"«, l3=0x18}
0x1964…1973 Line {l1=0x0d, l2=»2250 ES$=RES$«, l3=0x0d}
0x1973…198c Line {l1=0x17, l2=»2260 IF FLAG THEN STOP «, l3=0x17}
0x198c…199b Line {l1=0x0d, l2=»2270 ENDPROC «, l3=0x0d}
0x199b…19b0 Line {l1=0x13, l2=»2280 PROC HENTDPOST«, l3=0x13}
0x19b0…19c6 Line {l1=0x14, l2=»2290 S=DTAB(DPIL3,2)«, l3=0x14}
0x19c6…19f6 Line {l1=0x2e, l2=»2300 GET K6$,S:DEBNR,DEBNAVN$,DSALDO1$,DEBKGR$«, l3=0x2e}
0x19f6…1a0f Line {l1=0x17, l2=»2310 EXEC FEJL(8,2,K6$)«, l3=0x17}
0x1a0f…1a38 Line {l1=0x27, l2=»2320 IF DEBNR<>DTAB(DPIL3,1) THEN STOP «, l3=0x27}
0x1a38…1a76 Line {l1=0x3c, l2=»2330 GET K6$,S+1:DSALDO2$,DSALDO3$,DSALDO4$,DEBPOSTNR,DEBLK$«, l3=0x3c}
0x1a76…1a8f Line {l1=0x17, l2=»2340 EXEC FEJL(8,3,K6$)«, l3=0x17}
0x1a8f…1abf Line {l1=0x2e, l2=»2350 GET K6$,S+2:DEBGADE$,DEBTLF$,HPOST,HKUNDE«, l3=0x2e}
0x1abf…1ad8 Line {l1=0x17, l2=»2360 EXEC FEJL(8,4,K6$)«, l3=0x17}
0x1ad8…1b00 Line {l1=0x26, l2=»2370 GET K6$,S+3:DEBBY$,ÅRKØB$,MDNKØB$«, l3=0x26}
0x1b00…1b19 Line {l1=0x17, l2=»2380 EXEC FEJL(8,5,K6$)«, l3=0x17}
0x1b19…1b28 Line {l1=0x0d, l2=»2390 ENDPROC «, l3=0x0d}
0x1b28…1b3c Line {l1=0x12, l2=»2400 PROC HENTPOST«, l3=0x12}
0x1b3c…1b52 Line {l1=0x14, l2=»2410 S=FTAB(FPIL3,2)«, l3=0x14}
0x1b52…1b6d Line {l1=0x19, l2=»2420 GET K5$,S:FNR,FNAVN$«, l3=0x19}
0x1b6d…1b86 Line {l1=0x17, l2=»2430 EXEC FEJL(3,2,K5$)«, l3=0x17}
0x1b86…1bad Line {l1=0x25, l2=»2440 IF FNR<>FTAB(FPIL3,1) THEN STOP «, l3=0x25}
0x1bad…1bda Line {l1=0x2b, l2=»2450 GET K5$,S+1:FMKODE$,FMDEBET$,FMKREDIT$«, l3=0x2b}
0x1bda…1bf3 Line {l1=0x17, l2=»2460 EXEC FEJL(3,3,K5$)«, l3=0x17}
0x1bf3…1c20 Line {l1=0x2b, l2=»2470 GET K5$,S+2:FUKODE$,FÅDEBET$,FÅKREDIT$«, l3=0x2b}
0x1c20…1c39 Line {l1=0x17, l2=»2480 EXEC FEJL(3,4,K5$)«, l3=0x17}
0x1c39…1c48 Line {l1=0x0d, l2=»2490 ENDPROC «, l3=0x0d}
0x1c48…1c5e Line {l1=0x14, l2=»2500 PROC HENTKRPOST«, l3=0x14}
0x1c5e…1c74 Line {l1=0x14, l2=»2510 S=KTAB(KPIL3,2)«, l3=0x14}
0x1c74…1c9c Line {l1=0x26, l2=»2520 GET K7$,S:KRENR,KRENAVN$,KREGADE$«, l3=0x26}
0x1c9c…1cb5 Line {l1=0x17, l2=»2530 EXEC FEJL(4,1,K7$)«, l3=0x17}
0x1cb5…1cf7 Line {l1=0x40, l2=»2540 GET K7$,S+1:KREBY$,KRELK$,KRGR$,KREPOSTNR,KSALDO1$,KSALDO2$«, l3=0x40}
0x1cf7…1d10 Line {l1=0x17, l2=»2550 EXEC FEJL(4,2,K7$)«, l3=0x17}
0x1d10…1d1f Line {l1=0x0d, l2=»2560 ENDPROC «, l3=0x0d}
0x1d1f…1d34 Line {l1=0x13, l2=»2570 PROC GEMKRPOST«, l3=0x13}
0x1d34…1d4a Line {l1=0x14, l2=»2580 S=KTAB(KPIL3,2)«, l3=0x14}
0x1d4a…1d72 Line {l1=0x26, l2=»2590 PUT K7$,S:KRENR,KRENAVN$,KREGADE$«, l3=0x26}
0x1d72…1d8b Line {l1=0x17, l2=»2600 EXEC FEJL(5,1,K7$)«, l3=0x17}
0x1d8b…1dcd Line {l1=0x40, l2=»2610 PUT K7$,S+1:KREBY$,KRELK$,KRGR$,KREPOSTNR,KSALDO1$,KSALDO2$«, l3=0x40}
0x1dcd…1de6 Line {l1=0x17, l2=»2620 EXEC FEJL(5,2,K7$)«, l3=0x17}
0x1de6…1df5 Line {l1=0x0d, l2=»2630 ENDPROC «, l3=0x0d}
0x1df5…1e09 Line {l1=0x12, l2=»2640 PROC GEMDPOST«, l3=0x12}
0x1e09…1e1f Line {l1=0x14, l2=»2650 S=DTAB(DPIL3,2)«, l3=0x14}
0x1e1f…1e4f Line {l1=0x2e, l2=»2660 PUT K6$,S:DEBNR,DEBNAVN$,DSALDO1$,DEBKGR$«, l3=0x2e}
0x1e4f…1e68 Line {l1=0x17, l2=»2670 EXEC FEJL(9,3,K6$)«, l3=0x17}
0x1e68…1ea6 Line {l1=0x3c, l2=»2680 PUT K6$,S+1:DSALDO2$,DSALDO3$,DSALDO4$,DEBPOSTNR,DEBLK$«, l3=0x3c}
0x1ea6…1ebf Line {l1=0x17, l2=»2690 EXEC FEJL(9,4,K6$)«, l3=0x17}
0x1ebf…1ece Line {l1=0x0d, l2=»2700 ENDPROC «, l3=0x0d}
0x1ece…1ee2 Line {l1=0x12, l2=»2710 PROC GEMFPOST«, l3=0x12}
0x1ee2…1ef8 Line {l1=0x14, l2=»2720 S=FTAB(FPIL3,2)«, l3=0x14}
0x1ef8…1f13 Line {l1=0x19, l2=»2730 PUT K5$,S:FNR,FNAVN$«, l3=0x19}
0x1f13…1f2c Line {l1=0x17, l2=»2740 EXEC FEJL(4,3,K5$)«, l3=0x17}
0x1f2c…1f59 Line {l1=0x2b, l2=»2750 PUT K5$,S+1:FMKODE$,FMDEBET$,FMKREDIT$«, l3=0x2b}
0x1f59…1f72 Line {l1=0x17, l2=»2760 EXEC FEJL(4,4,K5$)«, l3=0x17}
0x1f72…1f9f Line {l1=0x2b, l2=»2770 PUT K5$,S+2:FUKODE$,FÅDEBET$,FÅKREDIT$«, l3=0x2b}
0x1f9f…1fb8 Line {l1=0x17, l2=»2780 EXEC FEJL(4,5,K5$)«, l3=0x17}
0x1fb8…1fc7 Line {l1=0x0d, l2=»2790 ENDPROC «, l3=0x0d}
0x1fc7…1fe3 Line {l1=0x1a, l2=»2800 K1$="P641220:SYSTEM1"«, l3=0x1a}
0x1fe3…1ff4 Line {l1=0x0f, l2=»2810 OPEN K1$,R«, l3=0x0f}
0x1ff4…200d Line {l1=0x17, l2=»2820 EXEC FEJL(9,1,K1$)«, l3=0x17}
0x200d…2035 Line {l1=0x26, l2=»2830 GET K1$,1:MFANTAL,MDANTAL,MKANTAL«, l3=0x26}
0x2035…204e Line {l1=0x17, l2=»2840 EXEC FEJL(9,2,K1$)«, l3=0x17}
0x204e…207d Line {l1=0x2d, l2=»2850 GET K1$,2:MKASPOST,MPPOST,MBHPOST,MFPMID«, l3=0x2d}
0x207d…2096 Line {l1=0x17, l2=»2860 EXEC FEJL(9,3,K1$)«, l3=0x17}
0x2096…20b4 Line {l1=0x1c, l2=»2870 GET K1$,3:MDPMID,MKPMID«, l3=0x1c}
0x20b4…20cd Line {l1=0x17, l2=»2880 EXEC FEJL(9,4,K1$)«, l3=0x17}
0x20cd…20f3 Line {l1=0x24, l2=»2890 GET K1$,4:MKPOST,MFAK,MVGR,MKGR«, l3=0x24}
0x20f3…210c Line {l1=0x17, l2=»2900 EXEC FEJL(9,5,K1$)«, l3=0x17}
0x210c…2122 Line {l1=0x14, l2=»2910 GET K1$,5:MKRGR«, l3=0x14}
0x2122…213b Line {l1=0x17, l2=»2920 EXEC FEJL(9,6,K1$)«, l3=0x17}
0x213b…216a Line {l1=0x2d, l2=»2930 GET K1$,6:KASSENR,GIRONR,BANKNR,UDMOMSNR«, l3=0x2d}
0x216a…2183 Line {l1=0x17, l2=»2940 EXEC FEJL(9,7,K1$)«, l3=0x17}
0x2183…219d Line {l1=0x18, l2=»2950 GET K1$,7:INDMOMSNR«, l3=0x18}
0x219d…21b6 Line {l1=0x17, l2=»2960 EXEC FEJL(9,8,K1$)«, l3=0x17}
0x21b6…21de Line {l1=0x26, l2=»2970 GET K1$,8:DIVNR,DIVDNR,DIFNR,DTAL«, l3=0x26}
0x21de…21f7 Line {l1=0x17, l2=»2980 EXEC FEJL(9,9,K1$)«, l3=0x17}
0x21f7…220d Line {l1=0x14, l2=»2990 GET K1$,9:KRTAL«, l3=0x14}
0x220d…2227 Line {l1=0x18, l2=»3000 EXEC FEJL(9,10,K1$)«, l3=0x18}
0x2227…223b Line {l1=0x12, l2=»3010 GET K1$,10:N$«, l3=0x12}
0x223b…2255 Line {l1=0x18, l2=»3020 EXEC FEJL(9,11,K1$)«, l3=0x18}
0x2255…226a Line {l1=0x13, l2=»3030 GET K1$,11:K2$«, l3=0x13}
0x226a…2284 Line {l1=0x18, l2=»3040 EXEC FEJL(9,12,K1$)«, l3=0x18}
0x2284…2299 Line {l1=0x13, l2=»3050 GET K1$,12:K3$«, l3=0x13}
0x2299…22b3 Line {l1=0x18, l2=»3060 EXEC FEJL(9,13,K1$)«, l3=0x18}
0x22b3…22c8 Line {l1=0x13, l2=»3070 GET K1$,13:K4$«, l3=0x13}
0x22c8…22e2 Line {l1=0x18, l2=»3080 EXEC FEJL(9,14,K1$)«, l3=0x18}
0x22e2…22f7 Line {l1=0x13, l2=»3090 GET K1$,15:K5$«, l3=0x13}
0x22f7…2311 Line {l1=0x18, l2=»3100 EXEC FEJL(9,15,K1$)«, l3=0x18}
0x2311…2326 Line {l1=0x13, l2=»3110 GET K1$,16:K6$«, l3=0x13}
0x2326…2340 Line {l1=0x18, l2=»3120 EXEC FEJL(9,16,K1$)«, l3=0x18}
0x2340…2355 Line {l1=0x13, l2=»3130 GET K1$,17:K7$«, l3=0x13}
0x2355…236f Line {l1=0x18, l2=»3140 EXEC FEJL(9,17,K1$)«, l3=0x18}
0x236f…2384 Line {l1=0x13, l2=»3150 GET K1$,21:K8$«, l3=0x13}
0x2384…239e Line {l1=0x18, l2=»3160 EXEC FEJL(9,18,K1$)«, l3=0x18}
0x239e…23b3 Line {l1=0x13, l2=»3170 GET K1$,22:K9$«, l3=0x13}
0x23b3…23cd Line {l1=0x18, l2=»3180 EXEC FEJL(9,19,K1$)«, l3=0x18}
0x23cd…23e3 Line {l1=0x14, l2=»3190 GET K1$,23:K10$«, l3=0x14}
0x23e3…23fd Line {l1=0x18, l2=»3200 EXEC FEJL(9,20,K1$)«, l3=0x18}
0x23fd…2413 Line {l1=0x14, l2=»3210 GET K1$,24:K11$«, l3=0x14}
0x2413…242d Line {l1=0x18, l2=»3220 EXEC FEJL(9,21,K1$)«, l3=0x18}
0x242d…2443 Line {l1=0x14, l2=»3230 GET K1$,28:K12$«, l3=0x14}
0x2443…245d Line {l1=0x18, l2=»3240 EXEC FEJL(9,22,K1$)«, l3=0x18}
0x245d…2473 Line {l1=0x14, l2=»3250 GET K1$,36:K13$«, l3=0x14}
0x2473…248d Line {l1=0x18, l2=»3260 EXEC FEJL(9,23,K1$)«, l3=0x18}
0x248d…249d Line {l1=0x0e, l2=»3270 CLOSE K1$«, l3=0x0e}
0x249d…24b7 Line {l1=0x18, l2=»3280 EXEC FEJL(9,24,K1$)«, l3=0x18}
0x24b7…2500 Line {l1=0x47, l2=»3290 DIM FTAB1(MFANTAL DIV 4),DTAB1(MDANTAL DIV 4),KTAB1(MKANTAL DIV 4)«, l3=0x47}
0x2500…254b Line {l1=0x49, l2=»3300 DIM FTAB(4,2),DTAB(4,2),KTAB(4,2),KGR$(MKGR*2,12),KREGR$(MKRGR*2,12)«, l3=0x49}
0x254b…2563 Line {l1=0x16, l2=»3310 FOR I=1 TO MKGR*2«, l3=0x16}
0x2563…2576 Line {l1=0x11, l2=»3320 KGR$(I)="0+"«, l3=0x11}
0x2576…2583 Line {l1=0x0b, l2=»3330 NEXT I«, l3=0x0b}
0x2583…259c Line {l1=0x17, l2=»3340 FOR I=1 TO MKRGR*2«, l3=0x17}
0x259c…25b1 Line {l1=0x13, l2=»3350 KREGR$(I)="0+"«, l3=0x13}
0x25b1…25be Line {l1=0x0b, l2=»3360 NEXT I«, l3=0x0b}
0x25be…2608 Line {l1=0x48, l2=»3370 K2$=N$+K2$;K3$=N$+K3$;K4$=N$+K4$;K5$=N$+K5$;K6$=N$+K6$;K13$=N$+K13$«, l3=0x48}
0x2608…2656 Line {l1=0x4c, l2=»3380 K8$=N$+K8$;K9$=N$+K9$;K10$=N$+K10$;K11$=N$+K11$;K12$=N$+K12$;K7$=N$+K7$«, l3=0x4c}
0x2656…2668 Line {l1=0x10, l2=»3390 OPEN K13$,R«, l3=0x10}
0x2668…2683 Line {l1=0x19, l2=»3400 EXEC FEJL(9,25,K13$)«, l3=0x19}
0x2683…269a Line {l1=0x15, l2=»3410 GET K13$,1:MOMS$«, l3=0x15}
0x269a…26b5 Line {l1=0x19, l2=»3420 EXEC FEJL(9,26,K13$)«, l3=0x19}
0x26b5…26fc Line {l1=0x45, l2=»3430 GET K13$,2:T1(1),T1(2),T1(3),T1(4),T1(5),T1(6),T1(7),T1(8),T1(9)«, l3=0x45}
0x26fc…2717 Line {l1=0x19, l2=»3440 EXEC FEJL(9,27,K13$)«, l3=0x19}
0x2717…272a Line {l1=0x11, l2=»3450 FOR I=1 TO 6«, l3=0x11}
0x272a…273c Line {l1=0x10, l2=»3460 H=(I-1)*3+1«, l3=0x10}
0x273c…276e Line {l1=0x30, l2=»3470 GET K13$,I+5:TFIL$(H),TFIL$(H+1),TFIL$(H+2)«, l3=0x30}
0x276e…2789 Line {l1=0x19, l2=»3480 EXEC FEJL(9,28,K13$)«, l3=0x19}
0x2789…2796 Line {l1=0x0b, l2=»3490 NEXT I«, l3=0x0b}
0x2796…27de Line {l1=0x46, l2=»3500 GET K13$,12:T2(1),T2(2),T2(3),T2(4),T2(5),T2(6),T2(7),T2(8),T2(9)«, l3=0x46}
0x27de…27f9 Line {l1=0x19, l2=»3510 EXEC FEJL(9,29,K13$)«, l3=0x19}
0x27f9…2841 Line {l1=0x46, l2=»3520 GET K13$,13:T3(1),T3(2),T3(3),T3(4),T3(5),T3(6),T3(7),T3(8),T3(9)«, l3=0x46}
0x2841…285c Line {l1=0x19, l2=»3530 EXEC FEJL(9,30,K13$)«, l3=0x19}
0x285c…286d Line {l1=0x0f, l2=»3540 CLOSE K13$«, l3=0x0f}
0x286d…2888 Line {l1=0x19, l2=»3550 EXEC FEJL(9,31,K13$)«, l3=0x19}
0x2888…289b Line {l1=0x11, l2=»3560 TAL3$="100+"«, l3=0x11}
0x289b…28c1 Line {l1=0x24, l2=»3570 EXEC CALC(0,TAL3$,MOMS$,DMOMS$)«, l3=0x24}
0x28c1…2910 Line {l1=0x4d, l2=»3580 BLANK$=" "«, l3=0x4d}
0x2910…295b Line {l1=0x49, l2=»3590 TAL4$="0+";SUM$="0+";STREG$="--------------------------------------"«, l3=0x49}
0x295b…299e Line {l1=0x41, l2=»3600 STREG$=STREG$+STREG$+"-";TAH$="0+";BJSIDENR=T1(6);DATO=T1(7)«, l3=0x41}
0x299e…29eb Line {l1=0x4b, l2=»3610 BHPOSTNR=T3(1);FAKPOSTNR=T2(3);FMIDNR=T3(2);DMIDNR=T3(3);KRMIDNR=T3(4)«, l3=0x4b}
0x29eb…29fc Line {l1=0x0f, l2=»3620 OPEN K2$,R«, l3=0x0f}
0x29fc…2a16 Line {l1=0x18, l2=»3630 EXEC FEJL(9,32,K2$)«, l3=0x18}
0x2a16…2a27 Line {l1=0x0f, l2=»3640 OPEN K3$,R«, l3=0x0f}
0x2a27…2a41 Line {l1=0x18, l2=»3650 EXEC FEJL(9,33,K3$)«, l3=0x18}
0x2a41…2a52 Line {l1=0x0f, l2=»3660 OPEN K4$,R«, l3=0x0f}
0x2a52…2a6c Line {l1=0x18, l2=»3670 EXEC FEJL(9,34,K4$)«, l3=0x18}
0x2a6c…2a7d Line {l1=0x0f, l2=»3680 OPEN K5$,W«, l3=0x0f}
0x2a7d…2a97 Line {l1=0x18, l2=»3690 EXEC FEJL(9,35,K5$)«, l3=0x18}
0x2a97…2aa8 Line {l1=0x0f, l2=»3700 OPEN K6$,W«, l3=0x0f}
0x2aa8…2ac2 Line {l1=0x18, l2=»3710 EXEC FEJL(9,36,K6$)«, l3=0x18}
0x2ac2…2ad3 Line {l1=0x0f, l2=»3720 OPEN K7$,W«, l3=0x0f}
0x2ad3…2aed Line {l1=0x18, l2=»3730 EXEC FEJL(9,37,K7$)«, l3=0x18}
0x2aed…2afe Line {l1=0x0f, l2=»3740 OPEN K8$,R«, l3=0x0f}
0x2afe…2b18 Line {l1=0x18, l2=»3750 EXEC FEJL(9,38,K8$)«, l3=0x18}
0x2b18…2b29 Line {l1=0x0f, l2=»3760 OPEN K9$,W«, l3=0x0f}
0x2b29…2b43 Line {l1=0x18, l2=»3770 EXEC FEJL(9,39,K9$)«, l3=0x18}
0x2b43…2b55 Line {l1=0x10, l2=»3780 OPEN K10$,W«, l3=0x10}
0x2b55…2b70 Line {l1=0x19, l2=»3790 EXEC FEJL(9,40,K10$)«, l3=0x19}
0x2b70…2b82 Line {l1=0x10, l2=»3800 OPEN K11$,W«, l3=0x10}
0x2b82…2b9d Line {l1=0x19, l2=»3810 EXEC FEJL(9,41,K11$)«, l3=0x19}
0x2b9d…2baf Line {l1=0x10, l2=»3820 OPEN K12$,R«, l3=0x10}
0x2baf…2bca Line {l1=0x19, l2=»3830 EXEC FEJL(9,42,K12$)«, l3=0x19}
0x2bca…2bf0 Line {l1=0x24, l2=»3840 EXEC INDTAB1(KTAB1,MKANTAL,K4$)«, l3=0x24}
0x2bf0…2c16 Line {l1=0x24, l2=»3850 EXEC INDTAB1(FTAB1,MFANTAL,K2$)«, l3=0x24}
0x2c16…2c3c Line {l1=0x24, l2=»3860 EXEC INDTAB1(DTAB1,MDANTAL,K3$)«, l3=0x24}
0x2c3c…2c69 Line {l1=0x2b, l2=»3870 BJLINIENR=0;UDMOMS$="0+";INDMOMS$="0+"«, l3=0x2b}
0x2c69…2c80 Line {l1=0x15, l2=»3880 PROC BFØR(PNR,G)«, l3=0x15}
0x2c80…2c95 Line {l1=0x13, l2=»3890 FOR I=1 TO PNR«, l3=0x13}
0x2c95…2cc8 Line {l1=0x31, l2=»3900 GET G$,I:KONTO,DDATO,BILAG,TKODE$,BELØB$,TK$«, l3=0x31}
0x2cc8…2ce0 Line {l1=0x16, l2=»3910 EXEC FEJL(1,4,G$)«, l3=0x16}
0x2ce0…2cff Line {l1=0x1d, l2=»3920 TEKSTKODE=ORD(TKODE$)-48«, l3=0x1d}
0x2cff…2d2b Line {l1=0x2a, l2=»3930 IF TEKSTKODE>9 AND TEKSTKODE<20 THEN «, l3=0x2a}
0x2d2b…2d37 Line {l1=0x0a, l2=»3940 I=I+1«, l3=0x0a}
0x2d37…2d53 Line {l1=0x1a, l2=»3950 GET G$,I:KONTO,TEKST$«, l3=0x1a}
0x2d53…2d6b Line {l1=0x16, l2=»3960 EXEC FEJL(1,5,G$)«, l3=0x16}
0x2d6b…2d78 Line {l1=0x0b, l2=»3970 ENDIF «, l3=0x0b}
0x2d78…2db1 Line {l1=0x37, l2=»3980 EXEC BOGFØRING(KONTO,DDATO,BILAG,TEKSTKODE,BELØB$)«, l3=0x37}
0x2db1…2dde Line {l1=0x2b, l2=»3990 EXEC BJUDSKRIV(BJSIDENR,BJLINIENR,TK$)«, l3=0x2b}
0x2dde…2deb Line {l1=0x0b, l2=»4000 NEXT I«, l3=0x0b}
0x2deb…2dfa Line {l1=0x0d, l2=»4010 ENDPROC «, l3=0x0d}
0x2dfa…2e07 Line {l1=0x0b, l2=»4020 CLEAR «, l3=0x0b}
0x2e07…2e15 Line {l1=0x0c, l2=»4030 REPEAT «, l3=0x0c}
0x2e15…2e27 Line {l1=0x10, l2=»4040 CURSOR 8,13«, l3=0x10}
0x2e27…2e76 Line {l1=0x4d, l2=»4050 INPUT "Monter papir til udskrift af bogholderijournal og tast RETURN",A$«, l3=0x4d}
0x2e76…2e8e Line {l1=0x16, l2=»4060 UNTIL ORD(A$)=255«, l3=0x16}
0x2e8e…2eac Line {l1=0x1c, l2=»4070 EXEC BFØR(BHPOSTNR,K8$)«, l3=0x1c}
0x2eac…2ecc Line {l1=0x1e, l2=»4080 EXEC BFØR(FAKPOSTNR,K12$)«, l3=0x1e}
0x2ecc…2ee7 Line {l1=0x19, l2=»4090 TEKSTKODE=28;TK$="0"«, l3=0x19}
0x2ee7…2efc Line {l1=0x13, l2=»4100 TKODE$=CHR(76)«, l3=0x13}
0x2efc…2f0d Line {l1=0x0f, l2=»4110 DDATO=DATO«, l3=0x0f}
0x2f0d…2f22 Line {l1=0x13, l2=»4120 BILAG=BJSIDENR«, l3=0x13}
0x2f22…2f38 Line {l1=0x14, l2=»4130 KONTO=INDMOMSNR«, l3=0x14}
0x2f38…2f4e Line {l1=0x14, l2=»4140 BELØB$=INDMOMS$«, l3=0x14}
0x2f4e…2f87 Line {l1=0x37, l2=»4150 EXEC BOGFØRING(KONTO,DDATO,BILAG,TEKSTKODE,BELØB$)«, l3=0x37}
0x2f87…2f9a Line {l1=0x11, l2=»4160 TEKSTKODE=10«, l3=0x11}
0x2f9a…2fc1 Line {l1=0x25, l2=»4170 TEKST$="Samlet indgående afgift"«, l3=0x25}
0x2fc1…2fee Line {l1=0x2b, l2=»4180 EXEC BJUDSKRIV(BJSIDENR,BJLINIENR,TK$)«, l3=0x2b}
0x2fee…3001 Line {l1=0x11, l2=»4190 TEKSTKODE=28«, l3=0x11}
0x3001…3016 Line {l1=0x13, l2=»4200 KONTO=UDMOMSNR«, l3=0x13}
0x3016…302b Line {l1=0x13, l2=»4210 BELØB$=UDMOMS$«, l3=0x13}
0x302b…3064 Line {l1=0x37, l2=»4220 EXEC BOGFØRING(KONTO,DDATO,BILAG,TEKSTKODE,BELØB$)«, l3=0x37}
0x3064…3077 Line {l1=0x11, l2=»4230 TEKSTKODE=10«, l3=0x11}
0x3077…309d Line {l1=0x24, l2=»4240 TEKST$="Samlet udgående afgift"«, l3=0x24}
0x309d…30ca Line {l1=0x2b, l2=»4250 EXEC BJUDSKRIV(BJSIDENR,BJLINIENR,TK$)«, l3=0x2b}
0x30ca…30ec Line {l1=0x20, l2=»4260 EXEC CALC(4,SUM$,TAH$,TAH$)«, l3=0x20}
0x30ec…3101 Line {l1=0x13, l2=»4270 IF SI<>0 THEN «, l3=0x13}
0x3101…313f Line {l1=0x3c, l2=»4280 TEKSTKODE=10;KONTO=DIFNR;TEKST$="Difference bogholderi"«, l3=0x3c}
0x313f…3162 Line {l1=0x21, l2=»4290 IF SUM$(LEN(SUM$))="+" THEN «, l3=0x21}
0x3162…3187 Line {l1=0x23, l2=»4300 BELØB$=SUM$(1:LEN(SUM$)-1)+"-"«, l3=0x23}
0x3187…3193 Line {l1=0x0a, l2=»4310 ELSE «, l3=0x0a}
0x3193…31b8 Line {l1=0x23, l2=»4320 BELØB$=SUM$(1:LEN(SUM$)-1)+"+"«, l3=0x23}
0x31b8…31c5 Line {l1=0x0b, l2=»4330 ENDIF «, l3=0x0b}
0x31c5…31fe Line {l1=0x37, l2=»4340 EXEC BOGFØRING(KONTO,DDATO,BILAG,TEKSTKODE,BELØB$)«, l3=0x37}
0x31fe…322b Line {l1=0x2b, l2=»4350 EXEC BJUDSKRIV(BJSIDENR,BJLINIENR,TK$)«, l3=0x2b}
0x322b…3238 Line {l1=0x0b, l2=»4360 ENDIF «, l3=0x0b}
0x3238…3254 Line {l1=0x1a, l2=»4370 FOR I=BJLINIENR TO 36«, l3=0x1a}
0x3254…3269 Line {l1=0x13, l2=»4380 PRINT CHR(10);«, l3=0x13}
0x3269…3276 Line {l1=0x0b, l2=»4390 NEXT I«, l3=0x0b}
0x3276…3286 Line {l1=0x0e, l2=»4400 PRINT " "«, l3=0x0e}
0x3286…3299 Line {l1=0x11, l2=»4410 PRINT STREG$«, l3=0x11}
0x3299…32bd Line {l1=0x22, l2=»4420 EXEC CALC(5,SUM$,TAL3$,TAL4$)«, l3=0x22}
0x32bd…32f7 Line {l1=0x38, l2=»4430 IF TAL4$(LEN(TAL4$))="+" THEN TAL4$(LEN(TAL4$))=" "«, l3=0x38}
0x32f7…3336 Line {l1=0x3d, l2=»4440 PRINT TAB(10);CHR(14);"Difference";CHR(15);TAB(36);TAL4$«, l3=0x3d}
0x3336…3349 Line {l1=0x11, l2=»4450 PRINT STREG$«, l3=0x11}
0x3349…3365 Line {l1=0x1a, l2=»4460 PRINT CHR(10);CHR(10)«, l3=0x1a}
0x3365…337f Line {l1=0x18, l2=»4470 PROC GRUPPE(GR,KG1)«, l3=0x18}
0x337f…339c Line {l1=0x1b, l2=»4480 FOR I=1 TO 2*GR STEP 2«, l3=0x1b}
0x339c…33ac Line {l1=0x0e, l2=»4490 FNR=FNR+1«, l3=0x0e}
0x33ac…33e3 Line {l1=0x35, l2=»4500 EXEC FINDPOST1(FTAB1,FTAB,MFANTAL,FNR,FPIL3,K2$)«, l3=0x35}
0x33e3…33fe Line {l1=0x19, l2=»4510 IF CEKS=1 THEN STOP «, l3=0x19}
0x33fe…3412 Line {l1=0x12, l2=»4520 EXEC HENTPOST«, l3=0x12}
0x3412…343f Line {l1=0x2b, l2=»4530 EXEC CALC(0,FMDEBET$,KG1$(I),FMDEBET$)«, l3=0x2b}
0x343f…346c Line {l1=0x2b, l2=»4540 EXEC CALC(0,FÅDEBET$,KG1$(I),FÅDEBET$)«, l3=0x2b}
0x346c…349d Line {l1=0x2f, l2=»4550 EXEC CALC(0,FMKREDIT$,KG1$(I+1),FMKREDIT$)«, l3=0x2f}
0x349d…34ce Line {l1=0x2f, l2=»4560 EXEC CALC(0,FÅKREDIT$,KG1$(I+1),FÅKREDIT$)«, l3=0x2f}
0x34ce…34e2 Line {l1=0x12, l2=»4570 EXEC GEMFPOST«, l3=0x12}
0x34e2…34ef Line {l1=0x0b, l2=»4580 NEXT I«, l3=0x0b}
0x34ef…34fe Line {l1=0x0d, l2=»4590 ENDPROC «, l3=0x0d}
0x34fe…3513 Line {l1=0x13, l2=»4600 FNR=DTAL*10000«, l3=0x13}
0x3513…3530 Line {l1=0x1b, l2=»4610 EXEC GRUPPE(MKGR,KGR$)«, l3=0x1b}
0x3530…3545 Line {l1=0x13, l2=»4620 FNR=KRTAL*1000«, l3=0x13}
0x3545…3565 Line {l1=0x1e, l2=»4630 EXEC GRUPPE(MKRGR,KREGR$)«, l3=0x1e}
0x3565…3575 Line {l1=0x0e, l2=»4640 CLOSE K5$«, l3=0x0e}
0x3575…358f Line {l1=0x18, l2=»4650 EXEC FEJL(9,45,K5$)«, l3=0x18}
0x358f…359f Line {l1=0x0e, l2=»4660 CLOSE K6$«, l3=0x0e}
0x359f…35b9 Line {l1=0x18, l2=»4670 EXEC FEJL(9,46,K6$)«, l3=0x18}
0x35b9…35c9 Line {l1=0x0e, l2=»4680 CLOSE K7$«, l3=0x0e}
0x35c9…35e3 Line {l1=0x18, l2=»4690 EXEC FEJL(9,47,K7$)«, l3=0x18}
0x35e3…35f3 Line {l1=0x0e, l2=»4700 CLOSE K9$«, l3=0x0e}
0x35f3…360d Line {l1=0x18, l2=»4710 EXEC FEJL(9,48,K9$)«, l3=0x18}
0x360d…361e Line {l1=0x0f, l2=»4720 CLOSE K10$«, l3=0x0f}
0x361e…3639 Line {l1=0x19, l2=»4730 EXEC FEJL(9,49,K10$)«, l3=0x19}
0x3639…364a Line {l1=0x0f, l2=»4740 CLOSE K11$«, l3=0x0f}
0x364a…3665 Line {l1=0x19, l2=»4750 EXEC FEJL(9,50,K11$)«, l3=0x19}
0x3665…3672 Line {l1=0x0b, l2=»4760 CLOSE «, l3=0x0b}
0x3672…36bf Line {l1=0x4b, l2=»4770 T1(6)=BJSIDENR;T3(1)=0;T2(3)=0;T3(2)=FMIDNR;T3(3)=DMIDNR;T3(4)=KRMIDNR«, l3=0x4b}
0x36bf…36d1 Line {l1=0x10, l2=»4780 OPEN K13$,W«, l3=0x10}
0x36d1…36ec Line {l1=0x19, l2=»4790 EXEC FEJL(9,51,K13$)«, l3=0x19}
0x36ec…3733 Line {l1=0x45, l2=»4800 PUT K13$,2:T1(1),T1(2),T1(3),T1(4),T1(5),T1(6),T1(7),T1(8),T1(9)«, l3=0x45}
0x3733…374e Line {l1=0x19, l2=»4810 EXEC FEJL(9,52,K13$)«, l3=0x19}
0x374e…3796 Line {l1=0x46, l2=»4820 PUT K13$,12:T2(1),T2(2),T2(3),T2(4),T2(5),T2(6),T2(7),T2(8),T2(9)«, l3=0x46}
0x3796…37b1 Line {l1=0x19, l2=»4830 EXEC FEJL(9,53,K13$)«, l3=0x19}
0x37b1…37f9 Line {l1=0x46, l2=»4840 PUT K13$,13:T3(1),T3(2),T3(3),T3(4),T3(5),T3(6),T3(7),T3(8),T3(9)«, l3=0x46}
0x37f9…3814 Line {l1=0x19, l2=»4850 EXEC FEJL(9,54,K13$)«, l3=0x19}
0x3814…3825 Line {l1=0x0f, l2=»4860 CLOSE K13$«, l3=0x0f}
0x3825…3840 Line {l1=0x19, l2=»4870 EXEC FEJL(9,55,K13$)«, l3=0x19}
0x3840…384f Line {l1=0x0d, l2=»4880 OUTPUT T«, l3=0x0d}
0x384f…386b Line {l1=0x1a, l2=»4890 CHAIN "P641210:FSORT"«, l3=0x1a}
0x386b…3880 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ ccccccccccccccccccc┆
0x3880…38a0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x15…]