|
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: 20224 (0x4f00)
Types: TextFile
Notes: Mikados_K
Names: »DEBVEDL.K«
└─⟦ec8c1e0b0⟧ Bits:30007442 8" floppy ( MIKPROG vol. 1-3, MIKREL vol. 1-3, PCSE 4.7.80 vol 1-3, GL.SYS )
└─⟦this⟧ »DEBVEDL.K«
0100 DIM K1$(17),K2$(17),DEBNAVN$(25),DSALDO1$(12),DEBKGR$(1),UD2$(14),A$(1) 0110 DIM DSALDO2$(12),DSALDO3$(12),DSALDO4$(12),DEBLK$(1),DEBGADE$(25),N$(6) 0120 DIM T2(9),BLANK$(77),TAL4$(14),TAH$(12),DEBTLF$(9),DEBBY$(20),VTAB2(5) 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),DAT$(8) 0150 DIM DEBGADE1$(25),DEBTLF1$(9),BLB2$(12),UBLB2$(14),UD1$(14),STREG$(71) 0160 DIM UD3$(14),UD4$(14),K3$(17),K4$(17),K5$(17),K6$(17),T1(9),LAND$(9,12) 0170 PROC CALC(ART,B1,B2,ES) 0180 OP1$=B1$;OP2$=B2$;RES$=ES$;SI=0;FLAG=0 0190 CALL "P641210:REGN" 0200 ES$=RES$ 0210 IF FLAG THEN STOP 0220 ENDPROC 0230 PROC FEJL(NR1,NR2,NR3) 0240 IF STATUS(NR3$)<>0 THEN 0250 PRINT STATUS(NR3$),NR1,NR2,NR3$ 0260 STOP 0270 ENDIF 0280 ENDPROC 0290 PROC INDTAB(T,MANTAL,K10) 0300 J=MANTAL DIV 32+1 0310 FOR I=J TO MANTAL DIV 4+J-1 0320 H=(I-J)*4+1;J2=H+1;J3=H+2;J4=H+3 0330 GET K10$,I:T(H,1),T(H,2),T(J2,1),T(J2,2),T(J3,1),T(J3,2),T(J4,1),T(J4,2) 0340 EXEC FEJL(1,1,K10$) 0350 NEXT I 0360 ENDPROC 0370 PROC UDTAB(U,MANTAL1,K9) 0380 J=MANTAL1 DIV 32+1 0390 FOR I=1 TO J-1 0400 H=(I-1)*32+1;J1=H+4;J2=H+8;J3=H+12;J4=H+16;J5=H+20;J6=H+24;J7=H+28 0410 PUT K9$,I:U(H,1),U(J1,1),U(J2,1),U(J3,1),U(J4,1),U(J5,1),U(J6,1),U(J7,1) 0420 EXEC FEJL(2,1,K9$) 0430 NEXT I 0440 FOR I=J TO MANTAL1 DIV 4+J-1 0450 H=(I-J)*4+1;J1=H+1;J2=H+2;J3=H+3 0460 PUT K9$,I:U(H,1),U(H,2),U(J1,1),U(J1,2),U(J2,1),U(J2,2),U(J3,1),U(J3,2) 0470 EXEC FEJL(2,2,K9$) 0480 NEXT I 0490 ENDPROC 0500 PROC FINDPOST(TAB1,MANT1,NØGL1,PIL3) 0510 PIL1=MANT1 DIV 2;PIL3=PIL1;CEKS=1 0520 REPEAT 0530 IF NØGL1=TAB1(PIL3,1) THEN 0540 CEKS=0 0550 ELSE 0560 IF PIL1=1 THEN PIL1=0 0570 PIL1=INT((PIL1+1)/2) 0580 IF NØGL1>TAB1(PIL3,1) THEN 0590 PIL3=PIL3+PIL1 0600 ELSE 0610 PIL3=PIL3-PIL1 0620 ENDIF 0630 IF PIL3<1 THEN PIL3=1 0640 IF PIL3>MANT1 THEN PIL3=MANT1 0650 ENDIF 0660 UNTIL CEKS=0 OR PIL1=0 0670 ENDPROC 0680 PROC SLETDPOST(NØGLE3) 0690 EXEC FINDPOST(DTAB,MDANTAL,NØGLE3,DPIL3) 0700 IF CEKS=1 THEN STOP 0710 DEBNR=0 0720 DEBNAVN$=BLANK$(1:25) 0730 DSALDO1$=BLANK$(1:12) 0740 DSALDO2$=BLANK$(1:12) 0750 DSALDO3$=BLANK$(1:12) 0760 DSALDO4$=BLANK$(1:12) 0770 ÅRKØB$=BLANK$(1:12) 0780 MDNKØB$=BLANK$(1:12) 0790 DEBKGR$="0" 0800 DEBPOSTNR=0 0810 DEBLK$="0" 0820 DEBGADE$=BLANK$(1:25) 0830 DEBTLF$=BLANK$(1:9) 0840 HPOST=0 0850 HKUNDE=0 0860 DEBBY$=BLANK$(1:20) 0870 EXEC GEMDPOST 0880 EXEC SLETPOST(DTAB,ADEB,NØGLE3,DPIL3) 0890 ENDPROC 0900 PROC INDSÆT(TAB2,ANTAL2,NØGL2,PIL4) 0910 IF CEKS=1 THEN 0920 POSTNR=TAB2(ANTAL2+1,2) 0930 IF NØGL2>TAB2(PIL4,1) AND TAB2(PIL4,1)<>1000000 THEN PIL4=PIL4+1 0940 FOR J=ANTAL2+1 TO PIL4+1 STEP -1 0950 TAB2(J,1)=TAB2(J-1,1) 0960 TAB2(J,2)=TAB2(J-1,2) 0970 NEXT J 0980 TAB2(PIL4,1)=NØGL2 0990 TAB2(PIL4,2)=POSTNR 1000 ANTAL2=ANTAL2+1 1010 ENDIF 1020 ENDPROC 1030 PROC SLETPOST(TAB3,ANTAL3,NØGL3,PIL5) 1040 IF CEKS=0 THEN 1050 POSTNR=TAB3(PIL5,2) 1060 FOR I=PIL5 TO ANTAL3 1070 TAB3(I,1)=TAB3(I+1,1) 1080 TAB3(I,2)=TAB3(I+1,2) 1090 NEXT I 1100 TAB3(ANTAL3,1)=1000000 1110 TAB3(ANTAL3,2)=POSTNR 1120 ANTAL3=ANTAL3-1 1130 ENDIF 1140 ENDPROC 1150 PROC HENTDPOST 1160 S=DTAB(DPIL3,2) 1170 GET K3$,S:DEBNR,DEBNAVN$,DSALDO1$,DEBKGR$ 1180 EXEC FEJL(8,2,K3$) 1190 IF DEBNR<>DTAB(DPIL3,1) THEN STOP 1200 GET K3$,S+1:DSALDO2$,DSALDO3$,DSALDO4$,DEBPOSTNR,DEBLK$ 1210 EXEC FEJL(8,3,K3$) 1220 GET K3$,S+2:DEBGADE$,DEBTLF$,HPOST,HKUNDE 1230 EXEC FEJL(8,4,K3$) 1240 GET K3$,S+3:DEBBY$,ÅRKØB$,MDNKØB$ 1250 EXEC FEJL(8,5,K3$) 1260 ENDPROC 1270 PROC GEMDPOST 1280 S=DTAB(DPIL3,2) 1290 PUT K3$,S:DEBNR,DEBNAVN$,DSALDO1$,DEBKGR$ 1300 EXEC FEJL(9,3,K3$) 1310 PUT K3$,S+1:DSALDO2$,DSALDO3$,DSALDO4$,DEBPOSTNR,DEBLK$ 1320 EXEC FEJL(9,4,K3$) 1330 PUT K3$,S+2:DEBGADE$,DEBTLF$,HPOST,HKUNDE 1340 EXEC FEJL(9,4,K3$) 1350 PUT K3$,S+3:DEBBY$,ÅRKØB$,MDNKØB$ 1360 EXEC FEJL(9,5,K3$) 1370 ENDPROC 1380 PROC DINDTAST(DSTYR,CÆND,DEBNR2) 1390 IF CÆND<>1 THEN 1400 CLEAR 1410 CURSOR 21,1 1420 PRINT "Kundeoplysninger" 1430 EXEC OVERSKRIFT 1440 CURSOR 2,3 1450 PRINT "1:Kundenr :";DEBNR2 1460 ENDIF 1470 REPEAT 1480 CASE DSTYR OF 1490 STOP 1500 WHEN 2 1510 IF CÆND<>1 THEN 1520 CURSOR 2,4 1530 PRINT "2:Navn :" 1540 DSTYR=3 1550 ENDIF 1560 IF CÆND<>2 THEN 1570 CURSOR 3,23 1580 PRINT "Navn";BLANK$(1:33);"(max 25 tegn)";BLANK$(1:26) 1590 CURSOR 13,23 1600 INPUT DEBNAVN$ 1610 ENDIF 1620 CURSOR 16,4 1630 PRINT BLANK$(1:25) 1640 CURSOR 16,4 1650 PRINT DEBNAVN$ 1660 WHEN 3 1670 IF CÆND<>1 THEN 1680 CURSOR 2,5 1690 PRINT "3:Gade :" 1700 DSTYR=4 1710 ENDIF 1720 IF CÆND<>2 THEN 1730 CURSOR 3,23 1740 PRINT "Gade";BLANK$(1:33);"(max 25 tegn)";BLANK$(1:26) 1750 CURSOR 13,23 1760 INPUT DEBGADE$ 1770 ENDIF 1780 CURSOR 16,5 1790 PRINT BLANK$(1:25) 1800 CURSOR 16,5 1810 PRINT DEBGADE$ 1820 WHEN 4 1830 IF CÆND<>1 THEN 1840 CURSOR 2,6 1850 PRINT "4:Postnr :" 1860 DSTYR=5 1870 ENDIF 1880 IF CÆND<>2 THEN 1890 REPEAT 1900 CURSOR 3,23 1910 PRINT "Postnr";BLANK$(1:12);"(max 6 tegn)";BLANK$(1:45) 1920 CURSOR 13,23 1930 INPUT PNR$ 1940 EXEC NRTEST(PNR$) 1950 UNTIL ((L>3 AND L<7) OR (P=-1 AND CÆND=1)) AND TEST2=0 1960 IF P<>-1 THEN DEBPOSTNR=P 1970 ENDIF 1980 CURSOR 16,6 1990 PRINT BLANK$(1:6) 2000 CURSOR 16,6 2010 PRINT DEBPOSTNR 2020 WHEN 5 2030 IF CÆND<>1 THEN 2040 CURSOR 2,7 2050 PRINT "5:By :" 2060 DSTYR=6 2070 ENDIF 2080 IF CÆND<>2 THEN 2090 CURSOR 3,23 2100 PRINT "By";BLANK$(1:30);"(max 20 tegn)";BLANK$(1:31) 2110 CURSOR 13,23 2120 INPUT DEBBY$ 2130 ENDIF 2140 CURSOR 16,7 2150 PRINT BLANK$(1:20) 2160 CURSOR 16,7 2170 PRINT DEBBY$ 2180 WHEN 6 2190 IF CÆND<>1 THEN 2200 CURSOR 2,8 2210 PRINT "6:Landekode : Land:" 2220 DSTYR=7 2230 ENDIF 2240 IF CÆND<>2 THEN 2250 REPEAT 2260 CURSOR 3,23 2270 PRINT "Landekode";BLANK$(1:9);"0:for Danmark,max 2 cifre)";BLANK$(1:30) 2280 CURSOR 13,23 2290 INPUT LK$ 2300 EXEC NRTEST(LK$) 2310 UNTIL (P>-1 AND P<10 AND TEST2=0) OR (P=-1 AND CÆND=1) 2320 ENDIF 2330 CURSOR 16,8 2340 PRINT BLANK$(1:3) 2350 CURSOR 27,8 2360 PRINT BLANK$(1:15) 2370 CURSOR 16,8 2380 IF P<10 AND CÆND<>2 THEN 2390 DEBLK$=CHR(P+48) 2400 ENDIF 2410 P=ORD(DEBLK$)-48 2420 PRINT USING "###":P 2430 CURSOR 27,8 2440 IF P=0 THEN 2450 PRINT "Danmark" 2460 ELSE 2470 PRINT LAND$(P) 2480 ENDIF 2490 WHEN 7 2500 IF CÆND<>1 THEN 2510 CURSOR 2,9 2520 PRINT "7:Telefon :" 2530 DSTYR=8 2540 ENDIF 2550 IF CÆND<>2 THEN 2560 CURSOR 3,23 2570 PRINT "Telefon";BLANK$(1:14);"(max 9 tegn)";BLANK$(1:44) 2580 CURSOR 13,23 2590 INPUT DEBTLF$ 2600 ENDIF 2610 CURSOR 16,9 2620 PRINT BLANK$(1:9) 2630 CURSOR 16,9 2640 PRINT DEBTLF$ 2650 WHEN 8 2660 IF CÆND<>1 THEN 2670 CURSOR 2,10 2680 PRINT "8:Kundegr :" 2690 DSTYR=9 2700 ELSE 2710 IF TYPE=2 THEN 2720 EXEC KSØG(DEBNR2,ORD(DEBKGR$)-48) 2730 EXEC KINDSLET(0) 2740 ENDIF 2750 ENDIF 2760 IF CÆND<>2 THEN 2770 REPEAT 2780 CURSOR 3,23 2790 PRINT "Kundegr (max 2 cifre)";BLANK$(1:49) 2800 CURSOR 13,23 2810 INPUT KG$ 2820 EXEC NRTEST(KG$) 2830 UNTIL (P>0 AND TEST2=0 AND P<=MKGR) OR (P=-1 AND CÆND=1) 2840 ENDIF 2850 CURSOR 16,10 2860 IF P>0 AND CÆND<>2 THEN 2870 DEBKGR$=CHR(P+48) 2880 ENDIF 2890 PRINT USING "###":INT(ORD(DEBKGR$)-48) 2900 IF CÆND=1 AND TYPE=2 THEN 2910 EXEC KSØG(DEBNR2,ORD(DEBKGR$)-48) 2920 EXEC KINDSLET(1) 2930 ENDIF 2940 ENDCASE 2950 IF CÆND=1 THEN 2960 DSTYR=9 2970 ENDIF 2980 UNTIL DSTYR=9 2990 IF CÆND<>1 THEN 3000 EXEC CALC(0,DSALDO1$,DSALDO2$,DSALDI$) 3010 EXEC CALC(0,DSALDI$,DSALDO3$,DSALDI$) 3020 EXEC CALC(0,DSALDI$,DSALDO4$,DSALDI$) 3030 CURSOR 4,12 3040 PRINT "Saldo :" 3050 CURSOR 17,12 3060 EXEC TUD(DSALDI$,TAL4$,1,0) 3070 PRINT TAL4$ 3080 CURSOR 4,14 3090 PRINT " 0-30 Dage :" 3100 CURSOR 17,14 3110 EXEC TUD(DSALDO1$,TAL4$,1,0) 3120 PRINT TAL4$ 3130 CURSOR 4,16 3140 PRINT "30-60 Dage :" 3150 CURSOR 17,16 3160 EXEC TUD(DSALDO2$,TAL4$,1,0) 3170 PRINT TAL4$ 3180 CURSOR 4,18 3190 PRINT "60-90 Dage :" 3200 CURSOR 17,18 3210 EXEC TUD(DSALDO3$,TAL4$,1,0) 3220 PRINT TAL4$ 3230 CURSOR 4,20 3240 PRINT "Ældre :" 3250 CURSOR 17,20 3260 EXEC TUD(DSALDO4$,TAL4$,1,0) 3270 PRINT TAL4$ 3280 CURSOR 44,12 3290 PRINT "Månedens køb :" 3300 CURSOR 59,12 3310 EXEC TUD(MDNKØB$,TAL4$,1,0) 3320 PRINT TAL4$ 3330 CURSOR 44,14 3340 PRINT "Årets køb :" 3350 CURSOR 59,14 3360 TÅRKØB$=ÅRKØB$ 3370 EXEC TUD(TÅRKØB$,TAL4$,1,0) 3380 PRINT TAL4$ 3390 ENDIF 3400 ENDPROC 3410 PROC TUD(BLB1,UBLB1,TEGN,STØR) 3420 BLB2$=BLB1$;UBLB2$=UBLB1$ 3430 EXEC CALC(5,BLB2$,TAH$,UBLB2$) 3440 UBLB1$=UBLB2$ 3450 IF TEGN=0 THEN 3460 UBLB1$=UBLB1$(1:13) 3470 ELSE 3480 IF TEGN=1 AND UBLB1$(LEN(UBLB1$))="+" THEN 3490 UBLB1$(LEN(UBLB1$))=" " 3500 ENDIF 3510 ENDIF 3520 IF STØR=1 THEN 3530 UBLB1$=UBLB1$(4:LEN(UBLB1$)-3) 3540 ENDIF 3550 ENDPROC 3560 PROC KINDSLET(AR1) 3570 IF FUN+AR1=0 THEN 3580 IF SPIL1=0 THEN 3590 KARRAY(ORD(DEBKGR$)-48)=HKUNDE 3600 ELSE 3610 HKUNDE1=HKUNDE 3620 ENDIF 3630 ELSE 3640 IF FUN+AR1=2 THEN 3650 HKUNDE=SPIL2 3660 IF SPIL1=0 THEN 3670 KARRAY(ORD(DEBKGR$)-48)=DEBNR 3680 ELSE 3690 HKUNDE1=DEBNR 3700 ENDIF 3710 ELSE 3720 STOP 3730 ENDIF 3740 ENDIF 3750 IF (FUN+AR1=0 OR FUN+AR1=2) AND SPIL1<>0 THEN 3760 PUT K3$,DTAB(DPIL3,2)+2:DEBGADE1$,DEBTLF1$,HPOST1,HKUNDE1 3770 EXEC FEJL(11,2,K3$) 3780 ENDIF 3790 ENDPROC 3800 PROC KSØG(NØGLE,KGR) 3810 FUN=1;SPIL1=0;SPIL2=KARRAY(KGR) 3820 IF SPIL2<NØGLE AND SPIL2>0 THEN 3830 REPEAT 3840 SPIL1=SPIL2 3850 EXEC FINDPOST(DTAB,MDANTAL,SPIL1,DPIL3) 3860 IF CEKS=1 THEN STOP 3870 GET K3$,DTAB(DPIL3,2)+2:DEBGADE1$,DEBTLF1$,HPOST1,HKUNDE1 3880 EXEC FEJL(10,2,K3$) 3890 SPIL2=HKUNDE1 3900 UNTIL SPIL2=>NØGLE OR SPIL2=0 3910 ENDIF 3920 IF SPIL2=NØGLE THEN FUN=0 3930 ENDPROC 3940 PROC KPUT 3950 OPEN K4$,W 3960 EXEC FEJL(12,1,K4$) 3970 FOR I=1 TO MKGR DIV 5 3980 J=(I-1)*5+1 3990 PUT K4$,I:KARRAY(J),KARRAY(J+1),KARRAY(J+2),KARRAY(J+3),KARRAY(J+4) 4000 EXEC FEJL(12,2,K4$) 4010 NEXT I 4020 CLOSE K4$ 4030 EXEC FEJL(12,3,K4$) 4040 ENDPROC 4050 PROC NRTEST(NUM1) 4060 P=0;TEST2=0;KTAL=0;L=LEN(NUM1$) 4070 CASE L OF 4080 FOR I=1 TO L 4090 P1=INT(ORD(NUM1$(I))-48) 4100 IF P1=>0 AND P1<=9 THEN 4110 P=P*10+P1 4120 ELSE 4130 TEST2=1 4140 ENDIF 4150 NEXT I 4160 KTAL=P DIV 10000 4170 WHEN 0 4180 P=-1 4190 WHEN 1 4200 CASE NUM1$ OF 4210 P=INT(ORD(NUM1$)-48) 4220 WHEN "J","j" 4230 P=-7 4240 WHEN "N","n" 4250 P=-8 4260 ENDCASE 4270 ENDCASE 4280 ENDPROC 4290 PROC OVERSKRIFT 4300 CURSOR 45,1 4310 CASE TYPE OF 4320 WHEN 1 4330 PRINT "Oprettelse" 4340 WHEN 2 4350 PRINT "Ændring" 4360 WHEN 3 4370 PRINT "Sletning" 4380 WHEN 4 4390 PRINT "Udskrift" 4400 WHEN 5 4410 PRINT "Kundekontoliste" 4420 ENDCASE 4430 ENDPROC 4440 K1$="P641220:SYSTEM1" 4450 OPEN K1$,R 4460 EXEC FEJL(9,1,K1$) 4470 GET K1$,1:MFANTAL,MDANTAL 4480 EXEC FEJL(9,2,K1$) 4490 GET K1$,4:MKRMID,MFAK,MVGR,MKGR 4500 EXEC FEJL(9,3,K1$) 4510 GET K1$,8:DIVNR,DIVDNR,DIFNR,DTAL 4520 EXEC FEJL(9,4,K1$) 4530 GET K1$,10:N$ 4540 EXEC FEJL(9,5,K1$) 4550 GET K1$,12:K2$ 4560 EXEC FEJL(9,6,K1$) 4570 GET K1$,16:K3$ 4580 EXEC FEJL(9,7,K1$) 4590 GET K1$,35:K4$ 4600 EXEC FEJL(9,8,K1$) 4610 GET K1$,36:K5$ 4620 EXEC FEJL(9,9,K1$) 4630 CLOSE K1$ 4640 EXEC FEJL(9,10,K1$) 4650 DIM DTAB(MDANTAL,2),KARRAY(MKGR) 4660 K5$=N$+K5$ 4670 OPEN K5$,W 4680 EXEC FEJL(9,11,K5$) 4690 GET K5$,2:T1(1),T1(2),T1(3),T1(4),T1(5),T1(6),DATO 4700 EXEC FEJL(9,12,K5$) 4710 FOR I=1 TO 3 4720 J=(I-1)*3+1 4730 GET K5$,I+2:LAND$(J),LAND$(J+1),LAND$(J+2) 4740 EXEC FEJL(9,13,K5$) 4750 NEXT I 4760 GET K5$,14:AFIN,ADEB,AKRE,VTAB2(1),VTAB2(2),VTAB2(3),VTAB2(4),VTAB2(5) 4770 EXEC FEJL(9,14,K5$) 4780 GET K5$,17:T2(1),T2(2),T2(3),T2(4),T2(5),T2(6),T2(7),T2(8),T2(9) 4790 EXEC FEJL(9,15,K5$) 4800 T2(3)=1 4810 PUT K5$,17:T2(1),T2(2),T2(3),T2(4),T2(5),T2(6),T2(7),T2(8),T2(9) 4820 EXEC FEJL(9,16,K5$) 4830 CLOSE K5$ 4840 EXEC FEJL(9,17,K5$) 4850 K3$=N$+K3$ 4860 OPEN K3$,W 4870 EXEC FEJL(9,18,K3$) 4880 K2$=N$+K2$ 4890 OPEN K2$,W 4900 EXEC FEJL(9,19,K2$) 4910 EXEC INDTAB(DTAB,MDANTAL,K2$) 4920 K4$=N$+K4$ 4930 OPEN K4$,R 4940 EXEC FEJL(9,10,K4$) 4950 FOR I=1 TO MKGR DIV 5 4960 J=(I-1)*5+1 4970 GET K4$,I:KARRAY(J),KARRAY(J+1),KARRAY(J+2),KARRAY(J+3),KARRAY(J+4) 4980 EXEC FEJL(9,11,K4$) 4990 NEXT I 5000 CLOSE K4$ 5010 EXEC FEJL(9,12,K4$) 5020 BLANK$=" ";BLANK$=BLANK$+BLANK$+" " 5030 TAH$="0+";TAL4$="0+" 5040 STREG$="-----------------------------------";STREG$=STREG$+STREG$ 5050 REPEAT 5060 CLEAR 5070 CURSOR 21,1 5080 PRINT "Kundevedligeholdelse" 5090 CURSOR 2,3 5100 PRINT "0:Færdig" 5110 CURSOR 2,5 5120 PRINT "1:Oprettelse" 5130 CURSOR 2,7 5140 PRINT "2:Ændring" 5150 CURSOR 2,9 5160 PRINT "3:Sletning" 5170 CURSOR 2,11 5180 PRINT "4:Udskrift" 5190 CURSOR 2,13 5200 PRINT "5:Kundekontoliste" 5210 REPEAT 5220 CURSOR 4,15 5230 PRINT "Vælg type (0-5)" 5240 CURSOR 14,15 5250 INPUT TY$ 5260 EXEC NRTEST(TY$) 5270 UNTIL P>-1 AND P<6 5280 TYPE=P 5290 IF TYPE=0 THEN EXIT 5300 REPEAT 5310 EXEC OVERSKRIFT 5320 TEST=0;KONT=1 5330 IF TYPE<5 THEN 5340 REPEAT 5350 REPEAT 5360 CURSOR 3,23 5370 PRINT "Indtast nyt kundenr (0:for færdig)";BLANK$(1:35) 5380 CURSOR 22,23 5390 INPUT KTN$ 5400 EXEC NRTEST(KTN$) 5410 UNTIL (TEST2=0 AND KTAL=DTAL AND DTAL*10000+MKGR<P) OR P=0 5420 KONT=P 5430 IF KONT=0 THEN EXIT 5440 EXEC FINDPOST(DTAB,MDANTAL,P,DPIL3) 5450 REPEAT 5460 CURSOR 44,23 5470 IF (CEKS=0 AND TYPE<>1) OR (CEKS=1 AND TYPE=1 AND ADEB<MDANTAL) THEN 5480 PRINT BLANK$(1:35) 5490 P=-1 5500 ELSE 5510 IF CEKS=1 AND TYPE=1 AND ADEB=>MDANTAL THEN 5520 CURSOR 3,23 5530 INPUT "Ikke plads til flere kunder,tast RETURN ",A$ 5540 ELSE 5550 IF CEKS=0 THEN 5560 INPUT "Kunde eksisterer , tast RETURN ",A$ 5570 ELSE 5580 INPUT "Kunde eksisterer ikke , tast RETURN",A$ 5590 ENDIF 5600 ENDIF 5610 EXEC NRTEST(A$) 5620 ENDIF 5630 UNTIL P=-1 5640 UNTIL (CEKS=0 AND TYPE<>1) OR (CEKS=1 AND TYPE=1 AND ADEB<MDANTAL) 5650 IF KONT=0 THEN EXIT 5660 IF TYPE<>1 THEN 5670 FNR=KONT 5680 EXEC HENTDPOST 5690 IF TYPE=3 THEN EXEC SALDOTEST 5700 IF TEST<>0 THEN EXIT 5710 EXEC DINDTAST(2,2,FNR) 5720 ELSE 5730 DEBNR=KONT 5740 DEBNAVN$=BLANK$(1:25) 5750 DSALDO1$="0+" 5760 DSALDO2$="0+" 5770 DSALDO3$="0+" 5780 DSALDO4$="0+" 5790 MDNKØB$="0+" 5800 ÅRKØB$="0+" 5810 DEBGADE$=BLANK$(1:25) 5820 DEBTLF$=BLANK$(1:9) 5830 HPOST=0 5840 HKUNDE=0 5850 DEBPOSTNR=0 5860 DEBLK$="0" 5870 DEBKGR$="0" 5880 DEBBY$=BLANK$(1:20) 5890 EXEC DINDTAST(2,0,DEBNR) 5900 ENDIF 5910 ENDIF 5920 IF KONT=0 THEN EXIT 5930 IF TEST=0 THEN 5940 CASE TYPE OF 5950 STOP 5960 WHEN 1,2 5970 REPEAT 5980 REPEAT 5990 CURSOR 3,23 6000 PRINT "Hvilket felt ønskes ændret (Indtast feltnr 2-8,"; 6010 PRINT "0:for færdig) " 6020 CURSOR 32,23 6030 INPUT LK$ 6040 EXEC NRTEST(LK$) 6050 UNTIL P=0 OR (P>1 AND P<9) 6060 STYR1=P 6070 IF STYR1=0 THEN EXIT 6080 EXEC DINDTAST(STYR1,1,DEBNR) 6090 UNTIL STYR1=0 6100 IF TYPE=1 THEN 6110 EXEC KSØG(DEBNR,ORD(DEBKGR$)-48) 6120 EXEC KINDSLET(1) 6130 EXEC FINDPOST(DTAB,MDANTAL,DEBNR,DPIL3) 6140 EXEC INDSÆT(DTAB,ADEB,DEBNR,DPIL3) 6150 EXEC GEMDPOST 6160 ELSE 6170 EXEC FINDPOST(DTAB,MDANTAL,DEBNR,DPIL3) 6180 EXEC GEMDPOST 6190 ENDIF 6200 WHEN 3 6210 REPEAT 6220 CURSOR 3,23 6230 PRINT "Er det rigtigt at denne konto skal slettes"; 6240 PRINT " (J/N)";BLANK$(1:23) 6250 CURSOR 48,23 6260 INPUT A$ 6270 EXEC NRTEST(A$) 6280 UNTIL P=-7 OR P=-8 6290 IF P=-7 THEN 6300 EXEC KSØG(DEBNR,ORD(DEBKGR$)-48) 6310 EXEC KINDSLET(0) 6320 EXEC SLETDPOST(DEBNR) 6330 ENDIF 6340 WHEN 4 6350 WHEN 5 6360 REPEAT 6370 REPEAT 6380 CURSOR 3,23 6390 PRINT "Fra kundenr (0: Alle)" 6400 CURSOR 15,23 6410 INPUT KTN$ 6420 EXEC NRTEST(KTN$) 6430 UNTIL L=5 AND P>9999 AND TEST2=0 OR P=0 6440 IF P=0 THEN 6450 FRA=1;TIL=ADEB 6460 ELSE 6470 KONT=P 6480 EXEC FINDPOST(DTAB,MDANTAL,P,DPIL3) 6490 FRA=DPIL3 6500 ENDIF 6510 UNTIL FRA<=ADEB 6520 IF P>0 THEN 6530 REPEAT 6540 CURSOR 3,23 6550 PRINT "Til kundenr " 6560 CURSOR 15,23 6570 INPUT KTN$ 6580 EXEC NRTEST(KTN$) 6590 UNTIL L=5 AND P>9999 AND TEST2=0 AND P=>KONT 6600 EXEC FINDPOST(DTAB,MDANTAL,P,DPIL3) 6610 IF CEKS=1 THEN DPIL3=DPIL3-1 6620 TIL=DPIL3 6630 ENDIF 6640 CLEAR 6650 REPEAT 6660 CURSOR 8,13 6670 INPUT "Monter papir til udskrift af kundekontoliste og tast RETURN",A$ 6680 UNTIL ORD(A$)=255 6690 OUTPUT P 6700 SIDE=1;DA1=DATO;DAT$=" " 6710 FOR J=8 TO 1 STEP -1 6720 IF J MOD 3=0 THEN 6730 DAT$(J)="." 6740 ELSE 6750 DAT$(J)=CHR(DA1 MOD 10+48);DA1=DA1 DIV 10 6760 ENDIF 6770 NEXT J 6780 FOR I=FRA TO TIL STEP 4 6790 PRINT TAB(10);CHR(14);"Kundekontoliste";CHR(15);TAB(38);"Dato : ";DAT$; 6800 PRINT USING " Side :####":SIDE 6810 PRINT " " 6820 SIDE=SIDE+1 6830 FOR DPIL3=I TO I+3 6840 IF DTAB(DPIL3,1)>0 THEN 6850 EXEC HENTDPOST 6860 EXEC TUD(MDNKØB$,UD1$,1,0) 6870 TÅRKØB$=ÅRKØB$ 6880 EXEC TUD(TÅRKØB$,UD2$,1,0) 6890 PRINT TAB(9);STREG$ 6900 PRINT TAB(9);"NAVN OG ADRESSE";TAB(39);"MÅNEDENS KØB ÅRETS KØB H"; 6910 PRINT "KUNDE HPOST" 6920 PRINT " " 6930 PRINT USING "###### ":DEBNR; 6940 PRINT DEBNAVN$;TAB(38);UD1$;" ";UD2$; 6950 PRINT USING "###### ######":HKUNDE,HPOST 6960 PRINT TAB(9);DEBGADE$;" " 6970 PRINT USING " ####### ":DEBPOSTNR; 6980 PRINT DEBBY$;TAB(39); 6990 DLK=ORD(DEBLK$)-48;DKGR=ORD(DEBKGR$)-48 7000 PRINT USING "LANDEKODE:### KUNDEGRUPPE:###":DLK,DKGR 7010 PRINT " " 7020 PRINT TAB(9);"TLF";TAB(23);"0-30 DAGE 30-60 DAGE 60-90 DAGE"; 7030 PRINT " ÆLDRE" 7040 PRINT " " 7050 EXEC TUD(DSALDO1$,UD1$,1,0) 7060 EXEC TUD(DSALDO2$,UD2$,1,0) 7070 EXEC TUD(DSALDO3$,UD3$,1,0) 7080 EXEC TUD(DSALDO4$,UD4$,1,0) 7090 PRINT TAB(9);DEBTLF$;TAB(19);UD1$;" ";UD2$;" ";UD3$;" ";UD4$ 7100 PRINT " " 7110 ENDIF 7120 IF DPIL3=TIL THEN EXIT 7130 NEXT DPIL3 7140 PRINT CHR(10) 7150 IF DPIL3=TIL THEN EXIT 7160 NEXT I 7170 FOR J=DPIL3+1 TO I+3 7180 PRINT CHR(10) 7190 PRINT CHR(10) 7200 PRINT CHR(10) 7210 PRINT CHR(10) 7220 PRINT CHR(10) 7230 PRINT " " 7240 NEXT J 7250 OUTPUT T 7260 KONT=0 7270 ENDCASE 7280 ELSE 7290 REPEAT 7300 CURSOR 3,23 7310 PRINT "Denne konto kan ikke slettes, da saldoen ikke er udlignet,"; 7320 PRINT " tryk RETURN " 7330 INPUT A$ 7340 EXEC NRTEST(A$) 7350 UNTIL P=-1 7360 ENDIF 7370 UNTIL KONT=0 7380 UNTIL TYPE=0 7390 EXEC KPUT 7400 EXEC UDTAB(DTAB,MDANTAL,K2$) 7410 CLOSE K2$ 7420 EXEC FEJL(9,20,K2$) 7430 CLOSE K3$ 7440 EXEC FEJL(9,21,K3$) 7450 T2(3)=0 7460 OPEN K5$,W 7470 EXEC FEJL(9,22,K5$) 7480 PUT K5$,14:AFIN,ADEB,AKRE,VTAB2(1),VTAB2(2),VTAB2(3),VTAB2(4),VTAB2(5) 7490 EXEC FEJL(9,23,K5$) 7500 PUT K5$,17:T2(1),T2(2),T2(3),T2(4),T2(5),T2(6),T2(7),T2(8),T2(9) 7510 EXEC FEJL(9,24,K5$) 7520 CLOSE K5$ 7530 EXEC FEJL(9,25,K5$) 7540 CHAIN "P641210:OPSTART" 7550 PROC SALDOTEST 7560 EXEC CALC(4,DSALDO1$,TAH$,TAH$) 7570 IF SI=0 THEN 7580 EXEC CALC(4,DSALDO2$,TAH$,TAH$) 7590 IF SI=0 THEN 7600 EXEC CALC(4,DSALDO3$,TAH$,TAH$) 7610 IF SI=0 THEN 7620 EXEC CALC(4,DSALDO4$,TAH$,TAH$) 7630 IF SI<>0 THEN TEST=1 7640 ELSE 7650 TEST=1 7660 ENDIF 7670 ELSE 7680 TEST=1 7690 ENDIF 7700 ELSE 7710 TEST=1 7720 ENDIF 7730 ENDPROC
0x0000…004e Line {l1=0x4c, l2=»0100 DIM K1$(17),K2$(17),DEBNAVN$(25),DSALDO1$(12),DEBKGR$(1),UD2$(14),A$(1)«, l3=0x4c}
0x004e…009c Line {l1=0x4c, l2=»0110 DIM DSALDO2$(12),DSALDO3$(12),DSALDO4$(12),DEBLK$(1),DEBGADE$(25),N$(6)«, l3=0x4c}
0x009c…00e9 Line {l1=0x4b, l2=»0120 DIM T2(9),BLANK$(77),TAL4$(14),TAH$(12),DEBTLF$(9),DEBBY$(20),VTAB2(5)«, l3=0x4b}
0x00e9…0135 Line {l1=0x4a, l2=»0130 DIM RES$(14),ÅRKØB$(12),MDNKØB$(12),DSALDI$(12),LK$(3),KG$(3),KTN$(6)«, l3=0x4a}
0x0135…0184 Line {l1=0x4d, l2=»0140 DIM PNR$(6),TY$(1),OP1$(12),OP2$(12),TA$(12),TB$(14),TÅRKØB$(12),DAT$(8)«, l3=0x4d}
0x0184…01d1 Line {l1=0x4b, l2=»0150 DIM DEBGADE1$(25),DEBTLF1$(9),BLB2$(12),UBLB2$(14),UD1$(14),STREG$(71)«, l3=0x4b}
0x01d1…021f Line {l1=0x4c, l2=»0160 DIM UD3$(14),UD4$(14),K3$(17),K4$(17),K5$(17),K6$(17),T1(9),LAND$(9,12)«, l3=0x4c}
0x021f…023d Line {l1=0x1c, l2=»0170 PROC CALC(ART,B1,B2,ES)«, l3=0x1c}
0x023d…026a Line {l1=0x2b, l2=»0180 OP1$=B1$;OP2$=B2$;RES$=ES$;SI=0;FLAG=0«, l3=0x2b}
0x026a…0284 Line {l1=0x18, l2=»0190 CALL "P641210:REGN"«, l3=0x18}
0x0284…0293 Line {l1=0x0d, l2=»0200 ES$=RES$«, l3=0x0d}
0x0293…02ac Line {l1=0x17, l2=»0210 IF FLAG THEN STOP «, l3=0x17}
0x02ac…02bb Line {l1=0x0d, l2=»0220 ENDPROC «, l3=0x0d}
0x02bb…02d8 Line {l1=0x1b, l2=»0230 PROC FEJL(NR1,NR2,NR3)«, l3=0x1b}
0x02d8…02f7 Line {l1=0x1d, l2=»0240 IF STATUS(NR3$)<>0 THEN «, l3=0x1d}
0x02f7…031d Line {l1=0x24, l2=»0250 PRINT STATUS(NR3$),NR1,NR2,NR3$«, l3=0x24}
0x031d…0329 Line {l1=0x0a, l2=»0260 STOP «, l3=0x0a}
0x0329…0336 Line {l1=0x0b, l2=»0270 ENDIF «, l3=0x0b}
0x0336…0345 Line {l1=0x0d, l2=»0280 ENDPROC «, l3=0x0d}
0x0345…0365 Line {l1=0x1e, l2=»0290 PROC INDTAB(T,MANTAL,K10)«, l3=0x1e}
0x0365…037d Line {l1=0x16, l2=»0300 J=MANTAL DIV 32+1«, l3=0x16}
0x037d…039f Line {l1=0x20, l2=»0310 FOR I=J TO MANTAL DIV 4+J-1«, l3=0x20}
0x039f…03c6 Line {l1=0x25, l2=»0320 H=(I-J)*4+1;J2=H+1;J3=H+2;J4=H+3«, l3=0x25}
0x03c6…0415 Line {l1=0x4d, l2=»0330 GET K10$,I:T(H,1),T(H,2),T(J2,1),T(J2,2),T(J3,1),T(J3,2),T(J4,1),T(J4,2)«, l3=0x4d}
0x0415…042f Line {l1=0x18, l2=»0340 EXEC FEJL(1,1,K10$)«, l3=0x18}
0x042f…043c Line {l1=0x0b, l2=»0350 NEXT I«, l3=0x0b}
0x043c…044b Line {l1=0x0d, l2=»0360 ENDPROC «, l3=0x0d}
0x044b…046a Line {l1=0x1d, l2=»0370 PROC UDTAB(U,MANTAL1,K9)«, l3=0x1d}
0x046a…0483 Line {l1=0x17, l2=»0380 J=MANTAL1 DIV 32+1«, l3=0x17}
0x0483…0498 Line {l1=0x13, l2=»0390 FOR I=1 TO J-1«, l3=0x13}
0x0498…04e1 Line {l1=0x47, l2=»0400 H=(I-1)*32+1;J1=H+4;J2=H+8;J3=H+12;J4=H+16;J5=H+20;J6=H+24;J7=H+28«, l3=0x47}
0x04e1…0530 Line {l1=0x4d, l2=»0410 PUT K9$,I:U(H,1),U(J1,1),U(J2,1),U(J3,1),U(J4,1),U(J5,1),U(J6,1),U(J7,1)«, l3=0x4d}
0x0530…0549 Line {l1=0x17, l2=»0420 EXEC FEJL(2,1,K9$)«, l3=0x17}
0x0549…0556 Line {l1=0x0b, l2=»0430 NEXT I«, l3=0x0b}
0x0556…0579 Line {l1=0x21, l2=»0440 FOR I=J TO MANTAL1 DIV 4+J-1«, l3=0x21}
0x0579…05a0 Line {l1=0x25, l2=»0450 H=(I-J)*4+1;J1=H+1;J2=H+2;J3=H+3«, l3=0x25}
0x05a0…05ee Line {l1=0x4c, l2=»0460 PUT K9$,I:U(H,1),U(H,2),U(J1,1),U(J1,2),U(J2,1),U(J2,2),U(J3,1),U(J3,2)«, l3=0x4c}
0x05ee…0607 Line {l1=0x17, l2=»0470 EXEC FEJL(2,2,K9$)«, l3=0x17}
0x0607…0614 Line {l1=0x0b, l2=»0480 NEXT I«, l3=0x0b}
0x0614…0623 Line {l1=0x0d, l2=»0490 ENDPROC «, l3=0x0d}
0x0623…064e Line {l1=0x29, l2=»0500 PROC FINDPOST(TAB1,MANT1,NØGL1,PIL3)«, l3=0x29}
0x064e…0676 Line {l1=0x26, l2=»0510 PIL1=MANT1 DIV 2;PIL3=PIL1;CEKS=1«, l3=0x26}
0x0676…0684 Line {l1=0x0c, l2=»0520 REPEAT «, l3=0x0c}
0x0684…06a6 Line {l1=0x20, l2=»0530 IF NØGL1=TAB1(PIL3,1) THEN «, l3=0x20}
0x06a6…06b3 Line {l1=0x0b, l2=»0540 CEKS=0«, l3=0x0b}
0x06b3…06bf Line {l1=0x0a, l2=»0550 ELSE «, l3=0x0a}
0x06bf…06db Line {l1=0x1a, l2=»0560 IF PIL1=1 THEN PIL1=0«, l3=0x1a}
0x06db…06f6 Line {l1=0x19, l2=»0570 PIL1=INT((PIL1+1)/2)«, l3=0x19}
0x06f6…0718 Line {l1=0x20, l2=»0580 IF NØGL1>TAB1(PIL3,1) THEN «, l3=0x20}
0x0718…072d Line {l1=0x13, l2=»0590 PIL3=PIL3+PIL1«, l3=0x13}
0x072d…0739 Line {l1=0x0a, l2=»0600 ELSE «, l3=0x0a}
0x0739…074e Line {l1=0x13, l2=»0610 PIL3=PIL3-PIL1«, l3=0x13}
0x074e…075b Line {l1=0x0b, l2=»0620 ENDIF «, l3=0x0b}
0x075b…0777 Line {l1=0x1a, l2=»0630 IF PIL3<1 THEN PIL3=1«, l3=0x1a}
0x0777…079b Line {l1=0x22, l2=»0640 IF PIL3>MANT1 THEN PIL3=MANT1«, l3=0x22}
0x079b…07a8 Line {l1=0x0b, l2=»0650 ENDIF «, l3=0x0b}
0x07a8…07c5 Line {l1=0x1b, l2=»0660 UNTIL CEKS=0 OR PIL1=0«, l3=0x1b}
0x07c5…07d4 Line {l1=0x0d, l2=»0670 ENDPROC «, l3=0x0d}
0x07d4…07f1 Line {l1=0x1b, l2=»0680 PROC SLETDPOST(NØGLE3)«, l3=0x1b}
0x07f1…0820 Line {l1=0x2d, l2=»0690 EXEC FINDPOST(DTAB,MDANTAL,NØGLE3,DPIL3)«, l3=0x2d}
0x0820…083b Line {l1=0x19, l2=»0700 IF CEKS=1 THEN STOP «, l3=0x19}
0x083b…0849 Line {l1=0x0c, l2=»0710 DEBNR=0«, l3=0x0c}
0x0849…0865 Line {l1=0x1a, l2=»0720 DEBNAVN$=BLANK$(1:25)«, l3=0x1a}
0x0865…0881 Line {l1=0x1a, l2=»0730 DSALDO1$=BLANK$(1:12)«, l3=0x1a}
0x0881…089d Line {l1=0x1a, l2=»0740 DSALDO2$=BLANK$(1:12)«, l3=0x1a}
0x089d…08b9 Line {l1=0x1a, l2=»0750 DSALDO3$=BLANK$(1:12)«, l3=0x1a}
0x08b9…08d5 Line {l1=0x1a, l2=»0760 DSALDO4$=BLANK$(1:12)«, l3=0x1a}
0x08d5…08ef Line {l1=0x18, l2=»0770 ÅRKØB$=BLANK$(1:12)«, l3=0x18}
0x08ef…090a Line {l1=0x19, l2=»0780 MDNKØB$=BLANK$(1:12)«, l3=0x19}
0x090a…091c Line {l1=0x10, l2=»0790 DEBKGR$="0"«, l3=0x10}
0x091c…092e Line {l1=0x10, l2=»0800 DEBPOSTNR=0«, l3=0x10}
0x092e…093f Line {l1=0x0f, l2=»0810 DEBLK$="0"«, l3=0x0f}
0x093f…095b Line {l1=0x1a, l2=»0820 DEBGADE$=BLANK$(1:25)«, l3=0x1a}
0x095b…0975 Line {l1=0x18, l2=»0830 DEBTLF$=BLANK$(1:9)«, l3=0x18}
0x0975…0983 Line {l1=0x0c, l2=»0840 HPOST=0«, l3=0x0c}
0x0983…0992 Line {l1=0x0d, l2=»0850 HKUNDE=0«, l3=0x0d}
0x0992…09ac Line {l1=0x18, l2=»0860 DEBBY$=BLANK$(1:20)«, l3=0x18}
0x09ac…09c0 Line {l1=0x12, l2=»0870 EXEC GEMDPOST«, l3=0x12}
0x09c0…09ec Line {l1=0x2a, l2=»0880 EXEC SLETPOST(DTAB,ADEB,NØGLE3,DPIL3)«, l3=0x2a}
0x09ec…09fb Line {l1=0x0d, l2=»0890 ENDPROC «, l3=0x0d}
0x09fb…0a25 Line {l1=0x28, l2=»0900 PROC INDSÆT(TAB2,ANTAL2,NØGL2,PIL4)«, l3=0x28}
0x0a25…0a3b Line {l1=0x14, l2=»0910 IF CEKS=1 THEN «, l3=0x14}
0x0a3b…0a59 Line {l1=0x1c, l2=»0920 POSTNR=TAB2(ANTAL2+1,2)«, l3=0x1c}
0x0a59…0aa0 Line {l1=0x45, l2=»0930 IF NØGL2>TAB2(PIL4,1) AND TAB2(PIL4,1)<>1000000 THEN PIL4=PIL4+1«, l3=0x45}
0x0aa0…0ac7 Line {l1=0x25, l2=»0940 FOR J=ANTAL2+1 TO PIL4+1 STEP -1«, l3=0x25}
0x0ac7…0ae3 Line {l1=0x1a, l2=»0950 TAB2(J,1)=TAB2(J-1,1)«, l3=0x1a}
0x0ae3…0aff Line {l1=0x1a, l2=»0960 TAB2(J,2)=TAB2(J-1,2)«, l3=0x1a}
0x0aff…0b0c Line {l1=0x0b, l2=»0970 NEXT J«, l3=0x0b}
0x0b0c…0b25 Line {l1=0x17, l2=»0980 TAB2(PIL4,1)=NØGL2«, l3=0x17}
0x0b25…0b3f Line {l1=0x18, l2=»0990 TAB2(PIL4,2)=POSTNR«, l3=0x18}
0x0b3f…0b55 Line {l1=0x14, l2=»1000 ANTAL2=ANTAL2+1«, l3=0x14}
0x0b55…0b62 Line {l1=0x0b, l2=»1010 ENDIF «, l3=0x0b}
0x0b62…0b71 Line {l1=0x0d, l2=»1020 ENDPROC «, l3=0x0d}
0x0b71…0b9d Line {l1=0x2a, l2=»1030 PROC SLETPOST(TAB3,ANTAL3,NØGL3,PIL5)«, l3=0x2a}
0x0b9d…0bb3 Line {l1=0x14, l2=»1040 IF CEKS=0 THEN «, l3=0x14}
0x0bb3…0bcd Line {l1=0x18, l2=»1050 POSTNR=TAB3(PIL5,2)«, l3=0x18}
0x0bcd…0be8 Line {l1=0x19, l2=»1060 FOR I=PIL5 TO ANTAL3«, l3=0x19}
0x0be8…0c04 Line {l1=0x1a, l2=»1070 TAB3(I,1)=TAB3(I+1,1)«, l3=0x1a}
0x0c04…0c20 Line {l1=0x1a, l2=»1080 TAB3(I,2)=TAB3(I+1,2)«, l3=0x1a}
0x0c20…0c2d Line {l1=0x0b, l2=»1090 NEXT I«, l3=0x0b}
0x0c2d…0c4a Line {l1=0x1b, l2=»1100 TAB3(ANTAL3,1)=1000000«, l3=0x1b}
0x0c4a…0c66 Line {l1=0x1a, l2=»1110 TAB3(ANTAL3,2)=POSTNR«, l3=0x1a}
0x0c66…0c7c Line {l1=0x14, l2=»1120 ANTAL3=ANTAL3-1«, l3=0x14}
0x0c7c…0c89 Line {l1=0x0b, l2=»1130 ENDIF «, l3=0x0b}
0x0c89…0c98 Line {l1=0x0d, l2=»1140 ENDPROC «, l3=0x0d}
0x0c98…0cad Line {l1=0x13, l2=»1150 PROC HENTDPOST«, l3=0x13}
0x0cad…0cc3 Line {l1=0x14, l2=»1160 S=DTAB(DPIL3,2)«, l3=0x14}
0x0cc3…0cf3 Line {l1=0x2e, l2=»1170 GET K3$,S:DEBNR,DEBNAVN$,DSALDO1$,DEBKGR$«, l3=0x2e}
0x0cf3…0d0c Line {l1=0x17, l2=»1180 EXEC FEJL(8,2,K3$)«, l3=0x17}
0x0d0c…0d35 Line {l1=0x27, l2=»1190 IF DEBNR<>DTAB(DPIL3,1) THEN STOP «, l3=0x27}
0x0d35…0d73 Line {l1=0x3c, l2=»1200 GET K3$,S+1:DSALDO2$,DSALDO3$,DSALDO4$,DEBPOSTNR,DEBLK$«, l3=0x3c}
0x0d73…0d8c Line {l1=0x17, l2=»1210 EXEC FEJL(8,3,K3$)«, l3=0x17}
0x0d8c…0dbc Line {l1=0x2e, l2=»1220 GET K3$,S+2:DEBGADE$,DEBTLF$,HPOST,HKUNDE«, l3=0x2e}
0x0dbc…0dd5 Line {l1=0x17, l2=»1230 EXEC FEJL(8,4,K3$)«, l3=0x17}
0x0dd5…0dfd Line {l1=0x26, l2=»1240 GET K3$,S+3:DEBBY$,ÅRKØB$,MDNKØB$«, l3=0x26}
0x0dfd…0e16 Line {l1=0x17, l2=»1250 EXEC FEJL(8,5,K3$)«, l3=0x17}
0x0e16…0e25 Line {l1=0x0d, l2=»1260 ENDPROC «, l3=0x0d}
0x0e25…0e39 Line {l1=0x12, l2=»1270 PROC GEMDPOST«, l3=0x12}
0x0e39…0e4f Line {l1=0x14, l2=»1280 S=DTAB(DPIL3,2)«, l3=0x14}
0x0e4f…0e7f Line {l1=0x2e, l2=»1290 PUT K3$,S:DEBNR,DEBNAVN$,DSALDO1$,DEBKGR$«, l3=0x2e}
0x0e7f…0e98 Line {l1=0x17, l2=»1300 EXEC FEJL(9,3,K3$)«, l3=0x17}
0x0e98…0ed6 Line {l1=0x3c, l2=»1310 PUT K3$,S+1:DSALDO2$,DSALDO3$,DSALDO4$,DEBPOSTNR,DEBLK$«, l3=0x3c}
0x0ed6…0eef Line {l1=0x17, l2=»1320 EXEC FEJL(9,4,K3$)«, l3=0x17}
0x0eef…0f1f Line {l1=0x2e, l2=»1330 PUT K3$,S+2:DEBGADE$,DEBTLF$,HPOST,HKUNDE«, l3=0x2e}
0x0f1f…0f38 Line {l1=0x17, l2=»1340 EXEC FEJL(9,4,K3$)«, l3=0x17}
0x0f38…0f60 Line {l1=0x26, l2=»1350 PUT K3$,S+3:DEBBY$,ÅRKØB$,MDNKØB$«, l3=0x26}
0x0f60…0f79 Line {l1=0x17, l2=»1360 EXEC FEJL(9,5,K3$)«, l3=0x17}
0x0f79…0f88 Line {l1=0x0d, l2=»1370 ENDPROC «, l3=0x0d}
0x0f88…0faf Line {l1=0x25, l2=»1380 PROC DINDTAST(DSTYR,CÆND,DEBNR2)«, l3=0x25}
0x0faf…0fc6 Line {l1=0x15, l2=»1390 IF CÆND<>1 THEN «, l3=0x15}
0x0fc6…0fd3 Line {l1=0x0b, l2=»1400 CLEAR «, l3=0x0b}
0x0fd3…0fe5 Line {l1=0x10, l2=»1410 CURSOR 21,1«, l3=0x10}
0x0fe5…1004 Line {l1=0x1d, l2=»1420 PRINT "Kundeoplysninger"«, l3=0x1d}
0x1004…101a Line {l1=0x14, l2=»1430 EXEC OVERSKRIFT«, l3=0x14}
0x101a…102b Line {l1=0x0f, l2=»1440 CURSOR 2,3«, l3=0x0f}
0x102b…104e Line {l1=0x21, l2=»1450 PRINT "1:Kundenr :";DEBNR2«, l3=0x21}
0x104e…105b Line {l1=0x0b, l2=»1460 ENDIF «, l3=0x0b}
0x105b…1069 Line {l1=0x0c, l2=»1470 REPEAT «, l3=0x0c}
0x1069…107e Line {l1=0x13, l2=»1480 CASE DSTYR OF «, l3=0x13}
0x107e…108a Line {l1=0x0a, l2=»1490 STOP «, l3=0x0a}
0x108a…1097 Line {l1=0x0b, l2=»1500 WHEN 2«, l3=0x0b}
0x1097…10ae Line {l1=0x15, l2=»1510 IF CÆND<>1 THEN «, l3=0x15}
0x10ae…10bf Line {l1=0x0f, l2=»1520 CURSOR 2,4«, l3=0x0f}
0x10bf…10db Line {l1=0x1a, l2=»1530 PRINT "2:Navn :"«, l3=0x1a}
0x10db…10e9 Line {l1=0x0c, l2=»1540 DSTYR=3«, l3=0x0c}
0x10e9…10f6 Line {l1=0x0b, l2=»1550 ENDIF «, l3=0x0b}
0x10f6…110d Line {l1=0x15, l2=»1560 IF CÆND<>2 THEN «, l3=0x15}
0x110d…111f Line {l1=0x10, l2=»1570 CURSOR 3,23«, l3=0x10}
0x111f…115c Line {l1=0x3b, l2=»1580 PRINT "Navn";BLANK$(1:33);"(max 25 tegn)";BLANK$(1:26)«, l3=0x3b}
0x115c…116f Line {l1=0x11, l2=»1590 CURSOR 13,23«, l3=0x11}
0x116f…1184 Line {l1=0x13, l2=»1600 INPUT DEBNAVN$«, l3=0x13}
0x1184…1191 Line {l1=0x0b, l2=»1610 ENDIF «, l3=0x0b}
0x1191…11a3 Line {l1=0x10, l2=»1620 CURSOR 16,4«, l3=0x10}
0x11a3…11bc Line {l1=0x17, l2=»1630 PRINT BLANK$(1:25)«, l3=0x17}
0x11bc…11ce Line {l1=0x10, l2=»1640 CURSOR 16,4«, l3=0x10}
0x11ce…11e3 Line {l1=0x13, l2=»1650 PRINT DEBNAVN$«, l3=0x13}
0x11e3…11f0 Line {l1=0x0b, l2=»1660 WHEN 3«, l3=0x0b}
0x11f0…1207 Line {l1=0x15, l2=»1670 IF CÆND<>1 THEN «, l3=0x15}
0x1207…1218 Line {l1=0x0f, l2=»1680 CURSOR 2,5«, l3=0x0f}
0x1218…1234 Line {l1=0x1a, l2=»1690 PRINT "3:Gade :"«, l3=0x1a}
0x1234…1242 Line {l1=0x0c, l2=»1700 DSTYR=4«, l3=0x0c}
0x1242…124f Line {l1=0x0b, l2=»1710 ENDIF «, l3=0x0b}
0x124f…1266 Line {l1=0x15, l2=»1720 IF CÆND<>2 THEN «, l3=0x15}
0x1266…1278 Line {l1=0x10, l2=»1730 CURSOR 3,23«, l3=0x10}
0x1278…12b5 Line {l1=0x3b, l2=»1740 PRINT "Gade";BLANK$(1:33);"(max 25 tegn)";BLANK$(1:26)«, l3=0x3b}
0x12b5…12c8 Line {l1=0x11, l2=»1750 CURSOR 13,23«, l3=0x11}
0x12c8…12dd Line {l1=0x13, l2=»1760 INPUT DEBGADE$«, l3=0x13}
0x12dd…12ea Line {l1=0x0b, l2=»1770 ENDIF «, l3=0x0b}
0x12ea…12fc Line {l1=0x10, l2=»1780 CURSOR 16,5«, l3=0x10}
0x12fc…1315 Line {l1=0x17, l2=»1790 PRINT BLANK$(1:25)«, l3=0x17}
0x1315…1327 Line {l1=0x10, l2=»1800 CURSOR 16,5«, l3=0x10}
0x1327…133c Line {l1=0x13, l2=»1810 PRINT DEBGADE$«, l3=0x13}
0x133c…1349 Line {l1=0x0b, l2=»1820 WHEN 4«, l3=0x0b}
0x1349…1360 Line {l1=0x15, l2=»1830 IF CÆND<>1 THEN «, l3=0x15}
0x1360…1371 Line {l1=0x0f, l2=»1840 CURSOR 2,6«, l3=0x0f}
0x1371…138d Line {l1=0x1a, l2=»1850 PRINT "4:Postnr :"«, l3=0x1a}
0x138d…139b Line {l1=0x0c, l2=»1860 DSTYR=5«, l3=0x0c}
0x139b…13a8 Line {l1=0x0b, l2=»1870 ENDIF «, l3=0x0b}
0x13a8…13bf Line {l1=0x15, l2=»1880 IF CÆND<>2 THEN «, l3=0x15}
0x13bf…13cd Line {l1=0x0c, l2=»1890 REPEAT «, l3=0x0c}
0x13cd…13df Line {l1=0x10, l2=»1900 CURSOR 3,23«, l3=0x10}
0x13df…141d Line {l1=0x3c, l2=»1910 PRINT "Postnr";BLANK$(1:12);"(max 6 tegn)";BLANK$(1:45)«, l3=0x3c}
0x141d…1430 Line {l1=0x11, l2=»1920 CURSOR 13,23«, l3=0x11}
0x1430…1441 Line {l1=0x0f, l2=»1930 INPUT PNR$«, l3=0x0f}
0x1441…1459 Line {l1=0x16, l2=»1940 EXEC NRTEST(PNR$)«, l3=0x16}
0x1459…1496 Line {l1=0x3b, l2=»1950 UNTIL ((L>3 AND L<7) OR (P=-1 AND CÆND=1)) AND TEST2=0«, l3=0x3b}
0x1496…14b6 Line {l1=0x1e, l2=»1960 IF P<>-1 THEN DEBPOSTNR=P«, l3=0x1e}
0x14b6…14c3 Line {l1=0x0b, l2=»1970 ENDIF «, l3=0x0b}
0x14c3…14d5 Line {l1=0x10, l2=»1980 CURSOR 16,6«, l3=0x10}
0x14d5…14ed Line {l1=0x16, l2=»1990 PRINT BLANK$(1:6)«, l3=0x16}
0x14ed…14ff Line {l1=0x10, l2=»2000 CURSOR 16,6«, l3=0x10}
0x14ff…1515 Line {l1=0x14, l2=»2010 PRINT DEBPOSTNR«, l3=0x14}
0x1515…1522 Line {l1=0x0b, l2=»2020 WHEN 5«, l3=0x0b}
0x1522…1539 Line {l1=0x15, l2=»2030 IF CÆND<>1 THEN «, l3=0x15}
0x1539…154a Line {l1=0x0f, l2=»2040 CURSOR 2,7«, l3=0x0f}
0x154a…1566 Line {l1=0x1a, l2=»2050 PRINT "5:By :"«, l3=0x1a}
0x1566…1574 Line {l1=0x0c, l2=»2060 DSTYR=6«, l3=0x0c}
0x1574…1581 Line {l1=0x0b, l2=»2070 ENDIF «, l3=0x0b}
0x1581…1598 Line {l1=0x15, l2=»2080 IF CÆND<>2 THEN «, l3=0x15}
0x1598…15aa Line {l1=0x10, l2=»2090 CURSOR 3,23«, l3=0x10}
0x15aa…15e5 Line {l1=0x39, l2=»2100 PRINT "By";BLANK$(1:30);"(max 20 tegn)";BLANK$(1:31)«, l3=0x39}
0x15e5…15f8 Line {l1=0x11, l2=»2110 CURSOR 13,23«, l3=0x11}
0x15f8…160b Line {l1=0x11, l2=»2120 INPUT DEBBY$«, l3=0x11}
0x160b…1618 Line {l1=0x0b, l2=»2130 ENDIF «, l3=0x0b}
0x1618…162a Line {l1=0x10, l2=»2140 CURSOR 16,7«, l3=0x10}
0x162a…1643 Line {l1=0x17, l2=»2150 PRINT BLANK$(1:20)«, l3=0x17}
0x1643…1655 Line {l1=0x10, l2=»2160 CURSOR 16,7«, l3=0x10}
0x1655…1668 Line {l1=0x11, l2=»2170 PRINT DEBBY$«, l3=0x11}
0x1668…1675 Line {l1=0x0b, l2=»2180 WHEN 6«, l3=0x0b}
0x1675…168c Line {l1=0x15, l2=»2190 IF CÆND<>1 THEN «, l3=0x15}
0x168c…169d Line {l1=0x0f, l2=»2200 CURSOR 2,8«, l3=0x0f}
0x169d…16c3 Line {l1=0x24, l2=»2210 PRINT "6:Landekode : Land:"«, l3=0x24}
0x16c3…16d1 Line {l1=0x0c, l2=»2220 DSTYR=7«, l3=0x0c}
0x16d1…16de Line {l1=0x0b, l2=»2230 ENDIF «, l3=0x0b}
0x16de…16f5 Line {l1=0x15, l2=»2240 IF CÆND<>2 THEN «, l3=0x15}
0x16f5…1703 Line {l1=0x0c, l2=»2250 REPEAT «, l3=0x0c}
0x1703…1715 Line {l1=0x10, l2=»2260 CURSOR 3,23«, l3=0x10}
0x1715…1763 Line {l1=0x4c, l2=»2270 PRINT "Landekode";BLANK$(1:9);"0:for Danmark,max 2 cifre)";BLANK$(1:30)«, l3=0x4c}
0x1763…1776 Line {l1=0x11, l2=»2280 CURSOR 13,23«, l3=0x11}
0x1776…1786 Line {l1=0x0e, l2=»2290 INPUT LK$«, l3=0x0e}
0x1786…179d Line {l1=0x15, l2=»2300 EXEC NRTEST(LK$)«, l3=0x15}
0x179d…17da Line {l1=0x3b, l2=»2310 UNTIL (P>-1 AND P<10 AND TEST2=0) OR (P=-1 AND CÆND=1)«, l3=0x3b}
0x17da…17e7 Line {l1=0x0b, l2=»2320 ENDIF «, l3=0x0b}
0x17e7…17f9 Line {l1=0x10, l2=»2330 CURSOR 16,8«, l3=0x10}
0x17f9…1811 Line {l1=0x16, l2=»2340 PRINT BLANK$(1:3)«, l3=0x16}
0x1811…1823 Line {l1=0x10, l2=»2350 CURSOR 27,8«, l3=0x10}
0x1823…183c Line {l1=0x17, l2=»2360 PRINT BLANK$(1:15)«, l3=0x17}
0x183c…184e Line {l1=0x10, l2=»2370 CURSOR 16,8«, l3=0x10}
0x184e…186e Line {l1=0x1e, l2=»2380 IF P<10 AND CÆND<>2 THEN «, l3=0x1e}
0x186e…1885 Line {l1=0x15, l2=»2390 DEBLK$=CHR(P+48)«, l3=0x15}
0x1885…1892 Line {l1=0x0b, l2=»2400 ENDIF «, l3=0x0b}
0x1892…18a9 Line {l1=0x15, l2=»2410 P=ORD(DEBLK$)-48«, l3=0x15}
0x18a9…18c3 Line {l1=0x18, l2=»2420 PRINT USING "###":P«, l3=0x18}
0x18c3…18d5 Line {l1=0x10, l2=»2430 CURSOR 27,8«, l3=0x10}
0x18d5…18e8 Line {l1=0x11, l2=»2440 IF P=0 THEN «, l3=0x11}
0x18e8…18fe Line {l1=0x14, l2=»2450 PRINT "Danmark"«, l3=0x14}
0x18fe…190a Line {l1=0x0a, l2=»2460 ELSE «, l3=0x0a}
0x190a…191f Line {l1=0x13, l2=»2470 PRINT LAND$(P)«, l3=0x13}
0x191f…192c Line {l1=0x0b, l2=»2480 ENDIF «, l3=0x0b}
0x192c…1939 Line {l1=0x0b, l2=»2490 WHEN 7«, l3=0x0b}
0x1939…1950 Line {l1=0x15, l2=»2500 IF CÆND<>1 THEN «, l3=0x15}
0x1950…1961 Line {l1=0x0f, l2=»2510 CURSOR 2,9«, l3=0x0f}
0x1961…197d Line {l1=0x1a, l2=»2520 PRINT "7:Telefon :"«, l3=0x1a}
0x197d…198b Line {l1=0x0c, l2=»2530 DSTYR=8«, l3=0x0c}
0x198b…1998 Line {l1=0x0b, l2=»2540 ENDIF «, l3=0x0b}
0x1998…19af Line {l1=0x15, l2=»2550 IF CÆND<>2 THEN «, l3=0x15}
0x19af…19c1 Line {l1=0x10, l2=»2560 CURSOR 3,23«, l3=0x10}
0x19c1…1a00 Line {l1=0x3d, l2=»2570 PRINT "Telefon";BLANK$(1:14);"(max 9 tegn)";BLANK$(1:44)«, l3=0x3d}
0x1a00…1a13 Line {l1=0x11, l2=»2580 CURSOR 13,23«, l3=0x11}
0x1a13…1a27 Line {l1=0x12, l2=»2590 INPUT DEBTLF$«, l3=0x12}
0x1a27…1a34 Line {l1=0x0b, l2=»2600 ENDIF «, l3=0x0b}
0x1a34…1a46 Line {l1=0x10, l2=»2610 CURSOR 16,9«, l3=0x10}
0x1a46…1a5e Line {l1=0x16, l2=»2620 PRINT BLANK$(1:9)«, l3=0x16}
0x1a5e…1a70 Line {l1=0x10, l2=»2630 CURSOR 16,9«, l3=0x10}
0x1a70…1a84 Line {l1=0x12, l2=»2640 PRINT DEBTLF$«, l3=0x12}
0x1a84…1a91 Line {l1=0x0b, l2=»2650 WHEN 8«, l3=0x0b}
0x1a91…1aa8 Line {l1=0x15, l2=»2660 IF CÆND<>1 THEN «, l3=0x15}
0x1aa8…1aba Line {l1=0x10, l2=»2670 CURSOR 2,10«, l3=0x10}
0x1aba…1ad6 Line {l1=0x1a, l2=»2680 PRINT "8:Kundegr :"«, l3=0x1a}
0x1ad6…1ae4 Line {l1=0x0c, l2=»2690 DSTYR=9«, l3=0x0c}
0x1ae4…1af0 Line {l1=0x0a, l2=»2700 ELSE «, l3=0x0a}
0x1af0…1b06 Line {l1=0x14, l2=»2710 IF TYPE=2 THEN «, l3=0x14}
0x1b06…1b2e Line {l1=0x26, l2=»2720 EXEC KSØG(DEBNR2,ORD(DEBKGR$)-48)«, l3=0x26}
0x1b2e…1b45 Line {l1=0x15, l2=»2730 EXEC KINDSLET(0)«, l3=0x15}
0x1b45…1b52 Line {l1=0x0b, l2=»2740 ENDIF «, l3=0x0b}
0x1b52…1b5f Line {l1=0x0b, l2=»2750 ENDIF «, l3=0x0b}
0x1b5f…1b76 Line {l1=0x15, l2=»2760 IF CÆND<>2 THEN «, l3=0x15}
0x1b76…1b84 Line {l1=0x0c, l2=»2770 REPEAT «, l3=0x0c}
0x1b84…1b96 Line {l1=0x10, l2=»2780 CURSOR 3,23«, l3=0x10}
0x1b96…1bce Line {l1=0x36, l2=»2790 PRINT "Kundegr (max 2 cifre)";BLANK$(1:49)«, l3=0x36}
0x1bce…1be1 Line {l1=0x11, l2=»2800 CURSOR 13,23«, l3=0x11}
0x1be1…1bf1 Line {l1=0x0e, l2=»2810 INPUT KG$«, l3=0x0e}
0x1bf1…1c08 Line {l1=0x15, l2=»2820 EXEC NRTEST(KG$)«, l3=0x15}
0x1c08…1c47 Line {l1=0x3d, l2=»2830 UNTIL (P>0 AND TEST2=0 AND P<=MKGR) OR (P=-1 AND CÆND=1)«, l3=0x3d}
0x1c47…1c54 Line {l1=0x0b, l2=»2840 ENDIF «, l3=0x0b}
0x1c54…1c67 Line {l1=0x11, l2=»2850 CURSOR 16,10«, l3=0x11}
0x1c67…1c86 Line {l1=0x1d, l2=»2860 IF P>0 AND CÆND<>2 THEN «, l3=0x1d}
0x1c86…1c9e Line {l1=0x16, l2=»2870 DEBKGR$=CHR(P+48)«, l3=0x16}
0x1c9e…1cab Line {l1=0x0b, l2=»2880 ENDIF «, l3=0x0b}
0x1cab…1cd8 Line {l1=0x2b, l2=»2890 PRINT USING "###":INT(ORD(DEBKGR$)-48)«, l3=0x2b}
0x1cd8…1cf9 Line {l1=0x1f, l2=»2900 IF CÆND=1 AND TYPE=2 THEN «, l3=0x1f}
0x1cf9…1d21 Line {l1=0x26, l2=»2910 EXEC KSØG(DEBNR2,ORD(DEBKGR$)-48)«, l3=0x26}
0x1d21…1d38 Line {l1=0x15, l2=»2920 EXEC KINDSLET(1)«, l3=0x15}
0x1d38…1d45 Line {l1=0x0b, l2=»2930 ENDIF «, l3=0x0b}
0x1d45…1d54 Line {l1=0x0d, l2=»2940 ENDCASE «, l3=0x0d}
0x1d54…1d6a Line {l1=0x14, l2=»2950 IF CÆND=1 THEN «, l3=0x14}
0x1d6a…1d78 Line {l1=0x0c, l2=»2960 DSTYR=9«, l3=0x0c}
0x1d78…1d85 Line {l1=0x0b, l2=»2970 ENDIF «, l3=0x0b}
0x1d85…1d99 Line {l1=0x12, l2=»2980 UNTIL DSTYR=9«, l3=0x12}
0x1d99…1db0 Line {l1=0x15, l2=»2990 IF CÆND<>1 THEN «, l3=0x15}
0x1db0…1ddd Line {l1=0x2b, l2=»3000 EXEC CALC(0,DSALDO1$,DSALDO2$,DSALDI$)«, l3=0x2b}
0x1ddd…1e09 Line {l1=0x2a, l2=»3010 EXEC CALC(0,DSALDI$,DSALDO3$,DSALDI$)«, l3=0x2a}
0x1e09…1e35 Line {l1=0x2a, l2=»3020 EXEC CALC(0,DSALDI$,DSALDO4$,DSALDI$)«, l3=0x2a}
0x1e35…1e47 Line {l1=0x10, l2=»3030 CURSOR 4,12«, l3=0x10}
0x1e47…1e62 Line {l1=0x19, l2=»3040 PRINT "Saldo :"«, l3=0x19}
0x1e62…1e75 Line {l1=0x11, l2=»3050 CURSOR 17,12«, l3=0x11}
0x1e75…1e97 Line {l1=0x20, l2=»3060 EXEC TUD(DSALDI$,TAL4$,1,0)«, l3=0x20}
0x1e97…1ea9 Line {l1=0x10, l2=»3070 PRINT TAL4$«, l3=0x10}
0x1ea9…1ebb Line {l1=0x10, l2=»3080 CURSOR 4,14«, l3=0x10}
0x1ebb…1ed6 Line {l1=0x19, l2=»3090 PRINT " 0-30 Dage :"«, l3=0x19}
0x1ed6…1ee9 Line {l1=0x11, l2=»3100 CURSOR 17,14«, l3=0x11}
0x1ee9…1f0c Line {l1=0x21, l2=»3110 EXEC TUD(DSALDO1$,TAL4$,1,0)«, l3=0x21}
0x1f0c…1f1e Line {l1=0x10, l2=»3120 PRINT TAL4$«, l3=0x10}
0x1f1e…1f30 Line {l1=0x10, l2=»3130 CURSOR 4,16«, l3=0x10}
0x1f30…1f4b Line {l1=0x19, l2=»3140 PRINT "30-60 Dage :"«, l3=0x19}
0x1f4b…1f5e Line {l1=0x11, l2=»3150 CURSOR 17,16«, l3=0x11}
0x1f5e…1f81 Line {l1=0x21, l2=»3160 EXEC TUD(DSALDO2$,TAL4$,1,0)«, l3=0x21}
0x1f81…1f93 Line {l1=0x10, l2=»3170 PRINT TAL4$«, l3=0x10}
0x1f93…1fa5 Line {l1=0x10, l2=»3180 CURSOR 4,18«, l3=0x10}
0x1fa5…1fc0 Line {l1=0x19, l2=»3190 PRINT "60-90 Dage :"«, l3=0x19}
0x1fc0…1fd3 Line {l1=0x11, l2=»3200 CURSOR 17,18«, l3=0x11}
0x1fd3…1ff6 Line {l1=0x21, l2=»3210 EXEC TUD(DSALDO3$,TAL4$,1,0)«, l3=0x21}
0x1ff6…2008 Line {l1=0x10, l2=»3220 PRINT TAL4$«, l3=0x10}
0x2008…201a Line {l1=0x10, l2=»3230 CURSOR 4,20«, l3=0x10}
0x201a…2035 Line {l1=0x19, l2=»3240 PRINT "Ældre :"«, l3=0x19}
0x2035…2048 Line {l1=0x11, l2=»3250 CURSOR 17,20«, l3=0x11}
0x2048…206b Line {l1=0x21, l2=»3260 EXEC TUD(DSALDO4$,TAL4$,1,0)«, l3=0x21}
0x206b…207d Line {l1=0x10, l2=»3270 PRINT TAL4$«, l3=0x10}
0x207d…2090 Line {l1=0x11, l2=»3280 CURSOR 44,12«, l3=0x11}
0x2090…20ad Line {l1=0x1b, l2=»3290 PRINT "Månedens køb :"«, l3=0x1b}
0x20ad…20c0 Line {l1=0x11, l2=»3300 CURSOR 59,12«, l3=0x11}
0x20c0…20e2 Line {l1=0x20, l2=»3310 EXEC TUD(MDNKØB$,TAL4$,1,0)«, l3=0x20}
0x20e2…20f4 Line {l1=0x10, l2=»3320 PRINT TAL4$«, l3=0x10}
0x20f4…2107 Line {l1=0x11, l2=»3330 CURSOR 44,14«, l3=0x11}
0x2107…2124 Line {l1=0x1b, l2=»3340 PRINT "Årets køb :"«, l3=0x1b}
0x2124…2137 Line {l1=0x11, l2=»3350 CURSOR 59,14«, l3=0x11}
0x2137…214c Line {l1=0x13, l2=»3360 TÅRKØB$=ÅRKØB$«, l3=0x13}
0x214c…216e Line {l1=0x20, l2=»3370 EXEC TUD(TÅRKØB$,TAL4$,1,0)«, l3=0x20}
0x216e…2180 Line {l1=0x10, l2=»3380 PRINT TAL4$«, l3=0x10}
0x2180…218d Line {l1=0x0b, l2=»3390 ENDIF «, l3=0x0b}
0x218d…219c Line {l1=0x0d, l2=»3400 ENDPROC «, l3=0x0d}
0x219c…21c1 Line {l1=0x23, l2=»3410 PROC TUD(BLB1,UBLB1,TEGN,STØR)«, l3=0x23}
0x21c1…21e1 Line {l1=0x1e, l2=»3420 BLB2$=BLB1$;UBLB2$=UBLB1$«, l3=0x1e}
0x21e1…2206 Line {l1=0x23, l2=»3430 EXEC CALC(5,BLB2$,TAH$,UBLB2$)«, l3=0x23}
0x2206…221a Line {l1=0x12, l2=»3440 UBLB1$=UBLB2$«, l3=0x12}
0x221a…2230 Line {l1=0x14, l2=»3450 IF TEGN=0 THEN «, l3=0x14}
0x2230…224a Line {l1=0x18, l2=»3460 UBLB1$=UBLB1$(1:13)«, l3=0x18}
0x224a…2256 Line {l1=0x0a, l2=»3470 ELSE «, l3=0x0a}
0x2256…2288 Line {l1=0x30, l2=»3480 IF TEGN=1 AND UBLB1$(LEN(UBLB1$))="+" THEN «, l3=0x30}
0x2288…22a6 Line {l1=0x1c, l2=»3490 UBLB1$(LEN(UBLB1$))=" "«, l3=0x1c}
0x22a6…22b3 Line {l1=0x0b, l2=»3500 ENDIF «, l3=0x0b}
0x22b3…22c0 Line {l1=0x0b, l2=»3510 ENDIF «, l3=0x0b}
0x22c0…22d6 Line {l1=0x14, l2=»3520 IF STØR=1 THEN «, l3=0x14}
0x22d6…22fb Line {l1=0x23, l2=»3530 UBLB1$=UBLB1$(4:LEN(UBLB1$)-3)«, l3=0x23}
0x22fb…2308 Line {l1=0x0b, l2=»3540 ENDIF «, l3=0x0b}
0x2308…2317 Line {l1=0x0d, l2=»3550 ENDPROC «, l3=0x0d}
0x2317…2330 Line {l1=0x17, l2=»3560 PROC KINDSLET(AR1)«, l3=0x17}
0x2330…2349 Line {l1=0x17, l2=»3570 IF FUN+AR1=0 THEN «, l3=0x17}
0x2349…2360 Line {l1=0x15, l2=»3580 IF SPIL1=0 THEN «, l3=0x15}
0x2360…2385 Line {l1=0x23, l2=»3590 KARRAY(ORD(DEBKGR$)-48)=HKUNDE«, l3=0x23}
0x2385…2391 Line {l1=0x0a, l2=»3600 ELSE «, l3=0x0a}
0x2391…23a6 Line {l1=0x13, l2=»3610 HKUNDE1=HKUNDE«, l3=0x13}
0x23a6…23b3 Line {l1=0x0b, l2=»3620 ENDIF «, l3=0x0b}
0x23b3…23bf Line {l1=0x0a, l2=»3630 ELSE «, l3=0x0a}
0x23bf…23d8 Line {l1=0x17, l2=»3640 IF FUN+AR1=2 THEN «, l3=0x17}
0x23d8…23eb Line {l1=0x11, l2=»3650 HKUNDE=SPIL2«, l3=0x11}
0x23eb…2402 Line {l1=0x15, l2=»3660 IF SPIL1=0 THEN «, l3=0x15}
0x2402…2426 Line {l1=0x22, l2=»3670 KARRAY(ORD(DEBKGR$)-48)=DEBNR«, l3=0x22}
0x2426…2432 Line {l1=0x0a, l2=»3680 ELSE «, l3=0x0a}
0x2432…2446 Line {l1=0x12, l2=»3690 HKUNDE1=DEBNR«, l3=0x12}
0x2446…2453 Line {l1=0x0b, l2=»3700 ENDIF «, l3=0x0b}
0x2453…245f Line {l1=0x0a, l2=»3710 ELSE «, l3=0x0a}
0x245f…246b Line {l1=0x0a, l2=»3720 STOP «, l3=0x0a}
0x246b…2478 Line {l1=0x0b, l2=»3730 ENDIF «, l3=0x0b}
0x2478…2485 Line {l1=0x0b, l2=»3740 ENDIF «, l3=0x0b}
0x2485…24ba Line {l1=0x33, l2=»3750 IF (FUN+AR1=0 OR FUN+AR1=2) AND SPIL1<>0 THEN «, l3=0x33}
0x24ba…24fa Line {l1=0x3e, l2=»3760 PUT K3$,DTAB(DPIL3,2)+2:DEBGADE1$,DEBTLF1$,HPOST1,HKUNDE1«, l3=0x3e}
0x24fa…2514 Line {l1=0x18, l2=»3770 EXEC FEJL(11,2,K3$)«, l3=0x18}
0x2514…2521 Line {l1=0x0b, l2=»3780 ENDIF «, l3=0x0b}
0x2521…2530 Line {l1=0x0d, l2=»3790 ENDPROC «, l3=0x0d}
0x2530…254b Line {l1=0x19, l2=»3800 PROC KSØG(NØGLE,KGR)«, l3=0x19}
0x254b…2571 Line {l1=0x24, l2=»3810 FUN=1;SPIL1=0;SPIL2=KARRAY(KGR)«, l3=0x24}
0x2571…2598 Line {l1=0x25, l2=»3820 IF SPIL2<NØGLE AND SPIL2>0 THEN «, l3=0x25}
0x2598…25a6 Line {l1=0x0c, l2=»3830 REPEAT «, l3=0x0c}
0x25a6…25b8 Line {l1=0x10, l2=»3840 SPIL1=SPIL2«, l3=0x10}
0x25b8…25e6 Line {l1=0x2c, l2=»3850 EXEC FINDPOST(DTAB,MDANTAL,SPIL1,DPIL3)«, l3=0x2c}
0x25e6…2601 Line {l1=0x19, l2=»3860 IF CEKS=1 THEN STOP «, l3=0x19}
0x2601…2641 Line {l1=0x3e, l2=»3870 GET K3$,DTAB(DPIL3,2)+2:DEBGADE1$,DEBTLF1$,HPOST1,HKUNDE1«, l3=0x3e}
0x2641…265b Line {l1=0x18, l2=»3880 EXEC FEJL(10,2,K3$)«, l3=0x18}
0x265b…266f Line {l1=0x12, l2=»3890 SPIL2=HKUNDE1«, l3=0x12}
0x266f…2693 Line {l1=0x22, l2=»3900 UNTIL SPIL2=>NØGLE OR SPIL2=0«, l3=0x22}
0x2693…26a0 Line {l1=0x0b, l2=»3910 ENDIF «, l3=0x0b}
0x26a0…26c0 Line {l1=0x1e, l2=»3920 IF SPIL2=NØGLE THEN FUN=0«, l3=0x1e}
0x26c0…26cf Line {l1=0x0d, l2=»3930 ENDPROC «, l3=0x0d}
0x26cf…26df Line {l1=0x0e, l2=»3940 PROC KPUT«, l3=0x0e}
0x26df…26f0 Line {l1=0x0f, l2=»3950 OPEN K4$,W«, l3=0x0f}
0x26f0…270a Line {l1=0x18, l2=»3960 EXEC FEJL(12,1,K4$)«, l3=0x18}
0x270a…2726 Line {l1=0x1a, l2=»3970 FOR I=1 TO MKGR DIV 5«, l3=0x1a}
0x2726…2738 Line {l1=0x10, l2=»3980 J=(I-1)*5+1«, l3=0x10}
0x2738…2782 Line {l1=0x48, l2=»3990 PUT K4$,I:KARRAY(J),KARRAY(J+1),KARRAY(J+2),KARRAY(J+3),KARRAY(J+4)«, l3=0x48}
0x2782…279c Line {l1=0x18, l2=»4000 EXEC FEJL(12,2,K4$)«, l3=0x18}
0x279c…27a9 Line {l1=0x0b, l2=»4010 NEXT I«, l3=0x0b}
0x27a9…27b9 Line {l1=0x0e, l2=»4020 CLOSE K4$«, l3=0x0e}
0x27b9…27d3 Line {l1=0x18, l2=»4030 EXEC FEJL(12,3,K4$)«, l3=0x18}
0x27d3…27e2 Line {l1=0x0d, l2=»4040 ENDPROC «, l3=0x0d}
0x27e2…27fa Line {l1=0x16, l2=»4050 PROC NRTEST(NUM1)«, l3=0x16}
0x27fa…2820 Line {l1=0x24, l2=»4060 P=0;TEST2=0;KTAL=0;L=LEN(NUM1$)«, l3=0x24}
0x2820…2831 Line {l1=0x0f, l2=»4070 CASE L OF «, l3=0x0f}
0x2831…2844 Line {l1=0x11, l2=»4080 FOR I=1 TO L«, l3=0x11}
0x2844…2863 Line {l1=0x1d, l2=»4090 P1=INT(ORD(NUM1$(I))-48)«, l3=0x1d}
0x2863…2882 Line {l1=0x1d, l2=»4100 IF P1=>0 AND P1<=9 THEN «, l3=0x1d}
0x2882…2892 Line {l1=0x0e, l2=»4110 P=P*10+P1«, l3=0x0e}
0x2892…289e Line {l1=0x0a, l2=»4120 ELSE «, l3=0x0a}
0x289e…28ac Line {l1=0x0c, l2=»4130 TEST2=1«, l3=0x0c}
0x28ac…28b9 Line {l1=0x0b, l2=»4140 ENDIF «, l3=0x0b}
0x28b9…28c6 Line {l1=0x0b, l2=»4150 NEXT I«, l3=0x0b}
0x28c6…28dd Line {l1=0x15, l2=»4160 KTAL=P DIV 10000«, l3=0x15}
0x28dd…28ea Line {l1=0x0b, l2=»4170 WHEN 0«, l3=0x0b}
0x28ea…28f5 Line {l1=0x09, l2=»4180 P=-1«, l3=0x09}
0x28f5…2902 Line {l1=0x0b, l2=»4190 WHEN 1«, l3=0x0b}
0x2902…2917 Line {l1=0x13, l2=»4200 CASE NUM1$ OF «, l3=0x13}
0x2917…2932 Line {l1=0x19, l2=»4210 P=INT(ORD(NUM1$)-48)«, l3=0x19}
0x2932…2945 Line {l1=0x11, l2=»4220 WHEN "J","j"«, l3=0x11}
0x2945…2950 Line {l1=0x09, l2=»4230 P=-7«, l3=0x09}
0x2950…2963 Line {l1=0x11, l2=»4240 WHEN "N","n"«, l3=0x11}
0x2963…296e Line {l1=0x09, l2=»4250 P=-8«, l3=0x09}
0x296e…297d Line {l1=0x0d, l2=»4260 ENDCASE «, l3=0x0d}
0x297d…298c Line {l1=0x0d, l2=»4270 ENDCASE «, l3=0x0d}
0x298c…299b Line {l1=0x0d, l2=»4280 ENDPROC «, l3=0x0d}
0x299b…29b1 Line {l1=0x14, l2=»4290 PROC OVERSKRIFT«, l3=0x14}
0x29b1…29c3 Line {l1=0x10, l2=»4300 CURSOR 45,1«, l3=0x10}
0x29c3…29d7 Line {l1=0x12, l2=»4310 CASE TYPE OF «, l3=0x12}
0x29d7…29e4 Line {l1=0x0b, l2=»4320 WHEN 1«, l3=0x0b}
0x29e4…29fd Line {l1=0x17, l2=»4330 PRINT "Oprettelse"«, l3=0x17}
0x29fd…2a0a Line {l1=0x0b, l2=»4340 WHEN 2«, l3=0x0b}
0x2a0a…2a20 Line {l1=0x14, l2=»4350 PRINT "Ændring"«, l3=0x14}
0x2a20…2a2d Line {l1=0x0b, l2=»4360 WHEN 3«, l3=0x0b}
0x2a2d…2a44 Line {l1=0x15, l2=»4370 PRINT "Sletning"«, l3=0x15}
0x2a44…2a51 Line {l1=0x0b, l2=»4380 WHEN 4«, l3=0x0b}
0x2a51…2a68 Line {l1=0x15, l2=»4390 PRINT "Udskrift"«, l3=0x15}
0x2a68…2a75 Line {l1=0x0b, l2=»4400 WHEN 5«, l3=0x0b}
0x2a75…2a93 Line {l1=0x1c, l2=»4410 PRINT "Kundekontoliste"«, l3=0x1c}
0x2a93…2aa2 Line {l1=0x0d, l2=»4420 ENDCASE «, l3=0x0d}
0x2aa2…2ab1 Line {l1=0x0d, l2=»4430 ENDPROC «, l3=0x0d}
0x2ab1…2acd Line {l1=0x1a, l2=»4440 K1$="P641220:SYSTEM1"«, l3=0x1a}
0x2acd…2ade Line {l1=0x0f, l2=»4450 OPEN K1$,R«, l3=0x0f}
0x2ade…2af7 Line {l1=0x17, l2=»4460 EXEC FEJL(9,1,K1$)«, l3=0x17}
0x2af7…2b17 Line {l1=0x1e, l2=»4470 GET K1$,1:MFANTAL,MDANTAL«, l3=0x1e}
0x2b17…2b30 Line {l1=0x17, l2=»4480 EXEC FEJL(9,2,K1$)«, l3=0x17}
0x2b30…2b56 Line {l1=0x24, l2=»4490 GET K1$,4:MKRMID,MFAK,MVGR,MKGR«, l3=0x24}
0x2b56…2b6f Line {l1=0x17, l2=»4500 EXEC FEJL(9,3,K1$)«, l3=0x17}
0x2b6f…2b97 Line {l1=0x26, l2=»4510 GET K1$,8:DIVNR,DIVDNR,DIFNR,DTAL«, l3=0x26}
0x2b97…2bb0 Line {l1=0x17, l2=»4520 EXEC FEJL(9,4,K1$)«, l3=0x17}
0x2bb0…2bc4 Line {l1=0x12, l2=»4530 GET K1$,10:N$«, l3=0x12}
0x2bc4…2bdd Line {l1=0x17, l2=»4540 EXEC FEJL(9,5,K1$)«, l3=0x17}
0x2bdd…2bf2 Line {l1=0x13, l2=»4550 GET K1$,12:K2$«, l3=0x13}
0x2bf2…2c0b Line {l1=0x17, l2=»4560 EXEC FEJL(9,6,K1$)«, l3=0x17}
0x2c0b…2c20 Line {l1=0x13, l2=»4570 GET K1$,16:K3$«, l3=0x13}
0x2c20…2c39 Line {l1=0x17, l2=»4580 EXEC FEJL(9,7,K1$)«, l3=0x17}
0x2c39…2c4e Line {l1=0x13, l2=»4590 GET K1$,35:K4$«, l3=0x13}
0x2c4e…2c67 Line {l1=0x17, l2=»4600 EXEC FEJL(9,8,K1$)«, l3=0x17}
0x2c67…2c7c Line {l1=0x13, l2=»4610 GET K1$,36:K5$«, l3=0x13}
0x2c7c…2c95 Line {l1=0x17, l2=»4620 EXEC FEJL(9,9,K1$)«, l3=0x17}
0x2c95…2ca5 Line {l1=0x0e, l2=»4630 CLOSE K1$«, l3=0x0e}
0x2ca5…2cbf Line {l1=0x18, l2=»4640 EXEC FEJL(9,10,K1$)«, l3=0x18}
0x2cbf…2ce6 Line {l1=0x25, l2=»4650 DIM DTAB(MDANTAL,2),KARRAY(MKGR)«, l3=0x25}
0x2ce6…2cf7 Line {l1=0x0f, l2=»4660 K5$=N$+K5$«, l3=0x0f}
0x2cf7…2d08 Line {l1=0x0f, l2=»4670 OPEN K5$,W«, l3=0x0f}
0x2d08…2d22 Line {l1=0x18, l2=»4680 EXEC FEJL(9,11,K5$)«, l3=0x18}
0x2d22…2d5b Line {l1=0x37, l2=»4690 GET K5$,2:T1(1),T1(2),T1(3),T1(4),T1(5),T1(6),DATO«, l3=0x37}
0x2d5b…2d75 Line {l1=0x18, l2=»4700 EXEC FEJL(9,12,K5$)«, l3=0x18}
0x2d75…2d88 Line {l1=0x11, l2=»4710 FOR I=1 TO 3«, l3=0x11}
0x2d88…2d9a Line {l1=0x10, l2=»4720 J=(I-1)*3+1«, l3=0x10}
0x2d9a…2dcb Line {l1=0x2f, l2=»4730 GET K5$,I+2:LAND$(J),LAND$(J+1),LAND$(J+2)«, l3=0x2f}
0x2dcb…2de5 Line {l1=0x18, l2=»4740 EXEC FEJL(9,13,K5$)«, l3=0x18}
0x2de5…2df2 Line {l1=0x0b, l2=»4750 NEXT I«, l3=0x0b}
0x2df2…2e3f Line {l1=0x4b, l2=»4760 GET K5$,14:AFIN,ADEB,AKRE,VTAB2(1),VTAB2(2),VTAB2(3),VTAB2(4),VTAB2(5)«, l3=0x4b}
0x2e3f…2e59 Line {l1=0x18, l2=»4770 EXEC FEJL(9,14,K5$)«, l3=0x18}
0x2e59…2ea0 Line {l1=0x45, l2=»4780 GET K5$,17:T2(1),T2(2),T2(3),T2(4),T2(5),T2(6),T2(7),T2(8),T2(9)«, l3=0x45}
0x2ea0…2eba Line {l1=0x18, l2=»4790 EXEC FEJL(9,15,K5$)«, l3=0x18}
0x2eba…2ec8 Line {l1=0x0c, l2=»4800 T2(3)=1«, l3=0x0c}
0x2ec8…2f0f Line {l1=0x45, l2=»4810 PUT K5$,17:T2(1),T2(2),T2(3),T2(4),T2(5),T2(6),T2(7),T2(8),T2(9)«, l3=0x45}
0x2f0f…2f29 Line {l1=0x18, l2=»4820 EXEC FEJL(9,16,K5$)«, l3=0x18}
0x2f29…2f39 Line {l1=0x0e, l2=»4830 CLOSE K5$«, l3=0x0e}
0x2f39…2f53 Line {l1=0x18, l2=»4840 EXEC FEJL(9,17,K5$)«, l3=0x18}
0x2f53…2f64 Line {l1=0x0f, l2=»4850 K3$=N$+K3$«, l3=0x0f}
0x2f64…2f75 Line {l1=0x0f, l2=»4860 OPEN K3$,W«, l3=0x0f}
0x2f75…2f8f Line {l1=0x18, l2=»4870 EXEC FEJL(9,18,K3$)«, l3=0x18}
0x2f8f…2fa0 Line {l1=0x0f, l2=»4880 K2$=N$+K2$«, l3=0x0f}
0x2fa0…2fb1 Line {l1=0x0f, l2=»4890 OPEN K2$,W«, l3=0x0f}
0x2fb1…2fcb Line {l1=0x18, l2=»4900 EXEC FEJL(9,19,K2$)«, l3=0x18}
0x2fcb…2fef Line {l1=0x22, l2=»4910 EXEC INDTAB(DTAB,MDANTAL,K2$)«, l3=0x22}
0x2fef…3000 Line {l1=0x0f, l2=»4920 K4$=N$+K4$«, l3=0x0f}
0x3000…3011 Line {l1=0x0f, l2=»4930 OPEN K4$,R«, l3=0x0f}
0x3011…302b Line {l1=0x18, l2=»4940 EXEC FEJL(9,10,K4$)«, l3=0x18}
0x302b…3047 Line {l1=0x1a, l2=»4950 FOR I=1 TO MKGR DIV 5«, l3=0x1a}
0x3047…3059 Line {l1=0x10, l2=»4960 J=(I-1)*5+1«, l3=0x10}
0x3059…30a3 Line {l1=0x48, l2=»4970 GET K4$,I:KARRAY(J),KARRAY(J+1),KARRAY(J+2),KARRAY(J+3),KARRAY(J+4)«, l3=0x48}
0x30a3…30bd Line {l1=0x18, l2=»4980 EXEC FEJL(9,11,K4$)«, l3=0x18}
0x30bd…30ca Line {l1=0x0b, l2=»4990 NEXT I«, l3=0x0b}
0x30ca…30da Line {l1=0x0e, l2=»5000 CLOSE K4$«, l3=0x0e}
0x30da…30f4 Line {l1=0x18, l2=»5010 EXEC FEJL(9,12,K4$)«, l3=0x18}
0x30f4…3143 Line {l1=0x4d, l2=»5020 BLANK$=" ";BLANK$=BLANK$+BLANK$+" "«, l3=0x4d}
0x3143…315e Line {l1=0x19, l2=»5030 TAH$="0+";TAL4$="0+"«, l3=0x19}
0x315e…31a6 Line {l1=0x46, l2=»5040 STREG$="-----------------------------------";STREG$=STREG$+STREG$«, l3=0x46}
0x31a6…31b4 Line {l1=0x0c, l2=»5050 REPEAT «, l3=0x0c}
0x31b4…31c1 Line {l1=0x0b, l2=»5060 CLEAR «, l3=0x0b}
0x31c1…31d3 Line {l1=0x10, l2=»5070 CURSOR 21,1«, l3=0x10}
0x31d3…31f6 Line {l1=0x21, l2=»5080 PRINT "Kundevedligeholdelse"«, l3=0x21}
0x31f6…3207 Line {l1=0x0f, l2=»5090 CURSOR 2,3«, l3=0x0f}
0x3207…321e Line {l1=0x15, l2=»5100 PRINT "0:Færdig"«, l3=0x15}
0x321e…322f Line {l1=0x0f, l2=»5110 CURSOR 2,5«, l3=0x0f}
0x322f…324a Line {l1=0x19, l2=»5120 PRINT "1:Oprettelse"«, l3=0x19}
0x324a…325b Line {l1=0x0f, l2=»5130 CURSOR 2,7«, l3=0x0f}
0x325b…3273 Line {l1=0x16, l2=»5140 PRINT "2:Ændring"«, l3=0x16}
0x3273…3284 Line {l1=0x0f, l2=»5150 CURSOR 2,9«, l3=0x0f}
0x3284…329d Line {l1=0x17, l2=»5160 PRINT "3:Sletning"«, l3=0x17}
0x329d…32af Line {l1=0x10, l2=»5170 CURSOR 2,11«, l3=0x10}
0x32af…32c8 Line {l1=0x17, l2=»5180 PRINT "4:Udskrift"«, l3=0x17}
0x32c8…32da Line {l1=0x10, l2=»5190 CURSOR 2,13«, l3=0x10}
0x32da…32fa Line {l1=0x1e, l2=»5200 PRINT "5:Kundekontoliste"«, l3=0x1e}
0x32fa…3308 Line {l1=0x0c, l2=»5210 REPEAT «, l3=0x0c}
0x3308…331a Line {l1=0x10, l2=»5220 CURSOR 4,15«, l3=0x10}
0x331a…333c Line {l1=0x20, l2=»5230 PRINT "Vælg type (0-5)"«, l3=0x20}
0x333c…334f Line {l1=0x11, l2=»5240 CURSOR 14,15«, l3=0x11}
0x334f…335f Line {l1=0x0e, l2=»5250 INPUT TY$«, l3=0x0e}
0x335f…3376 Line {l1=0x15, l2=»5260 EXEC NRTEST(TY$)«, l3=0x15}
0x3376…338f Line {l1=0x17, l2=»5270 UNTIL P>-1 AND P<6«, l3=0x17}
0x338f…339c Line {l1=0x0b, l2=»5280 TYPE=P«, l3=0x0b}
0x339c…33b7 Line {l1=0x19, l2=»5290 IF TYPE=0 THEN EXIT «, l3=0x19}
0x33b7…33c5 Line {l1=0x0c, l2=»5300 REPEAT «, l3=0x0c}
0x33c5…33db Line {l1=0x14, l2=»5310 EXEC OVERSKRIFT«, l3=0x14}
0x33db…33ef Line {l1=0x12, l2=»5320 TEST=0;KONT=1«, l3=0x12}
0x33ef…3405 Line {l1=0x14, l2=»5330 IF TYPE<5 THEN «, l3=0x14}
0x3405…3413 Line {l1=0x0c, l2=»5340 REPEAT «, l3=0x0c}
0x3413…3421 Line {l1=0x0c, l2=»5350 REPEAT «, l3=0x0c}
0x3421…3433 Line {l1=0x10, l2=»5360 CURSOR 3,23«, l3=0x10}
0x3433…3478 Line {l1=0x43, l2=»5370 PRINT "Indtast nyt kundenr (0:for færdig)";BLANK$(1:35)«, l3=0x43}
0x3478…348b Line {l1=0x11, l2=»5380 CURSOR 22,23«, l3=0x11}
0x348b…349c Line {l1=0x0f, l2=»5390 INPUT KTN$«, l3=0x0f}
0x349c…34b4 Line {l1=0x16, l2=»5400 EXEC NRTEST(KTN$)«, l3=0x16}
0x34b4…34f5 Line {l1=0x3f, l2=»5410 UNTIL (TEST2=0 AND KTAL=DTAL AND DTAL*10000+MKGR<P) OR P=0«, l3=0x3f}
0x34f5…3502 Line {l1=0x0b, l2=»5420 KONT=P«, l3=0x0b}
0x3502…351d Line {l1=0x19, l2=»5430 IF KONT=0 THEN EXIT «, l3=0x19}
0x351d…3547 Line {l1=0x28, l2=»5440 EXEC FINDPOST(DTAB,MDANTAL,P,DPIL3)«, l3=0x28}
0x3547…3555 Line {l1=0x0c, l2=»5450 REPEAT «, l3=0x0c}
0x3555…3568 Line {l1=0x11, l2=»5460 CURSOR 44,23«, l3=0x11}
0x3568…35b4 Line {l1=0x4a, l2=»5470 IF (CEKS=0 AND TYPE<>1) OR (CEKS=1 AND TYPE=1 AND ADEB<MDANTAL) THEN «, l3=0x4a}
0x35b4…35cd Line {l1=0x17, l2=»5480 PRINT BLANK$(1:35)«, l3=0x17}
0x35cd…35d8 Line {l1=0x09, l2=»5490 P=-1«, l3=0x09}
0x35d8…35e4 Line {l1=0x0a, l2=»5500 ELSE «, l3=0x0a}
0x35e4…3617 Line {l1=0x31, l2=»5510 IF CEKS=1 AND TYPE=1 AND ADEB=>MDANTAL THEN «, l3=0x31}
0x3617…3629 Line {l1=0x10, l2=»5520 CURSOR 3,23«, l3=0x10}
0x3629…3678 Line {l1=0x4d, l2=»5530 INPUT "Ikke plads til flere kunder,tast RETURN ",A$«, l3=0x4d}
0x3678…3684 Line {l1=0x0a, l2=»5540 ELSE «, l3=0x0a}
0x3684…369a Line {l1=0x14, l2=»5550 IF CEKS=0 THEN «, l3=0x14}
0x369a…36cf Line {l1=0x33, l2=»5560 INPUT "Kunde eksisterer , tast RETURN ",A$«, l3=0x33}
0x36cf…36db Line {l1=0x0a, l2=»5570 ELSE «, l3=0x0a}
0x36db…3710 Line {l1=0x33, l2=»5580 INPUT "Kunde eksisterer ikke , tast RETURN",A$«, l3=0x33}
0x3710…371d Line {l1=0x0b, l2=»5590 ENDIF «, l3=0x0b}
0x371d…372a Line {l1=0x0b, l2=»5600 ENDIF «, l3=0x0b}
0x372a…3740 Line {l1=0x14, l2=»5610 EXEC NRTEST(A$)«, l3=0x14}
0x3740…374d Line {l1=0x0b, l2=»5620 ENDIF «, l3=0x0b}
0x374d…375e Line {l1=0x0f, l2=»5630 UNTIL P=-1«, l3=0x0f}
0x375e…37a7 Line {l1=0x47, l2=»5640 UNTIL (CEKS=0 AND TYPE<>1) OR (CEKS=1 AND TYPE=1 AND ADEB<MDANTAL)«, l3=0x47}
0x37a7…37c2 Line {l1=0x19, l2=»5650 IF KONT=0 THEN EXIT «, l3=0x19}
0x37c2…37d9 Line {l1=0x15, l2=»5660 IF TYPE<>1 THEN «, l3=0x15}
0x37d9…37e8 Line {l1=0x0d, l2=»5670 FNR=KONT«, l3=0x0d}
0x37e8…37fd Line {l1=0x13, l2=»5680 EXEC HENTDPOST«, l3=0x13}
0x37fd…3821 Line {l1=0x22, l2=»5690 IF TYPE=3 THEN EXEC SALDOTEST«, l3=0x22}
0x3821…383d Line {l1=0x1a, l2=»5700 IF TEST<>0 THEN EXIT «, l3=0x1a}
0x383d…385a Line {l1=0x1b, l2=»5710 EXEC DINDTAST(2,2,FNR)«, l3=0x1b}
0x385a…3866 Line {l1=0x0a, l2=»5720 ELSE «, l3=0x0a}
0x3866…3877 Line {l1=0x0f, l2=»5730 DEBNR=KONT«, l3=0x0f}
0x3877…3893 Line {l1=0x1a, l2=»5740 DEBNAVN$=BLANK$(1:25)«, l3=0x1a}
0x3893…38a7 Line {l1=0x12, l2=»5750 DSALDO1$="0+"«, l3=0x12}
0x38a7…38bb Line {l1=0x12, l2=»5760 DSALDO2$="0+"«, l3=0x12}
0x38bb…38cf Line {l1=0x12, l2=»5770 DSALDO3$="0+"«, l3=0x12}
0x38cf…38e3 Line {l1=0x12, l2=»5780 DSALDO4$="0+"«, l3=0x12}
0x38e3…38f6 Line {l1=0x11, l2=»5790 MDNKØB$="0+"«, l3=0x11}
0x38f6…3908 Line {l1=0x10, l2=»5800 ÅRKØB$="0+"«, l3=0x10}
0x3908…3924 Line {l1=0x1a, l2=»5810 DEBGADE$=BLANK$(1:25)«, l3=0x1a}
0x3924…393e Line {l1=0x18, l2=»5820 DEBTLF$=BLANK$(1:9)«, l3=0x18}
0x393e…394c Line {l1=0x0c, l2=»5830 HPOST=0«, l3=0x0c}
0x394c…395b Line {l1=0x0d, l2=»5840 HKUNDE=0«, l3=0x0d}
0x395b…396d Line {l1=0x10, l2=»5850 DEBPOSTNR=0«, l3=0x10}
0x396d…397e Line {l1=0x0f, l2=»5860 DEBLK$="0"«, l3=0x0f}
0x397e…3990 Line {l1=0x10, l2=»5870 DEBKGR$="0"«, l3=0x10}
0x3990…39aa Line {l1=0x18, l2=»5880 DEBBY$=BLANK$(1:20)«, l3=0x18}
0x39aa…39c9 Line {l1=0x1d, l2=»5890 EXEC DINDTAST(2,0,DEBNR)«, l3=0x1d}
0x39c9…39d6 Line {l1=0x0b, l2=»5900 ENDIF «, l3=0x0b}
0x39d6…39e3 Line {l1=0x0b, l2=»5910 ENDIF «, l3=0x0b}
0x39e3…39fe Line {l1=0x19, l2=»5920 IF KONT=0 THEN EXIT «, l3=0x19}
0x39fe…3a14 Line {l1=0x14, l2=»5930 IF TEST=0 THEN «, l3=0x14}
0x3a14…3a28 Line {l1=0x12, l2=»5940 CASE TYPE OF «, l3=0x12}
0x3a28…3a34 Line {l1=0x0a, l2=»5950 STOP «, l3=0x0a}
0x3a34…3a43 Line {l1=0x0d, l2=»5960 WHEN 1,2«, l3=0x0d}
0x3a43…3a51 Line {l1=0x0c, l2=»5970 REPEAT «, l3=0x0c}
0x3a51…3a5f Line {l1=0x0c, l2=»5980 REPEAT «, l3=0x0c}
0x3a5f…3a71 Line {l1=0x10, l2=»5990 CURSOR 3,23«, l3=0x10}
0x3a71…3ab6 Line {l1=0x43, l2=»6000 PRINT "Hvilket felt ønskes ændret (Indtast feltnr 2-8,";«, l3=0x43}
0x3ab6…3adc Line {l1=0x24, l2=»6010 PRINT "0:for færdig) "«, l3=0x24}
0x3adc…3aef Line {l1=0x11, l2=»6020 CURSOR 32,23«, l3=0x11}
0x3aef…3aff Line {l1=0x0e, l2=»6030 INPUT LK$«, l3=0x0e}
0x3aff…3b16 Line {l1=0x15, l2=»6040 EXEC NRTEST(LK$)«, l3=0x15}
0x3b16…3b37 Line {l1=0x1f, l2=»6050 UNTIL P=0 OR (P>1 AND P<9)«, l3=0x1f}
0x3b37…3b45 Line {l1=0x0c, l2=»6060 STYR1=P«, l3=0x0c}
0x3b45…3b61 Line {l1=0x1a, l2=»6070 IF STYR1=0 THEN EXIT «, l3=0x1a}
0x3b61…3b84 Line {l1=0x21, l2=»6080 EXEC DINDTAST(STYR1,1,DEBNR)«, l3=0x21}
0x3b84…3b98 Line {l1=0x12, l2=»6090 UNTIL STYR1=0«, l3=0x12}
0x3b98…3bae Line {l1=0x14, l2=»6100 IF TYPE=1 THEN «, l3=0x14}
0x3bae…3bd5 Line {l1=0x25, l2=»6110 EXEC KSØG(DEBNR,ORD(DEBKGR$)-48)«, l3=0x25}
0x3bd5…3bec Line {l1=0x15, l2=»6120 EXEC KINDSLET(1)«, l3=0x15}
0x3bec…3c1a Line {l1=0x2c, l2=»6130 EXEC FINDPOST(DTAB,MDANTAL,DEBNR,DPIL3)«, l3=0x2c}
0x3c1a…3c43 Line {l1=0x27, l2=»6140 EXEC INDSÆT(DTAB,ADEB,DEBNR,DPIL3)«, l3=0x27}
0x3c43…3c57 Line {l1=0x12, l2=»6150 EXEC GEMDPOST«, l3=0x12}
0x3c57…3c63 Line {l1=0x0a, l2=»6160 ELSE «, l3=0x0a}
0x3c63…3c91 Line {l1=0x2c, l2=»6170 EXEC FINDPOST(DTAB,MDANTAL,DEBNR,DPIL3)«, l3=0x2c}
0x3c91…3ca5 Line {l1=0x12, l2=»6180 EXEC GEMDPOST«, l3=0x12}
0x3ca5…3cb2 Line {l1=0x0b, l2=»6190 ENDIF «, l3=0x0b}
0x3cb2…3cbf Line {l1=0x0b, l2=»6200 WHEN 3«, l3=0x0b}
0x3cbf…3ccd Line {l1=0x0c, l2=»6210 REPEAT «, l3=0x0c}
0x3ccd…3cdf Line {l1=0x10, l2=»6220 CURSOR 3,23«, l3=0x10}
0x3cdf…3d19 Line {l1=0x38, l2=»6230 PRINT "Er det rigtigt at denne konto skal slettes";«, l3=0x38}
0x3d19…3d41 Line {l1=0x26, l2=»6240 PRINT " (J/N)";BLANK$(1:23)«, l3=0x26}
0x3d41…3d54 Line {l1=0x11, l2=»6250 CURSOR 48,23«, l3=0x11}
0x3d54…3d63 Line {l1=0x0d, l2=»6260 INPUT A$«, l3=0x0d}
0x3d63…3d79 Line {l1=0x14, l2=»6270 EXEC NRTEST(A$)«, l3=0x14}
0x3d79…3d92 Line {l1=0x17, l2=»6280 UNTIL P=-7 OR P=-8«, l3=0x17}
0x3d92…3da6 Line {l1=0x12, l2=»6290 IF P=-7 THEN «, l3=0x12}
0x3da6…3dcd Line {l1=0x25, l2=»6300 EXEC KSØG(DEBNR,ORD(DEBKGR$)-48)«, l3=0x25}
0x3dcd…3de4 Line {l1=0x15, l2=»6310 EXEC KINDSLET(0)«, l3=0x15}
0x3de4…3e00 Line {l1=0x1a, l2=»6320 EXEC SLETDPOST(DEBNR)«, l3=0x1a}
0x3e00…3e0d Line {l1=0x0b, l2=»6330 ENDIF «, l3=0x0b}
0x3e0d…3e1a Line {l1=0x0b, l2=»6340 WHEN 4«, l3=0x0b}
0x3e1a…3e27 Line {l1=0x0b, l2=»6350 WHEN 5«, l3=0x0b}
0x3e27…3e35 Line {l1=0x0c, l2=»6360 REPEAT «, l3=0x0c}
0x3e35…3e43 Line {l1=0x0c, l2=»6370 REPEAT «, l3=0x0c}
0x3e43…3e55 Line {l1=0x10, l2=»6380 CURSOR 3,23«, l3=0x10}
0x3e55…3e80 Line {l1=0x29, l2=»6390 PRINT "Fra kundenr (0: Alle)"«, l3=0x29}
0x3e80…3e93 Line {l1=0x11, l2=»6400 CURSOR 15,23«, l3=0x11}
0x3e93…3ea4 Line {l1=0x0f, l2=»6410 INPUT KTN$«, l3=0x0f}
0x3ea4…3ebc Line {l1=0x16, l2=»6420 EXEC NRTEST(KTN$)«, l3=0x16}
0x3ebc…3eea Line {l1=0x2c, l2=»6430 UNTIL L=5 AND P>9999 AND TEST2=0 OR P=0«, l3=0x2c}
0x3eea…3efd Line {l1=0x11, l2=»6440 IF P=0 THEN «, l3=0x11}
0x3efd…3f12 Line {l1=0x13, l2=»6450 FRA=1;TIL=ADEB«, l3=0x13}
0x3f12…3f1e Line {l1=0x0a, l2=»6460 ELSE «, l3=0x0a}
0x3f1e…3f2b Line {l1=0x0b, l2=»6470 KONT=P«, l3=0x0b}
0x3f2b…3f55 Line {l1=0x28, l2=»6480 EXEC FINDPOST(DTAB,MDANTAL,P,DPIL3)«, l3=0x28}
0x3f55…3f65 Line {l1=0x0e, l2=»6490 FRA=DPIL3«, l3=0x0e}
0x3f65…3f72 Line {l1=0x0b, l2=»6500 ENDIF «, l3=0x0b}
0x3f72…3f88 Line {l1=0x14, l2=»6510 UNTIL FRA<=ADEB«, l3=0x14}
0x3f88…3f9b Line {l1=0x11, l2=»6520 IF P>0 THEN «, l3=0x11}
0x3f9b…3fa9 Line {l1=0x0c, l2=»6530 REPEAT «, l3=0x0c}
0x3fa9…3fbb Line {l1=0x10, l2=»6540 CURSOR 3,23«, l3=0x10}
0x3fbb…3fe7 Line {l1=0x2a, l2=»6550 PRINT "Til kundenr "«, l3=0x2a}
0x3fe7…3ffa Line {l1=0x11, l2=»6560 CURSOR 15,23«, l3=0x11}
0x3ffa…400b Line {l1=0x0f, l2=»6570 INPUT KTN$«, l3=0x0f}
0x400b…4023 Line {l1=0x16, l2=»6580 EXEC NRTEST(KTN$)«, l3=0x16}
0x4023…4056 Line {l1=0x31, l2=»6590 UNTIL L=5 AND P>9999 AND TEST2=0 AND P=>KONT«, l3=0x31}
0x4056…4080 Line {l1=0x28, l2=»6600 EXEC FINDPOST(DTAB,MDANTAL,P,DPIL3)«, l3=0x28}
0x4080…40a3 Line {l1=0x21, l2=»6610 IF CEKS=1 THEN DPIL3=DPIL3-1«, l3=0x21}
0x40a3…40b3 Line {l1=0x0e, l2=»6620 TIL=DPIL3«, l3=0x0e}
0x40b3…40c0 Line {l1=0x0b, l2=»6630 ENDIF «, l3=0x0b}
0x40c0…40cd Line {l1=0x0b, l2=»6640 CLEAR «, l3=0x0b}
0x40cd…40db Line {l1=0x0c, l2=»6650 REPEAT «, l3=0x0c}
0x40db…40ed Line {l1=0x10, l2=»6660 CURSOR 8,13«, l3=0x10}
0x40ed…413a Line {l1=0x4b, l2=»6670 INPUT "Monter papir til udskrift af kundekontoliste og tast RETURN",A$«, l3=0x4b}
0x413a…4152 Line {l1=0x16, l2=»6680 UNTIL ORD(A$)=255«, l3=0x16}
0x4152…4161 Line {l1=0x0d, l2=»6690 OUTPUT P«, l3=0x0d}
0x4161…4187 Line {l1=0x24, l2=»6700 SIDE=1;DA1=DATO;DAT$=" "«, l3=0x24}
0x4187…41a2 Line {l1=0x19, l2=»6710 FOR J=8 TO 1 STEP -1«, l3=0x19}
0x41a2…41bb Line {l1=0x17, l2=»6720 IF J MOD 3=0 THEN «, l3=0x17}
0x41bb…41cd Line {l1=0x10, l2=»6730 DAT$(J)="."«, l3=0x10}
0x41cd…41d9 Line {l1=0x0a, l2=»6740 ELSE «, l3=0x0a}
0x41d9…4209 Line {l1=0x2e, l2=»6750 DAT$(J)=CHR(DA1 MOD 10+48);DA1=DA1 DIV 10«, l3=0x2e}
0x4209…4216 Line {l1=0x0b, l2=»6760 ENDIF «, l3=0x0b}
0x4216…4223 Line {l1=0x0b, l2=»6770 NEXT J«, l3=0x0b}
0x4223…4241 Line {l1=0x1c, l2=»6780 FOR I=FRA TO TIL STEP 4«, l3=0x1c}
0x4241…428f Line {l1=0x4c, l2=»6790 PRINT TAB(10);CHR(14);"Kundekontoliste";CHR(15);TAB(38);"Dato : ";DAT$;«, l3=0x4c}
0x428f…42b6 Line {l1=0x25, l2=»6800 PRINT USING " Side :####":SIDE«, l3=0x25}
0x42b6…42c6 Line {l1=0x0e, l2=»6810 PRINT " "«, l3=0x0e}
0x42c6…42d8 Line {l1=0x10, l2=»6820 SIDE=SIDE+1«, l3=0x10}
0x42d8…42f1 Line {l1=0x17, l2=»6830 FOR DPIL3=I TO I+3«, l3=0x17}
0x42f1…4310 Line {l1=0x1d, l2=»6840 IF DTAB(DPIL3,1)>0 THEN «, l3=0x1d}
0x4310…4325 Line {l1=0x13, l2=»6850 EXEC HENTDPOST«, l3=0x13}
0x4325…4346 Line {l1=0x1f, l2=»6860 EXEC TUD(MDNKØB$,UD1$,1,0)«, l3=0x1f}
0x4346…435b Line {l1=0x13, l2=»6870 TÅRKØB$=ÅRKØB$«, l3=0x13}
0x435b…437c Line {l1=0x1f, l2=»6880 EXEC TUD(TÅRKØB$,UD2$,1,0)«, l3=0x1f}
0x437c…4396 Line {l1=0x18, l2=»6890 PRINT TAB(9);STREG$«, l3=0x18}
0x4396…43e5 Line {l1=0x4d, l2=»6900 PRINT TAB(9);"NAVN OG ADRESSE";TAB(39);"MÅNEDENS KØB ÅRETS KØB H";«, l3=0x4d}
0x43e5…43ff Line {l1=0x18, l2=»6910 PRINT "KUNDE HPOST"«, l3=0x18}
0x43ff…440f Line {l1=0x0e, l2=»6920 PRINT " "«, l3=0x0e}
0x440f…4433 Line {l1=0x22, l2=»6930 PRINT USING "###### ":DEBNR;«, l3=0x22}
0x4433…445f Line {l1=0x2a, l2=»6940 PRINT DEBNAVN$;TAB(38);UD1$;" ";UD2$;«, l3=0x2a}
0x445f…448e Line {l1=0x2d, l2=»6950 PRINT USING "###### ######":HKUNDE,HPOST«, l3=0x2d}
0x448e…44ae Line {l1=0x1e, l2=»6960 PRINT TAB(9);DEBGADE$;" "«, l3=0x1e}
0x44ae…44dd Line {l1=0x2d, l2=»6970 PRINT USING " ####### ":DEBPOSTNR;«, l3=0x2d}
0x44dd…44f9 Line {l1=0x1a, l2=»6980 PRINT DEBBY$;TAB(39);«, l3=0x1a}
0x44f9…4527 Line {l1=0x2c, l2=»6990 DLK=ORD(DEBLK$)-48;DKGR=ORD(DEBKGR$)-48«, l3=0x2c}
0x4527…4565 Line {l1=0x3c, l2=»7000 PRINT USING "LANDEKODE:### KUNDEGRUPPE:###":DLK,DKGR«, l3=0x3c}
0x4565…4575 Line {l1=0x0e, l2=»7010 PRINT " "«, l3=0x0e}
0x4575…45c1 Line {l1=0x4a, l2=»7020 PRINT TAB(9);"TLF";TAB(23);"0-30 DAGE 30-60 DAGE 60-90 DAGE";«, l3=0x4a}
0x45c1…45dd Line {l1=0x1a, l2=»7030 PRINT " ÆLDRE"«, l3=0x1a}
0x45dd…45ed Line {l1=0x0e, l2=»7040 PRINT " "«, l3=0x0e}
0x45ed…460f Line {l1=0x20, l2=»7050 EXEC TUD(DSALDO1$,UD1$,1,0)«, l3=0x20}
0x460f…4631 Line {l1=0x20, l2=»7060 EXEC TUD(DSALDO2$,UD2$,1,0)«, l3=0x20}
0x4631…4653 Line {l1=0x20, l2=»7070 EXEC TUD(DSALDO3$,UD3$,1,0)«, l3=0x20}
0x4653…4675 Line {l1=0x20, l2=»7080 EXEC TUD(DSALDO4$,UD4$,1,0)«, l3=0x20}
0x4675…46b8 Line {l1=0x41, l2=»7090 PRINT TAB(9);DEBTLF$;TAB(19);UD1$;" ";UD2$;" ";UD3$;" ";UD4$«, l3=0x41}
0x46b8…46c8 Line {l1=0x0e, l2=»7100 PRINT " "«, l3=0x0e}
0x46c8…46d5 Line {l1=0x0b, l2=»7110 ENDIF «, l3=0x0b}
0x46d5…46f3 Line {l1=0x1c, l2=»7120 IF DPIL3=TIL THEN EXIT «, l3=0x1c}
0x46f3…4704 Line {l1=0x0f, l2=»7130 NEXT DPIL3«, l3=0x0f}
0x4704…4718 Line {l1=0x12, l2=»7140 PRINT CHR(10)«, l3=0x12}
0x4718…4736 Line {l1=0x1c, l2=»7150 IF DPIL3=TIL THEN EXIT «, l3=0x1c}
0x4736…4743 Line {l1=0x0b, l2=»7160 NEXT I«, l3=0x0b}
0x4743…475e Line {l1=0x19, l2=»7170 FOR J=DPIL3+1 TO I+3«, l3=0x19}
0x475e…4772 Line {l1=0x12, l2=»7180 PRINT CHR(10)«, l3=0x12}
0x4772…4786 Line {l1=0x12, l2=»7190 PRINT CHR(10)«, l3=0x12}
0x4786…479a Line {l1=0x12, l2=»7200 PRINT CHR(10)«, l3=0x12}
0x479a…47ae Line {l1=0x12, l2=»7210 PRINT CHR(10)«, l3=0x12}
0x47ae…47c2 Line {l1=0x12, l2=»7220 PRINT CHR(10)«, l3=0x12}
0x47c2…47d2 Line {l1=0x0e, l2=»7230 PRINT " "«, l3=0x0e}
0x47d2…47df Line {l1=0x0b, l2=»7240 NEXT J«, l3=0x0b}
0x47df…47ee Line {l1=0x0d, l2=»7250 OUTPUT T«, l3=0x0d}
0x47ee…47fb Line {l1=0x0b, l2=»7260 KONT=0«, l3=0x0b}
0x47fb…480a Line {l1=0x0d, l2=»7270 ENDCASE «, l3=0x0d}
0x480a…4816 Line {l1=0x0a, l2=»7280 ELSE «, l3=0x0a}
0x4816…4824 Line {l1=0x0c, l2=»7290 REPEAT «, l3=0x0c}
0x4824…4836 Line {l1=0x10, l2=»7300 CURSOR 3,23«, l3=0x10}
0x4836…4880 Line {l1=0x48, l2=»7310 PRINT "Denne konto kan ikke slettes, da saldoen ikke er udlignet,";«, l3=0x48}
0x4880…48a1 Line {l1=0x1f, l2=»7320 PRINT " tryk RETURN "«, l3=0x1f}
0x48a1…48b0 Line {l1=0x0d, l2=»7330 INPUT A$«, l3=0x0d}
0x48b0…48c6 Line {l1=0x14, l2=»7340 EXEC NRTEST(A$)«, l3=0x14}
0x48c6…48d7 Line {l1=0x0f, l2=»7350 UNTIL P=-1«, l3=0x0f}
0x48d7…48e4 Line {l1=0x0b, l2=»7360 ENDIF «, l3=0x0b}
0x48e4…48f7 Line {l1=0x11, l2=»7370 UNTIL KONT=0«, l3=0x11}
0x48f7…490a Line {l1=0x11, l2=»7380 UNTIL TYPE=0«, l3=0x11}
0x490a…491a Line {l1=0x0e, l2=»7390 EXEC KPUT«, l3=0x0e}
0x491a…493d Line {l1=0x21, l2=»7400 EXEC UDTAB(DTAB,MDANTAL,K2$)«, l3=0x21}
0x493d…494d Line {l1=0x0e, l2=»7410 CLOSE K2$«, l3=0x0e}
0x494d…4967 Line {l1=0x18, l2=»7420 EXEC FEJL(9,20,K2$)«, l3=0x18}
0x4967…4977 Line {l1=0x0e, l2=»7430 CLOSE K3$«, l3=0x0e}
0x4977…4991 Line {l1=0x18, l2=»7440 EXEC FEJL(9,21,K3$)«, l3=0x18}
0x4991…499f Line {l1=0x0c, l2=»7450 T2(3)=0«, l3=0x0c}
0x499f…49b0 Line {l1=0x0f, l2=»7460 OPEN K5$,W«, l3=0x0f}
0x49b0…49ca Line {l1=0x18, l2=»7470 EXEC FEJL(9,22,K5$)«, l3=0x18}
0x49ca…4a17 Line {l1=0x4b, l2=»7480 PUT K5$,14:AFIN,ADEB,AKRE,VTAB2(1),VTAB2(2),VTAB2(3),VTAB2(4),VTAB2(5)«, l3=0x4b}
0x4a17…4a31 Line {l1=0x18, l2=»7490 EXEC FEJL(9,23,K5$)«, l3=0x18}
0x4a31…4a78 Line {l1=0x45, l2=»7500 PUT K5$,17:T2(1),T2(2),T2(3),T2(4),T2(5),T2(6),T2(7),T2(8),T2(9)«, l3=0x45}
0x4a78…4a92 Line {l1=0x18, l2=»7510 EXEC FEJL(9,24,K5$)«, l3=0x18}
0x4a92…4aa2 Line {l1=0x0e, l2=»7520 CLOSE K5$«, l3=0x0e}
0x4aa2…4abc Line {l1=0x18, l2=»7530 EXEC FEJL(9,25,K5$)«, l3=0x18}
0x4abc…4ada Line {l1=0x1c, l2=»7540 CHAIN "P641210:OPSTART"«, l3=0x1c}
0x4ada…4aef Line {l1=0x13, l2=»7550 PROC SALDOTEST«, l3=0x13}
0x4aef…4b15 Line {l1=0x24, l2=»7560 EXEC CALC(4,DSALDO1$,TAH$,TAH$)«, l3=0x24}
0x4b15…4b29 Line {l1=0x12, l2=»7570 IF SI=0 THEN «, l3=0x12}
0x4b29…4b4f Line {l1=0x24, l2=»7580 EXEC CALC(4,DSALDO2$,TAH$,TAH$)«, l3=0x24}
0x4b4f…4b63 Line {l1=0x12, l2=»7590 IF SI=0 THEN «, l3=0x12}
0x4b63…4b89 Line {l1=0x24, l2=»7600 EXEC CALC(4,DSALDO3$,TAH$,TAH$)«, l3=0x24}
0x4b89…4b9d Line {l1=0x12, l2=»7610 IF SI=0 THEN «, l3=0x12}
0x4b9d…4bc3 Line {l1=0x24, l2=»7620 EXEC CALC(4,DSALDO4$,TAH$,TAH$)«, l3=0x24}
0x4bc3…4bde Line {l1=0x19, l2=»7630 IF SI<>0 THEN TEST=1«, l3=0x19}
0x4bde…4bea Line {l1=0x0a, l2=»7640 ELSE «, l3=0x0a}
0x4bea…4bf7 Line {l1=0x0b, l2=»7650 TEST=1«, l3=0x0b}
0x4bf7…4c04 Line {l1=0x0b, l2=»7660 ENDIF «, l3=0x0b}
0x4c04…4c10 Line {l1=0x0a, l2=»7670 ELSE «, l3=0x0a}
0x4c10…4c1d Line {l1=0x0b, l2=»7680 TEST=1«, l3=0x0b}
0x4c1d…4c2a Line {l1=0x0b, l2=»7690 ENDIF «, l3=0x0b}
0x4c2a…4c36 Line {l1=0x0a, l2=»7700 ELSE «, l3=0x0a}
0x4c36…4c43 Line {l1=0x0b, l2=»7710 TEST=1«, l3=0x0b}
0x4c43…4c50 Line {l1=0x0b, l2=»7720 ENDIF «, l3=0x0b}
0x4c50…4c5f Line {l1=0x0d, l2=»7730 ENDPROC «, l3=0x0d}
0x4c5f…4c60 00 ┆ ┆
0x4c60…4c80 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 63 63 63 63 63 63 63 ┆ ccccccccccccccccccccccccccccccc┆
0x4c80…4ca0 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┆
[…0x13…]