|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 12640 (0x3160)
Types: TextFile
Notes: Mikados_K
Names: »ÅRSLUT.K«
└─⟦ec8c1e0b0⟧ Bits:30007442 8" floppy ( MIKPROG vol. 1-3, MIKREL vol. 1-3, PCSE 4.7.80 vol 1-3, GL.SYS )
└─⟦this⟧ »ÅRSLUT.K«
0100 DIM RES$(14),OP1$(12),OP2$(12),N$(6),K1$(17),A$(1),TAL4$(12),BLANK$(25) 0110 DIM UBELØB1$(14),UBELØB2$(14),STREG$(71),FÅDK$(12),FMDK$(12),GLNAVN$(25) 0120 DIM DAT$(8),FÅKREDIT$(12),FÅDEBET$(12),FMKREDIT$(12),FMDEBET$(12) 0130 DIM FMKODE$(1),FNAVN$(25),FUKODE$(1),SALDO13$(12),SALDO3$(12) 0140 DIM SALDO2$(12),SALDO11$(12),SALDO1$(12),SALDO12$(12),SUM$(12),SUM1$(14) 0150 DIM K2$(17),K3$(17),K4$(17),K5$(17),T1(9),LAND$(9,12),DEBNAVN$(25) 0160 DIM DSALDO1$(12),DEBKGR$(1),DSALDO2$(12),DSALDO3$(12),DSALDO4$(12) 0170 DIM DEBLK$(1),DEBBY$(20),ÅRKØB$(12),MDNKØB$(12),TÅRKØB$(12),SALDO$(12) 0180 DIM TOKØB$(12),TOSALDO1$(12),K$(26,11),KREBY$(20) 0190 DIM TOSALDO$(12),KRELK$(1),KREGR$(1),KSALDO1$(12),T2(9) 0200 DIM KSALDO2$(12),K10$(17),K6$(17),K7$(17),K9$(17),K8$(17),TYPE$(1) 0210 DIM BLB2$(12),TILNAVN$(27,8),FRANAVN$(27,8),TEKST$(25) 0220 DIM SUM3$(12),DREVFRA$(2),DREVTIL$(2),TKODE$(1) 0230 PROC CALC(ART,B1,B2,ES) 0240 OP1$=B1$;OP2$=B2$;RES$=ES$;SI=0;FLAG=0 0250 CALL "P641210:REGN" 0260 ES$=RES$ 0270 IF FLAG<>0 THEN STOP 0280 ENDPROC 0290 PROC DATOUD(DA1,DA2) 0300 DA3=DA1 0310 DA2$=" " 0320 FOR J=8 TO 1 STEP -1 0330 IF J MOD 3=0 THEN 0340 DA2$(J)="." 0350 ELSE 0360 DA2$(J)=CHR(DA3 MOD 10+48) 0370 DA3=DA3 DIV 10 0380 ENDIF 0390 NEXT J 0400 ENDPROC 0410 PROC UDLIN 0420 EXEC TUD(SUM$,SUM1$,1,0) 0430 PRINT TAB(5);GR;TAB(12);UBELØB1$;TAB(37);UBELØB2$;TAB(57);SUM1$ 0440 ENDPROC 0450 PROC INDTAB1(Z,MANT5,L7) 0460 PIL1=MANT5 DIV 32 0470 FOR I=1 TO PIL1 0480 H=(I-1)*8+1 0490 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) 0500 EXEC FEJL(2,1,L7$) 0510 NEXT I 0520 ENDPROC 0530 PROC UNDIND(V2,U1,Z) 0540 OPEN V2$,R 0550 EXEC FEJL(14,1,V2$) 0560 GET V2$,U1:Z(1,1),Z(1,2),Z(2,1),Z(2,2),Z(3,1),Z(3,2),Z(4,1),Z(4,2) 0570 EXEC FEJL(14,2,V2$) 0580 CLOSE V2$ 0590 EXEC FEJL(14,3,V2$) 0600 ENDPROC ;UNDIND 0610 PROC TABINIT(K31,K32,MPOSTANTAL3,HTAB2,UTAB2) 0620 OPEN K31$,R 0630 EXEC FEJL(15,1,K31$) 0640 OPEN K32$,W 0650 EXEC FEJL(15,2,K32$) 0660 H=1 0670 FOR I=1 TO MPOSTANTAL3 DIV 40 0680 GET K31$,H:KONR 0690 EXEC FEJL(15,3,K31$) 0700 HTAB2(I,1)=KONR 0710 FOR J=1 TO 4 0720 GET K31$,H:KONR 0730 EXEC FEJL(15,4,K31$) 0740 UTAB2(J,1)=KONR 0750 H=H+9 0760 GET K31$,H:KONR 0770 EXEC FEJL(15,5,K31$) 0780 UTAB2(J,2)=KONR 0790 H=H+1 0800 NEXT J 0810 HTAB2(I,2)=KONR 0820 K90=I+MPOSTANTAL3 DIV 160 0830 EXEC UNDUD(K32$,K90,UTAB2) 0840 NEXT I 0850 EXEC HOVUD(K32$,MPOSTANTAL3,HTAB2) 0860 CLOSE K31$ 0870 EXEC FEJL(15,6,K31$) 0880 CLOSE K32$ 0890 EXEC FEJL(15,7,K32$) 0900 ENDPROC ;TABINIT 0910 PROC UNDUD(V3,U2,T) 0920 PUT V3$,U2:T(1,1),T(1,2),T(2,1),T(2,2),T(3,1),T(3,2),T(4,1),T(4,2) 0930 EXEC FEJL(16,1,V3$) 0940 ENDPROC ;UNDUD 0950 PROC HOVUD(V4,MPOSTANTAL4,S) 0960 FOR I=1 TO MPOSTANTAL4 DIV 160 0970 J=(I-1)*4+1;J1=J+1;J2=J+2;J3=J+3 0980 PUT V4$,I:S(J,1),S(J,2),S(J1,1),S(J1,2),S(J2,1),S(J2,2),S(J3,1),S(J3,2) 0990 EXEC FEJL(17,2,V4$) 1000 NEXT I 1010 ENDPROC 1020 PROC PINIT(K61,MPOSTANTAL8) 1030 OPEN K61$,W 1040 EXEC FEJL(1,1,K61$) 1050 FOR I=1 TO MPOSTANTAL8 1060 PUT K61$,I:100000 1070 EXEC FEJL(1,2,K61$) 1080 NEXT I 1090 CLOSE K61$ 1100 EXEC FEJL(1,3,K61$) 1110 ENDPROC 1120 PROC HENTPOST 1130 S1=FTAB(FPIL3,2) 1140 GET K5$,S1:FNR,FNAVN$ 1150 EXEC FEJL(2,2,K5$) 1160 GET K5$,S1+1:FMKODE$,FMDEBET$,FMKREDIT$ 1170 EXEC FEJL(2,3,K5$) 1180 GET K5$,S1+2:FUKODE$,FÅDEBET$,FÅKREDIT$ 1190 EXEC FEJL(2,4,K5$) 1200 ENDPROC 1210 PROC FINDPOST1(TAB4,Q,MANT2,NØGL5,PIL6,L8) 1220 PIL1=MANT2 DIV 8;PIL6=PIL1;CEKS=1;MANT3=MANT2 DIV 4;MANT4=MANT2 DIV 32 1230 REPEAT 1240 IF NØGL5=TAB4(PIL6) OR PIL1=1 THEN EXIT 1250 PIL1=(PIL1+1) DIV 2;PIL6=PIL6+PIL1*(1-2*(NØGL5<TAB4(PIL6))) 1260 IF PIL6<1 THEN PIL6=MANT3 1270 UNTIL PIL1=0 1280 IF TAB4(PIL6)>NØGL5 THEN PIL6=PIL6-1*(PIL6>1) 1290 PIL6=MANT4+PIL6 1300 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) 1310 EXEC FEJL(1,1,L8$) 1320 FOR PIL6=1 TO 4 1330 IF NØGL5=Q(PIL6,1) THEN EXIT 1340 NEXT PIL6 1350 IF PIL6<>5 THEN CEKS=0 1360 ENDPROC 1370 PROC GEMFPOST 1380 S1=FTAB(FPIL3,2) 1390 PUT K5$,S1:FNR,FNAVN$ 1400 EXEC FEJL(4,3,K5$) 1410 PUT K5$,S1+1:FMKODE$,FMDEBET$,FMKREDIT$ 1420 EXEC FEJL(4,4,K5$) 1430 PUT K5$,S1+2:FUKODE$,FÅDEBET$,FÅKREDIT$ 1440 EXEC FEJL(4,4,K5$) 1450 ENDPROC 1460 PROC NRTEST(NUM1) 1470 P=0;TEST2=0;KTAL=0;L=LEN(NUM1$) 1480 IF L>6 THEN EXIT 1490 CASE L OF 1500 FOR I=1 TO L 1510 P1=INT(ORD(NUM1$(I))-48) 1520 IF P1<0 OR P1>9 THEN TEST2=1 1530 P=P*10+P1 1540 NEXT I 1550 KTAL=P DIV 10000 1560 WHEN 0 1570 P=-1 1580 WHEN 1 1590 CASE NUM1$ OF 1600 P=INT(ORD(NUM1$)-48) 1610 WHEN "D","d" 1620 P=-2 1630 WHEN "A","a" 1640 P=-3 1650 WHEN "M","m" 1660 P=-4 1670 WHEN "J","j" 1680 P=-7 1690 WHEN "N","n" 1700 P=-8 1710 ENDCASE 1720 ENDCASE 1730 ENDPROC 1740 PROC KINIT(K62,K63,TAB1,KM,MANTAL) 1750 OPEN K63$,W 1760 EXEC FEJL(2,1,K63$) 1770 FOR J=1 TO MANTAL DIV 4 1780 K90=J+MANTAL DIV 32 1790 EXEC UNDIND(K62$,K90,TAB1) 1800 FOR I=1 TO 4 1810 IF TAB1(I,1)=1000000 THEN EXIT 1820 X=TAB1(I,2);SALDO$="0+" 1830 CASE KM OF 1840 GET K63$,X:DEBNR,DEBNAVN$,DSALDO1$,DEBKGR$ 1850 EXEC FEJL(7,1,K63$) 1860 GET K63$,X+1:DSALDO2$,DSALDO3$,DSALDO4$,DEBPOSTNR,DEBLK$ 1870 EXEC FEJL(7,2,K63$) 1880 GET K63$,X+3:DEBBY$,ÅRKØB$,MDNKØB$ 1890 EXEC FEJL(7,3,K63$) 1900 GR=ORD(DEBKGR$)-48;TÅRKØB$=ÅRKØB$ 1910 EXEC CALC(0,DSALDO3$,DSALDO4$,SALDO$) 1920 EXEC CALC(0,SALDO$,DSALDO2$,SALDO$) 1930 EXEC CALC(0,SALDO$,DSALDO1$,SALDO$) 1940 EXEC CALC(0,DSALDI$(GR),SALDO$,DSALDI$(GR)) 1950 EXEC CALC(0,TÅRKØB$,TOKØB$,TOKØB$) 1960 ÅRKØB$="0+" 1970 PUT K63$,X+3:DEBBY$,ÅRKØB$,MDNKØB$ 1980 EXEC FEJL(7,4,K63$) 1990 WHEN 1 2000 GET K63$,X:FNR 2010 EXEC FEJL(7,6,K63$) 2020 GET K63$,X+2:FUKODE$,FÅDEBET$,FÅKREDIT$ 2030 EXEC FEJL(7,7,K63$) 2040 GR=ORD(FUKODE$)-48 2050 IF (DTAL=FNR DIV 10000 OR KRTAL=FNR DIV 10000) AND GR=1 THEN 2060 EXEC CALC(0,FÅDEBET$,FÅKREDIT$,SALDO$) 2070 IF SALDO$(LEN(SALDO$))="-" THEN 2080 FÅKREDIT$=SALDO$;FÅDEBET$="0+" 2090 ELSE 2100 FÅDEBET$=SALDO$;FÅKREDIT$="0+" 2110 ENDIF 2120 EXEC CALC(0,TOSALDO1$,SALDO$,TOSALDO1$) 2130 IF DTAL=FNR DIV 10000 THEN 2140 DSALDI1$(FNR MOD 10)=SALDO$ 2150 ELSE 2160 KSALDI1$(FNR MOD 10)=SALDO$ 2170 ENDIF 2180 ELSE 2190 IF GR=0 THEN 2200 EXEC CALC(0,FÅDEBET$,FÅKREDIT$,SALDO$) 2210 EXEC CALC(0,TOSALDO$,SALDO$,TOSALDO$) 2220 FÅDEBET$="0+";FÅKREDIT$="0+" 2230 ENDIF 2240 ENDIF 2250 PUT K63$,X+2:FUKODE$,FÅDEBET$,FÅKREDIT$ 2260 EXEC FEJL(7,8,K63$) 2270 WHEN 2 2280 GET K63$,X+1:KREBY$,KRELK$,KREGR$,KREPOSTNR,KSALDO1$,KSALDO2$ 2290 EXEC FEJL(7,5,K63$) 2300 GR=ORD(KREGR$)-48 2310 EXEC CALC(0,KSALDO1$,KSALDO2$,SALDO$) 2320 EXEC CALC(0,KSALDI$(GR),SALDO$,KSALDI$(GR)) 2330 ENDCASE 2340 NEXT I 2350 IF TAB1(I-1*(I=5),1)=1000000 THEN EXIT 2360 NEXT J 2370 CLOSE K63$ 2380 EXEC FEJL(2,22,K63$) 2390 ENDPROC 2400 PROC FEJL(NR1,NR2,NR3) 2410 IF STATUS(NR3$)<>0 THEN 2420 PRINT STATUS(NR3$),NR1,NR2,NR3$ 2430 STOP 2440 ENDIF 2450 ENDPROC 2460 PROC TUD(BLB1,UBLB1,TEGN,STØR) 2470 BLB2$=BLB1$ 2480 EXEC CALC(5,BLB2$,TAL4$,UBLB1$) 2490 IF TEGN=0 THEN 2500 UBLB1$=UBLB1$(1:13) 2510 ELSE 2520 IF TEGN=1 AND UBLB1$(LEN(UBLB1$))="+" THEN 2530 UBLB1$(LEN(UBLB1$))=" " 2540 ENDIF 2550 ENDIF 2560 IF STØR=1 THEN 2570 UBLB1$=UBLB1$(4:LEN(UBLB1$)-3) 2580 ENDIF 2590 ENDPROC 2600 K1$="P641220:SYSTEM1" 2610 OPEN K1$,R 2620 EXEC FEJL(9,1,K1$) 2630 GET K1$,1:MFANTAL,MDANTAL,MKANTAL 2640 EXEC FEJL(9,2,K1$) 2650 GET K1$,3:DPOST,KPOST,MFPOST,MDPOST 2660 EXEC FEJL(9,21,K1$) 2670 GET K1$,4:MKPOST,MFAK,MVGR,MKGR 2680 EXEC FEJL(9,3,K1$) 2690 GET K1$,5:MKRGR 2700 EXEC FEJL(9,4,K1$) 2710 GET K1$,8:DIVNR,DIVDNR,DIFNR,DTAL 2720 EXEC FEJL(9,5,K1$) 2730 GET K1$,9:KRTAL 2740 EXEC FEJL(9,6,K1$) 2750 GET K1$,10:N$ 2760 EXEC FEJL(9,7,K1$) 2770 FOR I=1 TO 26 2780 GET K1$,I+10:K$(I) 2790 EXEC FEJL(9,8,K1$) 2800 NEXT I 2810 CLOSE K1$ 2820 EXEC FEJL(9,11,K1$) 2830 DIM DSALDI$(MKGR,12),DSALDI1$(MKGR,12),KSALDI1$(MKRGR,12) 2840 DIM KSALDI$(MKRGR,12) 2850 K3$=N$+K$(2);K4$=N$+K$(3);K5$=N$+K$(5);K6$=N$+K$(6);K7$=N$+K$(7) 2860 K8$=N$+K$(15);K9$=N$+K$(22);K2$=N$+K$(1);K10$=N$+K$(26) 2870 DIM FTAB1(MFANTAL DIV 4),DTAB1(MDANTAL DIV 4),KTAB1(MKANTAL DIV 4) 2880 DIM FTAB(4,2),DTAB(4,2),KTAB(4,2),HFTAB(MFPOST DIV 40,2),UFTAB(4,2) 2890 OPEN K10$,R 2900 EXEC FEJL(9,12,K10$) 2910 GET K10$,2:T1(1),T1(2),T1(3),T1(4),T1(5),T1(6),T1(7),T1(8),T1(9) 2920 EXEC FEJL(9,13,K10$) 2925 GET K10$,13:T2(1),T2(2),T2(3),T2(4),T2(5),T2(6),T2(7),T2(8),T2(9) 2926 EXEC FEJL(9,14,K10$) 2930 CLOSE K10$ 2940 EXEC FEJL(9,15,K10$) 2950 OPEN K2$,R 2960 EXEC FEJL(9,16,K2$) 2970 OPEN K3$,R 2980 EXEC FEJL(9,18,K3$) 2990 OPEN K4$,R 3000 EXEC FEJL(9,19,K4$) 3010 FOR I=1 TO MKGR 3020 DSALDI$(I)="0+";DSALDI1$(I)="0+" 3030 NEXT I 3040 FOR I=1 TO MKRGR 3050 KSALDI$(I)="0+";KSALDI1$(I)="0+" 3060 NEXT I 3070 TOSALDO$="0+";TOSALDO1$="0+";SUM$="0+";SUM3$="0+" 3080 EXEC INDTAB1(FTAB1,MFANTAL,K2$) 3090 EXEC INDTAB1(DTAB1,MDANTAL,K3$) 3100 EXEC INDTAB1(KTAB1,MKANTAL,K4$) 3110 EXEC KINIT(K3$,K6$,DTAB,0,MDANTAL) 3120 EXEC KINIT(K4$,K7$,KTAB,2,MKANTAL) 3130 EXEC KINIT(K2$,K5$,FTAB,1,MFANTAL) 3140 EXEC PINIT(K8$,MFPOST) 3150 EXEC TABINIT(K8$,K9$,MFPOST,HFTAB,UFTAB) 3160 OPEN K5$,W 3170 EXEC FEJL(9,20,K5$) 3180 EXEC FINDPOST1(FTAB1,FTAB,MFANTAL,DIFNR,FPIL3,K2$) 3190 IF CEKS=1 THEN STOP 3200 EXEC HENTPOST 3210 IF TOSALDO$(LEN(TOSALDO$))="-" THEN 3220 EXEC CALC(0,FMKREDIT$,TOSALDO$,FMKREDIT$) 3230 EXEC CALC(0,FÅKREDIT$,TOSALDO$,FÅKREDIT$) 3240 ELSE 3250 EXEC CALC(0,FMDEBET$,TOSALDO$,FMDEBET$) 3260 EXEC CALC(0,FÅDEBET$,TOSALDO$,FÅDEBET$) 3270 ENDIF 3280 EXEC GEMFPOST 3290 TKODE$=CHR(10+48);TEKST$="Årsafslutnings difference" 3300 OPEN K8$,W 3310 EXEC FEJL(9,21,K8$) 3320 PUT K8$,1:DIFNR,T1(7),-1,TKODE$,TOSALDO$ 3330 EXEC FEJL(9,22,K8$) 3340 PUT K8$,2:DIFNR,TEKST$ 3350 EXEC FEJL(9,23,K8$) 3360 CLOSE K8$ 3370 EXEC FEJL(9,24,K8$) 3380 T2(5)=2 3381 OPEN K10$,W 3382 EXEC FEJL(9,25,K10$) 3383 PUT K10$,13:T2(1),T2(2),T2(3),T2(4),T2(5),T2(6),T2(7),T2(8),T2(9) 3384 EXEC FEJL(9,26,K10$) 3385 CLOSE K10$ 3386 EXEC FEJL(9,27,K10$) 3390 EXEC DATOUD(T1(7),DAT$) 3400 CLEAR 3410 REPEAT 3420 CURSOR 15,13 3430 INPUT "Monter papir til udskrift og tast RETURN",A$ 3440 EXEC NRTEST(A$) 3450 UNTIL P=-1 3460 OUTPUT P 3470 PRINT TAB(10);CHR(14);"Årsafslutningsjournal";CHR(15);TAB(40); 3480 PRINT "DATO: ";DAT$ 3490 PRINT CHR(10) 3500 PRINT TAB(5);"Gr. Totaler Deb. ";TAB(37);"Gr.Total Deb."; 3510 PRINT TAB(60);"Difference" 3520 PRINT " " 3530 FOR GR=1 TO MKGR 3540 EXEC CALC(1,DSALDI$(GR),DSALDI1$(GR),SUM$) 3550 EXEC TUD(DSALDI$(GR),UBELØB1$,1,0) 3560 EXEC TUD(DSALDI1$(GR),UBELØB2$,1,0) 3570 EXEC UDLIN 3580 NEXT GR 3590 PRINT CHR(10) 3600 PRINT TAB(5);"Gr. Totaler Kre. ";TAB(37);"Gr.Total Kre."; 3610 PRINT TAB(60);"Difference" 3620 PRINT " " 3630 FOR GR=1 TO MKRGR 3640 EXEC CALC(1,KSALDI$(GR),KSALDI1$(GR),SUM$) 3650 EXEC TUD(KSALDI$(GR),UBELØB1$,1,0) 3660 EXEC TUD(KSALDI1$(GR),UBELØB2$,1,0) 3670 EXEC UDLIN 3680 NEXT GR 3690 PRINT CHR(10) 3700 PRINT TAB(5);"Total Deb+Kre.";TAB(40);"Total Fin.";TAB(60);"Difference" 3710 PRINT " " 3720 EXEC CALC(0,TOSALDO1$,TOSALDO$,SUM3$) 3730 EXEC TUD(TOSALDO1$,UBELØB1$,1,0) 3740 EXEC TUD(TOSALDO$,UBELØB2$,1,0) 3750 EXEC TUD(SUM3$,SUM1$,1,0) 3760 PRINT TAB(6);UBELØB1$;TAB(37);UBELØB2$; 3770 PRINT TAB(57);SUM1$ 3780 PRINT " " 3790 PRINT TAB(5);"Bogført på difference konto:";TAB(57);UBELØB2$ 3800 FOR I=1 TO 48-15-MKGR-MKRGR 3810 PRINT " " 3820 NEXT I 3830 OUTPUT T 3840 CLEAR 3850 CHAIN "P641210:OPSTART"
0x0000…004e Line {l1=0x4c, l2=»0100 DIM RES$(14),OP1$(12),OP2$(12),N$(6),K1$(17),A$(1),TAL4$(12),BLANK$(25)«, l3=0x4c}
0x004e…009d Line {l1=0x4d, l2=»0110 DIM UBELØB1$(14),UBELØB2$(14),STREG$(71),FÅDK$(12),FMDK$(12),GLNAVN$(25)«, l3=0x4d}
0x009d…00e5 Line {l1=0x46, l2=»0120 DIM DAT$(8),FÅKREDIT$(12),FÅDEBET$(12),FMKREDIT$(12),FMDEBET$(12)«, l3=0x46}
0x00e5…0129 Line {l1=0x42, l2=»0130 DIM FMKODE$(1),FNAVN$(25),FUKODE$(1),SALDO13$(12),SALDO3$(12)«, l3=0x42}
0x0129…0178 Line {l1=0x4d, l2=»0140 DIM SALDO2$(12),SALDO11$(12),SALDO1$(12),SALDO12$(12),SUM$(12),SUM1$(14)«, l3=0x4d}
0x0178…01c1 Line {l1=0x47, l2=»0150 DIM K2$(17),K3$(17),K4$(17),K5$(17),T1(9),LAND$(9,12),DEBNAVN$(25)«, l3=0x47}
0x01c1…020a Line {l1=0x47, l2=»0160 DIM DSALDO1$(12),DEBKGR$(1),DSALDO2$(12),DSALDO3$(12),DSALDO4$(12)«, l3=0x47}
0x020a…0257 Line {l1=0x4b, l2=»0170 DIM DEBLK$(1),DEBBY$(20),ÅRKØB$(12),MDNKØB$(12),TÅRKØB$(12),SALDO$(12)«, l3=0x4b}
0x0257…028f Line {l1=0x36, l2=»0180 DIM TOKØB$(12),TOSALDO1$(12),K$(26,11),KREBY$(20)«, l3=0x36}
0x028f…02cd Line {l1=0x3c, l2=»0190 DIM TOSALDO$(12),KRELK$(1),KREGR$(1),KSALDO1$(12),T2(9)«, l3=0x3c}
0x02cd…0316 Line {l1=0x47, l2=»0200 DIM KSALDO2$(12),K10$(17),K6$(17),K7$(17),K9$(17),K8$(17),TYPE$(1)«, l3=0x47}
0x0316…0353 Line {l1=0x3b, l2=»0210 DIM BLB2$(12),TILNAVN$(27,8),FRANAVN$(27,8),TEKST$(25)«, l3=0x3b}
0x0353…0389 Line {l1=0x34, l2=»0220 DIM SUM3$(12),DREVFRA$(2),DREVTIL$(2),TKODE$(1)«, l3=0x34}
0x0389…03a7 Line {l1=0x1c, l2=»0230 PROC CALC(ART,B1,B2,ES)«, l3=0x1c}
0x03a7…03d4 Line {l1=0x2b, l2=»0240 OP1$=B1$;OP2$=B2$;RES$=ES$;SI=0;FLAG=0«, l3=0x2b}
0x03d4…03ee Line {l1=0x18, l2=»0250 CALL "P641210:REGN"«, l3=0x18}
0x03ee…03fd Line {l1=0x0d, l2=»0260 ES$=RES$«, l3=0x0d}
0x03fd…0419 Line {l1=0x1a, l2=»0270 IF FLAG<>0 THEN STOP «, l3=0x1a}
0x0419…0428 Line {l1=0x0d, l2=»0280 ENDPROC «, l3=0x0d}
0x0428…0443 Line {l1=0x19, l2=»0290 PROC DATOUD(DA1,DA2)«, l3=0x19}
0x0443…0451 Line {l1=0x0c, l2=»0300 DA3=DA1«, l3=0x0c}
0x0451…0467 Line {l1=0x14, l2=»0310 DA2$=" "«, l3=0x14}
0x0467…0482 Line {l1=0x19, l2=»0320 FOR J=8 TO 1 STEP -1«, l3=0x19}
0x0482…049b Line {l1=0x17, l2=»0330 IF J MOD 3=0 THEN «, l3=0x17}
0x049b…04ad Line {l1=0x10, l2=»0340 DA2$(J)="."«, l3=0x10}
0x04ad…04b9 Line {l1=0x0a, l2=»0350 ELSE «, l3=0x0a}
0x04b9…04da Line {l1=0x1f, l2=»0360 DA2$(J)=CHR(DA3 MOD 10+48)«, l3=0x1f}
0x04da…04ef Line {l1=0x13, l2=»0370 DA3=DA3 DIV 10«, l3=0x13}
0x04ef…04fc Line {l1=0x0b, l2=»0380 ENDIF «, l3=0x0b}
0x04fc…0509 Line {l1=0x0b, l2=»0390 NEXT J«, l3=0x0b}
0x0509…0518 Line {l1=0x0d, l2=»0400 ENDPROC «, l3=0x0d}
0x0518…0529 Line {l1=0x0f, l2=»0410 PROC UDLIN«, l3=0x0f}
0x0529…0548 Line {l1=0x1d, l2=»0420 EXEC TUD(SUM$,SUM1$,1,0)«, l3=0x1d}
0x0548…058e Line {l1=0x44, l2=»0430 PRINT TAB(5);GR;TAB(12);UBELØB1$;TAB(37);UBELØB2$;TAB(57);SUM1$«, l3=0x44}
0x058e…059d Line {l1=0x0d, l2=»0440 ENDPROC «, l3=0x0d}
0x059d…05bc Line {l1=0x1d, l2=»0450 PROC INDTAB1(Z,MANT5,L7)«, l3=0x1d}
0x05bc…05d4 Line {l1=0x16, l2=»0460 PIL1=MANT5 DIV 32«, l3=0x16}
0x05d4…05ea Line {l1=0x14, l2=»0470 FOR I=1 TO PIL1«, l3=0x14}
0x05ea…05fc Line {l1=0x10, l2=»0480 H=(I-1)*8+1«, l3=0x10}
0x05fc…0642 Line {l1=0x44, l2=»0490 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}
0x0642…065b Line {l1=0x17, l2=»0500 EXEC FEJL(2,1,L7$)«, l3=0x17}
0x065b…0668 Line {l1=0x0b, l2=»0510 NEXT I«, l3=0x0b}
0x0668…0677 Line {l1=0x0d, l2=»0520 ENDPROC «, l3=0x0d}
0x0677…0692 Line {l1=0x19, l2=»0530 PROC UNDIND(V2,U1,Z)«, l3=0x19}
0x0692…06a3 Line {l1=0x0f, l2=»0540 OPEN V2$,R«, l3=0x0f}
0x06a3…06bd Line {l1=0x18, l2=»0550 EXEC FEJL(14,1,V2$)«, l3=0x18}
0x06bd…0706 Line {l1=0x47, l2=»0560 GET V2$,U1:Z(1,1),Z(1,2),Z(2,1),Z(2,2),Z(3,1),Z(3,2),Z(4,1),Z(4,2)«, l3=0x47}
0x0706…0720 Line {l1=0x18, l2=»0570 EXEC FEJL(14,2,V2$)«, l3=0x18}
0x0720…0730 Line {l1=0x0e, l2=»0580 CLOSE V2$«, l3=0x0e}
0x0730…074a Line {l1=0x18, l2=»0590 EXEC FEJL(14,3,V2$)«, l3=0x18}
0x074a…0760 Line {l1=0x14, l2=»0600 ENDPROC ;UNDIND«, l3=0x14}
0x0760…0794 Line {l1=0x32, l2=»0610 PROC TABINIT(K31,K32,MPOSTANTAL3,HTAB2,UTAB2)«, l3=0x32}
0x0794…07a6 Line {l1=0x10, l2=»0620 OPEN K31$,R«, l3=0x10}
0x07a6…07c1 Line {l1=0x19, l2=»0630 EXEC FEJL(15,1,K31$)«, l3=0x19}
0x07c1…07d3 Line {l1=0x10, l2=»0640 OPEN K32$,W«, l3=0x10}
0x07d3…07ee Line {l1=0x19, l2=»0650 EXEC FEJL(15,2,K32$)«, l3=0x19}
0x07ee…07f8 Line {l1=0x08, l2=»0660 H=1«, l3=0x08}
0x07f8…081c Line {l1=0x22, l2=»0670 FOR I=1 TO MPOSTANTAL3 DIV 40«, l3=0x22}
0x081c…0832 Line {l1=0x14, l2=»0680 GET K31$,H:KONR«, l3=0x14}
0x0832…084d Line {l1=0x19, l2=»0690 EXEC FEJL(15,3,K31$)«, l3=0x19}
0x084d…0863 Line {l1=0x14, l2=»0700 HTAB2(I,1)=KONR«, l3=0x14}
0x0863…0876 Line {l1=0x11, l2=»0710 FOR J=1 TO 4«, l3=0x11}
0x0876…088c Line {l1=0x14, l2=»0720 GET K31$,H:KONR«, l3=0x14}
0x088c…08a7 Line {l1=0x19, l2=»0730 EXEC FEJL(15,4,K31$)«, l3=0x19}
0x08a7…08bd Line {l1=0x14, l2=»0740 UTAB2(J,1)=KONR«, l3=0x14}
0x08bd…08c9 Line {l1=0x0a, l2=»0750 H=H+9«, l3=0x0a}
0x08c9…08df Line {l1=0x14, l2=»0760 GET K31$,H:KONR«, l3=0x14}
0x08df…08fa Line {l1=0x19, l2=»0770 EXEC FEJL(15,5,K31$)«, l3=0x19}
0x08fa…0910 Line {l1=0x14, l2=»0780 UTAB2(J,2)=KONR«, l3=0x14}
0x0910…091c Line {l1=0x0a, l2=»0790 H=H+1«, l3=0x0a}
0x091c…0929 Line {l1=0x0b, l2=»0800 NEXT J«, l3=0x0b}
0x0929…093f Line {l1=0x14, l2=»0810 HTAB2(I,2)=KONR«, l3=0x14}
0x093f…095f Line {l1=0x1e, l2=»0820 K90=I+MPOSTANTAL3 DIV 160«, l3=0x1e}
0x095f…0980 Line {l1=0x1f, l2=»0830 EXEC UNDUD(K32$,K90,UTAB2)«, l3=0x1f}
0x0980…098d Line {l1=0x0b, l2=»0840 NEXT I«, l3=0x0b}
0x098d…09b6 Line {l1=0x27, l2=»0850 EXEC HOVUD(K32$,MPOSTANTAL3,HTAB2)«, l3=0x27}
0x09b6…09c7 Line {l1=0x0f, l2=»0860 CLOSE K31$«, l3=0x0f}
0x09c7…09e2 Line {l1=0x19, l2=»0870 EXEC FEJL(15,6,K31$)«, l3=0x19}
0x09e2…09f3 Line {l1=0x0f, l2=»0880 CLOSE K32$«, l3=0x0f}
0x09f3…0a0e Line {l1=0x19, l2=»0890 EXEC FEJL(15,7,K32$)«, l3=0x19}
0x0a0e…0a25 Line {l1=0x15, l2=»0900 ENDPROC ;TABINIT«, l3=0x15}
0x0a25…0a3f Line {l1=0x18, l2=»0910 PROC UNDUD(V3,U2,T)«, l3=0x18}
0x0a3f…0a88 Line {l1=0x47, l2=»0920 PUT V3$,U2:T(1,1),T(1,2),T(2,1),T(2,2),T(3,1),T(3,2),T(4,1),T(4,2)«, l3=0x47}
0x0a88…0aa2 Line {l1=0x18, l2=»0930 EXEC FEJL(16,1,V3$)«, l3=0x18}
0x0aa2…0ab7 Line {l1=0x13, l2=»0940 ENDPROC ;UNDUD«, l3=0x13}
0x0ab7…0ada Line {l1=0x21, l2=»0950 PROC HOVUD(V4,MPOSTANTAL4,S)«, l3=0x21}
0x0ada…0aff Line {l1=0x23, l2=»0960 FOR I=1 TO MPOSTANTAL4 DIV 160«, l3=0x23}
0x0aff…0b26 Line {l1=0x25, l2=»0970 J=(I-1)*4+1;J1=J+1;J2=J+2;J3=J+3«, l3=0x25}
0x0b26…0b74 Line {l1=0x4c, l2=»0980 PUT V4$,I:S(J,1),S(J,2),S(J1,1),S(J1,2),S(J2,1),S(J2,2),S(J3,1),S(J3,2)«, l3=0x4c}
0x0b74…0b8e Line {l1=0x18, l2=»0990 EXEC FEJL(17,2,V4$)«, l3=0x18}
0x0b8e…0b9b Line {l1=0x0b, l2=»1000 NEXT I«, l3=0x0b}
0x0b9b…0baa Line {l1=0x0d, l2=»1010 ENDPROC «, l3=0x0d}
0x0baa…0bcc Line {l1=0x20, l2=»1020 PROC PINIT(K61,MPOSTANTAL8)«, l3=0x20}
0x0bcc…0bde Line {l1=0x10, l2=»1030 OPEN K61$,W«, l3=0x10}
0x0bde…0bf8 Line {l1=0x18, l2=»1040 EXEC FEJL(1,1,K61$)«, l3=0x18}
0x0bf8…0c15 Line {l1=0x1b, l2=»1050 FOR I=1 TO MPOSTANTAL8«, l3=0x1b}
0x0c15…0c2d Line {l1=0x16, l2=»1060 PUT K61$,I:100000«, l3=0x16}
0x0c2d…0c47 Line {l1=0x18, l2=»1070 EXEC FEJL(1,2,K61$)«, l3=0x18}
0x0c47…0c54 Line {l1=0x0b, l2=»1080 NEXT I«, l3=0x0b}
0x0c54…0c65 Line {l1=0x0f, l2=»1090 CLOSE K61$«, l3=0x0f}
0x0c65…0c7f Line {l1=0x18, l2=»1100 EXEC FEJL(1,3,K61$)«, l3=0x18}
0x0c7f…0c8e Line {l1=0x0d, l2=»1110 ENDPROC «, l3=0x0d}
0x0c8e…0ca2 Line {l1=0x12, l2=»1120 PROC HENTPOST«, l3=0x12}
0x0ca2…0cb9 Line {l1=0x15, l2=»1130 S1=FTAB(FPIL3,2)«, l3=0x15}
0x0cb9…0cd5 Line {l1=0x1a, l2=»1140 GET K5$,S1:FNR,FNAVN$«, l3=0x1a}
0x0cd5…0cee Line {l1=0x17, l2=»1150 EXEC FEJL(2,2,K5$)«, l3=0x17}
0x0cee…0d1c Line {l1=0x2c, l2=»1160 GET K5$,S1+1:FMKODE$,FMDEBET$,FMKREDIT$«, l3=0x2c}
0x0d1c…0d35 Line {l1=0x17, l2=»1170 EXEC FEJL(2,3,K5$)«, l3=0x17}
0x0d35…0d63 Line {l1=0x2c, l2=»1180 GET K5$,S1+2:FUKODE$,FÅDEBET$,FÅKREDIT$«, l3=0x2c}
0x0d63…0d7c Line {l1=0x17, l2=»1190 EXEC FEJL(2,4,K5$)«, l3=0x17}
0x0d7c…0d8b Line {l1=0x0d, l2=»1200 ENDPROC «, l3=0x0d}
0x0d8b…0dbc Line {l1=0x2f, l2=»1210 PROC FINDPOST1(TAB4,Q,MANT2,NØGL5,PIL6,L8)«, l3=0x2f}
0x0dbc…0e09 Line {l1=0x4b, l2=»1220 PIL1=MANT2 DIV 8;PIL6=PIL1;CEKS=1;MANT3=MANT2 DIV 4;MANT4=MANT2 DIV 32«, l3=0x4b}
0x0e09…0e17 Line {l1=0x0c, l2=»1230 REPEAT «, l3=0x0c}
0x0e17…0e46 Line {l1=0x2d, l2=»1240 IF NØGL5=TAB4(PIL6) OR PIL1=1 THEN EXIT «, l3=0x2d}
0x0e46…0e88 Line {l1=0x40, l2=»1250 PIL1=(PIL1+1) DIV 2;PIL6=PIL6+PIL1*(1-2*(NØGL5<TAB4(PIL6)))«, l3=0x40}
0x0e88…0ea8 Line {l1=0x1e, l2=»1260 IF PIL6<1 THEN PIL6=MANT3«, l3=0x1e}
0x0ea8…0ebb Line {l1=0x11, l2=»1270 UNTIL PIL1=0«, l3=0x11}
0x0ebb…0eef Line {l1=0x32, l2=»1280 IF TAB4(PIL6)>NØGL5 THEN PIL6=PIL6-1*(PIL6>1)«, l3=0x32}
0x0eef…0f05 Line {l1=0x14, l2=»1290 PIL6=MANT4+PIL6«, l3=0x14}
0x0f05…0f50 Line {l1=0x49, l2=»1300 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}
0x0f50…0f69 Line {l1=0x17, l2=»1310 EXEC FEJL(1,1,L8$)«, l3=0x17}
0x0f69…0f7f Line {l1=0x14, l2=»1320 FOR PIL6=1 TO 4«, l3=0x14}
0x0f7f…0fa3 Line {l1=0x22, l2=»1330 IF NØGL5=Q(PIL6,1) THEN EXIT «, l3=0x22}
0x0fa3…0fb3 Line {l1=0x0e, l2=»1340 NEXT PIL6«, l3=0x0e}
0x0fb3…0fd0 Line {l1=0x1b, l2=»1350 IF PIL6<>5 THEN CEKS=0«, l3=0x1b}
0x0fd0…0fdf Line {l1=0x0d, l2=»1360 ENDPROC «, l3=0x0d}
0x0fdf…0ff3 Line {l1=0x12, l2=»1370 PROC GEMFPOST«, l3=0x12}
0x0ff3…100a Line {l1=0x15, l2=»1380 S1=FTAB(FPIL3,2)«, l3=0x15}
0x100a…1026 Line {l1=0x1a, l2=»1390 PUT K5$,S1:FNR,FNAVN$«, l3=0x1a}
0x1026…103f Line {l1=0x17, l2=»1400 EXEC FEJL(4,3,K5$)«, l3=0x17}
0x103f…106d Line {l1=0x2c, l2=»1410 PUT K5$,S1+1:FMKODE$,FMDEBET$,FMKREDIT$«, l3=0x2c}
0x106d…1086 Line {l1=0x17, l2=»1420 EXEC FEJL(4,4,K5$)«, l3=0x17}
0x1086…10b4 Line {l1=0x2c, l2=»1430 PUT K5$,S1+2:FUKODE$,FÅDEBET$,FÅKREDIT$«, l3=0x2c}
0x10b4…10cd Line {l1=0x17, l2=»1440 EXEC FEJL(4,4,K5$)«, l3=0x17}
0x10cd…10dc Line {l1=0x0d, l2=»1450 ENDPROC «, l3=0x0d}
0x10dc…10f4 Line {l1=0x16, l2=»1460 PROC NRTEST(NUM1)«, l3=0x16}
0x10f4…111a Line {l1=0x24, l2=»1470 P=0;TEST2=0;KTAL=0;L=LEN(NUM1$)«, l3=0x24}
0x111a…1132 Line {l1=0x16, l2=»1480 IF L>6 THEN EXIT «, l3=0x16}
0x1132…1143 Line {l1=0x0f, l2=»1490 CASE L OF «, l3=0x0f}
0x1143…1156 Line {l1=0x11, l2=»1500 FOR I=1 TO L«, l3=0x11}
0x1156…1175 Line {l1=0x1d, l2=»1510 P1=INT(ORD(NUM1$(I))-48)«, l3=0x1d}
0x1175…1198 Line {l1=0x21, l2=»1520 IF P1<0 OR P1>9 THEN TEST2=1«, l3=0x21}
0x1198…11a8 Line {l1=0x0e, l2=»1530 P=P*10+P1«, l3=0x0e}
0x11a8…11b5 Line {l1=0x0b, l2=»1540 NEXT I«, l3=0x0b}
0x11b5…11cc Line {l1=0x15, l2=»1550 KTAL=P DIV 10000«, l3=0x15}
0x11cc…11d9 Line {l1=0x0b, l2=»1560 WHEN 0«, l3=0x0b}
0x11d9…11e4 Line {l1=0x09, l2=»1570 P=-1«, l3=0x09}
0x11e4…11f1 Line {l1=0x0b, l2=»1580 WHEN 1«, l3=0x0b}
0x11f1…1206 Line {l1=0x13, l2=»1590 CASE NUM1$ OF «, l3=0x13}
0x1206…1221 Line {l1=0x19, l2=»1600 P=INT(ORD(NUM1$)-48)«, l3=0x19}
0x1221…1234 Line {l1=0x11, l2=»1610 WHEN "D","d"«, l3=0x11}
0x1234…123f Line {l1=0x09, l2=»1620 P=-2«, l3=0x09}
0x123f…1252 Line {l1=0x11, l2=»1630 WHEN "A","a"«, l3=0x11}
0x1252…125d Line {l1=0x09, l2=»1640 P=-3«, l3=0x09}
0x125d…1270 Line {l1=0x11, l2=»1650 WHEN "M","m"«, l3=0x11}
0x1270…127b Line {l1=0x09, l2=»1660 P=-4«, l3=0x09}
0x127b…128e Line {l1=0x11, l2=»1670 WHEN "J","j"«, l3=0x11}
0x128e…1299 Line {l1=0x09, l2=»1680 P=-7«, l3=0x09}
0x1299…12ac Line {l1=0x11, l2=»1690 WHEN "N","n"«, l3=0x11}
0x12ac…12b7 Line {l1=0x09, l2=»1700 P=-8«, l3=0x09}
0x12b7…12c6 Line {l1=0x0d, l2=»1710 ENDCASE «, l3=0x0d}
0x12c6…12d5 Line {l1=0x0d, l2=»1720 ENDCASE «, l3=0x0d}
0x12d5…12e4 Line {l1=0x0d, l2=»1730 ENDPROC «, l3=0x0d}
0x12e4…130d Line {l1=0x27, l2=»1740 PROC KINIT(K62,K63,TAB1,KM,MANTAL)«, l3=0x27}
0x130d…131f Line {l1=0x10, l2=»1750 OPEN K63$,W«, l3=0x10}
0x131f…1339 Line {l1=0x18, l2=»1760 EXEC FEJL(2,1,K63$)«, l3=0x18}
0x1339…1357 Line {l1=0x1c, l2=»1770 FOR J=1 TO MANTAL DIV 4«, l3=0x1c}
0x1357…1371 Line {l1=0x18, l2=»1780 K90=J+MANTAL DIV 32«, l3=0x18}
0x1371…1392 Line {l1=0x1f, l2=»1790 EXEC UNDIND(K62$,K90,TAB1)«, l3=0x1f}
0x1392…13a5 Line {l1=0x11, l2=»1800 FOR I=1 TO 4«, l3=0x11}
0x13a5…13cb Line {l1=0x24, l2=»1810 IF TAB1(I,1)=1000000 THEN EXIT «, l3=0x24}
0x13cb…13e9 Line {l1=0x1c, l2=»1820 X=TAB1(I,2);SALDO$="0+"«, l3=0x1c}
0x13e9…13fb Line {l1=0x10, l2=»1830 CASE KM OF «, l3=0x10}
0x13fb…142c Line {l1=0x2f, l2=»1840 GET K63$,X:DEBNR,DEBNAVN$,DSALDO1$,DEBKGR$«, l3=0x2f}
0x142c…1446 Line {l1=0x18, l2=»1850 EXEC FEJL(7,1,K63$)«, l3=0x18}
0x1446…1485 Line {l1=0x3d, l2=»1860 GET K63$,X+1:DSALDO2$,DSALDO3$,DSALDO4$,DEBPOSTNR,DEBLK$«, l3=0x3d}
0x1485…149f Line {l1=0x18, l2=»1870 EXEC FEJL(7,2,K63$)«, l3=0x18}
0x149f…14c8 Line {l1=0x27, l2=»1880 GET K63$,X+3:DEBBY$,ÅRKØB$,MDNKØB$«, l3=0x27}
0x14c8…14e2 Line {l1=0x18, l2=»1890 EXEC FEJL(7,3,K63$)«, l3=0x18}
0x14e2…150a Line {l1=0x26, l2=»1900 GR=ORD(DEBKGR$)-48;TÅRKØB$=ÅRKØB$«, l3=0x26}
0x150a…1536 Line {l1=0x2a, l2=»1910 EXEC CALC(0,DSALDO3$,DSALDO4$,SALDO$)«, l3=0x2a}
0x1536…1560 Line {l1=0x28, l2=»1920 EXEC CALC(0,SALDO$,DSALDO2$,SALDO$)«, l3=0x28}
0x1560…158a Line {l1=0x28, l2=»1930 EXEC CALC(0,SALDO$,DSALDO1$,SALDO$)«, l3=0x28}
0x158a…15bc Line {l1=0x30, l2=»1940 EXEC CALC(0,DSALDI$(GR),SALDO$,DSALDI$(GR))«, l3=0x30}
0x15bc…15e5 Line {l1=0x27, l2=»1950 EXEC CALC(0,TÅRKØB$,TOKØB$,TOKØB$)«, l3=0x27}
0x15e5…15f7 Line {l1=0x10, l2=»1960 ÅRKØB$="0+"«, l3=0x10}
0x15f7…1620 Line {l1=0x27, l2=»1970 PUT K63$,X+3:DEBBY$,ÅRKØB$,MDNKØB$«, l3=0x27}
0x1620…163a Line {l1=0x18, l2=»1980 EXEC FEJL(7,4,K63$)«, l3=0x18}
0x163a…1647 Line {l1=0x0b, l2=»1990 WHEN 1«, l3=0x0b}
0x1647…165c Line {l1=0x13, l2=»2000 GET K63$,X:FNR«, l3=0x13}
0x165c…1676 Line {l1=0x18, l2=»2010 EXEC FEJL(7,6,K63$)«, l3=0x18}
0x1676…16a4 Line {l1=0x2c, l2=»2020 GET K63$,X+2:FUKODE$,FÅDEBET$,FÅKREDIT$«, l3=0x2c}
0x16a4…16be Line {l1=0x18, l2=»2030 EXEC FEJL(7,7,K63$)«, l3=0x18}
0x16be…16d7 Line {l1=0x17, l2=»2040 GR=ORD(FUKODE$)-48«, l3=0x17}
0x16d7…171b Line {l1=0x42, l2=»2050 IF (DTAL=FNR DIV 10000 OR KRTAL=FNR DIV 10000) AND GR=1 THEN «, l3=0x42}
0x171b…1748 Line {l1=0x2b, l2=»2060 EXEC CALC(0,FÅDEBET$,FÅKREDIT$,SALDO$)«, l3=0x2b}
0x1748…176f Line {l1=0x25, l2=»2070 IF SALDO$(LEN(SALDO$))="-" THEN «, l3=0x25}
0x176f…1794 Line {l1=0x23, l2=»2080 FÅKREDIT$=SALDO$;FÅDEBET$="0+"«, l3=0x23}
0x1794…17a0 Line {l1=0x0a, l2=»2090 ELSE «, l3=0x0a}
0x17a0…17c5 Line {l1=0x23, l2=»2100 FÅDEBET$=SALDO$;FÅKREDIT$="0+"«, l3=0x23}
0x17c5…17d2 Line {l1=0x0b, l2=»2110 ENDIF «, l3=0x0b}
0x17d2…1800 Line {l1=0x2c, l2=»2120 EXEC CALC(0,TOSALDO1$,SALDO$,TOSALDO1$)«, l3=0x2c}
0x1800…1822 Line {l1=0x20, l2=»2130 IF DTAL=FNR DIV 10000 THEN «, l3=0x20}
0x1822…1844 Line {l1=0x20, l2=»2140 DSALDI1$(FNR MOD 10)=SALDO$«, l3=0x20}
0x1844…1850 Line {l1=0x0a, l2=»2150 ELSE «, l3=0x0a}
0x1850…1872 Line {l1=0x20, l2=»2160 KSALDI1$(FNR MOD 10)=SALDO$«, l3=0x20}
0x1872…187f Line {l1=0x0b, l2=»2170 ENDIF «, l3=0x0b}
0x187f…188b Line {l1=0x0a, l2=»2180 ELSE «, l3=0x0a}
0x188b…189f Line {l1=0x12, l2=»2190 IF GR=0 THEN «, l3=0x12}
0x189f…18cc Line {l1=0x2b, l2=»2200 EXEC CALC(0,FÅDEBET$,FÅKREDIT$,SALDO$)«, l3=0x2b}
0x18cc…18f8 Line {l1=0x2a, l2=»2210 EXEC CALC(0,TOSALDO$,SALDO$,TOSALDO$)«, l3=0x2a}
0x18f8…191b Line {l1=0x21, l2=»2220 FÅDEBET$="0+";FÅKREDIT$="0+"«, l3=0x21}
0x191b…1928 Line {l1=0x0b, l2=»2230 ENDIF «, l3=0x0b}
0x1928…1935 Line {l1=0x0b, l2=»2240 ENDIF «, l3=0x0b}
0x1935…1963 Line {l1=0x2c, l2=»2250 PUT K63$,X+2:FUKODE$,FÅDEBET$,FÅKREDIT$«, l3=0x2c}
0x1963…197d Line {l1=0x18, l2=»2260 EXEC FEJL(7,8,K63$)«, l3=0x18}
0x197d…198a Line {l1=0x0b, l2=»2270 WHEN 2«, l3=0x0b}
0x198a…19ce Line {l1=0x42, l2=»2280 GET K63$,X+1:KREBY$,KRELK$,KREGR$,KREPOSTNR,KSALDO1$,KSALDO2$«, l3=0x42}
0x19ce…19e8 Line {l1=0x18, l2=»2290 EXEC FEJL(7,5,K63$)«, l3=0x18}
0x19e8…1a00 Line {l1=0x16, l2=»2300 GR=ORD(KREGR$)-48«, l3=0x16}
0x1a00…1a2c Line {l1=0x2a, l2=»2310 EXEC CALC(0,KSALDO1$,KSALDO2$,SALDO$)«, l3=0x2a}
0x1a2c…1a5e Line {l1=0x30, l2=»2320 EXEC CALC(0,KSALDI$(GR),SALDO$,KSALDI$(GR))«, l3=0x30}
0x1a5e…1a6d Line {l1=0x0d, l2=»2330 ENDCASE «, l3=0x0d}
0x1a6d…1a7a Line {l1=0x0b, l2=»2340 NEXT I«, l3=0x0b}
0x1a7a…1aa8 Line {l1=0x2c, l2=»2350 IF TAB1(I-1*(I=5),1)=1000000 THEN EXIT «, l3=0x2c}
0x1aa8…1ab5 Line {l1=0x0b, l2=»2360 NEXT J«, l3=0x0b}
0x1ab5…1ac6 Line {l1=0x0f, l2=»2370 CLOSE K63$«, l3=0x0f}
0x1ac6…1ae1 Line {l1=0x19, l2=»2380 EXEC FEJL(2,22,K63$)«, l3=0x19}
0x1ae1…1af0 Line {l1=0x0d, l2=»2390 ENDPROC «, l3=0x0d}
0x1af0…1b0d Line {l1=0x1b, l2=»2400 PROC FEJL(NR1,NR2,NR3)«, l3=0x1b}
0x1b0d…1b2c Line {l1=0x1d, l2=»2410 IF STATUS(NR3$)<>0 THEN «, l3=0x1d}
0x1b2c…1b52 Line {l1=0x24, l2=»2420 PRINT STATUS(NR3$),NR1,NR2,NR3$«, l3=0x24}
0x1b52…1b5e Line {l1=0x0a, l2=»2430 STOP «, l3=0x0a}
0x1b5e…1b6b Line {l1=0x0b, l2=»2440 ENDIF «, l3=0x0b}
0x1b6b…1b7a Line {l1=0x0d, l2=»2450 ENDPROC «, l3=0x0d}
0x1b7a…1b9f Line {l1=0x23, l2=»2460 PROC TUD(BLB1,UBLB1,TEGN,STØR)«, l3=0x23}
0x1b9f…1bb1 Line {l1=0x10, l2=»2470 BLB2$=BLB1$«, l3=0x10}
0x1bb1…1bd7 Line {l1=0x24, l2=»2480 EXEC CALC(5,BLB2$,TAL4$,UBLB1$)«, l3=0x24}
0x1bd7…1bed Line {l1=0x14, l2=»2490 IF TEGN=0 THEN «, l3=0x14}
0x1bed…1c07 Line {l1=0x18, l2=»2500 UBLB1$=UBLB1$(1:13)«, l3=0x18}
0x1c07…1c13 Line {l1=0x0a, l2=»2510 ELSE «, l3=0x0a}
0x1c13…1c45 Line {l1=0x30, l2=»2520 IF TEGN=1 AND UBLB1$(LEN(UBLB1$))="+" THEN «, l3=0x30}
0x1c45…1c63 Line {l1=0x1c, l2=»2530 UBLB1$(LEN(UBLB1$))=" "«, l3=0x1c}
0x1c63…1c70 Line {l1=0x0b, l2=»2540 ENDIF «, l3=0x0b}
0x1c70…1c7d Line {l1=0x0b, l2=»2550 ENDIF «, l3=0x0b}
0x1c7d…1c93 Line {l1=0x14, l2=»2560 IF STØR=1 THEN «, l3=0x14}
0x1c93…1cb8 Line {l1=0x23, l2=»2570 UBLB1$=UBLB1$(4:LEN(UBLB1$)-3)«, l3=0x23}
0x1cb8…1cc5 Line {l1=0x0b, l2=»2580 ENDIF «, l3=0x0b}
0x1cc5…1cd4 Line {l1=0x0d, l2=»2590 ENDPROC «, l3=0x0d}
0x1cd4…1cf0 Line {l1=0x1a, l2=»2600 K1$="P641220:SYSTEM1"«, l3=0x1a}
0x1cf0…1d01 Line {l1=0x0f, l2=»2610 OPEN K1$,R«, l3=0x0f}
0x1d01…1d1a Line {l1=0x17, l2=»2620 EXEC FEJL(9,1,K1$)«, l3=0x17}
0x1d1a…1d42 Line {l1=0x26, l2=»2630 GET K1$,1:MFANTAL,MDANTAL,MKANTAL«, l3=0x26}
0x1d42…1d5b Line {l1=0x17, l2=»2640 EXEC FEJL(9,2,K1$)«, l3=0x17}
0x1d5b…1d85 Line {l1=0x28, l2=»2650 GET K1$,3:DPOST,KPOST,MFPOST,MDPOST«, l3=0x28}
0x1d85…1d9f Line {l1=0x18, l2=»2660 EXEC FEJL(9,21,K1$)«, l3=0x18}
0x1d9f…1dc5 Line {l1=0x24, l2=»2670 GET K1$,4:MKPOST,MFAK,MVGR,MKGR«, l3=0x24}
0x1dc5…1dde Line {l1=0x17, l2=»2680 EXEC FEJL(9,3,K1$)«, l3=0x17}
0x1dde…1df4 Line {l1=0x14, l2=»2690 GET K1$,5:MKRGR«, l3=0x14}
0x1df4…1e0d Line {l1=0x17, l2=»2700 EXEC FEJL(9,4,K1$)«, l3=0x17}
0x1e0d…1e35 Line {l1=0x26, l2=»2710 GET K1$,8:DIVNR,DIVDNR,DIFNR,DTAL«, l3=0x26}
0x1e35…1e4e Line {l1=0x17, l2=»2720 EXEC FEJL(9,5,K1$)«, l3=0x17}
0x1e4e…1e64 Line {l1=0x14, l2=»2730 GET K1$,9:KRTAL«, l3=0x14}
0x1e64…1e7d Line {l1=0x17, l2=»2740 EXEC FEJL(9,6,K1$)«, l3=0x17}
0x1e7d…1e91 Line {l1=0x12, l2=»2750 GET K1$,10:N$«, l3=0x12}
0x1e91…1eaa Line {l1=0x17, l2=»2760 EXEC FEJL(9,7,K1$)«, l3=0x17}
0x1eaa…1ebe Line {l1=0x12, l2=»2770 FOR I=1 TO 26«, l3=0x12}
0x1ebe…1ed7 Line {l1=0x17, l2=»2780 GET K1$,I+10:K$(I)«, l3=0x17}
0x1ed7…1ef0 Line {l1=0x17, l2=»2790 EXEC FEJL(9,8,K1$)«, l3=0x17}
0x1ef0…1efd Line {l1=0x0b, l2=»2800 NEXT I«, l3=0x0b}
0x1efd…1f0d Line {l1=0x0e, l2=»2810 CLOSE K1$«, l3=0x0e}
0x1f0d…1f27 Line {l1=0x18, l2=»2820 EXEC FEJL(9,11,K1$)«, l3=0x18}
0x1f27…1f67 Line {l1=0x3e, l2=»2830 DIM DSALDI$(MKGR,12),DSALDI1$(MKGR,12),KSALDI1$(MKRGR,12)«, l3=0x3e}
0x1f67…1f83 Line {l1=0x1a, l2=»2840 DIM KSALDI$(MKRGR,12)«, l3=0x1a}
0x1f83…1fca Line {l1=0x45, l2=»2850 K3$=N$+K$(2);K4$=N$+K$(3);K5$=N$+K$(5);K6$=N$+K$(6);K7$=N$+K$(7)«, l3=0x45}
0x1fca…2008 Line {l1=0x3c, l2=»2860 K8$=N$+K$(15);K9$=N$+K$(22);K2$=N$+K$(1);K10$=N$+K$(26)«, l3=0x3c}
0x2008…2051 Line {l1=0x47, l2=»2870 DIM FTAB1(MFANTAL DIV 4),DTAB1(MDANTAL DIV 4),KTAB1(MKANTAL DIV 4)«, l3=0x47}
0x2051…209b Line {l1=0x48, l2=»2880 DIM FTAB(4,2),DTAB(4,2),KTAB(4,2),HFTAB(MFPOST DIV 40,2),UFTAB(4,2)«, l3=0x48}
0x209b…20ad Line {l1=0x10, l2=»2890 OPEN K10$,R«, l3=0x10}
0x20ad…20c8 Line {l1=0x19, l2=»2900 EXEC FEJL(9,12,K10$)«, l3=0x19}
0x20c8…210f Line {l1=0x45, l2=»2910 GET K10$,2:T1(1),T1(2),T1(3),T1(4),T1(5),T1(6),T1(7),T1(8),T1(9)«, l3=0x45}
0x210f…212a Line {l1=0x19, l2=»2920 EXEC FEJL(9,13,K10$)«, l3=0x19}
0x212a…2172 Line {l1=0x46, l2=»2925 GET K10$,13:T2(1),T2(2),T2(3),T2(4),T2(5),T2(6),T2(7),T2(8),T2(9)«, l3=0x46}
0x2172…218d Line {l1=0x19, l2=»2926 EXEC FEJL(9,14,K10$)«, l3=0x19}
0x218d…219e Line {l1=0x0f, l2=»2930 CLOSE K10$«, l3=0x0f}
0x219e…21b9 Line {l1=0x19, l2=»2940 EXEC FEJL(9,15,K10$)«, l3=0x19}
0x21b9…21ca Line {l1=0x0f, l2=»2950 OPEN K2$,R«, l3=0x0f}
0x21ca…21e4 Line {l1=0x18, l2=»2960 EXEC FEJL(9,16,K2$)«, l3=0x18}
0x21e4…21f5 Line {l1=0x0f, l2=»2970 OPEN K3$,R«, l3=0x0f}
0x21f5…220f Line {l1=0x18, l2=»2980 EXEC FEJL(9,18,K3$)«, l3=0x18}
0x220f…2220 Line {l1=0x0f, l2=»2990 OPEN K4$,R«, l3=0x0f}
0x2220…223a Line {l1=0x18, l2=»3000 EXEC FEJL(9,19,K4$)«, l3=0x18}
0x223a…2250 Line {l1=0x14, l2=»3010 FOR I=1 TO MKGR«, l3=0x14}
0x2250…2277 Line {l1=0x25, l2=»3020 DSALDI$(I)="0+";DSALDI1$(I)="0+"«, l3=0x25}
0x2277…2284 Line {l1=0x0b, l2=»3030 NEXT I«, l3=0x0b}
0x2284…229b Line {l1=0x15, l2=»3040 FOR I=1 TO MKRGR«, l3=0x15}
0x229b…22c2 Line {l1=0x25, l2=»3050 KSALDI$(I)="0+";KSALDI1$(I)="0+"«, l3=0x25}
0x22c2…22cf Line {l1=0x0b, l2=»3060 NEXT I«, l3=0x0b}
0x22cf…2307 Line {l1=0x36, l2=»3070 TOSALDO$="0+";TOSALDO1$="0+";SUM$="0+";SUM3$="0+"«, l3=0x36}
0x2307…232d Line {l1=0x24, l2=»3080 EXEC INDTAB1(FTAB1,MFANTAL,K2$)«, l3=0x24}
0x232d…2353 Line {l1=0x24, l2=»3090 EXEC INDTAB1(DTAB1,MDANTAL,K3$)«, l3=0x24}
0x2353…2379 Line {l1=0x24, l2=»3100 EXEC INDTAB1(KTAB1,MKANTAL,K4$)«, l3=0x24}
0x2379…23a2 Line {l1=0x27, l2=»3110 EXEC KINIT(K3$,K6$,DTAB,0,MDANTAL)«, l3=0x27}
0x23a2…23cb Line {l1=0x27, l2=»3120 EXEC KINIT(K4$,K7$,KTAB,2,MKANTAL)«, l3=0x27}
0x23cb…23f4 Line {l1=0x27, l2=»3130 EXEC KINIT(K2$,K5$,FTAB,1,MFANTAL)«, l3=0x27}
0x23f4…2411 Line {l1=0x1b, l2=»3140 EXEC PINIT(K8$,MFPOST)«, l3=0x1b}
0x2411…2440 Line {l1=0x2d, l2=»3150 EXEC TABINIT(K8$,K9$,MFPOST,HFTAB,UFTAB)«, l3=0x2d}
0x2440…2451 Line {l1=0x0f, l2=»3160 OPEN K5$,W«, l3=0x0f}
0x2451…246b Line {l1=0x18, l2=»3170 EXEC FEJL(9,20,K5$)«, l3=0x18}
0x246b…24a4 Line {l1=0x37, l2=»3180 EXEC FINDPOST1(FTAB1,FTAB,MFANTAL,DIFNR,FPIL3,K2$)«, l3=0x37}
0x24a4…24bf Line {l1=0x19, l2=»3190 IF CEKS=1 THEN STOP «, l3=0x19}
0x24bf…24d3 Line {l1=0x12, l2=»3200 EXEC HENTPOST«, l3=0x12}
0x24d3…24fe Line {l1=0x29, l2=»3210 IF TOSALDO$(LEN(TOSALDO$))="-" THEN «, l3=0x29}
0x24fe…252e Line {l1=0x2e, l2=»3220 EXEC CALC(0,FMKREDIT$,TOSALDO$,FMKREDIT$)«, l3=0x2e}
0x252e…255e Line {l1=0x2e, l2=»3230 EXEC CALC(0,FÅKREDIT$,TOSALDO$,FÅKREDIT$)«, l3=0x2e}
0x255e…256a Line {l1=0x0a, l2=»3240 ELSE «, l3=0x0a}
0x256a…2598 Line {l1=0x2c, l2=»3250 EXEC CALC(0,FMDEBET$,TOSALDO$,FMDEBET$)«, l3=0x2c}
0x2598…25c6 Line {l1=0x2c, l2=»3260 EXEC CALC(0,FÅDEBET$,TOSALDO$,FÅDEBET$)«, l3=0x2c}
0x25c6…25d3 Line {l1=0x0b, l2=»3270 ENDIF «, l3=0x0b}
0x25d3…25e7 Line {l1=0x12, l2=»3280 EXEC GEMFPOST«, l3=0x12}
0x25e7…2622 Line {l1=0x39, l2=»3290 TKODE$=CHR(10+48);TEKST$="Årsafslutnings difference"«, l3=0x39}
0x2622…2633 Line {l1=0x0f, l2=»3300 OPEN K8$,W«, l3=0x0f}
0x2633…264d Line {l1=0x18, l2=»3310 EXEC FEJL(9,21,K8$)«, l3=0x18}
0x264d…267c Line {l1=0x2d, l2=»3320 PUT K8$,1:DIFNR,T1(7),-1,TKODE$,TOSALDO$«, l3=0x2d}
0x267c…2696 Line {l1=0x18, l2=»3330 EXEC FEJL(9,22,K8$)«, l3=0x18}
0x2696…26b3 Line {l1=0x1b, l2=»3340 PUT K8$,2:DIFNR,TEKST$«, l3=0x1b}
0x26b3…26cd Line {l1=0x18, l2=»3350 EXEC FEJL(9,23,K8$)«, l3=0x18}
0x26cd…26dd Line {l1=0x0e, l2=»3360 CLOSE K8$«, l3=0x0e}
0x26dd…26f7 Line {l1=0x18, l2=»3370 EXEC FEJL(9,24,K8$)«, l3=0x18}
0x26f7…2705 Line {l1=0x0c, l2=»3380 T2(5)=2«, l3=0x0c}
0x2705…2717 Line {l1=0x10, l2=»3381 OPEN K10$,W«, l3=0x10}
0x2717…2732 Line {l1=0x19, l2=»3382 EXEC FEJL(9,25,K10$)«, l3=0x19}
0x2732…277a Line {l1=0x46, l2=»3383 PUT K10$,13:T2(1),T2(2),T2(3),T2(4),T2(5),T2(6),T2(7),T2(8),T2(9)«, l3=0x46}
0x277a…2795 Line {l1=0x19, l2=»3384 EXEC FEJL(9,26,K10$)«, l3=0x19}
0x2795…27a6 Line {l1=0x0f, l2=»3385 CLOSE K10$«, l3=0x0f}
0x27a6…27c1 Line {l1=0x19, l2=»3386 EXEC FEJL(9,27,K10$)«, l3=0x19}
0x27c1…27df Line {l1=0x1c, l2=»3390 EXEC DATOUD(T1(7),DAT$)«, l3=0x1c}
0x27df…27ec Line {l1=0x0b, l2=»3400 CLEAR «, l3=0x0b}
0x27ec…27fa Line {l1=0x0c, l2=»3410 REPEAT «, l3=0x0c}
0x27fa…280d Line {l1=0x11, l2=»3420 CURSOR 15,13«, l3=0x11}
0x280d…2847 Line {l1=0x38, l2=»3430 INPUT "Monter papir til udskrift og tast RETURN",A$«, l3=0x38}
0x2847…285d Line {l1=0x14, l2=»3440 EXEC NRTEST(A$)«, l3=0x14}
0x285d…286e Line {l1=0x0f, l2=»3450 UNTIL P=-1«, l3=0x0f}
0x286e…287d Line {l1=0x0d, l2=»3460 OUTPUT P«, l3=0x0d}
0x287d…28c2 Line {l1=0x43, l2=»3470 PRINT TAB(10);CHR(14);"Årsafslutningsjournal";CHR(15);TAB(40);«, l3=0x43}
0x28c2…28dc Line {l1=0x18, l2=»3480 PRINT "DATO: ";DAT$«, l3=0x18}
0x28dc…28f0 Line {l1=0x12, l2=»3490 PRINT CHR(10)«, l3=0x12}
0x28f0…2939 Line {l1=0x47, l2=»3500 PRINT TAB(5);"Gr. Totaler Deb. ";TAB(37);"Gr.Total Deb.";«, l3=0x47}
0x2939…295a Line {l1=0x1f, l2=»3510 PRINT TAB(60);"Difference"«, l3=0x1f}
0x295a…296a Line {l1=0x0e, l2=»3520 PRINT " "«, l3=0x0e}
0x296a…2981 Line {l1=0x15, l2=»3530 FOR GR=1 TO MKGR«, l3=0x15}
0x2981…29b2 Line {l1=0x2f, l2=»3540 EXEC CALC(1,DSALDI$(GR),DSALDI1$(GR),SUM$)«, l3=0x2f}
0x29b2…29db Line {l1=0x27, l2=»3550 EXEC TUD(DSALDI$(GR),UBELØB1$,1,0)«, l3=0x27}
0x29db…2a05 Line {l1=0x28, l2=»3560 EXEC TUD(DSALDI1$(GR),UBELØB2$,1,0)«, l3=0x28}
0x2a05…2a16 Line {l1=0x0f, l2=»3570 EXEC UDLIN«, l3=0x0f}
0x2a16…2a24 Line {l1=0x0c, l2=»3580 NEXT GR«, l3=0x0c}
0x2a24…2a38 Line {l1=0x12, l2=»3590 PRINT CHR(10)«, l3=0x12}
0x2a38…2a81 Line {l1=0x47, l2=»3600 PRINT TAB(5);"Gr. Totaler Kre. ";TAB(37);"Gr.Total Kre.";«, l3=0x47}
0x2a81…2aa2 Line {l1=0x1f, l2=»3610 PRINT TAB(60);"Difference"«, l3=0x1f}
0x2aa2…2ab2 Line {l1=0x0e, l2=»3620 PRINT " "«, l3=0x0e}
0x2ab2…2aca Line {l1=0x16, l2=»3630 FOR GR=1 TO MKRGR«, l3=0x16}
0x2aca…2afb Line {l1=0x2f, l2=»3640 EXEC CALC(1,KSALDI$(GR),KSALDI1$(GR),SUM$)«, l3=0x2f}
0x2afb…2b24 Line {l1=0x27, l2=»3650 EXEC TUD(KSALDI$(GR),UBELØB1$,1,0)«, l3=0x27}
0x2b24…2b4e Line {l1=0x28, l2=»3660 EXEC TUD(KSALDI1$(GR),UBELØB2$,1,0)«, l3=0x28}
0x2b4e…2b5f Line {l1=0x0f, l2=»3670 EXEC UDLIN«, l3=0x0f}
0x2b5f…2b6d Line {l1=0x0c, l2=»3680 NEXT GR«, l3=0x0c}
0x2b6d…2b81 Line {l1=0x12, l2=»3690 PRINT CHR(10)«, l3=0x12}
0x2b81…2bcf Line {l1=0x4c, l2=»3700 PRINT TAB(5);"Total Deb+Kre.";TAB(40);"Total Fin.";TAB(60);"Difference"«, l3=0x4c}
0x2bcf…2bdf Line {l1=0x0e, l2=»3710 PRINT " "«, l3=0x0e}
0x2bdf…2c0b Line {l1=0x2a, l2=»3720 EXEC CALC(0,TOSALDO1$,TOSALDO$,SUM3$)«, l3=0x2a}
0x2c0b…2c32 Line {l1=0x25, l2=»3730 EXEC TUD(TOSALDO1$,UBELØB1$,1,0)«, l3=0x25}
0x2c32…2c58 Line {l1=0x24, l2=»3740 EXEC TUD(TOSALDO$,UBELØB2$,1,0)«, l3=0x24}
0x2c58…2c78 Line {l1=0x1e, l2=»3750 EXEC TUD(SUM3$,SUM1$,1,0)«, l3=0x1e}
0x2c78…2ca6 Line {l1=0x2c, l2=»3760 PRINT TAB(6);UBELØB1$;TAB(37);UBELØB2$;«, l3=0x2c}
0x2ca6…2cc0 Line {l1=0x18, l2=»3770 PRINT TAB(57);SUM1$«, l3=0x18}
0x2cc0…2cd0 Line {l1=0x0e, l2=»3780 PRINT " "«, l3=0x0e}
0x2cd0…2d13 Line {l1=0x41, l2=»3790 PRINT TAB(5);"Bogført på difference konto:";TAB(57);UBELØB2$«, l3=0x41}
0x2d13…2d35 Line {l1=0x20, l2=»3800 FOR I=1 TO 48-15-MKGR-MKRGR«, l3=0x20}
0x2d35…2d45 Line {l1=0x0e, l2=»3810 PRINT " "«, l3=0x0e}
0x2d45…2d52 Line {l1=0x0b, l2=»3820 NEXT I«, l3=0x0b}
0x2d52…2d61 Line {l1=0x0d, l2=»3830 OUTPUT T«, l3=0x0d}
0x2d61…2d6e Line {l1=0x0b, l2=»3840 CLEAR «, l3=0x0b}
0x2d6e…2d8c Line {l1=0x1c, l2=»3850 CHAIN "P641210:OPSTART"«, l3=0x1c}
0x2d8c…2da0 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ cccccccccccccccccc┆
0x2da0…2dc0 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┆
[…0x1d…]