|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 17696 (0x4520)
Types: TextFile
Notes: Mikados_K
Names: »KREVEDL.K«
└─⟦ec8c1e0b0⟧ Bits:30007442 8" floppy ( MIKPROG vol. 1-3, MIKREL vol. 1-3, PCSE 4.7.80 vol 1-3, GL.SYS )
└─⟦this⟧ »KREVEDL.K«
0100 DIM PNR$(6),TY$(1),OP1$(12),OP2$(12),TA$(12),TB$(14),DAT$(8) 0110 DIM RES$(14),KSALDI$(12),LK$(3),KG$(3),KTN$(6),VTAB2(5) 0120 DIM BLB2$(12),UBLB2$(14),UD1$(14),UD2$(14),KSALDO1$(12),KSALDO2$(12) 0130 DIM K1$(17),K2$(17),KRENAVN$(25),KREGR$(1),STREG$(71) 0140 DIM KRELK$(1),KREGADE$(25),N$(6) 0150 DIM T2(9),BLANK$(77),A$(1),TAL4$(14),TAH$(12),KREBY$(20) 0160 DIM UD3$(14),UD4$(14),K3$(17),K4$(17),K5$(17),K6$(17),T1(9),LAND$(9,12) 0170 ART=0 0180 PROC CALC(AT,B1,B2,ES) 0190 OP1$=B1$;OP2$=B2$;RES$=ES$;SI=0;FLAG=0;ART=AT 0200 CALL "P641210:REGN" 0210 ES$=RES$ 0220 IF FLAG THEN STOP 0230 ENDPROC 0240 PROC FEJL(NR1,NR2,NR3) 0250 IF STATUS(NR3$)<>0 THEN 0260 PRINT STATUS(NR3$),NR1,NR2,NR3$ 0270 STOP 0280 ENDIF 0290 ENDPROC 0300 PROC INDTAB(T,MANTAL,K10) 0310 J=MANTAL DIV 32+1 0320 FOR I=J TO MANTAL DIV 4+J-1 0330 H=(I-J)*4+1;J2=H+1;J3=H+2;J4=H+3 0340 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) 0350 EXEC FEJL(1,1,K10$) 0360 NEXT I 0370 ENDPROC 0380 PROC UDTAB(U,MANTAL1,K9) 0390 J=MANTAL1 DIV 32+1 0400 FOR I=1 TO J-1 0410 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 0420 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) 0430 EXEC FEJL(2,1,K9$) 0440 NEXT I 0450 FOR I=J TO MANTAL1 DIV 4+J-1 0460 H=(I-J)*4+1;J1=H+1;J2=H+2;J3=H+3 0470 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) 0480 EXEC FEJL(2,2,K9$) 0490 NEXT I 0500 ENDPROC 0510 PROC FINDPOST(TAB1,MANT1,NØGL1,PIL3) 0520 PIL1=MANT1 DIV 2;PIL3=PIL1;CEKS=1 0530 REPEAT 0540 IF NØGL1=TAB1(PIL3,1) THEN 0550 CEKS=0 0560 ELSE 0570 IF PIL1=1 THEN PIL1=0 0580 PIL1=INT((PIL1+1)/2) 0590 IF NØGL1>TAB1(PIL3,1) THEN 0600 PIL3=PIL3+PIL1 0610 ELSE 0620 PIL3=PIL3-PIL1 0630 ENDIF 0640 IF PIL3<1 THEN PIL3=1 0650 IF PIL3>MANT1 THEN PIL3=MANT1 0660 ENDIF 0670 UNTIL CEKS=0 OR PIL1=0 0680 ENDPROC 0690 PROC SLETDPOST(NØGLE3) 0700 EXEC FINDPOST(KTAB,MKANTAL,NØGLE3,KPIL3) 0710 IF CEKS=1 THEN STOP 0720 KRENR=0 0730 KRENAVN$=BLANK$(1:25) 0740 KSALDO1$=BLANK$(1:12) 0750 KSALDO2$=BLANK$(1:12) 0760 KREGR$="0" 0770 KREPOSTNR=0 0780 KRELK$="0" 0790 KREGADE$=BLANK$(1:25) 0800 KREBY$=BLANK$(1:20) 0810 EXEC GEMKPOST 0820 EXEC SLETPOST(KTAB,AKRE,NØGLE3,KPIL3) 0830 ENDPROC 0840 PROC INDSÆT(TAB2,ANTAL2,NØGL2,PIL4) 0850 IF CEKS=1 THEN 0860 POSTNR=TAB2(ANTAL2+1,2) 0870 IF NØGL2>TAB2(PIL4,1) AND TAB2(PIL4,1)<>1000000 THEN PIL4=PIL4+1 0880 FOR J=ANTAL2+1 TO PIL4+1 STEP -1 0890 TAB2(J,1)=TAB2(J-1,1) 0900 TAB2(J,2)=TAB2(J-1,2) 0910 NEXT J 0920 TAB2(PIL4,1)=NØGL2 0930 TAB2(PIL4,2)=POSTNR 0940 ANTAL2=ANTAL2+1 0950 ENDIF 0960 ENDPROC 0970 PROC SLETPOST(TAB3,ANTAL3,NØGL3,PIL5) 0980 IF CEKS=0 THEN 0990 POSTNR=TAB3(PIL5,2) 1000 FOR I=PIL5 TO ANTAL3 1010 TAB3(I,1)=TAB3(I+1,1) 1020 TAB3(I,2)=TAB3(I+1,2) 1030 NEXT I 1040 TAB3(ANTAL3,1)=1000000 1050 TAB3(ANTAL3,2)=POSTNR 1060 ANTAL3=ANTAL3-1 1070 ENDIF 1080 ENDPROC 1090 PROC HENTKPOST 1100 S=KTAB(KPIL3,2) 1110 GET K3$,S:KRENR,KRENAVN$,KREGADE$ 1120 EXEC FEJL(8,2,K3$) 1130 IF KRENR<>KTAB(KPIL3,1) THEN STOP 1140 GET K3$,S+1:KREBY$,KRELK$,KREGR$,KREPOSTNR,KSALDO1$,KSALDO2$ 1150 EXEC FEJL(8,3,K3$) 1160 ENDPROC 1170 PROC GEMKPOST 1180 S=KTAB(KPIL3,2) 1190 PUT K3$,S:KRENR,KRENAVN$,KREGADE$ 1200 EXEC FEJL(9,3,K3$) 1210 PUT K3$,S+1:KREBY$,KRELK$,KREGR$,KREPOSTNR,KSALDO1$,KSALDO2$ 1220 EXEC FEJL(9,4,K3$) 1230 ENDPROC 1240 PROC DINDTAST(KSTYR,CÆND,KRENR2) 1250 IF CÆND<>1 THEN 1260 CLEAR 1270 CURSOR 21,1 1280 PRINT "Kreditoroplysninger" 1290 EXEC OVERSKRIFT 1300 CURSOR 2,3 1310 PRINT "1:Kreditornr:";KRENR2 1320 ENDIF 1330 REPEAT 1340 CASE KSTYR OF 1350 STOP 1360 WHEN 2 1370 IF CÆND<>1 THEN 1380 CURSOR 2,4 1390 PRINT "2:Navn :" 1400 KSTYR=3 1410 ENDIF 1420 IF CÆND<>2 THEN 1430 CURSOR 3,23 1440 PRINT "Navn";BLANK$(1:33);"(max 25 tegn)";BLANK$(1:26) 1450 CURSOR 13,23 1460 INPUT KRENAVN$ 1470 ENDIF 1480 CURSOR 16,4 1490 PRINT BLANK$(1:25) 1500 CURSOR 16,4 1510 PRINT KRENAVN$ 1520 WHEN 3 1530 IF CÆND<>1 THEN 1540 CURSOR 2,5 1550 PRINT "3:Gade :" 1560 KSTYR=4 1570 ENDIF 1580 IF CÆND<>2 THEN 1590 CURSOR 3,23 1600 PRINT "Gade";BLANK$(1:33);"(max 25 tegn)";BLANK$(1:26) 1610 CURSOR 13,23 1620 INPUT KREGADE$ 1630 ENDIF 1640 CURSOR 16,5 1650 PRINT BLANK$(1:25) 1660 CURSOR 16,5 1670 PRINT KREGADE$ 1680 WHEN 4 1690 IF CÆND<>1 THEN 1700 CURSOR 2,6 1710 PRINT "4:Postnr :" 1720 KSTYR=5 1730 ENDIF 1740 IF CÆND<>2 THEN 1750 REPEAT 1760 CURSOR 3,23 1770 PRINT "Postnr";BLANK$(1:12);"(max 6 tegn)";BLANK$(1:45) 1780 CURSOR 13,23 1790 INPUT PNR$ 1800 EXEC NRTEST(PNR$) 1810 UNTIL ((L>3 AND L<7) OR (P=-1 AND CÆND=1)) AND TEST2=0 1820 IF P<>-1 THEN KREPOSTNR=P 1830 ENDIF 1840 CURSOR 16,6 1850 PRINT BLANK$(1:6) 1860 CURSOR 16,6 1870 PRINT KREPOSTNR 1880 WHEN 5 1890 IF CÆND<>1 THEN 1900 CURSOR 2,7 1910 PRINT "5:By :" 1920 KSTYR=6 1930 ENDIF 1940 IF CÆND<>2 THEN 1950 CURSOR 3,23 1960 PRINT "BY";BLANK$(1:30);"(max 20 tegn)";BLANK$(1:31) 1970 CURSOR 13,23 1980 INPUT KREBY$ 1990 ENDIF 2000 CURSOR 16,7 2010 PRINT BLANK$(1:20) 2020 CURSOR 16,7 2030 PRINT KREBY$ 2040 WHEN 6 2050 IF CÆND<>1 THEN 2060 CURSOR 2,8 2070 PRINT "6:Landekode : Land:" 2080 KSTYR=7 2090 ENDIF 2100 IF CÆND<>2 THEN 2110 REPEAT 2120 CURSOR 3,23 2130 PRINT "Landekode";BLANK$(1:9);"0:for Danmark, max 2 cifre)";BLANK$(1:30) 2140 CURSOR 13,23 2150 INPUT LK$ 2160 EXEC NRTEST(LK$) 2170 UNTIL (P>-1 AND P<10 AND TEST2=0) OR (P=-1 AND CÆND=1) 2180 ENDIF 2190 CURSOR 16,8 2200 PRINT BLANK$(1:3) 2210 CURSOR 27,8 2220 PRINT BLANK$(1:15) 2230 CURSOR 16,8 2240 IF P<10 AND CÆND<>2 THEN 2250 KRELK$=CHR(P+48) 2260 ENDIF 2270 P=ORD(KRELK$)-48 2280 PRINT USING "###":P 2290 CURSOR 27,8 2300 IF P=0 THEN 2310 PRINT "Danmark" 2320 ELSE 2330 PRINT LAND$(P) 2340 ENDIF 2350 WHEN 7 2360 IF CÆND<>1 THEN 2370 CURSOR 2,9 2380 PRINT "7:Kreditorgr:" 2390 KSTYR=8 2400 ENDIF 2410 IF CÆND<>2 THEN 2420 REPEAT 2430 CURSOR 3,23 2440 PRINT "Kreditorgr: (max 1 ciffer)";BLANK$(1:45) 2450 CURSOR 13,23 2460 INPUT KG$ 2470 EXEC NRTEST(KG$) 2480 UNTIL (P>0 AND TEST2=0 AND P<=MKRGR) OR (P=-1 AND CÆND=1) 2490 ENDIF 2500 CURSOR 16,9 2510 IF P>0 AND CÆND<>2 THEN 2520 KREGR$=CHR(P+48) 2530 ENDIF 2540 PRINT USING "###":INT(ORD(KREGR$)-48) 2550 ENDCASE 2560 IF CÆND=1 THEN 2570 KSTYR=8 2580 ENDIF 2590 UNTIL KSTYR=8 2600 IF CÆND<>1 THEN 2610 EXEC CALC(0,KSALDO1$,KSALDO2$,KSALDI$) 2620 CURSOR 4,12 2630 PRINT "Saldo :" 2640 CURSOR 17,12 2650 EXEC TUD(KSALDI$,TAL4$,1,0) 2660 PRINT TAL4$ 2670 CURSOR 4,14 2680 PRINT " 0-30 Dage :" 2690 CURSOR 17,14 2700 EXEC TUD(KSALDO1$,TAL4$,1,0) 2710 PRINT TAL4$ 2720 CURSOR 4,16 2730 PRINT "Ældre :" 2740 CURSOR 17,16 2750 EXEC TUD(KSALDO2$,TAL4$,1,0) 2760 PRINT TAL4$ 2770 ENDIF 2780 ENDPROC 2790 PROC TUD(BLB1,UBLB1,TEGN,STØR) 2800 BLB2$=BLB1$;UBLB2$=UBLB1$ 2810 EXEC CALC(5,BLB2$,TAH$,UBLB2$) 2820 UBLB1$=UBLB2$ 2830 IF TEGN=0 THEN 2840 UBLB1$=UBLB1$(1:13) 2850 ELSE 2860 IF TEGN=1 AND UBLB1$(LEN(UBLB1$))="+" THEN 2870 UBLB1$(LEN(UBLB1$))=" " 2880 ENDIF 2890 ENDIF 2900 IF STØR=1 THEN 2910 UBLB1$=UBLB1$(4:LEN(UBLB1$)-3) 2920 ENDIF 2930 ENDPROC 2940 PROC NRTEST(NUM1) 2950 P=0;TEST2=0;KTAL=0;L=LEN(NUM1$) 2960 CASE L OF 2970 FOR I=1 TO L 2980 P1=INT(ORD(NUM1$(I))-48) 2990 IF P1=>0 AND P1<=9 THEN 3000 P=P*10+P1 3010 ELSE 3020 TEST2=1 3030 ENDIF 3040 NEXT I 3050 KTAL=P DIV 10000;KTAL9=P DIV 1000 3060 IF KTAL9=KRTAL THEN KTAL=KTAL9 3070 WHEN 0 3080 P=-1 3090 WHEN 1 3100 CASE NUM1$ OF 3110 P=INT(ORD(NUM1$)-48) 3120 WHEN "J","j" 3130 P=-7 3140 WHEN "N","n" 3150 P=-8 3160 ENDCASE 3170 ENDCASE 3180 ENDPROC 3190 PROC OVERSKRIFT 3200 CURSOR 45,1 3210 CASE TYPE OF 3220 WHEN 1 3230 PRINT "Oprettelse" 3240 WHEN 2 3250 PRINT "Ændring" 3260 WHEN 3 3270 PRINT "Sletning" 3280 WHEN 4 3290 PRINT "Udskrift" 3300 WHEN 5 3310 PRINT "Kreditorkontoliste" 3320 ENDCASE 3330 ENDPROC 3340 K1$="P641220:SYSTEM1" 3350 OPEN K1$,R 3360 EXEC FEJL(9,1,K1$) 3370 GET K1$,1:MFANTAL,MDANTAL,MKANTAL 3380 EXEC FEJL(9,2,K1$) 3390 GET K1$,5:MKRGR 3400 EXEC FEJL(9,3,K1$) 3410 GET K1$,9:KRTAL 3420 EXEC FEJL(9,4,K1$) 3430 GET K1$,10:N$ 3440 EXEC FEJL(9,5,K1$) 3450 GET K1$,13:K2$ 3460 EXEC FEJL(9,6,K1$) 3470 GET K1$,17:K3$ 3480 EXEC FEJL(9,7,K1$) 3490 GET K1$,36:K5$ 3500 EXEC FEJL(9,9,K1$) 3510 CLOSE K1$ 3520 EXEC FEJL(9,10,K1$) 3530 DIM KTAB(MKANTAL,2) 3540 K5$=N$+K5$ 3550 OPEN K5$,W 3560 EXEC FEJL(9,11,K5$) 3570 GET K5$,2:T1(1),T1(2),T1(3),T1(4),T1(5),T1(6),DATO 3580 EXEC FEJL(9,12,K5$) 3590 FOR I=1 TO 3 3600 J=(I-1)*3+1 3610 GET K5$,I+2:LAND$(J),LAND$(J+1),LAND$(J+2) 3620 EXEC FEJL(9,13,K5$) 3630 NEXT I 3640 GET K5$,14:AFIN,ADEB,AKRE,VTAB2(1),VTAB2(2),VTAB2(3),VTAB2(4),VTAB2(5) 3650 EXEC FEJL(9,14,K5$) 3660 GET K5$,17:T2(1),T2(2),T2(3),T2(4),T2(5),T2(6),T2(7),T2(8),T2(9) 3670 EXEC FEJL(9,15,K5$) 3680 T2(5)=1 3690 PUT K5$,17:T2(1),T2(2),T2(3),T2(4),T2(5),T2(6),T2(7),T2(8),T2(9) 3700 EXEC FEJL(9,16,K5$) 3710 CLOSE K5$ 3720 EXEC FEJL(9,17,K5$) 3730 K3$=N$+K3$ 3740 OPEN K3$,W 3750 EXEC FEJL(9,18,K3$) 3760 K2$=N$+K2$ 3770 OPEN K2$,W 3780 EXEC FEJL(9,19,K2$) 3790 EXEC INDTAB(KTAB,MKANTAL,K2$) 3890 BLANK$=" ";BLANK$=BLANK$+BLANK$+" " 3900 TAH$="0+";TAL4$="0+" 3910 STREG$="-----------------------------------";STREG$=STREG$+STREG$ 3920 REPEAT 3930 CLEAR 3940 CURSOR 21,1 3950 PRINT "Kreditorvedligeholdelse" 3960 CURSOR 2,3 3970 PRINT "0:Færdig" 3980 CURSOR 2,5 3990 PRINT "1:Oprettelse" 4000 CURSOR 2,7 4010 PRINT "2:Ændring" 4020 CURSOR 2,9 4030 PRINT "3:Sletning" 4040 CURSOR 2,11 4050 PRINT "4:Udskrift" 4060 CURSOR 2,13 4070 PRINT "5:Kreditorkontoliste" 4080 REPEAT 4090 CURSOR 4,15 4100 PRINT "Vælg type (0-5)" 4110 CURSOR 14,15 4120 INPUT TY$ 4130 EXEC NRTEST(TY$) 4140 UNTIL P>-1 AND P<6 4150 TYPE=P 4160 IF TYPE=0 THEN EXIT 4170 REPEAT 4180 EXEC OVERSKRIFT 4190 TEST=0;KONT=1 4200 IF TYPE<5 THEN 4210 REPEAT 4220 REPEAT 4230 CURSOR 3,23 4240 PRINT "Indtast kreditornr (0:for færdig)";BLANK$(1:35) 4250 CURSOR 22,23 4260 INPUT KTN$ 4270 EXEC NRTEST(KTN$) 4280 UNTIL (TEST2=0 AND KTAL=KRTAL AND KRTAL*1000+MKRGR<P) OR P=0 4290 KONT=P 4300 IF KONT=0 THEN EXIT 4310 EXEC FINDPOST(KTAB,MKANTAL,P,KPIL3) 4320 REPEAT 4330 CURSOR 44,23 4340 IF (CEKS=0 AND TYPE<>1) OR (CEKS=1 AND TYPE=1 AND AKRE<MKANTAL) THEN 4350 PRINT BLANK$(1:35) 4360 P=-1 4370 ELSE 4380 IF CEKS=1 AND TYPE=1 AND AKRE=>MKANTAL THEN 4390 CURSOR 3,23 4400 INPUT "Ikke plads til flere kreditorer,tast RETURN ",A$ 4410 ELSE 4420 IF CEKS=0 THEN 4430 INPUT "Kreditor eksisterer , tast RETURN ",A$ 4440 ELSE 4450 INPUT "Kreditor eksisterer ikke,tast RETURN",A$ 4460 ENDIF 4470 ENDIF 4480 EXEC NRTEST(A$) 4490 ENDIF 4500 UNTIL P=-1 4510 UNTIL (CEKS=0 AND TYPE<>1) OR (CEKS=1 AND TYPE=1 AND AKRE<MKANTAL) 4520 IF KONT=0 THEN EXIT 4530 IF TYPE<>1 THEN 4540 FNR=KONT 4550 EXEC HENTKPOST 4560 IF TYPE=3 THEN EXEC SALDOTEST 4570 IF TEST<>0 THEN EXIT 4580 EXEC DINDTAST(2,2,FNR) 4590 ELSE 4600 KRENR=KONT 4610 KRENAVN$=BLANK$(1:25) 4620 KSALDO1$="0+" 4630 KSALDO2$="0+" 4640 KREGADE$=BLANK$(1:25) 4650 KREPOSTNR=0 4660 KRELK$="0" 4670 KREGR$="0" 4680 KREBY$=BLANK$(1:20) 4690 EXEC DINDTAST(2,0,KRENR) 4700 ENDIF 4710 ENDIF 4720 IF KONT=0 THEN EXIT 4730 IF TEST=0 THEN 4740 CASE TYPE OF 4750 STOP 4760 WHEN 1,2 4770 REPEAT 4780 REPEAT 4790 CURSOR 3,23 4800 PRINT "Hvilket felt ønskes ændret (Indtast feltnr 2-7, 0:færdig) " 4810 CURSOR 32,23 4820 INPUT LK$ 4830 EXEC NRTEST(LK$) 4840 UNTIL P=0 OR (P>1 AND P<8) 4850 STYR1=P 4860 IF STYR1=0 THEN EXIT 4870 EXEC DINDTAST(STYR1,1,KRENR) 4880 UNTIL STYR1=0 4890 EXEC FINDPOST(KTAB,MKANTAL,KRENR,KPIL3) 4900 IF TYPE=1 THEN 4910 EXEC INDSÆT(KTAB,AKRE,KRENR,KPIL3) 4920 ENDIF 4930 EXEC GEMKPOST 4940 WHEN 3 4950 REPEAT 4960 CURSOR 3,23 4970 PRINT "Er det rigtigt at denne konto skal slettes"; 4971 PRINT " (J/N)";BLANK$(1:23) 4980 CURSOR 48,23 4990 INPUT A$ 5000 EXEC NRTEST(A$) 5010 UNTIL P=-7 OR P=-8 5020 IF P=-7 THEN 5030 EXEC SLETDPOST(KRENR) 5040 ENDIF 5050 WHEN 4 5060 WHEN 5 5070 REPEAT 5080 REPEAT 5090 CURSOR 3,23 5100 PRINT "Fra kreditornr (0: Alle)" 5110 CURSOR 18,23 5120 INPUT KTN$ 5130 EXEC NRTEST(KTN$) 5140 UNTIL L=5 AND P>9999 AND TEST2=0 OR P=0 5150 IF P=0 THEN 5160 FRA=1;TIL=AKRE 5170 ELSE 5180 KONT=P 5190 EXEC FINDPOST(KTAB,MKANTAL,P,KPIL3) 5200 FRA=KPIL3 5210 ENDIF 5220 UNTIL FRA<=AKRE 5230 IF P>0 THEN 5240 REPEAT 5250 CURSOR 3,23 5260 PRINT "Til kreditornr " 5270 CURSOR 18,23 5280 INPUT KTN$ 5290 EXEC NRTEST(KTN$) 5300 UNTIL L=5 AND P>9999 AND TEST2=0 AND P=>KONT 5310 EXEC FINDPOST(KTAB,MKANTAL,P,KPIL3) 5320 IF CEKS=1 THEN KPIL3=KPIL3-1 5330 TIL=KPIL3 5340 ENDIF 5350 CLEAR 5360 REPEAT 5370 CURSOR 8,13 5380 INPUT "Monter papir til udskrift af kreditorkontoliste , tast RETURN",A$ 5390 UNTIL ORD(A$)=255 5400 OUTPUT P 5410 SIDE=1;DA1=DATO;DAT$=" " 5420 FOR J=8 TO 1 STEP -1 5430 IF J MOD 3=0 THEN 5440 DAT$(J)="." 5450 ELSE 5460 DAT$(J)=CHR(DA1 MOD 10+48);DA1=DA1 DIV 10 5470 ENDIF 5480 NEXT J 5490 FOR I=FRA TO TIL STEP 6 5500 PRINT TAB(10);CHR(14);"Kreditorkontoliste";CHR(15);TAB(32);"Dato : "; 5510 PRINT DAT$; 5520 PRINT USING " Side :####":SIDE 5530 PRINT " " 5540 SIDE=SIDE+1 5550 FOR KPIL3=I TO I+5 5560 IF KTAB(KPIL3,1)>0 THEN 5570 EXEC HENTKPOST 5580 EXEC TUD(KSALDO1$,UD1$,1,0) 5590 EXEC TUD(KSALDO2$,UD2$,1,0) 5600 PRINT TAB(9);STREG$ 5610 PRINT TAB(9);"NAVN OG ADRESSE";TAB(42);"0-30 DAGE ÆLDRE" 5620 PRINT " " 5630 PRINT USING "###### ":KRENR; 5640 PRINT KRENAVN$;TAB(38);UD1$;" ";UD2$ 5650 PRINT TAB(9);KREGADE$;" " 5660 PRINT USING " ####### ":KREPOSTNR; 5670 PRINT KREBY$;TAB(39); 5680 DLK=ORD(KRELK$)-48;DKGR=ORD(KREGR$)-48 5690 PRINT USING "LANDEKODE:### KREDITORGRUPPE:###":DLK,DKGR 5700 PRINT " " 5710 ENDIF 5720 IF KPIL3=TIL THEN EXIT 5730 NEXT KPIL3 5740 PRINT CHR(10);CHR(10);CHR(10) 5750 IF KPIL3=TIL THEN EXIT 5760 NEXT I 5770 FOR J=KPIL3+1 TO I+5 5780 PRINT CHR(10) 5790 PRINT CHR(10) 5800 PRINT CHR(10) 5810 PRINT " " 5820 NEXT J 5830 OUTPUT T 5840 KONT=0 5850 ENDCASE 5860 ELSE 5870 REPEAT 5880 CURSOR 3,23 5890 PRINT "Denne konto kan ikke slettes, da saldoen ikke er udlignet,"; 5891 PRINT "tryk RETURN";BLANK$(1:6) 5900 INPUT A$ 5910 EXEC NRTEST(A$) 5920 UNTIL P=-1 5930 ENDIF 5940 UNTIL KONT=0 5950 UNTIL TYPE=0 5960 EXEC UDTAB(KTAB,MKANTAL,K2$) 5970 CLOSE K2$ 5980 EXEC FEJL(9,20,K2$) 5990 CLOSE K3$ 6000 EXEC FEJL(9,21,K3$) 6010 T2(5)=0 6020 OPEN K5$,W 6030 EXEC FEJL(9,22,K5$) 6040 PUT K5$,14:AFIN,ADEB,AKRE,VTAB2(1),VTAB2(2),VTAB2(3),VTAB2(4),VTAB2(5) 6050 EXEC FEJL(9,23,K5$) 6060 PUT K5$,17:T2(1),T2(2),T2(3),T2(4),T2(5),T2(6),T2(7),T2(8),T2(9) 6070 EXEC FEJL(9,24,K5$) 6080 CLOSE K5$ 6090 EXEC FEJL(9,25,K5$) 6100 CHAIN "P641210:OPSTART" 6110 PROC SALDOTEST 6120 EXEC CALC(4,KSALDO1$,TAH$,TAH$) 6130 IF SI=0 THEN 6140 EXEC CALC(4,KSALDO2$,TAH$,TAH$) 6150 IF SI<>0 THEN TEST=1 6160 ELSE 6170 TEST=1 6180 ENDIF 6190 ENDPROC
0x0000…0043 Line {l1=0x41, l2=»0100 DIM PNR$(6),TY$(1),OP1$(12),OP2$(12),TA$(12),TB$(14),DAT$(8)«, l3=0x41}
0x0043…0081 Line {l1=0x3c, l2=»0110 DIM RES$(14),KSALDI$(12),LK$(3),KG$(3),KTN$(6),VTAB2(5)«, l3=0x3c}
0x0081…00cc Line {l1=0x49, l2=»0120 DIM BLB2$(12),UBLB2$(14),UD1$(14),UD2$(14),KSALDO1$(12),KSALDO2$(12)«, l3=0x49}
0x00cc…0108 Line {l1=0x3a, l2=»0130 DIM K1$(17),K2$(17),KRENAVN$(25),KREGR$(1),STREG$(71)«, l3=0x3a}
0x0108…012f Line {l1=0x25, l2=»0140 DIM KRELK$(1),KREGADE$(25),N$(6)«, l3=0x25}
0x012f…016e Line {l1=0x3d, l2=»0150 DIM T2(9),BLANK$(77),A$(1),TAL4$(14),TAH$(12),KREBY$(20)«, l3=0x3d}
0x016e…01bc 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}
0x01bc…01c8 Line {l1=0x0a, l2=»0170 ART=0«, l3=0x0a}
0x01c8…01e5 Line {l1=0x1b, l2=»0180 PROC CALC(AT,B1,B2,ES)«, l3=0x1b}
0x01e5…0219 Line {l1=0x32, l2=»0190 OP1$=B1$;OP2$=B2$;RES$=ES$;SI=0;FLAG=0;ART=AT«, l3=0x32}
0x0219…0233 Line {l1=0x18, l2=»0200 CALL "P641210:REGN"«, l3=0x18}
0x0233…0242 Line {l1=0x0d, l2=»0210 ES$=RES$«, l3=0x0d}
0x0242…025b Line {l1=0x17, l2=»0220 IF FLAG THEN STOP «, l3=0x17}
0x025b…026a Line {l1=0x0d, l2=»0230 ENDPROC «, l3=0x0d}
0x026a…0287 Line {l1=0x1b, l2=»0240 PROC FEJL(NR1,NR2,NR3)«, l3=0x1b}
0x0287…02a6 Line {l1=0x1d, l2=»0250 IF STATUS(NR3$)<>0 THEN «, l3=0x1d}
0x02a6…02cc Line {l1=0x24, l2=»0260 PRINT STATUS(NR3$),NR1,NR2,NR3$«, l3=0x24}
0x02cc…02d8 Line {l1=0x0a, l2=»0270 STOP «, l3=0x0a}
0x02d8…02e5 Line {l1=0x0b, l2=»0280 ENDIF «, l3=0x0b}
0x02e5…02f4 Line {l1=0x0d, l2=»0290 ENDPROC «, l3=0x0d}
0x02f4…0314 Line {l1=0x1e, l2=»0300 PROC INDTAB(T,MANTAL,K10)«, l3=0x1e}
0x0314…032c Line {l1=0x16, l2=»0310 J=MANTAL DIV 32+1«, l3=0x16}
0x032c…034e Line {l1=0x20, l2=»0320 FOR I=J TO MANTAL DIV 4+J-1«, l3=0x20}
0x034e…0375 Line {l1=0x25, l2=»0330 H=(I-J)*4+1;J2=H+1;J3=H+2;J4=H+3«, l3=0x25}
0x0375…03c4 Line {l1=0x4d, l2=»0340 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}
0x03c4…03de Line {l1=0x18, l2=»0350 EXEC FEJL(1,1,K10$)«, l3=0x18}
0x03de…03eb Line {l1=0x0b, l2=»0360 NEXT I«, l3=0x0b}
0x03eb…03fa Line {l1=0x0d, l2=»0370 ENDPROC «, l3=0x0d}
0x03fa…0419 Line {l1=0x1d, l2=»0380 PROC UDTAB(U,MANTAL1,K9)«, l3=0x1d}
0x0419…0432 Line {l1=0x17, l2=»0390 J=MANTAL1 DIV 32+1«, l3=0x17}
0x0432…0447 Line {l1=0x13, l2=»0400 FOR I=1 TO J-1«, l3=0x13}
0x0447…0490 Line {l1=0x47, l2=»0410 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}
0x0490…04df Line {l1=0x4d, l2=»0420 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}
0x04df…04f8 Line {l1=0x17, l2=»0430 EXEC FEJL(2,1,K9$)«, l3=0x17}
0x04f8…0505 Line {l1=0x0b, l2=»0440 NEXT I«, l3=0x0b}
0x0505…0528 Line {l1=0x21, l2=»0450 FOR I=J TO MANTAL1 DIV 4+J-1«, l3=0x21}
0x0528…054f Line {l1=0x25, l2=»0460 H=(I-J)*4+1;J1=H+1;J2=H+2;J3=H+3«, l3=0x25}
0x054f…059d Line {l1=0x4c, l2=»0470 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}
0x059d…05b6 Line {l1=0x17, l2=»0480 EXEC FEJL(2,2,K9$)«, l3=0x17}
0x05b6…05c3 Line {l1=0x0b, l2=»0490 NEXT I«, l3=0x0b}
0x05c3…05d2 Line {l1=0x0d, l2=»0500 ENDPROC «, l3=0x0d}
0x05d2…05fd Line {l1=0x29, l2=»0510 PROC FINDPOST(TAB1,MANT1,NØGL1,PIL3)«, l3=0x29}
0x05fd…0625 Line {l1=0x26, l2=»0520 PIL1=MANT1 DIV 2;PIL3=PIL1;CEKS=1«, l3=0x26}
0x0625…0633 Line {l1=0x0c, l2=»0530 REPEAT «, l3=0x0c}
0x0633…0655 Line {l1=0x20, l2=»0540 IF NØGL1=TAB1(PIL3,1) THEN «, l3=0x20}
0x0655…0662 Line {l1=0x0b, l2=»0550 CEKS=0«, l3=0x0b}
0x0662…066e Line {l1=0x0a, l2=»0560 ELSE «, l3=0x0a}
0x066e…068a Line {l1=0x1a, l2=»0570 IF PIL1=1 THEN PIL1=0«, l3=0x1a}
0x068a…06a5 Line {l1=0x19, l2=»0580 PIL1=INT((PIL1+1)/2)«, l3=0x19}
0x06a5…06c7 Line {l1=0x20, l2=»0590 IF NØGL1>TAB1(PIL3,1) THEN «, l3=0x20}
0x06c7…06dc Line {l1=0x13, l2=»0600 PIL3=PIL3+PIL1«, l3=0x13}
0x06dc…06e8 Line {l1=0x0a, l2=»0610 ELSE «, l3=0x0a}
0x06e8…06fd Line {l1=0x13, l2=»0620 PIL3=PIL3-PIL1«, l3=0x13}
0x06fd…070a Line {l1=0x0b, l2=»0630 ENDIF «, l3=0x0b}
0x070a…0726 Line {l1=0x1a, l2=»0640 IF PIL3<1 THEN PIL3=1«, l3=0x1a}
0x0726…074a Line {l1=0x22, l2=»0650 IF PIL3>MANT1 THEN PIL3=MANT1«, l3=0x22}
0x074a…0757 Line {l1=0x0b, l2=»0660 ENDIF «, l3=0x0b}
0x0757…0774 Line {l1=0x1b, l2=»0670 UNTIL CEKS=0 OR PIL1=0«, l3=0x1b}
0x0774…0783 Line {l1=0x0d, l2=»0680 ENDPROC «, l3=0x0d}
0x0783…07a0 Line {l1=0x1b, l2=»0690 PROC SLETDPOST(NØGLE3)«, l3=0x1b}
0x07a0…07cf Line {l1=0x2d, l2=»0700 EXEC FINDPOST(KTAB,MKANTAL,NØGLE3,KPIL3)«, l3=0x2d}
0x07cf…07ea Line {l1=0x19, l2=»0710 IF CEKS=1 THEN STOP «, l3=0x19}
0x07ea…07f8 Line {l1=0x0c, l2=»0720 KRENR=0«, l3=0x0c}
0x07f8…0814 Line {l1=0x1a, l2=»0730 KRENAVN$=BLANK$(1:25)«, l3=0x1a}
0x0814…0830 Line {l1=0x1a, l2=»0740 KSALDO1$=BLANK$(1:12)«, l3=0x1a}
0x0830…084c Line {l1=0x1a, l2=»0750 KSALDO2$=BLANK$(1:12)«, l3=0x1a}
0x084c…085d Line {l1=0x0f, l2=»0760 KREGR$="0"«, l3=0x0f}
0x085d…086f Line {l1=0x10, l2=»0770 KREPOSTNR=0«, l3=0x10}
0x086f…0880 Line {l1=0x0f, l2=»0780 KRELK$="0"«, l3=0x0f}
0x0880…089c Line {l1=0x1a, l2=»0790 KREGADE$=BLANK$(1:25)«, l3=0x1a}
0x089c…08b6 Line {l1=0x18, l2=»0800 KREBY$=BLANK$(1:20)«, l3=0x18}
0x08b6…08ca Line {l1=0x12, l2=»0810 EXEC GEMKPOST«, l3=0x12}
0x08ca…08f6 Line {l1=0x2a, l2=»0820 EXEC SLETPOST(KTAB,AKRE,NØGLE3,KPIL3)«, l3=0x2a}
0x08f6…0905 Line {l1=0x0d, l2=»0830 ENDPROC «, l3=0x0d}
0x0905…092f Line {l1=0x28, l2=»0840 PROC INDSÆT(TAB2,ANTAL2,NØGL2,PIL4)«, l3=0x28}
0x092f…0945 Line {l1=0x14, l2=»0850 IF CEKS=1 THEN «, l3=0x14}
0x0945…0963 Line {l1=0x1c, l2=»0860 POSTNR=TAB2(ANTAL2+1,2)«, l3=0x1c}
0x0963…09aa Line {l1=0x45, l2=»0870 IF NØGL2>TAB2(PIL4,1) AND TAB2(PIL4,1)<>1000000 THEN PIL4=PIL4+1«, l3=0x45}
0x09aa…09d1 Line {l1=0x25, l2=»0880 FOR J=ANTAL2+1 TO PIL4+1 STEP -1«, l3=0x25}
0x09d1…09ed Line {l1=0x1a, l2=»0890 TAB2(J,1)=TAB2(J-1,1)«, l3=0x1a}
0x09ed…0a09 Line {l1=0x1a, l2=»0900 TAB2(J,2)=TAB2(J-1,2)«, l3=0x1a}
0x0a09…0a16 Line {l1=0x0b, l2=»0910 NEXT J«, l3=0x0b}
0x0a16…0a2f Line {l1=0x17, l2=»0920 TAB2(PIL4,1)=NØGL2«, l3=0x17}
0x0a2f…0a49 Line {l1=0x18, l2=»0930 TAB2(PIL4,2)=POSTNR«, l3=0x18}
0x0a49…0a5f Line {l1=0x14, l2=»0940 ANTAL2=ANTAL2+1«, l3=0x14}
0x0a5f…0a6c Line {l1=0x0b, l2=»0950 ENDIF «, l3=0x0b}
0x0a6c…0a7b Line {l1=0x0d, l2=»0960 ENDPROC «, l3=0x0d}
0x0a7b…0aa7 Line {l1=0x2a, l2=»0970 PROC SLETPOST(TAB3,ANTAL3,NØGL3,PIL5)«, l3=0x2a}
0x0aa7…0abd Line {l1=0x14, l2=»0980 IF CEKS=0 THEN «, l3=0x14}
0x0abd…0ad7 Line {l1=0x18, l2=»0990 POSTNR=TAB3(PIL5,2)«, l3=0x18}
0x0ad7…0af2 Line {l1=0x19, l2=»1000 FOR I=PIL5 TO ANTAL3«, l3=0x19}
0x0af2…0b0e Line {l1=0x1a, l2=»1010 TAB3(I,1)=TAB3(I+1,1)«, l3=0x1a}
0x0b0e…0b2a Line {l1=0x1a, l2=»1020 TAB3(I,2)=TAB3(I+1,2)«, l3=0x1a}
0x0b2a…0b37 Line {l1=0x0b, l2=»1030 NEXT I«, l3=0x0b}
0x0b37…0b54 Line {l1=0x1b, l2=»1040 TAB3(ANTAL3,1)=1000000«, l3=0x1b}
0x0b54…0b70 Line {l1=0x1a, l2=»1050 TAB3(ANTAL3,2)=POSTNR«, l3=0x1a}
0x0b70…0b86 Line {l1=0x14, l2=»1060 ANTAL3=ANTAL3-1«, l3=0x14}
0x0b86…0b93 Line {l1=0x0b, l2=»1070 ENDIF «, l3=0x0b}
0x0b93…0ba2 Line {l1=0x0d, l2=»1080 ENDPROC «, l3=0x0d}
0x0ba2…0bb7 Line {l1=0x13, l2=»1090 PROC HENTKPOST«, l3=0x13}
0x0bb7…0bcd Line {l1=0x14, l2=»1100 S=KTAB(KPIL3,2)«, l3=0x14}
0x0bcd…0bf5 Line {l1=0x26, l2=»1110 GET K3$,S:KRENR,KRENAVN$,KREGADE$«, l3=0x26}
0x0bf5…0c0e Line {l1=0x17, l2=»1120 EXEC FEJL(8,2,K3$)«, l3=0x17}
0x0c0e…0c37 Line {l1=0x27, l2=»1130 IF KRENR<>KTAB(KPIL3,1) THEN STOP «, l3=0x27}
0x0c37…0c7a Line {l1=0x41, l2=»1140 GET K3$,S+1:KREBY$,KRELK$,KREGR$,KREPOSTNR,KSALDO1$,KSALDO2$«, l3=0x41}
0x0c7a…0c93 Line {l1=0x17, l2=»1150 EXEC FEJL(8,3,K3$)«, l3=0x17}
0x0c93…0ca2 Line {l1=0x0d, l2=»1160 ENDPROC «, l3=0x0d}
0x0ca2…0cb6 Line {l1=0x12, l2=»1170 PROC GEMKPOST«, l3=0x12}
0x0cb6…0ccc Line {l1=0x14, l2=»1180 S=KTAB(KPIL3,2)«, l3=0x14}
0x0ccc…0cf4 Line {l1=0x26, l2=»1190 PUT K3$,S:KRENR,KRENAVN$,KREGADE$«, l3=0x26}
0x0cf4…0d0d Line {l1=0x17, l2=»1200 EXEC FEJL(9,3,K3$)«, l3=0x17}
0x0d0d…0d50 Line {l1=0x41, l2=»1210 PUT K3$,S+1:KREBY$,KRELK$,KREGR$,KREPOSTNR,KSALDO1$,KSALDO2$«, l3=0x41}
0x0d50…0d69 Line {l1=0x17, l2=»1220 EXEC FEJL(9,4,K3$)«, l3=0x17}
0x0d69…0d78 Line {l1=0x0d, l2=»1230 ENDPROC «, l3=0x0d}
0x0d78…0d9f Line {l1=0x25, l2=»1240 PROC DINDTAST(KSTYR,CÆND,KRENR2)«, l3=0x25}
0x0d9f…0db6 Line {l1=0x15, l2=»1250 IF CÆND<>1 THEN «, l3=0x15}
0x0db6…0dc3 Line {l1=0x0b, l2=»1260 CLEAR «, l3=0x0b}
0x0dc3…0dd5 Line {l1=0x10, l2=»1270 CURSOR 21,1«, l3=0x10}
0x0dd5…0df7 Line {l1=0x20, l2=»1280 PRINT "Kreditoroplysninger"«, l3=0x20}
0x0df7…0e0d Line {l1=0x14, l2=»1290 EXEC OVERSKRIFT«, l3=0x14}
0x0e0d…0e1e Line {l1=0x0f, l2=»1300 CURSOR 2,3«, l3=0x0f}
0x0e1e…0e41 Line {l1=0x21, l2=»1310 PRINT "1:Kreditornr:";KRENR2«, l3=0x21}
0x0e41…0e4e Line {l1=0x0b, l2=»1320 ENDIF «, l3=0x0b}
0x0e4e…0e5c Line {l1=0x0c, l2=»1330 REPEAT «, l3=0x0c}
0x0e5c…0e71 Line {l1=0x13, l2=»1340 CASE KSTYR OF «, l3=0x13}
0x0e71…0e7d Line {l1=0x0a, l2=»1350 STOP «, l3=0x0a}
0x0e7d…0e8a Line {l1=0x0b, l2=»1360 WHEN 2«, l3=0x0b}
0x0e8a…0ea1 Line {l1=0x15, l2=»1370 IF CÆND<>1 THEN «, l3=0x15}
0x0ea1…0eb2 Line {l1=0x0f, l2=»1380 CURSOR 2,4«, l3=0x0f}
0x0eb2…0ece Line {l1=0x1a, l2=»1390 PRINT "2:Navn :"«, l3=0x1a}
0x0ece…0edc Line {l1=0x0c, l2=»1400 KSTYR=3«, l3=0x0c}
0x0edc…0ee9 Line {l1=0x0b, l2=»1410 ENDIF «, l3=0x0b}
0x0ee9…0f00 Line {l1=0x15, l2=»1420 IF CÆND<>2 THEN «, l3=0x15}
0x0f00…0f12 Line {l1=0x10, l2=»1430 CURSOR 3,23«, l3=0x10}
0x0f12…0f4f Line {l1=0x3b, l2=»1440 PRINT "Navn";BLANK$(1:33);"(max 25 tegn)";BLANK$(1:26)«, l3=0x3b}
0x0f4f…0f62 Line {l1=0x11, l2=»1450 CURSOR 13,23«, l3=0x11}
0x0f62…0f77 Line {l1=0x13, l2=»1460 INPUT KRENAVN$«, l3=0x13}
0x0f77…0f84 Line {l1=0x0b, l2=»1470 ENDIF «, l3=0x0b}
0x0f84…0f96 Line {l1=0x10, l2=»1480 CURSOR 16,4«, l3=0x10}
0x0f96…0faf Line {l1=0x17, l2=»1490 PRINT BLANK$(1:25)«, l3=0x17}
0x0faf…0fc1 Line {l1=0x10, l2=»1500 CURSOR 16,4«, l3=0x10}
0x0fc1…0fd6 Line {l1=0x13, l2=»1510 PRINT KRENAVN$«, l3=0x13}
0x0fd6…0fe3 Line {l1=0x0b, l2=»1520 WHEN 3«, l3=0x0b}
0x0fe3…0ffa Line {l1=0x15, l2=»1530 IF CÆND<>1 THEN «, l3=0x15}
0x0ffa…100b Line {l1=0x0f, l2=»1540 CURSOR 2,5«, l3=0x0f}
0x100b…1027 Line {l1=0x1a, l2=»1550 PRINT "3:Gade :"«, l3=0x1a}
0x1027…1035 Line {l1=0x0c, l2=»1560 KSTYR=4«, l3=0x0c}
0x1035…1042 Line {l1=0x0b, l2=»1570 ENDIF «, l3=0x0b}
0x1042…1059 Line {l1=0x15, l2=»1580 IF CÆND<>2 THEN «, l3=0x15}
0x1059…106b Line {l1=0x10, l2=»1590 CURSOR 3,23«, l3=0x10}
0x106b…10a8 Line {l1=0x3b, l2=»1600 PRINT "Gade";BLANK$(1:33);"(max 25 tegn)";BLANK$(1:26)«, l3=0x3b}
0x10a8…10bb Line {l1=0x11, l2=»1610 CURSOR 13,23«, l3=0x11}
0x10bb…10d0 Line {l1=0x13, l2=»1620 INPUT KREGADE$«, l3=0x13}
0x10d0…10dd Line {l1=0x0b, l2=»1630 ENDIF «, l3=0x0b}
0x10dd…10ef Line {l1=0x10, l2=»1640 CURSOR 16,5«, l3=0x10}
0x10ef…1108 Line {l1=0x17, l2=»1650 PRINT BLANK$(1:25)«, l3=0x17}
0x1108…111a Line {l1=0x10, l2=»1660 CURSOR 16,5«, l3=0x10}
0x111a…112f Line {l1=0x13, l2=»1670 PRINT KREGADE$«, l3=0x13}
0x112f…113c Line {l1=0x0b, l2=»1680 WHEN 4«, l3=0x0b}
0x113c…1153 Line {l1=0x15, l2=»1690 IF CÆND<>1 THEN «, l3=0x15}
0x1153…1164 Line {l1=0x0f, l2=»1700 CURSOR 2,6«, l3=0x0f}
0x1164…1180 Line {l1=0x1a, l2=»1710 PRINT "4:Postnr :"«, l3=0x1a}
0x1180…118e Line {l1=0x0c, l2=»1720 KSTYR=5«, l3=0x0c}
0x118e…119b Line {l1=0x0b, l2=»1730 ENDIF «, l3=0x0b}
0x119b…11b2 Line {l1=0x15, l2=»1740 IF CÆND<>2 THEN «, l3=0x15}
0x11b2…11c0 Line {l1=0x0c, l2=»1750 REPEAT «, l3=0x0c}
0x11c0…11d2 Line {l1=0x10, l2=»1760 CURSOR 3,23«, l3=0x10}
0x11d2…1210 Line {l1=0x3c, l2=»1770 PRINT "Postnr";BLANK$(1:12);"(max 6 tegn)";BLANK$(1:45)«, l3=0x3c}
0x1210…1223 Line {l1=0x11, l2=»1780 CURSOR 13,23«, l3=0x11}
0x1223…1234 Line {l1=0x0f, l2=»1790 INPUT PNR$«, l3=0x0f}
0x1234…124c Line {l1=0x16, l2=»1800 EXEC NRTEST(PNR$)«, l3=0x16}
0x124c…1289 Line {l1=0x3b, l2=»1810 UNTIL ((L>3 AND L<7) OR (P=-1 AND CÆND=1)) AND TEST2=0«, l3=0x3b}
0x1289…12a9 Line {l1=0x1e, l2=»1820 IF P<>-1 THEN KREPOSTNR=P«, l3=0x1e}
0x12a9…12b6 Line {l1=0x0b, l2=»1830 ENDIF «, l3=0x0b}
0x12b6…12c8 Line {l1=0x10, l2=»1840 CURSOR 16,6«, l3=0x10}
0x12c8…12e0 Line {l1=0x16, l2=»1850 PRINT BLANK$(1:6)«, l3=0x16}
0x12e0…12f2 Line {l1=0x10, l2=»1860 CURSOR 16,6«, l3=0x10}
0x12f2…1308 Line {l1=0x14, l2=»1870 PRINT KREPOSTNR«, l3=0x14}
0x1308…1315 Line {l1=0x0b, l2=»1880 WHEN 5«, l3=0x0b}
0x1315…132c Line {l1=0x15, l2=»1890 IF CÆND<>1 THEN «, l3=0x15}
0x132c…133d Line {l1=0x0f, l2=»1900 CURSOR 2,7«, l3=0x0f}
0x133d…1359 Line {l1=0x1a, l2=»1910 PRINT "5:By :"«, l3=0x1a}
0x1359…1367 Line {l1=0x0c, l2=»1920 KSTYR=6«, l3=0x0c}
0x1367…1374 Line {l1=0x0b, l2=»1930 ENDIF «, l3=0x0b}
0x1374…138b Line {l1=0x15, l2=»1940 IF CÆND<>2 THEN «, l3=0x15}
0x138b…139d Line {l1=0x10, l2=»1950 CURSOR 3,23«, l3=0x10}
0x139d…13d8 Line {l1=0x39, l2=»1960 PRINT "BY";BLANK$(1:30);"(max 20 tegn)";BLANK$(1:31)«, l3=0x39}
0x13d8…13eb Line {l1=0x11, l2=»1970 CURSOR 13,23«, l3=0x11}
0x13eb…13fe Line {l1=0x11, l2=»1980 INPUT KREBY$«, l3=0x11}
0x13fe…140b Line {l1=0x0b, l2=»1990 ENDIF «, l3=0x0b}
0x140b…141d Line {l1=0x10, l2=»2000 CURSOR 16,7«, l3=0x10}
0x141d…1436 Line {l1=0x17, l2=»2010 PRINT BLANK$(1:20)«, l3=0x17}
0x1436…1448 Line {l1=0x10, l2=»2020 CURSOR 16,7«, l3=0x10}
0x1448…145b Line {l1=0x11, l2=»2030 PRINT KREBY$«, l3=0x11}
0x145b…1468 Line {l1=0x0b, l2=»2040 WHEN 6«, l3=0x0b}
0x1468…147f Line {l1=0x15, l2=»2050 IF CÆND<>1 THEN «, l3=0x15}
0x147f…1490 Line {l1=0x0f, l2=»2060 CURSOR 2,8«, l3=0x0f}
0x1490…14b6 Line {l1=0x24, l2=»2070 PRINT "6:Landekode : Land:"«, l3=0x24}
0x14b6…14c4 Line {l1=0x0c, l2=»2080 KSTYR=7«, l3=0x0c}
0x14c4…14d1 Line {l1=0x0b, l2=»2090 ENDIF «, l3=0x0b}
0x14d1…14e8 Line {l1=0x15, l2=»2100 IF CÆND<>2 THEN «, l3=0x15}
0x14e8…14f6 Line {l1=0x0c, l2=»2110 REPEAT «, l3=0x0c}
0x14f6…1508 Line {l1=0x10, l2=»2120 CURSOR 3,23«, l3=0x10}
0x1508…1557 Line {l1=0x4d, l2=»2130 PRINT "Landekode";BLANK$(1:9);"0:for Danmark, max 2 cifre)";BLANK$(1:30)«, l3=0x4d}
0x1557…156a Line {l1=0x11, l2=»2140 CURSOR 13,23«, l3=0x11}
0x156a…157a Line {l1=0x0e, l2=»2150 INPUT LK$«, l3=0x0e}
0x157a…1591 Line {l1=0x15, l2=»2160 EXEC NRTEST(LK$)«, l3=0x15}
0x1591…15ce Line {l1=0x3b, l2=»2170 UNTIL (P>-1 AND P<10 AND TEST2=0) OR (P=-1 AND CÆND=1)«, l3=0x3b}
0x15ce…15db Line {l1=0x0b, l2=»2180 ENDIF «, l3=0x0b}
0x15db…15ed Line {l1=0x10, l2=»2190 CURSOR 16,8«, l3=0x10}
0x15ed…1605 Line {l1=0x16, l2=»2200 PRINT BLANK$(1:3)«, l3=0x16}
0x1605…1617 Line {l1=0x10, l2=»2210 CURSOR 27,8«, l3=0x10}
0x1617…1630 Line {l1=0x17, l2=»2220 PRINT BLANK$(1:15)«, l3=0x17}
0x1630…1642 Line {l1=0x10, l2=»2230 CURSOR 16,8«, l3=0x10}
0x1642…1662 Line {l1=0x1e, l2=»2240 IF P<10 AND CÆND<>2 THEN «, l3=0x1e}
0x1662…1679 Line {l1=0x15, l2=»2250 KRELK$=CHR(P+48)«, l3=0x15}
0x1679…1686 Line {l1=0x0b, l2=»2260 ENDIF «, l3=0x0b}
0x1686…169d Line {l1=0x15, l2=»2270 P=ORD(KRELK$)-48«, l3=0x15}
0x169d…16b7 Line {l1=0x18, l2=»2280 PRINT USING "###":P«, l3=0x18}
0x16b7…16c9 Line {l1=0x10, l2=»2290 CURSOR 27,8«, l3=0x10}
0x16c9…16dc Line {l1=0x11, l2=»2300 IF P=0 THEN «, l3=0x11}
0x16dc…16f2 Line {l1=0x14, l2=»2310 PRINT "Danmark"«, l3=0x14}
0x16f2…16fe Line {l1=0x0a, l2=»2320 ELSE «, l3=0x0a}
0x16fe…1713 Line {l1=0x13, l2=»2330 PRINT LAND$(P)«, l3=0x13}
0x1713…1720 Line {l1=0x0b, l2=»2340 ENDIF «, l3=0x0b}
0x1720…172d Line {l1=0x0b, l2=»2350 WHEN 7«, l3=0x0b}
0x172d…1744 Line {l1=0x15, l2=»2360 IF CÆND<>1 THEN «, l3=0x15}
0x1744…1755 Line {l1=0x0f, l2=»2370 CURSOR 2,9«, l3=0x0f}
0x1755…1771 Line {l1=0x1a, l2=»2380 PRINT "7:Kreditorgr:"«, l3=0x1a}
0x1771…177f Line {l1=0x0c, l2=»2390 KSTYR=8«, l3=0x0c}
0x177f…178c Line {l1=0x0b, l2=»2400 ENDIF «, l3=0x0b}
0x178c…17a3 Line {l1=0x15, l2=»2410 IF CÆND<>2 THEN «, l3=0x15}
0x17a3…17b1 Line {l1=0x0c, l2=»2420 REPEAT «, l3=0x0c}
0x17b1…17c3 Line {l1=0x10, l2=»2430 CURSOR 3,23«, l3=0x10}
0x17c3…17fb Line {l1=0x36, l2=»2440 PRINT "Kreditorgr: (max 1 ciffer)";BLANK$(1:45)«, l3=0x36}
0x17fb…180e Line {l1=0x11, l2=»2450 CURSOR 13,23«, l3=0x11}
0x180e…181e Line {l1=0x0e, l2=»2460 INPUT KG$«, l3=0x0e}
0x181e…1835 Line {l1=0x15, l2=»2470 EXEC NRTEST(KG$)«, l3=0x15}
0x1835…1875 Line {l1=0x3e, l2=»2480 UNTIL (P>0 AND TEST2=0 AND P<=MKRGR) OR (P=-1 AND CÆND=1)«, l3=0x3e}
0x1875…1882 Line {l1=0x0b, l2=»2490 ENDIF «, l3=0x0b}
0x1882…1894 Line {l1=0x10, l2=»2500 CURSOR 16,9«, l3=0x10}
0x1894…18b3 Line {l1=0x1d, l2=»2510 IF P>0 AND CÆND<>2 THEN «, l3=0x1d}
0x18b3…18ca Line {l1=0x15, l2=»2520 KREGR$=CHR(P+48)«, l3=0x15}
0x18ca…18d7 Line {l1=0x0b, l2=»2530 ENDIF «, l3=0x0b}
0x18d7…1903 Line {l1=0x2a, l2=»2540 PRINT USING "###":INT(ORD(KREGR$)-48)«, l3=0x2a}
0x1903…1912 Line {l1=0x0d, l2=»2550 ENDCASE «, l3=0x0d}
0x1912…1928 Line {l1=0x14, l2=»2560 IF CÆND=1 THEN «, l3=0x14}
0x1928…1936 Line {l1=0x0c, l2=»2570 KSTYR=8«, l3=0x0c}
0x1936…1943 Line {l1=0x0b, l2=»2580 ENDIF «, l3=0x0b}
0x1943…1957 Line {l1=0x12, l2=»2590 UNTIL KSTYR=8«, l3=0x12}
0x1957…196e Line {l1=0x15, l2=»2600 IF CÆND<>1 THEN «, l3=0x15}
0x196e…199b Line {l1=0x2b, l2=»2610 EXEC CALC(0,KSALDO1$,KSALDO2$,KSALDI$)«, l3=0x2b}
0x199b…19ad Line {l1=0x10, l2=»2620 CURSOR 4,12«, l3=0x10}
0x19ad…19c8 Line {l1=0x19, l2=»2630 PRINT "Saldo :"«, l3=0x19}
0x19c8…19db Line {l1=0x11, l2=»2640 CURSOR 17,12«, l3=0x11}
0x19db…19fd Line {l1=0x20, l2=»2650 EXEC TUD(KSALDI$,TAL4$,1,0)«, l3=0x20}
0x19fd…1a0f Line {l1=0x10, l2=»2660 PRINT TAL4$«, l3=0x10}
0x1a0f…1a21 Line {l1=0x10, l2=»2670 CURSOR 4,14«, l3=0x10}
0x1a21…1a3c Line {l1=0x19, l2=»2680 PRINT " 0-30 Dage :"«, l3=0x19}
0x1a3c…1a4f Line {l1=0x11, l2=»2690 CURSOR 17,14«, l3=0x11}
0x1a4f…1a72 Line {l1=0x21, l2=»2700 EXEC TUD(KSALDO1$,TAL4$,1,0)«, l3=0x21}
0x1a72…1a84 Line {l1=0x10, l2=»2710 PRINT TAL4$«, l3=0x10}
0x1a84…1a96 Line {l1=0x10, l2=»2720 CURSOR 4,16«, l3=0x10}
0x1a96…1ab1 Line {l1=0x19, l2=»2730 PRINT "Ældre :"«, l3=0x19}
0x1ab1…1ac4 Line {l1=0x11, l2=»2740 CURSOR 17,16«, l3=0x11}
0x1ac4…1ae7 Line {l1=0x21, l2=»2750 EXEC TUD(KSALDO2$,TAL4$,1,0)«, l3=0x21}
0x1ae7…1af9 Line {l1=0x10, l2=»2760 PRINT TAL4$«, l3=0x10}
0x1af9…1b06 Line {l1=0x0b, l2=»2770 ENDIF «, l3=0x0b}
0x1b06…1b15 Line {l1=0x0d, l2=»2780 ENDPROC «, l3=0x0d}
0x1b15…1b3a Line {l1=0x23, l2=»2790 PROC TUD(BLB1,UBLB1,TEGN,STØR)«, l3=0x23}
0x1b3a…1b5a Line {l1=0x1e, l2=»2800 BLB2$=BLB1$;UBLB2$=UBLB1$«, l3=0x1e}
0x1b5a…1b7f Line {l1=0x23, l2=»2810 EXEC CALC(5,BLB2$,TAH$,UBLB2$)«, l3=0x23}
0x1b7f…1b93 Line {l1=0x12, l2=»2820 UBLB1$=UBLB2$«, l3=0x12}
0x1b93…1ba9 Line {l1=0x14, l2=»2830 IF TEGN=0 THEN «, l3=0x14}
0x1ba9…1bc3 Line {l1=0x18, l2=»2840 UBLB1$=UBLB1$(1:13)«, l3=0x18}
0x1bc3…1bcf Line {l1=0x0a, l2=»2850 ELSE «, l3=0x0a}
0x1bcf…1c01 Line {l1=0x30, l2=»2860 IF TEGN=1 AND UBLB1$(LEN(UBLB1$))="+" THEN «, l3=0x30}
0x1c01…1c1f Line {l1=0x1c, l2=»2870 UBLB1$(LEN(UBLB1$))=" "«, l3=0x1c}
0x1c1f…1c2c Line {l1=0x0b, l2=»2880 ENDIF «, l3=0x0b}
0x1c2c…1c39 Line {l1=0x0b, l2=»2890 ENDIF «, l3=0x0b}
0x1c39…1c4f Line {l1=0x14, l2=»2900 IF STØR=1 THEN «, l3=0x14}
0x1c4f…1c74 Line {l1=0x23, l2=»2910 UBLB1$=UBLB1$(4:LEN(UBLB1$)-3)«, l3=0x23}
0x1c74…1c81 Line {l1=0x0b, l2=»2920 ENDIF «, l3=0x0b}
0x1c81…1c90 Line {l1=0x0d, l2=»2930 ENDPROC «, l3=0x0d}
0x1c90…1ca8 Line {l1=0x16, l2=»2940 PROC NRTEST(NUM1)«, l3=0x16}
0x1ca8…1cce Line {l1=0x24, l2=»2950 P=0;TEST2=0;KTAL=0;L=LEN(NUM1$)«, l3=0x24}
0x1cce…1cdf Line {l1=0x0f, l2=»2960 CASE L OF «, l3=0x0f}
0x1cdf…1cf2 Line {l1=0x11, l2=»2970 FOR I=1 TO L«, l3=0x11}
0x1cf2…1d11 Line {l1=0x1d, l2=»2980 P1=INT(ORD(NUM1$(I))-48)«, l3=0x1d}
0x1d11…1d30 Line {l1=0x1d, l2=»2990 IF P1=>0 AND P1<=9 THEN «, l3=0x1d}
0x1d30…1d40 Line {l1=0x0e, l2=»3000 P=P*10+P1«, l3=0x0e}
0x1d40…1d4c Line {l1=0x0a, l2=»3010 ELSE «, l3=0x0a}
0x1d4c…1d5a Line {l1=0x0c, l2=»3020 TEST2=1«, l3=0x0c}
0x1d5a…1d67 Line {l1=0x0b, l2=»3030 ENDIF «, l3=0x0b}
0x1d67…1d74 Line {l1=0x0b, l2=»3040 NEXT I«, l3=0x0b}
0x1d74…1d9c Line {l1=0x26, l2=»3050 KTAL=P DIV 10000;KTAL9=P DIV 1000«, l3=0x26}
0x1d9c…1dc1 Line {l1=0x23, l2=»3060 IF KTAL9=KRTAL THEN KTAL=KTAL9«, l3=0x23}
0x1dc1…1dce Line {l1=0x0b, l2=»3070 WHEN 0«, l3=0x0b}
0x1dce…1dd9 Line {l1=0x09, l2=»3080 P=-1«, l3=0x09}
0x1dd9…1de6 Line {l1=0x0b, l2=»3090 WHEN 1«, l3=0x0b}
0x1de6…1dfb Line {l1=0x13, l2=»3100 CASE NUM1$ OF «, l3=0x13}
0x1dfb…1e16 Line {l1=0x19, l2=»3110 P=INT(ORD(NUM1$)-48)«, l3=0x19}
0x1e16…1e29 Line {l1=0x11, l2=»3120 WHEN "J","j"«, l3=0x11}
0x1e29…1e34 Line {l1=0x09, l2=»3130 P=-7«, l3=0x09}
0x1e34…1e47 Line {l1=0x11, l2=»3140 WHEN "N","n"«, l3=0x11}
0x1e47…1e52 Line {l1=0x09, l2=»3150 P=-8«, l3=0x09}
0x1e52…1e61 Line {l1=0x0d, l2=»3160 ENDCASE «, l3=0x0d}
0x1e61…1e70 Line {l1=0x0d, l2=»3170 ENDCASE «, l3=0x0d}
0x1e70…1e7f Line {l1=0x0d, l2=»3180 ENDPROC «, l3=0x0d}
0x1e7f…1e95 Line {l1=0x14, l2=»3190 PROC OVERSKRIFT«, l3=0x14}
0x1e95…1ea7 Line {l1=0x10, l2=»3200 CURSOR 45,1«, l3=0x10}
0x1ea7…1ebb Line {l1=0x12, l2=»3210 CASE TYPE OF «, l3=0x12}
0x1ebb…1ec8 Line {l1=0x0b, l2=»3220 WHEN 1«, l3=0x0b}
0x1ec8…1ee1 Line {l1=0x17, l2=»3230 PRINT "Oprettelse"«, l3=0x17}
0x1ee1…1eee Line {l1=0x0b, l2=»3240 WHEN 2«, l3=0x0b}
0x1eee…1f04 Line {l1=0x14, l2=»3250 PRINT "Ændring"«, l3=0x14}
0x1f04…1f11 Line {l1=0x0b, l2=»3260 WHEN 3«, l3=0x0b}
0x1f11…1f28 Line {l1=0x15, l2=»3270 PRINT "Sletning"«, l3=0x15}
0x1f28…1f35 Line {l1=0x0b, l2=»3280 WHEN 4«, l3=0x0b}
0x1f35…1f4c Line {l1=0x15, l2=»3290 PRINT "Udskrift"«, l3=0x15}
0x1f4c…1f59 Line {l1=0x0b, l2=»3300 WHEN 5«, l3=0x0b}
0x1f59…1f7a Line {l1=0x1f, l2=»3310 PRINT "Kreditorkontoliste"«, l3=0x1f}
0x1f7a…1f89 Line {l1=0x0d, l2=»3320 ENDCASE «, l3=0x0d}
0x1f89…1f98 Line {l1=0x0d, l2=»3330 ENDPROC «, l3=0x0d}
0x1f98…1fb4 Line {l1=0x1a, l2=»3340 K1$="P641220:SYSTEM1"«, l3=0x1a}
0x1fb4…1fc5 Line {l1=0x0f, l2=»3350 OPEN K1$,R«, l3=0x0f}
0x1fc5…1fde Line {l1=0x17, l2=»3360 EXEC FEJL(9,1,K1$)«, l3=0x17}
0x1fde…2006 Line {l1=0x26, l2=»3370 GET K1$,1:MFANTAL,MDANTAL,MKANTAL«, l3=0x26}
0x2006…201f Line {l1=0x17, l2=»3380 EXEC FEJL(9,2,K1$)«, l3=0x17}
0x201f…2035 Line {l1=0x14, l2=»3390 GET K1$,5:MKRGR«, l3=0x14}
0x2035…204e Line {l1=0x17, l2=»3400 EXEC FEJL(9,3,K1$)«, l3=0x17}
0x204e…2064 Line {l1=0x14, l2=»3410 GET K1$,9:KRTAL«, l3=0x14}
0x2064…207d Line {l1=0x17, l2=»3420 EXEC FEJL(9,4,K1$)«, l3=0x17}
0x207d…2091 Line {l1=0x12, l2=»3430 GET K1$,10:N$«, l3=0x12}
0x2091…20aa Line {l1=0x17, l2=»3440 EXEC FEJL(9,5,K1$)«, l3=0x17}
0x20aa…20bf Line {l1=0x13, l2=»3450 GET K1$,13:K2$«, l3=0x13}
0x20bf…20d8 Line {l1=0x17, l2=»3460 EXEC FEJL(9,6,K1$)«, l3=0x17}
0x20d8…20ed Line {l1=0x13, l2=»3470 GET K1$,17:K3$«, l3=0x13}
0x20ed…2106 Line {l1=0x17, l2=»3480 EXEC FEJL(9,7,K1$)«, l3=0x17}
0x2106…211b Line {l1=0x13, l2=»3490 GET K1$,36:K5$«, l3=0x13}
0x211b…2134 Line {l1=0x17, l2=»3500 EXEC FEJL(9,9,K1$)«, l3=0x17}
0x2134…2144 Line {l1=0x0e, l2=»3510 CLOSE K1$«, l3=0x0e}
0x2144…215e Line {l1=0x18, l2=»3520 EXEC FEJL(9,10,K1$)«, l3=0x18}
0x215e…2178 Line {l1=0x18, l2=»3530 DIM KTAB(MKANTAL,2)«, l3=0x18}
0x2178…2189 Line {l1=0x0f, l2=»3540 K5$=N$+K5$«, l3=0x0f}
0x2189…219a Line {l1=0x0f, l2=»3550 OPEN K5$,W«, l3=0x0f}
0x219a…21b4 Line {l1=0x18, l2=»3560 EXEC FEJL(9,11,K5$)«, l3=0x18}
0x21b4…21ed Line {l1=0x37, l2=»3570 GET K5$,2:T1(1),T1(2),T1(3),T1(4),T1(5),T1(6),DATO«, l3=0x37}
0x21ed…2207 Line {l1=0x18, l2=»3580 EXEC FEJL(9,12,K5$)«, l3=0x18}
0x2207…221a Line {l1=0x11, l2=»3590 FOR I=1 TO 3«, l3=0x11}
0x221a…222c Line {l1=0x10, l2=»3600 J=(I-1)*3+1«, l3=0x10}
0x222c…225d Line {l1=0x2f, l2=»3610 GET K5$,I+2:LAND$(J),LAND$(J+1),LAND$(J+2)«, l3=0x2f}
0x225d…2277 Line {l1=0x18, l2=»3620 EXEC FEJL(9,13,K5$)«, l3=0x18}
0x2277…2284 Line {l1=0x0b, l2=»3630 NEXT I«, l3=0x0b}
0x2284…22d1 Line {l1=0x4b, l2=»3640 GET K5$,14:AFIN,ADEB,AKRE,VTAB2(1),VTAB2(2),VTAB2(3),VTAB2(4),VTAB2(5)«, l3=0x4b}
0x22d1…22eb Line {l1=0x18, l2=»3650 EXEC FEJL(9,14,K5$)«, l3=0x18}
0x22eb…2332 Line {l1=0x45, l2=»3660 GET K5$,17:T2(1),T2(2),T2(3),T2(4),T2(5),T2(6),T2(7),T2(8),T2(9)«, l3=0x45}
0x2332…234c Line {l1=0x18, l2=»3670 EXEC FEJL(9,15,K5$)«, l3=0x18}
0x234c…235a Line {l1=0x0c, l2=»3680 T2(5)=1«, l3=0x0c}
0x235a…23a1 Line {l1=0x45, l2=»3690 PUT K5$,17:T2(1),T2(2),T2(3),T2(4),T2(5),T2(6),T2(7),T2(8),T2(9)«, l3=0x45}
0x23a1…23bb Line {l1=0x18, l2=»3700 EXEC FEJL(9,16,K5$)«, l3=0x18}
0x23bb…23cb Line {l1=0x0e, l2=»3710 CLOSE K5$«, l3=0x0e}
0x23cb…23e5 Line {l1=0x18, l2=»3720 EXEC FEJL(9,17,K5$)«, l3=0x18}
0x23e5…23f6 Line {l1=0x0f, l2=»3730 K3$=N$+K3$«, l3=0x0f}
0x23f6…2407 Line {l1=0x0f, l2=»3740 OPEN K3$,W«, l3=0x0f}
0x2407…2421 Line {l1=0x18, l2=»3750 EXEC FEJL(9,18,K3$)«, l3=0x18}
0x2421…2432 Line {l1=0x0f, l2=»3760 K2$=N$+K2$«, l3=0x0f}
0x2432…2443 Line {l1=0x0f, l2=»3770 OPEN K2$,W«, l3=0x0f}
0x2443…245d Line {l1=0x18, l2=»3780 EXEC FEJL(9,19,K2$)«, l3=0x18}
0x245d…2481 Line {l1=0x22, l2=»3790 EXEC INDTAB(KTAB,MKANTAL,K2$)«, l3=0x22}
0x2481…24d0 Line {l1=0x4d, l2=»3890 BLANK$=" ";BLANK$=BLANK$+BLANK$+" "«, l3=0x4d}
0x24d0…24eb Line {l1=0x19, l2=»3900 TAH$="0+";TAL4$="0+"«, l3=0x19}
0x24eb…2533 Line {l1=0x46, l2=»3910 STREG$="-----------------------------------";STREG$=STREG$+STREG$«, l3=0x46}
0x2533…2541 Line {l1=0x0c, l2=»3920 REPEAT «, l3=0x0c}
0x2541…254e Line {l1=0x0b, l2=»3930 CLEAR «, l3=0x0b}
0x254e…2560 Line {l1=0x10, l2=»3940 CURSOR 21,1«, l3=0x10}
0x2560…2586 Line {l1=0x24, l2=»3950 PRINT "Kreditorvedligeholdelse"«, l3=0x24}
0x2586…2597 Line {l1=0x0f, l2=»3960 CURSOR 2,3«, l3=0x0f}
0x2597…25ae Line {l1=0x15, l2=»3970 PRINT "0:Færdig"«, l3=0x15}
0x25ae…25bf Line {l1=0x0f, l2=»3980 CURSOR 2,5«, l3=0x0f}
0x25bf…25da Line {l1=0x19, l2=»3990 PRINT "1:Oprettelse"«, l3=0x19}
0x25da…25eb Line {l1=0x0f, l2=»4000 CURSOR 2,7«, l3=0x0f}
0x25eb…2603 Line {l1=0x16, l2=»4010 PRINT "2:Ændring"«, l3=0x16}
0x2603…2614 Line {l1=0x0f, l2=»4020 CURSOR 2,9«, l3=0x0f}
0x2614…262d Line {l1=0x17, l2=»4030 PRINT "3:Sletning"«, l3=0x17}
0x262d…263f Line {l1=0x10, l2=»4040 CURSOR 2,11«, l3=0x10}
0x263f…2658 Line {l1=0x17, l2=»4050 PRINT "4:Udskrift"«, l3=0x17}
0x2658…266a Line {l1=0x10, l2=»4060 CURSOR 2,13«, l3=0x10}
0x266a…268d Line {l1=0x21, l2=»4070 PRINT "5:Kreditorkontoliste"«, l3=0x21}
0x268d…269b Line {l1=0x0c, l2=»4080 REPEAT «, l3=0x0c}
0x269b…26ad Line {l1=0x10, l2=»4090 CURSOR 4,15«, l3=0x10}
0x26ad…26cf Line {l1=0x20, l2=»4100 PRINT "Vælg type (0-5)"«, l3=0x20}
0x26cf…26e2 Line {l1=0x11, l2=»4110 CURSOR 14,15«, l3=0x11}
0x26e2…26f2 Line {l1=0x0e, l2=»4120 INPUT TY$«, l3=0x0e}
0x26f2…2709 Line {l1=0x15, l2=»4130 EXEC NRTEST(TY$)«, l3=0x15}
0x2709…2722 Line {l1=0x17, l2=»4140 UNTIL P>-1 AND P<6«, l3=0x17}
0x2722…272f Line {l1=0x0b, l2=»4150 TYPE=P«, l3=0x0b}
0x272f…274a Line {l1=0x19, l2=»4160 IF TYPE=0 THEN EXIT «, l3=0x19}
0x274a…2758 Line {l1=0x0c, l2=»4170 REPEAT «, l3=0x0c}
0x2758…276e Line {l1=0x14, l2=»4180 EXEC OVERSKRIFT«, l3=0x14}
0x276e…2782 Line {l1=0x12, l2=»4190 TEST=0;KONT=1«, l3=0x12}
0x2782…2798 Line {l1=0x14, l2=»4200 IF TYPE<5 THEN «, l3=0x14}
0x2798…27a6 Line {l1=0x0c, l2=»4210 REPEAT «, l3=0x0c}
0x27a6…27b4 Line {l1=0x0c, l2=»4220 REPEAT «, l3=0x0c}
0x27b4…27c6 Line {l1=0x10, l2=»4230 CURSOR 3,23«, l3=0x10}
0x27c6…280b Line {l1=0x43, l2=»4240 PRINT "Indtast kreditornr (0:for færdig)";BLANK$(1:35)«, l3=0x43}
0x280b…281e Line {l1=0x11, l2=»4250 CURSOR 22,23«, l3=0x11}
0x281e…282f Line {l1=0x0f, l2=»4260 INPUT KTN$«, l3=0x0f}
0x282f…2847 Line {l1=0x16, l2=»4270 EXEC NRTEST(KTN$)«, l3=0x16}
0x2847…288a Line {l1=0x41, l2=»4280 UNTIL (TEST2=0 AND KTAL=KRTAL AND KRTAL*1000+MKRGR<P) OR P=0«, l3=0x41}
0x288a…2897 Line {l1=0x0b, l2=»4290 KONT=P«, l3=0x0b}
0x2897…28b2 Line {l1=0x19, l2=»4300 IF KONT=0 THEN EXIT «, l3=0x19}
0x28b2…28dc Line {l1=0x28, l2=»4310 EXEC FINDPOST(KTAB,MKANTAL,P,KPIL3)«, l3=0x28}
0x28dc…28ea Line {l1=0x0c, l2=»4320 REPEAT «, l3=0x0c}
0x28ea…28fd Line {l1=0x11, l2=»4330 CURSOR 44,23«, l3=0x11}
0x28fd…2949 Line {l1=0x4a, l2=»4340 IF (CEKS=0 AND TYPE<>1) OR (CEKS=1 AND TYPE=1 AND AKRE<MKANTAL) THEN «, l3=0x4a}
0x2949…2962 Line {l1=0x17, l2=»4350 PRINT BLANK$(1:35)«, l3=0x17}
0x2962…296d Line {l1=0x09, l2=»4360 P=-1«, l3=0x09}
0x296d…2979 Line {l1=0x0a, l2=»4370 ELSE «, l3=0x0a}
0x2979…29ac Line {l1=0x31, l2=»4380 IF CEKS=1 AND TYPE=1 AND AKRE=>MKANTAL THEN «, l3=0x31}
0x29ac…29be Line {l1=0x10, l2=»4390 CURSOR 3,23«, l3=0x10}
0x29be…2a0a Line {l1=0x4a, l2=»4400 INPUT "Ikke plads til flere kreditorer,tast RETURN ",A$«, l3=0x4a}
0x2a0a…2a16 Line {l1=0x0a, l2=»4410 ELSE «, l3=0x0a}
0x2a16…2a2c Line {l1=0x14, l2=»4420 IF CEKS=0 THEN «, l3=0x14}
0x2a2c…2a61 Line {l1=0x33, l2=»4430 INPUT "Kreditor eksisterer , tast RETURN ",A$«, l3=0x33}
0x2a61…2a6d Line {l1=0x0a, l2=»4440 ELSE «, l3=0x0a}
0x2a6d…2aa3 Line {l1=0x34, l2=»4450 INPUT "Kreditor eksisterer ikke,tast RETURN",A$«, l3=0x34}
0x2aa3…2ab0 Line {l1=0x0b, l2=»4460 ENDIF «, l3=0x0b}
0x2ab0…2abd Line {l1=0x0b, l2=»4470 ENDIF «, l3=0x0b}
0x2abd…2ad3 Line {l1=0x14, l2=»4480 EXEC NRTEST(A$)«, l3=0x14}
0x2ad3…2ae0 Line {l1=0x0b, l2=»4490 ENDIF «, l3=0x0b}
0x2ae0…2af1 Line {l1=0x0f, l2=»4500 UNTIL P=-1«, l3=0x0f}
0x2af1…2b3a Line {l1=0x47, l2=»4510 UNTIL (CEKS=0 AND TYPE<>1) OR (CEKS=1 AND TYPE=1 AND AKRE<MKANTAL)«, l3=0x47}
0x2b3a…2b55 Line {l1=0x19, l2=»4520 IF KONT=0 THEN EXIT «, l3=0x19}
0x2b55…2b6c Line {l1=0x15, l2=»4530 IF TYPE<>1 THEN «, l3=0x15}
0x2b6c…2b7b Line {l1=0x0d, l2=»4540 FNR=KONT«, l3=0x0d}
0x2b7b…2b90 Line {l1=0x13, l2=»4550 EXEC HENTKPOST«, l3=0x13}
0x2b90…2bb4 Line {l1=0x22, l2=»4560 IF TYPE=3 THEN EXEC SALDOTEST«, l3=0x22}
0x2bb4…2bd0 Line {l1=0x1a, l2=»4570 IF TEST<>0 THEN EXIT «, l3=0x1a}
0x2bd0…2bed Line {l1=0x1b, l2=»4580 EXEC DINDTAST(2,2,FNR)«, l3=0x1b}
0x2bed…2bf9 Line {l1=0x0a, l2=»4590 ELSE «, l3=0x0a}
0x2bf9…2c0a Line {l1=0x0f, l2=»4600 KRENR=KONT«, l3=0x0f}
0x2c0a…2c26 Line {l1=0x1a, l2=»4610 KRENAVN$=BLANK$(1:25)«, l3=0x1a}
0x2c26…2c3a Line {l1=0x12, l2=»4620 KSALDO1$="0+"«, l3=0x12}
0x2c3a…2c4e Line {l1=0x12, l2=»4630 KSALDO2$="0+"«, l3=0x12}
0x2c4e…2c6a Line {l1=0x1a, l2=»4640 KREGADE$=BLANK$(1:25)«, l3=0x1a}
0x2c6a…2c7c Line {l1=0x10, l2=»4650 KREPOSTNR=0«, l3=0x10}
0x2c7c…2c8d Line {l1=0x0f, l2=»4660 KRELK$="0"«, l3=0x0f}
0x2c8d…2c9e Line {l1=0x0f, l2=»4670 KREGR$="0"«, l3=0x0f}
0x2c9e…2cb8 Line {l1=0x18, l2=»4680 KREBY$=BLANK$(1:20)«, l3=0x18}
0x2cb8…2cd7 Line {l1=0x1d, l2=»4690 EXEC DINDTAST(2,0,KRENR)«, l3=0x1d}
0x2cd7…2ce4 Line {l1=0x0b, l2=»4700 ENDIF «, l3=0x0b}
0x2ce4…2cf1 Line {l1=0x0b, l2=»4710 ENDIF «, l3=0x0b}
0x2cf1…2d0c Line {l1=0x19, l2=»4720 IF KONT=0 THEN EXIT «, l3=0x19}
0x2d0c…2d22 Line {l1=0x14, l2=»4730 IF TEST=0 THEN «, l3=0x14}
0x2d22…2d36 Line {l1=0x12, l2=»4740 CASE TYPE OF «, l3=0x12}
0x2d36…2d42 Line {l1=0x0a, l2=»4750 STOP «, l3=0x0a}
0x2d42…2d51 Line {l1=0x0d, l2=»4760 WHEN 1,2«, l3=0x0d}
0x2d51…2d5f Line {l1=0x0c, l2=»4770 REPEAT «, l3=0x0c}
0x2d5f…2d6d Line {l1=0x0c, l2=»4780 REPEAT «, l3=0x0c}
0x2d6d…2d7f Line {l1=0x10, l2=»4790 CURSOR 3,23«, l3=0x10}
0x2d7f…2dce Line {l1=0x4d, l2=»4800 PRINT "Hvilket felt ønskes ændret (Indtast feltnr 2-7, 0:færdig) "«, l3=0x4d}
0x2dce…2de1 Line {l1=0x11, l2=»4810 CURSOR 32,23«, l3=0x11}
0x2de1…2df1 Line {l1=0x0e, l2=»4820 INPUT LK$«, l3=0x0e}
0x2df1…2e08 Line {l1=0x15, l2=»4830 EXEC NRTEST(LK$)«, l3=0x15}
0x2e08…2e29 Line {l1=0x1f, l2=»4840 UNTIL P=0 OR (P>1 AND P<8)«, l3=0x1f}
0x2e29…2e37 Line {l1=0x0c, l2=»4850 STYR1=P«, l3=0x0c}
0x2e37…2e53 Line {l1=0x1a, l2=»4860 IF STYR1=0 THEN EXIT «, l3=0x1a}
0x2e53…2e76 Line {l1=0x21, l2=»4870 EXEC DINDTAST(STYR1,1,KRENR)«, l3=0x21}
0x2e76…2e8a Line {l1=0x12, l2=»4880 UNTIL STYR1=0«, l3=0x12}
0x2e8a…2eb8 Line {l1=0x2c, l2=»4890 EXEC FINDPOST(KTAB,MKANTAL,KRENR,KPIL3)«, l3=0x2c}
0x2eb8…2ece Line {l1=0x14, l2=»4900 IF TYPE=1 THEN «, l3=0x14}
0x2ece…2ef7 Line {l1=0x27, l2=»4910 EXEC INDSÆT(KTAB,AKRE,KRENR,KPIL3)«, l3=0x27}
0x2ef7…2f04 Line {l1=0x0b, l2=»4920 ENDIF «, l3=0x0b}
0x2f04…2f18 Line {l1=0x12, l2=»4930 EXEC GEMKPOST«, l3=0x12}
0x2f18…2f25 Line {l1=0x0b, l2=»4940 WHEN 3«, l3=0x0b}
0x2f25…2f33 Line {l1=0x0c, l2=»4950 REPEAT «, l3=0x0c}
0x2f33…2f45 Line {l1=0x10, l2=»4960 CURSOR 3,23«, l3=0x10}
0x2f45…2f7f Line {l1=0x38, l2=»4970 PRINT "Er det rigtigt at denne konto skal slettes";«, l3=0x38}
0x2f7f…2fa6 Line {l1=0x25, l2=»4971 PRINT " (J/N)";BLANK$(1:23)«, l3=0x25}
0x2fa6…2fb9 Line {l1=0x11, l2=»4980 CURSOR 48,23«, l3=0x11}
0x2fb9…2fc8 Line {l1=0x0d, l2=»4990 INPUT A$«, l3=0x0d}
0x2fc8…2fde Line {l1=0x14, l2=»5000 EXEC NRTEST(A$)«, l3=0x14}
0x2fde…2ff7 Line {l1=0x17, l2=»5010 UNTIL P=-7 OR P=-8«, l3=0x17}
0x2ff7…300b Line {l1=0x12, l2=»5020 IF P=-7 THEN «, l3=0x12}
0x300b…3027 Line {l1=0x1a, l2=»5030 EXEC SLETDPOST(KRENR)«, l3=0x1a}
0x3027…3034 Line {l1=0x0b, l2=»5040 ENDIF «, l3=0x0b}
0x3034…3041 Line {l1=0x0b, l2=»5050 WHEN 4«, l3=0x0b}
0x3041…304e Line {l1=0x0b, l2=»5060 WHEN 5«, l3=0x0b}
0x304e…305c Line {l1=0x0c, l2=»5070 REPEAT «, l3=0x0c}
0x305c…306a Line {l1=0x0c, l2=»5080 REPEAT «, l3=0x0c}
0x306a…307c Line {l1=0x10, l2=»5090 CURSOR 3,23«, l3=0x10}
0x307c…30aa Line {l1=0x2c, l2=»5100 PRINT "Fra kreditornr (0: Alle)"«, l3=0x2c}
0x30aa…30bd Line {l1=0x11, l2=»5110 CURSOR 18,23«, l3=0x11}
0x30bd…30ce Line {l1=0x0f, l2=»5120 INPUT KTN$«, l3=0x0f}
0x30ce…30e6 Line {l1=0x16, l2=»5130 EXEC NRTEST(KTN$)«, l3=0x16}
0x30e6…3114 Line {l1=0x2c, l2=»5140 UNTIL L=5 AND P>9999 AND TEST2=0 OR P=0«, l3=0x2c}
0x3114…3127 Line {l1=0x11, l2=»5150 IF P=0 THEN «, l3=0x11}
0x3127…313c Line {l1=0x13, l2=»5160 FRA=1;TIL=AKRE«, l3=0x13}
0x313c…3148 Line {l1=0x0a, l2=»5170 ELSE «, l3=0x0a}
0x3148…3155 Line {l1=0x0b, l2=»5180 KONT=P«, l3=0x0b}
0x3155…317f Line {l1=0x28, l2=»5190 EXEC FINDPOST(KTAB,MKANTAL,P,KPIL3)«, l3=0x28}
0x317f…318f Line {l1=0x0e, l2=»5200 FRA=KPIL3«, l3=0x0e}
0x318f…319c Line {l1=0x0b, l2=»5210 ENDIF «, l3=0x0b}
0x319c…31b2 Line {l1=0x14, l2=»5220 UNTIL FRA<=AKRE«, l3=0x14}
0x31b2…31c5 Line {l1=0x11, l2=»5230 IF P>0 THEN «, l3=0x11}
0x31c5…31d3 Line {l1=0x0c, l2=»5240 REPEAT «, l3=0x0c}
0x31d3…31e5 Line {l1=0x10, l2=»5250 CURSOR 3,23«, l3=0x10}
0x31e5…3214 Line {l1=0x2d, l2=»5260 PRINT "Til kreditornr "«, l3=0x2d}
0x3214…3227 Line {l1=0x11, l2=»5270 CURSOR 18,23«, l3=0x11}
0x3227…3238 Line {l1=0x0f, l2=»5280 INPUT KTN$«, l3=0x0f}
0x3238…3250 Line {l1=0x16, l2=»5290 EXEC NRTEST(KTN$)«, l3=0x16}
0x3250…3283 Line {l1=0x31, l2=»5300 UNTIL L=5 AND P>9999 AND TEST2=0 AND P=>KONT«, l3=0x31}
0x3283…32ad Line {l1=0x28, l2=»5310 EXEC FINDPOST(KTAB,MKANTAL,P,KPIL3)«, l3=0x28}
0x32ad…32d0 Line {l1=0x21, l2=»5320 IF CEKS=1 THEN KPIL3=KPIL3-1«, l3=0x21}
0x32d0…32e0 Line {l1=0x0e, l2=»5330 TIL=KPIL3«, l3=0x0e}
0x32e0…32ed Line {l1=0x0b, l2=»5340 ENDIF «, l3=0x0b}
0x32ed…32fa Line {l1=0x0b, l2=»5350 CLEAR «, l3=0x0b}
0x32fa…3308 Line {l1=0x0c, l2=»5360 REPEAT «, l3=0x0c}
0x3308…331a Line {l1=0x10, l2=»5370 CURSOR 8,13«, l3=0x10}
0x331a…3369 Line {l1=0x4d, l2=»5380 INPUT "Monter papir til udskrift af kreditorkontoliste , tast RETURN",A$«, l3=0x4d}
0x3369…3381 Line {l1=0x16, l2=»5390 UNTIL ORD(A$)=255«, l3=0x16}
0x3381…3390 Line {l1=0x0d, l2=»5400 OUTPUT P«, l3=0x0d}
0x3390…33b6 Line {l1=0x24, l2=»5410 SIDE=1;DA1=DATO;DAT$=" "«, l3=0x24}
0x33b6…33d1 Line {l1=0x19, l2=»5420 FOR J=8 TO 1 STEP -1«, l3=0x19}
0x33d1…33ea Line {l1=0x17, l2=»5430 IF J MOD 3=0 THEN «, l3=0x17}
0x33ea…33fc Line {l1=0x10, l2=»5440 DAT$(J)="."«, l3=0x10}
0x33fc…3408 Line {l1=0x0a, l2=»5450 ELSE «, l3=0x0a}
0x3408…3438 Line {l1=0x2e, l2=»5460 DAT$(J)=CHR(DA1 MOD 10+48);DA1=DA1 DIV 10«, l3=0x2e}
0x3438…3445 Line {l1=0x0b, l2=»5470 ENDIF «, l3=0x0b}
0x3445…3452 Line {l1=0x0b, l2=»5480 NEXT J«, l3=0x0b}
0x3452…3470 Line {l1=0x1c, l2=»5490 FOR I=FRA TO TIL STEP 6«, l3=0x1c}
0x3470…34bc Line {l1=0x4a, l2=»5500 PRINT TAB(10);CHR(14);"Kreditorkontoliste";CHR(15);TAB(32);"Dato : ";«, l3=0x4a}
0x34bc…34ce Line {l1=0x10, l2=»5510 PRINT DAT$;«, l3=0x10}
0x34ce…34f5 Line {l1=0x25, l2=»5520 PRINT USING " Side :####":SIDE«, l3=0x25}
0x34f5…3505 Line {l1=0x0e, l2=»5530 PRINT " "«, l3=0x0e}
0x3505…3517 Line {l1=0x10, l2=»5540 SIDE=SIDE+1«, l3=0x10}
0x3517…3530 Line {l1=0x17, l2=»5550 FOR KPIL3=I TO I+5«, l3=0x17}
0x3530…354f Line {l1=0x1d, l2=»5560 IF KTAB(KPIL3,1)>0 THEN «, l3=0x1d}
0x354f…3564 Line {l1=0x13, l2=»5570 EXEC HENTKPOST«, l3=0x13}
0x3564…3586 Line {l1=0x20, l2=»5580 EXEC TUD(KSALDO1$,UD1$,1,0)«, l3=0x20}
0x3586…35a8 Line {l1=0x20, l2=»5590 EXEC TUD(KSALDO2$,UD2$,1,0)«, l3=0x20}
0x35a8…35c2 Line {l1=0x18, l2=»5600 PRINT TAB(9);STREG$«, l3=0x18}
0x35c2…3609 Line {l1=0x45, l2=»5610 PRINT TAB(9);"NAVN OG ADRESSE";TAB(42);"0-30 DAGE ÆLDRE"«, l3=0x45}
0x3609…3619 Line {l1=0x0e, l2=»5620 PRINT " "«, l3=0x0e}
0x3619…363d Line {l1=0x22, l2=»5630 PRINT USING "###### ":KRENR;«, l3=0x22}
0x363d…3668 Line {l1=0x29, l2=»5640 PRINT KRENAVN$;TAB(38);UD1$;" ";UD2$«, l3=0x29}
0x3668…3688 Line {l1=0x1e, l2=»5650 PRINT TAB(9);KREGADE$;" "«, l3=0x1e}
0x3688…36b7 Line {l1=0x2d, l2=»5660 PRINT USING " ####### ":KREPOSTNR;«, l3=0x2d}
0x36b7…36d3 Line {l1=0x1a, l2=»5670 PRINT KREBY$;TAB(39);«, l3=0x1a}
0x36d3…3700 Line {l1=0x2b, l2=»5680 DLK=ORD(KRELK$)-48;DKGR=ORD(KREGR$)-48«, l3=0x2b}
0x3700…3741 Line {l1=0x3f, l2=»5690 PRINT USING "LANDEKODE:### KREDITORGRUPPE:###":DLK,DKGR«, l3=0x3f}
0x3741…3751 Line {l1=0x0e, l2=»5700 PRINT " "«, l3=0x0e}
0x3751…375e Line {l1=0x0b, l2=»5710 ENDIF «, l3=0x0b}
0x375e…377c Line {l1=0x1c, l2=»5720 IF KPIL3=TIL THEN EXIT «, l3=0x1c}
0x377c…378d Line {l1=0x0f, l2=»5730 NEXT KPIL3«, l3=0x0f}
0x378d…37b1 Line {l1=0x22, l2=»5740 PRINT CHR(10);CHR(10);CHR(10)«, l3=0x22}
0x37b1…37cf Line {l1=0x1c, l2=»5750 IF KPIL3=TIL THEN EXIT «, l3=0x1c}
0x37cf…37dc Line {l1=0x0b, l2=»5760 NEXT I«, l3=0x0b}
0x37dc…37f7 Line {l1=0x19, l2=»5770 FOR J=KPIL3+1 TO I+5«, l3=0x19}
0x37f7…380b Line {l1=0x12, l2=»5780 PRINT CHR(10)«, l3=0x12}
0x380b…381f Line {l1=0x12, l2=»5790 PRINT CHR(10)«, l3=0x12}
0x381f…3833 Line {l1=0x12, l2=»5800 PRINT CHR(10)«, l3=0x12}
0x3833…3843 Line {l1=0x0e, l2=»5810 PRINT " "«, l3=0x0e}
0x3843…3850 Line {l1=0x0b, l2=»5820 NEXT J«, l3=0x0b}
0x3850…385f Line {l1=0x0d, l2=»5830 OUTPUT T«, l3=0x0d}
0x385f…386c Line {l1=0x0b, l2=»5840 KONT=0«, l3=0x0b}
0x386c…387b Line {l1=0x0d, l2=»5850 ENDCASE «, l3=0x0d}
0x387b…3887 Line {l1=0x0a, l2=»5860 ELSE «, l3=0x0a}
0x3887…3895 Line {l1=0x0c, l2=»5870 REPEAT «, l3=0x0c}
0x3895…38a7 Line {l1=0x10, l2=»5880 CURSOR 3,23«, l3=0x10}
0x38a7…38f1 Line {l1=0x48, l2=»5890 PRINT "Denne konto kan ikke slettes, da saldoen ikke er udlignet,";«, l3=0x48}
0x38f1…3917 Line {l1=0x24, l2=»5891 PRINT "tryk RETURN";BLANK$(1:6)«, l3=0x24}
0x3917…3926 Line {l1=0x0d, l2=»5900 INPUT A$«, l3=0x0d}
0x3926…393c Line {l1=0x14, l2=»5910 EXEC NRTEST(A$)«, l3=0x14}
0x393c…394d Line {l1=0x0f, l2=»5920 UNTIL P=-1«, l3=0x0f}
0x394d…395a Line {l1=0x0b, l2=»5930 ENDIF «, l3=0x0b}
0x395a…396d Line {l1=0x11, l2=»5940 UNTIL KONT=0«, l3=0x11}
0x396d…3980 Line {l1=0x11, l2=»5950 UNTIL TYPE=0«, l3=0x11}
0x3980…39a3 Line {l1=0x21, l2=»5960 EXEC UDTAB(KTAB,MKANTAL,K2$)«, l3=0x21}
0x39a3…39b3 Line {l1=0x0e, l2=»5970 CLOSE K2$«, l3=0x0e}
0x39b3…39cd Line {l1=0x18, l2=»5980 EXEC FEJL(9,20,K2$)«, l3=0x18}
0x39cd…39dd Line {l1=0x0e, l2=»5990 CLOSE K3$«, l3=0x0e}
0x39dd…39f7 Line {l1=0x18, l2=»6000 EXEC FEJL(9,21,K3$)«, l3=0x18}
0x39f7…3a05 Line {l1=0x0c, l2=»6010 T2(5)=0«, l3=0x0c}
0x3a05…3a16 Line {l1=0x0f, l2=»6020 OPEN K5$,W«, l3=0x0f}
0x3a16…3a30 Line {l1=0x18, l2=»6030 EXEC FEJL(9,22,K5$)«, l3=0x18}
0x3a30…3a7d Line {l1=0x4b, l2=»6040 PUT K5$,14:AFIN,ADEB,AKRE,VTAB2(1),VTAB2(2),VTAB2(3),VTAB2(4),VTAB2(5)«, l3=0x4b}
0x3a7d…3a97 Line {l1=0x18, l2=»6050 EXEC FEJL(9,23,K5$)«, l3=0x18}
0x3a97…3ade Line {l1=0x45, l2=»6060 PUT K5$,17:T2(1),T2(2),T2(3),T2(4),T2(5),T2(6),T2(7),T2(8),T2(9)«, l3=0x45}
0x3ade…3af8 Line {l1=0x18, l2=»6070 EXEC FEJL(9,24,K5$)«, l3=0x18}
0x3af8…3b08 Line {l1=0x0e, l2=»6080 CLOSE K5$«, l3=0x0e}
0x3b08…3b22 Line {l1=0x18, l2=»6090 EXEC FEJL(9,25,K5$)«, l3=0x18}
0x3b22…3b40 Line {l1=0x1c, l2=»6100 CHAIN "P641210:OPSTART"«, l3=0x1c}
0x3b40…3b55 Line {l1=0x13, l2=»6110 PROC SALDOTEST«, l3=0x13}
0x3b55…3b7b Line {l1=0x24, l2=»6120 EXEC CALC(4,KSALDO1$,TAH$,TAH$)«, l3=0x24}
0x3b7b…3b8f Line {l1=0x12, l2=»6130 IF SI=0 THEN «, l3=0x12}
0x3b8f…3bb5 Line {l1=0x24, l2=»6140 EXEC CALC(4,KSALDO2$,TAH$,TAH$)«, l3=0x24}
0x3bb5…3bd0 Line {l1=0x19, l2=»6150 IF SI<>0 THEN TEST=1«, l3=0x19}
0x3bd0…3bdc Line {l1=0x0a, l2=»6160 ELSE «, l3=0x0a}
0x3bdc…3be9 Line {l1=0x0b, l2=»6170 TEST=1«, l3=0x0b}
0x3be9…3bf6 Line {l1=0x0b, l2=»6180 ENDIF «, l3=0x0b}
0x3bf6…3c05 Line {l1=0x0d, l2=»6190 ENDPROC «, l3=0x0d}
0x3c05…3c20 00 00 28 31 32 29 49 3a 30 31 33 30 20 44 49 4d 20 4b 31 24 28 31 37 29 2c 4b 32 ┆ (12)I:0130 DIM K1$(17),K2┆
0x3c20…3c40 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┆
[…0x47…]