|
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: 10112 (0x2780)
Types: TextFile
Notes: Mikados_K
Names: »DEBLIST.K«
└─⟦ec8c1e0b0⟧ Bits:30007442 8" floppy ( MIKPROG vol. 1-3, MIKREL vol. 1-3, PCSE 4.7.80 vol 1-3, GL.SYS )
└─⟦this⟧ »DEBLIST.K«
0100 DIM K1$(17),N$(6),K2$(17),K3$(17),DEBNAVN$(25),DSALDO1$(12),DEBKGR$(2) 0110 DIM DSALDO2$(12),DSALDO3$(12),DSALDO4$(12),DEBLK$(2),DEBGADE$(25) 0120 DIM BLANK$(77),A$(1),TAL4$(14),TAH$(12),T1(9),DEBTLF$(9),DEBBY$(20) 0130 DIM RES$(14),ÅRKØB$(12),MDNKØB$(12),DSALDI$(12),LK$(3),KG$(3),KTN$(6) 0140 DIM PNR$(6),TY$(1),OP1$(12),OP2$(12),TA$(12),TB$(14),TÅRKØB$(12) 0150 DIM SUM$(12),SUM1$(12),SUM2$(12),SUM3$(12),SUM4$(12),SUM5$(12),SUM6$(12) 0160 DIM TAL1$(14),TAL2$(14),TAL3$(14),KS$(5),DAT$(8),STREG$(78),K4$(17) 0170 DIM K5$(17),LAND$(9,12) 0180 PROC CALC(ART,B1,B2,ES) 0190 OP1$=B1$ 0200 OP2$=B2$ 0210 RES$=ES$ 0220 SI=0 0230 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 INDTAB(T,MANTAL,L10) 0350 J=MANTAL DIV 32+1 0360 FOR I=J TO MANTAL DIV 4+J-1 0370 H=(I-J)*4+1;H1=H+1;H2=H+2;H3=H+3 0380 GET L10$,I:T(H,1),T(H,2),T(H1,1),T(H1,2),T(H2,1),T(H2,2),T(H3,1),T(H3,2) 0390 EXEC FEJL(1,1,L10$) 0400 NEXT I 0410 ENDPROC 0420 PROC HENTDPOST 0430 S=DTAB(DPIL3,2) 0440 GET K3$,S:DEBNR,DEBNAVN$,DSALDO1$,DEBKGR$ 0450 EXEC FEJL(8,2,K3$) 0460 GET K3$,S+1:DSALDO2$,DSALDO3$,DSALDO4$,DPOSTNR,DEBLK$ 0470 EXEC FEJL(8,3,K3$) 0480 GET K3$,S+2:DEBGADE$,DEBTLF$,HPOST,HKUNDE 0490 EXEC FEJL(8,4,K3$) 0500 GET K3$,S+3:DEBBY$,ÅRKØB$,MDNKØB$ 0510 EXEC FEJL(8,5,K3$) 0520 ENDPROC 0530 PROC TUD(BLB,UBLB,TEGN,STØR) 0540 EXEC CALC(5,BLB$,TAH$,UBLB$) 0550 IF TEGN=0 THEN 0560 UBLB$=UBLB$(1:13) 0570 ELSE 0580 IF TEGN=1 AND UBLB$(LEN(UBLB$))="+" THEN 0590 UBLB$(LEN(UBLB$))=" " 0600 ENDIF 0610 ENDIF 0620 IF STØR=1 THEN UBLB$=UBLB$(4:LEN(UBLB$)-3) 0630 ENDPROC 0640 PROC HOVED(GR) 0650 LINIE=LINIE+1 0660 IF LINIE MOD (13*(1+2*(TYPE=2)))=1 THEN 0670 IF LINIE<>1 THEN PRINT CHR(10);CHR(10) 0680 IF LINIE<>1 AND TYPE=2 THEN PRINT " " 0690 SIDENR=SIDENR+1 0700 PRINT CHR(14);" Debitor"+KS$+"liste";CHR(15);TAB(25); 0710 IF GR>0 THEN 0720 PRINT USING "Gruppe:###":GR; 0730 ENDIF 0740 PRINT TAB(37);"Dato: ";DAT$; 0750 PRINT USING " Side:###":SIDENR 0760 PRINT CHR(10) 0770 IF TYPE=2 THEN 0780 PRINT " KONTO NAVN";TAB(37);"POSTNR BY";TAB(67);"TLF" 0790 PRINT STREG$ 0800 ELSE 0810 PRINT " KONTO TLF";TAB(28);"SALDO IALT";TAB(44);"0-30 DAGE"; 0820 PRINT TAB(56);"60-90 DAGE MÅNEDENS KØB" 0830 PRINT " NAVN";TAB(43);"30-60 DAGE ÆLDRE ÅRETS KØB" 0840 PRINT STREG$ 0850 ENDIF 0860 ENDIF 0870 ENDPROC 0880 PROC BUND 0890 FOR LINIE=LINIE+1 TO 13*(1+2*(TYPE=2))*SIDENR 0900 IF TYPE=1 THEN 0910 PRINT CHR(10);CHR(10) 0920 ELSE 0930 PRINT " " 0940 ENDIF 0950 NEXT LINIE 0960 IF TYPE=1 THEN 0970 EXEC TUD(SUM$,TAL1$,1,0) 0980 EXEC TUD(SUM1$,TAL2$,1,0) 0990 EXEC TUD(SUM3$,TAL3$,1,0) 1000 EXEC TUD(SUM5$,TAL4$,1,0) 1010 PRINT TAB(10);CHR(14);"Total";CHR(15);TAB(21);TAL1$,TAB(35);TAL2$; 1020 PRINT TAB(49);TAL3$;TAB(63);TAL4$ 1030 EXEC TUD(SUM2$,TAL1$,1,0) 1040 EXEC TUD(SUM4$,TAL2$,1,0) 1050 EXEC TUD(SUM6$,TAL3$,1,0) 1060 PRINT TAB(38);TAL1$;TAB(52);TAL2$;TAB(66);TAL3$ 1070 PRINT " " 1080 ELSE 1090 PRINT CHR(10) 1100 PRINT CHR(10) 1110 ENDIF 1120 ENDPROC 1130 PROC UDSKRIV 1140 CASE TYPE OF 1150 WHEN 1 1160 EXEC CALC(0,DSALDO1$,DSALDO2$,DSALDI$) 1170 EXEC CALC(0,DSALDI$,DSALDO3$,DSALDI$) 1180 EXEC CALC(0,DSALDI$,DSALDO4$,DSALDI$) 1190 EXEC CALC(0,SUM$,DSALDI$,SUM$) 1200 EXEC CALC(0,SUM1$,DSALDO1$,SUM1$) 1210 EXEC CALC(0,SUM2$,DSALDO2$,SUM2$) 1220 EXEC CALC(0,SUM3$,DSALDO3$,SUM3$) 1230 EXEC CALC(0,SUM4$,DSALDO4$,SUM4$) 1240 EXEC CALC(0,SUM5$,MDNKØB$,SUM5$) 1250 TÅRKØB$=ÅRKØB$ 1260 EXEC CALC(0,SUM6$,TÅRKØB$,SUM6$) 1270 EXEC TUD(DSALDI$,TAL1$,1,0) 1280 EXEC TUD(DSALDO1$,TAL2$,1,0) 1290 EXEC TUD(DSALDO3$,TAL3$,1,0) 1300 EXEC TUD(MDNKØB$,TAL4$,1,0) 1310 PRINT USING "###### ":DEBNR; 1320 PRINT DEBTLF$; 1330 PRINT TAB(24);TAL1$;TAB(38);TAL2$;TAB(52);TAL3$;TAB(66);TAL4$ 1340 EXEC TUD(DSALDO2$,TAL1$,1,0) 1350 EXEC TUD(DSALDO4$,TAL2$,1,0) 1360 EXEC TUD(TÅRKØB$,TAL3$,1,0) 1370 PRINT " ";DEBNAVN$;TAB(38);TAL1$;TAB(52);TAL2$;TAB(66);TAL3$ 1380 PRINT " " 1390 WHEN 2 1400 PRINT USING "###### ":DEBNR; 1410 PRINT DEBNAVN$;TAB(34); 1420 PRINT USING "####### ":DPOSTNR; 1430 PRINT DEBBY$;TAB(67);DEBTLF$ 1440 WHEN 3 1450 FOR I=1 TO 4 1460 PRINT CHR(10) 1470 NEXT I 1480 PRINT USING "###### ":DEBNR; 1490 PRINT DEBNAVN$;" " 1500 PRINT " " 1510 PRINT TAB(10);DEBGADE$;" " 1520 PRINT " " 1530 PRINT TAB(7); 1540 PRINT USING "######## ":DPOSTNR; 1550 PRINT DEBBY$;" " 1560 IF DEBLK$>"0" AND DEBLK$<="9" THEN 1570 PRINT " " 1580 PRINT TAB(9);LAND$(ORD(DEBLK$)-48) 1590 ELSE 1600 PRINT CHR(10) 1610 ENDIF 1620 PRINT CHR(10);CHR(10) 1630 ENDCASE 1640 ENDPROC 1650 PROC FINDPOST(TAB1,MANT1,NØGL1,PIL3) 1660 PIL1=MANT1 DIV 2;PIL3=PIL1;CEKS=1 1670 REPEAT 1680 IF NØGL1=TAB1(PIL3,1) OR PIL1=1 THEN EXIT 1690 PIL1=(PIL1+1) DIV 2;PIL3=PIL3+PIL1*(1-2*(NØGL1<TAB1(PIL3,1))) 1700 IF PIL3<1 THEN PIL3=1 1710 IF PIL3>MANT1 THEN PIL3=MANT1 1720 UNTIL PIL1=0 1730 IF NØGL1=TAB1(PIL3,1) THEN CEKS=0 1740 ENDPROC 1750 PROC NRTEST(NUM) 1760 P=0;TEST2=0;KTAL=0;L=LEN(NUM$) 1770 CASE L OF 1780 FOR J=1 TO L 1790 P1=INT(ORD(NUM$(J))-48) 1800 IF P1=>0 AND P1<=9 THEN 1810 P=P*10+P1 1820 ELSE 1830 TEST2=1 1840 ENDIF 1850 NEXT J 1860 KTAL=P DIV 10000 1870 WHEN 0 1880 P=-1 1890 WHEN 1 1900 CASE NUM$ OF 1910 P=INT(ORD(NUM$)-48) 1920 WHEN "j","J" 1930 P=-7 1940 WHEN "n","N" 1950 P=-8 1960 ENDCASE 1970 ENDCASE 1980 ENDPROC 1990 K1$="P641220:SYSTEM1" 2000 OPEN K1$,R 2010 EXEC FEJL(9,1,K1$) 2020 GET K1$,1:MFANTAL,MDANTAL 2030 EXEC FEJL(9,2,K1$) 2040 GET K1$,4:MKPOST,MFAK,MVGR,MKGR 2050 EXEC FEJL(9,3,K1$) 2060 GET K1$,8:DIVNR,DIVDNR,DIFNR,DTAL 2070 EXEC FEJL(9,4,K1$) 2080 GET K1$,10:N$ 2090 EXEC FEJL(9,5,K1$) 2100 GET K1$,12:K2$ 2110 EXEC FEJL(9,6,K1$) 2120 GET K1$,16:K3$ 2130 EXEC FEJL(9,7,K1$) 2140 GET K1$,35:K4$ 2150 EXEC FEJL(9,8,K1$) 2160 GET K1$,36:K5$ 2170 EXEC FEJL(9,9,K1$) 2180 CLOSE K1$ 2190 EXEC FEJL(9,10,K1$) 2200 K2$=N$+K2$;K3$=N$+K3$;K4$=N$+K4$;K5$=N$+K5$ 2210 OPEN K5$,R 2220 EXEC FEJL(9,11,K5$) 2230 GET K5$,2:T1(1),T1(2),T1(3),T1(4),T1(5),T1(6),T1(7),T1(8),T1(9) 2240 EXEC FEJL(9,12,K5$) 2250 FOR I=1 TO 3 2260 H=(I-1)*3+1 2270 GET K5$,I+2:LAND$(H),LAND$(H+1),LAND$(H+2) 2280 EXEC FEJL(9,13,K5$) 2290 NEXT I 2300 GET K5$,14:AFIN,ADEB 2310 EXEC FEJL(9,14,K5$) 2320 DIM DTAB(MDANTAL,2),KARRAY(MKGR) 2330 OPEN K4$,R 2340 EXEC FEJL(9,15,K4$) 2350 FOR I=1 TO MKGR DIV 5 2360 J=(I-1)*5+1 2370 GET K4$,I:KARRAY(J),KARRAY(J+1),KARRAY(J+2),KARRAY(J+3),KARRAY(J+4) 2380 EXEC FEJL(9,16,K4$) 2390 NEXT I 2400 CLOSE K4$ 2410 EXEC FEJL(9,12,K4$) 2420 OPEN K2$,R 2430 EXEC FEJL(9,18,K2$) 2440 OPEN K3$,R 2450 EXEC FEJL(9,19,K3$) 2460 EXEC INDTAB(DTAB,MDANTAL,K2$) 2470 DA=T1(7) 2480 DAT$=" " 2490 FOR J=8 TO 1 STEP -1 2500 IF J MOD 3=0 THEN 2510 DAT$(J)="." 2520 ELSE 2530 DAT$(J)=CHR(DA MOD 10+48) 2540 DA=DA DIV 10 2550 ENDIF 2560 NEXT J 2570 STREG$="---------------------------------------";STREG$=STREG$+STREG$ 2580 REPEAT 2590 SUM$="0+";SUM1$="0+";SUM2$="0+";SUM3$="0+";SUM4$="0+";SUM5$="0+" 2600 SUM6$="0+";LINIE=0;SIDENR=0 2610 OUTPUT T 2620 CLEAR 2630 CURSOR 20,1 2640 PRINT "Debitorudskrifter" 2650 CURSOR 11,6 2660 PRINT "0: Færdig" 2670 CURSOR 11,8 2680 PRINT "1: Saldoliste" 2690 CURSOR 11,10 2700 PRINT "2: Kontoliste" 2710 CURSOR 11,12 2720 PRINT "3: Labels" 2730 REPEAT 2740 CURSOR 13,14 2750 INPUT "Vælg type :",A$ 2760 EXEC NRTEST(A$) 2770 UNTIL P>-1 AND P<4 2780 TYPE=P 2790 IF TYPE=0 THEN EXIT 2800 REPEAT 2810 CURSOR 13,17 2820 PRINT "Ordnet efter : (1: Gruppe , 2: Nr)" 2830 CURSOR 26,17 2840 INPUT A$ 2850 EXEC NRTEST(A$) 2860 UNTIL P=1 OR P=2 2870 ORDEN=P 2880 REPEAT 2890 REPEAT 2900 CURSOR 13,19 2910 IF ORDEN=1 THEN 2920 PRINT "Fra gruppenr : (0: Alle)" 2930 ELSE 2940 PRINT "Fra kontonr : (0: Alle)" 2950 ENDIF 2960 CURSOR 26,19 2970 INPUT KTN$ 2980 EXEC NRTEST(KTN$) 2990 UNTIL P=0 OR (P>0 AND P<=MKGR AND ORDEN=1) OR (KTAL=DTAL AND ORDEN=2) 3000 IF ORDEN=1 THEN 3010 IF P=0 THEN 3020 FRA=1;TIL=MKGR 3030 ELSE 3040 FRA=P 3050 ENDIF 3060 ELSE 3070 IF P=0 THEN 3080 FRA=1;TIL=ADEB 3090 ELSE 3100 IF DTAB(ADEB,1)<P THEN 3110 FRA=0 3120 ELSE 3130 EXEC FINDPOST(DTAB,MDANTAL,P,DPIL3) 3140 IF CEKS=0 THEN 3150 FRA=DPIL3 3160 ELSE 3170 FRA=DPIL3+1 3180 ENDIF 3190 ENDIF 3200 ENDIF 3210 ENDIF 3220 UNTIL FRA<>0 3230 IF P>0 THEN 3240 REPEAT 3250 REPEAT 3260 CURSOR 13,21 3270 IF ORDEN=1 THEN 3280 INPUT "Til gruppenr :",KTN$ 3290 ELSE 3300 INPUT "Til kontonr :",KTN$ 3310 ENDIF 3320 EXEC NRTEST(KTN$) 3330 UNTIL (P>0 AND P<=MKGR AND ORDEN=1) OR (KTAL=DTAL AND ORDEN=2) 3340 IF ORDEN=1 THEN 3350 TIL=P 3360 ELSE 3370 IF DTAB(ADEB,1)<P THEN 3380 TIL=ADEB 3390 ELSE 3400 EXEC FINDPOST(DTAB,MDANTAL,P,DPIL3) 3410 TIL=DPIL3 3420 ENDIF 3430 ENDIF 3440 UNTIL FRA<=TIL 3450 ENDIF 3460 CLEAR 3470 REPEAT 3480 CURSOR 18,13 3490 INPUT "Monter lister til udskrift og tast RETURN",A$ 3500 UNTIL ORD(A$)=255 3510 IF TYPE=1 THEN KS$="saldo" 3520 IF TYPE=2 THEN KS$="konto" 3530 OUTPUT P 3540 IF ORDEN=1 THEN 3550 FOR H=FRA TO TIL 3560 SUM1$="0+";SUM2$="0+";SUM3$="0+";SUM4$="0+";SUM5$="0+";SUM6$="0+" 3570 SUM$="0+";LINIE=0;SIDENR=0 3580 HKUNDE=KARRAY(H) 3590 REPEAT 3600 IF HKUNDE=0 THEN EXIT 3610 IF TYPE<>3 THEN 3620 EXEC HOVED(H) 3630 ENDIF 3640 EXEC FINDPOST(DTAB,MDANTAL,HKUNDE,DPIL3) 3650 EXEC HENTDPOST 3660 EXEC UDSKRIV 3670 UNTIL HKUNDE=0 3680 IF TYPE<>3 AND KARRAY(H)<>0 THEN 3690 EXEC BUND 3700 ENDIF 3710 NEXT H 3720 ELSE 3730 FOR DPIL3=FRA TO TIL 3740 IF TYPE<>3 THEN 3750 EXEC HOVED(0) 3760 ENDIF 3770 EXEC HENTDPOST 3780 EXEC UDSKRIV 3790 NEXT DPIL3 3800 IF TYPE<>3 THEN 3810 EXEC BUND 3820 ENDIF 3830 ENDIF 3840 UNTIL TYPE=0 3850 CHAIN "P641210:OPSTART"
0x0000…004d Line {l1=0x4b, l2=»0100 DIM K1$(17),N$(6),K2$(17),K3$(17),DEBNAVN$(25),DSALDO1$(12),DEBKGR$(2)«, l3=0x4b}
0x004d…0095 Line {l1=0x46, l2=»0110 DIM DSALDO2$(12),DSALDO3$(12),DSALDO4$(12),DEBLK$(2),DEBGADE$(25)«, l3=0x46}
0x0095…00df Line {l1=0x48, l2=»0120 DIM BLANK$(77),A$(1),TAL4$(14),TAH$(12),T1(9),DEBTLF$(9),DEBBY$(20)«, l3=0x48}
0x00df…012b Line {l1=0x4a, l2=»0130 DIM RES$(14),ÅRKØB$(12),MDNKØB$(12),DSALDI$(12),LK$(3),KG$(3),KTN$(6)«, l3=0x4a}
0x012b…0172 Line {l1=0x45, l2=»0140 DIM PNR$(6),TY$(1),OP1$(12),OP2$(12),TA$(12),TB$(14),TÅRKØB$(12)«, l3=0x45}
0x0172…01c1 Line {l1=0x4d, l2=»0150 DIM SUM$(12),SUM1$(12),SUM2$(12),SUM3$(12),SUM4$(12),SUM5$(12),SUM6$(12)«, l3=0x4d}
0x01c1…020b Line {l1=0x48, l2=»0160 DIM TAL1$(14),TAL2$(14),TAL3$(14),KS$(5),DAT$(8),STREG$(78),K4$(17)«, l3=0x48}
0x020b…0229 Line {l1=0x1c, l2=»0170 DIM K5$(17),LAND$(9,12)«, l3=0x1c}
0x0229…0247 Line {l1=0x1c, l2=»0180 PROC CALC(ART,B1,B2,ES)«, l3=0x1c}
0x0247…0256 Line {l1=0x0d, l2=»0190 OP1$=B1$«, l3=0x0d}
0x0256…0265 Line {l1=0x0d, l2=»0200 OP2$=B2$«, l3=0x0d}
0x0265…0274 Line {l1=0x0d, l2=»0210 RES$=ES$«, l3=0x0d}
0x0274…027f Line {l1=0x09, l2=»0220 SI=0«, l3=0x09}
0x027f…028c Line {l1=0x0b, l2=»0230 FLAG=0«, l3=0x0b}
0x028c…02a6 Line {l1=0x18, l2=»0240 CALL "P641210:REGN"«, l3=0x18}
0x02a6…02b5 Line {l1=0x0d, l2=»0250 ES$=RES$«, l3=0x0d}
0x02b5…02ce Line {l1=0x17, l2=»0260 IF FLAG THEN STOP «, l3=0x17}
0x02ce…02dd Line {l1=0x0d, l2=»0270 ENDPROC «, l3=0x0d}
0x02dd…02fa Line {l1=0x1b, l2=»0280 PROC FEJL(NR1,NR2,NR3)«, l3=0x1b}
0x02fa…0319 Line {l1=0x1d, l2=»0290 IF STATUS(NR3$)<>0 THEN «, l3=0x1d}
0x0319…033f Line {l1=0x24, l2=»0300 PRINT STATUS(NR3$),NR1,NR2,NR3$«, l3=0x24}
0x033f…034b Line {l1=0x0a, l2=»0310 STOP «, l3=0x0a}
0x034b…0358 Line {l1=0x0b, l2=»0320 ENDIF «, l3=0x0b}
0x0358…0367 Line {l1=0x0d, l2=»0330 ENDPROC «, l3=0x0d}
0x0367…0387 Line {l1=0x1e, l2=»0340 PROC INDTAB(T,MANTAL,L10)«, l3=0x1e}
0x0387…039f Line {l1=0x16, l2=»0350 J=MANTAL DIV 32+1«, l3=0x16}
0x039f…03c1 Line {l1=0x20, l2=»0360 FOR I=J TO MANTAL DIV 4+J-1«, l3=0x20}
0x03c1…03e8 Line {l1=0x25, l2=»0370 H=(I-J)*4+1;H1=H+1;H2=H+2;H3=H+3«, l3=0x25}
0x03e8…0437 Line {l1=0x4d, l2=»0380 GET L10$,I:T(H,1),T(H,2),T(H1,1),T(H1,2),T(H2,1),T(H2,2),T(H3,1),T(H3,2)«, l3=0x4d}
0x0437…0451 Line {l1=0x18, l2=»0390 EXEC FEJL(1,1,L10$)«, l3=0x18}
0x0451…045e Line {l1=0x0b, l2=»0400 NEXT I«, l3=0x0b}
0x045e…046d Line {l1=0x0d, l2=»0410 ENDPROC «, l3=0x0d}
0x046d…0482 Line {l1=0x13, l2=»0420 PROC HENTDPOST«, l3=0x13}
0x0482…0498 Line {l1=0x14, l2=»0430 S=DTAB(DPIL3,2)«, l3=0x14}
0x0498…04c8 Line {l1=0x2e, l2=»0440 GET K3$,S:DEBNR,DEBNAVN$,DSALDO1$,DEBKGR$«, l3=0x2e}
0x04c8…04e1 Line {l1=0x17, l2=»0450 EXEC FEJL(8,2,K3$)«, l3=0x17}
0x04e1…051d Line {l1=0x3a, l2=»0460 GET K3$,S+1:DSALDO2$,DSALDO3$,DSALDO4$,DPOSTNR,DEBLK$«, l3=0x3a}
0x051d…0536 Line {l1=0x17, l2=»0470 EXEC FEJL(8,3,K3$)«, l3=0x17}
0x0536…0566 Line {l1=0x2e, l2=»0480 GET K3$,S+2:DEBGADE$,DEBTLF$,HPOST,HKUNDE«, l3=0x2e}
0x0566…057f Line {l1=0x17, l2=»0490 EXEC FEJL(8,4,K3$)«, l3=0x17}
0x057f…05a7 Line {l1=0x26, l2=»0500 GET K3$,S+3:DEBBY$,ÅRKØB$,MDNKØB$«, l3=0x26}
0x05a7…05c0 Line {l1=0x17, l2=»0510 EXEC FEJL(8,5,K3$)«, l3=0x17}
0x05c0…05cf Line {l1=0x0d, l2=»0520 ENDPROC «, l3=0x0d}
0x05cf…05f2 Line {l1=0x21, l2=»0530 PROC TUD(BLB,UBLB,TEGN,STØR)«, l3=0x21}
0x05f2…0615 Line {l1=0x21, l2=»0540 EXEC CALC(5,BLB$,TAH$,UBLB$)«, l3=0x21}
0x0615…062b Line {l1=0x14, l2=»0550 IF TEGN=0 THEN «, l3=0x14}
0x062b…0643 Line {l1=0x16, l2=»0560 UBLB$=UBLB$(1:13)«, l3=0x16}
0x0643…064f Line {l1=0x0a, l2=»0570 ELSE «, l3=0x0a}
0x064f…067f Line {l1=0x2e, l2=»0580 IF TEGN=1 AND UBLB$(LEN(UBLB$))="+" THEN «, l3=0x2e}
0x067f…069b Line {l1=0x1a, l2=»0590 UBLB$(LEN(UBLB$))=" "«, l3=0x1a}
0x069b…06a8 Line {l1=0x0b, l2=»0600 ENDIF «, l3=0x0b}
0x06a8…06b5 Line {l1=0x0b, l2=»0610 ENDIF «, l3=0x0b}
0x06b5…06e6 Line {l1=0x2f, l2=»0620 IF STØR=1 THEN UBLB$=UBLB$(4:LEN(UBLB$)-3)«, l3=0x2f}
0x06e6…06f5 Line {l1=0x0d, l2=»0630 ENDPROC «, l3=0x0d}
0x06f5…070a Line {l1=0x13, l2=»0640 PROC HOVED(GR)«, l3=0x13}
0x070a…071e Line {l1=0x12, l2=»0650 LINIE=LINIE+1«, l3=0x12}
0x071e…074d Line {l1=0x2d, l2=»0660 IF LINIE MOD (13*(1+2*(TYPE=2)))=1 THEN «, l3=0x2d}
0x074d…077a Line {l1=0x2b, l2=»0670 IF LINIE<>1 THEN PRINT CHR(10);CHR(10)«, l3=0x2b}
0x077a…07a6 Line {l1=0x2a, l2=»0680 IF LINIE<>1 AND TYPE=2 THEN PRINT " "«, l3=0x2a}
0x07a6…07bc Line {l1=0x14, l2=»0690 SIDENR=SIDENR+1«, l3=0x14}
0x07bc…07fb Line {l1=0x3d, l2=»0700 PRINT CHR(14);" Debitor"+KS$+"liste";CHR(15);TAB(25);«, l3=0x3d}
0x07fb…080f Line {l1=0x12, l2=»0710 IF GR>0 THEN «, l3=0x12}
0x080f…0832 Line {l1=0x21, l2=»0720 PRINT USING "Gruppe:###":GR;«, l3=0x21}
0x0832…083f Line {l1=0x0b, l2=»0730 ENDIF «, l3=0x0b}
0x083f…0862 Line {l1=0x21, l2=»0740 PRINT TAB(37);"Dato: ";DAT$;«, l3=0x21}
0x0862…0887 Line {l1=0x23, l2=»0750 PRINT USING " Side:###":SIDENR«, l3=0x23}
0x0887…089b Line {l1=0x12, l2=»0760 PRINT CHR(10)«, l3=0x12}
0x089b…08b1 Line {l1=0x14, l2=»0770 IF TYPE=2 THEN «, l3=0x14}
0x08b1…08ef Line {l1=0x3c, l2=»0780 PRINT " KONTO NAVN";TAB(37);"POSTNR BY";TAB(67);"TLF"«, l3=0x3c}
0x08ef…0902 Line {l1=0x11, l2=»0790 PRINT STREG$«, l3=0x11}
0x0902…090e Line {l1=0x0a, l2=»0800 ELSE «, l3=0x0a}
0x090e…0953 Line {l1=0x43, l2=»0810 PRINT " KONTO TLF";TAB(28);"SALDO IALT";TAB(44);"0-30 DAGE";«, l3=0x43}
0x0953…0981 Line {l1=0x2c, l2=»0820 PRINT TAB(56);"60-90 DAGE MÅNEDENS KØB"«, l3=0x2c}
0x0981…09c2 Line {l1=0x3f, l2=»0830 PRINT " NAVN";TAB(43);"30-60 DAGE ÆLDRE ÅRETS KØB"«, l3=0x3f}
0x09c2…09d5 Line {l1=0x11, l2=»0840 PRINT STREG$«, l3=0x11}
0x09d5…09e2 Line {l1=0x0b, l2=»0850 ENDIF «, l3=0x0b}
0x09e2…09ef Line {l1=0x0b, l2=»0860 ENDIF «, l3=0x0b}
0x09ef…09fe Line {l1=0x0d, l2=»0870 ENDPROC «, l3=0x0d}
0x09fe…0a0e Line {l1=0x0e, l2=»0880 PROC BUND«, l3=0x0e}
0x0a0e…0a42 Line {l1=0x32, l2=»0890 FOR LINIE=LINIE+1 TO 13*(1+2*(TYPE=2))*SIDENR«, l3=0x32}
0x0a42…0a58 Line {l1=0x14, l2=»0900 IF TYPE=1 THEN «, l3=0x14}
0x0a58…0a74 Line {l1=0x1a, l2=»0910 PRINT CHR(10);CHR(10)«, l3=0x1a}
0x0a74…0a80 Line {l1=0x0a, l2=»0920 ELSE «, l3=0x0a}
0x0a80…0a90 Line {l1=0x0e, l2=»0930 PRINT " "«, l3=0x0e}
0x0a90…0a9d Line {l1=0x0b, l2=»0940 ENDIF «, l3=0x0b}
0x0a9d…0aae Line {l1=0x0f, l2=»0950 NEXT LINIE«, l3=0x0f}
0x0aae…0ac4 Line {l1=0x14, l2=»0960 IF TYPE=1 THEN «, l3=0x14}
0x0ac4…0ae3 Line {l1=0x1d, l2=»0970 EXEC TUD(SUM$,TAL1$,1,0)«, l3=0x1d}
0x0ae3…0b03 Line {l1=0x1e, l2=»0980 EXEC TUD(SUM1$,TAL2$,1,0)«, l3=0x1e}
0x0b03…0b23 Line {l1=0x1e, l2=»0990 EXEC TUD(SUM3$,TAL3$,1,0)«, l3=0x1e}
0x0b23…0b43 Line {l1=0x1e, l2=»1000 EXEC TUD(SUM5$,TAL4$,1,0)«, l3=0x1e}
0x0b43…0b8c Line {l1=0x47, l2=»1010 PRINT TAB(10);CHR(14);"Total";CHR(15);TAB(21);TAL1$,TAB(35);TAL2$;«, l3=0x47}
0x0b8c…0bb4 Line {l1=0x26, l2=»1020 PRINT TAB(49);TAL3$;TAB(63);TAL4$«, l3=0x26}
0x0bb4…0bd4 Line {l1=0x1e, l2=»1030 EXEC TUD(SUM2$,TAL1$,1,0)«, l3=0x1e}
0x0bd4…0bf4 Line {l1=0x1e, l2=»1040 EXEC TUD(SUM4$,TAL2$,1,0)«, l3=0x1e}
0x0bf4…0c14 Line {l1=0x1e, l2=»1050 EXEC TUD(SUM6$,TAL3$,1,0)«, l3=0x1e}
0x0c14…0c4a Line {l1=0x34, l2=»1060 PRINT TAB(38);TAL1$;TAB(52);TAL2$;TAB(66);TAL3$«, l3=0x34}
0x0c4a…0c5a Line {l1=0x0e, l2=»1070 PRINT " "«, l3=0x0e}
0x0c5a…0c66 Line {l1=0x0a, l2=»1080 ELSE «, l3=0x0a}
0x0c66…0c7a Line {l1=0x12, l2=»1090 PRINT CHR(10)«, l3=0x12}
0x0c7a…0c8e Line {l1=0x12, l2=»1100 PRINT CHR(10)«, l3=0x12}
0x0c8e…0c9b Line {l1=0x0b, l2=»1110 ENDIF «, l3=0x0b}
0x0c9b…0caa Line {l1=0x0d, l2=»1120 ENDPROC «, l3=0x0d}
0x0caa…0cbd Line {l1=0x11, l2=»1130 PROC UDSKRIV«, l3=0x11}
0x0cbd…0cd1 Line {l1=0x12, l2=»1140 CASE TYPE OF «, l3=0x12}
0x0cd1…0cde Line {l1=0x0b, l2=»1150 WHEN 1«, l3=0x0b}
0x0cde…0d0b Line {l1=0x2b, l2=»1160 EXEC CALC(0,DSALDO1$,DSALDO2$,DSALDI$)«, l3=0x2b}
0x0d0b…0d37 Line {l1=0x2a, l2=»1170 EXEC CALC(0,DSALDI$,DSALDO3$,DSALDI$)«, l3=0x2a}
0x0d37…0d63 Line {l1=0x2a, l2=»1180 EXEC CALC(0,DSALDI$,DSALDO4$,DSALDI$)«, l3=0x2a}
0x0d63…0d88 Line {l1=0x23, l2=»1190 EXEC CALC(0,SUM$,DSALDI$,SUM$)«, l3=0x23}
0x0d88…0db0 Line {l1=0x26, l2=»1200 EXEC CALC(0,SUM1$,DSALDO1$,SUM1$)«, l3=0x26}
0x0db0…0dd8 Line {l1=0x26, l2=»1210 EXEC CALC(0,SUM2$,DSALDO2$,SUM2$)«, l3=0x26}
0x0dd8…0e00 Line {l1=0x26, l2=»1220 EXEC CALC(0,SUM3$,DSALDO3$,SUM3$)«, l3=0x26}
0x0e00…0e28 Line {l1=0x26, l2=»1230 EXEC CALC(0,SUM4$,DSALDO4$,SUM4$)«, l3=0x26}
0x0e28…0e4f Line {l1=0x25, l2=»1240 EXEC CALC(0,SUM5$,MDNKØB$,SUM5$)«, l3=0x25}
0x0e4f…0e64 Line {l1=0x13, l2=»1250 TÅRKØB$=ÅRKØB$«, l3=0x13}
0x0e64…0e8b Line {l1=0x25, l2=»1260 EXEC CALC(0,SUM6$,TÅRKØB$,SUM6$)«, l3=0x25}
0x0e8b…0ead Line {l1=0x20, l2=»1270 EXEC TUD(DSALDI$,TAL1$,1,0)«, l3=0x20}
0x0ead…0ed0 Line {l1=0x21, l2=»1280 EXEC TUD(DSALDO1$,TAL2$,1,0)«, l3=0x21}
0x0ed0…0ef3 Line {l1=0x21, l2=»1290 EXEC TUD(DSALDO3$,TAL3$,1,0)«, l3=0x21}
0x0ef3…0f15 Line {l1=0x20, l2=»1300 EXEC TUD(MDNKØB$,TAL4$,1,0)«, l3=0x20}
0x0f15…0f3a Line {l1=0x23, l2=»1310 PRINT USING "###### ":DEBNR;«, l3=0x23}
0x0f3a…0f4f Line {l1=0x13, l2=»1320 PRINT DEBTLF$;«, l3=0x13}
0x0f4f…0f93 Line {l1=0x42, l2=»1330 PRINT TAB(24);TAL1$;TAB(38);TAL2$;TAB(52);TAL3$;TAB(66);TAL4$«, l3=0x42}
0x0f93…0fb6 Line {l1=0x21, l2=»1340 EXEC TUD(DSALDO2$,TAL1$,1,0)«, l3=0x21}
0x0fb6…0fd9 Line {l1=0x21, l2=»1350 EXEC TUD(DSALDO4$,TAL2$,1,0)«, l3=0x21}
0x0fd9…0ffb Line {l1=0x20, l2=»1360 EXEC TUD(TÅRKØB$,TAL3$,1,0)«, l3=0x20}
0x0ffb…103e Line {l1=0x41, l2=»1370 PRINT " ";DEBNAVN$;TAB(38);TAL1$;TAB(52);TAL2$;TAB(66);TAL3$«, l3=0x41}
0x103e…104e Line {l1=0x0e, l2=»1380 PRINT " "«, l3=0x0e}
0x104e…105b Line {l1=0x0b, l2=»1390 WHEN 2«, l3=0x0b}
0x105b…107f Line {l1=0x22, l2=»1400 PRINT USING "###### ":DEBNR;«, l3=0x22}
0x107f…109d Line {l1=0x1c, l2=»1410 PRINT DEBNAVN$;TAB(34);«, l3=0x1c}
0x109d…10c6 Line {l1=0x27, l2=»1420 PRINT USING "####### ":DPOSTNR;«, l3=0x27}
0x10c6…10e9 Line {l1=0x21, l2=»1430 PRINT DEBBY$;TAB(67);DEBTLF$«, l3=0x21}
0x10e9…10f6 Line {l1=0x0b, l2=»1440 WHEN 3«, l3=0x0b}
0x10f6…1109 Line {l1=0x11, l2=»1450 FOR I=1 TO 4«, l3=0x11}
0x1109…111d Line {l1=0x12, l2=»1460 PRINT CHR(10)«, l3=0x12}
0x111d…112a Line {l1=0x0b, l2=»1470 NEXT I«, l3=0x0b}
0x112a…114f Line {l1=0x23, l2=»1480 PRINT USING "###### ":DEBNR;«, l3=0x23}
0x114f…1168 Line {l1=0x17, l2=»1490 PRINT DEBNAVN$;" "«, l3=0x17}
0x1168…1178 Line {l1=0x0e, l2=»1500 PRINT " "«, l3=0x0e}
0x1178…1199 Line {l1=0x1f, l2=»1510 PRINT TAB(10);DEBGADE$;" "«, l3=0x1f}
0x1199…11a9 Line {l1=0x0e, l2=»1520 PRINT " "«, l3=0x0e}
0x11a9…11bd Line {l1=0x12, l2=»1530 PRINT TAB(7);«, l3=0x12}
0x11bd…11e5 Line {l1=0x26, l2=»1540 PRINT USING "######## ":DPOSTNR;«, l3=0x26}
0x11e5…11fc Line {l1=0x15, l2=»1550 PRINT DEBBY$;" "«, l3=0x15}
0x11fc…1226 Line {l1=0x28, l2=»1560 IF DEBLK$>"0" AND DEBLK$<="9" THEN «, l3=0x28}
0x1226…1236 Line {l1=0x0e, l2=»1570 PRINT " "«, l3=0x0e}
0x1236…125f Line {l1=0x27, l2=»1580 PRINT TAB(9);LAND$(ORD(DEBLK$)-48)«, l3=0x27}
0x125f…126b Line {l1=0x0a, l2=»1590 ELSE «, l3=0x0a}
0x126b…127f Line {l1=0x12, l2=»1600 PRINT CHR(10)«, l3=0x12}
0x127f…128c Line {l1=0x0b, l2=»1610 ENDIF «, l3=0x0b}
0x128c…12a8 Line {l1=0x1a, l2=»1620 PRINT CHR(10);CHR(10)«, l3=0x1a}
0x12a8…12b7 Line {l1=0x0d, l2=»1630 ENDCASE «, l3=0x0d}
0x12b7…12c6 Line {l1=0x0d, l2=»1640 ENDPROC «, l3=0x0d}
0x12c6…12f1 Line {l1=0x29, l2=»1650 PROC FINDPOST(TAB1,MANT1,NØGL1,PIL3)«, l3=0x29}
0x12f1…1319 Line {l1=0x26, l2=»1660 PIL1=MANT1 DIV 2;PIL3=PIL1;CEKS=1«, l3=0x26}
0x1319…1327 Line {l1=0x0c, l2=»1670 REPEAT «, l3=0x0c}
0x1327…1358 Line {l1=0x2f, l2=»1680 IF NØGL1=TAB1(PIL3,1) OR PIL1=1 THEN EXIT «, l3=0x2f}
0x1358…139c Line {l1=0x42, l2=»1690 PIL1=(PIL1+1) DIV 2;PIL3=PIL3+PIL1*(1-2*(NØGL1<TAB1(PIL3,1)))«, l3=0x42}
0x139c…13b8 Line {l1=0x1a, l2=»1700 IF PIL3<1 THEN PIL3=1«, l3=0x1a}
0x13b8…13dc Line {l1=0x22, l2=»1710 IF PIL3>MANT1 THEN PIL3=MANT1«, l3=0x22}
0x13dc…13ef Line {l1=0x11, l2=»1720 UNTIL PIL1=0«, l3=0x11}
0x13ef…1417 Line {l1=0x26, l2=»1730 IF NØGL1=TAB1(PIL3,1) THEN CEKS=0«, l3=0x26}
0x1417…1426 Line {l1=0x0d, l2=»1740 ENDPROC «, l3=0x0d}
0x1426…143d Line {l1=0x15, l2=»1750 PROC NRTEST(NUM)«, l3=0x15}
0x143d…1462 Line {l1=0x23, l2=»1760 P=0;TEST2=0;KTAL=0;L=LEN(NUM$)«, l3=0x23}
0x1462…1473 Line {l1=0x0f, l2=»1770 CASE L OF «, l3=0x0f}
0x1473…1486 Line {l1=0x11, l2=»1780 FOR J=1 TO L«, l3=0x11}
0x1486…14a4 Line {l1=0x1c, l2=»1790 P1=INT(ORD(NUM$(J))-48)«, l3=0x1c}
0x14a4…14c3 Line {l1=0x1d, l2=»1800 IF P1=>0 AND P1<=9 THEN «, l3=0x1d}
0x14c3…14d3 Line {l1=0x0e, l2=»1810 P=P*10+P1«, l3=0x0e}
0x14d3…14df Line {l1=0x0a, l2=»1820 ELSE «, l3=0x0a}
0x14df…14ed Line {l1=0x0c, l2=»1830 TEST2=1«, l3=0x0c}
0x14ed…14fa Line {l1=0x0b, l2=»1840 ENDIF «, l3=0x0b}
0x14fa…1507 Line {l1=0x0b, l2=»1850 NEXT J«, l3=0x0b}
0x1507…151e Line {l1=0x15, l2=»1860 KTAL=P DIV 10000«, l3=0x15}
0x151e…152b Line {l1=0x0b, l2=»1870 WHEN 0«, l3=0x0b}
0x152b…1536 Line {l1=0x09, l2=»1880 P=-1«, l3=0x09}
0x1536…1543 Line {l1=0x0b, l2=»1890 WHEN 1«, l3=0x0b}
0x1543…1557 Line {l1=0x12, l2=»1900 CASE NUM$ OF «, l3=0x12}
0x1557…1571 Line {l1=0x18, l2=»1910 P=INT(ORD(NUM$)-48)«, l3=0x18}
0x1571…1584 Line {l1=0x11, l2=»1920 WHEN "j","J"«, l3=0x11}
0x1584…158f Line {l1=0x09, l2=»1930 P=-7«, l3=0x09}
0x158f…15a2 Line {l1=0x11, l2=»1940 WHEN "n","N"«, l3=0x11}
0x15a2…15ad Line {l1=0x09, l2=»1950 P=-8«, l3=0x09}
0x15ad…15bc Line {l1=0x0d, l2=»1960 ENDCASE «, l3=0x0d}
0x15bc…15cb Line {l1=0x0d, l2=»1970 ENDCASE «, l3=0x0d}
0x15cb…15da Line {l1=0x0d, l2=»1980 ENDPROC «, l3=0x0d}
0x15da…15f6 Line {l1=0x1a, l2=»1990 K1$="P641220:SYSTEM1"«, l3=0x1a}
0x15f6…1607 Line {l1=0x0f, l2=»2000 OPEN K1$,R«, l3=0x0f}
0x1607…1620 Line {l1=0x17, l2=»2010 EXEC FEJL(9,1,K1$)«, l3=0x17}
0x1620…1640 Line {l1=0x1e, l2=»2020 GET K1$,1:MFANTAL,MDANTAL«, l3=0x1e}
0x1640…1659 Line {l1=0x17, l2=»2030 EXEC FEJL(9,2,K1$)«, l3=0x17}
0x1659…167f Line {l1=0x24, l2=»2040 GET K1$,4:MKPOST,MFAK,MVGR,MKGR«, l3=0x24}
0x167f…1698 Line {l1=0x17, l2=»2050 EXEC FEJL(9,3,K1$)«, l3=0x17}
0x1698…16c0 Line {l1=0x26, l2=»2060 GET K1$,8:DIVNR,DIVDNR,DIFNR,DTAL«, l3=0x26}
0x16c0…16d9 Line {l1=0x17, l2=»2070 EXEC FEJL(9,4,K1$)«, l3=0x17}
0x16d9…16ed Line {l1=0x12, l2=»2080 GET K1$,10:N$«, l3=0x12}
0x16ed…1706 Line {l1=0x17, l2=»2090 EXEC FEJL(9,5,K1$)«, l3=0x17}
0x1706…171b Line {l1=0x13, l2=»2100 GET K1$,12:K2$«, l3=0x13}
0x171b…1734 Line {l1=0x17, l2=»2110 EXEC FEJL(9,6,K1$)«, l3=0x17}
0x1734…1749 Line {l1=0x13, l2=»2120 GET K1$,16:K3$«, l3=0x13}
0x1749…1762 Line {l1=0x17, l2=»2130 EXEC FEJL(9,7,K1$)«, l3=0x17}
0x1762…1777 Line {l1=0x13, l2=»2140 GET K1$,35:K4$«, l3=0x13}
0x1777…1790 Line {l1=0x17, l2=»2150 EXEC FEJL(9,8,K1$)«, l3=0x17}
0x1790…17a5 Line {l1=0x13, l2=»2160 GET K1$,36:K5$«, l3=0x13}
0x17a5…17be Line {l1=0x17, l2=»2170 EXEC FEJL(9,9,K1$)«, l3=0x17}
0x17be…17ce Line {l1=0x0e, l2=»2180 CLOSE K1$«, l3=0x0e}
0x17ce…17e8 Line {l1=0x18, l2=»2190 EXEC FEJL(9,10,K1$)«, l3=0x18}
0x17e8…181a Line {l1=0x30, l2=»2200 K2$=N$+K2$;K3$=N$+K3$;K4$=N$+K4$;K5$=N$+K5$«, l3=0x30}
0x181a…182b Line {l1=0x0f, l2=»2210 OPEN K5$,R«, l3=0x0f}
0x182b…1845 Line {l1=0x18, l2=»2220 EXEC FEJL(9,11,K5$)«, l3=0x18}
0x1845…188b Line {l1=0x44, l2=»2230 GET K5$,2:T1(1),T1(2),T1(3),T1(4),T1(5),T1(6),T1(7),T1(8),T1(9)«, l3=0x44}
0x188b…18a5 Line {l1=0x18, l2=»2240 EXEC FEJL(9,12,K5$)«, l3=0x18}
0x18a5…18b8 Line {l1=0x11, l2=»2250 FOR I=1 TO 3«, l3=0x11}
0x18b8…18ca Line {l1=0x10, l2=»2260 H=(I-1)*3+1«, l3=0x10}
0x18ca…18fb Line {l1=0x2f, l2=»2270 GET K5$,I+2:LAND$(H),LAND$(H+1),LAND$(H+2)«, l3=0x2f}
0x18fb…1915 Line {l1=0x18, l2=»2280 EXEC FEJL(9,13,K5$)«, l3=0x18}
0x1915…1922 Line {l1=0x0b, l2=»2290 NEXT I«, l3=0x0b}
0x1922…193d Line {l1=0x19, l2=»2300 GET K5$,14:AFIN,ADEB«, l3=0x19}
0x193d…1957 Line {l1=0x18, l2=»2310 EXEC FEJL(9,14,K5$)«, l3=0x18}
0x1957…197e Line {l1=0x25, l2=»2320 DIM DTAB(MDANTAL,2),KARRAY(MKGR)«, l3=0x25}
0x197e…198f Line {l1=0x0f, l2=»2330 OPEN K4$,R«, l3=0x0f}
0x198f…19a9 Line {l1=0x18, l2=»2340 EXEC FEJL(9,15,K4$)«, l3=0x18}
0x19a9…19c5 Line {l1=0x1a, l2=»2350 FOR I=1 TO MKGR DIV 5«, l3=0x1a}
0x19c5…19d7 Line {l1=0x10, l2=»2360 J=(I-1)*5+1«, l3=0x10}
0x19d7…1a21 Line {l1=0x48, l2=»2370 GET K4$,I:KARRAY(J),KARRAY(J+1),KARRAY(J+2),KARRAY(J+3),KARRAY(J+4)«, l3=0x48}
0x1a21…1a3b Line {l1=0x18, l2=»2380 EXEC FEJL(9,16,K4$)«, l3=0x18}
0x1a3b…1a48 Line {l1=0x0b, l2=»2390 NEXT I«, l3=0x0b}
0x1a48…1a58 Line {l1=0x0e, l2=»2400 CLOSE K4$«, l3=0x0e}
0x1a58…1a72 Line {l1=0x18, l2=»2410 EXEC FEJL(9,12,K4$)«, l3=0x18}
0x1a72…1a83 Line {l1=0x0f, l2=»2420 OPEN K2$,R«, l3=0x0f}
0x1a83…1a9d Line {l1=0x18, l2=»2430 EXEC FEJL(9,18,K2$)«, l3=0x18}
0x1a9d…1aae Line {l1=0x0f, l2=»2440 OPEN K3$,R«, l3=0x0f}
0x1aae…1ac8 Line {l1=0x18, l2=»2450 EXEC FEJL(9,19,K3$)«, l3=0x18}
0x1ac8…1aec Line {l1=0x22, l2=»2460 EXEC INDTAB(DTAB,MDANTAL,K2$)«, l3=0x22}
0x1aec…1afb Line {l1=0x0d, l2=»2470 DA=T1(7)«, l3=0x0d}
0x1afb…1b11 Line {l1=0x14, l2=»2480 DAT$=" "«, l3=0x14}
0x1b11…1b2c Line {l1=0x19, l2=»2490 FOR J=8 TO 1 STEP -1«, l3=0x19}
0x1b2c…1b45 Line {l1=0x17, l2=»2500 IF J MOD 3=0 THEN «, l3=0x17}
0x1b45…1b57 Line {l1=0x10, l2=»2510 DAT$(J)="."«, l3=0x10}
0x1b57…1b63 Line {l1=0x0a, l2=»2520 ELSE «, l3=0x0a}
0x1b63…1b83 Line {l1=0x1e, l2=»2530 DAT$(J)=CHR(DA MOD 10+48)«, l3=0x1e}
0x1b83…1b96 Line {l1=0x11, l2=»2540 DA=DA DIV 10«, l3=0x11}
0x1b96…1ba3 Line {l1=0x0b, l2=»2550 ENDIF «, l3=0x0b}
0x1ba3…1bb0 Line {l1=0x0b, l2=»2560 NEXT J«, l3=0x0b}
0x1bb0…1bfc Line {l1=0x4a, l2=»2570 STREG$="---------------------------------------";STREG$=STREG$+STREG$«, l3=0x4a}
0x1bfc…1c0a Line {l1=0x0c, l2=»2580 REPEAT «, l3=0x0c}
0x1c0a…1c51 Line {l1=0x45, l2=»2590 SUM$="0+";SUM1$="0+";SUM2$="0+";SUM3$="0+";SUM4$="0+";SUM5$="0+"«, l3=0x45}
0x1c51…1c73 Line {l1=0x20, l2=»2600 SUM6$="0+";LINIE=0;SIDENR=0«, l3=0x20}
0x1c73…1c82 Line {l1=0x0d, l2=»2610 OUTPUT T«, l3=0x0d}
0x1c82…1c8f Line {l1=0x0b, l2=»2620 CLEAR «, l3=0x0b}
0x1c8f…1ca1 Line {l1=0x10, l2=»2630 CURSOR 20,1«, l3=0x10}
0x1ca1…1cc1 Line {l1=0x1e, l2=»2640 PRINT "Debitorudskrifter"«, l3=0x1e}
0x1cc1…1cd3 Line {l1=0x10, l2=»2650 CURSOR 11,6«, l3=0x10}
0x1cd3…1ceb Line {l1=0x16, l2=»2660 PRINT "0: Færdig"«, l3=0x16}
0x1ceb…1cfd Line {l1=0x10, l2=»2670 CURSOR 11,8«, l3=0x10}
0x1cfd…1d19 Line {l1=0x1a, l2=»2680 PRINT "1: Saldoliste"«, l3=0x1a}
0x1d19…1d2c Line {l1=0x11, l2=»2690 CURSOR 11,10«, l3=0x11}
0x1d2c…1d48 Line {l1=0x1a, l2=»2700 PRINT "2: Kontoliste"«, l3=0x1a}
0x1d48…1d5b Line {l1=0x11, l2=»2710 CURSOR 11,12«, l3=0x11}
0x1d5b…1d73 Line {l1=0x16, l2=»2720 PRINT "3: Labels"«, l3=0x16}
0x1d73…1d81 Line {l1=0x0c, l2=»2730 REPEAT «, l3=0x0c}
0x1d81…1d94 Line {l1=0x11, l2=»2740 CURSOR 13,14«, l3=0x11}
0x1d94…1db1 Line {l1=0x1b, l2=»2750 INPUT "Vælg type :",A$«, l3=0x1b}
0x1db1…1dc7 Line {l1=0x14, l2=»2760 EXEC NRTEST(A$)«, l3=0x14}
0x1dc7…1de0 Line {l1=0x17, l2=»2770 UNTIL P>-1 AND P<4«, l3=0x17}
0x1de0…1ded Line {l1=0x0b, l2=»2780 TYPE=P«, l3=0x0b}
0x1ded…1e08 Line {l1=0x19, l2=»2790 IF TYPE=0 THEN EXIT «, l3=0x19}
0x1e08…1e16 Line {l1=0x0c, l2=»2800 REPEAT «, l3=0x0c}
0x1e16…1e29 Line {l1=0x11, l2=»2810 CURSOR 13,17«, l3=0x11}
0x1e29…1e5f Line {l1=0x34, l2=»2820 PRINT "Ordnet efter : (1: Gruppe , 2: Nr)"«, l3=0x34}
0x1e5f…1e72 Line {l1=0x11, l2=»2830 CURSOR 26,17«, l3=0x11}
0x1e72…1e81 Line {l1=0x0d, l2=»2840 INPUT A$«, l3=0x0d}
0x1e81…1e97 Line {l1=0x14, l2=»2850 EXEC NRTEST(A$)«, l3=0x14}
0x1e97…1eae Line {l1=0x15, l2=»2860 UNTIL P=1 OR P=2«, l3=0x15}
0x1eae…1ebc Line {l1=0x0c, l2=»2870 ORDEN=P«, l3=0x0c}
0x1ebc…1eca Line {l1=0x0c, l2=»2880 REPEAT «, l3=0x0c}
0x1eca…1ed8 Line {l1=0x0c, l2=»2890 REPEAT «, l3=0x0c}
0x1ed8…1eeb Line {l1=0x11, l2=»2900 CURSOR 13,19«, l3=0x11}
0x1eeb…1f02 Line {l1=0x15, l2=»2910 IF ORDEN=1 THEN «, l3=0x15}
0x1f02…1f2e Line {l1=0x2a, l2=»2920 PRINT "Fra gruppenr : (0: Alle)"«, l3=0x2a}
0x1f2e…1f3a Line {l1=0x0a, l2=»2930 ELSE «, l3=0x0a}
0x1f3a…1f66 Line {l1=0x2a, l2=»2940 PRINT "Fra kontonr : (0: Alle)"«, l3=0x2a}
0x1f66…1f73 Line {l1=0x0b, l2=»2950 ENDIF «, l3=0x0b}
0x1f73…1f86 Line {l1=0x11, l2=»2960 CURSOR 26,19«, l3=0x11}
0x1f86…1f97 Line {l1=0x0f, l2=»2970 INPUT KTN$«, l3=0x0f}
0x1f97…1faf Line {l1=0x16, l2=»2980 EXEC NRTEST(KTN$)«, l3=0x16}
0x1faf…1ffb Line {l1=0x4a, l2=»2990 UNTIL P=0 OR (P>0 AND P<=MKGR AND ORDEN=1) OR (KTAL=DTAL AND ORDEN=2)«, l3=0x4a}
0x1ffb…2012 Line {l1=0x15, l2=»3000 IF ORDEN=1 THEN «, l3=0x15}
0x2012…2025 Line {l1=0x11, l2=»3010 IF P=0 THEN «, l3=0x11}
0x2025…203a Line {l1=0x13, l2=»3020 FRA=1;TIL=MKGR«, l3=0x13}
0x203a…2046 Line {l1=0x0a, l2=»3030 ELSE «, l3=0x0a}
0x2046…2052 Line {l1=0x0a, l2=»3040 FRA=P«, l3=0x0a}
0x2052…205f Line {l1=0x0b, l2=»3050 ENDIF «, l3=0x0b}
0x205f…206b Line {l1=0x0a, l2=»3060 ELSE «, l3=0x0a}
0x206b…207e Line {l1=0x11, l2=»3070 IF P=0 THEN «, l3=0x11}
0x207e…2093 Line {l1=0x13, l2=»3080 FRA=1;TIL=ADEB«, l3=0x13}
0x2093…209f Line {l1=0x0a, l2=»3090 ELSE «, l3=0x0a}
0x209f…20bd Line {l1=0x1c, l2=»3100 IF DTAB(ADEB,1)<P THEN «, l3=0x1c}
0x20bd…20c9 Line {l1=0x0a, l2=»3110 FRA=0«, l3=0x0a}
0x20c9…20d5 Line {l1=0x0a, l2=»3120 ELSE «, l3=0x0a}
0x20d5…20ff Line {l1=0x28, l2=»3130 EXEC FINDPOST(DTAB,MDANTAL,P,DPIL3)«, l3=0x28}
0x20ff…2115 Line {l1=0x14, l2=»3140 IF CEKS=0 THEN «, l3=0x14}
0x2115…2125 Line {l1=0x0e, l2=»3150 FRA=DPIL3«, l3=0x0e}
0x2125…2131 Line {l1=0x0a, l2=»3160 ELSE «, l3=0x0a}
0x2131…2143 Line {l1=0x10, l2=»3170 FRA=DPIL3+1«, l3=0x10}
0x2143…2150 Line {l1=0x0b, l2=»3180 ENDIF «, l3=0x0b}
0x2150…215d Line {l1=0x0b, l2=»3190 ENDIF «, l3=0x0b}
0x215d…216a Line {l1=0x0b, l2=»3200 ENDIF «, l3=0x0b}
0x216a…2177 Line {l1=0x0b, l2=»3210 ENDIF «, l3=0x0b}
0x2177…218a Line {l1=0x11, l2=»3220 UNTIL FRA<>0«, l3=0x11}
0x218a…219d Line {l1=0x11, l2=»3230 IF P>0 THEN «, l3=0x11}
0x219d…21ab Line {l1=0x0c, l2=»3240 REPEAT «, l3=0x0c}
0x21ab…21b9 Line {l1=0x0c, l2=»3250 REPEAT «, l3=0x0c}
0x21b9…21cc Line {l1=0x11, l2=»3260 CURSOR 13,21«, l3=0x11}
0x21cc…21e3 Line {l1=0x15, l2=»3270 IF ORDEN=1 THEN «, l3=0x15}
0x21e3…2205 Line {l1=0x20, l2=»3280 INPUT "Til gruppenr :",KTN$«, l3=0x20}
0x2205…2211 Line {l1=0x0a, l2=»3290 ELSE «, l3=0x0a}
0x2211…2233 Line {l1=0x20, l2=»3300 INPUT "Til kontonr :",KTN$«, l3=0x20}
0x2233…2240 Line {l1=0x0b, l2=»3310 ENDIF «, l3=0x0b}
0x2240…2258 Line {l1=0x16, l2=»3320 EXEC NRTEST(KTN$)«, l3=0x16}
0x2258…229d Line {l1=0x43, l2=»3330 UNTIL (P>0 AND P<=MKGR AND ORDEN=1) OR (KTAL=DTAL AND ORDEN=2)«, l3=0x43}
0x229d…22b4 Line {l1=0x15, l2=»3340 IF ORDEN=1 THEN «, l3=0x15}
0x22b4…22c0 Line {l1=0x0a, l2=»3350 TIL=P«, l3=0x0a}
0x22c0…22cc Line {l1=0x0a, l2=»3360 ELSE «, l3=0x0a}
0x22cc…22ea Line {l1=0x1c, l2=»3370 IF DTAB(ADEB,1)<P THEN «, l3=0x1c}
0x22ea…22f9 Line {l1=0x0d, l2=»3380 TIL=ADEB«, l3=0x0d}
0x22f9…2305 Line {l1=0x0a, l2=»3390 ELSE «, l3=0x0a}
0x2305…232f Line {l1=0x28, l2=»3400 EXEC FINDPOST(DTAB,MDANTAL,P,DPIL3)«, l3=0x28}
0x232f…233f Line {l1=0x0e, l2=»3410 TIL=DPIL3«, l3=0x0e}
0x233f…234c Line {l1=0x0b, l2=»3420 ENDIF «, l3=0x0b}
0x234c…2359 Line {l1=0x0b, l2=»3430 ENDIF «, l3=0x0b}
0x2359…236e Line {l1=0x13, l2=»3440 UNTIL FRA<=TIL«, l3=0x13}
0x236e…237b Line {l1=0x0b, l2=»3450 ENDIF «, l3=0x0b}
0x237b…2388 Line {l1=0x0b, l2=»3460 CLEAR «, l3=0x0b}
0x2388…2396 Line {l1=0x0c, l2=»3470 REPEAT «, l3=0x0c}
0x2396…23a9 Line {l1=0x11, l2=»3480 CURSOR 18,13«, l3=0x11}
0x23a9…23e4 Line {l1=0x39, l2=»3490 INPUT "Monter lister til udskrift og tast RETURN",A$«, l3=0x39}
0x23e4…23fc Line {l1=0x16, l2=»3500 UNTIL ORD(A$)=255«, l3=0x16}
0x23fc…241d Line {l1=0x1f, l2=»3510 IF TYPE=1 THEN KS$="saldo"«, l3=0x1f}
0x241d…243e Line {l1=0x1f, l2=»3520 IF TYPE=2 THEN KS$="konto"«, l3=0x1f}
0x243e…244d Line {l1=0x0d, l2=»3530 OUTPUT P«, l3=0x0d}
0x244d…2464 Line {l1=0x15, l2=»3540 IF ORDEN=1 THEN «, l3=0x15}
0x2464…247b Line {l1=0x15, l2=»3550 FOR H=FRA TO TIL«, l3=0x15}
0x247b…24c3 Line {l1=0x46, l2=»3560 SUM1$="0+";SUM2$="0+";SUM3$="0+";SUM4$="0+";SUM5$="0+";SUM6$="0+"«, l3=0x46}
0x24c3…24e4 Line {l1=0x1f, l2=»3570 SUM$="0+";LINIE=0;SIDENR=0«, l3=0x1f}
0x24e4…24fb Line {l1=0x15, l2=»3580 HKUNDE=KARRAY(H)«, l3=0x15}
0x24fb…2509 Line {l1=0x0c, l2=»3590 REPEAT «, l3=0x0c}
0x2509…2526 Line {l1=0x1b, l2=»3600 IF HKUNDE=0 THEN EXIT «, l3=0x1b}
0x2526…253d Line {l1=0x15, l2=»3610 IF TYPE<>3 THEN «, l3=0x15}
0x253d…2551 Line {l1=0x12, l2=»3620 EXEC HOVED(H)«, l3=0x12}
0x2551…255e Line {l1=0x0b, l2=»3630 ENDIF «, l3=0x0b}
0x255e…258d Line {l1=0x2d, l2=»3640 EXEC FINDPOST(DTAB,MDANTAL,HKUNDE,DPIL3)«, l3=0x2d}
0x258d…25a2 Line {l1=0x13, l2=»3650 EXEC HENTDPOST«, l3=0x13}
0x25a2…25b5 Line {l1=0x11, l2=»3660 EXEC UDSKRIV«, l3=0x11}
0x25b5…25ca Line {l1=0x13, l2=»3670 UNTIL HKUNDE=0«, l3=0x13}
0x25ca…25f2 Line {l1=0x26, l2=»3680 IF TYPE<>3 AND KARRAY(H)<>0 THEN «, l3=0x26}
0x25f2…2602 Line {l1=0x0e, l2=»3690 EXEC BUND«, l3=0x0e}
0x2602…260f Line {l1=0x0b, l2=»3700 ENDIF «, l3=0x0b}
0x260f…261c Line {l1=0x0b, l2=»3710 NEXT H«, l3=0x0b}
0x261c…2628 Line {l1=0x0a, l2=»3720 ELSE «, l3=0x0a}
0x2628…2643 Line {l1=0x19, l2=»3730 FOR DPIL3=FRA TO TIL«, l3=0x19}
0x2643…265a Line {l1=0x15, l2=»3740 IF TYPE<>3 THEN «, l3=0x15}
0x265a…266e Line {l1=0x12, l2=»3750 EXEC HOVED(0)«, l3=0x12}
0x266e…267b Line {l1=0x0b, l2=»3760 ENDIF «, l3=0x0b}
0x267b…2690 Line {l1=0x13, l2=»3770 EXEC HENTDPOST«, l3=0x13}
0x2690…26a3 Line {l1=0x11, l2=»3780 EXEC UDSKRIV«, l3=0x11}
0x26a3…26b4 Line {l1=0x0f, l2=»3790 NEXT DPIL3«, l3=0x0f}
0x26b4…26cb Line {l1=0x15, l2=»3800 IF TYPE<>3 THEN «, l3=0x15}
0x26cb…26db Line {l1=0x0e, l2=»3810 EXEC BUND«, l3=0x0e}
0x26db…26e8 Line {l1=0x0b, l2=»3820 ENDIF «, l3=0x0b}
0x26e8…26f5 Line {l1=0x0b, l2=»3830 ENDIF «, l3=0x0b}
0x26f5…2708 Line {l1=0x11, l2=»3840 UNTIL TYPE=0«, l3=0x11}
0x2708…2726 Line {l1=0x1c, l2=»3850 CHAIN "P641210:OPSTART"«, l3=0x1c}
0x2726…2740 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ cccccccccccccccccccccccc┆
0x2740…2760 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┆
[…0x1…]