|
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: 17696 (0x4520)
Types: TextFile
Notes: Mikados_K
Names: »BJ.K«
└─⟦385f097a1⟧ Bits:30008988 SPC/1 COMAL programmer til bogføring
└─⟦this⟧ »BJ.K«
0100 REM BJ 0110 DIM K1$(17),K2$(17),K3$(17),K4$(17),B9$(12),UDAGE$(9),T1(9),T2(9),T3(9) 0120 DIM TKODE$(1),BELØB$(12),TEKST$(25),BLANK$(77),BMOMS$(12),INDMOMS$(12) 0130 DIM TFIL$(18,10),N$(6),UDMOMS$(12),TAL4$(14),OP1$(12),OP2$(12),RES$(15) 0140 DIM DEBNAVN$(25),DEBBY$(20),DEBGADE$(25),DEBTLF$(9),DEBKGR$(2),DEBLK$(2) 0150 DIM DSALDO1$(12),DSALDO2$(12),DSALDO3$(12),DSALDO4$(12),ÅRKØB$(12) 0160 DIM MDNKØB$(12),TAL3$(12),MOMS$(12),DMOMS$(12),K5$(17),K6$(17),K7$(17) 0170 DIM FNAVN$(25),FUKODE$(1),FMKODE$(1),FMDEBET$(12),FMKREDIT$(12),K8$(17) 0180 DIM KRENAVN$(25),FÅDEBET$(12),FÅKREDIT$(12),B8$(12),TK$(1),STREG$(77) 0190 DIM K9$(17),K10$(17),K11$(17),K12$(17),K13$(17),KREGADE$(25),KREBY$(20) 0200 DIM KRELK$(1),KRGR$(1),KSALDO1$(12),KSALDO2$(12),TAH$(12),SUM$(12),A$(1) 0210 DIM DV$(10),K14$(17),K15$(17),K16$(17),K17$(17),T4(9),EÅREG$(12) 0211 DIM EMREG$(12),MBEV$(12),YBEV$(12) 0220 PROC CALC(ART,B1,B2,ES) 0230 OP1$=B1$;OP2$=B2$;RES$=ES$;SI=0;FLAG=0 0240 CALL "P641210:REGN" 0250 ES$=RES$ 0260 IF FLAG THEN STOP 0270 ENDPROC 0280 PROC FEJL(NR1,NR2,NR3) 0290 IF STATUS(NR3$)<>0 THEN 0300 PRINT STATUS(NR3$),NR1,NR2,NR3$ 0310 STOP 0320 ENDIF 0330 ENDPROC 0340 PROC BOGFØRING(KONTNR,EDATO,BLGNR,TEK1,BE2,ENT1) 0350 KTAL=KONTNR DIV 10000;KTAL9=KONTNR DIV 1000 0360 KODE2=0 0370 IF KTAL=DTAL THEN 0380 EXEC FINDPOST1(DTAB1,DTAB,MDANTAL,KONTNR,DPIL3,K3$) 0390 DEBNR=KONTNR 0400 IF CEKS=1 THEN STOP 0410 EXEC HENTDPOST 0420 INDEX=INT(ORD(DEBKGR$)-48)*2 0430 B8$=BE2$ 0440 IF B8$(LEN(B8$))="-" THEN 0450 EXEC CALC(0,KGR$(INDEX),B8$,KGR$(INDEX)) 0460 EXEC NEDSKRIV(B8$,DSALDO4$) 0470 EXEC NEDSKRIV(B8$,DSALDO3$) 0480 EXEC NEDSKRIV(B8$,DSALDO2$) 0490 EXEC NEDSKRIV(B8$,DSALDO1$) 0500 ELSE 0510 EXEC CALC(0,KGR$(INDEX-1),B8$,KGR$(INDEX-1)) 0520 ENDIF 0530 EXEC CALC(0,DSALDO1$,B8$,DSALDO1$) 0540 EXEC GEMDPOST 0550 EXEC GEMMID(DMIDNR,K10$,KONTNR,ENT1) 0560 ELSE 0570 IF KTAL9=KRTAL THEN 0580 EXEC FINDPOST1(KTAB1,KTAB,MKANTAL,KONTNR,KPIL3,K4$) 0590 KRENR=KONTNR 0600 IF CEKS=1 THEN STOP 0610 EXEC HENTKRPOST 0620 INDEX=INT(ORD(KRGR$)-48)*2 0630 B8$=BE2$ 0640 IF B8$(LEN(B8$))="+" THEN 0650 EXEC CALC(0,KREGR$(INDEX-1),B8$,KREGR$(INDEX-1)) 0660 EXEC NEDSKRIV1(B8$,KSALDO2$) 0670 EXEC NEDSKRIV1(B8$,KSALDO1$) 0680 ELSE 0690 EXEC CALC(0,KREGR$(INDEX),B8$,KREGR$(INDEX)) 0700 ENDIF 0710 EXEC CALC(0,KSALDO1$,B8$,KSALDO1$) 0720 EXEC GEMKRPOST 0730 EXEC GEMMID(KRMIDNR,K11$,KONTNR,ENT1) 0740 ELSE 0750 EXEC FINDPOST1(FTAB1,FTAB,MFANTAL,KONTNR,FPIL3,K2$) 0760 FNR=KONTNR 0770 IF CEKS=1 THEN STOP 0780 EXEC HENTPOST 0790 KODE2=ORD(FMKODE$)-48 0800 IF FMKODE$<>"0" THEN 0810 B9$="0+" 0820 BMOMS$="0+" 0830 EXEC CALC(3,DMOMS$,TAL3$,B9$) 0840 EXEC CALC(3,BE2$,B9$,B9$) 0850 EXEC CALC(1,BE2$,B9$,BMOMS$) 0860 IF FMKODE$="1" THEN 0870 EXEC CALC(0,INDMOMS$,BMOMS$,INDMOMS$) 0880 ELSE 0890 EXEC CALC(0,UDMOMS$,BMOMS$,UDMOMS$) 0900 ENDIF 0910 BE2$=B9$ 0920 ENDIF 0930 IF BE2$(LEN(BE2$))="-" THEN 0940 EXEC CALC(0,FMKREDIT$,BE2$,FMKREDIT$) 0950 EXEC CALC(0,FÅKREDIT$,BE2$,FÅKREDIT$) 0960 ELSE 0970 EXEC CALC(0,FMDEBET$,BE2$,FMDEBET$) 0980 EXEC CALC(0,FÅDEBET$,BE2$,FÅDEBET$) 0990 ENDIF 1000 EXEC GEMFPOST 1010 EXEC GEMMID(FMIDNR,K9$,KONTNR,ENT1) 1020 ENDIF 1030 ENDIF 1040 IF ENT1<>1000000 THEN 1050 EPIL2=1 1060 EXEC FINDPOST1(ETAB1,ETAB,MEANTAL,(ENT1 DIV 100),EPIL3,K15$) 1070 IF CEKS=0 THEN 1080 FOR EPIL1=1 TO METOT+MUNKANT 1090 CEKS=0 1100 IF (ENT1 MOD 100)=ENR(EPIL2) AND EU$(EPIL1)="0" THEN EXIT 1110 CEKS=1;EPIL2=EPIL2+1*(EU$(EPIL1)="0") 1120 NEXT EPIL1 1130 IF CEKS=0 THEN 1140 GET K14$,ETAB(EPIL3,2):NR9,EMREG$,EÅREG$ 1150 EXEC FEJL(20,20,K14$) 1160 GET K14$,ETAB(EPIL3,2)+EPIL2+1:NR8,MBEV$,YBEV$ 1170 EXEC FEJL(20,21,K14$) 1180 EXEC CALC(0,MBEV$,BE2$,MBEV$) 1190 EXEC CALC(0,YBEV$,BE2$,YBEV$) 1200 EXEC CALC(1,EMREG$,BE2$,EMREG$) 1210 EXEC CALC(1,EÅREG$,BE2$,EÅREG$) 1220 PUT K14$,ETAB(EPIL3,2):NR9,EMREG$,EÅREG$ 1221 EXEC FEJL(20,25,K14$) 1222 PUT K14$,ETAB(EPIL3,2)+EPIL2+1:NR8,MBEV$,YBEV$ 1223 EXEC FEJL(20,26,K14$) 1224 EXEC GEMMID(EMIDNR,K17$,ENT1,KONTNR) 1225 ELSE 1226 ENT1=1000000 1227 ENDIF 1228 ENDIF 1229 ENDIF 1230 ENDPROC 1240 PROC BJUDSKRIV(BJSNR,BJLNR,TK1) 1250 IF BJLNR=36 OR BJLNR=0 THEN 1260 BJSNR=BJSNR+1 1270 EXEC BJHOVEDUD(DATO,BJSNR) 1280 BJLNR=0 1290 ENDIF 1300 BJLNR=BJLNR+1;KODE1=INT(ORD(TK1$)-48) 1310 EXEC BJLINIEUD(BILAG,TEKSTKODE,KONTO,BELØB$,KODE1,BMOMS$,KODE2,ENTKO) 1320 ENDPROC 1330 PROC BJHOVEDUD(UDAG,BJOSNR) 1340 EXEC UDATO(UDAG,UDAGE$) 1345 OUTPUT T 1350 OUTPUT P 1360 IF BJLNR=36 THEN 1370 FOR BJLNR=BJLNR TO 41 1380 PRINT " " 1390 NEXT BJLNR 1400 ENDIF 1410 PRINT TAB(67);DV$;" " 1420 PRINT TAB(6);CHR(14);"Bogholderijournal";CHR(15);TAB(40);"Dato:";UDAGE$; 1430 PRINT TAB(56); 1440 PRINT USING "Side:#####":BJOSNR 1450 PRINT CHR(10);TAB(73);"Moms" 1460 PRINT TAB(2);"Bilag";TAB(9);"Tekst";TAB(35);"Konto";TAB(42);"Entre"; 1470 PRINT TAB(53);"Beløb";TAB(61);"Kode";TAB(69);"Beløb";TAB(75);"Kode" 1480 PRINT TAB(2);STREG$ 1490 ENDPROC 1500 PROC BJLINIEUD(BLG,TEKKODE,KONT,BELB,KO1,MO,KO2,ENT3) 1510 IF BLG<>-1 THEN 1520 PRINT USING "#######":BLG; 1530 ENDIF 1540 IF TEKKODE<10 AND TEKKODE>0 OR TEKKODE>20 THEN 1550 TEKST$=TFIL$(TEKKODE-10*(TEKKODE>20))+BLANK$(1:15) 1560 ENDIF 1570 IF TEKKODE<>0 THEN 1580 PRINT TAB(9);TEKST$; 1590 ENDIF 1600 PRINT TAB(34); 1610 PRINT USING "###### ######":KONT;ENT3; 1620 PRINT TAB(47); 1630 EXEC CALC(0,BELB$,SUM$,SUM$) 1640 EXEC CALC(5,BELB$,TAL3$,TAL4$) 1650 PRINT TAL4$;TAB(62); 1660 IF KO2<>0 THEN 1670 PRINT USING "##":KO1; 1680 PRINT TAB(64); 1690 EXEC CALC(5,MO$,TAL3$,TAL4$) 1700 PRINT TAL4$(2:13);TAB(78); 1710 PRINT USING "##":KO2 1720 ELSE 1730 PRINT USING "##":KO1 1740 ENDIF 1750 ENDPROC 1760 PROC NEDSKRIV1(PSAL1,KSAL) 1770 IF KSAL$(LEN(KSAL$))="-" THEN 1780 EXEC CALC(0,KSAL$,PSAL1$,KSAL$) 1790 IF KSAL$(LEN(KSAL$))="+" THEN 1800 PSAL1$=KSAL$ 1810 KSAL$="0+" 1820 ELSE 1830 PSAL1$="0+" 1840 ENDIF 1850 ENDIF 1860 ENDPROC 1870 PROC NEDSKRIV(PSAL,DSAL) 1880 IF DSAL$(LEN(DSAL$))="+" THEN 1890 EXEC CALC(0,DSAL$,PSAL$,DSAL$) 1900 IF DSAL$(LEN(DSAL$))="-" THEN 1910 PSAL$=DSAL$ 1920 DSAL$="0+" 1930 ELSE 1940 PSAL$="0+" 1950 ENDIF 1960 ENDIF 1970 ENDPROC 1980 PROC UDATO(DA1,DA2) 1990 DA3=DA1 2000 DA2$=" " 2010 FOR J=8 TO 1 STEP -1 2020 IF J MOD 3=0 THEN 2030 DA2$(J)="." 2040 ELSE 2050 DA2$(J)=CHR(DA3 MOD 10+48) 2060 DA3=DA3 DIV 10 2070 ENDIF 2080 NEXT J 2090 ENDPROC 2100 PROC GEMMID(MIDANTAL,L2,KONTNR1,ENT2) 2110 MIDANTAL=MIDANTAL+1 2120 PUT L2$,MIDANTAL:KONTNR1,DDATO,BILAG,TKODE$,BELØB$,ENT2 2130 EXEC FEJL(1,1,L2$) 2140 IF TEKSTKODE>9 AND TEKSTKODE<20 THEN 2150 MIDANTAL=MIDANTAL+1 2160 PUT L2$,MIDANTAL:KONTNR1,TEKST$ 2170 EXEC FEJL(1,2,L2$) 2180 ENDIF 2190 ENDPROC 2200 PROC FINDPOST1(TAB4,Q,MANT2,NØGL5,PIL6,L8) 2210 PIL1=MANT2 DIV 8;PIL6=PIL1;CEKS=1;MANT3=MANT2 DIV 4;MANT4=MANT2 DIV 32 2220 REPEAT 2230 IF NØGL5=TAB4(PIL6) OR PIL1=1 THEN EXIT 2240 PIL1=(PIL1+1) DIV 2 2250 PIL6=PIL6+PIL1*(1-2*(NØGL5<TAB4(PIL6))) 2260 IF PIL6<1 THEN PIL6=1 2270 IF PIL6>MANT3 THEN PIL6=MANT3 2280 UNTIL PIL1=0 2290 IF TAB4(PIL6)>NØGL5 THEN PIL6=PIL6-1*(PIL6>1) 2300 PIL6=MANT4+PIL6 2310 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) 2320 EXEC FEJL(2,1,L8$) 2330 FOR PIL6=1 TO 4 2340 IF NØGL5=Q(PIL6,1) THEN EXIT 2350 NEXT PIL6 2360 IF PIL6<>5 THEN CEKS=0 2370 ENDPROC 2380 PROC INDTAB1(Z,MANT5,L7) 2390 PIL1=MANT5 DIV 32 2400 FOR I=1 TO PIL1 2410 H=(I-1)*8+1 2420 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) 2430 EXEC FEJL(3,1,L7$) 2440 NEXT I 2450 ENDPROC 2460 PROC HENTDPOST 2470 S=DTAB(DPIL3,2) 2480 GET K6$,S:DEBNR,DEBNAVN$,DSALDO1$,DEBKGR$ 2490 EXEC FEJL(8,2,K6$) 2500 IF DEBNR<>DTAB(DPIL3,1) THEN STOP 2510 GET K6$,S+1:DSALDO2$,DSALDO3$,DSALDO4$,DEBPOSTNR,DEBLK$ 2520 EXEC FEJL(8,3,K6$) 2530 GET K6$,S+2:DEBGADE$,DEBTLF$,HPOST,HKUNDE 2540 EXEC FEJL(8,4,K6$) 2550 GET K6$,S+3:DEBBY$,ÅRKØB$,MDNKØB$ 2560 EXEC FEJL(8,5,K6$) 2570 ENDPROC 2580 PROC HENTPOST 2590 S=FTAB(FPIL3,2) 2600 GET K5$,S:FNR,FNAVN$ 2610 EXEC FEJL(3,2,K5$) 2620 IF FNR<>FTAB(FPIL3,1) THEN STOP 2630 GET K5$,S+1:FMKODE$,FMDEBET$,FMKREDIT$ 2640 EXEC FEJL(3,3,K5$) 2650 GET K5$,S+2:FUKODE$,FÅDEBET$,FÅKREDIT$ 2660 EXEC FEJL(3,4,K5$) 2670 ENDPROC 2680 PROC HENTKRPOST 2690 S=KTAB(KPIL3,2) 2700 GET K7$,S:KRENR,KRENAVN$,KREGADE$ 2710 EXEC FEJL(4,1,K7$) 2720 GET K7$,S+1:KREBY$,KRELK$,KRGR$,KREPOSTNR,KSALDO1$,KSALDO2$ 2730 EXEC FEJL(4,2,K7$) 2740 ENDPROC 2750 PROC GEMKRPOST 2760 S=KTAB(KPIL3,2) 2770 PUT K7$,S:KRENR,KRENAVN$,KREGADE$ 2780 EXEC FEJL(5,1,K7$) 2790 PUT K7$,S+1:KREBY$,KRELK$,KRGR$,KREPOSTNR,KSALDO1$,KSALDO2$ 2800 EXEC FEJL(5,2,K7$) 2810 ENDPROC 2820 PROC GEMDPOST 2830 S=DTAB(DPIL3,2) 2840 PUT K6$,S:DEBNR,DEBNAVN$,DSALDO1$,DEBKGR$ 2850 EXEC FEJL(9,3,K6$) 2860 PUT K6$,S+1:DSALDO2$,DSALDO3$,DSALDO4$,DEBPOSTNR,DEBLK$ 2870 EXEC FEJL(9,4,K6$) 2880 ENDPROC 2890 PROC GEMFPOST 2900 S=FTAB(FPIL3,2) 2910 PUT K5$,S:FNR,FNAVN$ 2920 EXEC FEJL(4,3,K5$) 2930 PUT K5$,S+1:FMKODE$,FMDEBET$,FMKREDIT$ 2940 EXEC FEJL(4,4,K5$) 2950 PUT K5$,S+2:FUKODE$,FÅDEBET$,FÅKREDIT$ 2960 EXEC FEJL(4,5,K5$) 2970 ENDPROC 2980 K1$="P641220:SYSTEM1" 2990 OPEN K1$,R 3000 EXEC FEJL(9,1,K1$) 3010 GET K1$,1:MFANTAL,MDANTAL,MKANTAL 3020 EXEC FEJL(9,2,K1$) 3030 GET K1$,2:MKASPOST,MPPOST,MBHPOST,MFPMID 3040 EXEC FEJL(9,3,K1$) 3050 GET K1$,3:MDPMID,MKPMID 3060 EXEC FEJL(9,4,K1$) 3070 GET K1$,4:MKPOST,MFAK,MVGR,MKGR 3080 EXEC FEJL(9,5,K1$) 3090 GET K1$,5:MKRGR 3100 EXEC FEJL(9,6,K1$) 3110 GET K1$,6:KASSENR,GIRONR,BANKNR,UDMOMSNR 3120 EXEC FEJL(9,7,K1$) 3130 GET K1$,7:INDMOMSNR 3140 EXEC FEJL(9,8,K1$) 3150 GET K1$,8:DIVNR,DIVDNR,DIFNR,DTAL 3160 EXEC FEJL(9,9,K1$) 3170 GET K1$,9:KRTAL,VTAL,MEANTAL,MUNKANT 3180 EXEC FEJL(9,10,K1$) 3190 GET K1$,10:N$ 3200 EXEC FEJL(9,11,K1$) 3210 GET K1$,11:K2$ 3220 EXEC FEJL(9,12,K1$) 3230 GET K1$,12:K3$ 3240 EXEC FEJL(9,13,K1$) 3250 GET K1$,13:K4$ 3260 EXEC FEJL(9,14,K1$) 3270 GET K1$,15:K5$ 3280 EXEC FEJL(9,15,K1$) 3290 GET K1$,16:K6$ 3300 EXEC FEJL(9,16,K1$) 3310 GET K1$,17:K7$ 3320 EXEC FEJL(9,17,K1$) 3330 GET K1$,21:K8$ 3340 EXEC FEJL(9,18,K1$) 3350 GET K1$,22:K9$ 3360 EXEC FEJL(9,19,K1$) 3370 GET K1$,23:K10$ 3380 EXEC FEJL(9,20,K1$) 3390 GET K1$,24:K11$ 3400 EXEC FEJL(9,21,K1$) 3410 GET K1$,28:K12$ 3420 EXEC FEJL(9,22,K1$) 3430 GET K1$,36:K13$ 3440 EXEC FEJL(9,23,K1$) 3450 GET K1$,37:K14$ 3460 EXEC FEJL(20,1,K1$) 3470 GET K1$,38:K15$ 3480 EXEC FEJL(20,2,K1$) 3490 GET K1$,39:K16$ 3500 EXEC FEJL(20,3,K1$) 3510 GET K1$,40:K17$ 3520 EXEC FEJL(20,4,K1$) 3530 GET K1$,43:METOT,MEMID 3540 EXEC FEJL(20,5,K1$) 3550 CLOSE K1$ 3560 EXEC FEJL(9,24,K1$) 3570 DIM FTAB1(MFANTAL DIV 4),DTAB1(MDANTAL DIV 4),KTAB1(MKANTAL DIV 4) 3580 DIM FTAB(4,2),DTAB(4,2),KTAB(4,2),KGR$(MKGR*2,12),KREGR$(MKRGR*2,12) 3590 DIM ETAB1(MEANTAL DIV 4),ETAB(4,2),ENR(MUNKANT+METOT) 3600 DIM EU$(MUNKANT+METOT) 3610 FOR I=1 TO MKGR*2 3620 KGR$(I)="0+" 3630 NEXT I 3640 FOR I=1 TO MKRGR*2 3650 KREGR$(I)="0+" 3660 NEXT I 3670 K2$=N$+K2$;K3$=N$+K3$;K4$=N$+K4$;K5$=N$+K5$;K6$=N$+K6$;K13$=N$+K13$ 3680 K8$=N$+K8$;K9$=N$+K9$;K10$=N$+K10$;K11$=N$+K11$;K12$=N$+K12$;K7$=N$+K7$ 3690 K14$=N$+K14$;K15$=N$+K15$;K16$=N$+K16$;K17$=N$+K17$ 3700 OPEN K13$,R 3710 EXEC FEJL(9,25,K13$) 3720 GET K13$,1:MOMS$ 3730 EXEC FEJL(9,26,K13$) 3740 GET K13$,2:T1(1),T1(2),T1(3),T1(4),T1(5),T1(6),T1(7),T1(8),T1(9) 3750 EXEC FEJL(9,27,K13$) 3760 FOR I=1 TO 6 3770 H=(I-1)*3+1 3780 GET K13$,I+5:TFIL$(H),TFIL$(H+1),TFIL$(H+2) 3790 EXEC FEJL(9,28,K13$) 3800 NEXT I 3810 GET K13$,12:T2(1),T2(2),T2(3),T2(4),T2(5),T2(6),T2(7),T2(8),T2(9) 3820 EXEC FEJL(9,29,K13$) 3830 GET K13$,13:T3(1),T3(2),T3(3),T3(4),T3(5),T3(6),T3(7),T3(8),T3(9) 3840 EXEC FEJL(9,30,K13$) 3850 GET K13$,20:DV$ 3860 EXEC FEJL(10,50,K13$) 3870 GET K13$,21:T4(1),T4(2),T4(3),T4(4),T4(5),T4(6),T4(7),T4(8),T4(9) 3880 EXEC FEJL(20,6,K13$) 3890 CLOSE K13$ 3900 EXEC FEJL(9,31,K13$) 3910 TAL3$="100+" 3920 EXEC CALC(0,TAL3$,MOMS$,DMOMS$) 3930 BLANK$=" " 3940 TAL4$="0+";SUM$="0+";STREG$="--------------------------------------" 3950 STREG$=STREG$+STREG$+"-";TAH$="0+";BJSIDENR=T1(6);DATO=T1(7) 3960 BHPOSTNR=T3(1);FAKPOSTNR=T2(3);FMIDNR=T3(2);DMIDNR=T3(3);KRMIDNR=T3(4) 3970 EMIDNR=T4(4) 3980 OPEN K2$,R 3990 EXEC FEJL(9,32,K2$) 4000 OPEN K3$,R 4010 EXEC FEJL(9,33,K3$) 4020 OPEN K4$,R 4030 EXEC FEJL(9,34,K4$) 4040 OPEN K5$,W 4050 EXEC FEJL(9,35,K5$) 4060 OPEN K6$,W 4070 EXEC FEJL(9,36,K6$) 4080 OPEN K7$,W 4090 EXEC FEJL(9,37,K7$) 4100 OPEN K8$,R 4110 EXEC FEJL(9,38,K8$) 4120 OPEN K9$,W 4130 EXEC FEJL(9,39,K9$) 4140 OPEN K10$,W 4150 EXEC FEJL(9,40,K10$) 4160 OPEN K11$,W 4170 EXEC FEJL(9,41,K11$) 4175 IF K12$(6)<"9" THEN 4180 OPEN K12$,R 4190 EXEC FEJL(9,42,K12$) 4195 ENDIF 4200 OPEN K14$,W 4210 EXEC FEJL(20,10,K14$) 4220 OPEN K15$,R 4230 EXEC FEJL(20,11,K15$) 4240 OPEN K16$,R 4250 EXEC FEJL(20,12,K16$) 4251 FOR X=1 TO MUNKANT+METOT 4252 GET K16$,X:ENR(X),EU$(X) 4253 EXEC FEJL(20,15,K16$) 4254 NEXT X 4255 CLOSE K16$ 4256 EXEC FEJL(20,16,K16$) 4260 OPEN K17$,W 4270 EXEC FEJL(20,13,K17$) 4280 EXEC INDTAB1(KTAB1,MKANTAL,K4$) 4290 EXEC INDTAB1(FTAB1,MFANTAL,K2$) 4300 EXEC INDTAB1(DTAB1,MDANTAL,K3$) 4310 EXEC INDTAB1(ETAB1,MEANTAL,K15$) 4320 BJLINIENR=0;UDMOMS$="0+";INDMOMS$="0+" 4370 PROC BFØR(PNR,G) 4380 FOR I=1 TO PNR 4390 GET G$,I:KONTO,DDATO,BILAG,TKODE$,BELØB$,TK$,ENTKO 4400 EXEC FEJL(1,4,G$) 4410 TEKSTKODE=ORD(TKODE$)-48 4420 IF TEKSTKODE>9 AND TEKSTKODE<20 THEN 4430 I=I+1 4440 GET G$,I:KONTO,TEKST$ 4450 EXEC FEJL(1,5,G$) 4460 ENDIF 4470 EXEC BOGFØRING(KONTO,DDATO,BILAG,TEKSTKODE,BELØB$,ENTKO) 4480 EXEC BJUDSKRIV(BJSIDENR,BJLINIENR,TK$) 4490 NEXT I 4500 ENDPROC 4510 CLEAR 4520 REPEAT 4530 CURSOR 8,13 4540 INPUT "Monter papir til udskrift af bogholderijournal og tast RETURN",A$ 4550 UNTIL ORD(A$)=255 4560 EXEC BFØR(BHPOSTNR,K8$) 4570 EXEC BFØR(FAKPOSTNR,K12$) 4580 TEKSTKODE=28;TK$="0";ENTKO=1000000 4590 TKODE$=CHR(76) 4600 DDATO=DATO 4610 BILAG=BJSIDENR 4620 KONTO=INDMOMSNR 4630 BELØB$=INDMOMS$ 4640 EXEC BOGFØRING(KONTO,DDATO,BILAG,TEKSTKODE,BELØB$,ENTKO) 4650 TEKSTKODE=10 4660 TEKST$="Samlet indgående afgift" 4670 EXEC BJUDSKRIV(BJSIDENR,BJLINIENR,TK$) 4680 TEKSTKODE=28 4690 KONTO=UDMOMSNR 4700 BELØB$=UDMOMS$ 4710 EXEC BOGFØRING(KONTO,DDATO,BILAG,TEKSTKODE,BELØB$,ENTKO) 4720 TEKSTKODE=10 4730 TEKST$="Samlet udgående afgift" 4740 EXEC BJUDSKRIV(BJSIDENR,BJLINIENR,TK$) 4750 EXEC CALC(4,SUM$,TAH$,TAH$) 4760 IF SI<>0 THEN 4770 TEKSTKODE=10;KONTO=DIFNR;TEKST$="Difference bogholderi" 4780 IF SUM$(LEN(SUM$))="+" THEN 4790 BELØB$=SUM$(1:LEN(SUM$)-1)+"-" 4800 ELSE 4810 BELØB$=SUM$(1:LEN(SUM$)-1)+"+" 4820 ENDIF 4830 EXEC BOGFØRING(KONTO,DDATO,BILAG,TEKSTKODE,BELØB$,ENTKO) 4840 EXEC BJUDSKRIV(BJSIDENR,BJLINIENR,TK$) 4850 ENDIF 4860 FOR I=BJLINIENR TO 35 4870 PRINT " " 4880 NEXT I 4890 PRINT " " 4900 PRINT STREG$ 4910 EXEC CALC(5,SUM$,TAL3$,TAL4$) 4920 IF TAL4$(LEN(TAL4$))="+" THEN TAL4$(LEN(TAL4$))=" " 4930 PRINT TAB(10);CHR(14);"Difference";CHR(15);TAB(36);TAL4$ 4940 PRINT STREG$ 4950 PRINT " " 4960 PRINT " " 4970 PROC GRUPPE(GR,KG1) 4980 FOR I=1 TO 2*GR STEP 2 4990 FNR=FNR+1 5000 EXEC FINDPOST1(FTAB1,FTAB,MFANTAL,FNR,FPIL3,K2$) 5010 IF CEKS=1 THEN STOP 5020 EXEC HENTPOST 5030 EXEC CALC(0,FMDEBET$,KG1$(I),FMDEBET$) 5040 EXEC CALC(0,FÅDEBET$,KG1$(I),FÅDEBET$) 5050 EXEC CALC(0,FMKREDIT$,KG1$(I+1),FMKREDIT$) 5060 EXEC CALC(0,FÅKREDIT$,KG1$(I+1),FÅKREDIT$) 5070 EXEC GEMFPOST 5080 NEXT I 5090 ENDPROC 5100 FNR=DTAL*10000 5110 EXEC GRUPPE(MKGR,KGR$) 5120 FNR=KRTAL*1000 5130 EXEC GRUPPE(MKRGR,KREGR$) 5140 CLOSE K5$ 5150 EXEC FEJL(9,45,K5$) 5160 CLOSE K6$ 5170 EXEC FEJL(9,46,K6$) 5180 CLOSE K7$ 5190 EXEC FEJL(9,47,K7$) 5200 CLOSE K9$ 5210 EXEC FEJL(9,48,K9$) 5220 CLOSE K10$ 5230 EXEC FEJL(9,49,K10$) 5240 CLOSE K11$ 5250 EXEC FEJL(9,50,K11$) 5260 CLOSE K14$ 5270 EXEC FEJL(20,16,K14$) 5280 CLOSE K17$ 5290 EXEC FEJL(20,17,K17$) 5300 CLOSE 5310 T1(6)=BJSIDENR;T3(1)=0;T2(3)=0;T3(2)=FMIDNR;T3(3)=DMIDNR;T3(4)=KRMIDNR 5320 T4(4)=EMIDNR 5330 OPEN K13$,W 5340 EXEC FEJL(9,51,K13$) 5350 PUT K13$,2:T1(1),T1(2),T1(3),T1(4),T1(5),T1(6),T1(7),T1(8),T1(9) 5360 EXEC FEJL(9,52,K13$) 5370 PUT K13$,12:T2(1),T2(2),T2(3),T2(4),T2(5),T2(6),T2(7),T2(8),T2(9) 5380 EXEC FEJL(9,53,K13$) 5390 PUT K13$,13:T3(1),T3(2),T3(3),T3(4),T3(5),T3(6),T3(7),T3(8),T3(9) 5400 EXEC FEJL(9,54,K13$) 5410 PUT K13$,21:T4(1),T4(2),T4(3),T4(4),T4(5),T4(6),T4(7),T4(8),T4(9) 5420 EXEC FEJL(20,18,K13$) 5430 CLOSE K13$ 5440 EXEC FEJL(9,55,K13$) 5450 OUTPUT T 5460 CHAIN "P641210:FSORT"
0x0000…000d Line {l1=0x0b, l2=»0100 REM BJ«, l3=0x0b}
0x000d…005b Line {l1=0x4c, l2=»0110 DIM K1$(17),K2$(17),K3$(17),K4$(17),B9$(12),UDAGE$(9),T1(9),T2(9),T3(9)«, l3=0x4c}
0x005b…00a8 Line {l1=0x4b, l2=»0120 DIM TKODE$(1),BELØB$(12),TEKST$(25),BLANK$(77),BMOMS$(12),INDMOMS$(12)«, l3=0x4b}
0x00a8…00f6 Line {l1=0x4c, l2=»0130 DIM TFIL$(18,10),N$(6),UDMOMS$(12),TAL4$(14),OP1$(12),OP2$(12),RES$(15)«, l3=0x4c}
0x00f6…0145 Line {l1=0x4d, l2=»0140 DIM DEBNAVN$(25),DEBBY$(20),DEBGADE$(25),DEBTLF$(9),DEBKGR$(2),DEBLK$(2)«, l3=0x4d}
0x0145…018e Line {l1=0x47, l2=»0150 DIM DSALDO1$(12),DSALDO2$(12),DSALDO3$(12),DSALDO4$(12),ÅRKØB$(12)«, l3=0x47}
0x018e…01db Line {l1=0x4b, l2=»0160 DIM MDNKØB$(12),TAL3$(12),MOMS$(12),DMOMS$(12),K5$(17),K6$(17),K7$(17)«, l3=0x4b}
0x01db…0229 Line {l1=0x4c, l2=»0170 DIM FNAVN$(25),FUKODE$(1),FMKODE$(1),FMDEBET$(12),FMKREDIT$(12),K8$(17)«, l3=0x4c}
0x0229…0275 Line {l1=0x4a, l2=»0180 DIM KRENAVN$(25),FÅDEBET$(12),FÅKREDIT$(12),B8$(12),TK$(1),STREG$(77)«, l3=0x4a}
0x0275…02c3 Line {l1=0x4c, l2=»0190 DIM K9$(17),K10$(17),K11$(17),K12$(17),K13$(17),KREGADE$(25),KREBY$(20)«, l3=0x4c}
0x02c3…0312 Line {l1=0x4d, l2=»0200 DIM KRELK$(1),KRGR$(1),KSALDO1$(12),KSALDO2$(12),TAH$(12),SUM$(12),A$(1)«, l3=0x4d}
0x0312…0359 Line {l1=0x45, l2=»0210 DIM DV$(10),K14$(17),K15$(17),K16$(17),K17$(17),T4(9),EÅREG$(12)«, l3=0x45}
0x0359…0382 Line {l1=0x27, l2=»0211 DIM EMREG$(12),MBEV$(12),YBEV$(12)«, l3=0x27}
0x0382…03a0 Line {l1=0x1c, l2=»0220 PROC CALC(ART,B1,B2,ES)«, l3=0x1c}
0x03a0…03cd Line {l1=0x2b, l2=»0230 OP1$=B1$;OP2$=B2$;RES$=ES$;SI=0;FLAG=0«, l3=0x2b}
0x03cd…03e7 Line {l1=0x18, l2=»0240 CALL "P641210:REGN"«, l3=0x18}
0x03e7…03f6 Line {l1=0x0d, l2=»0250 ES$=RES$«, l3=0x0d}
0x03f6…040f Line {l1=0x17, l2=»0260 IF FLAG THEN STOP «, l3=0x17}
0x040f…041e Line {l1=0x0d, l2=»0270 ENDPROC «, l3=0x0d}
0x041e…043b Line {l1=0x1b, l2=»0280 PROC FEJL(NR1,NR2,NR3)«, l3=0x1b}
0x043b…045a Line {l1=0x1d, l2=»0290 IF STATUS(NR3$)<>0 THEN «, l3=0x1d}
0x045a…0480 Line {l1=0x24, l2=»0300 PRINT STATUS(NR3$),NR1,NR2,NR3$«, l3=0x24}
0x0480…048c Line {l1=0x0a, l2=»0310 STOP «, l3=0x0a}
0x048c…0499 Line {l1=0x0b, l2=»0320 ENDIF «, l3=0x0b}
0x0499…04a8 Line {l1=0x0d, l2=»0330 ENDPROC «, l3=0x0d}
0x04a8…04df Line {l1=0x35, l2=»0340 PROC BOGFØRING(KONTNR,EDATO,BLGNR,TEK1,BE2,ENT1)«, l3=0x35}
0x04df…0511 Line {l1=0x30, l2=»0350 KTAL=KONTNR DIV 10000;KTAL9=KONTNR DIV 1000«, l3=0x30}
0x0511…051f Line {l1=0x0c, l2=»0360 KODE2=0«, l3=0x0c}
0x051f…0538 Line {l1=0x17, l2=»0370 IF KTAL=DTAL THEN «, l3=0x17}
0x0538…0572 Line {l1=0x38, l2=»0380 EXEC FINDPOST1(DTAB1,DTAB,MDANTAL,KONTNR,DPIL3,K3$)«, l3=0x38}
0x0572…0585 Line {l1=0x11, l2=»0390 DEBNR=KONTNR«, l3=0x11}
0x0585…05a0 Line {l1=0x19, l2=»0400 IF CEKS=1 THEN STOP «, l3=0x19}
0x05a0…05b5 Line {l1=0x13, l2=»0410 EXEC HENTDPOST«, l3=0x13}
0x05b5…05d8 Line {l1=0x21, l2=»0420 INDEX=INT(ORD(DEBKGR$)-48)*2«, l3=0x21}
0x05d8…05e7 Line {l1=0x0d, l2=»0430 B8$=BE2$«, l3=0x0d}
0x05e7…0608 Line {l1=0x1f, l2=»0440 IF B8$(LEN(B8$))="-" THEN «, l3=0x1f}
0x0608…0637 Line {l1=0x2d, l2=»0450 EXEC CALC(0,KGR$(INDEX),B8$,KGR$(INDEX))«, l3=0x2d}
0x0637…0659 Line {l1=0x20, l2=»0460 EXEC NEDSKRIV(B8$,DSALDO4$)«, l3=0x20}
0x0659…067b Line {l1=0x20, l2=»0470 EXEC NEDSKRIV(B8$,DSALDO3$)«, l3=0x20}
0x067b…069d Line {l1=0x20, l2=»0480 EXEC NEDSKRIV(B8$,DSALDO2$)«, l3=0x20}
0x069d…06bf Line {l1=0x20, l2=»0490 EXEC NEDSKRIV(B8$,DSALDO1$)«, l3=0x20}
0x06bf…06cb Line {l1=0x0a, l2=»0500 ELSE «, l3=0x0a}
0x06cb…06fe Line {l1=0x31, l2=»0510 EXEC CALC(0,KGR$(INDEX-1),B8$,KGR$(INDEX-1))«, l3=0x31}
0x06fe…070b Line {l1=0x0b, l2=»0520 ENDIF «, l3=0x0b}
0x070b…0734 Line {l1=0x27, l2=»0530 EXEC CALC(0,DSALDO1$,B8$,DSALDO1$)«, l3=0x27}
0x0734…0748 Line {l1=0x12, l2=»0540 EXEC GEMDPOST«, l3=0x12}
0x0748…0773 Line {l1=0x29, l2=»0550 EXEC GEMMID(DMIDNR,K10$,KONTNR,ENT1)«, l3=0x29}
0x0773…077f Line {l1=0x0a, l2=»0560 ELSE «, l3=0x0a}
0x077f…079a Line {l1=0x19, l2=»0570 IF KTAL9=KRTAL THEN «, l3=0x19}
0x079a…07d4 Line {l1=0x38, l2=»0580 EXEC FINDPOST1(KTAB1,KTAB,MKANTAL,KONTNR,KPIL3,K4$)«, l3=0x38}
0x07d4…07e7 Line {l1=0x11, l2=»0590 KRENR=KONTNR«, l3=0x11}
0x07e7…0802 Line {l1=0x19, l2=»0600 IF CEKS=1 THEN STOP «, l3=0x19}
0x0802…0818 Line {l1=0x14, l2=»0610 EXEC HENTKRPOST«, l3=0x14}
0x0818…0839 Line {l1=0x1f, l2=»0620 INDEX=INT(ORD(KRGR$)-48)*2«, l3=0x1f}
0x0839…0848 Line {l1=0x0d, l2=»0630 B8$=BE2$«, l3=0x0d}
0x0848…0869 Line {l1=0x1f, l2=»0640 IF B8$(LEN(B8$))="+" THEN «, l3=0x1f}
0x0869…08a0 Line {l1=0x35, l2=»0650 EXEC CALC(0,KREGR$(INDEX-1),B8$,KREGR$(INDEX-1))«, l3=0x35}
0x08a0…08c3 Line {l1=0x21, l2=»0660 EXEC NEDSKRIV1(B8$,KSALDO2$)«, l3=0x21}
0x08c3…08e6 Line {l1=0x21, l2=»0670 EXEC NEDSKRIV1(B8$,KSALDO1$)«, l3=0x21}
0x08e6…08f2 Line {l1=0x0a, l2=»0680 ELSE «, l3=0x0a}
0x08f2…0925 Line {l1=0x31, l2=»0690 EXEC CALC(0,KREGR$(INDEX),B8$,KREGR$(INDEX))«, l3=0x31}
0x0925…0932 Line {l1=0x0b, l2=»0700 ENDIF «, l3=0x0b}
0x0932…095b Line {l1=0x27, l2=»0710 EXEC CALC(0,KSALDO1$,B8$,KSALDO1$)«, l3=0x27}
0x095b…0970 Line {l1=0x13, l2=»0720 EXEC GEMKRPOST«, l3=0x13}
0x0970…099c Line {l1=0x2a, l2=»0730 EXEC GEMMID(KRMIDNR,K11$,KONTNR,ENT1)«, l3=0x2a}
0x099c…09a8 Line {l1=0x0a, l2=»0740 ELSE «, l3=0x0a}
0x09a8…09e2 Line {l1=0x38, l2=»0750 EXEC FINDPOST1(FTAB1,FTAB,MFANTAL,KONTNR,FPIL3,K2$)«, l3=0x38}
0x09e2…09f3 Line {l1=0x0f, l2=»0760 FNR=KONTNR«, l3=0x0f}
0x09f3…0a0e Line {l1=0x19, l2=»0770 IF CEKS=1 THEN STOP «, l3=0x19}
0x0a0e…0a22 Line {l1=0x12, l2=»0780 EXEC HENTPOST«, l3=0x12}
0x0a22…0a3e Line {l1=0x1a, l2=»0790 KODE2=ORD(FMKODE$)-48«, l3=0x1a}
0x0a3e…0a5a Line {l1=0x1a, l2=»0800 IF FMKODE$<>"0" THEN «, l3=0x1a}
0x0a5a…0a69 Line {l1=0x0d, l2=»0810 B9$="0+"«, l3=0x0d}
0x0a69…0a7b Line {l1=0x10, l2=»0820 BMOMS$="0+"«, l3=0x10}
0x0a7b…0a9f Line {l1=0x22, l2=»0830 EXEC CALC(3,DMOMS$,TAL3$,B9$)«, l3=0x22}
0x0a9f…0abf Line {l1=0x1e, l2=»0840 EXEC CALC(3,BE2$,B9$,B9$)«, l3=0x1e}
0x0abf…0ae2 Line {l1=0x21, l2=»0850 EXEC CALC(1,BE2$,B9$,BMOMS$)«, l3=0x21}
0x0ae2…0afd Line {l1=0x19, l2=»0860 IF FMKODE$="1" THEN «, l3=0x19}
0x0afd…0b29 Line {l1=0x2a, l2=»0870 EXEC CALC(0,INDMOMS$,BMOMS$,INDMOMS$)«, l3=0x2a}
0x0b29…0b35 Line {l1=0x0a, l2=»0880 ELSE «, l3=0x0a}
0x0b35…0b5f Line {l1=0x28, l2=»0890 EXEC CALC(0,UDMOMS$,BMOMS$,UDMOMS$)«, l3=0x28}
0x0b5f…0b6c Line {l1=0x0b, l2=»0900 ENDIF «, l3=0x0b}
0x0b6c…0b7b Line {l1=0x0d, l2=»0910 BE2$=B9$«, l3=0x0d}
0x0b7b…0b88 Line {l1=0x0b, l2=»0920 ENDIF «, l3=0x0b}
0x0b88…0bab Line {l1=0x21, l2=»0930 IF BE2$(LEN(BE2$))="-" THEN «, l3=0x21}
0x0bab…0bd7 Line {l1=0x2a, l2=»0940 EXEC CALC(0,FMKREDIT$,BE2$,FMKREDIT$)«, l3=0x2a}
0x0bd7…0c03 Line {l1=0x2a, l2=»0950 EXEC CALC(0,FÅKREDIT$,BE2$,FÅKREDIT$)«, l3=0x2a}
0x0c03…0c0f Line {l1=0x0a, l2=»0960 ELSE «, l3=0x0a}
0x0c0f…0c39 Line {l1=0x28, l2=»0970 EXEC CALC(0,FMDEBET$,BE2$,FMDEBET$)«, l3=0x28}
0x0c39…0c63 Line {l1=0x28, l2=»0980 EXEC CALC(0,FÅDEBET$,BE2$,FÅDEBET$)«, l3=0x28}
0x0c63…0c70 Line {l1=0x0b, l2=»0990 ENDIF «, l3=0x0b}
0x0c70…0c84 Line {l1=0x12, l2=»1000 EXEC GEMFPOST«, l3=0x12}
0x0c84…0cae Line {l1=0x28, l2=»1010 EXEC GEMMID(FMIDNR,K9$,KONTNR,ENT1)«, l3=0x28}
0x0cae…0cbb Line {l1=0x0b, l2=»1020 ENDIF «, l3=0x0b}
0x0cbb…0cc8 Line {l1=0x0b, l2=»1030 ENDIF «, l3=0x0b}
0x0cc8…0ce5 Line {l1=0x1b, l2=»1040 IF ENT1<>1000000 THEN «, l3=0x1b}
0x0ce5…0cf3 Line {l1=0x0c, l2=»1050 EPIL2=1«, l3=0x0c}
0x0cf3…0d36 Line {l1=0x41, l2=»1060 EXEC FINDPOST1(ETAB1,ETAB,MEANTAL,(ENT1 DIV 100),EPIL3,K15$)«, l3=0x41}
0x0d36…0d4c Line {l1=0x14, l2=»1070 IF CEKS=0 THEN «, l3=0x14}
0x0d4c…0d6f Line {l1=0x21, l2=»1080 FOR EPIL1=1 TO METOT+MUNKANT«, l3=0x21}
0x0d6f…0d7c Line {l1=0x0b, l2=»1090 CEKS=0«, l3=0x0b}
0x0d7c…0dbd Line {l1=0x3f, l2=»1100 IF (ENT1 MOD 100)=ENR(EPIL2) AND EU$(EPIL1)="0" THEN EXIT «, l3=0x3f}
0x0dbd…0de9 Line {l1=0x2a, l2=»1110 CEKS=1;EPIL2=EPIL2+1*(EU$(EPIL1)="0")«, l3=0x2a}
0x0de9…0dfa Line {l1=0x0f, l2=»1120 NEXT EPIL1«, l3=0x0f}
0x0dfa…0e10 Line {l1=0x14, l2=»1130 IF CEKS=0 THEN «, l3=0x14}
0x0e10…0e3f Line {l1=0x2d, l2=»1140 GET K14$,ETAB(EPIL3,2):NR9,EMREG$,EÅREG$«, l3=0x2d}
0x0e3f…0e5b Line {l1=0x1a, l2=»1150 EXEC FEJL(20,20,K14$)«, l3=0x1a}
0x0e5b…0e90 Line {l1=0x33, l2=»1160 GET K14$,ETAB(EPIL3,2)+EPIL2+1:NR8,MBEV$,YBEV$«, l3=0x33}
0x0e90…0eac Line {l1=0x1a, l2=»1170 EXEC FEJL(20,21,K14$)«, l3=0x1a}
0x0eac…0ed0 Line {l1=0x22, l2=»1180 EXEC CALC(0,MBEV$,BE2$,MBEV$)«, l3=0x22}
0x0ed0…0ef4 Line {l1=0x22, l2=»1190 EXEC CALC(0,YBEV$,BE2$,YBEV$)«, l3=0x22}
0x0ef4…0f1a Line {l1=0x24, l2=»1200 EXEC CALC(1,EMREG$,BE2$,EMREG$)«, l3=0x24}
0x0f1a…0f40 Line {l1=0x24, l2=»1210 EXEC CALC(1,EÅREG$,BE2$,EÅREG$)«, l3=0x24}
0x0f40…0f6f Line {l1=0x2d, l2=»1220 PUT K14$,ETAB(EPIL3,2):NR9,EMREG$,EÅREG$«, l3=0x2d}
0x0f6f…0f8b Line {l1=0x1a, l2=»1221 EXEC FEJL(20,25,K14$)«, l3=0x1a}
0x0f8b…0fc0 Line {l1=0x33, l2=»1222 PUT K14$,ETAB(EPIL3,2)+EPIL2+1:NR8,MBEV$,YBEV$«, l3=0x33}
0x0fc0…0fdc Line {l1=0x1a, l2=»1223 EXEC FEJL(20,26,K14$)«, l3=0x1a}
0x0fdc…1007 Line {l1=0x29, l2=»1224 EXEC GEMMID(EMIDNR,K17$,ENT1,KONTNR)«, l3=0x29}
0x1007…1013 Line {l1=0x0a, l2=»1225 ELSE «, l3=0x0a}
0x1013…1026 Line {l1=0x11, l2=»1226 ENT1=1000000«, l3=0x11}
0x1026…1033 Line {l1=0x0b, l2=»1227 ENDIF «, l3=0x0b}
0x1033…1040 Line {l1=0x0b, l2=»1228 ENDIF «, l3=0x0b}
0x1040…104d Line {l1=0x0b, l2=»1229 ENDIF «, l3=0x0b}
0x104d…105c Line {l1=0x0d, l2=»1230 ENDPROC «, l3=0x0d}
0x105c…1082 Line {l1=0x24, l2=»1240 PROC BJUDSKRIV(BJSNR,BJLNR,TK1)«, l3=0x24}
0x1082…10a5 Line {l1=0x21, l2=»1250 IF BJLNR=36 OR BJLNR=0 THEN «, l3=0x21}
0x10a5…10b9 Line {l1=0x12, l2=»1260 BJSNR=BJSNR+1«, l3=0x12}
0x10b9…10da Line {l1=0x1f, l2=»1270 EXEC BJHOVEDUD(DATO,BJSNR)«, l3=0x1f}
0x10da…10e8 Line {l1=0x0c, l2=»1280 BJLNR=0«, l3=0x0c}
0x10e8…10f5 Line {l1=0x0b, l2=»1290 ENDIF «, l3=0x0b}
0x10f5…1121 Line {l1=0x2a, l2=»1300 BJLNR=BJLNR+1;KODE1=INT(ORD(TK1$)-48)«, l3=0x2a}
0x1121…116d Line {l1=0x4a, l2=»1310 EXEC BJLINIEUD(BILAG,TEKSTKODE,KONTO,BELØB$,KODE1,BMOMS$,KODE2,ENTKO)«, l3=0x4a}
0x116d…117c Line {l1=0x0d, l2=»1320 ENDPROC «, l3=0x0d}
0x117c…119e Line {l1=0x20, l2=»1330 PROC BJHOVEDUD(UDAG,BJOSNR)«, l3=0x20}
0x119e…11bc Line {l1=0x1c, l2=»1340 EXEC UDATO(UDAG,UDAGE$)«, l3=0x1c}
0x11bc…11cb Line {l1=0x0d, l2=»1345 OUTPUT T«, l3=0x0d}
0x11cb…11da Line {l1=0x0d, l2=»1350 OUTPUT P«, l3=0x0d}
0x11da…11f2 Line {l1=0x16, l2=»1360 IF BJLNR=36 THEN «, l3=0x16}
0x11f2…120e Line {l1=0x1a, l2=»1370 FOR BJLNR=BJLNR TO 41«, l3=0x1a}
0x120e…121e Line {l1=0x0e, l2=»1380 PRINT " "«, l3=0x0e}
0x121e…122f Line {l1=0x0f, l2=»1390 NEXT BJLNR«, l3=0x0f}
0x122f…123c Line {l1=0x0b, l2=»1400 ENDIF «, l3=0x0b}
0x123c…1258 Line {l1=0x1a, l2=»1410 PRINT TAB(67);DV$;" "«, l3=0x1a}
0x1258…12a7 Line {l1=0x4d, l2=»1420 PRINT TAB(6);CHR(14);"Bogholderijournal";CHR(15);TAB(40);"Dato:";UDAGE$;«, l3=0x4d}
0x12a7…12bc Line {l1=0x13, l2=»1430 PRINT TAB(56);«, l3=0x13}
0x12bc…12e2 Line {l1=0x24, l2=»1440 PRINT USING "Side:#####":BJOSNR«, l3=0x24}
0x12e2…1305 Line {l1=0x21, l2=»1450 PRINT CHR(10);TAB(73);"Moms"«, l3=0x21}
0x1305…1350 Line {l1=0x49, l2=»1460 PRINT TAB(2);"Bilag";TAB(9);"Tekst";TAB(35);"Konto";TAB(42);"Entre";«, l3=0x49}
0x1350…139a Line {l1=0x48, l2=»1470 PRINT TAB(53);"Beløb";TAB(61);"Kode";TAB(69);"Beløb";TAB(75);"Kode"«, l3=0x48}
0x139a…13b4 Line {l1=0x18, l2=»1480 PRINT TAB(2);STREG$«, l3=0x18}
0x13b4…13c3 Line {l1=0x0d, l2=»1490 ENDPROC «, l3=0x0d}
0x13c3…13ff Line {l1=0x3a, l2=»1500 PROC BJLINIEUD(BLG,TEKKODE,KONT,BELB,KO1,MO,KO2,ENT3)«, l3=0x3a}
0x13ff…1416 Line {l1=0x15, l2=»1510 IF BLG<>-1 THEN «, l3=0x15}
0x1416…1437 Line {l1=0x1f, l2=»1520 PRINT USING "#######":BLG;«, l3=0x1f}
0x1437…1444 Line {l1=0x0b, l2=»1530 ENDIF «, l3=0x0b}
0x1444…147a Line {l1=0x34, l2=»1540 IF TEKKODE<10 AND TEKKODE>0 OR TEKKODE>20 THEN «, l3=0x34}
0x147a…14b3 Line {l1=0x37, l2=»1550 TEKST$=TFIL$(TEKKODE-10*(TEKKODE>20))+BLANK$(1:15)«, l3=0x37}
0x14b3…14c0 Line {l1=0x0b, l2=»1560 ENDIF «, l3=0x0b}
0x14c0…14da Line {l1=0x18, l2=»1570 IF TEKKODE<>0 THEN «, l3=0x18}
0x14da…14f5 Line {l1=0x19, l2=»1580 PRINT TAB(9);TEKST$;«, l3=0x19}
0x14f5…1502 Line {l1=0x0b, l2=»1590 ENDIF «, l3=0x0b}
0x1502…1517 Line {l1=0x13, l2=»1600 PRINT TAB(34);«, l3=0x13}
0x1517…1544 Line {l1=0x2b, l2=»1610 PRINT USING "###### ######":KONT;ENT3;«, l3=0x2b}
0x1544…1559 Line {l1=0x13, l2=»1620 PRINT TAB(47);«, l3=0x13}
0x1559…157c Line {l1=0x21, l2=»1630 EXEC CALC(0,BELB$,SUM$,SUM$)«, l3=0x21}
0x157c…15a1 Line {l1=0x23, l2=»1640 EXEC CALC(5,BELB$,TAL3$,TAL4$)«, l3=0x23}
0x15a1…15bc Line {l1=0x19, l2=»1650 PRINT TAL4$;TAB(62);«, l3=0x19}
0x15bc…15d2 Line {l1=0x14, l2=»1660 IF KO2<>0 THEN «, l3=0x14}
0x15d2…15ee Line {l1=0x1a, l2=»1670 PRINT USING "##":KO1;«, l3=0x1a}
0x15ee…1603 Line {l1=0x13, l2=»1680 PRINT TAB(64);«, l3=0x13}
0x1603…1626 Line {l1=0x21, l2=»1690 EXEC CALC(5,MO$,TAL3$,TAL4$)«, l3=0x21}
0x1626…1647 Line {l1=0x1f, l2=»1700 PRINT TAL4$(2:13);TAB(78);«, l3=0x1f}
0x1647…1662 Line {l1=0x19, l2=»1710 PRINT USING "##":KO2«, l3=0x19}
0x1662…166e Line {l1=0x0a, l2=»1720 ELSE «, l3=0x0a}
0x166e…1689 Line {l1=0x19, l2=»1730 PRINT USING "##":KO1«, l3=0x19}
0x1689…1696 Line {l1=0x0b, l2=»1740 ENDIF «, l3=0x0b}
0x1696…16a5 Line {l1=0x0d, l2=»1750 ENDPROC «, l3=0x0d}
0x16a5…16c6 Line {l1=0x1f, l2=»1760 PROC NEDSKRIV1(PSAL1,KSAL)«, l3=0x1f}
0x16c6…16eb Line {l1=0x23, l2=»1770 IF KSAL$(LEN(KSAL$))="-" THEN «, l3=0x23}
0x16eb…1711 Line {l1=0x24, l2=»1780 EXEC CALC(0,KSAL$,PSAL1$,KSAL$)«, l3=0x24}
0x1711…1736 Line {l1=0x23, l2=»1790 IF KSAL$(LEN(KSAL$))="+" THEN «, l3=0x23}
0x1736…1749 Line {l1=0x11, l2=»1800 PSAL1$=KSAL$«, l3=0x11}
0x1749…175a Line {l1=0x0f, l2=»1810 KSAL$="0+"«, l3=0x0f}
0x175a…1766 Line {l1=0x0a, l2=»1820 ELSE «, l3=0x0a}
0x1766…1778 Line {l1=0x10, l2=»1830 PSAL1$="0+"«, l3=0x10}
0x1778…1785 Line {l1=0x0b, l2=»1840 ENDIF «, l3=0x0b}
0x1785…1792 Line {l1=0x0b, l2=»1850 ENDIF «, l3=0x0b}
0x1792…17a1 Line {l1=0x0d, l2=»1860 ENDPROC «, l3=0x0d}
0x17a1…17c0 Line {l1=0x1d, l2=»1870 PROC NEDSKRIV(PSAL,DSAL)«, l3=0x1d}
0x17c0…17e5 Line {l1=0x23, l2=»1880 IF DSAL$(LEN(DSAL$))="+" THEN «, l3=0x23}
0x17e5…180a Line {l1=0x23, l2=»1890 EXEC CALC(0,DSAL$,PSAL$,DSAL$)«, l3=0x23}
0x180a…182f Line {l1=0x23, l2=»1900 IF DSAL$(LEN(DSAL$))="-" THEN «, l3=0x23}
0x182f…1841 Line {l1=0x10, l2=»1910 PSAL$=DSAL$«, l3=0x10}
0x1841…1852 Line {l1=0x0f, l2=»1920 DSAL$="0+"«, l3=0x0f}
0x1852…185e Line {l1=0x0a, l2=»1930 ELSE «, l3=0x0a}
0x185e…186f Line {l1=0x0f, l2=»1940 PSAL$="0+"«, l3=0x0f}
0x186f…187c Line {l1=0x0b, l2=»1950 ENDIF «, l3=0x0b}
0x187c…1889 Line {l1=0x0b, l2=»1960 ENDIF «, l3=0x0b}
0x1889…1898 Line {l1=0x0d, l2=»1970 ENDPROC «, l3=0x0d}
0x1898…18b2 Line {l1=0x18, l2=»1980 PROC UDATO(DA1,DA2)«, l3=0x18}
0x18b2…18c0 Line {l1=0x0c, l2=»1990 DA3=DA1«, l3=0x0c}
0x18c0…18d6 Line {l1=0x14, l2=»2000 DA2$=" "«, l3=0x14}
0x18d6…18f1 Line {l1=0x19, l2=»2010 FOR J=8 TO 1 STEP -1«, l3=0x19}
0x18f1…190a Line {l1=0x17, l2=»2020 IF J MOD 3=0 THEN «, l3=0x17}
0x190a…191c Line {l1=0x10, l2=»2030 DA2$(J)="."«, l3=0x10}
0x191c…1928 Line {l1=0x0a, l2=»2040 ELSE «, l3=0x0a}
0x1928…1949 Line {l1=0x1f, l2=»2050 DA2$(J)=CHR(DA3 MOD 10+48)«, l3=0x1f}
0x1949…195e Line {l1=0x13, l2=»2060 DA3=DA3 DIV 10«, l3=0x13}
0x195e…196b Line {l1=0x0b, l2=»2070 ENDIF «, l3=0x0b}
0x196b…1978 Line {l1=0x0b, l2=»2080 NEXT J«, l3=0x0b}
0x1978…1987 Line {l1=0x0d, l2=»2090 ENDPROC «, l3=0x0d}
0x1987…19b3 Line {l1=0x2a, l2=»2100 PROC GEMMID(MIDANTAL,L2,KONTNR1,ENT2)«, l3=0x2a}
0x19b3…19cd Line {l1=0x18, l2=»2110 MIDANTAL=MIDANTAL+1«, l3=0x18}
0x19cd…1a0b Line {l1=0x3c, l2=»2120 PUT L2$,MIDANTAL:KONTNR1,DDATO,BILAG,TKODE$,BELØB$,ENT2«, l3=0x3c}
0x1a0b…1a24 Line {l1=0x17, l2=»2130 EXEC FEJL(1,1,L2$)«, l3=0x17}
0x1a24…1a50 Line {l1=0x2a, l2=»2140 IF TEKSTKODE>9 AND TEKSTKODE<20 THEN «, l3=0x2a}
0x1a50…1a6a Line {l1=0x18, l2=»2150 MIDANTAL=MIDANTAL+1«, l3=0x18}
0x1a6a…1a90 Line {l1=0x24, l2=»2160 PUT L2$,MIDANTAL:KONTNR1,TEKST$«, l3=0x24}
0x1a90…1aa9 Line {l1=0x17, l2=»2170 EXEC FEJL(1,2,L2$)«, l3=0x17}
0x1aa9…1ab6 Line {l1=0x0b, l2=»2180 ENDIF «, l3=0x0b}
0x1ab6…1ac5 Line {l1=0x0d, l2=»2190 ENDPROC «, l3=0x0d}
0x1ac5…1af6 Line {l1=0x2f, l2=»2200 PROC FINDPOST1(TAB4,Q,MANT2,NØGL5,PIL6,L8)«, l3=0x2f}
0x1af6…1b43 Line {l1=0x4b, l2=»2210 PIL1=MANT2 DIV 8;PIL6=PIL1;CEKS=1;MANT3=MANT2 DIV 4;MANT4=MANT2 DIV 32«, l3=0x4b}
0x1b43…1b51 Line {l1=0x0c, l2=»2220 REPEAT «, l3=0x0c}
0x1b51…1b80 Line {l1=0x2d, l2=»2230 IF NØGL5=TAB4(PIL6) OR PIL1=1 THEN EXIT «, l3=0x2d}
0x1b80…1b9a Line {l1=0x18, l2=»2240 PIL1=(PIL1+1) DIV 2«, l3=0x18}
0x1b9a…1bc8 Line {l1=0x2c, l2=»2250 PIL6=PIL6+PIL1*(1-2*(NØGL5<TAB4(PIL6)))«, l3=0x2c}
0x1bc8…1be4 Line {l1=0x1a, l2=»2260 IF PIL6<1 THEN PIL6=1«, l3=0x1a}
0x1be4…1c08 Line {l1=0x22, l2=»2270 IF PIL6>MANT3 THEN PIL6=MANT3«, l3=0x22}
0x1c08…1c1b Line {l1=0x11, l2=»2280 UNTIL PIL1=0«, l3=0x11}
0x1c1b…1c4f Line {l1=0x32, l2=»2290 IF TAB4(PIL6)>NØGL5 THEN PIL6=PIL6-1*(PIL6>1)«, l3=0x32}
0x1c4f…1c65 Line {l1=0x14, l2=»2300 PIL6=MANT4+PIL6«, l3=0x14}
0x1c65…1cb0 Line {l1=0x49, l2=»2310 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}
0x1cb0…1cc9 Line {l1=0x17, l2=»2320 EXEC FEJL(2,1,L8$)«, l3=0x17}
0x1cc9…1cdf Line {l1=0x14, l2=»2330 FOR PIL6=1 TO 4«, l3=0x14}
0x1cdf…1d03 Line {l1=0x22, l2=»2340 IF NØGL5=Q(PIL6,1) THEN EXIT «, l3=0x22}
0x1d03…1d13 Line {l1=0x0e, l2=»2350 NEXT PIL6«, l3=0x0e}
0x1d13…1d30 Line {l1=0x1b, l2=»2360 IF PIL6<>5 THEN CEKS=0«, l3=0x1b}
0x1d30…1d3f Line {l1=0x0d, l2=»2370 ENDPROC «, l3=0x0d}
0x1d3f…1d5e Line {l1=0x1d, l2=»2380 PROC INDTAB1(Z,MANT5,L7)«, l3=0x1d}
0x1d5e…1d76 Line {l1=0x16, l2=»2390 PIL1=MANT5 DIV 32«, l3=0x16}
0x1d76…1d8c Line {l1=0x14, l2=»2400 FOR I=1 TO PIL1«, l3=0x14}
0x1d8c…1d9e Line {l1=0x10, l2=»2410 H=(I-1)*8+1«, l3=0x10}
0x1d9e…1de4 Line {l1=0x44, l2=»2420 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}
0x1de4…1dfd Line {l1=0x17, l2=»2430 EXEC FEJL(3,1,L7$)«, l3=0x17}
0x1dfd…1e0a Line {l1=0x0b, l2=»2440 NEXT I«, l3=0x0b}
0x1e0a…1e19 Line {l1=0x0d, l2=»2450 ENDPROC «, l3=0x0d}
0x1e19…1e2e Line {l1=0x13, l2=»2460 PROC HENTDPOST«, l3=0x13}
0x1e2e…1e44 Line {l1=0x14, l2=»2470 S=DTAB(DPIL3,2)«, l3=0x14}
0x1e44…1e74 Line {l1=0x2e, l2=»2480 GET K6$,S:DEBNR,DEBNAVN$,DSALDO1$,DEBKGR$«, l3=0x2e}
0x1e74…1e8d Line {l1=0x17, l2=»2490 EXEC FEJL(8,2,K6$)«, l3=0x17}
0x1e8d…1eb6 Line {l1=0x27, l2=»2500 IF DEBNR<>DTAB(DPIL3,1) THEN STOP «, l3=0x27}
0x1eb6…1ef4 Line {l1=0x3c, l2=»2510 GET K6$,S+1:DSALDO2$,DSALDO3$,DSALDO4$,DEBPOSTNR,DEBLK$«, l3=0x3c}
0x1ef4…1f0d Line {l1=0x17, l2=»2520 EXEC FEJL(8,3,K6$)«, l3=0x17}
0x1f0d…1f3d Line {l1=0x2e, l2=»2530 GET K6$,S+2:DEBGADE$,DEBTLF$,HPOST,HKUNDE«, l3=0x2e}
0x1f3d…1f56 Line {l1=0x17, l2=»2540 EXEC FEJL(8,4,K6$)«, l3=0x17}
0x1f56…1f7e Line {l1=0x26, l2=»2550 GET K6$,S+3:DEBBY$,ÅRKØB$,MDNKØB$«, l3=0x26}
0x1f7e…1f97 Line {l1=0x17, l2=»2560 EXEC FEJL(8,5,K6$)«, l3=0x17}
0x1f97…1fa6 Line {l1=0x0d, l2=»2570 ENDPROC «, l3=0x0d}
0x1fa6…1fba Line {l1=0x12, l2=»2580 PROC HENTPOST«, l3=0x12}
0x1fba…1fd0 Line {l1=0x14, l2=»2590 S=FTAB(FPIL3,2)«, l3=0x14}
0x1fd0…1feb Line {l1=0x19, l2=»2600 GET K5$,S:FNR,FNAVN$«, l3=0x19}
0x1feb…2004 Line {l1=0x17, l2=»2610 EXEC FEJL(3,2,K5$)«, l3=0x17}
0x2004…202b Line {l1=0x25, l2=»2620 IF FNR<>FTAB(FPIL3,1) THEN STOP «, l3=0x25}
0x202b…2058 Line {l1=0x2b, l2=»2630 GET K5$,S+1:FMKODE$,FMDEBET$,FMKREDIT$«, l3=0x2b}
0x2058…2071 Line {l1=0x17, l2=»2640 EXEC FEJL(3,3,K5$)«, l3=0x17}
0x2071…209e Line {l1=0x2b, l2=»2650 GET K5$,S+2:FUKODE$,FÅDEBET$,FÅKREDIT$«, l3=0x2b}
0x209e…20b7 Line {l1=0x17, l2=»2660 EXEC FEJL(3,4,K5$)«, l3=0x17}
0x20b7…20c6 Line {l1=0x0d, l2=»2670 ENDPROC «, l3=0x0d}
0x20c6…20dc Line {l1=0x14, l2=»2680 PROC HENTKRPOST«, l3=0x14}
0x20dc…20f2 Line {l1=0x14, l2=»2690 S=KTAB(KPIL3,2)«, l3=0x14}
0x20f2…211a Line {l1=0x26, l2=»2700 GET K7$,S:KRENR,KRENAVN$,KREGADE$«, l3=0x26}
0x211a…2133 Line {l1=0x17, l2=»2710 EXEC FEJL(4,1,K7$)«, l3=0x17}
0x2133…2175 Line {l1=0x40, l2=»2720 GET K7$,S+1:KREBY$,KRELK$,KRGR$,KREPOSTNR,KSALDO1$,KSALDO2$«, l3=0x40}
0x2175…218e Line {l1=0x17, l2=»2730 EXEC FEJL(4,2,K7$)«, l3=0x17}
0x218e…219d Line {l1=0x0d, l2=»2740 ENDPROC «, l3=0x0d}
0x219d…21b2 Line {l1=0x13, l2=»2750 PROC GEMKRPOST«, l3=0x13}
0x21b2…21c8 Line {l1=0x14, l2=»2760 S=KTAB(KPIL3,2)«, l3=0x14}
0x21c8…21f0 Line {l1=0x26, l2=»2770 PUT K7$,S:KRENR,KRENAVN$,KREGADE$«, l3=0x26}
0x21f0…2209 Line {l1=0x17, l2=»2780 EXEC FEJL(5,1,K7$)«, l3=0x17}
0x2209…224b Line {l1=0x40, l2=»2790 PUT K7$,S+1:KREBY$,KRELK$,KRGR$,KREPOSTNR,KSALDO1$,KSALDO2$«, l3=0x40}
0x224b…2264 Line {l1=0x17, l2=»2800 EXEC FEJL(5,2,K7$)«, l3=0x17}
0x2264…2273 Line {l1=0x0d, l2=»2810 ENDPROC «, l3=0x0d}
0x2273…2287 Line {l1=0x12, l2=»2820 PROC GEMDPOST«, l3=0x12}
0x2287…229d Line {l1=0x14, l2=»2830 S=DTAB(DPIL3,2)«, l3=0x14}
0x229d…22cd Line {l1=0x2e, l2=»2840 PUT K6$,S:DEBNR,DEBNAVN$,DSALDO1$,DEBKGR$«, l3=0x2e}
0x22cd…22e6 Line {l1=0x17, l2=»2850 EXEC FEJL(9,3,K6$)«, l3=0x17}
0x22e6…2324 Line {l1=0x3c, l2=»2860 PUT K6$,S+1:DSALDO2$,DSALDO3$,DSALDO4$,DEBPOSTNR,DEBLK$«, l3=0x3c}
0x2324…233d Line {l1=0x17, l2=»2870 EXEC FEJL(9,4,K6$)«, l3=0x17}
0x233d…234c Line {l1=0x0d, l2=»2880 ENDPROC «, l3=0x0d}
0x234c…2360 Line {l1=0x12, l2=»2890 PROC GEMFPOST«, l3=0x12}
0x2360…2376 Line {l1=0x14, l2=»2900 S=FTAB(FPIL3,2)«, l3=0x14}
0x2376…2391 Line {l1=0x19, l2=»2910 PUT K5$,S:FNR,FNAVN$«, l3=0x19}
0x2391…23aa Line {l1=0x17, l2=»2920 EXEC FEJL(4,3,K5$)«, l3=0x17}
0x23aa…23d7 Line {l1=0x2b, l2=»2930 PUT K5$,S+1:FMKODE$,FMDEBET$,FMKREDIT$«, l3=0x2b}
0x23d7…23f0 Line {l1=0x17, l2=»2940 EXEC FEJL(4,4,K5$)«, l3=0x17}
0x23f0…241d Line {l1=0x2b, l2=»2950 PUT K5$,S+2:FUKODE$,FÅDEBET$,FÅKREDIT$«, l3=0x2b}
0x241d…2436 Line {l1=0x17, l2=»2960 EXEC FEJL(4,5,K5$)«, l3=0x17}
0x2436…2445 Line {l1=0x0d, l2=»2970 ENDPROC «, l3=0x0d}
0x2445…2461 Line {l1=0x1a, l2=»2980 K1$="P641220:SYSTEM1"«, l3=0x1a}
0x2461…2472 Line {l1=0x0f, l2=»2990 OPEN K1$,R«, l3=0x0f}
0x2472…248b Line {l1=0x17, l2=»3000 EXEC FEJL(9,1,K1$)«, l3=0x17}
0x248b…24b3 Line {l1=0x26, l2=»3010 GET K1$,1:MFANTAL,MDANTAL,MKANTAL«, l3=0x26}
0x24b3…24cc Line {l1=0x17, l2=»3020 EXEC FEJL(9,2,K1$)«, l3=0x17}
0x24cc…24fb Line {l1=0x2d, l2=»3030 GET K1$,2:MKASPOST,MPPOST,MBHPOST,MFPMID«, l3=0x2d}
0x24fb…2514 Line {l1=0x17, l2=»3040 EXEC FEJL(9,3,K1$)«, l3=0x17}
0x2514…2532 Line {l1=0x1c, l2=»3050 GET K1$,3:MDPMID,MKPMID«, l3=0x1c}
0x2532…254b Line {l1=0x17, l2=»3060 EXEC FEJL(9,4,K1$)«, l3=0x17}
0x254b…2571 Line {l1=0x24, l2=»3070 GET K1$,4:MKPOST,MFAK,MVGR,MKGR«, l3=0x24}
0x2571…258a Line {l1=0x17, l2=»3080 EXEC FEJL(9,5,K1$)«, l3=0x17}
0x258a…25a0 Line {l1=0x14, l2=»3090 GET K1$,5:MKRGR«, l3=0x14}
0x25a0…25b9 Line {l1=0x17, l2=»3100 EXEC FEJL(9,6,K1$)«, l3=0x17}
0x25b9…25e8 Line {l1=0x2d, l2=»3110 GET K1$,6:KASSENR,GIRONR,BANKNR,UDMOMSNR«, l3=0x2d}
0x25e8…2601 Line {l1=0x17, l2=»3120 EXEC FEJL(9,7,K1$)«, l3=0x17}
0x2601…261b Line {l1=0x18, l2=»3130 GET K1$,7:INDMOMSNR«, l3=0x18}
0x261b…2634 Line {l1=0x17, l2=»3140 EXEC FEJL(9,8,K1$)«, l3=0x17}
0x2634…265c Line {l1=0x26, l2=»3150 GET K1$,8:DIVNR,DIVDNR,DIFNR,DTAL«, l3=0x26}
0x265c…2675 Line {l1=0x17, l2=»3160 EXEC FEJL(9,9,K1$)«, l3=0x17}
0x2675…26a0 Line {l1=0x29, l2=»3170 GET K1$,9:KRTAL,VTAL,MEANTAL,MUNKANT«, l3=0x29}
0x26a0…26ba Line {l1=0x18, l2=»3180 EXEC FEJL(9,10,K1$)«, l3=0x18}
0x26ba…26ce Line {l1=0x12, l2=»3190 GET K1$,10:N$«, l3=0x12}
0x26ce…26e8 Line {l1=0x18, l2=»3200 EXEC FEJL(9,11,K1$)«, l3=0x18}
0x26e8…26fd Line {l1=0x13, l2=»3210 GET K1$,11:K2$«, l3=0x13}
0x26fd…2717 Line {l1=0x18, l2=»3220 EXEC FEJL(9,12,K1$)«, l3=0x18}
0x2717…272c Line {l1=0x13, l2=»3230 GET K1$,12:K3$«, l3=0x13}
0x272c…2746 Line {l1=0x18, l2=»3240 EXEC FEJL(9,13,K1$)«, l3=0x18}
0x2746…275b Line {l1=0x13, l2=»3250 GET K1$,13:K4$«, l3=0x13}
0x275b…2775 Line {l1=0x18, l2=»3260 EXEC FEJL(9,14,K1$)«, l3=0x18}
0x2775…278a Line {l1=0x13, l2=»3270 GET K1$,15:K5$«, l3=0x13}
0x278a…27a4 Line {l1=0x18, l2=»3280 EXEC FEJL(9,15,K1$)«, l3=0x18}
0x27a4…27b9 Line {l1=0x13, l2=»3290 GET K1$,16:K6$«, l3=0x13}
0x27b9…27d3 Line {l1=0x18, l2=»3300 EXEC FEJL(9,16,K1$)«, l3=0x18}
0x27d3…27e8 Line {l1=0x13, l2=»3310 GET K1$,17:K7$«, l3=0x13}
0x27e8…2802 Line {l1=0x18, l2=»3320 EXEC FEJL(9,17,K1$)«, l3=0x18}
0x2802…2817 Line {l1=0x13, l2=»3330 GET K1$,21:K8$«, l3=0x13}
0x2817…2831 Line {l1=0x18, l2=»3340 EXEC FEJL(9,18,K1$)«, l3=0x18}
0x2831…2846 Line {l1=0x13, l2=»3350 GET K1$,22:K9$«, l3=0x13}
0x2846…2860 Line {l1=0x18, l2=»3360 EXEC FEJL(9,19,K1$)«, l3=0x18}
0x2860…2876 Line {l1=0x14, l2=»3370 GET K1$,23:K10$«, l3=0x14}
0x2876…2890 Line {l1=0x18, l2=»3380 EXEC FEJL(9,20,K1$)«, l3=0x18}
0x2890…28a6 Line {l1=0x14, l2=»3390 GET K1$,24:K11$«, l3=0x14}
0x28a6…28c0 Line {l1=0x18, l2=»3400 EXEC FEJL(9,21,K1$)«, l3=0x18}
0x28c0…28d6 Line {l1=0x14, l2=»3410 GET K1$,28:K12$«, l3=0x14}
0x28d6…28f0 Line {l1=0x18, l2=»3420 EXEC FEJL(9,22,K1$)«, l3=0x18}
0x28f0…2906 Line {l1=0x14, l2=»3430 GET K1$,36:K13$«, l3=0x14}
0x2906…2920 Line {l1=0x18, l2=»3440 EXEC FEJL(9,23,K1$)«, l3=0x18}
0x2920…2936 Line {l1=0x14, l2=»3450 GET K1$,37:K14$«, l3=0x14}
0x2936…2950 Line {l1=0x18, l2=»3460 EXEC FEJL(20,1,K1$)«, l3=0x18}
0x2950…2966 Line {l1=0x14, l2=»3470 GET K1$,38:K15$«, l3=0x14}
0x2966…2980 Line {l1=0x18, l2=»3480 EXEC FEJL(20,2,K1$)«, l3=0x18}
0x2980…2996 Line {l1=0x14, l2=»3490 GET K1$,39:K16$«, l3=0x14}
0x2996…29b0 Line {l1=0x18, l2=»3500 EXEC FEJL(20,3,K1$)«, l3=0x18}
0x29b0…29c6 Line {l1=0x14, l2=»3510 GET K1$,40:K17$«, l3=0x14}
0x29c6…29e0 Line {l1=0x18, l2=»3520 EXEC FEJL(20,4,K1$)«, l3=0x18}
0x29e0…29fd Line {l1=0x1b, l2=»3530 GET K1$,43:METOT,MEMID«, l3=0x1b}
0x29fd…2a17 Line {l1=0x18, l2=»3540 EXEC FEJL(20,5,K1$)«, l3=0x18}
0x2a17…2a27 Line {l1=0x0e, l2=»3550 CLOSE K1$«, l3=0x0e}
0x2a27…2a41 Line {l1=0x18, l2=»3560 EXEC FEJL(9,24,K1$)«, l3=0x18}
0x2a41…2a8a Line {l1=0x47, l2=»3570 DIM FTAB1(MFANTAL DIV 4),DTAB1(MDANTAL DIV 4),KTAB1(MKANTAL DIV 4)«, l3=0x47}
0x2a8a…2ad5 Line {l1=0x49, l2=»3580 DIM FTAB(4,2),DTAB(4,2),KTAB(4,2),KGR$(MKGR*2,12),KREGR$(MKRGR*2,12)«, l3=0x49}
0x2ad5…2b11 Line {l1=0x3a, l2=»3590 DIM ETAB1(MEANTAL DIV 4),ETAB(4,2),ENR(MUNKANT+METOT)«, l3=0x3a}
0x2b11…2b2e Line {l1=0x1b, l2=»3600 DIM EU$(MUNKANT+METOT)«, l3=0x1b}
0x2b2e…2b46 Line {l1=0x16, l2=»3610 FOR I=1 TO MKGR*2«, l3=0x16}
0x2b46…2b59 Line {l1=0x11, l2=»3620 KGR$(I)="0+"«, l3=0x11}
0x2b59…2b66 Line {l1=0x0b, l2=»3630 NEXT I«, l3=0x0b}
0x2b66…2b7f Line {l1=0x17, l2=»3640 FOR I=1 TO MKRGR*2«, l3=0x17}
0x2b7f…2b94 Line {l1=0x13, l2=»3650 KREGR$(I)="0+"«, l3=0x13}
0x2b94…2ba1 Line {l1=0x0b, l2=»3660 NEXT I«, l3=0x0b}
0x2ba1…2beb Line {l1=0x48, l2=»3670 K2$=N$+K2$;K3$=N$+K3$;K4$=N$+K4$;K5$=N$+K5$;K6$=N$+K6$;K13$=N$+K13$«, l3=0x48}
0x2beb…2c39 Line {l1=0x4c, l2=»3680 K8$=N$+K8$;K9$=N$+K9$;K10$=N$+K10$;K11$=N$+K11$;K12$=N$+K12$;K7$=N$+K7$«, l3=0x4c}
0x2c39…2c73 Line {l1=0x38, l2=»3690 K14$=N$+K14$;K15$=N$+K15$;K16$=N$+K16$;K17$=N$+K17$«, l3=0x38}
0x2c73…2c85 Line {l1=0x10, l2=»3700 OPEN K13$,R«, l3=0x10}
0x2c85…2ca0 Line {l1=0x19, l2=»3710 EXEC FEJL(9,25,K13$)«, l3=0x19}
0x2ca0…2cb7 Line {l1=0x15, l2=»3720 GET K13$,1:MOMS$«, l3=0x15}
0x2cb7…2cd2 Line {l1=0x19, l2=»3730 EXEC FEJL(9,26,K13$)«, l3=0x19}
0x2cd2…2d19 Line {l1=0x45, l2=»3740 GET K13$,2:T1(1),T1(2),T1(3),T1(4),T1(5),T1(6),T1(7),T1(8),T1(9)«, l3=0x45}
0x2d19…2d34 Line {l1=0x19, l2=»3750 EXEC FEJL(9,27,K13$)«, l3=0x19}
0x2d34…2d47 Line {l1=0x11, l2=»3760 FOR I=1 TO 6«, l3=0x11}
0x2d47…2d59 Line {l1=0x10, l2=»3770 H=(I-1)*3+1«, l3=0x10}
0x2d59…2d8b Line {l1=0x30, l2=»3780 GET K13$,I+5:TFIL$(H),TFIL$(H+1),TFIL$(H+2)«, l3=0x30}
0x2d8b…2da6 Line {l1=0x19, l2=»3790 EXEC FEJL(9,28,K13$)«, l3=0x19}
0x2da6…2db3 Line {l1=0x0b, l2=»3800 NEXT I«, l3=0x0b}
0x2db3…2dfb Line {l1=0x46, l2=»3810 GET K13$,12:T2(1),T2(2),T2(3),T2(4),T2(5),T2(6),T2(7),T2(8),T2(9)«, l3=0x46}
0x2dfb…2e16 Line {l1=0x19, l2=»3820 EXEC FEJL(9,29,K13$)«, l3=0x19}
0x2e16…2e5e Line {l1=0x46, l2=»3830 GET K13$,13:T3(1),T3(2),T3(3),T3(4),T3(5),T3(6),T3(7),T3(8),T3(9)«, l3=0x46}
0x2e5e…2e79 Line {l1=0x19, l2=»3840 EXEC FEJL(9,30,K13$)«, l3=0x19}
0x2e79…2e8f Line {l1=0x14, l2=»3850 GET K13$,20:DV$«, l3=0x14}
0x2e8f…2eab Line {l1=0x1a, l2=»3860 EXEC FEJL(10,50,K13$)«, l3=0x1a}
0x2eab…2ef3 Line {l1=0x46, l2=»3870 GET K13$,21:T4(1),T4(2),T4(3),T4(4),T4(5),T4(6),T4(7),T4(8),T4(9)«, l3=0x46}
0x2ef3…2f0e Line {l1=0x19, l2=»3880 EXEC FEJL(20,6,K13$)«, l3=0x19}
0x2f0e…2f1f Line {l1=0x0f, l2=»3890 CLOSE K13$«, l3=0x0f}
0x2f1f…2f3a Line {l1=0x19, l2=»3900 EXEC FEJL(9,31,K13$)«, l3=0x19}
0x2f3a…2f4d Line {l1=0x11, l2=»3910 TAL3$="100+"«, l3=0x11}
0x2f4d…2f73 Line {l1=0x24, l2=»3920 EXEC CALC(0,TAL3$,MOMS$,DMOMS$)«, l3=0x24}
0x2f73…2fc2 Line {l1=0x4d, l2=»3930 BLANK$=" "«, l3=0x4d}
0x2fc2…300d Line {l1=0x49, l2=»3940 TAL4$="0+";SUM$="0+";STREG$="--------------------------------------"«, l3=0x49}
0x300d…3050 Line {l1=0x41, l2=»3950 STREG$=STREG$+STREG$+"-";TAH$="0+";BJSIDENR=T1(6);DATO=T1(7)«, l3=0x41}
0x3050…309d Line {l1=0x4b, l2=»3960 BHPOSTNR=T3(1);FAKPOSTNR=T2(3);FMIDNR=T3(2);DMIDNR=T3(3);KRMIDNR=T3(4)«, l3=0x4b}
0x309d…30b0 Line {l1=0x11, l2=»3970 EMIDNR=T4(4)«, l3=0x11}
0x30b0…30c1 Line {l1=0x0f, l2=»3980 OPEN K2$,R«, l3=0x0f}
0x30c1…30db Line {l1=0x18, l2=»3990 EXEC FEJL(9,32,K2$)«, l3=0x18}
0x30db…30ec Line {l1=0x0f, l2=»4000 OPEN K3$,R«, l3=0x0f}
0x30ec…3106 Line {l1=0x18, l2=»4010 EXEC FEJL(9,33,K3$)«, l3=0x18}
0x3106…3117 Line {l1=0x0f, l2=»4020 OPEN K4$,R«, l3=0x0f}
0x3117…3131 Line {l1=0x18, l2=»4030 EXEC FEJL(9,34,K4$)«, l3=0x18}
0x3131…3142 Line {l1=0x0f, l2=»4040 OPEN K5$,W«, l3=0x0f}
0x3142…315c Line {l1=0x18, l2=»4050 EXEC FEJL(9,35,K5$)«, l3=0x18}
0x315c…316d Line {l1=0x0f, l2=»4060 OPEN K6$,W«, l3=0x0f}
0x316d…3187 Line {l1=0x18, l2=»4070 EXEC FEJL(9,36,K6$)«, l3=0x18}
0x3187…3198 Line {l1=0x0f, l2=»4080 OPEN K7$,W«, l3=0x0f}
0x3198…31b2 Line {l1=0x18, l2=»4090 EXEC FEJL(9,37,K7$)«, l3=0x18}
0x31b2…31c3 Line {l1=0x0f, l2=»4100 OPEN K8$,R«, l3=0x0f}
0x31c3…31dd Line {l1=0x18, l2=»4110 EXEC FEJL(9,38,K8$)«, l3=0x18}
0x31dd…31ee Line {l1=0x0f, l2=»4120 OPEN K9$,W«, l3=0x0f}
0x31ee…3208 Line {l1=0x18, l2=»4130 EXEC FEJL(9,39,K9$)«, l3=0x18}
0x3208…321a Line {l1=0x10, l2=»4140 OPEN K10$,W«, l3=0x10}
0x321a…3235 Line {l1=0x19, l2=»4150 EXEC FEJL(9,40,K10$)«, l3=0x19}
0x3235…3247 Line {l1=0x10, l2=»4160 OPEN K11$,W«, l3=0x10}
0x3247…3262 Line {l1=0x19, l2=»4170 EXEC FEJL(9,41,K11$)«, l3=0x19}
0x3262…327d Line {l1=0x19, l2=»4175 IF K12$(6)<"9" THEN «, l3=0x19}
0x327d…328f Line {l1=0x10, l2=»4180 OPEN K12$,R«, l3=0x10}
0x328f…32aa Line {l1=0x19, l2=»4190 EXEC FEJL(9,42,K12$)«, l3=0x19}
0x32aa…32b7 Line {l1=0x0b, l2=»4195 ENDIF «, l3=0x0b}
0x32b7…32c9 Line {l1=0x10, l2=»4200 OPEN K14$,W«, l3=0x10}
0x32c9…32e5 Line {l1=0x1a, l2=»4210 EXEC FEJL(20,10,K14$)«, l3=0x1a}
0x32e5…32f7 Line {l1=0x10, l2=»4220 OPEN K15$,R«, l3=0x10}
0x32f7…3313 Line {l1=0x1a, l2=»4230 EXEC FEJL(20,11,K15$)«, l3=0x1a}
0x3313…3325 Line {l1=0x10, l2=»4240 OPEN K16$,R«, l3=0x10}
0x3325…3341 Line {l1=0x1a, l2=»4250 EXEC FEJL(20,12,K16$)«, l3=0x1a}
0x3341…3360 Line {l1=0x1d, l2=»4251 FOR X=1 TO MUNKANT+METOT«, l3=0x1d}
0x3360…337f Line {l1=0x1d, l2=»4252 GET K16$,X:ENR(X),EU$(X)«, l3=0x1d}
0x337f…339b Line {l1=0x1a, l2=»4253 EXEC FEJL(20,15,K16$)«, l3=0x1a}
0x339b…33a8 Line {l1=0x0b, l2=»4254 NEXT X«, l3=0x0b}
0x33a8…33b9 Line {l1=0x0f, l2=»4255 CLOSE K16$«, l3=0x0f}
0x33b9…33d5 Line {l1=0x1a, l2=»4256 EXEC FEJL(20,16,K16$)«, l3=0x1a}
0x33d5…33e7 Line {l1=0x10, l2=»4260 OPEN K17$,W«, l3=0x10}
0x33e7…3403 Line {l1=0x1a, l2=»4270 EXEC FEJL(20,13,K17$)«, l3=0x1a}
0x3403…3429 Line {l1=0x24, l2=»4280 EXEC INDTAB1(KTAB1,MKANTAL,K4$)«, l3=0x24}
0x3429…344f Line {l1=0x24, l2=»4290 EXEC INDTAB1(FTAB1,MFANTAL,K2$)«, l3=0x24}
0x344f…3475 Line {l1=0x24, l2=»4300 EXEC INDTAB1(DTAB1,MDANTAL,K3$)«, l3=0x24}
0x3475…349c Line {l1=0x25, l2=»4310 EXEC INDTAB1(ETAB1,MEANTAL,K15$)«, l3=0x25}
0x349c…34c9 Line {l1=0x2b, l2=»4320 BJLINIENR=0;UDMOMS$="0+";INDMOMS$="0+"«, l3=0x2b}
0x34c9…34e0 Line {l1=0x15, l2=»4370 PROC BFØR(PNR,G)«, l3=0x15}
0x34e0…34f5 Line {l1=0x13, l2=»4380 FOR I=1 TO PNR«, l3=0x13}
0x34f5…352e Line {l1=0x37, l2=»4390 GET G$,I:KONTO,DDATO,BILAG,TKODE$,BELØB$,TK$,ENTKO«, l3=0x37}
0x352e…3546 Line {l1=0x16, l2=»4400 EXEC FEJL(1,4,G$)«, l3=0x16}
0x3546…3565 Line {l1=0x1d, l2=»4410 TEKSTKODE=ORD(TKODE$)-48«, l3=0x1d}
0x3565…3591 Line {l1=0x2a, l2=»4420 IF TEKSTKODE>9 AND TEKSTKODE<20 THEN «, l3=0x2a}
0x3591…359d Line {l1=0x0a, l2=»4430 I=I+1«, l3=0x0a}
0x359d…35b9 Line {l1=0x1a, l2=»4440 GET G$,I:KONTO,TEKST$«, l3=0x1a}
0x35b9…35d1 Line {l1=0x16, l2=»4450 EXEC FEJL(1,5,G$)«, l3=0x16}
0x35d1…35de Line {l1=0x0b, l2=»4460 ENDIF «, l3=0x0b}
0x35de…361d Line {l1=0x3d, l2=»4470 EXEC BOGFØRING(KONTO,DDATO,BILAG,TEKSTKODE,BELØB$,ENTKO)«, l3=0x3d}
0x361d…364a Line {l1=0x2b, l2=»4480 EXEC BJUDSKRIV(BJSIDENR,BJLINIENR,TK$)«, l3=0x2b}
0x364a…3657 Line {l1=0x0b, l2=»4490 NEXT I«, l3=0x0b}
0x3657…3666 Line {l1=0x0d, l2=»4500 ENDPROC «, l3=0x0d}
0x3666…3673 Line {l1=0x0b, l2=»4510 CLEAR «, l3=0x0b}
0x3673…3681 Line {l1=0x0c, l2=»4520 REPEAT «, l3=0x0c}
0x3681…3693 Line {l1=0x10, l2=»4530 CURSOR 8,13«, l3=0x10}
0x3693…36e2 Line {l1=0x4d, l2=»4540 INPUT "Monter papir til udskrift af bogholderijournal og tast RETURN",A$«, l3=0x4d}
0x36e2…36fa Line {l1=0x16, l2=»4550 UNTIL ORD(A$)=255«, l3=0x16}
0x36fa…3718 Line {l1=0x1c, l2=»4560 EXEC BFØR(BHPOSTNR,K8$)«, l3=0x1c}
0x3718…3738 Line {l1=0x1e, l2=»4570 EXEC BFØR(FAKPOSTNR,K12$)«, l3=0x1e}
0x3738…3761 Line {l1=0x27, l2=»4580 TEKSTKODE=28;TK$="0";ENTKO=1000000«, l3=0x27}
0x3761…3776 Line {l1=0x13, l2=»4590 TKODE$=CHR(76)«, l3=0x13}
0x3776…3787 Line {l1=0x0f, l2=»4600 DDATO=DATO«, l3=0x0f}
0x3787…379c Line {l1=0x13, l2=»4610 BILAG=BJSIDENR«, l3=0x13}
0x379c…37b2 Line {l1=0x14, l2=»4620 KONTO=INDMOMSNR«, l3=0x14}
0x37b2…37c8 Line {l1=0x14, l2=»4630 BELØB$=INDMOMS$«, l3=0x14}
0x37c8…3807 Line {l1=0x3d, l2=»4640 EXEC BOGFØRING(KONTO,DDATO,BILAG,TEKSTKODE,BELØB$,ENTKO)«, l3=0x3d}
0x3807…381a Line {l1=0x11, l2=»4650 TEKSTKODE=10«, l3=0x11}
0x381a…3841 Line {l1=0x25, l2=»4660 TEKST$="Samlet indgående afgift"«, l3=0x25}
0x3841…386e Line {l1=0x2b, l2=»4670 EXEC BJUDSKRIV(BJSIDENR,BJLINIENR,TK$)«, l3=0x2b}
0x386e…3881 Line {l1=0x11, l2=»4680 TEKSTKODE=28«, l3=0x11}
0x3881…3896 Line {l1=0x13, l2=»4690 KONTO=UDMOMSNR«, l3=0x13}
0x3896…38ab Line {l1=0x13, l2=»4700 BELØB$=UDMOMS$«, l3=0x13}
0x38ab…38ea Line {l1=0x3d, l2=»4710 EXEC BOGFØRING(KONTO,DDATO,BILAG,TEKSTKODE,BELØB$,ENTKO)«, l3=0x3d}
0x38ea…38fd Line {l1=0x11, l2=»4720 TEKSTKODE=10«, l3=0x11}
0x38fd…3923 Line {l1=0x24, l2=»4730 TEKST$="Samlet udgående afgift"«, l3=0x24}
0x3923…3950 Line {l1=0x2b, l2=»4740 EXEC BJUDSKRIV(BJSIDENR,BJLINIENR,TK$)«, l3=0x2b}
0x3950…3972 Line {l1=0x20, l2=»4750 EXEC CALC(4,SUM$,TAH$,TAH$)«, l3=0x20}
0x3972…3987 Line {l1=0x13, l2=»4760 IF SI<>0 THEN «, l3=0x13}
0x3987…39c5 Line {l1=0x3c, l2=»4770 TEKSTKODE=10;KONTO=DIFNR;TEKST$="Difference bogholderi"«, l3=0x3c}
0x39c5…39e8 Line {l1=0x21, l2=»4780 IF SUM$(LEN(SUM$))="+" THEN «, l3=0x21}
0x39e8…3a0d Line {l1=0x23, l2=»4790 BELØB$=SUM$(1:LEN(SUM$)-1)+"-"«, l3=0x23}
0x3a0d…3a19 Line {l1=0x0a, l2=»4800 ELSE «, l3=0x0a}
0x3a19…3a3e Line {l1=0x23, l2=»4810 BELØB$=SUM$(1:LEN(SUM$)-1)+"+"«, l3=0x23}
0x3a3e…3a4b Line {l1=0x0b, l2=»4820 ENDIF «, l3=0x0b}
0x3a4b…3a8a Line {l1=0x3d, l2=»4830 EXEC BOGFØRING(KONTO,DDATO,BILAG,TEKSTKODE,BELØB$,ENTKO)«, l3=0x3d}
0x3a8a…3ab7 Line {l1=0x2b, l2=»4840 EXEC BJUDSKRIV(BJSIDENR,BJLINIENR,TK$)«, l3=0x2b}
0x3ab7…3ac4 Line {l1=0x0b, l2=»4850 ENDIF «, l3=0x0b}
0x3ac4…3ae0 Line {l1=0x1a, l2=»4860 FOR I=BJLINIENR TO 35«, l3=0x1a}
0x3ae0…3af0 Line {l1=0x0e, l2=»4870 PRINT " "«, l3=0x0e}
0x3af0…3afd Line {l1=0x0b, l2=»4880 NEXT I«, l3=0x0b}
0x3afd…3b0d Line {l1=0x0e, l2=»4890 PRINT " "«, l3=0x0e}
0x3b0d…3b20 Line {l1=0x11, l2=»4900 PRINT STREG$«, l3=0x11}
0x3b20…3b44 Line {l1=0x22, l2=»4910 EXEC CALC(5,SUM$,TAL3$,TAL4$)«, l3=0x22}
0x3b44…3b7e Line {l1=0x38, l2=»4920 IF TAL4$(LEN(TAL4$))="+" THEN TAL4$(LEN(TAL4$))=" "«, l3=0x38}
0x3b7e…3bbd Line {l1=0x3d, l2=»4930 PRINT TAB(10);CHR(14);"Difference";CHR(15);TAB(36);TAL4$«, l3=0x3d}
0x3bbd…3bd0 Line {l1=0x11, l2=»4940 PRINT STREG$«, l3=0x11}
0x3bd0…3be0 Line {l1=0x0e, l2=»4950 PRINT " "«, l3=0x0e}
0x3be0…3bf0 Line {l1=0x0e, l2=»4960 PRINT " "«, l3=0x0e}
0x3bf0…3c0a Line {l1=0x18, l2=»4970 PROC GRUPPE(GR,KG1)«, l3=0x18}
0x3c0a…3c27 Line {l1=0x1b, l2=»4980 FOR I=1 TO 2*GR STEP 2«, l3=0x1b}
0x3c27…3c37 Line {l1=0x0e, l2=»4990 FNR=FNR+1«, l3=0x0e}
0x3c37…3c6e Line {l1=0x35, l2=»5000 EXEC FINDPOST1(FTAB1,FTAB,MFANTAL,FNR,FPIL3,K2$)«, l3=0x35}
0x3c6e…3c89 Line {l1=0x19, l2=»5010 IF CEKS=1 THEN STOP «, l3=0x19}
0x3c89…3c9d Line {l1=0x12, l2=»5020 EXEC HENTPOST«, l3=0x12}
0x3c9d…3cca Line {l1=0x2b, l2=»5030 EXEC CALC(0,FMDEBET$,KG1$(I),FMDEBET$)«, l3=0x2b}
0x3cca…3cf7 Line {l1=0x2b, l2=»5040 EXEC CALC(0,FÅDEBET$,KG1$(I),FÅDEBET$)«, l3=0x2b}
0x3cf7…3d28 Line {l1=0x2f, l2=»5050 EXEC CALC(0,FMKREDIT$,KG1$(I+1),FMKREDIT$)«, l3=0x2f}
0x3d28…3d59 Line {l1=0x2f, l2=»5060 EXEC CALC(0,FÅKREDIT$,KG1$(I+1),FÅKREDIT$)«, l3=0x2f}
0x3d59…3d6d Line {l1=0x12, l2=»5070 EXEC GEMFPOST«, l3=0x12}
0x3d6d…3d7a Line {l1=0x0b, l2=»5080 NEXT I«, l3=0x0b}
0x3d7a…3d89 Line {l1=0x0d, l2=»5090 ENDPROC «, l3=0x0d}
0x3d89…3d9e Line {l1=0x13, l2=»5100 FNR=DTAL*10000«, l3=0x13}
0x3d9e…3dbb Line {l1=0x1b, l2=»5110 EXEC GRUPPE(MKGR,KGR$)«, l3=0x1b}
0x3dbb…3dd0 Line {l1=0x13, l2=»5120 FNR=KRTAL*1000«, l3=0x13}
0x3dd0…3df0 Line {l1=0x1e, l2=»5130 EXEC GRUPPE(MKRGR,KREGR$)«, l3=0x1e}
0x3df0…3e00 Line {l1=0x0e, l2=»5140 CLOSE K5$«, l3=0x0e}
0x3e00…3e1a Line {l1=0x18, l2=»5150 EXEC FEJL(9,45,K5$)«, l3=0x18}
0x3e1a…3e2a Line {l1=0x0e, l2=»5160 CLOSE K6$«, l3=0x0e}
0x3e2a…3e44 Line {l1=0x18, l2=»5170 EXEC FEJL(9,46,K6$)«, l3=0x18}
0x3e44…3e54 Line {l1=0x0e, l2=»5180 CLOSE K7$«, l3=0x0e}
0x3e54…3e6e Line {l1=0x18, l2=»5190 EXEC FEJL(9,47,K7$)«, l3=0x18}
0x3e6e…3e7e Line {l1=0x0e, l2=»5200 CLOSE K9$«, l3=0x0e}
0x3e7e…3e98 Line {l1=0x18, l2=»5210 EXEC FEJL(9,48,K9$)«, l3=0x18}
0x3e98…3ea9 Line {l1=0x0f, l2=»5220 CLOSE K10$«, l3=0x0f}
0x3ea9…3ec4 Line {l1=0x19, l2=»5230 EXEC FEJL(9,49,K10$)«, l3=0x19}
0x3ec4…3ed5 Line {l1=0x0f, l2=»5240 CLOSE K11$«, l3=0x0f}
0x3ed5…3ef0 Line {l1=0x19, l2=»5250 EXEC FEJL(9,50,K11$)«, l3=0x19}
0x3ef0…3f01 Line {l1=0x0f, l2=»5260 CLOSE K14$«, l3=0x0f}
0x3f01…3f1d Line {l1=0x1a, l2=»5270 EXEC FEJL(20,16,K14$)«, l3=0x1a}
0x3f1d…3f2e Line {l1=0x0f, l2=»5280 CLOSE K17$«, l3=0x0f}
0x3f2e…3f4a Line {l1=0x1a, l2=»5290 EXEC FEJL(20,17,K17$)«, l3=0x1a}
0x3f4a…3f57 Line {l1=0x0b, l2=»5300 CLOSE «, l3=0x0b}
0x3f57…3fa4 Line {l1=0x4b, l2=»5310 T1(6)=BJSIDENR;T3(1)=0;T2(3)=0;T3(2)=FMIDNR;T3(3)=DMIDNR;T3(4)=KRMIDNR«, l3=0x4b}
0x3fa4…3fb7 Line {l1=0x11, l2=»5320 T4(4)=EMIDNR«, l3=0x11}
0x3fb7…3fc9 Line {l1=0x10, l2=»5330 OPEN K13$,W«, l3=0x10}
0x3fc9…3fe4 Line {l1=0x19, l2=»5340 EXEC FEJL(9,51,K13$)«, l3=0x19}
0x3fe4…402b Line {l1=0x45, l2=»5350 PUT K13$,2:T1(1),T1(2),T1(3),T1(4),T1(5),T1(6),T1(7),T1(8),T1(9)«, l3=0x45}
0x402b…4046 Line {l1=0x19, l2=»5360 EXEC FEJL(9,52,K13$)«, l3=0x19}
0x4046…408e Line {l1=0x46, l2=»5370 PUT K13$,12:T2(1),T2(2),T2(3),T2(4),T2(5),T2(6),T2(7),T2(8),T2(9)«, l3=0x46}
0x408e…40a9 Line {l1=0x19, l2=»5380 EXEC FEJL(9,53,K13$)«, l3=0x19}
0x40a9…40f1 Line {l1=0x46, l2=»5390 PUT K13$,13:T3(1),T3(2),T3(3),T3(4),T3(5),T3(6),T3(7),T3(8),T3(9)«, l3=0x46}
0x40f1…410c Line {l1=0x19, l2=»5400 EXEC FEJL(9,54,K13$)«, l3=0x19}
0x410c…4154 Line {l1=0x46, l2=»5410 PUT K13$,21:T4(1),T4(2),T4(3),T4(4),T4(5),T4(6),T4(7),T4(8),T4(9)«, l3=0x46}
0x4154…4170 Line {l1=0x1a, l2=»5420 EXEC FEJL(20,18,K13$)«, l3=0x1a}
0x4170…4181 Line {l1=0x0f, l2=»5430 CLOSE K13$«, l3=0x0f}
0x4181…419c Line {l1=0x19, l2=»5440 EXEC FEJL(9,55,K13$)«, l3=0x19}
0x419c…41ab Line {l1=0x0d, l2=»5450 OUTPUT T«, l3=0x0d}
0x41ab…41c7 Line {l1=0x1a, l2=»5460 CHAIN "P641210:FSORT"«, l3=0x1a}
0x41c7…41e0 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 ┆ ┆
0x41e0…4200 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 ┆ ┆
[…0x19…]