|
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«
└─⟦385f097a1⟧ Bits:30008988 SPC/1 COMAL programmer til bogføring
└─⟦this⟧ »DEBVEDL.K«
0100DIM K1$(17),K2$(17),DEBNAVN$(25),DSALDO1$(12),DEBKGR$(E),UD2$(14),A$(E) 0110DIM DSALDO2$(12),DSALDO3$(12),DSALDO4$(12),DEBLK$(E),DEBGADE$(25),N$(6) 0120DIM T2(W),BLANK$(77),TAL4$(14),TAH$(12),DEBTLF$(W),DEBBY$(20),VTAB2(5) 0130DIM RES$(14),ÅRKØB$(12),MDNKØB$(12),DSALDI$(12),LK$(V),KG$(V),KTN$(6) 0140DIM PNR$(6),TY$(E),OP1$(12),OP2$(12),TA$(12),TB$(14),TÅRKØB$(12),DAT$(8) 0150DIM DEBGADE1$(25),DEBTLF1$(W),BLB2$(12),UBLB2$(14),UD1$(14),STREG$(71) 0160DIM UD3$(14),UD4$(14),K3$(17),K4$(17),K5$(17),K6$(17),T1(W),LAND$(W,12) 0165DIM DV$(10) 0170PROC CALC(ART,B1,B2,ES) 0180OP1$=B1$;OP2$=B2$;RES$=ES$;SI=B;FLAG=B 0190CALL "P641210:REGN" 0200ES$=RES$ 0210IF FLAG THEN STOP 0220ENDPROC 0230PROC FEJL(NR1,NR2,NR3) 0240IF STATUS(NR3$)<>B THEN 0250PRINT STATUS(NR3$),NR1,NR2,NR3$ 0260STOP 0270ENDIF 0280ENDPROC 0290PROC INDTAB(T,MANTAL,K10) 0300J=MANTAL DIV 32+E 0310FOR I=J TO MANTAL DIV 4+J-E 0320H=(I-J)*4+E;J2=H+E;J3=H+G;J4=H+V 0330GET K10$,I:T(H,E),T(H,G),T(J2,E),T(J2,G),T(J3,E),T(J3,G),T(J4,E),T(J4,G) 0340EXEC FEJL(E,E,K10$) 0350NEXT I 0360ENDPROC 0370PROC UDTAB(U,MANTAL1,K9) 0380J=MANTAL1 DIV 32+E 0390FOR I=E TO J-E 0400H=(I-E)*32+E;J1=H+4;J2=H+8;J3=H+12;J4=H+16;J5=H+20;J6=H+24;J7=H+28 0410PUT K9$,I:U(H,E),U(J1,E),U(J2,E),U(J3,E),U(J4,E),U(J5,E),U(J6,E),U(J7,E) 0420EXEC FEJL(G,E,K9$) 0430NEXT I 0440FOR I=J TO MANTAL1 DIV 4+J-E 0450H=(I-J)*4+E;J1=H+E;J2=H+G;J3=H+V 0460PUT K9$,I:U(H,E),U(H,G),U(J1,E),U(J1,G),U(J2,E),U(J2,G),U(J3,E),U(J3,G) 0470EXEC FEJL(G,G,K9$) 0480NEXT I 0490ENDPROC 0500PROC FINDPOST(TAB1,MANT1,NØGL1,PIL3) 0510PIL1=MANT1 DIV G;PIL3=PIL1;CEKS=E 0520REPEAT 0530IF NØGL1=TAB1(PIL3,E) THEN 0540CEKS=B 0550ELSE 0560IF PIL1=E THEN PIL1=B 0570PIL1=INT((PIL1+E)/G) 0580IF NØGL1>TAB1(PIL3,E) THEN 0590PIL3=PIL3+PIL1 0600ELSE 0610PIL3=PIL3-PIL1 0620ENDIF 0630IF PIL3<E THEN PIL3=E 0640IF PIL3>MANT1 THEN PIL3=MANT1 0650ENDIF 0660UNTIL CEKS=B OR PIL1=B 0670ENDPROC 0680PROC SLETDPOST(NØGLE3) 0690EXEC FINDPOST(DTAB,MDANTAL,NØGLE3,DPIL3) 0700IF CEKS=E THEN STOP 0710DEBNR=B 0720DEBNAVN$=BLANK$(E:25) 0730DSALDO1$=BLANK$(E:12) 0740DSALDO2$=BLANK$(E:12) 0750DSALDO3$=BLANK$(E:12) 0760DSALDO4$=BLANK$(E:12) 0770ÅRKØB$=BLANK$(E:12) 0780MDNKØB$=BLANK$(E:12) 0790DEBKGR$="0" 0800DEBPOSTNR=B 0810DEBLK$="0" 0820DEBGADE$=BLANK$(E:25) 0830DEBTLF$=BLANK$(E:W) 0840HPOST=B 0850HKUNDE=B 0860DEBBY$=BLANK$(E:20) 0870EXEC GEMDPOST 0880EXEC SLETPOST(DTAB,ADEB,NØGLE3,DPIL3) 0890ENDPROC 0900PROC INDSÆT(TAB2,ANTAL2,NØGL2,PIL4) 0910IF CEKS=E THEN 0920POSTNR=TAB2(ANTAL2+E,G) 0930IF NØGL2>TAB2(PIL4,E) AND TAB2(PIL4,E)<>1000000 THEN PIL4=PIL4+E 0940FOR J=ANTAL2+E TO PIL4+E STEP -E 0950TAB2(J,E)=TAB2(J-E,E) 0960TAB2(J,G)=TAB2(J-E,G) 0970NEXT J 0980TAB2(PIL4,E)=NØGL2 0990TAB2(PIL4,G)=POSTNR 1000ANTAL2=ANTAL2+E 1010ENDIF 1020ENDPROC 1030PROC SLETPOST(TAB3,ANTAL3,NØGL3,PIL5) 1040IF CEKS=B THEN 1050POSTNR=TAB3(PIL5,G) 1060FOR I=PIL5 TO ANTAL3-E 1070TAB3(I,E)=TAB3(I+E,E) 1080TAB3(I,G)=TAB3(I+E,G) 1090NEXT I 1100TAB3(ANTAL3,E)=1000000 1110TAB3(ANTAL3,G)=POSTNR 1120ANTAL3=ANTAL3-E 1130ENDIF 1140ENDPROC 1150PROC HENTDPOST 1160S=DTAB(DPIL3,G) 1170GET K3$,S:DEBNR,DEBNAVN$,DSALDO1$,DEBKGR$ 1180EXEC FEJL(8,G,K3$) 1190IF DEBNR<>DTAB(DPIL3,E) THEN STOP 1200GET K3$,S+E:DSALDO2$,DSALDO3$,DSALDO4$,DEBPOSTNR,DEBLK$ 1210EXEC FEJL(8,V,K3$) 1220GET K3$,S+G:DEBGADE$,DEBTLF$,HPOST,HKUNDE 1230EXEC FEJL(8,4,K3$) 1240GET K3$,S+V:DEBBY$,ÅRKØB$,MDNKØB$ 1250EXEC FEJL(8,5,K3$) 1260ENDPROC 1270PROC GEMDPOST 1280S=DTAB(DPIL3,G) 1290PUT K3$,S:DEBNR,DEBNAVN$,DSALDO1$,DEBKGR$ 1300EXEC FEJL(W,V,K3$) 1310PUT K3$,S+E:DSALDO2$,DSALDO3$,DSALDO4$,DEBPOSTNR,DEBLK$ 1320EXEC FEJL(W,4,K3$) 1330PUT K3$,S+G:DEBGADE$,DEBTLF$,HPOST,HKUNDE 1340EXEC FEJL(W,4,K3$) 1350PUT K3$,S+V:DEBBY$,ÅRKØB$,MDNKØB$ 1360EXEC FEJL(W,5,K3$) 1370ENDPROC 1380PROC DINDTAST(DSTYR,CÆND,DEBNR2) 1390IF CÆND<>E THEN 1400CLEAR 1410CURSOR 21,E 1420PRINT "Kundeoplysninger" 1430EXEC OVERSKRIFT 1440CURSOR G,V 1450PRINT "1:Kundenr :";DEBNR2 1460ENDIF 1470REPEAT 1480CASE DSTYR OF 1490STOP 1500WHEN G 1510IF CÆND<>E THEN 1520CURSOR G,4 1530PRINT "2:Navn :" 1540DSTYR=V 1550ENDIF 1560IF CÆND<>G THEN 1570CURSOR V,23 1580PRINT "Navn";BLANK$(E:33);"(max 25 tegn)";BLANK$(E:26) 1590CURSOR 13,23 1600INPUT DEBNAVN$ 1610ENDIF 1620CURSOR 16,4 1630PRINT BLANK$(E:25) 1640CURSOR 16,4 1650PRINT DEBNAVN$ 1660WHEN V 1670IF CÆND<>E THEN 1680CURSOR G,5 1690PRINT "3:Gade :" 1700DSTYR=4 1710ENDIF 1720IF CÆND<>G THEN 1730CURSOR V,23 1740PRINT "Gade";BLANK$(E:33);"(max 25 tegn)";BLANK$(E:26) 1750CURSOR 13,23 1760INPUT DEBGADE$ 1770ENDIF 1780CURSOR 16,5 1790PRINT BLANK$(E:25) 1800CURSOR 16,5 1810PRINT DEBGADE$ 1820WHEN 4 1830IF CÆND<>E THEN 1840CURSOR G,6 1850PRINT "4:Postnr :" 1860DSTYR=5 1870ENDIF 1880IF CÆND<>G THEN 1890REPEAT 1900CURSOR V,23 1910PRINT "Postnr";BLANK$(E:12);"(max 6 tegn)";BLANK$(E:45) 1920CURSOR 13,23 1930INPUT PNR$ 1940EXEC NRTEST(PNR$) 1950UNTIL ((L>V AND L<7) OR (P=-E AND CÆND=E)) AND TEST2=B 1960IF P<>-E THEN DEBPOSTNR=P 1970ENDIF 1980CURSOR 16,6 1990PRINT BLANK$(E:6) 2000CURSOR 16,6 2010PRINT DEBPOSTNR 2020WHEN 5 2030IF CÆND<>E THEN 2040CURSOR G,7 2050PRINT "5:By :" 2060DSTYR=6 2070ENDIF 2080IF CÆND<>G THEN 2090CURSOR V,23 2100PRINT "By";BLANK$(E:30);"(max 20 tegn)";BLANK$(E:31) 2110CURSOR 13,23 2120INPUT DEBBY$ 2130ENDIF 2140CURSOR 16,7 2150PRINT BLANK$(E:20) 2160CURSOR 16,7 2170PRINT DEBBY$ 2180WHEN 6 2190IF CÆND<>E THEN 2200CURSOR G,8 2210PRINT "6:Landekode : Land:" 2220DSTYR=7 2230ENDIF 2240IF CÆND<>G THEN 2250REPEAT 2260CURSOR V,23 2270PRINT "Landekode";BLANK$(E:W);"0:for Danmark,max 2 cifre)";BLANK$(E:30) 2280CURSOR 13,23 2290INPUT LK$ 2300EXEC NRTEST(LK$) 2310UNTIL (P>-E AND P<10 AND TEST2=B) OR (P=-E AND CÆND=E) 2320ENDIF 2330CURSOR 16,8 2340PRINT BLANK$(E:V) 2350CURSOR 27,8 2360PRINT BLANK$(E:15) 2370CURSOR 16,8 2380IF P<10 AND CÆND<>G THEN 2390DEBLK$=CHR(P+48) 2400ENDIF 2410P=ORD(DEBLK$)-48 2420PRINT USING "###":P 2430CURSOR 27,8 2440IF P=B THEN 2450PRINT "Danmark" 2460ELSE 2470PRINT LAND$(P) 2480ENDIF 2490WHEN 7 2500IF CÆND<>E THEN 2510CURSOR G,W 2520PRINT "7:Telefon :" 2530DSTYR=8 2540ENDIF 2550IF CÆND<>G THEN 2560CURSOR V,23 2570PRINT "Telefon";BLANK$(E:14);"(max 9 tegn)";BLANK$(E:44) 2580CURSOR 13,23 2590INPUT DEBTLF$ 2600ENDIF 2610CURSOR 16,W 2620PRINT BLANK$(E:W) 2630CURSOR 16,W 2640PRINT DEBTLF$ 2650WHEN 8 2660IF CÆND<>E THEN 2670CURSOR G,10 2680PRINT "8:Kundegr :" 2690DSTYR=W 2700ELSE 2710IF TYPE=G THEN 2720EXEC KSØG(DEBNR2,ORD(DEBKGR$)-48) 2730EXEC KINDSLET(0) 2740ENDIF 2750ENDIF 2760IF CÆND<>G THEN 2770REPEAT 2780CURSOR V,23 2790PRINT "Kundegr (max 2 cifre)";BLANK$(E:49) 2800CURSOR 13,23 2810INPUT KG$ 2820EXEC NRTEST(KG$) 2830UNTIL (P>B AND TEST2=B AND P<=MKGR) OR (P=-E AND CÆND=E) 2840ENDIF 2850CURSOR 16,10 2860IF P>B AND CÆND<>G THEN 2870DEBKGR$=CHR(P+48) 2880ENDIF 2890PRINT USING "###":INT(ORD(DEBKGR$)-48) 2900IF CÆND=E AND TYPE=G THEN 2910EXEC KSØG(DEBNR2,ORD(DEBKGR$)-48) 2920EXEC KINDSLET(1) 2930ENDIF 2940ENDCASE 2950IF CÆND=E THEN 2960DSTYR=W 2970ENDIF 2980UNTIL DSTYR=W 2990IF CÆND<>E THEN 3000EXEC CALC(B,DSALDO1$,DSALDO2$,DSALDI$) 3010EXEC CALC(B,DSALDI$,DSALDO3$,DSALDI$) 3020EXEC CALC(B,DSALDI$,DSALDO4$,DSALDI$) 3030CURSOR 4,12 3040PRINT "Saldo :" 3050CURSOR 17,12 3060EXEC TUD(DSALDI$,TAL4$,E,B) 3070PRINT TAL4$ 3080CURSOR 4,14 3090PRINT " 0-30 Dage :" 3100CURSOR 17,14 3110EXEC TUD(DSALDO1$,TAL4$,E,B) 3120PRINT TAL4$ 3130CURSOR 4,16 3140PRINT "30-60 Dage :" 3150CURSOR 17,16 3160EXEC TUD(DSALDO2$,TAL4$,E,B) 3170PRINT TAL4$ 3180CURSOR 4,18 3190PRINT "60-90 Dage :" 3200CURSOR 17,18 3210EXEC TUD(DSALDO3$,TAL4$,E,B) 3220PRINT TAL4$ 3230CURSOR 4,20 3240PRINT "Ældre :" 3250CURSOR 17,20 3260EXEC TUD(DSALDO4$,TAL4$,E,B) 3270PRINT TAL4$ 3280CURSOR 44,12 3290PRINT "Månedens køb :" 3300CURSOR 59,12 3310EXEC TUD(MDNKØB$,TAL4$,E,B) 3320PRINT TAL4$ 3330CURSOR 44,14 3340PRINT "Årets køb :" 3350CURSOR 59,14 3360TÅRKØB$=ÅRKØB$ 3370EXEC TUD(TÅRKØB$,TAL4$,E,B) 3380PRINT TAL4$ 3390ENDIF 3400ENDPROC 3410PROC TUD(BLB1,UBLB1,TEGN,STØR) 3420BLB2$=BLB1$;UBLB2$=UBLB1$ 3430EXEC CALC(5,BLB2$,TAH$,UBLB2$) 3440UBLB1$=UBLB2$ 3450IF TEGN=B THEN 3460UBLB1$=UBLB1$(E:13) 3470ELSE 3480IF TEGN=E AND UBLB1$(LEN(UBLB1$))="+" THEN 3490UBLB1$(LEN(UBLB1$))=" " 3500ENDIF 3510ENDIF 3520IF STØR=E THEN 3530UBLB1$=UBLB1$(4:LEN(UBLB1$)-V) 3540ENDIF 3550ENDPROC 3560PROC KINDSLET(AR1) 3570IF FUN+AR1=B THEN 3580IF SPIL1=B THEN 3590KARRAY(ORD(DEBKGR$)-48)=HKUNDE 3600ELSE 3610HKUNDE1=HKUNDE 3620ENDIF 3630ELSE 3640IF FUN+AR1=G THEN 3650HKUNDE=SPIL2 3660IF SPIL1=B THEN 3670KARRAY(ORD(DEBKGR$)-48)=DEBNR 3680ELSE 3690HKUNDE1=DEBNR 3700ENDIF 3710ELSE 3720STOP 3730ENDIF 3740ENDIF 3750IF (FUN+AR1=B OR FUN+AR1=G) AND SPIL1<>B THEN 3760PUT K3$,DTAB(DPIL3,G)+G:DEBGADE1$,DEBTLF1$,HPOST1,HKUNDE1 3770EXEC FEJL(11,G,K3$) 3780ENDIF 3790ENDPROC 3800PROC KSØG(NØGLE,KGR) 3810FUN=E;SPIL1=B;SPIL2=KARRAY(KGR) 3820IF SPIL2<NØGLE AND SPIL2>B THEN 3830REPEAT 3840SPIL1=SPIL2 3850EXEC FINDPOST(DTAB,MDANTAL,SPIL1,DPIL3) 3860IF CEKS=E THEN STOP 3870GET K3$,DTAB(DPIL3,G)+G:DEBGADE1$,DEBTLF1$,HPOST1,HKUNDE1 3880EXEC FEJL(10,G,K3$) 3890SPIL2=HKUNDE1 3900UNTIL SPIL2=>NØGLE OR SPIL2=B 3910ENDIF 3920IF SPIL2=NØGLE THEN FUN=B 3930ENDPROC 3940PROC KPUT 3950OPEN K4$,W 3960EXEC FEJL(12,E,K4$) 3970FOR I=E TO MKGR DIV 5 3980J=(I-E)*5+E 3990PUT K4$,I:KARRAY(J),KARRAY(J+E),KARRAY(J+G),KARRAY(J+V),KARRAY(J+4) 4000EXEC FEJL(12,G,K4$) 4010NEXT I 4020CLOSE K4$ 4030EXEC FEJL(12,V,K4$) 4040ENDPROC 4050PROC NRTEST(NUM1) 4060P=B;TEST2=B;KTAL=B;L=LEN(NUM1$) 4070CASE L OF 4080FOR I=E TO L 4090P1=INT(ORD(NUM1$(I))-48) 4100IF P1=>B AND P1<=W THEN 4110P=P*10+P1 4120ELSE 4130TEST2=E 4140ENDIF 4150NEXT I 4160KTAL=P DIV 10000 4170WHEN B 4180P=-E 4190WHEN E 4200CASE NUM1$ OF 4210P=INT(ORD(NUM1$)-48) 4220WHEN "J","j" 4230P=-7 4240WHEN "N","n" 4250P=-8 4260ENDCASE 4270ENDCASE 4280ENDPROC 4290PROC OVERSKRIFT 4300CURSOR 45,E 4310CASE TYPE OF 4320WHEN E 4330PRINT "Oprettelse" 4340WHEN G 4350PRINT "Ændring" 4360WHEN V 4370PRINT "Sletning" 4380WHEN 4 4390PRINT "Udskrift" 4400WHEN 5 4410PRINT "Kundekontoliste" 4420ENDCASE 4430ENDPROC 4440K1$="P641220:SYSTEM1" 4450OPEN K1$,R 4460EXEC FEJL(W,E,K1$) 4470GET K1$,E:MFANTAL,MDANTAL 4480EXEC FEJL(W,G,K1$) 4490GET K1$,4:MKRMID,MFAK,MVGR,MKGR 4500EXEC FEJL(W,V,K1$) 4510GET K1$,8:DIVNR,DIVDNR,DIFNR,DTAL 4520EXEC FEJL(W,4,K1$) 4530GET K1$,10:N$ 4540EXEC FEJL(W,5,K1$) 4550GET K1$,12:K2$ 4560EXEC FEJL(W,6,K1$) 4570GET K1$,16:K3$ 4580EXEC FEJL(W,7,K1$) 4590GET K1$,35:K4$ 4600EXEC FEJL(W,8,K1$) 4610GET K1$,36:K5$ 4620EXEC FEJL(W,W,K1$) 4630CLOSE K1$ 4640EXEC FEJL(W,10,K1$) 4650DIM DTAB(MDANTAL,G),KARRAY(MKGR) 4660K5$=N$+K5$ 4670OPEN K5$,W 4680EXEC FEJL(W,11,K5$) 4690GET K5$,G:T1(E),T1(G),T1(V),T1(4),T1(5),T1(6),DATO 4700EXEC FEJL(W,12,K5$) 4710FOR I=E TO V 4720J=(I-E)*V+E 4730GET K5$,I+G:LAND$(J),LAND$(J+E),LAND$(J+G) 4740EXEC FEJL(W,13,K5$) 4750NEXT I 4760GET K5$,14:AFIN,ADEB,AKRE,VTAB2(E),VTAB2(G),VTAB2(V),VTAB2(4),VTAB2(5) 4770EXEC FEJL(W,14,K5$) 4771GET K5$,20:DV$ 4772EXEC FEJL(W,22,K5$) 4780GET K5$,17:T2(E),T2(G),T2(V),T2(4),T2(5),T2(6),T2(7),T2(8),T2(W) 4790EXEC FEJL(W,15,K5$) 4800T2(V)=E 4810PUT K5$,17:T2(E),T2(G),T2(V),T2(4),T2(5),T2(6),T2(7),T2(8),T2(W) 4820EXEC FEJL(W,16,K5$) 4830CLOSE K5$ 4840EXEC FEJL(W,17,K5$) 4850K3$=N$+K3$ 4860OPEN K3$,W 4870EXEC FEJL(W,18,K3$) 4880K2$=N$+K2$ 4890OPEN K2$,W 4900EXEC FEJL(W,19,K2$) 4910EXEC INDTAB(DTAB,MDANTAL,K2$) 4920K4$=N$+K4$ 4930OPEN K4$,R 4940EXEC FEJL(W,10,K4$) 4950FOR I=E TO MKGR DIV 5 4960J=(I-E)*5+E 4970GET K4$,I:KARRAY(J),KARRAY(J+E),KARRAY(J+G),KARRAY(J+V),KARRAY(J+4) 4980EXEC FEJL(W,11,K4$) 4990NEXT I 5000CLOSE K4$ 5010EXEC FEJL(W,12,K4$) 5020BLANK$=" ";BLANK$=BLANK$+BLANK$+" " 5030TAH$="0+";TAL4$="0+" 5040STREG$="-----------------------------------";STREG$=STREG$+STREG$ 5050REPEAT 5060CLEAR 5070CURSOR 21,E 5080PRINT "Kundevedligeholdelse" 5090CURSOR G,V 5100PRINT "0:Færdig" 5110CURSOR G,5 5120PRINT "1:Oprettelse" 5130CURSOR G,7 5140PRINT "2:Ændring" 5150CURSOR G,W 5160PRINT "3:Sletning" 5170CURSOR G,11 5180PRINT "4:Udskrift" 5190CURSOR G,13 5200PRINT "5:Kundekontoliste" 5210REPEAT 5220CURSOR 4,15 5230PRINT "Vælg type (0-5)" 5240CURSOR 14,15 5250INPUT TY$ 5260EXEC NRTEST(TY$) 5270UNTIL P>-E AND P<6 5280TYPE=P 5290IF TYPE=B THEN EXIT 5300REPEAT 5310EXEC OVERSKRIFT 5320TEST=B;KONT=E 5330IF TYPE<5 THEN 5340REPEAT 5350REPEAT 5360CURSOR V,23 5370PRINT "Indtast nyt kundenr (0:for færdig)";BLANK$(E:35) 5380CURSOR 22,23 5390INPUT KTN$ 5400EXEC NRTEST(KTN$) 5410UNTIL (TEST2=B AND KTAL=DTAL AND DTAL*10000+MKGR<P) OR P=B 5420KONT=P 5430IF KONT=B THEN EXIT 5440EXEC FINDPOST(DTAB,MDANTAL,P,DPIL3) 5450REPEAT 5460CURSOR 44,23 5470IF (CEKS=B AND TYPE<>E) OR (CEKS=E AND TYPE=E AND ADEB<MDANTAL) THEN 5480PRINT BLANK$(E:35) 5490P=-E 5500ELSE 5510IF CEKS=E AND TYPE=E AND ADEB=>MDANTAL THEN 5520CURSOR V,23 5530INPUT "Ikke plads til flere kunder,tast RETURN ",A$ 5540ELSE 5550IF CEKS=B THEN 5560INPUT "Kunde eksisterer , tast RETURN ",A$ 5570ELSE 5580INPUT "Kunde eksisterer ikke , tast RETURN",A$ 5590ENDIF 5600ENDIF 5610EXEC NRTEST(A$) 5620ENDIF 5630UNTIL P=-E 5640UNTIL (CEKS=B AND TYPE<>E) OR (CEKS=E AND TYPE=E AND ADEB<MDANTAL) 5650IF KONT=B THEN EXIT 5660IF TYPE<>E THEN 5670FNR=KONT;TEST=B 5680EXEC HENTDPOST 5690IF TYPE=V THEN EXEC SALDOTEST 5700EXEC DINDTAST(2,2,FNR) 5710ELSE 5720DEBNR=KONT 5730DEBNAVN$=BLANK$(E:25) 5740DSALDO1$="0+" 5750DSALDO2$="0+" 5760DSALDO3$="0+" 5770DSALDO4$="0+" 5780MDNKØB$="0+" 5790ÅRKØB$="0+" 5800DEBGADE$=BLANK$(E:25) 5810DEBTLF$=BLANK$(E:W) 5820HPOST=B 5830HKUNDE=B 5840DEBPOSTNR=B 5850DEBLK$="0" 5860DEBKGR$="0" 5870DEBBY$=BLANK$(E:20) 5880EXEC DINDTAST(2,0,DEBNR) 5890ENDIF 5900ENDIF 5910IF KONT=B THEN EXIT 5920IF TEST=B THEN 5930CASE TYPE OF 5940STOP 5950WHEN E,G 5960REPEAT 5970REPEAT 5980CURSOR V,23 5990PRINT "Hvilket felt ønskes ændret (Indtast feltnr 2-8,"; 6000PRINT "0:for færdig) " 6010CURSOR 32,23 6020INPUT LK$ 6030EXEC NRTEST(LK$) 6040UNTIL P=B OR (P>E AND P<W) 6050STYR1=P 6060IF STYR1=B THEN EXIT 6070EXEC DINDTAST(STYR1,1,DEBNR) 6080UNTIL STYR1=B 6090IF TYPE=E THEN 6100EXEC KSØG(DEBNR,ORD(DEBKGR$)-48) 6110EXEC KINDSLET(1) 6120EXEC FINDPOST(DTAB,MDANTAL,DEBNR,DPIL3) 6130EXEC INDSÆT(DTAB,ADEB,DEBNR,DPIL3) 6140EXEC GEMDPOST 6150ELSE 6160EXEC FINDPOST(DTAB,MDANTAL,DEBNR,DPIL3) 6170EXEC GEMDPOST 6180ENDIF 6190WHEN V 6200REPEAT 6210CURSOR V,23 6220PRINT "Er det rigtigt at denne konto skal slettes"; 6230PRINT " (J/N)";BLANK$(E:23) 6240CURSOR 48,23 6250INPUT A$ 6260EXEC NRTEST(A$) 6270UNTIL P=-7 OR P=-8 6280IF P=-7 THEN 6290EXEC KSØG(DEBNR,ORD(DEBKGR$)-48) 6300EXEC KINDSLET(0) 6310EXEC SLETDPOST(DEBNR) 6320ENDIF 6330WHEN 4 6340WHEN 5 6350REPEAT 6360REPEAT 6370CURSOR V,23 6380PRINT "Fra kundenr (0: Alle)" 6390CURSOR 15,23 6400INPUT KTN$ 6410EXEC NRTEST(KTN$) 6420UNTIL L=5 AND P>9999 AND TEST2=B OR P=B 6430IF P=B THEN 6440FRA=E;TIL=ADEB 6450ELSE 6460KONT=P 6470EXEC FINDPOST(DTAB,MDANTAL,P,DPIL3) 6480IF DTAB(DPIL3,E)<KONT THEN DPIL3=DPIL3+E 6490FRA=DPIL3 6500ENDIF 6510UNTIL FRA<=ADEB 6520IF P>B THEN 6530REPEAT 6540CURSOR V,23 6550PRINT "Til kundenr " 6560CURSOR 15,23 6570INPUT KTN$ 6580EXEC NRTEST(KTN$) 6590UNTIL L=5 AND P>9999 AND TEST2=B AND P=>KONT 6600EXEC FINDPOST(DTAB,MDANTAL,P,DPIL3) 6610IF DTAB(DPIL3,E)>P THEN DPIL3=DPIL3-E 6620TIL=DPIL3 6630ENDIF 6640CLEAR 6650REPEAT 6660CURSOR 8,13 6670INPUT "Monter papir til udskrift af kundekontoliste og tast RETURN",A$ 6680UNTIL ORD(A$)=255 6690OUTPUT P 6700SIDE=E;DA1=DATO;DAT$=" " 6710FOR J=8 TO E STEP -E 6720IF J MOD V=B THEN 6730DAT$(J)="." 6740ELSE 6750DAT$(J)=CHR(DA1 MOD 10+48);DA1=DA1 DIV 10 6760ENDIF 6770NEXT J 6780FOR I=FRA TO TIL STEP 4 6785PRINT TAB(67);DV$;" " 6790PRINT TAB(10);CHR(14);"Kundekontoliste";CHR(15);TAB(38);"Dato : ";DAT$; 6800PRINT USING " Side :####":SIDE 6810PRINT " " 6820SIDE=SIDE+E 6830FOR DPIL3=I TO I+V 6840IF DTAB(DPIL3,E)>B THEN 6850EXEC HENTDPOST 6860EXEC TUD(MDNKØB$,UD1$,E,B) 6870TÅRKØB$=ÅRKØB$ 6880EXEC TUD(TÅRKØB$,UD2$,E,B) 6890PRINT TAB(W);STREG$ 6900PRINT TAB(W);"NAVN OG ADRESSE";TAB(38);"MÅNEDENS KØB ÅRETS KØB H"; 6910PRINT "KUNDE HPOST" 6920PRINT " " 6930PRINT USING "###### ":DEBNR; 6940PRINT DEBNAVN$;TAB(38);UD1$;" ";UD2$; 6950PRINT USING "###### ######":HKUNDE,HPOST 6960PRINT TAB(W);DEBGADE$;" " 6970PRINT USING " ####### ":DEBPOSTNR; 6980PRINT DEBBY$;TAB(39); 6990DLK=ORD(DEBLK$)-48;DKGR=ORD(DEBKGR$)-48 7000PRINT USING "LANDEKODE:### KUNDEGRUPPE:###":DLK,DKGR 7010PRINT " " 7020PRINT TAB(W);"TLF";TAB(23);"0-30 DAGE 30-60 DAGE 60-90 DAGE"; 7030PRINT " ÆLDRE" 7040PRINT " " 7050EXEC TUD(DSALDO1$,UD1$,E,B) 7060EXEC TUD(DSALDO2$,UD2$,E,B) 7070EXEC TUD(DSALDO3$,UD3$,E,B) 7080EXEC TUD(DSALDO4$,UD4$,E,B) 7090PRINT TAB(W);DEBTLF$;TAB(19);UD1$;" ";UD2$;" ";UD3$;" ";UD4$ 7100PRINT " " 7110ENDIF 7120IF DPIL3=TIL THEN EXIT 7130NEXT DPIL3 7140PRINT " " 7150IF DPIL3=TIL AND DPIL3<I+4 THEN EXIT 7160NEXT I 7170FOR J=DPIL3+E TO I+V 7180PRINT CHR(10);CHR(10) 7190PRINT CHR(10);CHR(10) 7200PRINT CHR(10);CHR(10) 7220PRINT " " 7230PRINT " " 7240NEXT J 7250OUTPUT T 7260KONT=B 7270ENDCASE 7280ELSE 7290REPEAT 7300CURSOR V,23 7310PRINT "Denne konto kan ikke slettes, da saldoen ikke er udlignet,"; 7320PRINT " tryk RETURN " 7330INPUT A$ 7340EXEC NRTEST(A$) 7350UNTIL P=-E 7360ENDIF 7370UNTIL KONT=B 7380UNTIL TYPE=B 7390EXEC KPUT 7400EXEC UDTAB(DTAB,MDANTAL,K2$) 7410CLOSE K2$ 7420EXEC FEJL(W,20,K2$) 7430CLOSE K3$ 7440EXEC FEJL(W,21,K3$) 7450T2(V)=B 7460OPEN K5$,W 7470EXEC FEJL(W,22,K5$) 7480PUT K5$,14:AFIN,ADEB,AKRE,VTAB2(E),VTAB2(G),VTAB2(V),VTAB2(4),VTAB2(5) 7490EXEC FEJL(W,23,K5$) 7500PUT K5$,17:T2(E),T2(G),T2(V),T2(4),T2(5),T2(6),T2(7),T2(8),T2(W) 7510EXEC FEJL(W,24,K5$) 7520CLOSE K5$ 7530EXEC FEJL(W,25,K5$) 7540CHAIN "P641210:OPSTART" 7550PROC SALDOTEST 7560EXEC CALC(4,DSALDO1$,TAH$,TAH$) 7570IF SI=B THEN 7580EXEC CALC(4,DSALDO2$,TAH$,TAH$) 7590IF SI=B THEN 7600EXEC CALC(4,DSALDO3$,TAH$,TAH$) 7610IF SI=B THEN 7620EXEC CALC(4,DSALDO4$,TAH$,TAH$) 7630IF SI<>B THEN TEST=E 7640ELSE 7650TEST=E 7660ENDIF 7670ELSE 7680TEST=E 7690ENDIF 7700ELSE 7710TEST=E 7720ENDIF 7730ENDPROC
0x0000…004e Line {l1=0x4c, l2=»0100DIM K1$(17),K2$(17),DEBNAVN$(25),DSALDO1$(12),DEBKGR$(E),UD2$(14),A$(E) «, l3=0x4c}
0x004e…009c Line {l1=0x4c, l2=»0110DIM DSALDO2$(12),DSALDO3$(12),DSALDO4$(12),DEBLK$(E),DEBGADE$(25),N$(6) «, l3=0x4c}
0x009c…00e9 Line {l1=0x4b, l2=»0120DIM T2(W),BLANK$(77),TAL4$(14),TAH$(12),DEBTLF$(W),DEBBY$(20),VTAB2(5) «, l3=0x4b}
0x00e9…0135 Line {l1=0x4a, l2=»0130DIM RES$(14),ÅRKØB$(12),MDNKØB$(12),DSALDI$(12),LK$(V),KG$(V),KTN$(6) «, l3=0x4a}
0x0135…0184 Line {l1=0x4d, l2=»0140DIM PNR$(6),TY$(E),OP1$(12),OP2$(12),TA$(12),TB$(14),TÅRKØB$(12),DAT$(8) «, l3=0x4d}
0x0184…01d1 Line {l1=0x4b, l2=»0150DIM DEBGADE1$(25),DEBTLF1$(W),BLB2$(12),UBLB2$(14),UD1$(14),STREG$(71) «, l3=0x4b}
0x01d1…021f Line {l1=0x4c, l2=»0160DIM UD3$(14),UD4$(14),K3$(17),K4$(17),K5$(17),K6$(17),T1(W),LAND$(W,12) «, l3=0x4c}
0x021f…0231 Line {l1=0x10, l2=»0165DIM DV$(10) «, l3=0x10}
0x0231…024f Line {l1=0x1c, l2=»0170PROC CALC(ART,B1,B2,ES) «, l3=0x1c}
0x024f…027c Line {l1=0x2b, l2=»0180OP1$=B1$;OP2$=B2$;RES$=ES$;SI=B;FLAG=B «, l3=0x2b}
0x027c…0296 Line {l1=0x18, l2=»0190CALL "P641210:REGN" «, l3=0x18}
0x0296…02a5 Line {l1=0x0d, l2=»0200ES$=RES$ «, l3=0x0d}
0x02a5…02be Line {l1=0x17, l2=»0210IF FLAG THEN STOP «, l3=0x17}
0x02be…02cd Line {l1=0x0d, l2=»0220ENDPROC «, l3=0x0d}
0x02cd…02ea Line {l1=0x1b, l2=»0230PROC FEJL(NR1,NR2,NR3) «, l3=0x1b}
0x02ea…0309 Line {l1=0x1d, l2=»0240IF STATUS(NR3$)<>B THEN «, l3=0x1d}
0x0309…032f Line {l1=0x24, l2=»0250PRINT STATUS(NR3$),NR1,NR2,NR3$ «, l3=0x24}
0x032f…033b Line {l1=0x0a, l2=»0260STOP «, l3=0x0a}
0x033b…0348 Line {l1=0x0b, l2=»0270ENDIF «, l3=0x0b}
0x0348…0357 Line {l1=0x0d, l2=»0280ENDPROC «, l3=0x0d}
0x0357…0377 Line {l1=0x1e, l2=»0290PROC INDTAB(T,MANTAL,K10) «, l3=0x1e}
0x0377…038f Line {l1=0x16, l2=»0300J=MANTAL DIV 32+E «, l3=0x16}
0x038f…03b1 Line {l1=0x20, l2=»0310FOR I=J TO MANTAL DIV 4+J-E «, l3=0x20}
0x03b1…03d8 Line {l1=0x25, l2=»0320H=(I-J)*4+E;J2=H+E;J3=H+G;J4=H+V «, l3=0x25}
0x03d8…0427 Line {l1=0x4d, l2=»0330GET K10$,I:T(H,E),T(H,G),T(J2,E),T(J2,G),T(J3,E),T(J3,G),T(J4,E),T(J4,G) «, l3=0x4d}
0x0427…0441 Line {l1=0x18, l2=»0340EXEC FEJL(E,E,K10$) «, l3=0x18}
0x0441…044e Line {l1=0x0b, l2=»0350NEXT I «, l3=0x0b}
0x044e…045d Line {l1=0x0d, l2=»0360ENDPROC «, l3=0x0d}
0x045d…047c Line {l1=0x1d, l2=»0370PROC UDTAB(U,MANTAL1,K9) «, l3=0x1d}
0x047c…0495 Line {l1=0x17, l2=»0380J=MANTAL1 DIV 32+E «, l3=0x17}
0x0495…04aa Line {l1=0x13, l2=»0390FOR I=E TO J-E «, l3=0x13}
0x04aa…04f3 Line {l1=0x47, l2=»0400H=(I-E)*32+E;J1=H+4;J2=H+8;J3=H+12;J4=H+16;J5=H+20;J6=H+24;J7=H+28 «, l3=0x47}
0x04f3…0542 Line {l1=0x4d, l2=»0410PUT K9$,I:U(H,E),U(J1,E),U(J2,E),U(J3,E),U(J4,E),U(J5,E),U(J6,E),U(J7,E) «, l3=0x4d}
0x0542…055b Line {l1=0x17, l2=»0420EXEC FEJL(G,E,K9$) «, l3=0x17}
0x055b…0568 Line {l1=0x0b, l2=»0430NEXT I «, l3=0x0b}
0x0568…058b Line {l1=0x21, l2=»0440FOR I=J TO MANTAL1 DIV 4+J-E «, l3=0x21}
0x058b…05b2 Line {l1=0x25, l2=»0450H=(I-J)*4+E;J1=H+E;J2=H+G;J3=H+V «, l3=0x25}
0x05b2…0600 Line {l1=0x4c, l2=»0460PUT K9$,I:U(H,E),U(H,G),U(J1,E),U(J1,G),U(J2,E),U(J2,G),U(J3,E),U(J3,G) «, l3=0x4c}
0x0600…0619 Line {l1=0x17, l2=»0470EXEC FEJL(G,G,K9$) «, l3=0x17}
0x0619…0626 Line {l1=0x0b, l2=»0480NEXT I «, l3=0x0b}
0x0626…0635 Line {l1=0x0d, l2=»0490ENDPROC «, l3=0x0d}
0x0635…0660 Line {l1=0x29, l2=»0500PROC FINDPOST(TAB1,MANT1,NØGL1,PIL3) «, l3=0x29}
0x0660…0688 Line {l1=0x26, l2=»0510PIL1=MANT1 DIV G;PIL3=PIL1;CEKS=E «, l3=0x26}
0x0688…0696 Line {l1=0x0c, l2=»0520REPEAT «, l3=0x0c}
0x0696…06b8 Line {l1=0x20, l2=»0530IF NØGL1=TAB1(PIL3,E) THEN «, l3=0x20}
0x06b8…06c5 Line {l1=0x0b, l2=»0540CEKS=B «, l3=0x0b}
0x06c5…06d1 Line {l1=0x0a, l2=»0550ELSE «, l3=0x0a}
0x06d1…06ed Line {l1=0x1a, l2=»0560IF PIL1=E THEN PIL1=B «, l3=0x1a}
0x06ed…0708 Line {l1=0x19, l2=»0570PIL1=INT((PIL1+E)/G) «, l3=0x19}
0x0708…072a Line {l1=0x20, l2=»0580IF NØGL1>TAB1(PIL3,E) THEN «, l3=0x20}
0x072a…073f Line {l1=0x13, l2=»0590PIL3=PIL3+PIL1 «, l3=0x13}
0x073f…074b Line {l1=0x0a, l2=»0600ELSE «, l3=0x0a}
0x074b…0760 Line {l1=0x13, l2=»0610PIL3=PIL3-PIL1 «, l3=0x13}
0x0760…076d Line {l1=0x0b, l2=»0620ENDIF «, l3=0x0b}
0x076d…0789 Line {l1=0x1a, l2=»0630IF PIL3<E THEN PIL3=E «, l3=0x1a}
0x0789…07ad Line {l1=0x22, l2=»0640IF PIL3>MANT1 THEN PIL3=MANT1 «, l3=0x22}
0x07ad…07ba Line {l1=0x0b, l2=»0650ENDIF «, l3=0x0b}
0x07ba…07d7 Line {l1=0x1b, l2=»0660UNTIL CEKS=B OR PIL1=B «, l3=0x1b}
0x07d7…07e6 Line {l1=0x0d, l2=»0670ENDPROC «, l3=0x0d}
0x07e6…0803 Line {l1=0x1b, l2=»0680PROC SLETDPOST(NØGLE3) «, l3=0x1b}
0x0803…0832 Line {l1=0x2d, l2=»0690EXEC FINDPOST(DTAB,MDANTAL,NØGLE3,DPIL3) «, l3=0x2d}
0x0832…084d Line {l1=0x19, l2=»0700IF CEKS=E THEN STOP «, l3=0x19}
0x084d…085b Line {l1=0x0c, l2=»0710DEBNR=B «, l3=0x0c}
0x085b…0877 Line {l1=0x1a, l2=»0720DEBNAVN$=BLANK$(E:25) «, l3=0x1a}
0x0877…0893 Line {l1=0x1a, l2=»0730DSALDO1$=BLANK$(E:12) «, l3=0x1a}
0x0893…08af Line {l1=0x1a, l2=»0740DSALDO2$=BLANK$(E:12) «, l3=0x1a}
0x08af…08cb Line {l1=0x1a, l2=»0750DSALDO3$=BLANK$(E:12) «, l3=0x1a}
0x08cb…08e7 Line {l1=0x1a, l2=»0760DSALDO4$=BLANK$(E:12) «, l3=0x1a}
0x08e7…0901 Line {l1=0x18, l2=»0770ÅRKØB$=BLANK$(E:12) «, l3=0x18}
0x0901…091c Line {l1=0x19, l2=»0780MDNKØB$=BLANK$(E:12) «, l3=0x19}
0x091c…092e Line {l1=0x10, l2=»0790DEBKGR$="0" «, l3=0x10}
0x092e…0940 Line {l1=0x10, l2=»0800DEBPOSTNR=B «, l3=0x10}
0x0940…0951 Line {l1=0x0f, l2=»0810DEBLK$="0" «, l3=0x0f}
0x0951…096d Line {l1=0x1a, l2=»0820DEBGADE$=BLANK$(E:25) «, l3=0x1a}
0x096d…0987 Line {l1=0x18, l2=»0830DEBTLF$=BLANK$(E:W) «, l3=0x18}
0x0987…0995 Line {l1=0x0c, l2=»0840HPOST=B «, l3=0x0c}
0x0995…09a4 Line {l1=0x0d, l2=»0850HKUNDE=B «, l3=0x0d}
0x09a4…09be Line {l1=0x18, l2=»0860DEBBY$=BLANK$(E:20) «, l3=0x18}
0x09be…09d2 Line {l1=0x12, l2=»0870EXEC GEMDPOST «, l3=0x12}
0x09d2…09fe Line {l1=0x2a, l2=»0880EXEC SLETPOST(DTAB,ADEB,NØGLE3,DPIL3) «, l3=0x2a}
0x09fe…0a0d Line {l1=0x0d, l2=»0890ENDPROC «, l3=0x0d}
0x0a0d…0a37 Line {l1=0x28, l2=»0900PROC INDSÆT(TAB2,ANTAL2,NØGL2,PIL4) «, l3=0x28}
0x0a37…0a4d Line {l1=0x14, l2=»0910IF CEKS=E THEN «, l3=0x14}
0x0a4d…0a6b Line {l1=0x1c, l2=»0920POSTNR=TAB2(ANTAL2+E,G) «, l3=0x1c}
0x0a6b…0ab2 Line {l1=0x45, l2=»0930IF NØGL2>TAB2(PIL4,E) AND TAB2(PIL4,E)<>1000000 THEN PIL4=PIL4+E «, l3=0x45}
0x0ab2…0ad9 Line {l1=0x25, l2=»0940FOR J=ANTAL2+E TO PIL4+E STEP -E «, l3=0x25}
0x0ad9…0af5 Line {l1=0x1a, l2=»0950TAB2(J,E)=TAB2(J-E,E) «, l3=0x1a}
0x0af5…0b11 Line {l1=0x1a, l2=»0960TAB2(J,G)=TAB2(J-E,G) «, l3=0x1a}
0x0b11…0b1e Line {l1=0x0b, l2=»0970NEXT J «, l3=0x0b}
0x0b1e…0b37 Line {l1=0x17, l2=»0980TAB2(PIL4,E)=NØGL2 «, l3=0x17}
0x0b37…0b51 Line {l1=0x18, l2=»0990TAB2(PIL4,G)=POSTNR «, l3=0x18}
0x0b51…0b67 Line {l1=0x14, l2=»1000ANTAL2=ANTAL2+E «, l3=0x14}
0x0b67…0b74 Line {l1=0x0b, l2=»1010ENDIF «, l3=0x0b}
0x0b74…0b83 Line {l1=0x0d, l2=»1020ENDPROC «, l3=0x0d}
0x0b83…0baf Line {l1=0x2a, l2=»1030PROC SLETPOST(TAB3,ANTAL3,NØGL3,PIL5) «, l3=0x2a}
0x0baf…0bc5 Line {l1=0x14, l2=»1040IF CEKS=B THEN «, l3=0x14}
0x0bc5…0bdf Line {l1=0x18, l2=»1050POSTNR=TAB3(PIL5,G) «, l3=0x18}
0x0bdf…0bfc Line {l1=0x1b, l2=»1060FOR I=PIL5 TO ANTAL3-E «, l3=0x1b}
0x0bfc…0c18 Line {l1=0x1a, l2=»1070TAB3(I,E)=TAB3(I+E,E) «, l3=0x1a}
0x0c18…0c34 Line {l1=0x1a, l2=»1080TAB3(I,G)=TAB3(I+E,G) «, l3=0x1a}
0x0c34…0c41 Line {l1=0x0b, l2=»1090NEXT I «, l3=0x0b}
0x0c41…0c5e Line {l1=0x1b, l2=»1100TAB3(ANTAL3,E)=1000000 «, l3=0x1b}
0x0c5e…0c7a Line {l1=0x1a, l2=»1110TAB3(ANTAL3,G)=POSTNR «, l3=0x1a}
0x0c7a…0c90 Line {l1=0x14, l2=»1120ANTAL3=ANTAL3-E «, l3=0x14}
0x0c90…0c9d Line {l1=0x0b, l2=»1130ENDIF «, l3=0x0b}
0x0c9d…0cac Line {l1=0x0d, l2=»1140ENDPROC «, l3=0x0d}
0x0cac…0cc1 Line {l1=0x13, l2=»1150PROC HENTDPOST «, l3=0x13}
0x0cc1…0cd7 Line {l1=0x14, l2=»1160S=DTAB(DPIL3,G) «, l3=0x14}
0x0cd7…0d07 Line {l1=0x2e, l2=»1170GET K3$,S:DEBNR,DEBNAVN$,DSALDO1$,DEBKGR$ «, l3=0x2e}
0x0d07…0d20 Line {l1=0x17, l2=»1180EXEC FEJL(8,G,K3$) «, l3=0x17}
0x0d20…0d49 Line {l1=0x27, l2=»1190IF DEBNR<>DTAB(DPIL3,E) THEN STOP «, l3=0x27}
0x0d49…0d87 Line {l1=0x3c, l2=»1200GET K3$,S+E:DSALDO2$,DSALDO3$,DSALDO4$,DEBPOSTNR,DEBLK$ «, l3=0x3c}
0x0d87…0da0 Line {l1=0x17, l2=»1210EXEC FEJL(8,V,K3$) «, l3=0x17}
0x0da0…0dd0 Line {l1=0x2e, l2=»1220GET K3$,S+G:DEBGADE$,DEBTLF$,HPOST,HKUNDE «, l3=0x2e}
0x0dd0…0de9 Line {l1=0x17, l2=»1230EXEC FEJL(8,4,K3$) «, l3=0x17}
0x0de9…0e11 Line {l1=0x26, l2=»1240GET K3$,S+V:DEBBY$,ÅRKØB$,MDNKØB$ «, l3=0x26}
0x0e11…0e2a Line {l1=0x17, l2=»1250EXEC FEJL(8,5,K3$) «, l3=0x17}
0x0e2a…0e39 Line {l1=0x0d, l2=»1260ENDPROC «, l3=0x0d}
0x0e39…0e4d Line {l1=0x12, l2=»1270PROC GEMDPOST «, l3=0x12}
0x0e4d…0e63 Line {l1=0x14, l2=»1280S=DTAB(DPIL3,G) «, l3=0x14}
0x0e63…0e93 Line {l1=0x2e, l2=»1290PUT K3$,S:DEBNR,DEBNAVN$,DSALDO1$,DEBKGR$ «, l3=0x2e}
0x0e93…0eac Line {l1=0x17, l2=»1300EXEC FEJL(W,V,K3$) «, l3=0x17}
0x0eac…0eea Line {l1=0x3c, l2=»1310PUT K3$,S+E:DSALDO2$,DSALDO3$,DSALDO4$,DEBPOSTNR,DEBLK$ «, l3=0x3c}
0x0eea…0f03 Line {l1=0x17, l2=»1320EXEC FEJL(W,4,K3$) «, l3=0x17}
0x0f03…0f33 Line {l1=0x2e, l2=»1330PUT K3$,S+G:DEBGADE$,DEBTLF$,HPOST,HKUNDE «, l3=0x2e}
0x0f33…0f4c Line {l1=0x17, l2=»1340EXEC FEJL(W,4,K3$) «, l3=0x17}
0x0f4c…0f74 Line {l1=0x26, l2=»1350PUT K3$,S+V:DEBBY$,ÅRKØB$,MDNKØB$ «, l3=0x26}
0x0f74…0f8d Line {l1=0x17, l2=»1360EXEC FEJL(W,5,K3$) «, l3=0x17}
0x0f8d…0f9c Line {l1=0x0d, l2=»1370ENDPROC «, l3=0x0d}
0x0f9c…0fc3 Line {l1=0x25, l2=»1380PROC DINDTAST(DSTYR,CÆND,DEBNR2) «, l3=0x25}
0x0fc3…0fda Line {l1=0x15, l2=»1390IF CÆND<>E THEN «, l3=0x15}
0x0fda…0fe7 Line {l1=0x0b, l2=»1400CLEAR «, l3=0x0b}
0x0fe7…0ff9 Line {l1=0x10, l2=»1410CURSOR 21,E «, l3=0x10}
0x0ff9…1018 Line {l1=0x1d, l2=»1420PRINT "Kundeoplysninger" «, l3=0x1d}
0x1018…102e Line {l1=0x14, l2=»1430EXEC OVERSKRIFT «, l3=0x14}
0x102e…103f Line {l1=0x0f, l2=»1440CURSOR G,V «, l3=0x0f}
0x103f…1062 Line {l1=0x21, l2=»1450PRINT "1:Kundenr :";DEBNR2 «, l3=0x21}
0x1062…106f Line {l1=0x0b, l2=»1460ENDIF «, l3=0x0b}
0x106f…107d Line {l1=0x0c, l2=»1470REPEAT «, l3=0x0c}
0x107d…1092 Line {l1=0x13, l2=»1480CASE DSTYR OF «, l3=0x13}
0x1092…109e Line {l1=0x0a, l2=»1490STOP «, l3=0x0a}
0x109e…10ab Line {l1=0x0b, l2=»1500WHEN G «, l3=0x0b}
0x10ab…10c2 Line {l1=0x15, l2=»1510IF CÆND<>E THEN «, l3=0x15}
0x10c2…10d3 Line {l1=0x0f, l2=»1520CURSOR G,4 «, l3=0x0f}
0x10d3…10ef Line {l1=0x1a, l2=»1530PRINT "2:Navn :" «, l3=0x1a}
0x10ef…10fd Line {l1=0x0c, l2=»1540DSTYR=V «, l3=0x0c}
0x10fd…110a Line {l1=0x0b, l2=»1550ENDIF «, l3=0x0b}
0x110a…1121 Line {l1=0x15, l2=»1560IF CÆND<>G THEN «, l3=0x15}
0x1121…1133 Line {l1=0x10, l2=»1570CURSOR V,23 «, l3=0x10}
0x1133…1170 Line {l1=0x3b, l2=»1580PRINT "Navn";BLANK$(E:33);"(max 25 tegn)";BLANK$(E:26) «, l3=0x3b}
0x1170…1183 Line {l1=0x11, l2=»1590CURSOR 13,23 «, l3=0x11}
0x1183…1198 Line {l1=0x13, l2=»1600INPUT DEBNAVN$ «, l3=0x13}
0x1198…11a5 Line {l1=0x0b, l2=»1610ENDIF «, l3=0x0b}
0x11a5…11b7 Line {l1=0x10, l2=»1620CURSOR 16,4 «, l3=0x10}
0x11b7…11d0 Line {l1=0x17, l2=»1630PRINT BLANK$(E:25) «, l3=0x17}
0x11d0…11e2 Line {l1=0x10, l2=»1640CURSOR 16,4 «, l3=0x10}
0x11e2…11f7 Line {l1=0x13, l2=»1650PRINT DEBNAVN$ «, l3=0x13}
0x11f7…1204 Line {l1=0x0b, l2=»1660WHEN V «, l3=0x0b}
0x1204…121b Line {l1=0x15, l2=»1670IF CÆND<>E THEN «, l3=0x15}
0x121b…122c Line {l1=0x0f, l2=»1680CURSOR G,5 «, l3=0x0f}
0x122c…1248 Line {l1=0x1a, l2=»1690PRINT "3:Gade :" «, l3=0x1a}
0x1248…1256 Line {l1=0x0c, l2=»1700DSTYR=4 «, l3=0x0c}
0x1256…1263 Line {l1=0x0b, l2=»1710ENDIF «, l3=0x0b}
0x1263…127a Line {l1=0x15, l2=»1720IF CÆND<>G THEN «, l3=0x15}
0x127a…128c Line {l1=0x10, l2=»1730CURSOR V,23 «, l3=0x10}
0x128c…12c9 Line {l1=0x3b, l2=»1740PRINT "Gade";BLANK$(E:33);"(max 25 tegn)";BLANK$(E:26) «, l3=0x3b}
0x12c9…12dc Line {l1=0x11, l2=»1750CURSOR 13,23 «, l3=0x11}
0x12dc…12f1 Line {l1=0x13, l2=»1760INPUT DEBGADE$ «, l3=0x13}
0x12f1…12fe Line {l1=0x0b, l2=»1770ENDIF «, l3=0x0b}
0x12fe…1310 Line {l1=0x10, l2=»1780CURSOR 16,5 «, l3=0x10}
0x1310…1329 Line {l1=0x17, l2=»1790PRINT BLANK$(E:25) «, l3=0x17}
0x1329…133b Line {l1=0x10, l2=»1800CURSOR 16,5 «, l3=0x10}
0x133b…1350 Line {l1=0x13, l2=»1810PRINT DEBGADE$ «, l3=0x13}
0x1350…135d Line {l1=0x0b, l2=»1820WHEN 4 «, l3=0x0b}
0x135d…1374 Line {l1=0x15, l2=»1830IF CÆND<>E THEN «, l3=0x15}
0x1374…1385 Line {l1=0x0f, l2=»1840CURSOR G,6 «, l3=0x0f}
0x1385…13a1 Line {l1=0x1a, l2=»1850PRINT "4:Postnr :" «, l3=0x1a}
0x13a1…13af Line {l1=0x0c, l2=»1860DSTYR=5 «, l3=0x0c}
0x13af…13bc Line {l1=0x0b, l2=»1870ENDIF «, l3=0x0b}
0x13bc…13d3 Line {l1=0x15, l2=»1880IF CÆND<>G THEN «, l3=0x15}
0x13d3…13e1 Line {l1=0x0c, l2=»1890REPEAT «, l3=0x0c}
0x13e1…13f3 Line {l1=0x10, l2=»1900CURSOR V,23 «, l3=0x10}
0x13f3…1431 Line {l1=0x3c, l2=»1910PRINT "Postnr";BLANK$(E:12);"(max 6 tegn)";BLANK$(E:45) «, l3=0x3c}
0x1431…1444 Line {l1=0x11, l2=»1920CURSOR 13,23 «, l3=0x11}
0x1444…1455 Line {l1=0x0f, l2=»1930INPUT PNR$ «, l3=0x0f}
0x1455…146d Line {l1=0x16, l2=»1940EXEC NRTEST(PNR$) «, l3=0x16}
0x146d…14aa Line {l1=0x3b, l2=»1950UNTIL ((L>V AND L<7) OR (P=-E AND CÆND=E)) AND TEST2=B «, l3=0x3b}
0x14aa…14ca Line {l1=0x1e, l2=»1960IF P<>-E THEN DEBPOSTNR=P «, l3=0x1e}
0x14ca…14d7 Line {l1=0x0b, l2=»1970ENDIF «, l3=0x0b}
0x14d7…14e9 Line {l1=0x10, l2=»1980CURSOR 16,6 «, l3=0x10}
0x14e9…1501 Line {l1=0x16, l2=»1990PRINT BLANK$(E:6) «, l3=0x16}
0x1501…1513 Line {l1=0x10, l2=»2000CURSOR 16,6 «, l3=0x10}
0x1513…1529 Line {l1=0x14, l2=»2010PRINT DEBPOSTNR «, l3=0x14}
0x1529…1536 Line {l1=0x0b, l2=»2020WHEN 5 «, l3=0x0b}
0x1536…154d Line {l1=0x15, l2=»2030IF CÆND<>E THEN «, l3=0x15}
0x154d…155e Line {l1=0x0f, l2=»2040CURSOR G,7 «, l3=0x0f}
0x155e…157a Line {l1=0x1a, l2=»2050PRINT "5:By :" «, l3=0x1a}
0x157a…1588 Line {l1=0x0c, l2=»2060DSTYR=6 «, l3=0x0c}
0x1588…1595 Line {l1=0x0b, l2=»2070ENDIF «, l3=0x0b}
0x1595…15ac Line {l1=0x15, l2=»2080IF CÆND<>G THEN «, l3=0x15}
0x15ac…15be Line {l1=0x10, l2=»2090CURSOR V,23 «, l3=0x10}
0x15be…15f9 Line {l1=0x39, l2=»2100PRINT "By";BLANK$(E:30);"(max 20 tegn)";BLANK$(E:31) «, l3=0x39}
0x15f9…160c Line {l1=0x11, l2=»2110CURSOR 13,23 «, l3=0x11}
0x160c…161f Line {l1=0x11, l2=»2120INPUT DEBBY$ «, l3=0x11}
0x161f…162c Line {l1=0x0b, l2=»2130ENDIF «, l3=0x0b}
0x162c…163e Line {l1=0x10, l2=»2140CURSOR 16,7 «, l3=0x10}
0x163e…1657 Line {l1=0x17, l2=»2150PRINT BLANK$(E:20) «, l3=0x17}
0x1657…1669 Line {l1=0x10, l2=»2160CURSOR 16,7 «, l3=0x10}
0x1669…167c Line {l1=0x11, l2=»2170PRINT DEBBY$ «, l3=0x11}
0x167c…1689 Line {l1=0x0b, l2=»2180WHEN 6 «, l3=0x0b}
0x1689…16a0 Line {l1=0x15, l2=»2190IF CÆND<>E THEN «, l3=0x15}
0x16a0…16b1 Line {l1=0x0f, l2=»2200CURSOR G,8 «, l3=0x0f}
0x16b1…16d7 Line {l1=0x24, l2=»2210PRINT "6:Landekode : Land:" «, l3=0x24}
0x16d7…16e5 Line {l1=0x0c, l2=»2220DSTYR=7 «, l3=0x0c}
0x16e5…16f2 Line {l1=0x0b, l2=»2230ENDIF «, l3=0x0b}
0x16f2…1709 Line {l1=0x15, l2=»2240IF CÆND<>G THEN «, l3=0x15}
0x1709…1717 Line {l1=0x0c, l2=»2250REPEAT «, l3=0x0c}
0x1717…1729 Line {l1=0x10, l2=»2260CURSOR V,23 «, l3=0x10}
0x1729…1777 Line {l1=0x4c, l2=»2270PRINT "Landekode";BLANK$(E:W);"0:for Danmark,max 2 cifre)";BLANK$(E:30) «, l3=0x4c}
0x1777…178a Line {l1=0x11, l2=»2280CURSOR 13,23 «, l3=0x11}
0x178a…179a Line {l1=0x0e, l2=»2290INPUT LK$ «, l3=0x0e}
0x179a…17b1 Line {l1=0x15, l2=»2300EXEC NRTEST(LK$) «, l3=0x15}
0x17b1…17ee Line {l1=0x3b, l2=»2310UNTIL (P>-E AND P<10 AND TEST2=B) OR (P=-E AND CÆND=E) «, l3=0x3b}
0x17ee…17fb Line {l1=0x0b, l2=»2320ENDIF «, l3=0x0b}
0x17fb…180d Line {l1=0x10, l2=»2330CURSOR 16,8 «, l3=0x10}
0x180d…1825 Line {l1=0x16, l2=»2340PRINT BLANK$(E:V) «, l3=0x16}
0x1825…1837 Line {l1=0x10, l2=»2350CURSOR 27,8 «, l3=0x10}
0x1837…1850 Line {l1=0x17, l2=»2360PRINT BLANK$(E:15) «, l3=0x17}
0x1850…1862 Line {l1=0x10, l2=»2370CURSOR 16,8 «, l3=0x10}
0x1862…1882 Line {l1=0x1e, l2=»2380IF P<10 AND CÆND<>G THEN «, l3=0x1e}
0x1882…1899 Line {l1=0x15, l2=»2390DEBLK$=CHR(P+48) «, l3=0x15}
0x1899…18a6 Line {l1=0x0b, l2=»2400ENDIF «, l3=0x0b}
0x18a6…18bd Line {l1=0x15, l2=»2410P=ORD(DEBLK$)-48 «, l3=0x15}
0x18bd…18d7 Line {l1=0x18, l2=»2420PRINT USING "###":P «, l3=0x18}
0x18d7…18e9 Line {l1=0x10, l2=»2430CURSOR 27,8 «, l3=0x10}
0x18e9…18fc Line {l1=0x11, l2=»2440IF P=B THEN «, l3=0x11}
0x18fc…1912 Line {l1=0x14, l2=»2450PRINT "Danmark" «, l3=0x14}
0x1912…191e Line {l1=0x0a, l2=»2460ELSE «, l3=0x0a}
0x191e…1933 Line {l1=0x13, l2=»2470PRINT LAND$(P) «, l3=0x13}
0x1933…1940 Line {l1=0x0b, l2=»2480ENDIF «, l3=0x0b}
0x1940…194d Line {l1=0x0b, l2=»2490WHEN 7 «, l3=0x0b}
0x194d…1964 Line {l1=0x15, l2=»2500IF CÆND<>E THEN «, l3=0x15}
0x1964…1975 Line {l1=0x0f, l2=»2510CURSOR G,W «, l3=0x0f}
0x1975…1991 Line {l1=0x1a, l2=»2520PRINT "7:Telefon :" «, l3=0x1a}
0x1991…199f Line {l1=0x0c, l2=»2530DSTYR=8 «, l3=0x0c}
0x199f…19ac Line {l1=0x0b, l2=»2540ENDIF «, l3=0x0b}
0x19ac…19c3 Line {l1=0x15, l2=»2550IF CÆND<>G THEN «, l3=0x15}
0x19c3…19d5 Line {l1=0x10, l2=»2560CURSOR V,23 «, l3=0x10}
0x19d5…1a14 Line {l1=0x3d, l2=»2570PRINT "Telefon";BLANK$(E:14);"(max 9 tegn)";BLANK$(E:44) «, l3=0x3d}
0x1a14…1a27 Line {l1=0x11, l2=»2580CURSOR 13,23 «, l3=0x11}
0x1a27…1a3b Line {l1=0x12, l2=»2590INPUT DEBTLF$ «, l3=0x12}
0x1a3b…1a48 Line {l1=0x0b, l2=»2600ENDIF «, l3=0x0b}
0x1a48…1a5a Line {l1=0x10, l2=»2610CURSOR 16,W «, l3=0x10}
0x1a5a…1a72 Line {l1=0x16, l2=»2620PRINT BLANK$(E:W) «, l3=0x16}
0x1a72…1a84 Line {l1=0x10, l2=»2630CURSOR 16,W «, l3=0x10}
0x1a84…1a98 Line {l1=0x12, l2=»2640PRINT DEBTLF$ «, l3=0x12}
0x1a98…1aa5 Line {l1=0x0b, l2=»2650WHEN 8 «, l3=0x0b}
0x1aa5…1abc Line {l1=0x15, l2=»2660IF CÆND<>E THEN «, l3=0x15}
0x1abc…1ace Line {l1=0x10, l2=»2670CURSOR G,10 «, l3=0x10}
0x1ace…1aea Line {l1=0x1a, l2=»2680PRINT "8:Kundegr :" «, l3=0x1a}
0x1aea…1af8 Line {l1=0x0c, l2=»2690DSTYR=W «, l3=0x0c}
0x1af8…1b04 Line {l1=0x0a, l2=»2700ELSE «, l3=0x0a}
0x1b04…1b1a Line {l1=0x14, l2=»2710IF TYPE=G THEN «, l3=0x14}
0x1b1a…1b42 Line {l1=0x26, l2=»2720EXEC KSØG(DEBNR2,ORD(DEBKGR$)-48) «, l3=0x26}
0x1b42…1b59 Line {l1=0x15, l2=»2730EXEC KINDSLET(0) «, l3=0x15}
0x1b59…1b66 Line {l1=0x0b, l2=»2740ENDIF «, l3=0x0b}
0x1b66…1b73 Line {l1=0x0b, l2=»2750ENDIF «, l3=0x0b}
0x1b73…1b8a Line {l1=0x15, l2=»2760IF CÆND<>G THEN «, l3=0x15}
0x1b8a…1b98 Line {l1=0x0c, l2=»2770REPEAT «, l3=0x0c}
0x1b98…1baa Line {l1=0x10, l2=»2780CURSOR V,23 «, l3=0x10}
0x1baa…1be2 Line {l1=0x36, l2=»2790PRINT "Kundegr (max 2 cifre)";BLANK$(E:49) «, l3=0x36}
0x1be2…1bf5 Line {l1=0x11, l2=»2800CURSOR 13,23 «, l3=0x11}
0x1bf5…1c05 Line {l1=0x0e, l2=»2810INPUT KG$ «, l3=0x0e}
0x1c05…1c1c Line {l1=0x15, l2=»2820EXEC NRTEST(KG$) «, l3=0x15}
0x1c1c…1c5b Line {l1=0x3d, l2=»2830UNTIL (P>B AND TEST2=B AND P<=MKGR) OR (P=-E AND CÆND=E) «, l3=0x3d}
0x1c5b…1c68 Line {l1=0x0b, l2=»2840ENDIF «, l3=0x0b}
0x1c68…1c7b Line {l1=0x11, l2=»2850CURSOR 16,10 «, l3=0x11}
0x1c7b…1c9a Line {l1=0x1d, l2=»2860IF P>B AND CÆND<>G THEN «, l3=0x1d}
0x1c9a…1cb2 Line {l1=0x16, l2=»2870DEBKGR$=CHR(P+48) «, l3=0x16}
0x1cb2…1cbf Line {l1=0x0b, l2=»2880ENDIF «, l3=0x0b}
0x1cbf…1cec Line {l1=0x2b, l2=»2890PRINT USING "###":INT(ORD(DEBKGR$)-48) «, l3=0x2b}
0x1cec…1d0d Line {l1=0x1f, l2=»2900IF CÆND=E AND TYPE=G THEN «, l3=0x1f}
0x1d0d…1d35 Line {l1=0x26, l2=»2910EXEC KSØG(DEBNR2,ORD(DEBKGR$)-48) «, l3=0x26}
0x1d35…1d4c Line {l1=0x15, l2=»2920EXEC KINDSLET(1) «, l3=0x15}
0x1d4c…1d59 Line {l1=0x0b, l2=»2930ENDIF «, l3=0x0b}
0x1d59…1d68 Line {l1=0x0d, l2=»2940ENDCASE «, l3=0x0d}
0x1d68…1d7e Line {l1=0x14, l2=»2950IF CÆND=E THEN «, l3=0x14}
0x1d7e…1d8c Line {l1=0x0c, l2=»2960DSTYR=W «, l3=0x0c}
0x1d8c…1d99 Line {l1=0x0b, l2=»2970ENDIF «, l3=0x0b}
0x1d99…1dad Line {l1=0x12, l2=»2980UNTIL DSTYR=W «, l3=0x12}
0x1dad…1dc4 Line {l1=0x15, l2=»2990IF CÆND<>E THEN «, l3=0x15}
0x1dc4…1df1 Line {l1=0x2b, l2=»3000EXEC CALC(B,DSALDO1$,DSALDO2$,DSALDI$) «, l3=0x2b}
0x1df1…1e1d Line {l1=0x2a, l2=»3010EXEC CALC(B,DSALDI$,DSALDO3$,DSALDI$) «, l3=0x2a}
0x1e1d…1e49 Line {l1=0x2a, l2=»3020EXEC CALC(B,DSALDI$,DSALDO4$,DSALDI$) «, l3=0x2a}
0x1e49…1e5b Line {l1=0x10, l2=»3030CURSOR 4,12 «, l3=0x10}
0x1e5b…1e76 Line {l1=0x19, l2=»3040PRINT "Saldo :" «, l3=0x19}
0x1e76…1e89 Line {l1=0x11, l2=»3050CURSOR 17,12 «, l3=0x11}
0x1e89…1eab Line {l1=0x20, l2=»3060EXEC TUD(DSALDI$,TAL4$,E,B) «, l3=0x20}
0x1eab…1ebd Line {l1=0x10, l2=»3070PRINT TAL4$ «, l3=0x10}
0x1ebd…1ecf Line {l1=0x10, l2=»3080CURSOR 4,14 «, l3=0x10}
0x1ecf…1eea Line {l1=0x19, l2=»3090PRINT " 0-30 Dage :" «, l3=0x19}
0x1eea…1efd Line {l1=0x11, l2=»3100CURSOR 17,14 «, l3=0x11}
0x1efd…1f20 Line {l1=0x21, l2=»3110EXEC TUD(DSALDO1$,TAL4$,E,B) «, l3=0x21}
0x1f20…1f32 Line {l1=0x10, l2=»3120PRINT TAL4$ «, l3=0x10}
0x1f32…1f44 Line {l1=0x10, l2=»3130CURSOR 4,16 «, l3=0x10}
0x1f44…1f5f Line {l1=0x19, l2=»3140PRINT "30-60 Dage :" «, l3=0x19}
0x1f5f…1f72 Line {l1=0x11, l2=»3150CURSOR 17,16 «, l3=0x11}
0x1f72…1f95 Line {l1=0x21, l2=»3160EXEC TUD(DSALDO2$,TAL4$,E,B) «, l3=0x21}
0x1f95…1fa7 Line {l1=0x10, l2=»3170PRINT TAL4$ «, l3=0x10}
0x1fa7…1fb9 Line {l1=0x10, l2=»3180CURSOR 4,18 «, l3=0x10}
0x1fb9…1fd4 Line {l1=0x19, l2=»3190PRINT "60-90 Dage :" «, l3=0x19}
0x1fd4…1fe7 Line {l1=0x11, l2=»3200CURSOR 17,18 «, l3=0x11}
0x1fe7…200a Line {l1=0x21, l2=»3210EXEC TUD(DSALDO3$,TAL4$,E,B) «, l3=0x21}
0x200a…201c Line {l1=0x10, l2=»3220PRINT TAL4$ «, l3=0x10}
0x201c…202e Line {l1=0x10, l2=»3230CURSOR 4,20 «, l3=0x10}
0x202e…2049 Line {l1=0x19, l2=»3240PRINT "Ældre :" «, l3=0x19}
0x2049…205c Line {l1=0x11, l2=»3250CURSOR 17,20 «, l3=0x11}
0x205c…207f Line {l1=0x21, l2=»3260EXEC TUD(DSALDO4$,TAL4$,E,B) «, l3=0x21}
0x207f…2091 Line {l1=0x10, l2=»3270PRINT TAL4$ «, l3=0x10}
0x2091…20a4 Line {l1=0x11, l2=»3280CURSOR 44,12 «, l3=0x11}
0x20a4…20c1 Line {l1=0x1b, l2=»3290PRINT "Månedens køb :" «, l3=0x1b}
0x20c1…20d4 Line {l1=0x11, l2=»3300CURSOR 59,12 «, l3=0x11}
0x20d4…20f6 Line {l1=0x20, l2=»3310EXEC TUD(MDNKØB$,TAL4$,E,B) «, l3=0x20}
0x20f6…2108 Line {l1=0x10, l2=»3320PRINT TAL4$ «, l3=0x10}
0x2108…211b Line {l1=0x11, l2=»3330CURSOR 44,14 «, l3=0x11}
0x211b…2138 Line {l1=0x1b, l2=»3340PRINT "Årets køb :" «, l3=0x1b}
0x2138…214b Line {l1=0x11, l2=»3350CURSOR 59,14 «, l3=0x11}
0x214b…2160 Line {l1=0x13, l2=»3360TÅRKØB$=ÅRKØB$ «, l3=0x13}
0x2160…2182 Line {l1=0x20, l2=»3370EXEC TUD(TÅRKØB$,TAL4$,E,B) «, l3=0x20}
0x2182…2194 Line {l1=0x10, l2=»3380PRINT TAL4$ «, l3=0x10}
0x2194…21a1 Line {l1=0x0b, l2=»3390ENDIF «, l3=0x0b}
0x21a1…21b0 Line {l1=0x0d, l2=»3400ENDPROC «, l3=0x0d}
0x21b0…21d5 Line {l1=0x23, l2=»3410PROC TUD(BLB1,UBLB1,TEGN,STØR) «, l3=0x23}
0x21d5…21f5 Line {l1=0x1e, l2=»3420BLB2$=BLB1$;UBLB2$=UBLB1$ «, l3=0x1e}
0x21f5…221a Line {l1=0x23, l2=»3430EXEC CALC(5,BLB2$,TAH$,UBLB2$) «, l3=0x23}
0x221a…222e Line {l1=0x12, l2=»3440UBLB1$=UBLB2$ «, l3=0x12}
0x222e…2244 Line {l1=0x14, l2=»3450IF TEGN=B THEN «, l3=0x14}
0x2244…225e Line {l1=0x18, l2=»3460UBLB1$=UBLB1$(E:13) «, l3=0x18}
0x225e…226a Line {l1=0x0a, l2=»3470ELSE «, l3=0x0a}
0x226a…229c Line {l1=0x30, l2=»3480IF TEGN=E AND UBLB1$(LEN(UBLB1$))="+" THEN «, l3=0x30}
0x229c…22ba Line {l1=0x1c, l2=»3490UBLB1$(LEN(UBLB1$))=" " «, l3=0x1c}
0x22ba…22c7 Line {l1=0x0b, l2=»3500ENDIF «, l3=0x0b}
0x22c7…22d4 Line {l1=0x0b, l2=»3510ENDIF «, l3=0x0b}
0x22d4…22ea Line {l1=0x14, l2=»3520IF STØR=E THEN «, l3=0x14}
0x22ea…230f Line {l1=0x23, l2=»3530UBLB1$=UBLB1$(4:LEN(UBLB1$)-V) «, l3=0x23}
0x230f…231c Line {l1=0x0b, l2=»3540ENDIF «, l3=0x0b}
0x231c…232b Line {l1=0x0d, l2=»3550ENDPROC «, l3=0x0d}
0x232b…2344 Line {l1=0x17, l2=»3560PROC KINDSLET(AR1) «, l3=0x17}
0x2344…235d Line {l1=0x17, l2=»3570IF FUN+AR1=B THEN «, l3=0x17}
0x235d…2374 Line {l1=0x15, l2=»3580IF SPIL1=B THEN «, l3=0x15}
0x2374…2399 Line {l1=0x23, l2=»3590KARRAY(ORD(DEBKGR$)-48)=HKUNDE «, l3=0x23}
0x2399…23a5 Line {l1=0x0a, l2=»3600ELSE «, l3=0x0a}
0x23a5…23ba Line {l1=0x13, l2=»3610HKUNDE1=HKUNDE «, l3=0x13}
0x23ba…23c7 Line {l1=0x0b, l2=»3620ENDIF «, l3=0x0b}
0x23c7…23d3 Line {l1=0x0a, l2=»3630ELSE «, l3=0x0a}
0x23d3…23ec Line {l1=0x17, l2=»3640IF FUN+AR1=G THEN «, l3=0x17}
0x23ec…23ff Line {l1=0x11, l2=»3650HKUNDE=SPIL2 «, l3=0x11}
0x23ff…2416 Line {l1=0x15, l2=»3660IF SPIL1=B THEN «, l3=0x15}
0x2416…243a Line {l1=0x22, l2=»3670KARRAY(ORD(DEBKGR$)-48)=DEBNR «, l3=0x22}
0x243a…2446 Line {l1=0x0a, l2=»3680ELSE «, l3=0x0a}
0x2446…245a Line {l1=0x12, l2=»3690HKUNDE1=DEBNR «, l3=0x12}
0x245a…2467 Line {l1=0x0b, l2=»3700ENDIF «, l3=0x0b}
0x2467…2473 Line {l1=0x0a, l2=»3710ELSE «, l3=0x0a}
0x2473…247f Line {l1=0x0a, l2=»3720STOP «, l3=0x0a}
0x247f…248c Line {l1=0x0b, l2=»3730ENDIF «, l3=0x0b}
0x248c…2499 Line {l1=0x0b, l2=»3740ENDIF «, l3=0x0b}
0x2499…24ce Line {l1=0x33, l2=»3750IF (FUN+AR1=B OR FUN+AR1=G) AND SPIL1<>B THEN «, l3=0x33}
0x24ce…250e Line {l1=0x3e, l2=»3760PUT K3$,DTAB(DPIL3,G)+G:DEBGADE1$,DEBTLF1$,HPOST1,HKUNDE1 «, l3=0x3e}
0x250e…2528 Line {l1=0x18, l2=»3770EXEC FEJL(11,G,K3$) «, l3=0x18}
0x2528…2535 Line {l1=0x0b, l2=»3780ENDIF «, l3=0x0b}
0x2535…2544 Line {l1=0x0d, l2=»3790ENDPROC «, l3=0x0d}
0x2544…255f Line {l1=0x19, l2=»3800PROC KSØG(NØGLE,KGR) «, l3=0x19}
0x255f…2585 Line {l1=0x24, l2=»3810FUN=E;SPIL1=B;SPIL2=KARRAY(KGR) «, l3=0x24}
0x2585…25ac Line {l1=0x25, l2=»3820IF SPIL2<NØGLE AND SPIL2>B THEN «, l3=0x25}
0x25ac…25ba Line {l1=0x0c, l2=»3830REPEAT «, l3=0x0c}
0x25ba…25cc Line {l1=0x10, l2=»3840SPIL1=SPIL2 «, l3=0x10}
0x25cc…25fa Line {l1=0x2c, l2=»3850EXEC FINDPOST(DTAB,MDANTAL,SPIL1,DPIL3) «, l3=0x2c}
0x25fa…2615 Line {l1=0x19, l2=»3860IF CEKS=E THEN STOP «, l3=0x19}
0x2615…2655 Line {l1=0x3e, l2=»3870GET K3$,DTAB(DPIL3,G)+G:DEBGADE1$,DEBTLF1$,HPOST1,HKUNDE1 «, l3=0x3e}
0x2655…266f Line {l1=0x18, l2=»3880EXEC FEJL(10,G,K3$) «, l3=0x18}
0x266f…2683 Line {l1=0x12, l2=»3890SPIL2=HKUNDE1 «, l3=0x12}
0x2683…26a7 Line {l1=0x22, l2=»3900UNTIL SPIL2=>NØGLE OR SPIL2=B «, l3=0x22}
0x26a7…26b4 Line {l1=0x0b, l2=»3910ENDIF «, l3=0x0b}
0x26b4…26d4 Line {l1=0x1e, l2=»3920IF SPIL2=NØGLE THEN FUN=B «, l3=0x1e}
0x26d4…26e3 Line {l1=0x0d, l2=»3930ENDPROC «, l3=0x0d}
0x26e3…26f3 Line {l1=0x0e, l2=»3940PROC KPUT «, l3=0x0e}
0x26f3…2704 Line {l1=0x0f, l2=»3950OPEN K4$,W «, l3=0x0f}
0x2704…271e Line {l1=0x18, l2=»3960EXEC FEJL(12,E,K4$) «, l3=0x18}
0x271e…273a Line {l1=0x1a, l2=»3970FOR I=E TO MKGR DIV 5 «, l3=0x1a}
0x273a…274c Line {l1=0x10, l2=»3980J=(I-E)*5+E «, l3=0x10}
0x274c…2796 Line {l1=0x48, l2=»3990PUT K4$,I:KARRAY(J),KARRAY(J+E),KARRAY(J+G),KARRAY(J+V),KARRAY(J+4) «, l3=0x48}
0x2796…27b0 Line {l1=0x18, l2=»4000EXEC FEJL(12,G,K4$) «, l3=0x18}
0x27b0…27bd Line {l1=0x0b, l2=»4010NEXT I «, l3=0x0b}
0x27bd…27cd Line {l1=0x0e, l2=»4020CLOSE K4$ «, l3=0x0e}
0x27cd…27e7 Line {l1=0x18, l2=»4030EXEC FEJL(12,V,K4$) «, l3=0x18}
0x27e7…27f6 Line {l1=0x0d, l2=»4040ENDPROC «, l3=0x0d}
0x27f6…280e Line {l1=0x16, l2=»4050PROC NRTEST(NUM1) «, l3=0x16}
0x280e…2834 Line {l1=0x24, l2=»4060P=B;TEST2=B;KTAL=B;L=LEN(NUM1$) «, l3=0x24}
0x2834…2845 Line {l1=0x0f, l2=»4070CASE L OF «, l3=0x0f}
0x2845…2858 Line {l1=0x11, l2=»4080FOR I=E TO L «, l3=0x11}
0x2858…2877 Line {l1=0x1d, l2=»4090P1=INT(ORD(NUM1$(I))-48) «, l3=0x1d}
0x2877…2896 Line {l1=0x1d, l2=»4100IF P1=>B AND P1<=W THEN «, l3=0x1d}
0x2896…28a6 Line {l1=0x0e, l2=»4110P=P*10+P1 «, l3=0x0e}
0x28a6…28b2 Line {l1=0x0a, l2=»4120ELSE «, l3=0x0a}
0x28b2…28c0 Line {l1=0x0c, l2=»4130TEST2=E «, l3=0x0c}
0x28c0…28cd Line {l1=0x0b, l2=»4140ENDIF «, l3=0x0b}
0x28cd…28da Line {l1=0x0b, l2=»4150NEXT I «, l3=0x0b}
0x28da…28f1 Line {l1=0x15, l2=»4160KTAL=P DIV 10000 «, l3=0x15}
0x28f1…28fe Line {l1=0x0b, l2=»4170WHEN B «, l3=0x0b}
0x28fe…2909 Line {l1=0x09, l2=»4180P=-E «, l3=0x09}
0x2909…2916 Line {l1=0x0b, l2=»4190WHEN E «, l3=0x0b}
0x2916…292b Line {l1=0x13, l2=»4200CASE NUM1$ OF «, l3=0x13}
0x292b…2946 Line {l1=0x19, l2=»4210P=INT(ORD(NUM1$)-48) «, l3=0x19}
0x2946…2959 Line {l1=0x11, l2=»4220WHEN "J","j" «, l3=0x11}
0x2959…2964 Line {l1=0x09, l2=»4230P=-7 «, l3=0x09}
0x2964…2977 Line {l1=0x11, l2=»4240WHEN "N","n" «, l3=0x11}
0x2977…2982 Line {l1=0x09, l2=»4250P=-8 «, l3=0x09}
0x2982…2991 Line {l1=0x0d, l2=»4260ENDCASE «, l3=0x0d}
0x2991…29a0 Line {l1=0x0d, l2=»4270ENDCASE «, l3=0x0d}
0x29a0…29af Line {l1=0x0d, l2=»4280ENDPROC «, l3=0x0d}
0x29af…29c5 Line {l1=0x14, l2=»4290PROC OVERSKRIFT «, l3=0x14}
0x29c5…29d7 Line {l1=0x10, l2=»4300CURSOR 45,E «, l3=0x10}
0x29d7…29eb Line {l1=0x12, l2=»4310CASE TYPE OF «, l3=0x12}
0x29eb…29f8 Line {l1=0x0b, l2=»4320WHEN E «, l3=0x0b}
0x29f8…2a11 Line {l1=0x17, l2=»4330PRINT "Oprettelse" «, l3=0x17}
0x2a11…2a1e Line {l1=0x0b, l2=»4340WHEN G «, l3=0x0b}
0x2a1e…2a34 Line {l1=0x14, l2=»4350PRINT "Ændring" «, l3=0x14}
0x2a34…2a41 Line {l1=0x0b, l2=»4360WHEN V «, l3=0x0b}
0x2a41…2a58 Line {l1=0x15, l2=»4370PRINT "Sletning" «, l3=0x15}
0x2a58…2a65 Line {l1=0x0b, l2=»4380WHEN 4 «, l3=0x0b}
0x2a65…2a7c Line {l1=0x15, l2=»4390PRINT "Udskrift" «, l3=0x15}
0x2a7c…2a89 Line {l1=0x0b, l2=»4400WHEN 5 «, l3=0x0b}
0x2a89…2aa7 Line {l1=0x1c, l2=»4410PRINT "Kundekontoliste" «, l3=0x1c}
0x2aa7…2ab6 Line {l1=0x0d, l2=»4420ENDCASE «, l3=0x0d}
0x2ab6…2ac5 Line {l1=0x0d, l2=»4430ENDPROC «, l3=0x0d}
0x2ac5…2ae1 Line {l1=0x1a, l2=»4440K1$="P641220:SYSTEM1" «, l3=0x1a}
0x2ae1…2af2 Line {l1=0x0f, l2=»4450OPEN K1$,R «, l3=0x0f}
0x2af2…2b0b Line {l1=0x17, l2=»4460EXEC FEJL(W,E,K1$) «, l3=0x17}
0x2b0b…2b2b Line {l1=0x1e, l2=»4470GET K1$,E:MFANTAL,MDANTAL «, l3=0x1e}
0x2b2b…2b44 Line {l1=0x17, l2=»4480EXEC FEJL(W,G,K1$) «, l3=0x17}
0x2b44…2b6a Line {l1=0x24, l2=»4490GET K1$,4:MKRMID,MFAK,MVGR,MKGR «, l3=0x24}
0x2b6a…2b83 Line {l1=0x17, l2=»4500EXEC FEJL(W,V,K1$) «, l3=0x17}
0x2b83…2bab Line {l1=0x26, l2=»4510GET K1$,8:DIVNR,DIVDNR,DIFNR,DTAL «, l3=0x26}
0x2bab…2bc4 Line {l1=0x17, l2=»4520EXEC FEJL(W,4,K1$) «, l3=0x17}
0x2bc4…2bd8 Line {l1=0x12, l2=»4530GET K1$,10:N$ «, l3=0x12}
0x2bd8…2bf1 Line {l1=0x17, l2=»4540EXEC FEJL(W,5,K1$) «, l3=0x17}
0x2bf1…2c06 Line {l1=0x13, l2=»4550GET K1$,12:K2$ «, l3=0x13}
0x2c06…2c1f Line {l1=0x17, l2=»4560EXEC FEJL(W,6,K1$) «, l3=0x17}
0x2c1f…2c34 Line {l1=0x13, l2=»4570GET K1$,16:K3$ «, l3=0x13}
0x2c34…2c4d Line {l1=0x17, l2=»4580EXEC FEJL(W,7,K1$) «, l3=0x17}
0x2c4d…2c62 Line {l1=0x13, l2=»4590GET K1$,35:K4$ «, l3=0x13}
0x2c62…2c7b Line {l1=0x17, l2=»4600EXEC FEJL(W,8,K1$) «, l3=0x17}
0x2c7b…2c90 Line {l1=0x13, l2=»4610GET K1$,36:K5$ «, l3=0x13}
0x2c90…2ca9 Line {l1=0x17, l2=»4620EXEC FEJL(W,W,K1$) «, l3=0x17}
0x2ca9…2cb9 Line {l1=0x0e, l2=»4630CLOSE K1$ «, l3=0x0e}
0x2cb9…2cd3 Line {l1=0x18, l2=»4640EXEC FEJL(W,10,K1$) «, l3=0x18}
0x2cd3…2cfa Line {l1=0x25, l2=»4650DIM DTAB(MDANTAL,G),KARRAY(MKGR) «, l3=0x25}
0x2cfa…2d0b Line {l1=0x0f, l2=»4660K5$=N$+K5$ «, l3=0x0f}
0x2d0b…2d1c Line {l1=0x0f, l2=»4670OPEN K5$,W «, l3=0x0f}
0x2d1c…2d36 Line {l1=0x18, l2=»4680EXEC FEJL(W,11,K5$) «, l3=0x18}
0x2d36…2d6f Line {l1=0x37, l2=»4690GET K5$,G:T1(E),T1(G),T1(V),T1(4),T1(5),T1(6),DATO «, l3=0x37}
0x2d6f…2d89 Line {l1=0x18, l2=»4700EXEC FEJL(W,12,K5$) «, l3=0x18}
0x2d89…2d9c Line {l1=0x11, l2=»4710FOR I=E TO V «, l3=0x11}
0x2d9c…2dae Line {l1=0x10, l2=»4720J=(I-E)*V+E «, l3=0x10}
0x2dae…2ddf Line {l1=0x2f, l2=»4730GET K5$,I+G:LAND$(J),LAND$(J+E),LAND$(J+G) «, l3=0x2f}
0x2ddf…2df9 Line {l1=0x18, l2=»4740EXEC FEJL(W,13,K5$) «, l3=0x18}
0x2df9…2e06 Line {l1=0x0b, l2=»4750NEXT I «, l3=0x0b}
0x2e06…2e53 Line {l1=0x4b, l2=»4760GET K5$,14:AFIN,ADEB,AKRE,VTAB2(E),VTAB2(G),VTAB2(V),VTAB2(4),VTAB2(5) «, l3=0x4b}
0x2e53…2e6d Line {l1=0x18, l2=»4770EXEC FEJL(W,14,K5$) «, l3=0x18}
0x2e6d…2e82 Line {l1=0x13, l2=»4771GET K5$,20:DV$ «, l3=0x13}
0x2e82…2e9c Line {l1=0x18, l2=»4772EXEC FEJL(W,22,K5$) «, l3=0x18}
0x2e9c…2ee3 Line {l1=0x45, l2=»4780GET K5$,17:T2(E),T2(G),T2(V),T2(4),T2(5),T2(6),T2(7),T2(8),T2(W) «, l3=0x45}
0x2ee3…2efd Line {l1=0x18, l2=»4790EXEC FEJL(W,15,K5$) «, l3=0x18}
0x2efd…2f0b Line {l1=0x0c, l2=»4800T2(V)=E «, l3=0x0c}
0x2f0b…2f52 Line {l1=0x45, l2=»4810PUT K5$,17:T2(E),T2(G),T2(V),T2(4),T2(5),T2(6),T2(7),T2(8),T2(W) «, l3=0x45}
0x2f52…2f6c Line {l1=0x18, l2=»4820EXEC FEJL(W,16,K5$) «, l3=0x18}
0x2f6c…2f7c Line {l1=0x0e, l2=»4830CLOSE K5$ «, l3=0x0e}
0x2f7c…2f96 Line {l1=0x18, l2=»4840EXEC FEJL(W,17,K5$) «, l3=0x18}
0x2f96…2fa7 Line {l1=0x0f, l2=»4850K3$=N$+K3$ «, l3=0x0f}
0x2fa7…2fb8 Line {l1=0x0f, l2=»4860OPEN K3$,W «, l3=0x0f}
0x2fb8…2fd2 Line {l1=0x18, l2=»4870EXEC FEJL(W,18,K3$) «, l3=0x18}
0x2fd2…2fe3 Line {l1=0x0f, l2=»4880K2$=N$+K2$ «, l3=0x0f}
0x2fe3…2ff4 Line {l1=0x0f, l2=»4890OPEN K2$,W «, l3=0x0f}
0x2ff4…300e Line {l1=0x18, l2=»4900EXEC FEJL(W,19,K2$) «, l3=0x18}
0x300e…3032 Line {l1=0x22, l2=»4910EXEC INDTAB(DTAB,MDANTAL,K2$) «, l3=0x22}
0x3032…3043 Line {l1=0x0f, l2=»4920K4$=N$+K4$ «, l3=0x0f}
0x3043…3054 Line {l1=0x0f, l2=»4930OPEN K4$,R «, l3=0x0f}
0x3054…306e Line {l1=0x18, l2=»4940EXEC FEJL(W,10,K4$) «, l3=0x18}
0x306e…308a Line {l1=0x1a, l2=»4950FOR I=E TO MKGR DIV 5 «, l3=0x1a}
0x308a…309c Line {l1=0x10, l2=»4960J=(I-E)*5+E «, l3=0x10}
0x309c…30e6 Line {l1=0x48, l2=»4970GET K4$,I:KARRAY(J),KARRAY(J+E),KARRAY(J+G),KARRAY(J+V),KARRAY(J+4) «, l3=0x48}
0x30e6…3100 Line {l1=0x18, l2=»4980EXEC FEJL(W,11,K4$) «, l3=0x18}
0x3100…310d Line {l1=0x0b, l2=»4990NEXT I «, l3=0x0b}
0x310d…311d Line {l1=0x0e, l2=»5000CLOSE K4$ «, l3=0x0e}
0x311d…3137 Line {l1=0x18, l2=»5010EXEC FEJL(W,12,K4$) «, l3=0x18}
0x3137…3186 Line {l1=0x4d, l2=»5020BLANK$=" ";BLANK$=BLANK$+BLANK$+" " «, l3=0x4d}
0x3186…31a1 Line {l1=0x19, l2=»5030TAH$="0+";TAL4$="0+" «, l3=0x19}
0x31a1…31e9 Line {l1=0x46, l2=»5040STREG$="-----------------------------------";STREG$=STREG$+STREG$ «, l3=0x46}
0x31e9…31f7 Line {l1=0x0c, l2=»5050REPEAT «, l3=0x0c}
0x31f7…3204 Line {l1=0x0b, l2=»5060CLEAR «, l3=0x0b}
0x3204…3216 Line {l1=0x10, l2=»5070CURSOR 21,E «, l3=0x10}
0x3216…3239 Line {l1=0x21, l2=»5080PRINT "Kundevedligeholdelse" «, l3=0x21}
0x3239…324a Line {l1=0x0f, l2=»5090CURSOR G,V «, l3=0x0f}
0x324a…3261 Line {l1=0x15, l2=»5100PRINT "0:Færdig" «, l3=0x15}
0x3261…3272 Line {l1=0x0f, l2=»5110CURSOR G,5 «, l3=0x0f}
0x3272…328d Line {l1=0x19, l2=»5120PRINT "1:Oprettelse" «, l3=0x19}
0x328d…329e Line {l1=0x0f, l2=»5130CURSOR G,7 «, l3=0x0f}
0x329e…32b6 Line {l1=0x16, l2=»5140PRINT "2:Ændring" «, l3=0x16}
0x32b6…32c7 Line {l1=0x0f, l2=»5150CURSOR G,W «, l3=0x0f}
0x32c7…32e0 Line {l1=0x17, l2=»5160PRINT "3:Sletning" «, l3=0x17}
0x32e0…32f2 Line {l1=0x10, l2=»5170CURSOR G,11 «, l3=0x10}
0x32f2…330b Line {l1=0x17, l2=»5180PRINT "4:Udskrift" «, l3=0x17}
0x330b…331d Line {l1=0x10, l2=»5190CURSOR G,13 «, l3=0x10}
0x331d…333d Line {l1=0x1e, l2=»5200PRINT "5:Kundekontoliste" «, l3=0x1e}
0x333d…334b Line {l1=0x0c, l2=»5210REPEAT «, l3=0x0c}
0x334b…335d Line {l1=0x10, l2=»5220CURSOR 4,15 «, l3=0x10}
0x335d…337f Line {l1=0x20, l2=»5230PRINT "Vælg type (0-5)" «, l3=0x20}
0x337f…3392 Line {l1=0x11, l2=»5240CURSOR 14,15 «, l3=0x11}
0x3392…33a2 Line {l1=0x0e, l2=»5250INPUT TY$ «, l3=0x0e}
0x33a2…33b9 Line {l1=0x15, l2=»5260EXEC NRTEST(TY$) «, l3=0x15}
0x33b9…33d2 Line {l1=0x17, l2=»5270UNTIL P>-E AND P<6 «, l3=0x17}
0x33d2…33df Line {l1=0x0b, l2=»5280TYPE=P «, l3=0x0b}
0x33df…33fa Line {l1=0x19, l2=»5290IF TYPE=B THEN EXIT «, l3=0x19}
0x33fa…3408 Line {l1=0x0c, l2=»5300REPEAT «, l3=0x0c}
0x3408…341e Line {l1=0x14, l2=»5310EXEC OVERSKRIFT «, l3=0x14}
0x341e…3432 Line {l1=0x12, l2=»5320TEST=B;KONT=E «, l3=0x12}
0x3432…3448 Line {l1=0x14, l2=»5330IF TYPE<5 THEN «, l3=0x14}
0x3448…3456 Line {l1=0x0c, l2=»5340REPEAT «, l3=0x0c}
0x3456…3464 Line {l1=0x0c, l2=»5350REPEAT «, l3=0x0c}
0x3464…3476 Line {l1=0x10, l2=»5360CURSOR V,23 «, l3=0x10}
0x3476…34bb Line {l1=0x43, l2=»5370PRINT "Indtast nyt kundenr (0:for færdig)";BLANK$(E:35) «, l3=0x43}
0x34bb…34ce Line {l1=0x11, l2=»5380CURSOR 22,23 «, l3=0x11}
0x34ce…34df Line {l1=0x0f, l2=»5390INPUT KTN$ «, l3=0x0f}
0x34df…34f7 Line {l1=0x16, l2=»5400EXEC NRTEST(KTN$) «, l3=0x16}
0x34f7…3538 Line {l1=0x3f, l2=»5410UNTIL (TEST2=B AND KTAL=DTAL AND DTAL*10000+MKGR<P) OR P=B «, l3=0x3f}
0x3538…3545 Line {l1=0x0b, l2=»5420KONT=P «, l3=0x0b}
0x3545…3560 Line {l1=0x19, l2=»5430IF KONT=B THEN EXIT «, l3=0x19}
0x3560…358a Line {l1=0x28, l2=»5440EXEC FINDPOST(DTAB,MDANTAL,P,DPIL3) «, l3=0x28}
0x358a…3598 Line {l1=0x0c, l2=»5450REPEAT «, l3=0x0c}
0x3598…35ab Line {l1=0x11, l2=»5460CURSOR 44,23 «, l3=0x11}
0x35ab…35f7 Line {l1=0x4a, l2=»5470IF (CEKS=B AND TYPE<>E) OR (CEKS=E AND TYPE=E AND ADEB<MDANTAL) THEN «, l3=0x4a}
0x35f7…3610 Line {l1=0x17, l2=»5480PRINT BLANK$(E:35) «, l3=0x17}
0x3610…361b Line {l1=0x09, l2=»5490P=-E «, l3=0x09}
0x361b…3627 Line {l1=0x0a, l2=»5500ELSE «, l3=0x0a}
0x3627…365a Line {l1=0x31, l2=»5510IF CEKS=E AND TYPE=E AND ADEB=>MDANTAL THEN «, l3=0x31}
0x365a…366c Line {l1=0x10, l2=»5520CURSOR V,23 «, l3=0x10}
0x366c…36bb Line {l1=0x4d, l2=»5530INPUT "Ikke plads til flere kunder,tast RETURN ",A$ «, l3=0x4d}
0x36bb…36c7 Line {l1=0x0a, l2=»5540ELSE «, l3=0x0a}
0x36c7…36dd Line {l1=0x14, l2=»5550IF CEKS=B THEN «, l3=0x14}
0x36dd…3712 Line {l1=0x33, l2=»5560INPUT "Kunde eksisterer , tast RETURN ",A$ «, l3=0x33}
0x3712…371e Line {l1=0x0a, l2=»5570ELSE «, l3=0x0a}
0x371e…3753 Line {l1=0x33, l2=»5580INPUT "Kunde eksisterer ikke , tast RETURN",A$ «, l3=0x33}
0x3753…3760 Line {l1=0x0b, l2=»5590ENDIF «, l3=0x0b}
0x3760…376d Line {l1=0x0b, l2=»5600ENDIF «, l3=0x0b}
0x376d…3783 Line {l1=0x14, l2=»5610EXEC NRTEST(A$) «, l3=0x14}
0x3783…3790 Line {l1=0x0b, l2=»5620ENDIF «, l3=0x0b}
0x3790…37a1 Line {l1=0x0f, l2=»5630UNTIL P=-E «, l3=0x0f}
0x37a1…37ea Line {l1=0x47, l2=»5640UNTIL (CEKS=B AND TYPE<>E) OR (CEKS=E AND TYPE=E AND ADEB<MDANTAL) «, l3=0x47}
0x37ea…3805 Line {l1=0x19, l2=»5650IF KONT=B THEN EXIT «, l3=0x19}
0x3805…381c Line {l1=0x15, l2=»5660IF TYPE<>E THEN «, l3=0x15}
0x381c…3832 Line {l1=0x14, l2=»5670FNR=KONT;TEST=B «, l3=0x14}
0x3832…3847 Line {l1=0x13, l2=»5680EXEC HENTDPOST «, l3=0x13}
0x3847…386b Line {l1=0x22, l2=»5690IF TYPE=V THEN EXEC SALDOTEST «, l3=0x22}
0x386b…3888 Line {l1=0x1b, l2=»5700EXEC DINDTAST(2,2,FNR) «, l3=0x1b}
0x3888…3894 Line {l1=0x0a, l2=»5710ELSE «, l3=0x0a}
0x3894…38a5 Line {l1=0x0f, l2=»5720DEBNR=KONT «, l3=0x0f}
0x38a5…38c1 Line {l1=0x1a, l2=»5730DEBNAVN$=BLANK$(E:25) «, l3=0x1a}
0x38c1…38d5 Line {l1=0x12, l2=»5740DSALDO1$="0+" «, l3=0x12}
0x38d5…38e9 Line {l1=0x12, l2=»5750DSALDO2$="0+" «, l3=0x12}
0x38e9…38fd Line {l1=0x12, l2=»5760DSALDO3$="0+" «, l3=0x12}
0x38fd…3911 Line {l1=0x12, l2=»5770DSALDO4$="0+" «, l3=0x12}
0x3911…3924 Line {l1=0x11, l2=»5780MDNKØB$="0+" «, l3=0x11}
0x3924…3936 Line {l1=0x10, l2=»5790ÅRKØB$="0+" «, l3=0x10}
0x3936…3952 Line {l1=0x1a, l2=»5800DEBGADE$=BLANK$(E:25) «, l3=0x1a}
0x3952…396c Line {l1=0x18, l2=»5810DEBTLF$=BLANK$(E:W) «, l3=0x18}
0x396c…397a Line {l1=0x0c, l2=»5820HPOST=B «, l3=0x0c}
0x397a…3989 Line {l1=0x0d, l2=»5830HKUNDE=B «, l3=0x0d}
0x3989…399b Line {l1=0x10, l2=»5840DEBPOSTNR=B «, l3=0x10}
0x399b…39ac Line {l1=0x0f, l2=»5850DEBLK$="0" «, l3=0x0f}
0x39ac…39be Line {l1=0x10, l2=»5860DEBKGR$="0" «, l3=0x10}
0x39be…39d8 Line {l1=0x18, l2=»5870DEBBY$=BLANK$(E:20) «, l3=0x18}
0x39d8…39f7 Line {l1=0x1d, l2=»5880EXEC DINDTAST(2,0,DEBNR) «, l3=0x1d}
0x39f7…3a04 Line {l1=0x0b, l2=»5890ENDIF «, l3=0x0b}
0x3a04…3a11 Line {l1=0x0b, l2=»5900ENDIF «, l3=0x0b}
0x3a11…3a2c Line {l1=0x19, l2=»5910IF KONT=B THEN EXIT «, l3=0x19}
0x3a2c…3a42 Line {l1=0x14, l2=»5920IF TEST=B THEN «, l3=0x14}
0x3a42…3a56 Line {l1=0x12, l2=»5930CASE TYPE OF «, l3=0x12}
0x3a56…3a62 Line {l1=0x0a, l2=»5940STOP «, l3=0x0a}
0x3a62…3a71 Line {l1=0x0d, l2=»5950WHEN E,G «, l3=0x0d}
0x3a71…3a7f Line {l1=0x0c, l2=»5960REPEAT «, l3=0x0c}
0x3a7f…3a8d Line {l1=0x0c, l2=»5970REPEAT «, l3=0x0c}
0x3a8d…3a9f Line {l1=0x10, l2=»5980CURSOR V,23 «, l3=0x10}
0x3a9f…3ae4 Line {l1=0x43, l2=»5990PRINT "Hvilket felt ønskes ændret (Indtast feltnr 2-8,"; «, l3=0x43}
0x3ae4…3b0a Line {l1=0x24, l2=»6000PRINT "0:for færdig) " «, l3=0x24}
0x3b0a…3b1d Line {l1=0x11, l2=»6010CURSOR 32,23 «, l3=0x11}
0x3b1d…3b2d Line {l1=0x0e, l2=»6020INPUT LK$ «, l3=0x0e}
0x3b2d…3b44 Line {l1=0x15, l2=»6030EXEC NRTEST(LK$) «, l3=0x15}
0x3b44…3b65 Line {l1=0x1f, l2=»6040UNTIL P=B OR (P>E AND P<W) «, l3=0x1f}
0x3b65…3b73 Line {l1=0x0c, l2=»6050STYR1=P «, l3=0x0c}
0x3b73…3b8f Line {l1=0x1a, l2=»6060IF STYR1=B THEN EXIT «, l3=0x1a}
0x3b8f…3bb2 Line {l1=0x21, l2=»6070EXEC DINDTAST(STYR1,1,DEBNR) «, l3=0x21}
0x3bb2…3bc6 Line {l1=0x12, l2=»6080UNTIL STYR1=B «, l3=0x12}
0x3bc6…3bdc Line {l1=0x14, l2=»6090IF TYPE=E THEN «, l3=0x14}
0x3bdc…3c03 Line {l1=0x25, l2=»6100EXEC KSØG(DEBNR,ORD(DEBKGR$)-48) «, l3=0x25}
0x3c03…3c1a Line {l1=0x15, l2=»6110EXEC KINDSLET(1) «, l3=0x15}
0x3c1a…3c48 Line {l1=0x2c, l2=»6120EXEC FINDPOST(DTAB,MDANTAL,DEBNR,DPIL3) «, l3=0x2c}
0x3c48…3c71 Line {l1=0x27, l2=»6130EXEC INDSÆT(DTAB,ADEB,DEBNR,DPIL3) «, l3=0x27}
0x3c71…3c85 Line {l1=0x12, l2=»6140EXEC GEMDPOST «, l3=0x12}
0x3c85…3c91 Line {l1=0x0a, l2=»6150ELSE «, l3=0x0a}
0x3c91…3cbf Line {l1=0x2c, l2=»6160EXEC FINDPOST(DTAB,MDANTAL,DEBNR,DPIL3) «, l3=0x2c}
0x3cbf…3cd3 Line {l1=0x12, l2=»6170EXEC GEMDPOST «, l3=0x12}
0x3cd3…3ce0 Line {l1=0x0b, l2=»6180ENDIF «, l3=0x0b}
0x3ce0…3ced Line {l1=0x0b, l2=»6190WHEN V «, l3=0x0b}
0x3ced…3cfb Line {l1=0x0c, l2=»6200REPEAT «, l3=0x0c}
0x3cfb…3d0d Line {l1=0x10, l2=»6210CURSOR V,23 «, l3=0x10}
0x3d0d…3d47 Line {l1=0x38, l2=»6220PRINT "Er det rigtigt at denne konto skal slettes"; «, l3=0x38}
0x3d47…3d6f Line {l1=0x26, l2=»6230PRINT " (J/N)";BLANK$(E:23) «, l3=0x26}
0x3d6f…3d82 Line {l1=0x11, l2=»6240CURSOR 48,23 «, l3=0x11}
0x3d82…3d91 Line {l1=0x0d, l2=»6250INPUT A$ «, l3=0x0d}
0x3d91…3da7 Line {l1=0x14, l2=»6260EXEC NRTEST(A$) «, l3=0x14}
0x3da7…3dc0 Line {l1=0x17, l2=»6270UNTIL P=-7 OR P=-8 «, l3=0x17}
0x3dc0…3dd4 Line {l1=0x12, l2=»6280IF P=-7 THEN «, l3=0x12}
0x3dd4…3dfb Line {l1=0x25, l2=»6290EXEC KSØG(DEBNR,ORD(DEBKGR$)-48) «, l3=0x25}
0x3dfb…3e12 Line {l1=0x15, l2=»6300EXEC KINDSLET(0) «, l3=0x15}
0x3e12…3e2e Line {l1=0x1a, l2=»6310EXEC SLETDPOST(DEBNR) «, l3=0x1a}
0x3e2e…3e3b Line {l1=0x0b, l2=»6320ENDIF «, l3=0x0b}
0x3e3b…3e48 Line {l1=0x0b, l2=»6330WHEN 4 «, l3=0x0b}
0x3e48…3e55 Line {l1=0x0b, l2=»6340WHEN 5 «, l3=0x0b}
0x3e55…3e63 Line {l1=0x0c, l2=»6350REPEAT «, l3=0x0c}
0x3e63…3e71 Line {l1=0x0c, l2=»6360REPEAT «, l3=0x0c}
0x3e71…3e83 Line {l1=0x10, l2=»6370CURSOR V,23 «, l3=0x10}
0x3e83…3eae Line {l1=0x29, l2=»6380PRINT "Fra kundenr (0: Alle)" «, l3=0x29}
0x3eae…3ec1 Line {l1=0x11, l2=»6390CURSOR 15,23 «, l3=0x11}
0x3ec1…3ed2 Line {l1=0x0f, l2=»6400INPUT KTN$ «, l3=0x0f}
0x3ed2…3eea Line {l1=0x16, l2=»6410EXEC NRTEST(KTN$) «, l3=0x16}
0x3eea…3f18 Line {l1=0x2c, l2=»6420UNTIL L=5 AND P>9999 AND TEST2=B OR P=B «, l3=0x2c}
0x3f18…3f2b Line {l1=0x11, l2=»6430IF P=B THEN «, l3=0x11}
0x3f2b…3f40 Line {l1=0x13, l2=»6440FRA=E;TIL=ADEB «, l3=0x13}
0x3f40…3f4c Line {l1=0x0a, l2=»6450ELSE «, l3=0x0a}
0x3f4c…3f59 Line {l1=0x0b, l2=»6460KONT=P «, l3=0x0b}
0x3f59…3f83 Line {l1=0x28, l2=»6470EXEC FINDPOST(DTAB,MDANTAL,P,DPIL3) «, l3=0x28}
0x3f83…3fb2 Line {l1=0x2d, l2=»6480IF DTAB(DPIL3,E)<KONT THEN DPIL3=DPIL3+E «, l3=0x2d}
0x3fb2…3fc2 Line {l1=0x0e, l2=»6490FRA=DPIL3 «, l3=0x0e}
0x3fc2…3fcf Line {l1=0x0b, l2=»6500ENDIF «, l3=0x0b}
0x3fcf…3fe5 Line {l1=0x14, l2=»6510UNTIL FRA<=ADEB «, l3=0x14}
0x3fe5…3ff8 Line {l1=0x11, l2=»6520IF P>B THEN «, l3=0x11}
0x3ff8…4006 Line {l1=0x0c, l2=»6530REPEAT «, l3=0x0c}
0x4006…4018 Line {l1=0x10, l2=»6540CURSOR V,23 «, l3=0x10}
0x4018…4044 Line {l1=0x2a, l2=»6550PRINT "Til kundenr " «, l3=0x2a}
0x4044…4057 Line {l1=0x11, l2=»6560CURSOR 15,23 «, l3=0x11}
0x4057…4068 Line {l1=0x0f, l2=»6570INPUT KTN$ «, l3=0x0f}
0x4068…4080 Line {l1=0x16, l2=»6580EXEC NRTEST(KTN$) «, l3=0x16}
0x4080…40b3 Line {l1=0x31, l2=»6590UNTIL L=5 AND P>9999 AND TEST2=B AND P=>KONT «, l3=0x31}
0x40b3…40dd Line {l1=0x28, l2=»6600EXEC FINDPOST(DTAB,MDANTAL,P,DPIL3) «, l3=0x28}
0x40dd…4109 Line {l1=0x2a, l2=»6610IF DTAB(DPIL3,E)>P THEN DPIL3=DPIL3-E «, l3=0x2a}
0x4109…4119 Line {l1=0x0e, l2=»6620TIL=DPIL3 «, l3=0x0e}
0x4119…4126 Line {l1=0x0b, l2=»6630ENDIF «, l3=0x0b}
0x4126…4133 Line {l1=0x0b, l2=»6640CLEAR «, l3=0x0b}
0x4133…4141 Line {l1=0x0c, l2=»6650REPEAT «, l3=0x0c}
0x4141…4153 Line {l1=0x10, l2=»6660CURSOR 8,13 «, l3=0x10}
0x4153…41a0 Line {l1=0x4b, l2=»6670INPUT "Monter papir til udskrift af kundekontoliste og tast RETURN",A$ «, l3=0x4b}
0x41a0…41b8 Line {l1=0x16, l2=»6680UNTIL ORD(A$)=255 «, l3=0x16}
0x41b8…41c7 Line {l1=0x0d, l2=»6690OUTPUT P «, l3=0x0d}
0x41c7…41ed Line {l1=0x24, l2=»6700SIDE=E;DA1=DATO;DAT$=" " «, l3=0x24}
0x41ed…4208 Line {l1=0x19, l2=»6710FOR J=8 TO E STEP -E «, l3=0x19}
0x4208…4221 Line {l1=0x17, l2=»6720IF J MOD V=B THEN «, l3=0x17}
0x4221…4233 Line {l1=0x10, l2=»6730DAT$(J)="." «, l3=0x10}
0x4233…423f Line {l1=0x0a, l2=»6740ELSE «, l3=0x0a}
0x423f…426f Line {l1=0x2e, l2=»6750DAT$(J)=CHR(DA1 MOD 10+48);DA1=DA1 DIV 10 «, l3=0x2e}
0x426f…427c Line {l1=0x0b, l2=»6760ENDIF «, l3=0x0b}
0x427c…4289 Line {l1=0x0b, l2=»6770NEXT J «, l3=0x0b}
0x4289…42a7 Line {l1=0x1c, l2=»6780FOR I=FRA TO TIL STEP 4 «, l3=0x1c}
0x42a7…42c3 Line {l1=0x1a, l2=»6785PRINT TAB(67);DV$;" " «, l3=0x1a}
0x42c3…4311 Line {l1=0x4c, l2=»6790PRINT TAB(10);CHR(14);"Kundekontoliste";CHR(15);TAB(38);"Dato : ";DAT$; «, l3=0x4c}
0x4311…4338 Line {l1=0x25, l2=»6800PRINT USING " Side :####":SIDE «, l3=0x25}
0x4338…4348 Line {l1=0x0e, l2=»6810PRINT " " «, l3=0x0e}
0x4348…435a Line {l1=0x10, l2=»6820SIDE=SIDE+E «, l3=0x10}
0x435a…4373 Line {l1=0x17, l2=»6830FOR DPIL3=I TO I+V «, l3=0x17}
0x4373…4392 Line {l1=0x1d, l2=»6840IF DTAB(DPIL3,E)>B THEN «, l3=0x1d}
0x4392…43a7 Line {l1=0x13, l2=»6850EXEC HENTDPOST «, l3=0x13}
0x43a7…43c8 Line {l1=0x1f, l2=»6860EXEC TUD(MDNKØB$,UD1$,E,B) «, l3=0x1f}
0x43c8…43dd Line {l1=0x13, l2=»6870TÅRKØB$=ÅRKØB$ «, l3=0x13}
0x43dd…43fe Line {l1=0x1f, l2=»6880EXEC TUD(TÅRKØB$,UD2$,E,B) «, l3=0x1f}
0x43fe…4418 Line {l1=0x18, l2=»6890PRINT TAB(W);STREG$ «, l3=0x18}
0x4418…4467 Line {l1=0x4d, l2=»6900PRINT TAB(W);"NAVN OG ADRESSE";TAB(38);"MÅNEDENS KØB ÅRETS KØB H"; «, l3=0x4d}
0x4467…4481 Line {l1=0x18, l2=»6910PRINT "KUNDE HPOST" «, l3=0x18}
0x4481…4491 Line {l1=0x0e, l2=»6920PRINT " " «, l3=0x0e}
0x4491…44b5 Line {l1=0x22, l2=»6930PRINT USING "###### ":DEBNR; «, l3=0x22}
0x44b5…44e1 Line {l1=0x2a, l2=»6940PRINT DEBNAVN$;TAB(38);UD1$;" ";UD2$; «, l3=0x2a}
0x44e1…4510 Line {l1=0x2d, l2=»6950PRINT USING "###### ######":HKUNDE,HPOST «, l3=0x2d}
0x4510…4530 Line {l1=0x1e, l2=»6960PRINT TAB(W);DEBGADE$;" " «, l3=0x1e}
0x4530…455f Line {l1=0x2d, l2=»6970PRINT USING " ####### ":DEBPOSTNR; «, l3=0x2d}
0x455f…457b Line {l1=0x1a, l2=»6980PRINT DEBBY$;TAB(39); «, l3=0x1a}
0x457b…45a9 Line {l1=0x2c, l2=»6990DLK=ORD(DEBLK$)-48;DKGR=ORD(DEBKGR$)-48 «, l3=0x2c}
0x45a9…45e7 Line {l1=0x3c, l2=»7000PRINT USING "LANDEKODE:### KUNDEGRUPPE:###":DLK,DKGR «, l3=0x3c}
0x45e7…45f7 Line {l1=0x0e, l2=»7010PRINT " " «, l3=0x0e}
0x45f7…4643 Line {l1=0x4a, l2=»7020PRINT TAB(W);"TLF";TAB(23);"0-30 DAGE 30-60 DAGE 60-90 DAGE"; «, l3=0x4a}
0x4643…465f Line {l1=0x1a, l2=»7030PRINT " ÆLDRE" «, l3=0x1a}
0x465f…466f Line {l1=0x0e, l2=»7040PRINT " " «, l3=0x0e}
0x466f…4691 Line {l1=0x20, l2=»7050EXEC TUD(DSALDO1$,UD1$,E,B) «, l3=0x20}
0x4691…46b3 Line {l1=0x20, l2=»7060EXEC TUD(DSALDO2$,UD2$,E,B) «, l3=0x20}
0x46b3…46d5 Line {l1=0x20, l2=»7070EXEC TUD(DSALDO3$,UD3$,E,B) «, l3=0x20}
0x46d5…46f7 Line {l1=0x20, l2=»7080EXEC TUD(DSALDO4$,UD4$,E,B) «, l3=0x20}
0x46f7…473a Line {l1=0x41, l2=»7090PRINT TAB(W);DEBTLF$;TAB(19);UD1$;" ";UD2$;" ";UD3$;" ";UD4$ «, l3=0x41}
0x473a…474a Line {l1=0x0e, l2=»7100PRINT " " «, l3=0x0e}
0x474a…4757 Line {l1=0x0b, l2=»7110ENDIF «, l3=0x0b}
0x4757…4775 Line {l1=0x1c, l2=»7120IF DPIL3=TIL THEN EXIT «, l3=0x1c}
0x4775…4786 Line {l1=0x0f, l2=»7130NEXT DPIL3 «, l3=0x0f}
0x4786…4796 Line {l1=0x0e, l2=»7140PRINT " " «, l3=0x0e}
0x4796…47c2 Line {l1=0x2a, l2=»7150IF DPIL3=TIL AND DPIL3<I+4 THEN EXIT «, l3=0x2a}
0x47c2…47cf Line {l1=0x0b, l2=»7160NEXT I «, l3=0x0b}
0x47cf…47ea Line {l1=0x19, l2=»7170FOR J=DPIL3+E TO I+V «, l3=0x19}
0x47ea…4806 Line {l1=0x1a, l2=»7180PRINT CHR(10);CHR(10) «, l3=0x1a}
0x4806…4822 Line {l1=0x1a, l2=»7190PRINT CHR(10);CHR(10) «, l3=0x1a}
0x4822…483e Line {l1=0x1a, l2=»7200PRINT CHR(10);CHR(10) «, l3=0x1a}
0x483e…484e Line {l1=0x0e, l2=»7220PRINT " " «, l3=0x0e}
0x484e…485e Line {l1=0x0e, l2=»7230PRINT " " «, l3=0x0e}
0x485e…486b Line {l1=0x0b, l2=»7240NEXT J «, l3=0x0b}
0x486b…487a Line {l1=0x0d, l2=»7250OUTPUT T «, l3=0x0d}
0x487a…4887 Line {l1=0x0b, l2=»7260KONT=B «, l3=0x0b}
0x4887…4896 Line {l1=0x0d, l2=»7270ENDCASE «, l3=0x0d}
0x4896…48a2 Line {l1=0x0a, l2=»7280ELSE «, l3=0x0a}
0x48a2…48b0 Line {l1=0x0c, l2=»7290REPEAT «, l3=0x0c}
0x48b0…48c2 Line {l1=0x10, l2=»7300CURSOR V,23 «, l3=0x10}
0x48c2…490c Line {l1=0x48, l2=»7310PRINT "Denne konto kan ikke slettes, da saldoen ikke er udlignet,"; «, l3=0x48}
0x490c…492d Line {l1=0x1f, l2=»7320PRINT " tryk RETURN " «, l3=0x1f}
0x492d…493c Line {l1=0x0d, l2=»7330INPUT A$ «, l3=0x0d}
0x493c…4952 Line {l1=0x14, l2=»7340EXEC NRTEST(A$) «, l3=0x14}
0x4952…4963 Line {l1=0x0f, l2=»7350UNTIL P=-E «, l3=0x0f}
0x4963…4970 Line {l1=0x0b, l2=»7360ENDIF «, l3=0x0b}
0x4970…4983 Line {l1=0x11, l2=»7370UNTIL KONT=B «, l3=0x11}
0x4983…4996 Line {l1=0x11, l2=»7380UNTIL TYPE=B «, l3=0x11}
0x4996…49a6 Line {l1=0x0e, l2=»7390EXEC KPUT «, l3=0x0e}
0x49a6…49c9 Line {l1=0x21, l2=»7400EXEC UDTAB(DTAB,MDANTAL,K2$) «, l3=0x21}
0x49c9…49d9 Line {l1=0x0e, l2=»7410CLOSE K2$ «, l3=0x0e}
0x49d9…49f3 Line {l1=0x18, l2=»7420EXEC FEJL(W,20,K2$) «, l3=0x18}
0x49f3…4a03 Line {l1=0x0e, l2=»7430CLOSE K3$ «, l3=0x0e}
0x4a03…4a1d Line {l1=0x18, l2=»7440EXEC FEJL(W,21,K3$) «, l3=0x18}
0x4a1d…4a2b Line {l1=0x0c, l2=»7450T2(V)=B «, l3=0x0c}
0x4a2b…4a3c Line {l1=0x0f, l2=»7460OPEN K5$,W «, l3=0x0f}
0x4a3c…4a56 Line {l1=0x18, l2=»7470EXEC FEJL(W,22,K5$) «, l3=0x18}
0x4a56…4aa3 Line {l1=0x4b, l2=»7480PUT K5$,14:AFIN,ADEB,AKRE,VTAB2(E),VTAB2(G),VTAB2(V),VTAB2(4),VTAB2(5) «, l3=0x4b}
0x4aa3…4abd Line {l1=0x18, l2=»7490EXEC FEJL(W,23,K5$) «, l3=0x18}
0x4abd…4b04 Line {l1=0x45, l2=»7500PUT K5$,17:T2(E),T2(G),T2(V),T2(4),T2(5),T2(6),T2(7),T2(8),T2(W) «, l3=0x45}
0x4b04…4b1e Line {l1=0x18, l2=»7510EXEC FEJL(W,24,K5$) «, l3=0x18}
0x4b1e…4b2e Line {l1=0x0e, l2=»7520CLOSE K5$ «, l3=0x0e}
0x4b2e…4b48 Line {l1=0x18, l2=»7530EXEC FEJL(W,25,K5$) «, l3=0x18}
0x4b48…4b66 Line {l1=0x1c, l2=»7540CHAIN "P641210:OPSTART" «, l3=0x1c}
0x4b66…4b7b Line {l1=0x13, l2=»7550PROC SALDOTEST «, l3=0x13}
0x4b7b…4ba1 Line {l1=0x24, l2=»7560EXEC CALC(4,DSALDO1$,TAH$,TAH$) «, l3=0x24}
0x4ba1…4bb5 Line {l1=0x12, l2=»7570IF SI=B THEN «, l3=0x12}
0x4bb5…4bdb Line {l1=0x24, l2=»7580EXEC CALC(4,DSALDO2$,TAH$,TAH$) «, l3=0x24}
0x4bdb…4bef Line {l1=0x12, l2=»7590IF SI=B THEN «, l3=0x12}
0x4bef…4c15 Line {l1=0x24, l2=»7600EXEC CALC(4,DSALDO3$,TAH$,TAH$) «, l3=0x24}
0x4c15…4c29 Line {l1=0x12, l2=»7610IF SI=B THEN «, l3=0x12}
0x4c29…4c4f Line {l1=0x24, l2=»7620EXEC CALC(4,DSALDO4$,TAH$,TAH$) «, l3=0x24}
0x4c4f…4c6a Line {l1=0x19, l2=»7630IF SI<>B THEN TEST=E «, l3=0x19}
0x4c6a…4c76 Line {l1=0x0a, l2=»7640ELSE «, l3=0x0a}
0x4c76…4c83 Line {l1=0x0b, l2=»7650TEST=E «, l3=0x0b}
0x4c83…4c90 Line {l1=0x0b, l2=»7660ENDIF «, l3=0x0b}
0x4c90…4c9c Line {l1=0x0a, l2=»7670ELSE «, l3=0x0a}
0x4c9c…4ca9 Line {l1=0x0b, l2=»7680TEST=E «, l3=0x0b}
0x4ca9…4cb6 Line {l1=0x0b, l2=»7690ENDIF «, l3=0x0b}
0x4cb6…4cc2 Line {l1=0x0a, l2=»7700ELSE «, l3=0x0a}
0x4cc2…4ccf Line {l1=0x0b, l2=»7710TEST=E «, l3=0x0b}
0x4ccf…4cdc Line {l1=0x0b, l2=»7720ENDIF «, l3=0x0b}
0x4cdc…4ceb Line {l1=0x0d, l2=»7730ENDPROC «, l3=0x0d}
0x4ceb…4d00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x4d00…4d20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0xf…]