|
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: 22752 (0x58e0)
Types: TextFile
Notes: Mikados_K
Names: »PSTERING.K«
└─⟦ec8c1e0b0⟧ Bits:30007442 8" floppy ( MIKPROG vol. 1-3, MIKREL vol. 1-3, PCSE 4.7.80 vol 1-3, GL.SYS )
└─⟦this⟧ »PSTERING.K«
0100 DIM KONTONAVN$(25),DEBNAVN$(25),N$(6),FNAVN$(25),FUKODE$(1),T1(9),T2(9) 0110 DIM KRENAVN$(25),T3(9),K6$(17),K7$(17),K8$(17),K9$(17),K10$(17) 0120 DIM K1$(17),SALDO$(12),DAT$(8),TKO$(1),BELØB1$(12),MUL$(1),TEKST$(25) 0130 DIM K4$(17),TFIL$(9,10),UBELØB$(14),BELØB2$(12),KA(36),DA(36),TKA(36) 0140 DIM TA$(36,25),A$(2),TAL4$(12),OP1$(12),OP2$(12),STREG$(70),K5$(17) 0150 DIM RES$(14),BIL$(8),RET$(3),BTEKST$(26),ATEKST$(26),KTN$(6),BLB$(12) 0160 DIM K2$(17),BLB2$(12),BLB3$(12),BLK$(76),CA(36),CEA$(36,12),K3$(17) 0170 PROC CALC(AR3,AB,AC,ES) 0180 OP1$=AB$;OP2$=AC$;RES$=ES$;SI=0;FLAG=0;ART=AR3-6*(AR3>5) 0190 CALL "P641210:REGN" 0200 ES$=RES$ 0210 IF AR3<>6 THEN 0220 IF FLAG<>0 THEN STOP 0230 ENDIF 0240 ENDPROC 0250 PROC KTNAVN(KOTAL,KKONTO) 0260 CEKS=1 0270 CASE KOTAL OF 0280 EXEC FINDPOST1(FTAB1,FTAB,MFANTAL,KKONTO,FPIL3,K2$) 0290 IF CEKS=0 THEN 0300 EXEC HENTPOST 0310 IF INT(ORD(FUKODE$)-48)=0 THEN 0320 KONTONAVN$=FNAVN$ 0330 ELSE 0340 CEKS=1 0350 ENDIF 0360 ENDIF 0370 WHEN DTAL 0380 IF DTAL*10000+MKGR<KKONTO THEN 0390 EXEC FINDPOST1(DTAB1,DTAB,MDANTAL,KKONTO,DPIL3,K3$) 0400 IF CEKS=0 THEN 0410 EXEC HENTDPOST 0420 KONTONAVN$=DEBNAVN$ 0430 ENDIF 0440 ELSE 0450 CEKS=1 0460 ENDIF 0470 WHEN KRTAL 0480 IF KRTAL*1000+MKRGR<KKONTO THEN 0490 EXEC FINDPOST1(KTAB1,KTAB,MKANTAL,KKONTO,KPIL3,K4$) 0500 IF CEKS=0 THEN 0510 EXEC HENTKRPOST 0520 KONTONAVN$=KRENAVN$ 0530 ENDIF 0540 ENDIF 0550 ENDCASE 0560 IF CEKS=1 THEN 0570 KONTONAVN$="Konto eksisterer ikke " 0580 ENDIF 0590 ENDPROC 0600 PROC HENTDPOST 0610 S=DTAB(DPIL3,2) 0620 GET K6$,S:DEBNR,DEBNAVN$ 0630 EXEC FEJL(8,2,K6$) 0640 IF DEBNR<>DTAB(DPIL3,1) THEN STOP 0650 ENDPROC 0660 PROC HENTKRPOST 0670 S=KTAB(KPIL3,2) 0680 GET K7$,S:KRENR,KRENAVN$ 0690 EXEC FEJL(1,1,K7$) 0700 IF KRENR<>KTAB(KPIL3,1) THEN STOP 0710 ENDPROC 0720 PROC HENTPOST 0730 S=FTAB(FPIL3,2) 0740 GET K5$,S:FNR,FNAVN$ 0750 EXEC FEJL(3,2,K5$) 0760 IF FNR<>FTAB(FPIL3,1) THEN STOP 0770 GET K5$,S+2:FUKODE$ 0780 EXEC FEJL(3,4,K5$) 0790 ENDPROC 0800 PROC FINDPOST1(TAB4,Q,MANT2,NØGL5,PIL6,L8) 0810 PIL1=MANT2 DIV 8;PIL6=PIL1;CEKS=1;MANT3=MANT2 DIV 4;MANT4=MANT2 DIV 32 0820 REPEAT 0830 IF NØGL5=TAB4(PIL6) OR PIL1=1 THEN EXIT 0840 PIL1=(PIL1+1) DIV 2 0850 PIL6=PIL6+PIL1*(1-2*(NØGL5<TAB4(PIL6))) 0860 IF PIL6<1 THEN PIL6=1 0870 IF PIL6>MANT3 THEN PIL6=MANT3 0880 UNTIL PIL1=0 0890 IF TAB4(PIL6)>NØGL5 THEN PIL6=PIL6-1*(PIL6>1) 0900 PIL6=MANT4+PIL6 0910 GET L8$,PIL6:Q(1,1),Q(1,2),Q(2,1),Q(2,2),Q(3,1),Q(3,2),Q(4,1),Q(4,2) 0920 EXEC FEJL(1,1,L8$) 0930 FOR PIL6=1 TO 4 0940 IF NØGL5=Q(PIL6,1) THEN EXIT 0950 NEXT PIL6 0960 IF PIL6<5 THEN CEKS=0 0970 ENDPROC 0980 PROC INDTAB1(Z,MANT5,L7) 0990 PIL1=MANT5 DIV 32 1000 FOR I=1 TO PIL1 1010 H=(I-1)*8+1 1020 GET L7$,I:Z(H),Z(H+1),Z(H+2),Z(H+3),Z(H+4),Z(H+5),Z(H+6),Z(H+7) 1030 EXEC FEJL(2,1,L7$) 1040 NEXT I 1050 ENDPROC 1060 PROC DATOUD(DA1,DA2) 1070 DA3=DA1 1080 DA2$=" " 1090 FOR J=8 TO 1 STEP -1 1100 IF J MOD 3=0 THEN 1110 DA2$(J)="." 1120 ELSE 1130 DA2$(J)=CHR(DA3 MOD 10+48) 1140 DA3=DA3 DIV 10 1150 ENDIF 1160 NEXT J 1170 ENDPROC 1180 PROC PGETUD(SIDE) 1190 IF CPIL>1 THEN 1200 I=1;SIDE=1;SALDO$="0+" 1210 CLEAR 1220 REPEAT 1230 CURSOR 8,13 1240 INPUT "Monter papir til udskrift af posteringsark og tast RETURN",A$ 1250 UNTIL ORD(A$)=255 1260 REPEAT 1270 EXEC DATOUD(DATO,DAT$) 1280 OUTPUT P 1290 PRINT " " 1300 PRINT TAB(9);CHR(14);"Posteringsark";CHR(15);TAB(44);"Dato:";DAT$; 1310 PRINT TAB(61); 1320 PRINT USING "Side:####":SIDE 1330 SIDE=SIDE+1 1340 PRINT CHR(10) 1350 PRINT TAB(3);"Bilag Tekst";TAB(42);"Debet Beløb Kredit" 1360 PRINT TAB(3);STREG$ 1370 LINIE=1 1380 REPEAT 1390 GET K8$,I:KONTO1,DDATO,BILAG,TKO$,BLB2$,MUL$ 1400 EXEC FEJL(3,2,K8$) 1410 TEKSTKODE=ORD(TKO$)-48 1420 MULTI=ORD(MUL$)-48 1430 I=I+1 1440 IF TEKSTKODE>9 THEN 1450 GET K8$,I:KONTO1,TEKST$ 1460 EXEC FEJL(3,3,K8$) 1470 I=I+1 1480 ELSE 1490 TEKST$=BLK$(1:25) 1500 IF TEKSTKODE<>0 THEN TEKST$(1:10)=TFIL$(TEKSTKODE) 1510 ENDIF 1520 IF MULTI=0 THEN 1530 EXEC CALC(1,SALDO$,BLB2$,SALDO$) 1540 GET K8$,I:KONTO2 1550 EXEC FEJL(3,4,K8$) 1560 I=I+1 1570 IF TEKSTKODE>9 THEN I=I+1 1580 ELSE 1590 IF BLB2$(LEN(BLB2$))="-" THEN 1600 KONTO2=KONTO1 1610 KONTO1=100000 1620 ELSE 1630 KONTO2=100000 1640 ENDIF 1650 ENDIF 1660 EXEC CALC(0,SALDO$,BLB2$,SALDO$) 1670 PRINT USING "####### ":BILAG; 1680 PRINT TEKST$;TAB(39); 1690 PRINT USING " ###### ":KONTO1; 1700 EXEC TUD(BLB2$,UBELØB$,0,0) 1710 PRINT UBELØB$; 1720 PRINT USING " ######":KONTO2 1730 LINIE=LINIE+1 1740 UNTIL LINIE=37 OR I=CPIL 1750 IF LINIE=37 AND I<>CPIL THEN 1760 PRINT CHR(10);CHR(10);CHR(10);CHR(10);CHR(10) 1770 ELSE 1780 FOR LINIE=LINIE TO 36 1790 PRINT CHR(10); 1800 NEXT LINIE 1810 PRINT " " 1820 PRINT TAB(3);STREG$ 1830 EXEC TUD(SALDO$,UBELØB$,1,0) 1840 PRINT TAB(27);CHR(14);"Difference";CHR(15);TAB(43);UBELØB$ 1850 PRINT TAB(3);STREG$ 1860 PRINT CHR(10) 1870 OUTPUT T 1880 ENDIF 1890 UNTIL I=CPIL 1900 ENDIF 1910 ENDPROC 1920 PROC PPUT 1930 MUL$=CHR(MULTI+48) 1940 IF MULTI=0 THEN 1950 BPIL=CPIL 1960 TKO$=CHR(TEKSTKODE+48) 1970 PUT K8$,CPIL:KONTO1,BDATO,BILAG,TKO$,BLB2$,MUL$ 1980 EXEC FEJL(2,2,K8$) 1990 CPIL=CPIL+1 2000 IF TEKSTKODE>9 THEN 2010 PUT K8$,CPIL:KONTO1,TEKST$ 2020 EXEC FEJL(2,3,K8$) 2030 CPIL=CPIL+1 2040 ENDIF 2050 PUT K8$,CPIL:KONTO2,BDATO,BILAG,TKO$,BLB3$,MUL$ 2060 EXEC FEJL(2,4,K8$) 2070 CPIL=CPIL+1 2080 IF TEKSTKODE>9 THEN 2090 PUT K8$,CPIL:KONTO2,TEKST$ 2100 EXEC FEJL(2,5,K8$) 2110 CPIL=CPIL+1 2120 ENDIF 2130 ELSE 2140 FOR I=1 TO APIL 2150 IF KA(I)<>0 THEN 2160 TKO$=CHR(TKA(I)+48) 2170 PUT K8$,CPIL:KA(I),DA(I),CA(I),TKO$,CEA$(I),MUL$ 2180 EXEC FEJL(2,6,K8$) 2190 CPIL=CPIL+1 2200 IF TKA(I)>9 THEN 2210 PUT K8$,CPIL:KA(I),TA$(I) 2220 EXEC FEJL(2,7,K8$) 2230 CPIL=CPIL+1 2240 ENDIF 2250 ENDIF 2260 NEXT I 2270 BPIL=CPIL;APIL=0;DPIL=0 2280 EXEC SYSGEM 2290 ENDIF 2300 ENDPROC 2310 PROC SYSGEM 2320 T1(5)=PSIDENR;T1(8)=BBILAG;T2(1)=PPOST;T3(1)=BHPOSTNR 2330 OPEN K10$,W 2340 EXEC FEJL(7,1,K10$) 2350 PUT K10$,2:T1(1),T1(2),T1(3),T1(4),T1(5),T1(6),T1(7),T1(8),T1(9) 2360 EXEC FEJL(7,2,K10$) 2370 PUT K10$,12:T2(1),T2(2),T2(3),T2(4),T2(5),T2(6),T2(7),T2(8),T2(9) 2380 EXEC FEJL(7,3,K10$) 2390 PUT K10$,13:T3(1),T3(2),T3(3),T3(4),T3(5),T3(6),T3(7),T3(8),T3(9) 2400 EXEC FEJL(7,4,K10$) 2410 CLOSE K10$ 2420 EXEC FEJL(7,5,K10$) 2430 ENDPROC 2440 PROC KONTOOK 2450 EXEC KTNAVN(KTAL,P) 2460 CURSOR 25,23 2470 PRINT KONTONAVN$;BLK$(1:30-LEN(KONTONAVN$)) 2480 REPEAT 2490 CURSOR 55,23 2500 PRINT "Rigtig konto (J/N) " 2510 CURSOR 75,23 2520 INPUT A$ 2530 EXEC NRTEST(A$) 2540 UNTIL P=-7 OR P=-8 2550 ENDPROC 2560 PROC KONTOUD(KONT) 2570 IF CEKS=1 THEN 2580 CURSOR 2,LINIENR+3 2590 PRINT BLK$ 2600 IF MULTI=0 THEN BBILAG=BBILAG-1 2610 CNR=1 2620 ELSE 2630 CURSOR 42+28*(CNR=5),LINIENR+3 2640 PRINT USING " ###### ":KONT 2650 LINIENR=LINIENR+1*(CNR=5) 2660 CNR=4-3*(CNR=5) 2670 ENDIF 2680 ENDPROC 2690 PROC TUD(BLB1,UBLB,TEGN,STØR) 2700 EXEC CALC(5,BLB1$,TAL4$,UBLB$) 2710 IF TEGN=0 THEN 2720 UBLB$=UBLB$(1:13) 2730 ELSE 2740 IF TEGN=1 AND UBLB$(LEN(UBLB$))="+" THEN 2750 UBLB$(LEN(UBLB$))=" " 2760 ENDIF 2770 ENDIF 2780 IF STØR=1 THEN 2790 UBLB$=UBLB$(3:LEN(UBLB$)-3) 2800 ENDIF 2810 ENDPROC 2820 PROC FEJL(NR1,NR2,NR3) 2830 IF STATUS(NR3$)<>0 THEN 2840 PRINT STATUS(NR3$),NR1,NR2,NR3$ 2850 STOP 2860 ENDIF 2870 ENDPROC 2880 PROC PSLET(ART1) 2890 IF MULTI=0 THEN 2900 IF BPIL=CPIL THEN 2910 REPEAT 2920 CURSOR 3,23 2930 PRINT "Posteringen kan ikke annuleres, tast RETURN"+BLK$(1:34) 2940 CURSOR 48,23 2950 INPUT A$ 2960 EXEC NRTEST(A$) 2970 UNTIL P=-1 2980 ELSE 2990 LINIENR=LINIENR-1 3000 BBILAG=BBILAG-1 3010 CURSOR 3,LINIENR+3 3020 PRINT BLK$ 3030 FOR I=BPIL TO CPIL-1 3040 PUT K8$,I:0 3050 EXEC FEJL(1,2,K8$) 3060 NEXT I 3070 CPIL=BPIL 3080 ENDIF 3090 ELSE 3100 IF APIL>0 THEN 3110 IF ART1=1 THEN 3120 CURSOR 3,(P-1) MOD 18+4 3130 ELSE 3140 P=APIL 3150 LINIENR=LINIENR-1 3160 CURSOR 3,LINIENR+3 3170 ENDIF 3180 IF TKA(P)>9 THEN DPIL=DPIL-1 3190 PRINT BLK$ 3200 KA(P)=0 3210 DA(P)=0 3220 CA(P)=0 3230 TKA(P)=0 3240 TA$(P)=BLK$(1:25) 3250 EXEC CALC(1,SALDO$,CEA$(P),SALDO$) 3260 CEA$(P)=BLK$(1:14) 3270 IF ART1=0 THEN 3280 APIL=APIL-1;DPIL=DPIL-1 3290 ENDIF 3300 ENDIF 3310 ENDIF 3320 ENDPROC 3330 PROC NRTEST(NUM1) 3340 P=0;TEST2=0;KTAL=0 3350 L=LEN(NUM1$) 3360 CASE L OF 3370 FOR I=1 TO L 3380 P1=INT(ORD(NUM1$(I))-48) 3390 IF P1=>0 AND P1<=9 THEN 3400 P=P*10+P1 3410 ELSE 3420 TEST2=1 3430 ENDIF 3440 NEXT I 3450 KTAL=P DIV 10000;KTAL9=P DIV 1000 3460 IF KRTAL=KTAL9 THEN KTAL=KTAL9 3470 WHEN 0 3480 P=-1 3490 WHEN 1 3500 CASE NUM1$ OF 3510 P=INT(ORD(NUM1$)-48) 3520 WHEN "d","D" 3530 P=-2 3540 WHEN "A","a" 3550 P=-3 3560 WHEN "M","m" 3570 P=-4 3580 WHEN "J","j" 3590 P=-7 3600 WHEN "N","n" 3610 P=-8 3620 ENDCASE 3630 ENDCASE 3640 ENDPROC 3650 PROC FORTEGN 3660 L=LEN(BLB$) 3670 IF L=0 THEN 3680 BLB$="0+";L=2 3690 ENDIF 3700 IF BLB$(L)<>"+" AND BLB$(L)<>"-" THEN 3710 BLB$=BLB$+"+" 3720 ELSE 3730 BLB$(L)="+" 3740 ENDIF 3750 ENDPROC 3760 PROC UDHOVED 3770 CURSOR 2,1 3780 EXEC DATOUD(BDATO,DAT$) 3790 PRINT TAB(20);"Posteringsark";BLK$(1:25);"Dato:";DAT$ 3800 CURSOR 3,3 3810 PRINT "Nr Bilag Tekst";BLK$(1:24);"Debet Beløb K"; 3820 PRINT "redit" 3830 ENDPROC 3840 PROC UDLINIE 3850 CURSOR 1,4 3860 PRINT USING "### ####### ":LINIENR,BILAG; 3870 IF TEKSTKODE<>0 THEN PRINT ATEKST$ 3880 CURSOR 42,4 3890 PRINT USING " ###### ":KONTO1; 3900 EXEC TUD(BLB2$,UBELØB$,0,0) 3910 PRINT UBELØB$; 3920 PRINT USING " ######":KONTO2 3930 ENDPROC 3940 PROC NYDATO 3950 REPEAT 3960 CURSOR 3,23 3970 PRINT "Ny dato (ÅÅMMDD)"+BLK$(1:51) 3980 CURSOR 11,23 3990 INPUT DAT$ 4000 EXEC NRTEST(DAT$) 4010 UNTIL KTAL>79 AND (P DIV 100) MOD 100<13 AND P MOD 100<32 4020 BDATO=P 4030 ENDPROC 4040 K1$="P641220:SYSTEM1" 4050 REPEAT 4060 OPEN K1$,R 4070 IF STATUS(K1$)<>0 THEN 4080 CLEAR 4090 CURSOR 25,13 4100 INPUT "Isæt plade nr. 20 ,tast RETURN",A$ 4110 EXEC NRTEST(A$) 4120 P=0 4130 ELSE 4140 P=-1 4150 ENDIF 4160 UNTIL P=-1 4170 GET K1$,1:MFANTAL,MDANTAL,MKANTAL 4180 EXEC FEJL(9,1,K1$) 4190 GET K1$,2:MKASPOST,MPPOST,MBHPOST 4200 EXEC FEJL(9,2,K1$) 4210 GET K1$,4:MKPOST,MFAK,MVGR,MKGR 4220 EXEC FEJL(9,3,K1$) 4230 GET K1$,5:MKRGR 4240 EXEC FEJL(9,4,K1$) 4250 GET K1$,8:DIVNR,DIVDNR,DIFNR,DTAL 4260 EXEC FEJL(9,5,K1$) 4270 GET K1$,9:KRTAL 4280 EXEC FEJL(9,6,K1$) 4290 GET K1$,10:N$ 4300 EXEC FEJL(9,7,K1$) 4310 GET K1$,11:K2$ 4320 EXEC FEJL(9,8,K1$) 4330 GET K1$,12:K3$ 4340 EXEC FEJL(9,9,K1$) 4350 GET K1$,13:K4$ 4360 EXEC FEJL(9,10,K1$) 4370 GET K1$,15:K5$ 4380 EXEC FEJL(9,11,K1$) 4390 GET K1$,16:K6$ 4400 EXEC FEJL(9,12,K1$) 4410 GET K1$,17:K7$ 4420 EXEC FEJL(9,13,K1$) 4430 GET K1$,20:K8$ 4440 EXEC FEJL(9,14,K1$) 4450 GET K1$,21:K9$ 4460 EXEC FEJL(9,15,K1$) 4470 GET K1$,36:K10$ 4480 EXEC FEJL(9,16,K1$) 4490 CLOSE K1$ 4500 EXEC FEJL(9,17,K1$) 4510 DIM FTAB1(MFANTAL DIV 4),DTAB1(MDANTAL DIV 4),KTAB1(MKANTAL DIV 4) 4520 DIM FTAB(4,2),DTAB(4,2),KTAB(4,2) 4530 K2$=N$+K2$;K3$=N$+K3$;K4$=N$+K4$;K5$=N$+K5$;K6$=N$+K6$;K7$=N$+K7$ 4540 K8$=N$+K8$;K9$=N$+K9$;K10$=N$+K10$ 4550 OPEN K10$,R 4560 EXEC FEJL(9,18,K10$) 4570 GET K10$,2:T1(1),T1(2),T1(3),T1(4),T1(5),T1(6),T1(7),T1(8),T1(9) 4580 EXEC FEJL(9,19,K10$) 4590 FOR I=1 TO 3 4600 H=(I-1)*3+1 4610 GET K10$,I+5:TFIL$(H),TFIL$(H+1),TFIL$(H+2) 4620 EXEC FEJL(9,20,K10$) 4630 NEXT I 4640 GET K10$,12:T2(1),T2(2),T2(3),T2(4),T2(5),T2(6),T2(7),T2(8),T2(9) 4650 EXEC FEJL(9,21,K10$) 4660 GET K10$,13:T3(1),T3(2),T3(3),T3(4),T3(5),T3(6),T3(7),T3(8),T3(9) 4670 EXEC FEJL(9,22,K10$) 4680 CLOSE K10$ 4690 EXEC FEJL(9,23,K10$) 4700 OPEN K2$,R 4710 EXEC FEJL(9,24,K2$) 4720 OPEN K3$,R 4730 EXEC FEJL(9,25,K3$) 4740 OPEN K4$,R 4750 EXEC FEJL(9,26,K4$) 4760 OPEN K5$,R 4770 EXEC FEJL(9,27,K5$) 4780 OPEN K6$,R 4790 EXEC FEJL(9,28,K6$) 4800 OPEN K7$,R 4810 EXEC FEJL(9,29,K7$) 4820 OPEN K8$,W 4830 EXEC FEJL(9,30,K8$) 4840 PSIDENR=T1(5);DATO=T1(7);BBILAG=T1(8);PPOST=T2(1);BHPOSTNR=T3(1) 4850 EXEC INDTAB1(FTAB1,MFANTAL,K2$) 4860 EXEC INDTAB1(DTAB1,MDANTAL,K3$) 4870 EXEC INDTAB1(KTAB1,MKANTAL,K4$) 4880 BLK$=" " 4890 BLK$=BLK$+" " 4900 TAL4$="0+";BDATO=DATO;CPIL=PPOST+1;BPIL=CPIL;APIL=0;LINIENR=1;MULTI=0 4910 CNR=1;SALDO$="0+";STREG$="-----------------------------------" 4920 STREG$=STREG$+STREG$;DPIL=0 4930 CLEAR 4940 EXEC UDHOVED 4950 REPEAT 4960 CASE CNR OF 4970 STOP 4980 WHEN 1 4990 REPEAT 5000 REPEAT 5010 CURSOR 3,23 5020 PRINT "Bilag (0:færdig,RETURN:automatisk,A:annuller,D:ny dato,"; 5030 PRINT "M:afslut multi)" 5040 CURSOR 8,23 5050 INPUT BIL$ 5060 EXEC NRTEST(BIL$) 5070 UNTIL P=>-4 AND TEST2=0 AND L<=6 5080 FPIL=CPIL+DPIL 5090 IF (FPIL>MPPOST-3 OR APIL=35 OR FPIL+T3(1)-3>MBHPOST) AND P<>-3 THEN P=0 5100 IF P<>0 AND P>-2 AND LINIENR=19 THEN 5110 CLEAR 5120 EXEC UDHOVED 5130 LINIENR=1 5140 EXEC SYSGEM 5150 EXEC UDLINIE 5160 LINIENR=LINIENR+1 5170 ENDIF 5180 REPEAT 5190 CBILAG=-1 5200 CASE P OF 5210 BILAG=P 5220 BBILAG=P 5230 CURSOR 1,LINIENR+3 5240 PRINT USING "### #######":LINIENR,BILAG 5250 P=-9 5260 CNR=2 5270 WHEN 0 5280 IF MULTI=0 THEN 5290 IF CPIL>MPPOST-3 OR FPIL+T3(1)-3>MBHPOST THEN 5300 REPEAT 5310 CURSOR 3,23 5320 PRINT "Ikke plads til flere posteringer , tast RETURN";BLK$(1:30) 5330 CURSOR 50,23 5340 INPUT A$ 5350 EXEC NRTEST(A$) 5360 UNTIL P=-1 5370 ENDIF 5380 P=-9 5390 CNR=6 5400 ELSE 5410 IF FPIL>MPPOST-3 OR APIL=35 OR FPIL+T3(1)-3>MBHPOST THEN 5420 EXEC CALC(4,TAL4$,SALDO$,TAL4$) 5430 IF SI<>0 THEN 5440 EXEC TUD(SALDO$,UBELØB$,1,0) 5450 REPEAT 5460 CURSOR 3,23 5470 PRINT "Ikke plads til flere posteringer,";UBELØB$;" på differencekonto"; 5480 PRINT ",RETURN" 5490 CURSOR 76,23 5500 INPUT A$ 5510 EXEC NRTEST(A$) 5520 UNTIL P=-1 5530 APIL=APIL+1;DPIL=DPIL+2 5540 IF SALDO$(LEN(SALDO$))="+" THEN 5550 CEA$(APIL)=SALDO$(1:LEN(SALDO$)-1)+"-" 5560 ELSE 5570 CEA$(APIL)=SALDO$(1:LEN(SALDO$)-1)+"+" 5580 ENDIF 5590 EXEC CALC(0,SALDO$,CEA$(APIL),SALDO$) 5600 KA(APIL)=DIFNR;TKA(APIL)=10;DA(APIL)=BDATO;CA(APIL)=BILAG 5610 TA$(APIL)="Difference multipostering" 5620 ENDIF 5630 CBILAG=0 5640 P=-4 5650 ELSE 5660 REPEAT 5670 CURSOR 3,23 5680 PRINT "Multipostering ikke afsluttet , tast RETURN"+BLK$(1:34) 5690 CURSOR 46,23 5700 INPUT A$ 5710 EXEC NRTEST(A$) 5720 UNTIL P=-1 5730 ENDIF 5740 ENDIF 5750 WHEN -1 5760 IF MULTI=0 THEN BBILAG=BBILAG+1 5770 P=BBILAG 5780 CBILAG=0 5790 WHEN -2 5800 EXEC NYDATO 5810 EXEC UDHOVED 5820 WHEN -3 5830 EXEC PSLET(0) 5840 WHEN -4 5850 IF MULTI=0 THEN EXIT 5860 EXEC CALC(4,TAL4$,SALDO$,TAL4$) 5870 IF SI<>0 THEN 5880 REPEAT 5890 EXEC TUD(SALDO$,UBELØB$,1,0) 5900 REPEAT 5910 CURSOR 3,23 5920 PRINT "Multipostering kan ikke afsluttes , difference :";UBELØB$;" tas"; 5930 PRINT "t RETURN " 5940 CURSOR 79,23 5950 INPUT A$ 5960 EXEC NRTEST(A$) 5970 UNTIL P=-1 5980 CLEAR 5990 X=1 6000 REPEAT 6010 EXEC UDHOVED 6020 REPEAT 6030 IF CA(X)<>0 AND LEN(CEA$(X))>0 THEN 6040 EXEC CALC(5,CEA$(X),TAL4$,UBELØB$) 6050 CURSOR 1,(X-1) MOD 18+4 6060 PRINT USING "### ####### ":X,CA(X); 6070 IF TKA(X)>9 THEN 6080 PRINT TA$(X); 6090 ELSE 6100 IF TKA(X)<>0 THEN PRINT TFIL$(TKA(X)); 6110 ENDIF 6120 LOG=0 6130 CURSOR 42,(X-1) MOD 18+4 6140 IF CEA$(X,LEN(CEA$(X)))="-" THEN LOG=1 6150 PRINT USING " ###### ":KA(X)+100000*(LOG=1); 6160 PRINT UBELØB$(1:13); 6170 PRINT USING " ######":KA(X)+100000*(LOG=0) 6180 ENDIF 6190 X=X+1 6200 UNTIL X=APIL+1 OR X MOD 19=0 6210 REPEAT 6220 REPEAT 6230 CURSOR 3,23 6240 PRINT "Type (1-36:Annulering,0:færdig,N:ny post,RETURN:ny sid"; 6250 PRINT "e)"+BLK$(1:10) 6260 CURSOR 8,23 6270 INPUT RET$ 6280 EXEC NRTEST(RET$) 6290 UNTIL (P<37 AND P>-2) OR P=-8 6300 CASE P OF 6310 IF P<=APIL AND P<X THEN 6320 EXEC PSLET(1) 6330 ENDIF 6340 WHEN 0 6350 EXEC CALC(4,TAL4$,SALDO$,TAL4$) 6360 IF SI<>0 THEN 6370 P=-2 6380 ELSE 6390 EXEC PPUT 6400 MULTI=0 6410 ENDIF 6420 WHEN -1 6430 IF APIL>18 THEN 6440 CLEAR 6450 ELSE 6460 P=1 6470 ENDIF 6480 WHEN -8 6490 P=0 6500 LINIENR=(X-1) MOD 18+1 6510 ENDCASE 6520 UNTIL P<1 AND P>-3 6530 UNTIL P=0 OR P=-2 6540 UNTIL P=0 6550 ELSE 6560 EXEC PPUT 6570 MULTI=0 6580 ENDIF 6590 ENDCASE 6600 UNTIL CBILAG=-1 6610 UNTIL P=-9 6620 WHEN 2 6630 REPEAT 6640 REPEAT 6650 CURSOR 3,23 6660 PRINT "Tekst (max 25 tegn,0-19:tekstkode)"; 6670 PRINT BLK$(1:14) 6680 CURSOR 10,23 6690 INPUT BTEKST$ 6700 UNTIL LEN(BTEKST$)<26 6710 IF LEN(BTEKST$)<3 THEN 6720 EXEC NRTEST(BTEKST$) 6730 ELSE 6740 P=20;TEST2=0 6750 ENDIF 6760 UNTIL P=>0 AND P<21 AND TEST2=0 AND P<>10 6770 IF P<>0 THEN 6780 ATK=P MOD 10 6790 IF P=20 THEN 6800 P=10 6810 TEKST$=BTEKST$ 6820 ATEKST$=TEKST$ 6830 ELSE 6840 ATEKST$=TFIL$(ATK)+BLK$(1:15) 6850 IF P>10 THEN 6860 REPEAT 6870 CURSOR 3,23 6880 PRINT "Tekst (max 14 tegn)"+BLK$(1:42) 6890 CURSOR 10,23 6900 INPUT BTEKST$ 6910 UNTIL LEN(BTEKST$)<15 6920 ATEKST$(12,25)=BTEKST$ 6930 TEKST$=ATEKST$ 6940 ENDIF 6950 ENDIF 6960 CURSOR 17,LINIENR+3 6970 PRINT ATEKST$ 6980 ENDIF 6990 CNR=3 7000 TEKSTKODE=P 7010 WHEN 3 7020 REPEAT 7030 REPEAT 7040 CURSOR 3,23 7050 PRINT "Debet-konto (RETURN:overspringes)"+BLK$(1:34) 7060 CURSOR 16,23 7070 INPUT KTN$ 7080 EXEC NRTEST(KTN$) 7090 UNTIL (((KTAL<10 AND KTAL>0) OR KTAL=KRTAL) AND TEST2=0) OR P=-1 7100 IF P=-1 THEN 7110 KONTO1=100000 7120 MULTI=1 7130 OVS=1 7140 CEKS=0 7150 ELSE 7160 OVS=0 7170 KONTO1=P 7180 EXEC KONTOOK 7190 ENDIF 7200 UNTIL P=-1 OR P=-7 7210 EXEC KONTOUD(KONTO1) 7220 WHEN 4 7230 REPEAT 7240 REPEAT 7250 CURSOR 3,23 7260 PRINT "Beløb"+BLK$(1:70) 7270 CURSOR 10,23 7280 INPUT BLB$ 7290 EXEC FORTEGN 7300 EXEC CALC(6,BLB$,TAL4$,UBELØB$) 7310 UNTIL FLAG=0 7320 EXEC CALC(4,BLB$,TAL4$,TAL4$) 7330 UNTIL SI<>0 7340 BLB2$=BLB$ 7350 BLB3$=BLB$(1:LEN(BLB$)-1)+"-" 7360 EXEC TUD(BLB$,UBELØB$,0,0) 7370 CURSOR 55,LINIENR+3 7380 PRINT UBELØB$ 7390 CNR=5 7400 WHEN 5 7410 REPEAT 7420 REPEAT 7430 CURSOR 3,23 7440 PRINT "Kredit-konto (RETURN:overspringes,A:annuller)"; 7450 PRINT " " 7460 CURSOR 17,23 7470 INPUT KTN$ 7480 EXEC NRTEST(KTN$) 7490 UNTIL (((KTAL<10 AND KTAL>0) OR KTAL=KRTAL) AND TEST2=0) OR P=-1 OR P=-3 7500 IF P=-1 THEN 7510 IF OVS=0 THEN 7520 P=0 7530 KONTO2=100000 7540 MULTI=1 7550 EXEC CALC(0,SALDO$,BLB2$,SALDO$) 7560 APIL=APIL+1;DPIL=DPIL+1 7570 KA(APIL)=KONTO1 7580 DA(APIL)=BDATO 7590 CA(APIL)=BILAG 7600 TKA(APIL)=TEKSTKODE 7610 CEA$(APIL)=BLB2$ 7620 IF TEKSTKODE>9 THEN 7630 TA$(APIL)=TEKST$;DPIL=DPIL+1 7640 ELSE 7650 TA$(APIL)=BLK$(1:25) 7660 ENDIF 7670 CEKS=0 7680 EXEC KONTOUD(KONTO2) 7690 ENDIF 7700 ELSE 7710 IF P=-3 THEN 7720 CEKS=1 7730 EXEC KONTOUD(P) 7740 ELSE 7750 MO=MULTI+OVS 7760 CASE MO OF 7770 STOP 7780 WHEN 0 7790 KONTO2=P 7800 EXEC KONTOOK 7810 IF P=-7 THEN 7820 EXEC KONTOUD(KONTO2) 7830 IF CEKS=0 THEN 7840 EXEC PPUT 7850 ENDIF 7860 ENDIF 7870 WHEN 1 7880 REPEAT 7890 CURSOR 3,23 7900 PRINT "Multipostering ikke afsluttet , tast RETURN"+BLK$(1:34) 7910 CURSOR 46,23 7920 INPUT A$ 7930 EXEC NRTEST(A$) 7940 UNTIL P=-1 7950 WHEN 2 7960 KONTO2=P 7970 EXEC KONTOOK 7980 IF P=-7 THEN 7990 EXEC KONTOUD(KONTO2) 8000 IF CEKS=0 THEN 8010 EXEC CALC(0,SALDO$,BLB3$,SALDO$) 8020 APIL=APIL+1;DPIL=DPIL+1 8030 KA(APIL)=KONTO2 8040 DA(APIL)=BDATO 8050 CA(APIL)=BILAG 8060 TKA(APIL)=TEKSTKODE 8070 CEA$(APIL)=BLB3$ 8080 IF TEKSTKODE>9 THEN 8090 TA$(APIL)=TEKST$;DPIL=DPIL+1 8100 ELSE 8110 TA$(APIL)=BLK$(1:25) 8120 ENDIF 8130 ENDIF 8140 ENDIF 8150 ENDCASE 8160 ENDIF 8170 ENDIF 8180 UNTIL P=0 OR P=-3 OR P=-7 8190 WHEN 6 8200 REPEAT 8210 CURSOR 3,23 8220 PRINT "Ønskes afslutning (J/N)"+BLK$(1:54) 8230 CURSOR 27,23 8240 INPUT A$ 8250 EXEC NRTEST(A$) 8260 UNTIL P=-7 OR P=-8 8270 IF P=-7 THEN 8280 MUL$="2" 8290 OPEN K9$,W 8300 EXEC FEJL(9,32,K9$) 8310 FOR I=1 TO CPIL-1 8320 GET K8$,I:KONTO1,DDATO,BILAG,TKO$,BLB2$ 8330 EXEC FEJL(9,33,K8$) 8340 BHPOSTNR=BHPOSTNR+1 8350 PUT K9$,BHPOSTNR:KONTO1,DDATO,BILAG,TKO$,BLB2$,MUL$ 8360 EXEC FEJL(9,34,K9$) 8370 IF ORD(TKO$)-48>9 THEN 8380 I=I+1 8390 BHPOSTNR=BHPOSTNR+1 8400 GET K8$,I:KONTO1,TEKST$ 8410 EXEC FEJL(9,35,K8$) 8420 PUT K9$,BHPOSTNR:KONTO1,TEKST$ 8430 EXEC FEJL(9,36,K9$) 8440 ENDIF 8450 NEXT I 8460 CLOSE K9$ 8470 EXEC FEJL(9,38,K9$) 8480 EXEC PGETUD(PSIDENR) 8490 PPOST=0 8500 ELSE 8510 REPEAT 8520 CURSOR 3,23 8530 PRINT "Ønskes kontroludskrift (J/N)"+BLK$(1:49) 8540 CURSOR 31,23 8550 INPUT A$ 8560 EXEC NRTEST(A$) 8570 UNTIL P=-7 OR P=-8 8580 IF P=-7 THEN 8590 EXEC PGETUD(1) 8600 ENDIF 8610 PPOST=CPIL-1 8620 ENDIF 8630 CNR=-1 8640 ENDCASE 8650 UNTIL CNR=-1 8660 CLOSE K8$ 8670 EXEC FEJL(9,40,K8$) 8680 CLOSE 8690 EXEC SYSGEM 8700 OUTPUT T 8710 CHAIN "P641210:OPSTART" 8720 END
0x0000…004e Line {l1=0x4c, l2=»0100 DIM KONTONAVN$(25),DEBNAVN$(25),N$(6),FNAVN$(25),FUKODE$(1),T1(9),T2(9)«, l3=0x4c}
0x004e…0094 Line {l1=0x44, l2=»0110 DIM KRENAVN$(25),T3(9),K6$(17),K7$(17),K8$(17),K9$(17),K10$(17)«, l3=0x44}
0x0094…00e0 Line {l1=0x4a, l2=»0120 DIM K1$(17),SALDO$(12),DAT$(8),TKO$(1),BELØB1$(12),MUL$(1),TEKST$(25)«, l3=0x4a}
0x00e0…012c Line {l1=0x4a, l2=»0130 DIM K4$(17),TFIL$(9,10),UBELØB$(14),BELØB2$(12),KA(36),DA(36),TKA(36)«, l3=0x4a}
0x012c…0176 Line {l1=0x48, l2=»0140 DIM TA$(36,25),A$(2),TAL4$(12),OP1$(12),OP2$(12),STREG$(70),K5$(17)«, l3=0x48}
0x0176…01c2 Line {l1=0x4a, l2=»0150 DIM RES$(14),BIL$(8),RET$(3),BTEKST$(26),ATEKST$(26),KTN$(6),BLB$(12)«, l3=0x4a}
0x01c2…020c Line {l1=0x48, l2=»0160 DIM K2$(17),BLB2$(12),BLB3$(12),BLK$(76),CA(36),CEA$(36,12),K3$(17)«, l3=0x48}
0x020c…022a Line {l1=0x1c, l2=»0170 PROC CALC(AR3,AB,AC,ES)«, l3=0x1c}
0x022a…0269 Line {l1=0x3d, l2=»0180 OP1$=AB$;OP2$=AC$;RES$=ES$;SI=0;FLAG=0;ART=AR3-6*(AR3>5)«, l3=0x3d}
0x0269…0283 Line {l1=0x18, l2=»0190 CALL "P641210:REGN"«, l3=0x18}
0x0283…0292 Line {l1=0x0d, l2=»0200 ES$=RES$«, l3=0x0d}
0x0292…02a8 Line {l1=0x14, l2=»0210 IF AR3<>6 THEN «, l3=0x14}
0x02a8…02c4 Line {l1=0x1a, l2=»0220 IF FLAG<>0 THEN STOP «, l3=0x1a}
0x02c4…02d1 Line {l1=0x0b, l2=»0230 ENDIF «, l3=0x0b}
0x02d1…02e0 Line {l1=0x0d, l2=»0240 ENDPROC «, l3=0x0d}
0x02e0…0300 Line {l1=0x1e, l2=»0250 PROC KTNAVN(KOTAL,KKONTO)«, l3=0x1e}
0x0300…030d Line {l1=0x0b, l2=»0260 CEKS=1«, l3=0x0b}
0x030d…0322 Line {l1=0x13, l2=»0270 CASE KOTAL OF «, l3=0x13}
0x0322…035c Line {l1=0x38, l2=»0280 EXEC FINDPOST1(FTAB1,FTAB,MFANTAL,KKONTO,FPIL3,K2$)«, l3=0x38}
0x035c…0372 Line {l1=0x14, l2=»0290 IF CEKS=0 THEN «, l3=0x14}
0x0372…0386 Line {l1=0x12, l2=»0300 EXEC HENTPOST«, l3=0x12}
0x0386…03ac Line {l1=0x24, l2=»0310 IF INT(ORD(FUKODE$)-48)=0 THEN «, l3=0x24}
0x03ac…03c4 Line {l1=0x16, l2=»0320 KONTONAVN$=FNAVN$«, l3=0x16}
0x03c4…03d0 Line {l1=0x0a, l2=»0330 ELSE «, l3=0x0a}
0x03d0…03dd Line {l1=0x0b, l2=»0340 CEKS=1«, l3=0x0b}
0x03dd…03ea Line {l1=0x0b, l2=»0350 ENDIF «, l3=0x0b}
0x03ea…03f7 Line {l1=0x0b, l2=»0360 ENDIF «, l3=0x0b}
0x03f7…0407 Line {l1=0x0e, l2=»0370 WHEN DTAL«, l3=0x0e}
0x0407…042d Line {l1=0x24, l2=»0380 IF DTAL*10000+MKGR<KKONTO THEN «, l3=0x24}
0x042d…0467 Line {l1=0x38, l2=»0390 EXEC FINDPOST1(DTAB1,DTAB,MDANTAL,KKONTO,DPIL3,K3$)«, l3=0x38}
0x0467…047d Line {l1=0x14, l2=»0400 IF CEKS=0 THEN «, l3=0x14}
0x047d…0492 Line {l1=0x13, l2=»0410 EXEC HENTDPOST«, l3=0x13}
0x0492…04ac Line {l1=0x18, l2=»0420 KONTONAVN$=DEBNAVN$«, l3=0x18}
0x04ac…04b9 Line {l1=0x0b, l2=»0430 ENDIF «, l3=0x0b}
0x04b9…04c5 Line {l1=0x0a, l2=»0440 ELSE «, l3=0x0a}
0x04c5…04d2 Line {l1=0x0b, l2=»0450 CEKS=1«, l3=0x0b}
0x04d2…04df Line {l1=0x0b, l2=»0460 ENDIF «, l3=0x0b}
0x04df…04f0 Line {l1=0x0f, l2=»0470 WHEN KRTAL«, l3=0x0f}
0x04f0…0517 Line {l1=0x25, l2=»0480 IF KRTAL*1000+MKRGR<KKONTO THEN «, l3=0x25}
0x0517…0551 Line {l1=0x38, l2=»0490 EXEC FINDPOST1(KTAB1,KTAB,MKANTAL,KKONTO,KPIL3,K4$)«, l3=0x38}
0x0551…0567 Line {l1=0x14, l2=»0500 IF CEKS=0 THEN «, l3=0x14}
0x0567…057d Line {l1=0x14, l2=»0510 EXEC HENTKRPOST«, l3=0x14}
0x057d…0597 Line {l1=0x18, l2=»0520 KONTONAVN$=KRENAVN$«, l3=0x18}
0x0597…05a4 Line {l1=0x0b, l2=»0530 ENDIF «, l3=0x0b}
0x05a4…05b1 Line {l1=0x0b, l2=»0540 ENDIF «, l3=0x0b}
0x05b1…05c0 Line {l1=0x0d, l2=»0550 ENDCASE «, l3=0x0d}
0x05c0…05d6 Line {l1=0x14, l2=»0560 IF CEKS=1 THEN «, l3=0x14}
0x05d6…0603 Line {l1=0x2b, l2=»0570 KONTONAVN$="Konto eksisterer ikke "«, l3=0x2b}
0x0603…0610 Line {l1=0x0b, l2=»0580 ENDIF «, l3=0x0b}
0x0610…061f Line {l1=0x0d, l2=»0590 ENDPROC «, l3=0x0d}
0x061f…0634 Line {l1=0x13, l2=»0600 PROC HENTDPOST«, l3=0x13}
0x0634…064a Line {l1=0x14, l2=»0610 S=DTAB(DPIL3,2)«, l3=0x14}
0x064a…0669 Line {l1=0x1d, l2=»0620 GET K6$,S:DEBNR,DEBNAVN$«, l3=0x1d}
0x0669…0682 Line {l1=0x17, l2=»0630 EXEC FEJL(8,2,K6$)«, l3=0x17}
0x0682…06ab Line {l1=0x27, l2=»0640 IF DEBNR<>DTAB(DPIL3,1) THEN STOP «, l3=0x27}
0x06ab…06ba Line {l1=0x0d, l2=»0650 ENDPROC «, l3=0x0d}
0x06ba…06d0 Line {l1=0x14, l2=»0660 PROC HENTKRPOST«, l3=0x14}
0x06d0…06e6 Line {l1=0x14, l2=»0670 S=KTAB(KPIL3,2)«, l3=0x14}
0x06e6…0705 Line {l1=0x1d, l2=»0680 GET K7$,S:KRENR,KRENAVN$«, l3=0x1d}
0x0705…071e Line {l1=0x17, l2=»0690 EXEC FEJL(1,1,K7$)«, l3=0x17}
0x071e…0747 Line {l1=0x27, l2=»0700 IF KRENR<>KTAB(KPIL3,1) THEN STOP «, l3=0x27}
0x0747…0756 Line {l1=0x0d, l2=»0710 ENDPROC «, l3=0x0d}
0x0756…076a Line {l1=0x12, l2=»0720 PROC HENTPOST«, l3=0x12}
0x076a…0780 Line {l1=0x14, l2=»0730 S=FTAB(FPIL3,2)«, l3=0x14}
0x0780…079b Line {l1=0x19, l2=»0740 GET K5$,S:FNR,FNAVN$«, l3=0x19}
0x079b…07b4 Line {l1=0x17, l2=»0750 EXEC FEJL(3,2,K5$)«, l3=0x17}
0x07b4…07db Line {l1=0x25, l2=»0760 IF FNR<>FTAB(FPIL3,1) THEN STOP «, l3=0x25}
0x07db…07f5 Line {l1=0x18, l2=»0770 GET K5$,S+2:FUKODE$«, l3=0x18}
0x07f5…080e Line {l1=0x17, l2=»0780 EXEC FEJL(3,4,K5$)«, l3=0x17}
0x080e…081d Line {l1=0x0d, l2=»0790 ENDPROC «, l3=0x0d}
0x081d…084e Line {l1=0x2f, l2=»0800 PROC FINDPOST1(TAB4,Q,MANT2,NØGL5,PIL6,L8)«, l3=0x2f}
0x084e…089b Line {l1=0x4b, l2=»0810 PIL1=MANT2 DIV 8;PIL6=PIL1;CEKS=1;MANT3=MANT2 DIV 4;MANT4=MANT2 DIV 32«, l3=0x4b}
0x089b…08a9 Line {l1=0x0c, l2=»0820 REPEAT «, l3=0x0c}
0x08a9…08d8 Line {l1=0x2d, l2=»0830 IF NØGL5=TAB4(PIL6) OR PIL1=1 THEN EXIT «, l3=0x2d}
0x08d8…08f2 Line {l1=0x18, l2=»0840 PIL1=(PIL1+1) DIV 2«, l3=0x18}
0x08f2…0920 Line {l1=0x2c, l2=»0850 PIL6=PIL6+PIL1*(1-2*(NØGL5<TAB4(PIL6)))«, l3=0x2c}
0x0920…093c Line {l1=0x1a, l2=»0860 IF PIL6<1 THEN PIL6=1«, l3=0x1a}
0x093c…0960 Line {l1=0x22, l2=»0870 IF PIL6>MANT3 THEN PIL6=MANT3«, l3=0x22}
0x0960…0973 Line {l1=0x11, l2=»0880 UNTIL PIL1=0«, l3=0x11}
0x0973…09a7 Line {l1=0x32, l2=»0890 IF TAB4(PIL6)>NØGL5 THEN PIL6=PIL6-1*(PIL6>1)«, l3=0x32}
0x09a7…09bd Line {l1=0x14, l2=»0900 PIL6=MANT4+PIL6«, l3=0x14}
0x09bd…0a08 Line {l1=0x49, l2=»0910 GET L8$,PIL6:Q(1,1),Q(1,2),Q(2,1),Q(2,2),Q(3,1),Q(3,2),Q(4,1),Q(4,2)«, l3=0x49}
0x0a08…0a21 Line {l1=0x17, l2=»0920 EXEC FEJL(1,1,L8$)«, l3=0x17}
0x0a21…0a37 Line {l1=0x14, l2=»0930 FOR PIL6=1 TO 4«, l3=0x14}
0x0a37…0a5b Line {l1=0x22, l2=»0940 IF NØGL5=Q(PIL6,1) THEN EXIT «, l3=0x22}
0x0a5b…0a6b Line {l1=0x0e, l2=»0950 NEXT PIL6«, l3=0x0e}
0x0a6b…0a87 Line {l1=0x1a, l2=»0960 IF PIL6<5 THEN CEKS=0«, l3=0x1a}
0x0a87…0a96 Line {l1=0x0d, l2=»0970 ENDPROC «, l3=0x0d}
0x0a96…0ab5 Line {l1=0x1d, l2=»0980 PROC INDTAB1(Z,MANT5,L7)«, l3=0x1d}
0x0ab5…0acd Line {l1=0x16, l2=»0990 PIL1=MANT5 DIV 32«, l3=0x16}
0x0acd…0ae3 Line {l1=0x14, l2=»1000 FOR I=1 TO PIL1«, l3=0x14}
0x0ae3…0af5 Line {l1=0x10, l2=»1010 H=(I-1)*8+1«, l3=0x10}
0x0af5…0b3b Line {l1=0x44, l2=»1020 GET L7$,I:Z(H),Z(H+1),Z(H+2),Z(H+3),Z(H+4),Z(H+5),Z(H+6),Z(H+7)«, l3=0x44}
0x0b3b…0b54 Line {l1=0x17, l2=»1030 EXEC FEJL(2,1,L7$)«, l3=0x17}
0x0b54…0b61 Line {l1=0x0b, l2=»1040 NEXT I«, l3=0x0b}
0x0b61…0b70 Line {l1=0x0d, l2=»1050 ENDPROC «, l3=0x0d}
0x0b70…0b8b Line {l1=0x19, l2=»1060 PROC DATOUD(DA1,DA2)«, l3=0x19}
0x0b8b…0b99 Line {l1=0x0c, l2=»1070 DA3=DA1«, l3=0x0c}
0x0b99…0baf Line {l1=0x14, l2=»1080 DA2$=" "«, l3=0x14}
0x0baf…0bca Line {l1=0x19, l2=»1090 FOR J=8 TO 1 STEP -1«, l3=0x19}
0x0bca…0be3 Line {l1=0x17, l2=»1100 IF J MOD 3=0 THEN «, l3=0x17}
0x0be3…0bf5 Line {l1=0x10, l2=»1110 DA2$(J)="."«, l3=0x10}
0x0bf5…0c01 Line {l1=0x0a, l2=»1120 ELSE «, l3=0x0a}
0x0c01…0c22 Line {l1=0x1f, l2=»1130 DA2$(J)=CHR(DA3 MOD 10+48)«, l3=0x1f}
0x0c22…0c37 Line {l1=0x13, l2=»1140 DA3=DA3 DIV 10«, l3=0x13}
0x0c37…0c44 Line {l1=0x0b, l2=»1150 ENDIF «, l3=0x0b}
0x0c44…0c51 Line {l1=0x0b, l2=»1160 NEXT J«, l3=0x0b}
0x0c51…0c60 Line {l1=0x0d, l2=»1170 ENDPROC «, l3=0x0d}
0x0c60…0c78 Line {l1=0x16, l2=»1180 PROC PGETUD(SIDE)«, l3=0x16}
0x0c78…0c8e Line {l1=0x14, l2=»1190 IF CPIL>1 THEN «, l3=0x14}
0x0c8e…0cab Line {l1=0x1b, l2=»1200 I=1;SIDE=1;SALDO$="0+"«, l3=0x1b}
0x0cab…0cb8 Line {l1=0x0b, l2=»1210 CLEAR «, l3=0x0b}
0x0cb8…0cc6 Line {l1=0x0c, l2=»1220 REPEAT «, l3=0x0c}
0x0cc6…0cd8 Line {l1=0x10, l2=»1230 CURSOR 8,13«, l3=0x10}
0x0cd8…0d23 Line {l1=0x49, l2=»1240 INPUT "Monter papir til udskrift af posteringsark og tast RETURN",A$«, l3=0x49}
0x0d23…0d3b Line {l1=0x16, l2=»1250 UNTIL ORD(A$)=255«, l3=0x16}
0x0d3b…0d49 Line {l1=0x0c, l2=»1260 REPEAT «, l3=0x0c}
0x0d49…0d66 Line {l1=0x1b, l2=»1270 EXEC DATOUD(DATO,DAT$)«, l3=0x1b}
0x0d66…0d75 Line {l1=0x0d, l2=»1280 OUTPUT P«, l3=0x0d}
0x0d75…0d85 Line {l1=0x0e, l2=»1290 PRINT " "«, l3=0x0e}
0x0d85…0dce Line {l1=0x47, l2=»1300 PRINT TAB(9);CHR(14);"Posteringsark";CHR(15);TAB(44);"Dato:";DAT$;«, l3=0x47}
0x0dce…0de3 Line {l1=0x13, l2=»1310 PRINT TAB(61);«, l3=0x13}
0x0de3…0e06 Line {l1=0x21, l2=»1320 PRINT USING "Side:####":SIDE«, l3=0x21}
0x0e06…0e18 Line {l1=0x10, l2=»1330 SIDE=SIDE+1«, l3=0x10}
0x0e18…0e2c Line {l1=0x12, l2=»1340 PRINT CHR(10)«, l3=0x12}
0x0e2c…0e7b Line {l1=0x4d, l2=»1350 PRINT TAB(3);"Bilag Tekst";TAB(42);"Debet Beløb Kredit"«, l3=0x4d}
0x0e7b…0e95 Line {l1=0x18, l2=»1360 PRINT TAB(3);STREG$«, l3=0x18}
0x0e95…0ea3 Line {l1=0x0c, l2=»1370 LINIE=1«, l3=0x0c}
0x0ea3…0eb1 Line {l1=0x0c, l2=»1380 REPEAT «, l3=0x0c}
0x0eb1…0ee4 Line {l1=0x31, l2=»1390 GET K8$,I:KONTO1,DDATO,BILAG,TKO$,BLB2$,MUL$«, l3=0x31}
0x0ee4…0efd Line {l1=0x17, l2=»1400 EXEC FEJL(3,2,K8$)«, l3=0x17}
0x0efd…0f1a Line {l1=0x1b, l2=»1410 TEKSTKODE=ORD(TKO$)-48«, l3=0x1b}
0x0f1a…0f33 Line {l1=0x17, l2=»1420 MULTI=ORD(MUL$)-48«, l3=0x17}
0x0f33…0f3f Line {l1=0x0a, l2=»1430 I=I+1«, l3=0x0a}
0x0f3f…0f5a Line {l1=0x19, l2=»1440 IF TEKSTKODE>9 THEN «, l3=0x19}
0x0f5a…0f78 Line {l1=0x1c, l2=»1450 GET K8$,I:KONTO1,TEKST$«, l3=0x1c}
0x0f78…0f91 Line {l1=0x17, l2=»1460 EXEC FEJL(3,3,K8$)«, l3=0x17}
0x0f91…0f9d Line {l1=0x0a, l2=»1470 I=I+1«, l3=0x0a}
0x0f9d…0fa9 Line {l1=0x0a, l2=»1480 ELSE «, l3=0x0a}
0x0fa9…0fc1 Line {l1=0x16, l2=»1490 TEKST$=BLK$(1:25)«, l3=0x16}
0x0fc1…0ffa Line {l1=0x37, l2=»1500 IF TEKSTKODE<>0 THEN TEKST$(1:10)=TFIL$(TEKSTKODE)«, l3=0x37}
0x0ffa…1007 Line {l1=0x0b, l2=»1510 ENDIF «, l3=0x0b}
0x1007…101e Line {l1=0x15, l2=»1520 IF MULTI=0 THEN «, l3=0x15}
0x101e…1045 Line {l1=0x25, l2=»1530 EXEC CALC(1,SALDO$,BLB2$,SALDO$)«, l3=0x25}
0x1045…105c Line {l1=0x15, l2=»1540 GET K8$,I:KONTO2«, l3=0x15}
0x105c…1075 Line {l1=0x17, l2=»1550 EXEC FEJL(3,4,K8$)«, l3=0x17}
0x1075…1081 Line {l1=0x0a, l2=»1560 I=I+1«, l3=0x0a}
0x1081…10a1 Line {l1=0x1e, l2=»1570 IF TEKSTKODE>9 THEN I=I+1«, l3=0x1e}
0x10a1…10ad Line {l1=0x0a, l2=»1580 ELSE «, l3=0x0a}
0x10ad…10d2 Line {l1=0x23, l2=»1590 IF BLB2$(LEN(BLB2$))="-" THEN «, l3=0x23}
0x10d2…10e6 Line {l1=0x12, l2=»1600 KONTO2=KONTO1«, l3=0x12}
0x10e6…10fa Line {l1=0x12, l2=»1610 KONTO1=100000«, l3=0x12}
0x10fa…1106 Line {l1=0x0a, l2=»1620 ELSE «, l3=0x0a}
0x1106…111a Line {l1=0x12, l2=»1630 KONTO2=100000«, l3=0x12}
0x111a…1127 Line {l1=0x0b, l2=»1640 ENDIF «, l3=0x0b}
0x1127…1134 Line {l1=0x0b, l2=»1650 ENDIF «, l3=0x0b}
0x1134…115b Line {l1=0x25, l2=»1660 EXEC CALC(0,SALDO$,BLB2$,SALDO$)«, l3=0x25}
0x115b…1182 Line {l1=0x25, l2=»1670 PRINT USING "####### ":BILAG;«, l3=0x25}
0x1182…119e Line {l1=0x1a, l2=»1680 PRINT TEKST$;TAB(39);«, l3=0x1a}
0x119e…11c7 Line {l1=0x27, l2=»1690 PRINT USING " ###### ":KONTO1;«, l3=0x27}
0x11c7…11e9 Line {l1=0x20, l2=»1700 EXEC TUD(BLB2$,UBELØB$,0,0)«, l3=0x20}
0x11e9…11fe Line {l1=0x13, l2=»1710 PRINT UBELØB$;«, l3=0x13}
0x11fe…1223 Line {l1=0x23, l2=»1720 PRINT USING " ######":KONTO2«, l3=0x23}
0x1223…1237 Line {l1=0x12, l2=»1730 LINIE=LINIE+1«, l3=0x12}
0x1237…1256 Line {l1=0x1d, l2=»1740 UNTIL LINIE=37 OR I=CPIL«, l3=0x1d}
0x1256…127a Line {l1=0x22, l2=»1750 IF LINIE=37 AND I<>CPIL THEN «, l3=0x22}
0x127a…12ae Line {l1=0x32, l2=»1760 PRINT CHR(10);CHR(10);CHR(10);CHR(10);CHR(10)«, l3=0x32}
0x12ae…12ba Line {l1=0x0a, l2=»1770 ELSE «, l3=0x0a}
0x12ba…12d6 Line {l1=0x1a, l2=»1780 FOR LINIE=LINIE TO 36«, l3=0x1a}
0x12d6…12eb Line {l1=0x13, l2=»1790 PRINT CHR(10);«, l3=0x13}
0x12eb…12fc Line {l1=0x0f, l2=»1800 NEXT LINIE«, l3=0x0f}
0x12fc…130c Line {l1=0x0e, l2=»1810 PRINT " "«, l3=0x0e}
0x130c…1326 Line {l1=0x18, l2=»1820 PRINT TAB(3);STREG$«, l3=0x18}
0x1326…1349 Line {l1=0x21, l2=»1830 EXEC TUD(SALDO$,UBELØB$,1,0)«, l3=0x21}
0x1349…138a Line {l1=0x3f, l2=»1840 PRINT TAB(27);CHR(14);"Difference";CHR(15);TAB(43);UBELØB$«, l3=0x3f}
0x138a…13a4 Line {l1=0x18, l2=»1850 PRINT TAB(3);STREG$«, l3=0x18}
0x13a4…13b8 Line {l1=0x12, l2=»1860 PRINT CHR(10)«, l3=0x12}
0x13b8…13c7 Line {l1=0x0d, l2=»1870 OUTPUT T«, l3=0x0d}
0x13c7…13d4 Line {l1=0x0b, l2=»1880 ENDIF «, l3=0x0b}
0x13d4…13e7 Line {l1=0x11, l2=»1890 UNTIL I=CPIL«, l3=0x11}
0x13e7…13f4 Line {l1=0x0b, l2=»1900 ENDIF «, l3=0x0b}
0x13f4…1403 Line {l1=0x0d, l2=»1910 ENDPROC «, l3=0x0d}
0x1403…1413 Line {l1=0x0e, l2=»1920 PROC PPUT«, l3=0x0e}
0x1413…142c Line {l1=0x17, l2=»1930 MUL$=CHR(MULTI+48)«, l3=0x17}
0x142c…1443 Line {l1=0x15, l2=»1940 IF MULTI=0 THEN «, l3=0x15}
0x1443…1453 Line {l1=0x0e, l2=»1950 BPIL=CPIL«, l3=0x0e}
0x1453…1470 Line {l1=0x1b, l2=»1960 TKO$=CHR(TEKSTKODE+48)«, l3=0x1b}
0x1470…14a6 Line {l1=0x34, l2=»1970 PUT K8$,CPIL:KONTO1,BDATO,BILAG,TKO$,BLB2$,MUL$«, l3=0x34}
0x14a6…14bf Line {l1=0x17, l2=»1980 EXEC FEJL(2,2,K8$)«, l3=0x17}
0x14bf…14d1 Line {l1=0x10, l2=»1990 CPIL=CPIL+1«, l3=0x10}
0x14d1…14ec Line {l1=0x19, l2=»2000 IF TEKSTKODE>9 THEN «, l3=0x19}
0x14ec…150d Line {l1=0x1f, l2=»2010 PUT K8$,CPIL:KONTO1,TEKST$«, l3=0x1f}
0x150d…1526 Line {l1=0x17, l2=»2020 EXEC FEJL(2,3,K8$)«, l3=0x17}
0x1526…1538 Line {l1=0x10, l2=»2030 CPIL=CPIL+1«, l3=0x10}
0x1538…1545 Line {l1=0x0b, l2=»2040 ENDIF «, l3=0x0b}
0x1545…157b Line {l1=0x34, l2=»2050 PUT K8$,CPIL:KONTO2,BDATO,BILAG,TKO$,BLB3$,MUL$«, l3=0x34}
0x157b…1594 Line {l1=0x17, l2=»2060 EXEC FEJL(2,4,K8$)«, l3=0x17}
0x1594…15a6 Line {l1=0x10, l2=»2070 CPIL=CPIL+1«, l3=0x10}
0x15a6…15c1 Line {l1=0x19, l2=»2080 IF TEKSTKODE>9 THEN «, l3=0x19}
0x15c1…15e2 Line {l1=0x1f, l2=»2090 PUT K8$,CPIL:KONTO2,TEKST$«, l3=0x1f}
0x15e2…15fb Line {l1=0x17, l2=»2100 EXEC FEJL(2,5,K8$)«, l3=0x17}
0x15fb…160d Line {l1=0x10, l2=»2110 CPIL=CPIL+1«, l3=0x10}
0x160d…161a Line {l1=0x0b, l2=»2120 ENDIF «, l3=0x0b}
0x161a…1626 Line {l1=0x0a, l2=»2130 ELSE «, l3=0x0a}
0x1626…163c Line {l1=0x14, l2=»2140 FOR I=1 TO APIL«, l3=0x14}
0x163c…1654 Line {l1=0x16, l2=»2150 IF KA(I)<>0 THEN «, l3=0x16}
0x1654…166e Line {l1=0x18, l2=»2160 TKO$=CHR(TKA(I)+48)«, l3=0x18}
0x166e…16a5 Line {l1=0x35, l2=»2170 PUT K8$,CPIL:KA(I),DA(I),CA(I),TKO$,CEA$(I),MUL$«, l3=0x35}
0x16a5…16be Line {l1=0x17, l2=»2180 EXEC FEJL(2,6,K8$)«, l3=0x17}
0x16be…16d0 Line {l1=0x10, l2=»2190 CPIL=CPIL+1«, l3=0x10}
0x16d0…16e8 Line {l1=0x16, l2=»2200 IF TKA(I)>9 THEN «, l3=0x16}
0x16e8…1708 Line {l1=0x1e, l2=»2210 PUT K8$,CPIL:KA(I),TA$(I)«, l3=0x1e}
0x1708…1721 Line {l1=0x17, l2=»2220 EXEC FEJL(2,7,K8$)«, l3=0x17}
0x1721…1733 Line {l1=0x10, l2=»2230 CPIL=CPIL+1«, l3=0x10}
0x1733…1740 Line {l1=0x0b, l2=»2240 ENDIF «, l3=0x0b}
0x1740…174d Line {l1=0x0b, l2=»2250 ENDIF «, l3=0x0b}
0x174d…175a Line {l1=0x0b, l2=»2260 NEXT I«, l3=0x0b}
0x175a…1778 Line {l1=0x1c, l2=»2270 BPIL=CPIL;APIL=0;DPIL=0«, l3=0x1c}
0x1778…178a Line {l1=0x10, l2=»2280 EXEC SYSGEM«, l3=0x10}
0x178a…1797 Line {l1=0x0b, l2=»2290 ENDIF «, l3=0x0b}
0x1797…17a6 Line {l1=0x0d, l2=»2300 ENDPROC «, l3=0x0d}
0x17a6…17b8 Line {l1=0x10, l2=»2310 PROC SYSGEM«, l3=0x10}
0x17b8…17f4 Line {l1=0x3a, l2=»2320 T1(5)=PSIDENR;T1(8)=BBILAG;T2(1)=PPOST;T3(1)=BHPOSTNR«, l3=0x3a}
0x17f4…1806 Line {l1=0x10, l2=»2330 OPEN K10$,W«, l3=0x10}
0x1806…1820 Line {l1=0x18, l2=»2340 EXEC FEJL(7,1,K10$)«, l3=0x18}
0x1820…1867 Line {l1=0x45, l2=»2350 PUT K10$,2:T1(1),T1(2),T1(3),T1(4),T1(5),T1(6),T1(7),T1(8),T1(9)«, l3=0x45}
0x1867…1881 Line {l1=0x18, l2=»2360 EXEC FEJL(7,2,K10$)«, l3=0x18}
0x1881…18c9 Line {l1=0x46, l2=»2370 PUT K10$,12:T2(1),T2(2),T2(3),T2(4),T2(5),T2(6),T2(7),T2(8),T2(9)«, l3=0x46}
0x18c9…18e3 Line {l1=0x18, l2=»2380 EXEC FEJL(7,3,K10$)«, l3=0x18}
0x18e3…192b Line {l1=0x46, l2=»2390 PUT K10$,13:T3(1),T3(2),T3(3),T3(4),T3(5),T3(6),T3(7),T3(8),T3(9)«, l3=0x46}
0x192b…1945 Line {l1=0x18, l2=»2400 EXEC FEJL(7,4,K10$)«, l3=0x18}
0x1945…1956 Line {l1=0x0f, l2=»2410 CLOSE K10$«, l3=0x0f}
0x1956…1970 Line {l1=0x18, l2=»2420 EXEC FEJL(7,5,K10$)«, l3=0x18}
0x1970…197f Line {l1=0x0d, l2=»2430 ENDPROC «, l3=0x0d}
0x197f…1992 Line {l1=0x11, l2=»2440 PROC KONTOOK«, l3=0x11}
0x1992…19ac Line {l1=0x18, l2=»2450 EXEC KTNAVN(KTAL,P)«, l3=0x18}
0x19ac…19bf Line {l1=0x11, l2=»2460 CURSOR 25,23«, l3=0x11}
0x19bf…19f1 Line {l1=0x30, l2=»2470 PRINT KONTONAVN$;BLK$(1:30-LEN(KONTONAVN$))«, l3=0x30}
0x19f1…19ff Line {l1=0x0c, l2=»2480 REPEAT «, l3=0x0c}
0x19ff…1a12 Line {l1=0x11, l2=»2490 CURSOR 55,23«, l3=0x11}
0x1a12…1a35 Line {l1=0x21, l2=»2500 PRINT "Rigtig konto (J/N) "«, l3=0x21}
0x1a35…1a48 Line {l1=0x11, l2=»2510 CURSOR 75,23«, l3=0x11}
0x1a48…1a57 Line {l1=0x0d, l2=»2520 INPUT A$«, l3=0x0d}
0x1a57…1a6d Line {l1=0x14, l2=»2530 EXEC NRTEST(A$)«, l3=0x14}
0x1a6d…1a86 Line {l1=0x17, l2=»2540 UNTIL P=-7 OR P=-8«, l3=0x17}
0x1a86…1a95 Line {l1=0x0d, l2=»2550 ENDPROC «, l3=0x0d}
0x1a95…1aae Line {l1=0x17, l2=»2560 PROC KONTOUD(KONT)«, l3=0x17}
0x1aae…1ac4 Line {l1=0x14, l2=»2570 IF CEKS=1 THEN «, l3=0x14}
0x1ac4…1add Line {l1=0x17, l2=»2580 CURSOR 2,LINIENR+3«, l3=0x17}
0x1add…1aee Line {l1=0x0f, l2=»2590 PRINT BLK$«, l3=0x0f}
0x1aee…1b14 Line {l1=0x24, l2=»2600 IF MULTI=0 THEN BBILAG=BBILAG-1«, l3=0x24}
0x1b14…1b20 Line {l1=0x0a, l2=»2610 CNR=1«, l3=0x0a}
0x1b20…1b2c Line {l1=0x0a, l2=»2620 ELSE «, l3=0x0a}
0x1b2c…1b51 Line {l1=0x23, l2=»2630 CURSOR 42+28*(CNR=5),LINIENR+3«, l3=0x23}
0x1b51…1b77 Line {l1=0x24, l2=»2640 PRINT USING " ###### ":KONT«, l3=0x24}
0x1b77…1b97 Line {l1=0x1e, l2=»2650 LINIENR=LINIENR+1*(CNR=5)«, l3=0x1e}
0x1b97…1bad Line {l1=0x14, l2=»2660 CNR=4-3*(CNR=5)«, l3=0x14}
0x1bad…1bba Line {l1=0x0b, l2=»2670 ENDIF «, l3=0x0b}
0x1bba…1bc9 Line {l1=0x0d, l2=»2680 ENDPROC «, l3=0x0d}
0x1bc9…1bed Line {l1=0x22, l2=»2690 PROC TUD(BLB1,UBLB,TEGN,STØR)«, l3=0x22}
0x1bed…1c12 Line {l1=0x23, l2=»2700 EXEC CALC(5,BLB1$,TAL4$,UBLB$)«, l3=0x23}
0x1c12…1c28 Line {l1=0x14, l2=»2710 IF TEGN=0 THEN «, l3=0x14}
0x1c28…1c40 Line {l1=0x16, l2=»2720 UBLB$=UBLB$(1:13)«, l3=0x16}
0x1c40…1c4c Line {l1=0x0a, l2=»2730 ELSE «, l3=0x0a}
0x1c4c…1c7c Line {l1=0x2e, l2=»2740 IF TEGN=1 AND UBLB$(LEN(UBLB$))="+" THEN «, l3=0x2e}
0x1c7c…1c98 Line {l1=0x1a, l2=»2750 UBLB$(LEN(UBLB$))=" "«, l3=0x1a}
0x1c98…1ca5 Line {l1=0x0b, l2=»2760 ENDIF «, l3=0x0b}
0x1ca5…1cb2 Line {l1=0x0b, l2=»2770 ENDIF «, l3=0x0b}
0x1cb2…1cc8 Line {l1=0x14, l2=»2780 IF STØR=1 THEN «, l3=0x14}
0x1cc8…1cea Line {l1=0x20, l2=»2790 UBLB$=UBLB$(3:LEN(UBLB$)-3)«, l3=0x20}
0x1cea…1cf7 Line {l1=0x0b, l2=»2800 ENDIF «, l3=0x0b}
0x1cf7…1d06 Line {l1=0x0d, l2=»2810 ENDPROC «, l3=0x0d}
0x1d06…1d23 Line {l1=0x1b, l2=»2820 PROC FEJL(NR1,NR2,NR3)«, l3=0x1b}
0x1d23…1d42 Line {l1=0x1d, l2=»2830 IF STATUS(NR3$)<>0 THEN «, l3=0x1d}
0x1d42…1d68 Line {l1=0x24, l2=»2840 PRINT STATUS(NR3$),NR1,NR2,NR3$«, l3=0x24}
0x1d68…1d74 Line {l1=0x0a, l2=»2850 STOP «, l3=0x0a}
0x1d74…1d81 Line {l1=0x0b, l2=»2860 ENDIF «, l3=0x0b}
0x1d81…1d90 Line {l1=0x0d, l2=»2870 ENDPROC «, l3=0x0d}
0x1d90…1da7 Line {l1=0x15, l2=»2880 PROC PSLET(ART1)«, l3=0x15}
0x1da7…1dbe Line {l1=0x15, l2=»2890 IF MULTI=0 THEN «, l3=0x15}
0x1dbe…1dd7 Line {l1=0x17, l2=»2900 IF BPIL=CPIL THEN «, l3=0x17}
0x1dd7…1de5 Line {l1=0x0c, l2=»2910 REPEAT «, l3=0x0c}
0x1de5…1df7 Line {l1=0x10, l2=»2920 CURSOR 3,23«, l3=0x10}
0x1df7…1e3c Line {l1=0x43, l2=»2930 PRINT "Posteringen kan ikke annuleres, tast RETURN"+BLK$(1:34)«, l3=0x43}
0x1e3c…1e4f Line {l1=0x11, l2=»2940 CURSOR 48,23«, l3=0x11}
0x1e4f…1e5e Line {l1=0x0d, l2=»2950 INPUT A$«, l3=0x0d}
0x1e5e…1e74 Line {l1=0x14, l2=»2960 EXEC NRTEST(A$)«, l3=0x14}
0x1e74…1e85 Line {l1=0x0f, l2=»2970 UNTIL P=-1«, l3=0x0f}
0x1e85…1e91 Line {l1=0x0a, l2=»2980 ELSE «, l3=0x0a}
0x1e91…1ea9 Line {l1=0x16, l2=»2990 LINIENR=LINIENR-1«, l3=0x16}
0x1ea9…1ebf Line {l1=0x14, l2=»3000 BBILAG=BBILAG-1«, l3=0x14}
0x1ebf…1ed8 Line {l1=0x17, l2=»3010 CURSOR 3,LINIENR+3«, l3=0x17}
0x1ed8…1ee9 Line {l1=0x0f, l2=»3020 PRINT BLK$«, l3=0x0f}
0x1ee9…1f04 Line {l1=0x19, l2=»3030 FOR I=BPIL TO CPIL-1«, l3=0x19}
0x1f04…1f16 Line {l1=0x10, l2=»3040 PUT K8$,I:0«, l3=0x10}
0x1f16…1f2f Line {l1=0x17, l2=»3050 EXEC FEJL(1,2,K8$)«, l3=0x17}
0x1f2f…1f3c Line {l1=0x0b, l2=»3060 NEXT I«, l3=0x0b}
0x1f3c…1f4c Line {l1=0x0e, l2=»3070 CPIL=BPIL«, l3=0x0e}
0x1f4c…1f59 Line {l1=0x0b, l2=»3080 ENDIF «, l3=0x0b}
0x1f59…1f65 Line {l1=0x0a, l2=»3090 ELSE «, l3=0x0a}
0x1f65…1f7b Line {l1=0x14, l2=»3100 IF APIL>0 THEN «, l3=0x14}
0x1f7b…1f91 Line {l1=0x14, l2=»3110 IF ART1=1 THEN «, l3=0x14}
0x1f91…1faf Line {l1=0x1c, l2=»3120 CURSOR 3,(P-1) MOD 18+4«, l3=0x1c}
0x1faf…1fbb Line {l1=0x0a, l2=»3130 ELSE «, l3=0x0a}
0x1fbb…1fc8 Line {l1=0x0b, l2=»3140 P=APIL«, l3=0x0b}
0x1fc8…1fe0 Line {l1=0x16, l2=»3150 LINIENR=LINIENR-1«, l3=0x16}
0x1fe0…1ff9 Line {l1=0x17, l2=»3160 CURSOR 3,LINIENR+3«, l3=0x17}
0x1ff9…2006 Line {l1=0x0b, l2=»3170 ENDIF «, l3=0x0b}
0x2006…2029 Line {l1=0x21, l2=»3180 IF TKA(P)>9 THEN DPIL=DPIL-1«, l3=0x21}
0x2029…203a Line {l1=0x0f, l2=»3190 PRINT BLK$«, l3=0x0f}
0x203a…2048 Line {l1=0x0c, l2=»3200 KA(P)=0«, l3=0x0c}
0x2048…2056 Line {l1=0x0c, l2=»3210 DA(P)=0«, l3=0x0c}
0x2056…2064 Line {l1=0x0c, l2=»3220 CA(P)=0«, l3=0x0c}
0x2064…2073 Line {l1=0x0d, l2=»3230 TKA(P)=0«, l3=0x0d}
0x2073…208b Line {l1=0x16, l2=»3240 TA$(P)=BLK$(1:25)«, l3=0x16}
0x208b…20b4 Line {l1=0x27, l2=»3250 EXEC CALC(1,SALDO$,CEA$(P),SALDO$)«, l3=0x27}
0x20b4…20cd Line {l1=0x17, l2=»3260 CEA$(P)=BLK$(1:14)«, l3=0x17}
0x20cd…20e3 Line {l1=0x14, l2=»3270 IF ART1=0 THEN «, l3=0x14}
0x20e3…2101 Line {l1=0x1c, l2=»3280 APIL=APIL-1;DPIL=DPIL-1«, l3=0x1c}
0x2101…210e Line {l1=0x0b, l2=»3290 ENDIF «, l3=0x0b}
0x210e…211b Line {l1=0x0b, l2=»3300 ENDIF «, l3=0x0b}
0x211b…2128 Line {l1=0x0b, l2=»3310 ENDIF «, l3=0x0b}
0x2128…2137 Line {l1=0x0d, l2=»3320 ENDPROC «, l3=0x0d}
0x2137…214f Line {l1=0x16, l2=»3330 PROC NRTEST(NUM1)«, l3=0x16}
0x214f…2168 Line {l1=0x17, l2=»3340 P=0;TEST2=0;KTAL=0«, l3=0x17}
0x2168…217b Line {l1=0x11, l2=»3350 L=LEN(NUM1$)«, l3=0x11}
0x217b…218c Line {l1=0x0f, l2=»3360 CASE L OF «, l3=0x0f}
0x218c…219f Line {l1=0x11, l2=»3370 FOR I=1 TO L«, l3=0x11}
0x219f…21be Line {l1=0x1d, l2=»3380 P1=INT(ORD(NUM1$(I))-48)«, l3=0x1d}
0x21be…21dd Line {l1=0x1d, l2=»3390 IF P1=>0 AND P1<=9 THEN «, l3=0x1d}
0x21dd…21ed Line {l1=0x0e, l2=»3400 P=P*10+P1«, l3=0x0e}
0x21ed…21f9 Line {l1=0x0a, l2=»3410 ELSE «, l3=0x0a}
0x21f9…2207 Line {l1=0x0c, l2=»3420 TEST2=1«, l3=0x0c}
0x2207…2214 Line {l1=0x0b, l2=»3430 ENDIF «, l3=0x0b}
0x2214…2221 Line {l1=0x0b, l2=»3440 NEXT I«, l3=0x0b}
0x2221…2249 Line {l1=0x26, l2=»3450 KTAL=P DIV 10000;KTAL9=P DIV 1000«, l3=0x26}
0x2249…226e Line {l1=0x23, l2=»3460 IF KRTAL=KTAL9 THEN KTAL=KTAL9«, l3=0x23}
0x226e…227b Line {l1=0x0b, l2=»3470 WHEN 0«, l3=0x0b}
0x227b…2286 Line {l1=0x09, l2=»3480 P=-1«, l3=0x09}
0x2286…2293 Line {l1=0x0b, l2=»3490 WHEN 1«, l3=0x0b}
0x2293…22a8 Line {l1=0x13, l2=»3500 CASE NUM1$ OF «, l3=0x13}
0x22a8…22c3 Line {l1=0x19, l2=»3510 P=INT(ORD(NUM1$)-48)«, l3=0x19}
0x22c3…22d6 Line {l1=0x11, l2=»3520 WHEN "d","D"«, l3=0x11}
0x22d6…22e1 Line {l1=0x09, l2=»3530 P=-2«, l3=0x09}
0x22e1…22f4 Line {l1=0x11, l2=»3540 WHEN "A","a"«, l3=0x11}
0x22f4…22ff Line {l1=0x09, l2=»3550 P=-3«, l3=0x09}
0x22ff…2312 Line {l1=0x11, l2=»3560 WHEN "M","m"«, l3=0x11}
0x2312…231d Line {l1=0x09, l2=»3570 P=-4«, l3=0x09}
0x231d…2330 Line {l1=0x11, l2=»3580 WHEN "J","j"«, l3=0x11}
0x2330…233b Line {l1=0x09, l2=»3590 P=-7«, l3=0x09}
0x233b…234e Line {l1=0x11, l2=»3600 WHEN "N","n"«, l3=0x11}
0x234e…2359 Line {l1=0x09, l2=»3610 P=-8«, l3=0x09}
0x2359…2368 Line {l1=0x0d, l2=»3620 ENDCASE «, l3=0x0d}
0x2368…2377 Line {l1=0x0d, l2=»3630 ENDCASE «, l3=0x0d}
0x2377…2386 Line {l1=0x0d, l2=»3640 ENDPROC «, l3=0x0d}
0x2386…2399 Line {l1=0x11, l2=»3650 PROC FORTEGN«, l3=0x11}
0x2399…23ab Line {l1=0x10, l2=»3660 L=LEN(BLB$)«, l3=0x10}
0x23ab…23be Line {l1=0x11, l2=»3670 IF L=0 THEN «, l3=0x11}
0x23be…23d2 Line {l1=0x12, l2=»3680 BLB$="0+";L=2«, l3=0x12}
0x23d2…23df Line {l1=0x0b, l2=»3690 ENDIF «, l3=0x0b}
0x23df…240c Line {l1=0x2b, l2=»3700 IF BLB$(L)<>"+" AND BLB$(L)<>"-" THEN «, l3=0x2b}
0x240c…2420 Line {l1=0x12, l2=»3710 BLB$=BLB$+"+"«, l3=0x12}
0x2420…242c Line {l1=0x0a, l2=»3720 ELSE «, l3=0x0a}
0x242c…243e Line {l1=0x10, l2=»3730 BLB$(L)="+"«, l3=0x10}
0x243e…244b Line {l1=0x0b, l2=»3740 ENDIF «, l3=0x0b}
0x244b…245a Line {l1=0x0d, l2=»3750 ENDPROC «, l3=0x0d}
0x245a…246d Line {l1=0x11, l2=»3760 PROC UDHOVED«, l3=0x11}
0x246d…247e Line {l1=0x0f, l2=»3770 CURSOR 2,1«, l3=0x0f}
0x247e…249c Line {l1=0x1c, l2=»3780 EXEC DATOUD(BDATO,DAT$)«, l3=0x1c}
0x249c…24d8 Line {l1=0x3a, l2=»3790 PRINT TAB(20);"Posteringsark";BLK$(1:25);"Dato:";DAT$«, l3=0x3a}
0x24d8…24e9 Line {l1=0x0f, l2=»3800 CURSOR 3,3«, l3=0x0f}
0x24e9…2536 Line {l1=0x4b, l2=»3810 PRINT "Nr Bilag Tekst";BLK$(1:24);"Debet Beløb K";«, l3=0x4b}
0x2536…254a Line {l1=0x12, l2=»3820 PRINT "redit"«, l3=0x12}
0x254a…2559 Line {l1=0x0d, l2=»3830 ENDPROC «, l3=0x0d}
0x2559…256c Line {l1=0x11, l2=»3840 PROC UDLINIE«, l3=0x11}
0x256c…257d Line {l1=0x0f, l2=»3850 CURSOR 1,4«, l3=0x0f}
0x257d…25b1 Line {l1=0x32, l2=»3860 PRINT USING "### ####### ":LINIENR,BILAG;«, l3=0x32}
0x25b1…25da Line {l1=0x27, l2=»3870 IF TEKSTKODE<>0 THEN PRINT ATEKST$«, l3=0x27}
0x25da…25ec Line {l1=0x10, l2=»3880 CURSOR 42,4«, l3=0x10}
0x25ec…2616 Line {l1=0x28, l2=»3890 PRINT USING " ###### ":KONTO1;«, l3=0x28}
0x2616…2638 Line {l1=0x20, l2=»3900 EXEC TUD(BLB2$,UBELØB$,0,0)«, l3=0x20}
0x2638…264d Line {l1=0x13, l2=»3910 PRINT UBELØB$;«, l3=0x13}
0x264d…2672 Line {l1=0x23, l2=»3920 PRINT USING " ######":KONTO2«, l3=0x23}
0x2672…2681 Line {l1=0x0d, l2=»3930 ENDPROC «, l3=0x0d}
0x2681…2693 Line {l1=0x10, l2=»3940 PROC NYDATO«, l3=0x10}
0x2693…26a1 Line {l1=0x0c, l2=»3950 REPEAT «, l3=0x0c}
0x26a1…26b3 Line {l1=0x10, l2=»3960 CURSOR 3,23«, l3=0x10}
0x26b3…26e7 Line {l1=0x32, l2=»3970 PRINT "Ny dato (ÅÅMMDD)"+BLK$(1:51)«, l3=0x32}
0x26e7…26fa Line {l1=0x11, l2=»3980 CURSOR 11,23«, l3=0x11}
0x26fa…270b Line {l1=0x0f, l2=»3990 INPUT DAT$«, l3=0x0f}
0x270b…2723 Line {l1=0x16, l2=»4000 EXEC NRTEST(DAT$)«, l3=0x16}
0x2723…2763 Line {l1=0x3e, l2=»4010 UNTIL KTAL>79 AND (P DIV 100) MOD 100<13 AND P MOD 100<32«, l3=0x3e}
0x2763…2771 Line {l1=0x0c, l2=»4020 BDATO=P«, l3=0x0c}
0x2771…2780 Line {l1=0x0d, l2=»4030 ENDPROC «, l3=0x0d}
0x2780…279c Line {l1=0x1a, l2=»4040 K1$="P641220:SYSTEM1"«, l3=0x1a}
0x279c…27aa Line {l1=0x0c, l2=»4050 REPEAT «, l3=0x0c}
0x27aa…27bb Line {l1=0x0f, l2=»4060 OPEN K1$,R«, l3=0x0f}
0x27bb…27d9 Line {l1=0x1c, l2=»4070 IF STATUS(K1$)<>0 THEN «, l3=0x1c}
0x27d9…27e6 Line {l1=0x0b, l2=»4080 CLEAR «, l3=0x0b}
0x27e6…27f9 Line {l1=0x11, l2=»4090 CURSOR 25,13«, l3=0x11}
0x27f9…2829 Line {l1=0x2e, l2=»4100 INPUT "Isæt plade nr. 20 ,tast RETURN",A$«, l3=0x2e}
0x2829…283f Line {l1=0x14, l2=»4110 EXEC NRTEST(A$)«, l3=0x14}
0x283f…2849 Line {l1=0x08, l2=»4120 P=0«, l3=0x08}
0x2849…2855 Line {l1=0x0a, l2=»4130 ELSE «, l3=0x0a}
0x2855…2860 Line {l1=0x09, l2=»4140 P=-1«, l3=0x09}
0x2860…286d Line {l1=0x0b, l2=»4150 ENDIF «, l3=0x0b}
0x286d…287e Line {l1=0x0f, l2=»4160 UNTIL P=-1«, l3=0x0f}
0x287e…28a6 Line {l1=0x26, l2=»4170 GET K1$,1:MFANTAL,MDANTAL,MKANTAL«, l3=0x26}
0x28a6…28bf Line {l1=0x17, l2=»4180 EXEC FEJL(9,1,K1$)«, l3=0x17}
0x28bf…28e7 Line {l1=0x26, l2=»4190 GET K1$,2:MKASPOST,MPPOST,MBHPOST«, l3=0x26}
0x28e7…2900 Line {l1=0x17, l2=»4200 EXEC FEJL(9,2,K1$)«, l3=0x17}
0x2900…2926 Line {l1=0x24, l2=»4210 GET K1$,4:MKPOST,MFAK,MVGR,MKGR«, l3=0x24}
0x2926…293f Line {l1=0x17, l2=»4220 EXEC FEJL(9,3,K1$)«, l3=0x17}
0x293f…2955 Line {l1=0x14, l2=»4230 GET K1$,5:MKRGR«, l3=0x14}
0x2955…296e Line {l1=0x17, l2=»4240 EXEC FEJL(9,4,K1$)«, l3=0x17}
0x296e…2996 Line {l1=0x26, l2=»4250 GET K1$,8:DIVNR,DIVDNR,DIFNR,DTAL«, l3=0x26}
0x2996…29af Line {l1=0x17, l2=»4260 EXEC FEJL(9,5,K1$)«, l3=0x17}
0x29af…29c5 Line {l1=0x14, l2=»4270 GET K1$,9:KRTAL«, l3=0x14}
0x29c5…29de Line {l1=0x17, l2=»4280 EXEC FEJL(9,6,K1$)«, l3=0x17}
0x29de…29f2 Line {l1=0x12, l2=»4290 GET K1$,10:N$«, l3=0x12}
0x29f2…2a0b Line {l1=0x17, l2=»4300 EXEC FEJL(9,7,K1$)«, l3=0x17}
0x2a0b…2a20 Line {l1=0x13, l2=»4310 GET K1$,11:K2$«, l3=0x13}
0x2a20…2a39 Line {l1=0x17, l2=»4320 EXEC FEJL(9,8,K1$)«, l3=0x17}
0x2a39…2a4e Line {l1=0x13, l2=»4330 GET K1$,12:K3$«, l3=0x13}
0x2a4e…2a67 Line {l1=0x17, l2=»4340 EXEC FEJL(9,9,K1$)«, l3=0x17}
0x2a67…2a7c Line {l1=0x13, l2=»4350 GET K1$,13:K4$«, l3=0x13}
0x2a7c…2a96 Line {l1=0x18, l2=»4360 EXEC FEJL(9,10,K1$)«, l3=0x18}
0x2a96…2aab Line {l1=0x13, l2=»4370 GET K1$,15:K5$«, l3=0x13}
0x2aab…2ac5 Line {l1=0x18, l2=»4380 EXEC FEJL(9,11,K1$)«, l3=0x18}
0x2ac5…2ada Line {l1=0x13, l2=»4390 GET K1$,16:K6$«, l3=0x13}
0x2ada…2af4 Line {l1=0x18, l2=»4400 EXEC FEJL(9,12,K1$)«, l3=0x18}
0x2af4…2b09 Line {l1=0x13, l2=»4410 GET K1$,17:K7$«, l3=0x13}
0x2b09…2b23 Line {l1=0x18, l2=»4420 EXEC FEJL(9,13,K1$)«, l3=0x18}
0x2b23…2b38 Line {l1=0x13, l2=»4430 GET K1$,20:K8$«, l3=0x13}
0x2b38…2b52 Line {l1=0x18, l2=»4440 EXEC FEJL(9,14,K1$)«, l3=0x18}
0x2b52…2b67 Line {l1=0x13, l2=»4450 GET K1$,21:K9$«, l3=0x13}
0x2b67…2b81 Line {l1=0x18, l2=»4460 EXEC FEJL(9,15,K1$)«, l3=0x18}
0x2b81…2b97 Line {l1=0x14, l2=»4470 GET K1$,36:K10$«, l3=0x14}
0x2b97…2bb1 Line {l1=0x18, l2=»4480 EXEC FEJL(9,16,K1$)«, l3=0x18}
0x2bb1…2bc1 Line {l1=0x0e, l2=»4490 CLOSE K1$«, l3=0x0e}
0x2bc1…2bdb Line {l1=0x18, l2=»4500 EXEC FEJL(9,17,K1$)«, l3=0x18}
0x2bdb…2c24 Line {l1=0x47, l2=»4510 DIM FTAB1(MFANTAL DIV 4),DTAB1(MDANTAL DIV 4),KTAB1(MKANTAL DIV 4)«, l3=0x47}
0x2c24…2c4c Line {l1=0x26, l2=»4520 DIM FTAB(4,2),DTAB(4,2),KTAB(4,2)«, l3=0x26}
0x2c4c…2c94 Line {l1=0x46, l2=»4530 K2$=N$+K2$;K3$=N$+K3$;K4$=N$+K4$;K5$=N$+K5$;K6$=N$+K6$;K7$=N$+K7$«, l3=0x46}
0x2c94…2cbd Line {l1=0x27, l2=»4540 K8$=N$+K8$;K9$=N$+K9$;K10$=N$+K10$«, l3=0x27}
0x2cbd…2ccf Line {l1=0x10, l2=»4550 OPEN K10$,R«, l3=0x10}
0x2ccf…2cea Line {l1=0x19, l2=»4560 EXEC FEJL(9,18,K10$)«, l3=0x19}
0x2cea…2d31 Line {l1=0x45, l2=»4570 GET K10$,2:T1(1),T1(2),T1(3),T1(4),T1(5),T1(6),T1(7),T1(8),T1(9)«, l3=0x45}
0x2d31…2d4c Line {l1=0x19, l2=»4580 EXEC FEJL(9,19,K10$)«, l3=0x19}
0x2d4c…2d5f Line {l1=0x11, l2=»4590 FOR I=1 TO 3«, l3=0x11}
0x2d5f…2d71 Line {l1=0x10, l2=»4600 H=(I-1)*3+1«, l3=0x10}
0x2d71…2da3 Line {l1=0x30, l2=»4610 GET K10$,I+5:TFIL$(H),TFIL$(H+1),TFIL$(H+2)«, l3=0x30}
0x2da3…2dbe Line {l1=0x19, l2=»4620 EXEC FEJL(9,20,K10$)«, l3=0x19}
0x2dbe…2dcb Line {l1=0x0b, l2=»4630 NEXT I«, l3=0x0b}
0x2dcb…2e13 Line {l1=0x46, l2=»4640 GET K10$,12:T2(1),T2(2),T2(3),T2(4),T2(5),T2(6),T2(7),T2(8),T2(9)«, l3=0x46}
0x2e13…2e2e Line {l1=0x19, l2=»4650 EXEC FEJL(9,21,K10$)«, l3=0x19}
0x2e2e…2e76 Line {l1=0x46, l2=»4660 GET K10$,13:T3(1),T3(2),T3(3),T3(4),T3(5),T3(6),T3(7),T3(8),T3(9)«, l3=0x46}
0x2e76…2e91 Line {l1=0x19, l2=»4670 EXEC FEJL(9,22,K10$)«, l3=0x19}
0x2e91…2ea2 Line {l1=0x0f, l2=»4680 CLOSE K10$«, l3=0x0f}
0x2ea2…2ebd Line {l1=0x19, l2=»4690 EXEC FEJL(9,23,K10$)«, l3=0x19}
0x2ebd…2ece Line {l1=0x0f, l2=»4700 OPEN K2$,R«, l3=0x0f}
0x2ece…2ee8 Line {l1=0x18, l2=»4710 EXEC FEJL(9,24,K2$)«, l3=0x18}
0x2ee8…2ef9 Line {l1=0x0f, l2=»4720 OPEN K3$,R«, l3=0x0f}
0x2ef9…2f13 Line {l1=0x18, l2=»4730 EXEC FEJL(9,25,K3$)«, l3=0x18}
0x2f13…2f24 Line {l1=0x0f, l2=»4740 OPEN K4$,R«, l3=0x0f}
0x2f24…2f3e Line {l1=0x18, l2=»4750 EXEC FEJL(9,26,K4$)«, l3=0x18}
0x2f3e…2f4f Line {l1=0x0f, l2=»4760 OPEN K5$,R«, l3=0x0f}
0x2f4f…2f69 Line {l1=0x18, l2=»4770 EXEC FEJL(9,27,K5$)«, l3=0x18}
0x2f69…2f7a Line {l1=0x0f, l2=»4780 OPEN K6$,R«, l3=0x0f}
0x2f7a…2f94 Line {l1=0x18, l2=»4790 EXEC FEJL(9,28,K6$)«, l3=0x18}
0x2f94…2fa5 Line {l1=0x0f, l2=»4800 OPEN K7$,R«, l3=0x0f}
0x2fa5…2fbf Line {l1=0x18, l2=»4810 EXEC FEJL(9,29,K7$)«, l3=0x18}
0x2fbf…2fd0 Line {l1=0x0f, l2=»4820 OPEN K8$,W«, l3=0x0f}
0x2fd0…2fea Line {l1=0x18, l2=»4830 EXEC FEJL(9,30,K8$)«, l3=0x18}
0x2fea…3031 Line {l1=0x45, l2=»4840 PSIDENR=T1(5);DATO=T1(7);BBILAG=T1(8);PPOST=T2(1);BHPOSTNR=T3(1)«, l3=0x45}
0x3031…3057 Line {l1=0x24, l2=»4850 EXEC INDTAB1(FTAB1,MFANTAL,K2$)«, l3=0x24}
0x3057…307d Line {l1=0x24, l2=»4860 EXEC INDTAB1(DTAB1,MDANTAL,K3$)«, l3=0x24}
0x307d…30a3 Line {l1=0x24, l2=»4870 EXEC INDTAB1(KTAB1,MKANTAL,K4$)«, l3=0x24}
0x30a3…30ef Line {l1=0x4a, l2=»4880 BLK$=" "«, l3=0x4a}
0x30ef…3110 Line {l1=0x1f, l2=»4890 BLK$=BLK$+" "«, l3=0x1f}
0x3110…315c Line {l1=0x4a, l2=»4900 TAL4$="0+";BDATO=DATO;CPIL=PPOST+1;BPIL=CPIL;APIL=0;LINIENR=1;MULTI=0«, l3=0x4a}
0x315c…31a1 Line {l1=0x43, l2=»4910 CNR=1;SALDO$="0+";STREG$="-----------------------------------"«, l3=0x43}
0x31a1…31c3 Line {l1=0x20, l2=»4920 STREG$=STREG$+STREG$;DPIL=0«, l3=0x20}
0x31c3…31d0 Line {l1=0x0b, l2=»4930 CLEAR «, l3=0x0b}
0x31d0…31e3 Line {l1=0x11, l2=»4940 EXEC UDHOVED«, l3=0x11}
0x31e3…31f1 Line {l1=0x0c, l2=»4950 REPEAT «, l3=0x0c}
0x31f1…3204 Line {l1=0x11, l2=»4960 CASE CNR OF «, l3=0x11}
0x3204…3210 Line {l1=0x0a, l2=»4970 STOP «, l3=0x0a}
0x3210…321d Line {l1=0x0b, l2=»4980 WHEN 1«, l3=0x0b}
0x321d…322b Line {l1=0x0c, l2=»4990 REPEAT «, l3=0x0c}
0x322b…3239 Line {l1=0x0c, l2=»5000 REPEAT «, l3=0x0c}
0x3239…324b Line {l1=0x10, l2=»5010 CURSOR 3,23«, l3=0x10}
0x324b…3299 Line {l1=0x4c, l2=»5020 PRINT "Bilag (0:færdig,RETURN:automatisk,A:annuller,D:ny dato,";«, l3=0x4c}
0x3299…32b7 Line {l1=0x1c, l2=»5030 PRINT "M:afslut multi)"«, l3=0x1c}
0x32b7…32c9 Line {l1=0x10, l2=»5040 CURSOR 8,23«, l3=0x10}
0x32c9…32da Line {l1=0x0f, l2=»5050 INPUT BIL$«, l3=0x0f}
0x32da…32f2 Line {l1=0x16, l2=»5060 EXEC NRTEST(BIL$)«, l3=0x16}
0x32f2…3319 Line {l1=0x25, l2=»5070 UNTIL P=>-4 AND TEST2=0 AND L<=6«, l3=0x25}
0x3319…332e Line {l1=0x13, l2=»5080 FPIL=CPIL+DPIL«, l3=0x13}
0x332e…337d Line {l1=0x4d, l2=»5090 IF (FPIL>MPPOST-3 OR APIL=35 OR FPIL+T3(1)-3>MBHPOST) AND P<>-3 THEN P=0«, l3=0x4d}
0x337d…33a9 Line {l1=0x2a, l2=»5100 IF P<>0 AND P>-2 AND LINIENR=19 THEN «, l3=0x2a}
0x33a9…33b6 Line {l1=0x0b, l2=»5110 CLEAR «, l3=0x0b}
0x33b6…33c9 Line {l1=0x11, l2=»5120 EXEC UDHOVED«, l3=0x11}
0x33c9…33d9 Line {l1=0x0e, l2=»5130 LINIENR=1«, l3=0x0e}
0x33d9…33eb Line {l1=0x10, l2=»5140 EXEC SYSGEM«, l3=0x10}
0x33eb…33fe Line {l1=0x11, l2=»5150 EXEC UDLINIE«, l3=0x11}
0x33fe…3416 Line {l1=0x16, l2=»5160 LINIENR=LINIENR+1«, l3=0x16}
0x3416…3423 Line {l1=0x0b, l2=»5170 ENDIF «, l3=0x0b}
0x3423…3431 Line {l1=0x0c, l2=»5180 REPEAT «, l3=0x0c}
0x3431…3441 Line {l1=0x0e, l2=»5190 CBILAG=-1«, l3=0x0e}
0x3441…3452 Line {l1=0x0f, l2=»5200 CASE P OF «, l3=0x0f}
0x3452…3460 Line {l1=0x0c, l2=»5210 BILAG=P«, l3=0x0c}
0x3460…346f Line {l1=0x0d, l2=»5220 BBILAG=P«, l3=0x0d}
0x346f…3488 Line {l1=0x17, l2=»5230 CURSOR 1,LINIENR+3«, l3=0x17}
0x3488…34b6 Line {l1=0x2c, l2=»5240 PRINT USING "### #######":LINIENR,BILAG«, l3=0x2c}
0x34b6…34c1 Line {l1=0x09, l2=»5250 P=-9«, l3=0x09}
0x34c1…34cd Line {l1=0x0a, l2=»5260 CNR=2«, l3=0x0a}
0x34cd…34da Line {l1=0x0b, l2=»5270 WHEN 0«, l3=0x0b}
0x34da…34f1 Line {l1=0x15, l2=»5280 IF MULTI=0 THEN «, l3=0x15}
0x34f1…3526 Line {l1=0x33, l2=»5290 IF CPIL>MPPOST-3 OR FPIL+T3(1)-3>MBHPOST THEN «, l3=0x33}
0x3526…3534 Line {l1=0x0c, l2=»5300 REPEAT «, l3=0x0c}
0x3534…3546 Line {l1=0x10, l2=»5310 CURSOR 3,23«, l3=0x10}
0x3546…358e Line {l1=0x46, l2=»5320 PRINT "Ikke plads til flere posteringer , tast RETURN";BLK$(1:30)«, l3=0x46}
0x358e…35a1 Line {l1=0x11, l2=»5330 CURSOR 50,23«, l3=0x11}
0x35a1…35b0 Line {l1=0x0d, l2=»5340 INPUT A$«, l3=0x0d}
0x35b0…35c6 Line {l1=0x14, l2=»5350 EXEC NRTEST(A$)«, l3=0x14}
0x35c6…35d7 Line {l1=0x0f, l2=»5360 UNTIL P=-1«, l3=0x0f}
0x35d7…35e4 Line {l1=0x0b, l2=»5370 ENDIF «, l3=0x0b}
0x35e4…35ef Line {l1=0x09, l2=»5380 P=-9«, l3=0x09}
0x35ef…35fb Line {l1=0x0a, l2=»5390 CNR=6«, l3=0x0a}
0x35fb…3607 Line {l1=0x0a, l2=»5400 ELSE «, l3=0x0a}
0x3607…3647 Line {l1=0x3e, l2=»5410 IF FPIL>MPPOST-3 OR APIL=35 OR FPIL+T3(1)-3>MBHPOST THEN «, l3=0x3e}
0x3647…366d Line {l1=0x24, l2=»5420 EXEC CALC(4,TAL4$,SALDO$,TAL4$)«, l3=0x24}
0x366d…3682 Line {l1=0x13, l2=»5430 IF SI<>0 THEN «, l3=0x13}
0x3682…36a5 Line {l1=0x21, l2=»5440 EXEC TUD(SALDO$,UBELØB$,1,0)«, l3=0x21}
0x36a5…36b3 Line {l1=0x0c, l2=»5450 REPEAT «, l3=0x0c}
0x36b3…36c5 Line {l1=0x10, l2=»5460 CURSOR 3,23«, l3=0x10}
0x36c5…3714 Line {l1=0x4d, l2=»5470 PRINT "Ikke plads til flere posteringer,";UBELØB$;" på differencekonto";«, l3=0x4d}
0x3714…372a Line {l1=0x14, l2=»5480 PRINT ",RETURN"«, l3=0x14}
0x372a…373d Line {l1=0x11, l2=»5490 CURSOR 76,23«, l3=0x11}
0x373d…374c Line {l1=0x0d, l2=»5500 INPUT A$«, l3=0x0d}
0x374c…3762 Line {l1=0x14, l2=»5510 EXEC NRTEST(A$)«, l3=0x14}
0x3762…3773 Line {l1=0x0f, l2=»5520 UNTIL P=-1«, l3=0x0f}
0x3773…3791 Line {l1=0x1c, l2=»5530 APIL=APIL+1;DPIL=DPIL+2«, l3=0x1c}
0x3791…37b8 Line {l1=0x25, l2=»5540 IF SALDO$(LEN(SALDO$))="+" THEN «, l3=0x25}
0x37b8…37e5 Line {l1=0x2b, l2=»5550 CEA$(APIL)=SALDO$(1:LEN(SALDO$)-1)+"-"«, l3=0x2b}
0x37e5…37f1 Line {l1=0x0a, l2=»5560 ELSE «, l3=0x0a}
0x37f1…381e Line {l1=0x2b, l2=»5570 CEA$(APIL)=SALDO$(1:LEN(SALDO$)-1)+"+"«, l3=0x2b}
0x381e…382b Line {l1=0x0b, l2=»5580 ENDIF «, l3=0x0b}
0x382b…3857 Line {l1=0x2a, l2=»5590 EXEC CALC(0,SALDO$,CEA$(APIL),SALDO$)«, l3=0x2a}
0x3857…3897 Line {l1=0x3e, l2=»5600 KA(APIL)=DIFNR;TKA(APIL)=10;DA(APIL)=BDATO;CA(APIL)=BILAG«, l3=0x3e}
0x3897…38c3 Line {l1=0x2a, l2=»5610 TA$(APIL)="Difference multipostering"«, l3=0x2a}
0x38c3…38d0 Line {l1=0x0b, l2=»5620 ENDIF «, l3=0x0b}
0x38d0…38df Line {l1=0x0d, l2=»5630 CBILAG=0«, l3=0x0d}
0x38df…38ea Line {l1=0x09, l2=»5640 P=-4«, l3=0x09}
0x38ea…38f6 Line {l1=0x0a, l2=»5650 ELSE «, l3=0x0a}
0x38f6…3904 Line {l1=0x0c, l2=»5660 REPEAT «, l3=0x0c}
0x3904…3916 Line {l1=0x10, l2=»5670 CURSOR 3,23«, l3=0x10}
0x3916…395b Line {l1=0x43, l2=»5680 PRINT "Multipostering ikke afsluttet , tast RETURN"+BLK$(1:34)«, l3=0x43}
0x395b…396e Line {l1=0x11, l2=»5690 CURSOR 46,23«, l3=0x11}
0x396e…397d Line {l1=0x0d, l2=»5700 INPUT A$«, l3=0x0d}
0x397d…3993 Line {l1=0x14, l2=»5710 EXEC NRTEST(A$)«, l3=0x14}
0x3993…39a4 Line {l1=0x0f, l2=»5720 UNTIL P=-1«, l3=0x0f}
0x39a4…39b1 Line {l1=0x0b, l2=»5730 ENDIF «, l3=0x0b}
0x39b1…39be Line {l1=0x0b, l2=»5740 ENDIF «, l3=0x0b}
0x39be…39cc Line {l1=0x0c, l2=»5750 WHEN -1«, l3=0x0c}
0x39cc…39f2 Line {l1=0x24, l2=»5760 IF MULTI=0 THEN BBILAG=BBILAG+1«, l3=0x24}
0x39f2…3a01 Line {l1=0x0d, l2=»5770 P=BBILAG«, l3=0x0d}
0x3a01…3a10 Line {l1=0x0d, l2=»5780 CBILAG=0«, l3=0x0d}
0x3a10…3a1e Line {l1=0x0c, l2=»5790 WHEN -2«, l3=0x0c}
0x3a1e…3a30 Line {l1=0x10, l2=»5800 EXEC NYDATO«, l3=0x10}
0x3a30…3a43 Line {l1=0x11, l2=»5810 EXEC UDHOVED«, l3=0x11}
0x3a43…3a51 Line {l1=0x0c, l2=»5820 WHEN -3«, l3=0x0c}
0x3a51…3a65 Line {l1=0x12, l2=»5830 EXEC PSLET(0)«, l3=0x12}
0x3a65…3a73 Line {l1=0x0c, l2=»5840 WHEN -4«, l3=0x0c}
0x3a73…3a8f Line {l1=0x1a, l2=»5850 IF MULTI=0 THEN EXIT «, l3=0x1a}
0x3a8f…3ab5 Line {l1=0x24, l2=»5860 EXEC CALC(4,TAL4$,SALDO$,TAL4$)«, l3=0x24}
0x3ab5…3aca Line {l1=0x13, l2=»5870 IF SI<>0 THEN «, l3=0x13}
0x3aca…3ad8 Line {l1=0x0c, l2=»5880 REPEAT «, l3=0x0c}
0x3ad8…3afb Line {l1=0x21, l2=»5890 EXEC TUD(SALDO$,UBELØB$,1,0)«, l3=0x21}
0x3afb…3b09 Line {l1=0x0c, l2=»5900 REPEAT «, l3=0x0c}
0x3b09…3b1b Line {l1=0x10, l2=»5910 CURSOR 3,23«, l3=0x10}
0x3b1b…3b6a Line {l1=0x4d, l2=»5920 PRINT "Multipostering kan ikke afsluttes , difference :";UBELØB$;" tas";«, l3=0x4d}
0x3b6a…3b83 Line {l1=0x17, l2=»5930 PRINT "t RETURN "«, l3=0x17}
0x3b83…3b96 Line {l1=0x11, l2=»5940 CURSOR 79,23«, l3=0x11}
0x3b96…3ba5 Line {l1=0x0d, l2=»5950 INPUT A$«, l3=0x0d}
0x3ba5…3bbb Line {l1=0x14, l2=»5960 EXEC NRTEST(A$)«, l3=0x14}
0x3bbb…3bcc Line {l1=0x0f, l2=»5970 UNTIL P=-1«, l3=0x0f}
0x3bcc…3bd9 Line {l1=0x0b, l2=»5980 CLEAR «, l3=0x0b}
0x3bd9…3be3 Line {l1=0x08, l2=»5990 X=1«, l3=0x08}
0x3be3…3bf1 Line {l1=0x0c, l2=»6000 REPEAT «, l3=0x0c}
0x3bf1…3c04 Line {l1=0x11, l2=»6010 EXEC UDHOVED«, l3=0x11}
0x3c04…3c12 Line {l1=0x0c, l2=»6020 REPEAT «, l3=0x0c}
0x3c12…3c3d Line {l1=0x29, l2=»6030 IF CA(X)<>0 AND LEN(CEA$(X))>0 THEN «, l3=0x29}
0x3c3d…3c66 Line {l1=0x27, l2=»6040 EXEC CALC(5,CEA$(X),TAL4$,UBELØB$)«, l3=0x27}
0x3c66…3c84 Line {l1=0x1c, l2=»6050 CURSOR 1,(X-1) MOD 18+4«, l3=0x1c}
0x3c84…3cb2 Line {l1=0x2c, l2=»6060 PRINT USING "### ####### ":X,CA(X);«, l3=0x2c}
0x3cb2…3cca Line {l1=0x16, l2=»6070 IF TKA(X)>9 THEN «, l3=0x16}
0x3cca…3cde Line {l1=0x12, l2=»6080 PRINT TA$(X);«, l3=0x12}
0x3cde…3cea Line {l1=0x0a, l2=»6090 ELSE «, l3=0x0a}
0x3cea…3d17 Line {l1=0x2b, l2=»6100 IF TKA(X)<>0 THEN PRINT TFIL$(TKA(X));«, l3=0x2b}
0x3d17…3d24 Line {l1=0x0b, l2=»6110 ENDIF «, l3=0x0b}
0x3d24…3d30 Line {l1=0x0a, l2=»6120 LOG=0«, l3=0x0a}
0x3d30…3d4f Line {l1=0x1d, l2=»6130 CURSOR 42,(X-1) MOD 18+4«, l3=0x1d}
0x3d4f…3d7c Line {l1=0x2b, l2=»6140 IF CEA$(X,LEN(CEA$(X)))="-" THEN LOG=1«, l3=0x2b}
0x3d7c…3db4 Line {l1=0x36, l2=»6150 PRINT USING " ###### ":KA(X)+100000*(LOG=1);«, l3=0x36}
0x3db4…3dcf Line {l1=0x19, l2=»6160 PRINT UBELØB$(1:13);«, l3=0x19}
0x3dcf…3e04 Line {l1=0x33, l2=»6170 PRINT USING " ######":KA(X)+100000*(LOG=0)«, l3=0x33}
0x3e04…3e11 Line {l1=0x0b, l2=»6180 ENDIF «, l3=0x0b}
0x3e11…3e1d Line {l1=0x0a, l2=»6190 X=X+1«, l3=0x0a}
0x3e1d…3e40 Line {l1=0x21, l2=»6200 UNTIL X=APIL+1 OR X MOD 19=0«, l3=0x21}
0x3e40…3e4e Line {l1=0x0c, l2=»6210 REPEAT «, l3=0x0c}
0x3e4e…3e5c Line {l1=0x0c, l2=»6220 REPEAT «, l3=0x0c}
0x3e5c…3e6e Line {l1=0x10, l2=»6230 CURSOR 3,23«, l3=0x10}
0x3e6e…3eb9 Line {l1=0x49, l2=»6240 PRINT "Type (1-36:Annulering,0:færdig,N:ny post,RETURN:ny sid";«, l3=0x49}
0x3eb9…3ed5 Line {l1=0x1a, l2=»6250 PRINT "e)"+BLK$(1:10)«, l3=0x1a}
0x3ed5…3ee7 Line {l1=0x10, l2=»6260 CURSOR 8,23«, l3=0x10}
0x3ee7…3ef8 Line {l1=0x0f, l2=»6270 INPUT RET$«, l3=0x0f}
0x3ef8…3f10 Line {l1=0x16, l2=»6280 EXEC NRTEST(RET$)«, l3=0x16}
0x3f10…3f34 Line {l1=0x22, l2=»6290 UNTIL (P<37 AND P>-2) OR P=-8«, l3=0x22}
0x3f34…3f45 Line {l1=0x0f, l2=»6300 CASE P OF «, l3=0x0f}
0x3f45…3f64 Line {l1=0x1d, l2=»6310 IF P<=APIL AND P<X THEN «, l3=0x1d}
0x3f64…3f78 Line {l1=0x12, l2=»6320 EXEC PSLET(1)«, l3=0x12}
0x3f78…3f85 Line {l1=0x0b, l2=»6330 ENDIF «, l3=0x0b}
0x3f85…3f92 Line {l1=0x0b, l2=»6340 WHEN 0«, l3=0x0b}
0x3f92…3fb8 Line {l1=0x24, l2=»6350 EXEC CALC(4,TAL4$,SALDO$,TAL4$)«, l3=0x24}
0x3fb8…3fcd Line {l1=0x13, l2=»6360 IF SI<>0 THEN «, l3=0x13}
0x3fcd…3fd8 Line {l1=0x09, l2=»6370 P=-2«, l3=0x09}
0x3fd8…3fe4 Line {l1=0x0a, l2=»6380 ELSE «, l3=0x0a}
0x3fe4…3ff4 Line {l1=0x0e, l2=»6390 EXEC PPUT«, l3=0x0e}
0x3ff4…4002 Line {l1=0x0c, l2=»6400 MULTI=0«, l3=0x0c}
0x4002…400f Line {l1=0x0b, l2=»6410 ENDIF «, l3=0x0b}
0x400f…401d Line {l1=0x0c, l2=»6420 WHEN -1«, l3=0x0c}
0x401d…4034 Line {l1=0x15, l2=»6430 IF APIL>18 THEN «, l3=0x15}
0x4034…4041 Line {l1=0x0b, l2=»6440 CLEAR «, l3=0x0b}
0x4041…404d Line {l1=0x0a, l2=»6450 ELSE «, l3=0x0a}
0x404d…4057 Line {l1=0x08, l2=»6460 P=1«, l3=0x08}
0x4057…4064 Line {l1=0x0b, l2=»6470 ENDIF «, l3=0x0b}
0x4064…4072 Line {l1=0x0c, l2=»6480 WHEN -8«, l3=0x0c}
0x4072…407c Line {l1=0x08, l2=»6490 P=0«, l3=0x08}
0x407c…4099 Line {l1=0x1b, l2=»6500 LINIENR=(X-1) MOD 18+1«, l3=0x1b}
0x4099…40a8 Line {l1=0x0d, l2=»6510 ENDCASE «, l3=0x0d}
0x40a8…40c1 Line {l1=0x17, l2=»6520 UNTIL P<1 AND P>-3«, l3=0x17}
0x40c1…40d9 Line {l1=0x16, l2=»6530 UNTIL P=0 OR P=-2«, l3=0x16}
0x40d9…40e9 Line {l1=0x0e, l2=»6540 UNTIL P=0«, l3=0x0e}
0x40e9…40f5 Line {l1=0x0a, l2=»6550 ELSE «, l3=0x0a}
0x40f5…4105 Line {l1=0x0e, l2=»6560 EXEC PPUT«, l3=0x0e}
0x4105…4113 Line {l1=0x0c, l2=»6570 MULTI=0«, l3=0x0c}
0x4113…4120 Line {l1=0x0b, l2=»6580 ENDIF «, l3=0x0b}
0x4120…412f Line {l1=0x0d, l2=»6590 ENDCASE «, l3=0x0d}
0x412f…4145 Line {l1=0x14, l2=»6600 UNTIL CBILAG=-1«, l3=0x14}
0x4145…4156 Line {l1=0x0f, l2=»6610 UNTIL P=-9«, l3=0x0f}
0x4156…4163 Line {l1=0x0b, l2=»6620 WHEN 2«, l3=0x0b}
0x4163…4171 Line {l1=0x0c, l2=»6630 REPEAT «, l3=0x0c}
0x4171…417f Line {l1=0x0c, l2=»6640 REPEAT «, l3=0x0c}
0x417f…4191 Line {l1=0x10, l2=»6650 CURSOR 3,23«, l3=0x10}
0x4191…41e0 Line {l1=0x4d, l2=»6660 PRINT "Tekst (max 25 tegn,0-19:tekstkode)";«, l3=0x4d}
0x41e0…41f7 Line {l1=0x15, l2=»6670 PRINT BLK$(1:14)«, l3=0x15}
0x41f7…420a Line {l1=0x11, l2=»6680 CURSOR 10,23«, l3=0x11}
0x420a…421e Line {l1=0x12, l2=»6690 INPUT BTEKST$«, l3=0x12}
0x421e…423a Line {l1=0x1a, l2=»6700 UNTIL LEN(BTEKST$)<26«, l3=0x1a}
0x423a…4258 Line {l1=0x1c, l2=»6710 IF LEN(BTEKST$)<3 THEN «, l3=0x1c}
0x4258…4273 Line {l1=0x19, l2=»6720 EXEC NRTEST(BTEKST$)«, l3=0x19}
0x4273…427f Line {l1=0x0a, l2=»6730 ELSE «, l3=0x0a}
0x427f…4292 Line {l1=0x11, l2=»6740 P=20;TEST2=0«, l3=0x11}
0x4292…429f Line {l1=0x0b, l2=»6750 ENDIF «, l3=0x0b}
0x429f…42cf Line {l1=0x2e, l2=»6760 UNTIL P=>0 AND P<21 AND TEST2=0 AND P<>10«, l3=0x2e}
0x42cf…42e3 Line {l1=0x12, l2=»6770 IF P<>0 THEN «, l3=0x12}
0x42e3…42f6 Line {l1=0x11, l2=»6780 ATK=P MOD 10«, l3=0x11}
0x42f6…430a Line {l1=0x12, l2=»6790 IF P=20 THEN «, l3=0x12}
0x430a…4315 Line {l1=0x09, l2=»6800 P=10«, l3=0x09}
0x4315…432a Line {l1=0x13, l2=»6810 TEKST$=BTEKST$«, l3=0x13}
0x432a…433f Line {l1=0x13, l2=»6820 ATEKST$=TEKST$«, l3=0x13}
0x433f…434b Line {l1=0x0a, l2=»6830 ELSE «, l3=0x0a}
0x434b…436f Line {l1=0x22, l2=»6840 ATEKST$=TFIL$(ATK)+BLK$(1:15)«, l3=0x22}
0x436f…4383 Line {l1=0x12, l2=»6850 IF P>10 THEN «, l3=0x12}
0x4383…4391 Line {l1=0x0c, l2=»6860 REPEAT «, l3=0x0c}
0x4391…43a3 Line {l1=0x10, l2=»6870 CURSOR 3,23«, l3=0x10}
0x43a3…43e0 Line {l1=0x3b, l2=»6880 PRINT "Tekst (max 14 tegn)"+BLK$(1:42)«, l3=0x3b}
0x43e0…43f3 Line {l1=0x11, l2=»6890 CURSOR 10,23«, l3=0x11}
0x43f3…4407 Line {l1=0x12, l2=»6900 INPUT BTEKST$«, l3=0x12}
0x4407…4423 Line {l1=0x1a, l2=»6910 UNTIL LEN(BTEKST$)<15«, l3=0x1a}
0x4423…4440 Line {l1=0x1b, l2=»6920 ATEKST$(12,25)=BTEKST$«, l3=0x1b}
0x4440…4455 Line {l1=0x13, l2=»6930 TEKST$=ATEKST$«, l3=0x13}
0x4455…4462 Line {l1=0x0b, l2=»6940 ENDIF «, l3=0x0b}
0x4462…446f Line {l1=0x0b, l2=»6950 ENDIF «, l3=0x0b}
0x446f…4489 Line {l1=0x18, l2=»6960 CURSOR 17,LINIENR+3«, l3=0x18}
0x4489…449d Line {l1=0x12, l2=»6970 PRINT ATEKST$«, l3=0x12}
0x449d…44aa Line {l1=0x0b, l2=»6980 ENDIF «, l3=0x0b}
0x44aa…44b6 Line {l1=0x0a, l2=»6990 CNR=3«, l3=0x0a}
0x44b6…44c8 Line {l1=0x10, l2=»7000 TEKSTKODE=P«, l3=0x10}
0x44c8…44d5 Line {l1=0x0b, l2=»7010 WHEN 3«, l3=0x0b}
0x44d5…44e3 Line {l1=0x0c, l2=»7020 REPEAT «, l3=0x0c}
0x44e3…44f1 Line {l1=0x0c, l2=»7030 REPEAT «, l3=0x0c}
0x44f1…4503 Line {l1=0x10, l2=»7040 CURSOR 3,23«, l3=0x10}
0x4503…4548 Line {l1=0x43, l2=»7050 PRINT "Debet-konto (RETURN:overspringes)"+BLK$(1:34)«, l3=0x43}
0x4548…455b Line {l1=0x11, l2=»7060 CURSOR 16,23«, l3=0x11}
0x455b…456c Line {l1=0x0f, l2=»7070 INPUT KTN$«, l3=0x0f}
0x456c…4584 Line {l1=0x16, l2=»7080 EXEC NRTEST(KTN$)«, l3=0x16}
0x4584…45cb Line {l1=0x45, l2=»7090 UNTIL (((KTAL<10 AND KTAL>0) OR KTAL=KRTAL) AND TEST2=0) OR P=-1«, l3=0x45}
0x45cb…45df Line {l1=0x12, l2=»7100 IF P=-1 THEN «, l3=0x12}
0x45df…45f3 Line {l1=0x12, l2=»7110 KONTO1=100000«, l3=0x12}
0x45f3…4601 Line {l1=0x0c, l2=»7120 MULTI=1«, l3=0x0c}
0x4601…460d Line {l1=0x0a, l2=»7130 OVS=1«, l3=0x0a}
0x460d…461a Line {l1=0x0b, l2=»7140 CEKS=0«, l3=0x0b}
0x461a…4626 Line {l1=0x0a, l2=»7150 ELSE «, l3=0x0a}
0x4626…4632 Line {l1=0x0a, l2=»7160 OVS=0«, l3=0x0a}
0x4632…4641 Line {l1=0x0d, l2=»7170 KONTO1=P«, l3=0x0d}
0x4641…4654 Line {l1=0x11, l2=»7180 EXEC KONTOOK«, l3=0x11}
0x4654…4661 Line {l1=0x0b, l2=»7190 ENDIF «, l3=0x0b}
0x4661…467a Line {l1=0x17, l2=»7200 UNTIL P=-1 OR P=-7«, l3=0x17}
0x467a…4695 Line {l1=0x19, l2=»7210 EXEC KONTOUD(KONTO1)«, l3=0x19}
0x4695…46a2 Line {l1=0x0b, l2=»7220 WHEN 4«, l3=0x0b}
0x46a2…46b0 Line {l1=0x0c, l2=»7230 REPEAT «, l3=0x0c}
0x46b0…46be Line {l1=0x0c, l2=»7240 REPEAT «, l3=0x0c}
0x46be…46d0 Line {l1=0x10, l2=»7250 CURSOR 3,23«, l3=0x10}
0x46d0…46ef Line {l1=0x1d, l2=»7260 PRINT "Beløb"+BLK$(1:70)«, l3=0x1d}
0x46ef…4702 Line {l1=0x11, l2=»7270 CURSOR 10,23«, l3=0x11}
0x4702…4713 Line {l1=0x0f, l2=»7280 INPUT BLB$«, l3=0x0f}
0x4713…4726 Line {l1=0x11, l2=»7290 EXEC FORTEGN«, l3=0x11}
0x4726…474c Line {l1=0x24, l2=»7300 EXEC CALC(6,BLB$,TAL4$,UBELØB$)«, l3=0x24}
0x474c…475f Line {l1=0x11, l2=»7310 UNTIL FLAG=0«, l3=0x11}
0x475f…4783 Line {l1=0x22, l2=»7320 EXEC CALC(4,BLB$,TAL4$,TAL4$)«, l3=0x22}
0x4783…4795 Line {l1=0x10, l2=»7330 UNTIL SI<>0«, l3=0x10}
0x4795…47a6 Line {l1=0x0f, l2=»7340 BLB2$=BLB$«, l3=0x0f}
0x47a6…47ca Line {l1=0x22, l2=»7350 BLB3$=BLB$(1:LEN(BLB$)-1)+"-"«, l3=0x22}
0x47ca…47eb Line {l1=0x1f, l2=»7360 EXEC TUD(BLB$,UBELØB$,0,0)«, l3=0x1f}
0x47eb…4805 Line {l1=0x18, l2=»7370 CURSOR 55,LINIENR+3«, l3=0x18}
0x4805…4819 Line {l1=0x12, l2=»7380 PRINT UBELØB$«, l3=0x12}
0x4819…4825 Line {l1=0x0a, l2=»7390 CNR=5«, l3=0x0a}
0x4825…4832 Line {l1=0x0b, l2=»7400 WHEN 5«, l3=0x0b}
0x4832…4840 Line {l1=0x0c, l2=»7410 REPEAT «, l3=0x0c}
0x4840…484e Line {l1=0x0c, l2=»7420 REPEAT «, l3=0x0c}
0x484e…4860 Line {l1=0x10, l2=»7430 CURSOR 3,23«, l3=0x10}
0x4860…48a7 Line {l1=0x45, l2=»7440 PRINT "Kredit-konto (RETURN:overspringes,A:annuller)";«, l3=0x45}
0x48a7…48cb Line {l1=0x22, l2=»7450 PRINT " "«, l3=0x22}
0x48cb…48de Line {l1=0x11, l2=»7460 CURSOR 17,23«, l3=0x11}
0x48de…48ef Line {l1=0x0f, l2=»7470 INPUT KTN$«, l3=0x0f}
0x48ef…4907 Line {l1=0x16, l2=»7480 EXEC NRTEST(KTN$)«, l3=0x16}
0x4907…4956 Line {l1=0x4d, l2=»7490 UNTIL (((KTAL<10 AND KTAL>0) OR KTAL=KRTAL) AND TEST2=0) OR P=-1 OR P=-3«, l3=0x4d}
0x4956…496a Line {l1=0x12, l2=»7500 IF P=-1 THEN «, l3=0x12}
0x496a…497f Line {l1=0x13, l2=»7510 IF OVS=0 THEN «, l3=0x13}
0x497f…4989 Line {l1=0x08, l2=»7520 P=0«, l3=0x08}
0x4989…499d Line {l1=0x12, l2=»7530 KONTO2=100000«, l3=0x12}
0x499d…49ab Line {l1=0x0c, l2=»7540 MULTI=1«, l3=0x0c}
0x49ab…49d2 Line {l1=0x25, l2=»7550 EXEC CALC(0,SALDO$,BLB2$,SALDO$)«, l3=0x25}
0x49d2…49f0 Line {l1=0x1c, l2=»7560 APIL=APIL+1;DPIL=DPIL+1«, l3=0x1c}
0x49f0…4a06 Line {l1=0x14, l2=»7570 KA(APIL)=KONTO1«, l3=0x14}
0x4a06…4a1b Line {l1=0x13, l2=»7580 DA(APIL)=BDATO«, l3=0x13}
0x4a1b…4a30 Line {l1=0x13, l2=»7590 CA(APIL)=BILAG«, l3=0x13}
0x4a30…4a4a Line {l1=0x18, l2=»7600 TKA(APIL)=TEKSTKODE«, l3=0x18}
0x4a4a…4a61 Line {l1=0x15, l2=»7610 CEA$(APIL)=BLB2$«, l3=0x15}
0x4a61…4a7c Line {l1=0x19, l2=»7620 IF TEKSTKODE>9 THEN «, l3=0x19}
0x4a7c…4a9f Line {l1=0x21, l2=»7630 TA$(APIL)=TEKST$;DPIL=DPIL+1«, l3=0x21}
0x4a9f…4aab Line {l1=0x0a, l2=»7640 ELSE «, l3=0x0a}
0x4aab…4ac6 Line {l1=0x19, l2=»7650 TA$(APIL)=BLK$(1:25)«, l3=0x19}
0x4ac6…4ad3 Line {l1=0x0b, l2=»7660 ENDIF «, l3=0x0b}
0x4ad3…4ae0 Line {l1=0x0b, l2=»7670 CEKS=0«, l3=0x0b}
0x4ae0…4afb Line {l1=0x19, l2=»7680 EXEC KONTOUD(KONTO2)«, l3=0x19}
0x4afb…4b08 Line {l1=0x0b, l2=»7690 ENDIF «, l3=0x0b}
0x4b08…4b14 Line {l1=0x0a, l2=»7700 ELSE «, l3=0x0a}
0x4b14…4b28 Line {l1=0x12, l2=»7710 IF P=-3 THEN «, l3=0x12}
0x4b28…4b35 Line {l1=0x0b, l2=»7720 CEKS=1«, l3=0x0b}
0x4b35…4b4b Line {l1=0x14, l2=»7730 EXEC KONTOUD(P)«, l3=0x14}
0x4b4b…4b57 Line {l1=0x0a, l2=»7740 ELSE «, l3=0x0a}
0x4b57…4b6a Line {l1=0x11, l2=»7750 MO=MULTI+OVS«, l3=0x11}
0x4b6a…4b7c Line {l1=0x10, l2=»7760 CASE MO OF «, l3=0x10}
0x4b7c…4b88 Line {l1=0x0a, l2=»7770 STOP «, l3=0x0a}
0x4b88…4b95 Line {l1=0x0b, l2=»7780 WHEN 0«, l3=0x0b}
0x4b95…4ba4 Line {l1=0x0d, l2=»7790 KONTO2=P«, l3=0x0d}
0x4ba4…4bb7 Line {l1=0x11, l2=»7800 EXEC KONTOOK«, l3=0x11}
0x4bb7…4bcb Line {l1=0x12, l2=»7810 IF P=-7 THEN «, l3=0x12}
0x4bcb…4be6 Line {l1=0x19, l2=»7820 EXEC KONTOUD(KONTO2)«, l3=0x19}
0x4be6…4bfc Line {l1=0x14, l2=»7830 IF CEKS=0 THEN «, l3=0x14}
0x4bfc…4c0c Line {l1=0x0e, l2=»7840 EXEC PPUT«, l3=0x0e}
0x4c0c…4c19 Line {l1=0x0b, l2=»7850 ENDIF «, l3=0x0b}
0x4c19…4c26 Line {l1=0x0b, l2=»7860 ENDIF «, l3=0x0b}
0x4c26…4c33 Line {l1=0x0b, l2=»7870 WHEN 1«, l3=0x0b}
0x4c33…4c41 Line {l1=0x0c, l2=»7880 REPEAT «, l3=0x0c}
0x4c41…4c53 Line {l1=0x10, l2=»7890 CURSOR 3,23«, l3=0x10}
0x4c53…4c98 Line {l1=0x43, l2=»7900 PRINT "Multipostering ikke afsluttet , tast RETURN"+BLK$(1:34)«, l3=0x43}
0x4c98…4cab Line {l1=0x11, l2=»7910 CURSOR 46,23«, l3=0x11}
0x4cab…4cba Line {l1=0x0d, l2=»7920 INPUT A$«, l3=0x0d}
0x4cba…4cd0 Line {l1=0x14, l2=»7930 EXEC NRTEST(A$)«, l3=0x14}
0x4cd0…4ce1 Line {l1=0x0f, l2=»7940 UNTIL P=-1«, l3=0x0f}
0x4ce1…4cee Line {l1=0x0b, l2=»7950 WHEN 2«, l3=0x0b}
0x4cee…4cfd Line {l1=0x0d, l2=»7960 KONTO2=P«, l3=0x0d}
0x4cfd…4d10 Line {l1=0x11, l2=»7970 EXEC KONTOOK«, l3=0x11}
0x4d10…4d24 Line {l1=0x12, l2=»7980 IF P=-7 THEN «, l3=0x12}
0x4d24…4d3f Line {l1=0x19, l2=»7990 EXEC KONTOUD(KONTO2)«, l3=0x19}
0x4d3f…4d55 Line {l1=0x14, l2=»8000 IF CEKS=0 THEN «, l3=0x14}
0x4d55…4d7c Line {l1=0x25, l2=»8010 EXEC CALC(0,SALDO$,BLB3$,SALDO$)«, l3=0x25}
0x4d7c…4d9a Line {l1=0x1c, l2=»8020 APIL=APIL+1;DPIL=DPIL+1«, l3=0x1c}
0x4d9a…4db0 Line {l1=0x14, l2=»8030 KA(APIL)=KONTO2«, l3=0x14}
0x4db0…4dc5 Line {l1=0x13, l2=»8040 DA(APIL)=BDATO«, l3=0x13}
0x4dc5…4dda Line {l1=0x13, l2=»8050 CA(APIL)=BILAG«, l3=0x13}
0x4dda…4df4 Line {l1=0x18, l2=»8060 TKA(APIL)=TEKSTKODE«, l3=0x18}
0x4df4…4e0b Line {l1=0x15, l2=»8070 CEA$(APIL)=BLB3$«, l3=0x15}
0x4e0b…4e26 Line {l1=0x19, l2=»8080 IF TEKSTKODE>9 THEN «, l3=0x19}
0x4e26…4e49 Line {l1=0x21, l2=»8090 TA$(APIL)=TEKST$;DPIL=DPIL+1«, l3=0x21}
0x4e49…4e55 Line {l1=0x0a, l2=»8100 ELSE «, l3=0x0a}
0x4e55…4e70 Line {l1=0x19, l2=»8110 TA$(APIL)=BLK$(1:25)«, l3=0x19}
0x4e70…4e7d Line {l1=0x0b, l2=»8120 ENDIF «, l3=0x0b}
0x4e7d…4e8a Line {l1=0x0b, l2=»8130 ENDIF «, l3=0x0b}
0x4e8a…4e97 Line {l1=0x0b, l2=»8140 ENDIF «, l3=0x0b}
0x4e97…4ea6 Line {l1=0x0d, l2=»8150 ENDCASE «, l3=0x0d}
0x4ea6…4eb3 Line {l1=0x0b, l2=»8160 ENDIF «, l3=0x0b}
0x4eb3…4ec0 Line {l1=0x0b, l2=»8170 ENDIF «, l3=0x0b}
0x4ec0…4ee0 Line {l1=0x1e, l2=»8180 UNTIL P=0 OR P=-3 OR P=-7«, l3=0x1e}
0x4ee0…4eed Line {l1=0x0b, l2=»8190 WHEN 6«, l3=0x0b}
0x4eed…4efb Line {l1=0x0c, l2=»8200 REPEAT «, l3=0x0c}
0x4efb…4f0d Line {l1=0x10, l2=»8210 CURSOR 3,23«, l3=0x10}
0x4f0d…4f3e Line {l1=0x2f, l2=»8220 PRINT "Ønskes afslutning (J/N)"+BLK$(1:54)«, l3=0x2f}
0x4f3e…4f51 Line {l1=0x11, l2=»8230 CURSOR 27,23«, l3=0x11}
0x4f51…4f60 Line {l1=0x0d, l2=»8240 INPUT A$«, l3=0x0d}
0x4f60…4f76 Line {l1=0x14, l2=»8250 EXEC NRTEST(A$)«, l3=0x14}
0x4f76…4f8f Line {l1=0x17, l2=»8260 UNTIL P=-7 OR P=-8«, l3=0x17}
0x4f8f…4fa3 Line {l1=0x12, l2=»8270 IF P=-7 THEN «, l3=0x12}
0x4fa3…4fb2 Line {l1=0x0d, l2=»8280 MUL$="2"«, l3=0x0d}
0x4fb2…4fc3 Line {l1=0x0f, l2=»8290 OPEN K9$,W«, l3=0x0f}
0x4fc3…4fdd Line {l1=0x18, l2=»8300 EXEC FEJL(9,32,K9$)«, l3=0x18}
0x4fdd…4ff5 Line {l1=0x16, l2=»8310 FOR I=1 TO CPIL-1«, l3=0x16}
0x4ff5…5023 Line {l1=0x2c, l2=»8320 GET K8$,I:KONTO1,DDATO,BILAG,TKO$,BLB2$«, l3=0x2c}
0x5023…503d Line {l1=0x18, l2=»8330 EXEC FEJL(9,33,K8$)«, l3=0x18}
0x503d…5057 Line {l1=0x18, l2=»8340 BHPOSTNR=BHPOSTNR+1«, l3=0x18}
0x5057…5091 Line {l1=0x38, l2=»8350 PUT K9$,BHPOSTNR:KONTO1,DDATO,BILAG,TKO$,BLB2$,MUL$«, l3=0x38}
0x5091…50ab Line {l1=0x18, l2=»8360 EXEC FEJL(9,34,K9$)«, l3=0x18}
0x50ab…50c9 Line {l1=0x1c, l2=»8370 IF ORD(TKO$)-48>9 THEN «, l3=0x1c}
0x50c9…50d5 Line {l1=0x0a, l2=»8380 I=I+1«, l3=0x0a}
0x50d5…50ef Line {l1=0x18, l2=»8390 BHPOSTNR=BHPOSTNR+1«, l3=0x18}
0x50ef…510d Line {l1=0x1c, l2=»8400 GET K8$,I:KONTO1,TEKST$«, l3=0x1c}
0x510d…5127 Line {l1=0x18, l2=»8410 EXEC FEJL(9,35,K8$)«, l3=0x18}
0x5127…514c Line {l1=0x23, l2=»8420 PUT K9$,BHPOSTNR:KONTO1,TEKST$«, l3=0x23}
0x514c…5166 Line {l1=0x18, l2=»8430 EXEC FEJL(9,36,K9$)«, l3=0x18}
0x5166…5173 Line {l1=0x0b, l2=»8440 ENDIF «, l3=0x0b}
0x5173…5180 Line {l1=0x0b, l2=»8450 NEXT I«, l3=0x0b}
0x5180…5190 Line {l1=0x0e, l2=»8460 CLOSE K9$«, l3=0x0e}
0x5190…51aa Line {l1=0x18, l2=»8470 EXEC FEJL(9,38,K9$)«, l3=0x18}
0x51aa…51c5 Line {l1=0x19, l2=»8480 EXEC PGETUD(PSIDENR)«, l3=0x19}
0x51c5…51d3 Line {l1=0x0c, l2=»8490 PPOST=0«, l3=0x0c}
0x51d3…51df Line {l1=0x0a, l2=»8500 ELSE «, l3=0x0a}
0x51df…51ed Line {l1=0x0c, l2=»8510 REPEAT «, l3=0x0c}
0x51ed…51ff Line {l1=0x10, l2=»8520 CURSOR 3,23«, l3=0x10}
0x51ff…5235 Line {l1=0x34, l2=»8530 PRINT "Ønskes kontroludskrift (J/N)"+BLK$(1:49)«, l3=0x34}
0x5235…5248 Line {l1=0x11, l2=»8540 CURSOR 31,23«, l3=0x11}
0x5248…5257 Line {l1=0x0d, l2=»8550 INPUT A$«, l3=0x0d}
0x5257…526d Line {l1=0x14, l2=»8560 EXEC NRTEST(A$)«, l3=0x14}
0x526d…5286 Line {l1=0x17, l2=»8570 UNTIL P=-7 OR P=-8«, l3=0x17}
0x5286…529a Line {l1=0x12, l2=»8580 IF P=-7 THEN «, l3=0x12}
0x529a…52af Line {l1=0x13, l2=»8590 EXEC PGETUD(1)«, l3=0x13}
0x52af…52bc Line {l1=0x0b, l2=»8600 ENDIF «, l3=0x0b}
0x52bc…52cf Line {l1=0x11, l2=»8610 PPOST=CPIL-1«, l3=0x11}
0x52cf…52dc Line {l1=0x0b, l2=»8620 ENDIF «, l3=0x0b}
0x52dc…52e9 Line {l1=0x0b, l2=»8630 CNR=-1«, l3=0x0b}
0x52e9…52f8 Line {l1=0x0d, l2=»8640 ENDCASE «, l3=0x0d}
0x52f8…530b Line {l1=0x11, l2=»8650 UNTIL CNR=-1«, l3=0x11}
0x530b…531b Line {l1=0x0e, l2=»8660 CLOSE K8$«, l3=0x0e}
0x531b…5335 Line {l1=0x18, l2=»8670 EXEC FEJL(9,40,K8$)«, l3=0x18}
0x5335…5342 Line {l1=0x0b, l2=»8680 CLOSE «, l3=0x0b}
0x5342…5354 Line {l1=0x10, l2=»8690 EXEC SYSGEM«, l3=0x10}
0x5354…5363 Line {l1=0x0d, l2=»8700 OUTPUT T«, l3=0x0d}
0x5363…5381 Line {l1=0x1c, l2=»8710 CHAIN "P641210:OPSTART"«, l3=0x1c}
0x5381…538c Line {l1=0x09, l2=»8720 END «, l3=0x09}
0x538c…53a0 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ cccccccccccccccccc┆
0x53a0…53c0 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┆
[…0x29…]