|
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: »KSP1.K«
└─⟦ec8c1e0b0⟧ Bits:30007442 8" floppy ( MIKPROG vol. 1-3, MIKREL vol. 1-3, PCSE 4.7.80 vol 1-3, GL.SYS )
└─⟦this⟧ »KSP1.K«
0100 DIM K1$(17),K2$(17),DEBNAVN$(25),DSALDO1$(12),DEBKGR$(2),FNAVN$(25) 0110 DIM DSALDO2$(12),DSALDO3$(12),DSALDO4$(12),DEBLK$(2),DEBGADE$(25),A$(6) 0120 DIM BLANK$(77),TAL4$(14),TAH$(12),DEBTLF$(9),DEBBY$(20),K3$(17),K4$(17) 0130 DIM RES$(14),ÅRKØB$(12),MDNKØB$(12),OP2$(12),BELØB$(12),KTNR$(6),K5$(17) 0140 DIM FMDEBET$(12),FMKREDIT$(12),FÅDEBET$(12),FÅKREDIT$(12),FSALDO$(12) 0150 DIM OP1$(12),TK$(3),TEKST$(25),TFIL$(20,10),FUKODE$(1),N$(6),FMKODE$(1) 0160 DIM K6$(17),K7$(17),UBELØB$(14),SUM$(12),DAT$(8),SALDO$(12),DA5$(8) 0170 DIM EGNAVN$(25),EGGADE$(25),EGBY$(20),STREG$(77),TKODE$(1) 0180 DIM K8$(17),K9$(17),K10$(17),K11$(17),K12$(17),K13$(17),K14$(17) 0190 DIM T1(9),T2(9),T3(9),KRENAVN$(25),KREGADE$(25),KREBY$(20),KRELK$(1) 0200 DIM KSALDO1$(12),KSALDO2$(12),LTX$(11,52),LAND$(9,12),KREGR$(1) 0210 DIM UBEL1$(14),UBEL2$(14),UBEL3$(14),UBEL4$(14) 0220 PROC CALC(AR3,B1,B2,ES) 0230 OP1$=B1$;OP2$=B2$;RES$=ES$;SI=0;FLAG=0;ART=AR3-6*(AR3>5) 0240 CALL "P641210:REGN" 0250 ES$=RES$ 0260 IF AR3<6 THEN 0270 IF FLAG THEN STOP 0280 ENDIF 0290 ENDPROC 0300 PROC TUD(BLB,UBLB,TEGN,STØR) 0310 EXEC CALC(5,BLB$,TAH$,UBLB$) 0320 IF TEGN=0 THEN 0330 UBLB$=UBLB$(1:13) 0340 ELSE 0350 IF TEGN=1 AND UBLB$(LEN(UBLB$))="+" THEN 0360 UBLB$(LEN(UBLB$))=" " 0370 ENDIF 0380 ENDIF 0390 IF STØR=1 THEN 0400 UBLB$=UBLB$(4:LEN(UBLB$)-3) 0410 ENDIF 0420 ENDPROC 0430 PROC FEJL(NR1,NR2,NR3) 0440 IF STATUS(NR3$)<>0 THEN 0450 PRINT NR1,NR2,NR3$,STATUS(NR3$) 0460 STOP 0470 ENDIF 0480 ENDPROC 0490 PROC SØG(MPOSTANTAL6,HTAB3,NØGLE3,UTAB3,K34) 0500 PPIL1=0 0510 PPIL2=MPOSTANTAL6 DIV 40+1 0520 REPEAT 0530 PPIL3=(PPIL1+PPIL2) DIV 2 0540 IF HTAB3(PPIL3,1)=NØGLE3 THEN EXIT 0550 IF HTAB3(PPIL3,1)>NØGLE3 THEN 0560 PPIL2=PPIL3 0570 ELSE 0580 PPIL1=PPIL3 0590 ENDIF 0600 UNTIL PPIL2<=PPIL1+1 0610 IF PPIL3>1 THEN 0620 REPEAT 0630 PPIL3=PPIL3-1 0640 UNTIL HTAB3(PPIL3,1)<NØGLE3 OR PPIL3=1 0650 ENDIF 0660 IF HTAB3(PPIL3,2)<NØGLE3 OR NØGLE3<HTAB3(PPIL3,1) THEN 0670 IF HTAB3(PPIL3+1,1)>NØGLE3 THEN 0680 T=0 0690 ELSE 0700 T=PPIL3+1 0710 ENDIF 0720 ELSE 0730 T=PPIL3 0740 ENDIF 0750 IF T>0 THEN 0760 K=T+MPOSTANTAL6 DIV 160 0770 EXEC UNDIND(K34$,K,UTAB3) 0780 FOR I=4 TO 1 STEP -1 0790 IF UTAB3(I,1)<NØGLE3 THEN EXIT 0800 NEXT I 0810 IF I=0 THEN I=1 0820 IF UTAB3(I,2)<NØGLE3 THEN 0830 IF UTAB3(I+1,1)>NØGLE3 THEN 0840 T=0 0850 ELSE 0860 T=(T-1)*40+I*10+1 0870 ENDIF 0880 ELSE 0890 T=(T-1)*40+(I-1)*10+1 0900 ENDIF 0910 ENDIF 0920 ENDPROC 0930 PROC POSTER(K35,NØGLE4,T5,MPOSTANTAL7,PKODE,SU3) 0940 LINIE=0 0950 OPEN K35$,R 0960 EXEC FEJL(1,1,K35$) 0970 FOR I=1 TO 10 0980 GET K35$,T5:KTNUM 0990 EXEC FEJL(1,2,K35$) 1000 IF KTNUM=NØGLE4 THEN EXIT 1010 IF MAFSLUT=1 THEN EXIT 1020 T5=T5+1 1030 NEXT I 1040 IF KTNUM=NØGLE4 THEN 1050 FOR K=T5 TO MPOSTANTAL7 1060 GET K35$,K:KONTO,DDATO,BILAG,TKODE$,BELØB$ 1070 EXEC FEJL(1,3,K35$) 1080 IF KONTO<>NØGLE4 THEN EXIT 1090 TKS=ORD(TKODE$)-48 1100 IF TKS>9 AND TKS<20 THEN 1110 K=K+1 1120 GET K35$,K:KONTO,TEKST$ 1130 EXEC FEJL(1,4,K35$) 1140 TEKST$=TEKST$+BLANK$(1:25-LEN(TEKST$)+1) 1150 ELSE 1160 IF TKS>0 THEN 1170 TEKST$=TFIL$(TKS-10*(TKS>20))+BLANK$(1:25-LEN(TFIL$(TKS-10*(TKS>20)))) 1180 ELSE 1190 TEKST$=BLANK$ 1200 ENDIF 1210 ENDIF 1220 EXEC UDSKRIV(PKODE,SU3$,LINIE) 1230 NEXT K 1240 IF MAFSLUT=1 THEN 1250 T6=K;NØGLE4=KONTO 1260 ENDIF 1270 ELSE 1280 T6=T5;NØGLE4=KTNUM 1290 T5=0 1300 ENDIF 1310 CLOSE K35$ 1320 EXEC FEJL(1,5,K35$) 1330 ENDPROC 1340 PROC LINIEUD(DA2,BI2,TE2,BE2,SU1) 1350 SK=SKRIV1 1360 EXEC CALC(0,SU1$,BE2$,SU1$) 1370 EXEC DATOUD(DA2,DA5$) 1380 PRINT TAB(3+8*(SK));DA5$;TAB(13+6*(SK)); 1390 IF BI2<>-1 THEN 1400 PRINT USING "#######":BI2; 1410 ENDIF 1420 PRINT TAB(24+3*(SK));TE2$; 1430 EXEC TUD(BE2$,UBELØB$,0,0) 1440 IF SK THEN EXEC TUD(BE2$,UBELØB$,0,1) 1450 PRINT TAB(49+3*(SK)+(14-3*(SK))*(BE2$(LEN(BE2$))="-"));UBELØB$ 1460 ENDPROC 1470 PROC INDPUT1(XPOS1,YPOS1,LN4,LN5,LTK) 1480 REPEAT 1490 CURSOR XPOS1,YPOS1 1500 PRINT LTK$;BLANK$(1:77-XPOS1-LEN(LTK$)) 1510 CURSOR XPOS1+LEN(LTK$),YPOS1 1520 INPUT " ",A$ 1530 EXEC NRTEST(A$) 1540 UNTIL P>LN4 AND P<LN5 1550 ENDPROC 1560 PROC LINIER(FRA1,TIL1,TÆL1) 1570 FOR TÆL1=FRA1 TO TIL1 1580 PRINT " " 1590 NEXT TÆL1 1600 ENDPROC 1610 PROC NAVN2(NAVN3,GADE1,POSTNR1,BY1,LANDK1) 1620 PRINT NAVN3$ 1630 CURSOR 9,6 1640 PRINT GADE1$ 1650 CURSOR 9,7 1660 PRINT USING "######":POSTNR1 1670 CURSOR 17,7 1680 PRINT BY1$ 1690 CURSOR 9,8 1700 EXEC NRTEST(LANDK1$) 1710 IF P>0 AND P<10 THEN PRINT LAND$(P) 1720 ENDPROC 1730 PROC NAVN1(NAVN,GADE,POSTNR,BY,LANDK) 1740 PRINT TAB(12);NAVN$;" " 1750 PRINT TAB(12);GADE$;" " 1760 PRINT TAB(12);POSTNR;TAB(19);BY$;" " 1770 P1=ORD(LANDK$)-48 1780 IF P1>0 AND P1<10 THEN PRINT TAB(12);LAND$(P1);" " 1790 EXEC LINIER(1,1*(P1<1 OR P1>9),I) 1800 ENDPROC 1810 PROC FINDPOST1(TAB4,Q,MANT2,NØGL5,PIL6,L8) 1820 PIL1=MANT2 DIV 8;PIL6=PIL1;CEKS=1;MANT3=MANT2 DIV 4;MANT4=MANT2 DIV 32 1830 REPEAT 1840 IF NØGL5=TAB4(PIL6) OR PIL1=1 THEN EXIT 1850 PIL1=(PIL1+1) DIV 2;PIL6=PIL6+PIL1*(1-2*(NØGL5<TAB4(PIL6))) 1860 IF PIL6<1 THEN PIL6=1 1870 IF PIL6>MANT3 THEN PIL6=MANT3 1880 UNTIL PIL1=0 1890 IF TAB4(PIL6)>NØGL5 THEN PIL6=PIL6-1*(PIL6>1) 1900 PIL6=MANT4+PIL6 1910 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) 1920 EXEC FEJL(1,1,L8$) 1930 FOR PIL6=1 TO 4 1940 IF NØGL5=Q(PIL6,1) THEN EXIT 1950 NEXT PIL6 1960 IF PIL6<>5 THEN CEKS=0 1970 ENDPROC 1980 PROC INDTAB1(Z,MANT5,L7) 1990 PIL1=MANT5 DIV 32 2000 FOR I=1 TO PIL1 2010 H=(I-1)*8+1 2020 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) 2030 EXEC FEJL(2,1,L7$) 2040 NEXT I 2050 ENDPROC 2060 PROC LUDSKRIV(KT1,DA4,KSNR) 2070 EXEC DATOUD(DA4,DA5$) 2080 KSNR=KSNR+1 2090 PRINT TAB(48);KT1;TAB(56);DA5$;TAB(69); 2100 PRINT USING "##":KSNR 2110 ENDPROC 2120 PROC BUDSKRIV(MKØB,MK,SU2,DS1,DS2,DS3,DS4,LNR) 2130 IF MK<>2 THEN EXEC LINIER(LNR,24-6*(SKRIV1),LNR) 2140 IF SKRIV1=0 OR KTAL1<>DTAL THEN 2150 IF MK<>2 THEN PRINT STREG$ 2160 CASE MK OF 2170 STOP 2180 WHEN 1,2 2190 PRINT TAB(32);"Transport"; 2200 WHEN 3,4 2210 PRINT TAB(57);CHR(14);"Ny saldo";CHR(15) 2220 PRINT STREG$ 2230 WHEN 0 2240 PRINT TAB(11),CHR(14);"Månedens køb";TAB(36);"Ny saldo";CHR(15) 2250 PRINT STREG$ 2260 ENDCASE 2270 ENDIF 2280 IF MK=0 THEN 2290 EXEC TUD(MKØB$,UBELØB$,1,0) 2300 PRINT TAB(11);UBELØB$; 2310 ENDIF 2320 EXEC TUD(SU2$,UBELØB$,0,0) 2330 IF SKRIV1 THEN EXEC TUD(SU2$,UBELØB$,0,1) 2340 PRINT TAB(49+3*(SKRIV1)+(14-3*(SKRIV1))*(SU2$(LEN(SU2$))="-"));UBELØB$ 2350 IF SKRIV1=0 THEN 2360 IF MK<>2 THEN PRINT STREG$ 2370 ELSE 2380 PRINT CHR(10) 2390 ENDIF 2400 IF MK<1 OR MK>2 THEN 2410 IF SKRIV1=0 THEN 2420 CASE MK OF 2430 PRINT TAB(15);CHR(14);"Månedens bev.";TAB(34);"Årets bev.";CHR(15) 2440 WHEN 0,4 2450 PRINT TAB(17);CHR(14);"0-30"; 2460 IF MK=0 THEN PRINT TAB(25);"30-60";TAB(33);"60-90"; 2470 PRINT TAB(41);"Ældre";CHR(15) 2480 ENDCASE 2490 PRINT STREG$ 2500 ENDIF 2510 EXEC TUD(DS1$,UBEL1$,1,0) 2520 EXEC TUD(DS2$,UBEL2$,1,0) 2530 EXEC TUD(DS3$,UBEL3$,1,0) 2540 EXEC TUD(DS4$,UBEL4$,1,0) 2550 PRINT TAB(11);UBEL1$; 2560 IF MK<>4 THEN PRINT TAB(27);UBEL2$;TAB(44);UBEL3$; 2570 PRINT TAB(60);UBEL4$ 2580 ENDIF 2590 IF SKRIV1=0 AND MK<>1 AND MK<>2 THEN 2600 PRINT STREG$ 2610 PRINT CHR(10) 2620 ENDIF 2630 IF MK=1 OR SKRIV1=1 THEN EXEC LINIER(LNR,29-5*(SKRIV1),LNR) 2640 ENDPROC 2650 PROC STARTBIL 2660 REPEAT 2670 OUTPUT T 2680 CLEAR 2690 EXEC OVERSKRIFT(0) 2700 REPEAT 2710 EXEC INDPUT1(4,3,-1,100000,LTX$(1)) 2720 UNTIL P=0 OR (P>9999 AND P<100000) 2730 SUM$="0+";KONT=P;KTAL1=0 2740 IF KONT=0 THEN EXIT 2750 IF KTAL=DTAL AND DTAL*10000+MKGR<KONT THEN KTAL1=DTAL 2760 IF KTAL=KRTAL AND KRTAL*1000+MKRGR<KONT THEN KTAL1=KRTAL 2770 CURSOR 9,5 2780 CASE KTAL1 OF 2790 EXEC FINDPOST1(FTAB1,FTAB,MFANTAL,KONT,FPIL3,K2$) 2800 IF CEKS=0 THEN 2810 EXEC HENTPOST 2820 IF ORD(FUKODE$)-48=0 THEN 2830 PRINT FNAVN$;" " 2840 ELSE 2850 CEKS=1 2860 ENDIF 2870 ENDIF 2880 WHEN DTAL 2890 EXEC FINDPOST1(DTAB1,DTAB,MDANTAL,KONT,DPIL3,K3$) 2900 IF CEKS=0 THEN 2910 EXEC HENTDPOST 2920 EXEC NAVN2(DEBNAVN$,DEBGADE$,DEBPOSTNR,DEBBY$,DEBLK$) 2930 ENDIF 2940 WHEN KRTAL 2950 EXEC FINDPOST1(KTAB1,KTAB,MKANTAL,KONT,KPIL3,K4$) 2960 IF CEKS=0 THEN 2970 EXEC HENTKPOST 2980 EXEC NAVN2(KRENAVN$,KREGADE$,KREPOSTNR,KREBY$,KRELK$) 2990 ENDIF 3000 ENDCASE 3010 IF CEKS=0 THEN EXEC INDPUT1(4,12,-9,-6,LTX$(2)) 3020 IF CEKS=1 THEN EXEC INDPUT1(9,5,-2,0,LTX$(3)) 3030 UNTIL P=-7 OR KONT=0 3040 ENDPROC 3050 PROC HUDSKRIV 3060 PRINT CHR(10) 3070 CASE KTAL1 OF 3080 PRINT TAB(12);CHR(14);FNAVN$;" ";CHR(15) 3090 EXEC LINIER(1,3,I) 3100 WHEN DTAL 3110 IF SKRIV1=1 THEN 3120 PRINT CHR(10) 3130 EXEC NAVN1(EGNAVN$,EGGADE$,EGPOSTNR,EGBY$,A$) 3140 EXEC LINIER(1,4,I) 3150 ENDIF 3160 EXEC NAVN1(DEBNAVN$,DEBGADE$,DEBPOSTNR,DEBBY$,DEBLK$) 3170 WHEN KRTAL 3180 EXEC NAVN1(KRENAVN$,KREGADE$,KREPOSTNR,KREBY$,KRELK$) 3190 ENDCASE 3200 ENDPROC 3210 PROC HSUDSKRIV 3220 IF SKRIV THEN 3230 PRINT TAB(49);"Konto";TAB(56);"Dato";TAB(68);"Side" 3240 PRINT TAB(49);STREG$(1:29) 3250 EXEC LUDSKRIV(KONT,DATO,KSIDENR) 3260 PRINT STREG$ 3270 ELSE 3280 CLEAR 3290 EXEC OVERSKRIFT(1) 3300 CURSOR 1,3 3310 ENDIF 3320 PRINT TAB(3);"Dato";TAB(15);"Bilag Tekst";TAB(52);"Debet";TAB(67); 3330 PRINT "Kredit" 3340 PRINT STREG$ 3350 ENDPROC 3360 PROC OVERSKRIFT(ART1) 3370 IF ART1=0 THEN 3380 PRINT TAB(21);"Kontospørgeprogram";TAB(61);"Dato:";DAT$ 3390 ELSE 3400 CURSOR 1,1 3410 PRINT "Kontospørgeprogram Nr:"; 3420 PRINT USING "###### Navn :":KONT; 3430 CASE KTAL1 OF 3440 PRINT FNAVN$;" "; 3450 WHEN DTAL 3460 PRINT DEBNAVN$;" "; 3470 WHEN KRTAL 3480 PRINT KRENAVN$;" "; 3490 ENDCASE 3500 PRINT TAB(63);" Dato:";DAT$ 3510 ENDIF 3520 ENDPROC 3530 PROC UDSKRIV(PKODE1,SU4,LNR1) 3540 EXEC LINIEUD(DDATO,BILAG,TEKST$,BELØB$,SU4$) 3550 LNR1=LNR1+1 3560 IF LNR1=18+5*(SKRIV) THEN 3570 IF PKODE1=1 THEN 3580 PRINT CHR(10);CHR(10) 3590 EXEC BUDSKRIV(TAL4$,1,SU4$,TAL4$,TAL4$,TAL4$,TAL4$,LNR1) 3600 EXEC HUDSKRIV 3610 EXEC HSUDSKRIV 3620 EXEC BUDSKRIV(TAL4$,2,SU4$,TAL4$,TAL4$,TAL4$,TAL4$,LNR1) 3630 LNR1=1 3640 ELSE 3650 EXEC INDPUT1(4,23,-2,0,LTX$(4)) 3660 CLEAR 3670 EXEC HSUDSKRIV 3680 LNR1=0 3690 ENDIF 3700 ENDIF 3710 ENDPROC 3720 PROC HENTPOST 3730 S=FTAB(FPIL3,2) 3740 GET K5$,S:FNR,FNAVN$ 3750 EXEC FEJL(9,2,K5$) 3760 GET K5$,S+1:FMKODE$,FMDEBET$,FMKREDIT$ 3770 EXEC FEJL(9,3,K5$) 3780 GET K5$,S+2:FUKODE$,FÅDEBET$,FÅKREDIT$ 3790 EXEC FEJL(9,4,K5$) 3800 ENDPROC 3810 PROC HENTDPOST 3820 S=DTAB(DPIL3,2) 3830 GET K6$,S:DEBNR,DEBNAVN$,DSALDO1$,DEBKGR$ 3840 EXEC FEJL(8,2,K6$) 3850 GET K6$,S+1:DSALDO2$,DSALDO3$,DSALDO4$,DEBPOSTNR,DEBLK$ 3860 EXEC FEJL(8,3,K6$) 3870 GET K6$,S+2:DEBGADE$,DEBTLF$,HPOST,HKUNDE 3880 EXEC FEJL(8,4,K6$) 3890 GET K6$,S+3:DEBBY$,ÅRKØB$,MDNKØB$ 3900 EXEC FEJL(8,5,K6$) 3910 ENDPROC 3920 PROC HENTKPOST 3930 S=KTAB(KPIL3,2) 3940 GET K7$,S:KRENR,KRENAVN$,KREGADE$ 3950 EXEC FEJL(4,1,K7$) 3960 GET K7$,S+1:KREBY$,KRELK$,KREGR$,KREPOSTNR,KSALDO1$,KSALDO2$ 3970 EXEC FEJL(4,2,K7$) 3980 ENDPROC 3990 PROC NRTEST(KTN1) 4000 P=0;TEST2=0;KTAL=0;L=LEN(KTN1$) 4010 CASE L OF 4020 FOR I=1 TO L 4030 P1=INT(ORD(KTN1$(I))-48) 4040 IF P1=>0 AND P1<=9 THEN 4050 P=P*10+P1 4060 ELSE 4070 TEST2=1 4080 ENDIF 4090 NEXT I 4100 KTAL=P DIV 10000;KTAL9=P DIV 1000 4110 IF KTAL9=KRTAL THEN KTAL=KTAL9 4120 WHEN 0 4130 P=-1 4140 WHEN 1 4150 CASE KTN1$ OF 4160 P=INT(ORD(KTN1$)-48) 4170 WHEN "j","J" 4180 P=-7 4190 WHEN "n","N" 4200 P=-8 4210 ENDCASE 4220 ENDCASE 4230 ENDPROC 4240 PROC HOVIND(V1,MPOSTANTAL1,R) 4250 OPEN V1$,R 4260 EXEC FEJL(13,1,V1$) 4270 FOR I=1 TO MPOSTANTAL1 DIV 160 4280 J=(I-1)*4+1;J1=J+1;J2=J+2;J3=J+3 4290 GET V1$,I:R(J,1),R(J,2),R(J1,1),R(J1,2),R(J2,1),R(J2,2),R(J3,1),R(J3,2) 4300 EXEC FEJL(13,2,V1$) 4310 NEXT I 4320 CLOSE V1$ 4330 EXEC FEJL(13,3,V1$) 4340 ENDPROC 4350 PROC UNDIND(V2,U1,Z) 4360 OPEN V2$,R 4370 EXEC FEJL(14,1,V2$) 4380 GET V2$,U1:Z(1,1),Z(1,2),Z(2,1),Z(2,2),Z(3,1),Z(3,2),Z(4,1),Z(4,2) 4390 EXEC FEJL(14,2,V2$) 4400 CLOSE V2$ 4410 EXEC FEJL(14,3,V2$) 4420 ENDPROC 4430 PROC DATOUD(DA1,DA2) 4440 DA3=DA1 4450 DA2$=" " 4460 FOR J=8 TO 1 STEP -1 4470 IF J MOD 3=0 THEN 4480 DA2$(J)="." 4490 ELSE 4500 DA2$(J)=CHR(DA3 MOD 10+48) 4510 DA3=DA3 DIV 10 4520 ENDIF 4530 NEXT J 4540 ENDPROC 4550 PROC MKONTUD(K61,MPOSTANTAL8) 4560 OUTPUT P 4570 P=1;T=1 4580 EXEC POSTER(K61$,P,T,MPOSTANTAL8,SKRIV,SUM$) 4590 T=1 4600 IF P<100000 THEN 4610 REPEAT 4620 KSIDENR=0;SUM$="0+" 4630 CASE KTAL1 OF 4640 EXEC FINDPOST1(FTAB1,FTAB,MFANTAL,P,FPIL3,K2$) 4650 IF CEKS=0 THEN EXEC HENTPOST 4660 WHEN DTAL 4670 EXEC FINDPOST1(DTAB1,DTAB,MDANTAL,P,DPIL3,K3$) 4680 IF CEKS=0 THEN EXEC HENTDPOST 4690 WHEN KRTAL 4700 EXEC FINDPOST1(KTAB1,KTAB,MKANTAL,P,KPIL3,K4$) 4710 IF CEKS=0 THEN EXEC HENTKPOST 4720 ENDCASE 4730 IF CEKS<>0 THEN STOP 4740 EXEC HUDSKRIV 4750 IF DTAL=KTAL1 AND SKRIV1=1 THEN 4760 EXEC LUDSKRIV(P,DATO,KSIDENR) 4770 PRINT CHR(10) 4780 ELSE 4790 KONT=P 4800 EXEC HSUDSKRIV 4810 ENDIF 4820 EXEC POSTER(K61$,P,T,MPOSTANTAL8,SKRIV,SUM$) 4830 CASE KTAL1 OF 4840 EXEC BUDSKRIV(TAL4$,3,SUM$,FMDEBET$,FMKREDIT$,FÅDEBET$,FÅKREDIT$,LINIE) 4850 WHEN DTAL 4860 EXEC BUDSKRIV(MDNKØB$,0,SUM$,DSALDO1$,DSALDO2$,DSALDO3$,DSALDO4$,LINIE) 4870 WHEN KRTAL 4880 EXEC BUDSKRIV(TAL4$,4,SUM$,KSALDO1$,TAL4$,TAL4$,KSALDO2$,LINIE) 4890 ENDCASE 4900 T=T6 4910 UNTIL P=100000 OR T=MPOSTANTAL8 4920 ENDIF 4930 P=0 4940 ENDPROC 4950 K1$="P641220:SYSTEM1" 4960 REPEAT 4970 OPEN K1$,R 4980 IF STATUS(K1$)=0 THEN EXIT 4990 CLEAR 5000 CURSOR 25,13 5010 INPUT "ISÆT PLADE NR.20,TAST RETURN",A$ 5020 UNTIL STATUS(K1$)=0 5030 GET K1$,1:MFANTAL,MDANTAL,MKANTAL 5040 EXEC FEJL(9,1,K1$) 5050 GET K1$,3:DPOST,KPOST,MFPOST,MDPOST 5060 EXEC FEJL(9,2,K1$) 5070 GET K1$,4:MKPOST,MFAK,MVGR,MKGR 5080 EXEC FEJL(9,3,K1$) 5090 GET K1$,5:MKRGR 5100 EXEC FEJL(9,4,K1$) 5110 GET K1$,8:DIVNR,DIVDNR,DIFNR,DTAL 5120 EXEC FEJL(9,5,K1$) 5130 GET K1$,9:KRTAL 5140 EXEC FEJL(9,6,K1$) 5150 GET K1$,10:N$ 5160 EXEC FEJL(9,7,K1$) 5170 GET K1$,11:K2$ 5180 EXEC FEJL(9,8,K1$) 5190 GET K1$,12:K3$ 5200 EXEC FEJL(9,9,K1$) 5210 GET K1$,13:K4$ 5220 EXEC FEJL(9,10,K1$) 5230 GET K1$,15:K5$ 5240 EXEC FEJL(9,11,K1$) 5250 GET K1$,16:K6$ 5260 EXEC FEJL(9,12,K1$) 5270 GET K1$,17:K7$ 5280 EXEC FEJL(9,13,K1$) 5290 GET K1$,25:K8$ 5300 EXEC FEJL(9,14,K1$) 5310 GET K1$,26:K9$ 5320 EXEC FEJL(9,15,K1$) 5330 GET K1$,27:K10$ 5340 EXEC FEJL(9,16,K1$) 5350 GET K1$,32:K11$ 5360 EXEC FEJL(9,17,K1$) 5370 GET K1$,33:K12$ 5380 EXEC FEJL(9,18,K1$) 5390 GET K1$,34:K13$ 5400 EXEC FEJL(9,19,K1$) 5410 GET K1$,36:K14$ 5420 EXEC FEJL(9,20,K1$) 5430 CLOSE K1$ 5440 EXEC FEJL(9,21,K1$) 5450 K2$=N$+K2$;K3$=N$+K3$;K4$=N$+K4$;K5$=N$+K5$;K6$=N$+K6$;K7$=N$+K7$ 5460 K8$=N$+K8$;K9$=N$+K9$;K10$=N$+K10$;K11$=N$+K11$;K12$=N$+K12$ 5470 K13$=N$+K13$;K14$=N$+K14$ 5480 OPEN K14$,R 5490 EXEC FEJL(9,22,K14$) 5500 GET K14$,2:T1(1),T1(2),T1(3),T1(4),T1(5),T1(6),T1(7),T1(8),T1(9) 5510 EXEC FEJL(9,23,K14$) 5520 FOR I=1 TO 3 5530 H=(I-1)*3+1 5540 GET K14$,I+2:LAND$(H),LAND$(H+1),LAND$(H+2) 5550 EXEC FEJL(9,24,K14$) 5560 NEXT I 5570 FOR I=1 TO 6 5580 H=(I-1)*3+1 5590 GET K14$,I+5:TFIL$(H),TFIL$(H+1),TFIL$(H+2) 5600 EXEC FEJL(9,25,K14$) 5610 NEXT I 5620 GET K14$,13:T2(1),T2(2),T2(3),T2(4),T2(5),T2(6),T2(7),T2(8),T2(9) 5630 EXEC FEJL(9,26,K14$) 5640 GET K14$,17:T3(1),T3(2),T3(3),T3(4),T3(5),T3(6),T3(7),T3(8),T3(9) 5650 EXEC FEJL(9,27,K14$) 5660 CLOSE K14$ 5670 EXEC FEJL(9,31,K14$) 5680 OPEN K2$,R 5690 EXEC FEJL(9,32,K2$) 5700 OPEN K3$,R 5710 EXEC FEJL(9,33,K3$) 5720 OPEN K4$,R 5730 EXEC FEJL(9,34,K4$) 5740 OPEN K5$,R 5750 EXEC FEJL(9,35,K5$) 5760 OPEN K6$,R 5770 EXEC FEJL(9,36,K6$) 5780 OPEN K7$,R 5790 EXEC FEJL(9,37,K7$) 5800 DIM DTAB1(MDANTAL DIV 4),FTAB1(MFANTAL DIV 4),KTAB1(MKANTAL DIV 4) 5810 DIM DTAB(4,2),FTAB(4,2),KTAB(4,2),HDTAB(MDPOST DIV 40,2) 5820 DIM HFTAB(MFPOST DIV 40,2) 5830 DIM HKRTAB(MKPOST DIV 40,2),UFTAB(4,2),UDTAB(4,2),UKRTAB(4,2) 5840 EXEC INDTAB1(FTAB1,MFANTAL,K2$) 5850 EXEC INDTAB1(DTAB1,MDANTAL,K3$) 5860 EXEC INDTAB1(KTAB1,MKANTAL,K4$) 5870 EXEC HOVIND(K11$,MFPOST,HFTAB) 5880 EXEC HOVIND(K12$,MDPOST,HDTAB) 5890 EXEC HOVIND(K13$,MKPOST,HKRTAB) 5900 LTX$(1)="Indtast kontonr. (0:færdig):" 5910 LTX$(2)="Rigtig konto (J/N)" 5920 LTX$(3)="Konto eksisterer ikke, tast RETURN" 5930 LTX$(4)="Tast RETURN når sideskift ønskes" 5940 LTX$(5)="Ønskes kontoudtog skrevet på formular (J/N):" 5950 LTX$(6)="Monter kontoudtogsformularer og tast RETURN" 5960 LTX$(7)="Ønskes yderligere testprint (J/N):" 5970 LTX$(8)="Monter papir til kontoudtog og tast RETURN" 5980 LTX$(9)="Ønskes udskrift på printer (J/N):" 5990 LTX$(10)="Ønskes flere udskrifter (J/N):" 6000 LTX$(11)="Monter papir til udskrift af finanskonti,tast RETURN" 6010 DATO=T1(7);MAFSLUT=T3(2) 6020 EXEC DATOUD(DATO,DAT$) 6030 EGNAVN$="Schilling Datasystemer";EGGADE$="Kuldyssen 13";EGPOSTNR=2630 6040 EGBY$="Tåstrup" 6050 STREG$="--------------------------------------";STREG$=STREG$+STREG$+"-" 6060 BLANK$=" " 6070 IF MAFSLUT=1 THEN 6080 REPEAT 6090 CLEAR 6100 CURSOR 1,1 6110 PRINT TAB(15);"Månedsafslutning Kontoudtog";TAB(63);" Dato:";DAT$ 6120 EXEC INDPUT1(4,8,-9,-6,LTX$(5)) 6130 KTAL1=DTAL 6140 IF P=-7 THEN 6150 EXEC INDPUT1(4,10,-2,0,LTX$(6)) 6160 SKRIV1=1 6170 REPEAT 6180 DEBNAVN$="XXXXXXXXXXXXXXXXXXXXXXXXX";DEBGADE$=DEBNAVN$;DEBPOSTNR=9999 6190 OUTPUT P 6200 DEBBY$=DEBNAVN$(1:15);DEBLK$="0" 6210 EXEC HUDSKRIV 6220 EXEC LUDSKRIV(99999,999999,9) 6230 PRINT CHR(10) 6240 PRINT TAB(11);"XX.XX.XX XXXXXX XXXXXXXXXXXXXXXXXXXXXXXXX XXX.XXX,XX "; 6250 PRINT "XXX.XXX,XX" 6260 FOR I=1 TO 14 6270 PRINT CHR(10); 6280 NEXT I 6290 PRINT 6300 PRINT TAB(11);"XX.XX.XX XXXXXX XXXXXXXXXXXXXXXXXXXXXXXXX XXX.XXX,XX "; 6310 PRINT "XXX.XXX,XX" 6320 PRINT CHR(10) 6330 PRINT TAB(11);"XX.XXX.XXX,XX";TAB(53);"XXX.XXX,XX XXX.XXX,XX" 6340 PRINT CHR(10) 6350 PRINT TAB(11);"XX.XXX.XXX,XX XX.XXX.XXX,XX XX.XXX.XXX,XX "; 6360 PRINT "XX.XXX.XXX,XX" 6370 PRINT CHR(10);CHR(10);CHR(10);CHR(10);CHR(10) 6380 OUTPUT T 6390 EXEC INDPUT1(4,12,-9,-6,LTX$(7)) 6400 UNTIL P=-8 6410 ELSE 6420 EXEC INDPUT1(4,10,-2,0,LTX$(8)) 6430 SKRIV1=0 6440 ENDIF 6450 SKRIV=1;LINIE=0;T=1 6460 OUTPUT P 6470 EXEC MKONTUD(K9$,MDPOST) 6480 KTAL1=DTAL-1 6490 IF SKRIV1=1 THEN 6500 SKRIV1=0 6510 OUTPUT T 6520 CLEAR 6530 EXEC INDPUT1(20,13,-2,0,LTX$(11)) 6540 ENDIF 6550 EXEC MKONTUD(K8$,MFPOST) 6560 KTAL1=KRTAL 6570 EXEC MKONTUD(K10$,MKPOST) 6580 CLEAR 6590 OUTPUT T 6600 EXEC INDPUT1(20,13,-9,-6,LTX$(10)) 6610 UNTIL P=-8 6620 ELSE 6630 EXEC STARTBIL 6640 REPEAT 6650 IF KONT=0 THEN EXIT 6660 EXEC INDPUT1(4,14,-9,-6,LTX$(9)) 6670 KSIDENR=0;SKRIV1=0 6680 IF P=-7 THEN 6690 SKRIV=1 6700 OUTPUT P 6710 EXEC HUDSKRIV 6720 EXEC HSUDSKRIV 6730 ELSE 6740 SKRIV=0 6750 OUTPUT T 6760 EXEC HSUDSKRIV 6770 ENDIF 6780 CASE KTAL1 OF 6790 EXEC SØG(MFPOST,HFTAB,KONT,UFTAB,K11$) 6800 WHEN DTAL 6810 EXEC SØG(MDPOST,HDTAB,KONT,UDTAB,K12$) 6820 WHEN KRTAL 6830 EXEC SØG(MKPOST,HKRTAB,KONT,UKRTAB,K13$) 6840 ENDCASE 6850 IF T>0 THEN 6860 CASE KTAL1 OF 6870 EXEC POSTER(K8$,KONT,T,MFPOST,SKRIV,SUM$) 6880 WHEN DTAL 6890 EXEC POSTER(K9$,KONT,T,MDPOST,SKRIV,SUM$) 6900 WHEN KRTAL 6910 EXEC POSTER(K10$,KONT,T,MKPOST,SKRIV,SUM$) 6920 ENDCASE 6930 ELSE 6940 LINIE=0 6950 ENDIF 6960 IF T=0 THEN SUM$="0+" 6970 IF SKRIV=0 THEN 6980 EXEC TUD(SUM$,UBELØB$,0,0) 6990 PRINT TAB(35);STREG$(1:43) 7000 PRINT TAB(35);"Ny saldo";TAB(49+14*(SUM$(LEN(SUM$))="-"));UBELØB$ 7010 ELSE 7020 CASE KTAL1 OF 7030 EXEC BUDSKRIV(TAL4$,3,SUM$,FMDEBET$,FMKREDIT$,FÅDEBET$,FÅKREDIT$,LINIE) 7040 WHEN DTAL 7050 EXEC BUDSKRIV(MDNKØB$,0,SUM$,DSALDO1$,DSALDO2$,DSALDO3$,DSALDO4$,LINIE) 7060 WHEN KRTAL 7070 EXEC BUDSKRIV(TAL4$,4,SUM$,KSALDO1$,TAL4$,TAL4$,KSALDO2$,LINIE) 7080 ENDCASE 7090 ENDIF 7100 OUTPUT T 7110 EXEC INDPUT1(4,23,-9,-6,LTX$(10)) 7120 IF P=-7 THEN 7130 EXEC STARTBIL 7140 ELSE 7150 KONT=0 7160 ENDIF 7170 UNTIL KONT=0 7180 ENDIF 7190 OUTPUT T 7200 CLEAR 7210 IF MAFSLUT=0 THEN 7220 CHAIN "P641210:OPSTART" 7230 ELSE 7240 CHAIN "P641210:MAFSLUT" 7250 ENDIF
0x0000…004a Line {l1=0x48, l2=»0100 DIM K1$(17),K2$(17),DEBNAVN$(25),DSALDO1$(12),DEBKGR$(2),FNAVN$(25)«, l3=0x48}
0x004a…0098 Line {l1=0x4c, l2=»0110 DIM DSALDO2$(12),DSALDO3$(12),DSALDO4$(12),DEBLK$(2),DEBGADE$(25),A$(6)«, l3=0x4c}
0x0098…00e6 Line {l1=0x4c, l2=»0120 DIM BLANK$(77),TAL4$(14),TAH$(12),DEBTLF$(9),DEBBY$(20),K3$(17),K4$(17)«, l3=0x4c}
0x00e6…0135 Line {l1=0x4d, l2=»0130 DIM RES$(14),ÅRKØB$(12),MDNKØB$(12),OP2$(12),BELØB$(12),KTNR$(6),K5$(17)«, l3=0x4d}
0x0135…0181 Line {l1=0x4a, l2=»0140 DIM FMDEBET$(12),FMKREDIT$(12),FÅDEBET$(12),FÅKREDIT$(12),FSALDO$(12)«, l3=0x4a}
0x0181…01cf Line {l1=0x4c, l2=»0150 DIM OP1$(12),TK$(3),TEKST$(25),TFIL$(20,10),FUKODE$(1),N$(6),FMKODE$(1)«, l3=0x4c}
0x01cf…0219 Line {l1=0x48, l2=»0160 DIM K6$(17),K7$(17),UBELØB$(14),SUM$(12),DAT$(8),SALDO$(12),DA5$(8)«, l3=0x48}
0x0219…025a Line {l1=0x3f, l2=»0170 DIM EGNAVN$(25),EGGADE$(25),EGBY$(20),STREG$(77),TKODE$(1)«, l3=0x3f}
0x025a…02a1 Line {l1=0x45, l2=»0180 DIM K8$(17),K9$(17),K10$(17),K11$(17),K12$(17),K13$(17),K14$(17)«, l3=0x45}
0x02a1…02ec Line {l1=0x49, l2=»0190 DIM T1(9),T2(9),T3(9),KRENAVN$(25),KREGADE$(25),KREBY$(20),KRELK$(1)«, l3=0x49}
0x02ec…0332 Line {l1=0x44, l2=»0200 DIM KSALDO1$(12),KSALDO2$(12),LTX$(11,52),LAND$(9,12),KREGR$(1)«, l3=0x44}
0x0332…0368 Line {l1=0x34, l2=»0210 DIM UBEL1$(14),UBEL2$(14),UBEL3$(14),UBEL4$(14)«, l3=0x34}
0x0368…0386 Line {l1=0x1c, l2=»0220 PROC CALC(AR3,B1,B2,ES)«, l3=0x1c}
0x0386…03c5 Line {l1=0x3d, l2=»0230 OP1$=B1$;OP2$=B2$;RES$=ES$;SI=0;FLAG=0;ART=AR3-6*(AR3>5)«, l3=0x3d}
0x03c5…03df Line {l1=0x18, l2=»0240 CALL "P641210:REGN"«, l3=0x18}
0x03df…03ee Line {l1=0x0d, l2=»0250 ES$=RES$«, l3=0x0d}
0x03ee…0403 Line {l1=0x13, l2=»0260 IF AR3<6 THEN «, l3=0x13}
0x0403…041c Line {l1=0x17, l2=»0270 IF FLAG THEN STOP «, l3=0x17}
0x041c…0429 Line {l1=0x0b, l2=»0280 ENDIF «, l3=0x0b}
0x0429…0438 Line {l1=0x0d, l2=»0290 ENDPROC «, l3=0x0d}
0x0438…045b Line {l1=0x21, l2=»0300 PROC TUD(BLB,UBLB,TEGN,STØR)«, l3=0x21}
0x045b…047e Line {l1=0x21, l2=»0310 EXEC CALC(5,BLB$,TAH$,UBLB$)«, l3=0x21}
0x047e…0494 Line {l1=0x14, l2=»0320 IF TEGN=0 THEN «, l3=0x14}
0x0494…04ac Line {l1=0x16, l2=»0330 UBLB$=UBLB$(1:13)«, l3=0x16}
0x04ac…04b8 Line {l1=0x0a, l2=»0340 ELSE «, l3=0x0a}
0x04b8…04e8 Line {l1=0x2e, l2=»0350 IF TEGN=1 AND UBLB$(LEN(UBLB$))="+" THEN «, l3=0x2e}
0x04e8…0504 Line {l1=0x1a, l2=»0360 UBLB$(LEN(UBLB$))=" "«, l3=0x1a}
0x0504…0511 Line {l1=0x0b, l2=»0370 ENDIF «, l3=0x0b}
0x0511…051e Line {l1=0x0b, l2=»0380 ENDIF «, l3=0x0b}
0x051e…0534 Line {l1=0x14, l2=»0390 IF STØR=1 THEN «, l3=0x14}
0x0534…0556 Line {l1=0x20, l2=»0400 UBLB$=UBLB$(4:LEN(UBLB$)-3)«, l3=0x20}
0x0556…0563 Line {l1=0x0b, l2=»0410 ENDIF «, l3=0x0b}
0x0563…0572 Line {l1=0x0d, l2=»0420 ENDPROC «, l3=0x0d}
0x0572…058f Line {l1=0x1b, l2=»0430 PROC FEJL(NR1,NR2,NR3)«, l3=0x1b}
0x058f…05ae Line {l1=0x1d, l2=»0440 IF STATUS(NR3$)<>0 THEN «, l3=0x1d}
0x05ae…05d4 Line {l1=0x24, l2=»0450 PRINT NR1,NR2,NR3$,STATUS(NR3$)«, l3=0x24}
0x05d4…05e0 Line {l1=0x0a, l2=»0460 STOP «, l3=0x0a}
0x05e0…05ed Line {l1=0x0b, l2=»0470 ENDIF «, l3=0x0b}
0x05ed…05fc Line {l1=0x0d, l2=»0480 ENDPROC «, l3=0x0d}
0x05fc…062f Line {l1=0x31, l2=»0490 PROC SØG(MPOSTANTAL6,HTAB3,NØGLE3,UTAB3,K34)«, l3=0x31}
0x062f…063d Line {l1=0x0c, l2=»0500 PPIL1=0«, l3=0x0c}
0x063d…065e Line {l1=0x1f, l2=»0510 PPIL2=MPOSTANTAL6 DIV 40+1«, l3=0x1f}
0x065e…066c Line {l1=0x0c, l2=»0520 REPEAT «, l3=0x0c}
0x066c…068c Line {l1=0x1e, l2=»0530 PPIL3=(PPIL1+PPIL2) DIV 2«, l3=0x1e}
0x068c…06b6 Line {l1=0x28, l2=»0540 IF HTAB3(PPIL3,1)=NØGLE3 THEN EXIT «, l3=0x28}
0x06b6…06db Line {l1=0x23, l2=»0550 IF HTAB3(PPIL3,1)>NØGLE3 THEN «, l3=0x23}
0x06db…06ed Line {l1=0x10, l2=»0560 PPIL2=PPIL3«, l3=0x10}
0x06ed…06f9 Line {l1=0x0a, l2=»0570 ELSE «, l3=0x0a}
0x06f9…070b Line {l1=0x10, l2=»0580 PPIL1=PPIL3«, l3=0x10}
0x070b…0718 Line {l1=0x0b, l2=»0590 ENDIF «, l3=0x0b}
0x0718…0733 Line {l1=0x19, l2=»0600 UNTIL PPIL2<=PPIL1+1«, l3=0x19}
0x0733…074a Line {l1=0x15, l2=»0610 IF PPIL3>1 THEN «, l3=0x15}
0x074a…0758 Line {l1=0x0c, l2=»0620 REPEAT «, l3=0x0c}
0x0758…076c Line {l1=0x12, l2=»0630 PPIL3=PPIL3-1«, l3=0x12}
0x076c…0799 Line {l1=0x2b, l2=»0640 UNTIL HTAB3(PPIL3,1)<NØGLE3 OR PPIL3=1«, l3=0x2b}
0x0799…07a6 Line {l1=0x0b, l2=»0650 ENDIF «, l3=0x0b}
0x07a6…07e4 Line {l1=0x3c, l2=»0660 IF HTAB3(PPIL3,2)<NØGLE3 OR NØGLE3<HTAB3(PPIL3,1) THEN «, l3=0x3c}
0x07e4…080b Line {l1=0x25, l2=»0670 IF HTAB3(PPIL3+1,1)>NØGLE3 THEN «, l3=0x25}
0x080b…0815 Line {l1=0x08, l2=»0680 T=0«, l3=0x08}
0x0815…0821 Line {l1=0x0a, l2=»0690 ELSE «, l3=0x0a}
0x0821…0831 Line {l1=0x0e, l2=»0700 T=PPIL3+1«, l3=0x0e}
0x0831…083e Line {l1=0x0b, l2=»0710 ENDIF «, l3=0x0b}
0x083e…084a Line {l1=0x0a, l2=»0720 ELSE «, l3=0x0a}
0x084a…0858 Line {l1=0x0c, l2=»0730 T=PPIL3«, l3=0x0c}
0x0858…0865 Line {l1=0x0b, l2=»0740 ENDIF «, l3=0x0b}
0x0865…0878 Line {l1=0x11, l2=»0750 IF T>0 THEN «, l3=0x11}
0x0878…0896 Line {l1=0x1c, l2=»0760 K=T+MPOSTANTAL6 DIV 160«, l3=0x1c}
0x0896…08b6 Line {l1=0x1e, l2=»0770 EXEC UNDIND(K34$,K,UTAB3)«, l3=0x1e}
0x08b6…08d1 Line {l1=0x19, l2=»0780 FOR I=4 TO 1 STEP -1«, l3=0x19}
0x08d1…08f7 Line {l1=0x24, l2=»0790 IF UTAB3(I,1)<NØGLE3 THEN EXIT «, l3=0x24}
0x08f7…0904 Line {l1=0x0b, l2=»0800 NEXT I«, l3=0x0b}
0x0904…091a Line {l1=0x14, l2=»0810 IF I=0 THEN I=1«, l3=0x14}
0x091a…093b Line {l1=0x1f, l2=»0820 IF UTAB3(I,2)<NØGLE3 THEN «, l3=0x1f}
0x093b…095e Line {l1=0x21, l2=»0830 IF UTAB3(I+1,1)>NØGLE3 THEN «, l3=0x21}
0x095e…0968 Line {l1=0x08, l2=»0840 T=0«, l3=0x08}
0x0968…0974 Line {l1=0x0a, l2=»0850 ELSE «, l3=0x0a}
0x0974…098c Line {l1=0x16, l2=»0860 T=(T-1)*40+I*10+1«, l3=0x16}
0x098c…0999 Line {l1=0x0b, l2=»0870 ENDIF «, l3=0x0b}
0x0999…09a5 Line {l1=0x0a, l2=»0880 ELSE «, l3=0x0a}
0x09a5…09c1 Line {l1=0x1a, l2=»0890 T=(T-1)*40+(I-1)*10+1«, l3=0x1a}
0x09c1…09ce Line {l1=0x0b, l2=»0900 ENDIF «, l3=0x0b}
0x09ce…09db Line {l1=0x0b, l2=»0910 ENDIF «, l3=0x0b}
0x09db…09ea Line {l1=0x0d, l2=»0920 ENDPROC «, l3=0x0d}
0x09ea…0a21 Line {l1=0x35, l2=»0930 PROC POSTER(K35,NØGLE4,T5,MPOSTANTAL7,PKODE,SU3)«, l3=0x35}
0x0a21…0a2f Line {l1=0x0c, l2=»0940 LINIE=0«, l3=0x0c}
0x0a2f…0a41 Line {l1=0x10, l2=»0950 OPEN K35$,R«, l3=0x10}
0x0a41…0a5b Line {l1=0x18, l2=»0960 EXEC FEJL(1,1,K35$)«, l3=0x18}
0x0a5b…0a6f Line {l1=0x12, l2=»0970 FOR I=1 TO 10«, l3=0x12}
0x0a6f…0a87 Line {l1=0x16, l2=»0980 GET K35$,T5:KTNUM«, l3=0x16}
0x0a87…0aa1 Line {l1=0x18, l2=»0990 EXEC FEJL(1,2,K35$)«, l3=0x18}
0x0aa1…0ac2 Line {l1=0x1f, l2=»1000 IF KTNUM=NØGLE4 THEN EXIT «, l3=0x1f}
0x0ac2…0ae0 Line {l1=0x1c, l2=»1010 IF MAFSLUT=1 THEN EXIT «, l3=0x1c}
0x0ae0…0aee Line {l1=0x0c, l2=»1020 T5=T5+1«, l3=0x0c}
0x0aee…0afb Line {l1=0x0b, l2=»1030 NEXT I«, l3=0x0b}
0x0afb…0b17 Line {l1=0x1a, l2=»1040 IF KTNUM=NØGLE4 THEN «, l3=0x1a}
0x0b17…0b35 Line {l1=0x1c, l2=»1050 FOR K=T5 TO MPOSTANTAL7«, l3=0x1c}
0x0b35…0b66 Line {l1=0x2f, l2=»1060 GET K35$,K:KONTO,DDATO,BILAG,TKODE$,BELØB$«, l3=0x2f}
0x0b66…0b80 Line {l1=0x18, l2=»1070 EXEC FEJL(1,3,K35$)«, l3=0x18}
0x0b80…0ba2 Line {l1=0x20, l2=»1080 IF KONTO<>NØGLE4 THEN EXIT «, l3=0x20}
0x0ba2…0bbb Line {l1=0x17, l2=»1090 TKS=ORD(TKODE$)-48«, l3=0x17}
0x0bbb…0bdb Line {l1=0x1e, l2=»1100 IF TKS>9 AND TKS<20 THEN «, l3=0x1e}
0x0bdb…0be7 Line {l1=0x0a, l2=»1110 K=K+1«, l3=0x0a}
0x0be7…0c05 Line {l1=0x1c, l2=»1120 GET K35$,K:KONTO,TEKST$«, l3=0x1c}
0x0c05…0c1f Line {l1=0x18, l2=»1130 EXEC FEJL(1,4,K35$)«, l3=0x18}
0x0c1f…0c4e Line {l1=0x2d, l2=»1140 TEKST$=TEKST$+BLANK$(1:25-LEN(TEKST$)+1)«, l3=0x2d}
0x0c4e…0c5a Line {l1=0x0a, l2=»1150 ELSE «, l3=0x0a}
0x0c5a…0c6f Line {l1=0x13, l2=»1160 IF TKS>0 THEN «, l3=0x13}
0x0c6f…0cbc Line {l1=0x4b, l2=»1170 TEKST$=TFIL$(TKS-10*(TKS>20))+BLANK$(1:25-LEN(TFIL$(TKS-10*(TKS>20))))«, l3=0x4b}
0x0cbc…0cc8 Line {l1=0x0a, l2=»1180 ELSE «, l3=0x0a}
0x0cc8…0cdc Line {l1=0x12, l2=»1190 TEKST$=BLANK$«, l3=0x12}
0x0cdc…0ce9 Line {l1=0x0b, l2=»1200 ENDIF «, l3=0x0b}
0x0ce9…0cf6 Line {l1=0x0b, l2=»1210 ENDIF «, l3=0x0b}
0x0cf6…0d1b Line {l1=0x23, l2=»1220 EXEC UDSKRIV(PKODE,SU3$,LINIE)«, l3=0x23}
0x0d1b…0d28 Line {l1=0x0b, l2=»1230 NEXT K«, l3=0x0b}
0x0d28…0d41 Line {l1=0x17, l2=»1240 IF MAFSLUT=1 THEN «, l3=0x17}
0x0d41…0d59 Line {l1=0x16, l2=»1250 T6=K;NØGLE4=KONTO«, l3=0x16}
0x0d59…0d66 Line {l1=0x0b, l2=»1260 ENDIF «, l3=0x0b}
0x0d66…0d72 Line {l1=0x0a, l2=»1270 ELSE «, l3=0x0a}
0x0d72…0d8b Line {l1=0x17, l2=»1280 T6=T5;NØGLE4=KTNUM«, l3=0x17}
0x0d8b…0d96 Line {l1=0x09, l2=»1290 T5=0«, l3=0x09}
0x0d96…0da3 Line {l1=0x0b, l2=»1300 ENDIF «, l3=0x0b}
0x0da3…0db4 Line {l1=0x0f, l2=»1310 CLOSE K35$«, l3=0x0f}
0x0db4…0dce Line {l1=0x18, l2=»1320 EXEC FEJL(1,5,K35$)«, l3=0x18}
0x0dce…0ddd Line {l1=0x0d, l2=»1330 ENDPROC «, l3=0x0d}
0x0ddd…0e05 Line {l1=0x26, l2=»1340 PROC LINIEUD(DA2,BI2,TE2,BE2,SU1)«, l3=0x26}
0x0e05…0e15 Line {l1=0x0e, l2=»1350 SK=SKRIV1«, l3=0x0e}
0x0e15…0e37 Line {l1=0x20, l2=»1360 EXEC CALC(0,SU1$,BE2$,SU1$)«, l3=0x20}
0x0e37…0e53 Line {l1=0x1a, l2=»1370 EXEC DATOUD(DA2,DA5$)«, l3=0x1a}
0x0e53…0e82 Line {l1=0x2d, l2=»1380 PRINT TAB(3+8*(SK));DA5$;TAB(13+6*(SK));«, l3=0x2d}
0x0e82…0e99 Line {l1=0x15, l2=»1390 IF BI2<>-1 THEN «, l3=0x15}
0x0e99…0eba Line {l1=0x1f, l2=»1400 PRINT USING "#######":BI2;«, l3=0x1f}
0x0eba…0ec7 Line {l1=0x0b, l2=»1410 ENDIF «, l3=0x0b}
0x0ec7…0ee8 Line {l1=0x1f, l2=»1420 PRINT TAB(24+3*(SK));TE2$;«, l3=0x1f}
0x0ee8…0f09 Line {l1=0x1f, l2=»1430 EXEC TUD(BE2$,UBELØB$,0,0)«, l3=0x1f}
0x0f09…0f35 Line {l1=0x2a, l2=»1440 IF SK THEN EXEC TUD(BE2$,UBELØB$,0,1)«, l3=0x2a}
0x0f35…0f7a Line {l1=0x43, l2=»1450 PRINT TAB(49+3*(SK)+(14-3*(SK))*(BE2$(LEN(BE2$))="-"));UBELØB$«, l3=0x43}
0x0f7a…0f89 Line {l1=0x0d, l2=»1460 ENDPROC «, l3=0x0d}
0x0f89…0fb5 Line {l1=0x2a, l2=»1470 PROC INDPUT1(XPOS1,YPOS1,LN4,LN5,LTK)«, l3=0x2a}
0x0fb5…0fc3 Line {l1=0x0c, l2=»1480 REPEAT «, l3=0x0c}
0x0fc3…0fdc Line {l1=0x17, l2=»1490 CURSOR XPOS1,YPOS1«, l3=0x17}
0x0fdc…100a Line {l1=0x2c, l2=»1500 PRINT LTK$;BLANK$(1:77-XPOS1-LEN(LTK$))«, l3=0x2c}
0x100a…102d Line {l1=0x21, l2=»1510 CURSOR XPOS1+LEN(LTK$),YPOS1«, l3=0x21}
0x102d…1040 Line {l1=0x11, l2=»1520 INPUT " ",A$«, l3=0x11}
0x1040…1056 Line {l1=0x14, l2=»1530 EXEC NRTEST(A$)«, l3=0x14}
0x1056…1072 Line {l1=0x1a, l2=»1540 UNTIL P>LN4 AND P<LN5«, l3=0x1a}
0x1072…1081 Line {l1=0x0d, l2=»1550 ENDPROC «, l3=0x0d}
0x1081…10a3 Line {l1=0x20, l2=»1560 PROC LINIER(FRA1,TIL1,TÆL1)«, l3=0x20}
0x10a3…10bf Line {l1=0x1a, l2=»1570 FOR TÆL1=FRA1 TO TIL1«, l3=0x1a}
0x10bf…10cf Line {l1=0x0e, l2=»1580 PRINT " "«, l3=0x0e}
0x10cf…10df Line {l1=0x0e, l2=»1590 NEXT TÆL1«, l3=0x0e}
0x10df…10ee Line {l1=0x0d, l2=»1600 ENDPROC «, l3=0x0d}
0x10ee…111f Line {l1=0x2f, l2=»1610 PROC NAVN2(NAVN3,GADE1,POSTNR1,BY1,LANDK1)«, l3=0x2f}
0x111f…1132 Line {l1=0x11, l2=»1620 PRINT NAVN3$«, l3=0x11}
0x1132…1143 Line {l1=0x0f, l2=»1630 CURSOR 9,6«, l3=0x0f}
0x1143…1156 Line {l1=0x11, l2=»1640 PRINT GADE1$«, l3=0x11}
0x1156…1167 Line {l1=0x0f, l2=»1650 CURSOR 9,7«, l3=0x0f}
0x1167…118a Line {l1=0x21, l2=»1660 PRINT USING "######":POSTNR1«, l3=0x21}
0x118a…119c Line {l1=0x10, l2=»1670 CURSOR 17,7«, l3=0x10}
0x119c…11ad Line {l1=0x0f, l2=»1680 PRINT BY1$«, l3=0x0f}
0x11ad…11be Line {l1=0x0f, l2=»1690 CURSOR 9,8«, l3=0x0f}
0x11be…11d9 Line {l1=0x19, l2=»1700 EXEC NRTEST(LANDK1$)«, l3=0x19}
0x11d9…1203 Line {l1=0x28, l2=»1710 IF P>0 AND P<10 THEN PRINT LAND$(P)«, l3=0x28}
0x1203…1212 Line {l1=0x0d, l2=»1720 ENDPROC «, l3=0x0d}
0x1212…123e Line {l1=0x2a, l2=»1730 PROC NAVN1(NAVN,GADE,POSTNR,BY,LANDK)«, l3=0x2a}
0x123e…125c Line {l1=0x1c, l2=»1740 PRINT TAB(12);NAVN$;" "«, l3=0x1c}
0x125c…127a Line {l1=0x1c, l2=»1750 PRINT TAB(12);GADE$;" "«, l3=0x1c}
0x127a…12a5 Line {l1=0x29, l2=»1760 PRINT TAB(12);POSTNR;TAB(19);BY$;" "«, l3=0x29}
0x12a5…12bd Line {l1=0x16, l2=»1770 P1=ORD(LANDK$)-48«, l3=0x16}
0x12bd…12f6 Line {l1=0x37, l2=»1780 IF P1>0 AND P1<10 THEN PRINT TAB(12);LAND$(P1);" "«, l3=0x37}
0x12f6…131e Line {l1=0x26, l2=»1790 EXEC LINIER(1,1*(P1<1 OR P1>9),I)«, l3=0x26}
0x131e…132d Line {l1=0x0d, l2=»1800 ENDPROC «, l3=0x0d}
0x132d…135e Line {l1=0x2f, l2=»1810 PROC FINDPOST1(TAB4,Q,MANT2,NØGL5,PIL6,L8)«, l3=0x2f}
0x135e…13ab Line {l1=0x4b, l2=»1820 PIL1=MANT2 DIV 8;PIL6=PIL1;CEKS=1;MANT3=MANT2 DIV 4;MANT4=MANT2 DIV 32«, l3=0x4b}
0x13ab…13b9 Line {l1=0x0c, l2=»1830 REPEAT «, l3=0x0c}
0x13b9…13e8 Line {l1=0x2d, l2=»1840 IF NØGL5=TAB4(PIL6) OR PIL1=1 THEN EXIT «, l3=0x2d}
0x13e8…142a Line {l1=0x40, l2=»1850 PIL1=(PIL1+1) DIV 2;PIL6=PIL6+PIL1*(1-2*(NØGL5<TAB4(PIL6)))«, l3=0x40}
0x142a…1446 Line {l1=0x1a, l2=»1860 IF PIL6<1 THEN PIL6=1«, l3=0x1a}
0x1446…146a Line {l1=0x22, l2=»1870 IF PIL6>MANT3 THEN PIL6=MANT3«, l3=0x22}
0x146a…147d Line {l1=0x11, l2=»1880 UNTIL PIL1=0«, l3=0x11}
0x147d…14b1 Line {l1=0x32, l2=»1890 IF TAB4(PIL6)>NØGL5 THEN PIL6=PIL6-1*(PIL6>1)«, l3=0x32}
0x14b1…14c7 Line {l1=0x14, l2=»1900 PIL6=MANT4+PIL6«, l3=0x14}
0x14c7…1512 Line {l1=0x49, l2=»1910 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}
0x1512…152b Line {l1=0x17, l2=»1920 EXEC FEJL(1,1,L8$)«, l3=0x17}
0x152b…1541 Line {l1=0x14, l2=»1930 FOR PIL6=1 TO 4«, l3=0x14}
0x1541…1565 Line {l1=0x22, l2=»1940 IF NØGL5=Q(PIL6,1) THEN EXIT «, l3=0x22}
0x1565…1575 Line {l1=0x0e, l2=»1950 NEXT PIL6«, l3=0x0e}
0x1575…1592 Line {l1=0x1b, l2=»1960 IF PIL6<>5 THEN CEKS=0«, l3=0x1b}
0x1592…15a1 Line {l1=0x0d, l2=»1970 ENDPROC «, l3=0x0d}
0x15a1…15c0 Line {l1=0x1d, l2=»1980 PROC INDTAB1(Z,MANT5,L7)«, l3=0x1d}
0x15c0…15d8 Line {l1=0x16, l2=»1990 PIL1=MANT5 DIV 32«, l3=0x16}
0x15d8…15ee Line {l1=0x14, l2=»2000 FOR I=1 TO PIL1«, l3=0x14}
0x15ee…1600 Line {l1=0x10, l2=»2010 H=(I-1)*8+1«, l3=0x10}
0x1600…1646 Line {l1=0x44, l2=»2020 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}
0x1646…165f Line {l1=0x17, l2=»2030 EXEC FEJL(2,1,L7$)«, l3=0x17}
0x165f…166c Line {l1=0x0b, l2=»2040 NEXT I«, l3=0x0b}
0x166c…167b Line {l1=0x0d, l2=»2050 ENDPROC «, l3=0x0d}
0x167b…169d Line {l1=0x20, l2=»2060 PROC LUDSKRIV(KT1,DA4,KSNR)«, l3=0x20}
0x169d…16b9 Line {l1=0x1a, l2=»2070 EXEC DATOUD(DA4,DA5$)«, l3=0x1a}
0x16b9…16cb Line {l1=0x10, l2=»2080 KSNR=KSNR+1«, l3=0x10}
0x16cb…16f9 Line {l1=0x2c, l2=»2090 PRINT TAB(48);KT1;TAB(56);DA5$;TAB(69);«, l3=0x2c}
0x16f9…1715 Line {l1=0x1a, l2=»2100 PRINT USING "##":KSNR«, l3=0x1a}
0x1715…1724 Line {l1=0x0d, l2=»2110 ENDPROC «, l3=0x0d}
0x1724…1759 Line {l1=0x33, l2=»2120 PROC BUDSKRIV(MKØB,MK,SU2,DS1,DS2,DS3,DS4,LNR)«, l3=0x33}
0x1759…1790 Line {l1=0x35, l2=»2130 IF MK<>2 THEN EXEC LINIER(LNR,24-6*(SKRIV1),LNR)«, l3=0x35}
0x1790…17b7 Line {l1=0x25, l2=»2140 IF SKRIV1=0 OR KTAL1<>DTAL THEN «, l3=0x25}
0x17b7…17d8 Line {l1=0x1f, l2=»2150 IF MK<>2 THEN PRINT STREG$«, l3=0x1f}
0x17d8…17ea Line {l1=0x10, l2=»2160 CASE MK OF «, l3=0x10}
0x17ea…17f6 Line {l1=0x0a, l2=»2170 STOP «, l3=0x0a}
0x17f6…1805 Line {l1=0x0d, l2=»2180 WHEN 1,2«, l3=0x0d}
0x1805…1826 Line {l1=0x1f, l2=»2190 PRINT TAB(32);"Transport";«, l3=0x1f}
0x1826…1835 Line {l1=0x0d, l2=»2200 WHEN 3,4«, l3=0x0d}
0x1835…1864 Line {l1=0x2d, l2=»2210 PRINT TAB(57);CHR(14);"Ny saldo";CHR(15)«, l3=0x2d}
0x1864…1877 Line {l1=0x11, l2=»2220 PRINT STREG$«, l3=0x11}
0x1877…1884 Line {l1=0x0b, l2=»2230 WHEN 0«, l3=0x0b}
0x1884…18ca Line {l1=0x44, l2=»2240 PRINT TAB(11),CHR(14);"Månedens køb";TAB(36);"Ny saldo";CHR(15)«, l3=0x44}
0x18ca…18dd Line {l1=0x11, l2=»2250 PRINT STREG$«, l3=0x11}
0x18dd…18ec Line {l1=0x0d, l2=»2260 ENDCASE «, l3=0x0d}
0x18ec…18f9 Line {l1=0x0b, l2=»2270 ENDIF «, l3=0x0b}
0x18f9…190d Line {l1=0x12, l2=»2280 IF MK=0 THEN «, l3=0x12}
0x190d…192f Line {l1=0x20, l2=»2290 EXEC TUD(MKØB$,UBELØB$,1,0)«, l3=0x20}
0x192f…194c Line {l1=0x1b, l2=»2300 PRINT TAB(11);UBELØB$;«, l3=0x1b}
0x194c…1959 Line {l1=0x0b, l2=»2310 ENDIF «, l3=0x0b}
0x1959…197a Line {l1=0x1f, l2=»2320 EXEC TUD(SU2$,UBELØB$,0,0)«, l3=0x1f}
0x197a…19aa Line {l1=0x2e, l2=»2330 IF SKRIV1 THEN EXEC TUD(SU2$,UBELØB$,0,1)«, l3=0x2e}
0x19aa…19f7 Line {l1=0x4b, l2=»2340 PRINT TAB(49+3*(SKRIV1)+(14-3*(SKRIV1))*(SU2$(LEN(SU2$))="-"));UBELØB$«, l3=0x4b}
0x19f7…1a0f Line {l1=0x16, l2=»2350 IF SKRIV1=0 THEN «, l3=0x16}
0x1a0f…1a30 Line {l1=0x1f, l2=»2360 IF MK<>2 THEN PRINT STREG$«, l3=0x1f}
0x1a30…1a3c Line {l1=0x0a, l2=»2370 ELSE «, l3=0x0a}
0x1a3c…1a50 Line {l1=0x12, l2=»2380 PRINT CHR(10)«, l3=0x12}
0x1a50…1a5d Line {l1=0x0b, l2=»2390 ENDIF «, l3=0x0b}
0x1a5d…1a79 Line {l1=0x1a, l2=»2400 IF MK<1 OR MK>2 THEN «, l3=0x1a}
0x1a79…1a91 Line {l1=0x16, l2=»2410 IF SKRIV1=0 THEN «, l3=0x16}
0x1a91…1aa3 Line {l1=0x10, l2=»2420 CASE MK OF «, l3=0x10}
0x1aa3…1aec Line {l1=0x47, l2=»2430 PRINT TAB(15);CHR(14);"Månedens bev.";TAB(34);"Årets bev.";CHR(15)«, l3=0x47}
0x1aec…1afb Line {l1=0x0d, l2=»2440 WHEN 0,4«, l3=0x0d}
0x1afb…1b1f Line {l1=0x22, l2=»2450 PRINT TAB(17);CHR(14);"0-30";«, l3=0x22}
0x1b1f…1b59 Line {l1=0x38, l2=»2460 IF MK=0 THEN PRINT TAB(25);"30-60";TAB(33);"60-90";«, l3=0x38}
0x1b59…1b7d Line {l1=0x22, l2=»2470 PRINT TAB(41);"Ældre";CHR(15)«, l3=0x22}
0x1b7d…1b8c Line {l1=0x0d, l2=»2480 ENDCASE «, l3=0x0d}
0x1b8c…1b9f Line {l1=0x11, l2=»2490 PRINT STREG$«, l3=0x11}
0x1b9f…1bac Line {l1=0x0b, l2=»2500 ENDIF «, l3=0x0b}
0x1bac…1bcc Line {l1=0x1e, l2=»2510 EXEC TUD(DS1$,UBEL1$,1,0)«, l3=0x1e}
0x1bcc…1bec Line {l1=0x1e, l2=»2520 EXEC TUD(DS2$,UBEL2$,1,0)«, l3=0x1e}
0x1bec…1c0c Line {l1=0x1e, l2=»2530 EXEC TUD(DS3$,UBEL3$,1,0)«, l3=0x1e}
0x1c0c…1c2c Line {l1=0x1e, l2=»2540 EXEC TUD(DS4$,UBEL4$,1,0)«, l3=0x1e}
0x1c2c…1c48 Line {l1=0x1a, l2=»2550 PRINT TAB(11);UBEL1$;«, l3=0x1a}
0x1c48…1c81 Line {l1=0x37, l2=»2560 IF MK<>4 THEN PRINT TAB(27);UBEL2$;TAB(44);UBEL3$;«, l3=0x37}
0x1c81…1c9c Line {l1=0x19, l2=»2570 PRINT TAB(60);UBEL4$«, l3=0x19}
0x1c9c…1ca9 Line {l1=0x0b, l2=»2580 ENDIF «, l3=0x0b}
0x1ca9…1cd5 Line {l1=0x2a, l2=»2590 IF SKRIV1=0 AND MK<>1 AND MK<>2 THEN «, l3=0x2a}
0x1cd5…1ce8 Line {l1=0x11, l2=»2600 PRINT STREG$«, l3=0x11}
0x1ce8…1cfc Line {l1=0x12, l2=»2610 PRINT CHR(10)«, l3=0x12}
0x1cfc…1d09 Line {l1=0x0b, l2=»2620 ENDIF «, l3=0x0b}
0x1d09…1d4b Line {l1=0x40, l2=»2630 IF MK=1 OR SKRIV1=1 THEN EXEC LINIER(LNR,29-5*(SKRIV1),LNR)«, l3=0x40}
0x1d4b…1d5a Line {l1=0x0d, l2=»2640 ENDPROC «, l3=0x0d}
0x1d5a…1d6e Line {l1=0x12, l2=»2650 PROC STARTBIL«, l3=0x12}
0x1d6e…1d7c Line {l1=0x0c, l2=»2660 REPEAT «, l3=0x0c}
0x1d7c…1d8b Line {l1=0x0d, l2=»2670 OUTPUT T«, l3=0x0d}
0x1d8b…1d98 Line {l1=0x0b, l2=»2680 CLEAR «, l3=0x0b}
0x1d98…1db1 Line {l1=0x17, l2=»2690 EXEC OVERSKRIFT(0)«, l3=0x17}
0x1db1…1dbf Line {l1=0x0c, l2=»2700 REPEAT «, l3=0x0c}
0x1dbf…1de9 Line {l1=0x28, l2=»2710 EXEC INDPUT1(4,3,-1,100000,LTX$(1))«, l3=0x28}
0x1de9…1e12 Line {l1=0x27, l2=»2720 UNTIL P=0 OR (P>9999 AND P<100000)«, l3=0x27}
0x1e12…1e31 Line {l1=0x1d, l2=»2730 SUM$="0+";KONT=P;KTAL1=0«, l3=0x1d}
0x1e31…1e4c Line {l1=0x19, l2=»2740 IF KONT=0 THEN EXIT «, l3=0x19}
0x1e4c…1e88 Line {l1=0x3a, l2=»2750 IF KTAL=DTAL AND DTAL*10000+MKGR<KONT THEN KTAL1=DTAL«, l3=0x3a}
0x1e88…1ec7 Line {l1=0x3d, l2=»2760 IF KTAL=KRTAL AND KRTAL*1000+MKRGR<KONT THEN KTAL1=KRTAL«, l3=0x3d}
0x1ec7…1ed8 Line {l1=0x0f, l2=»2770 CURSOR 9,5«, l3=0x0f}
0x1ed8…1eed Line {l1=0x13, l2=»2780 CASE KTAL1 OF «, l3=0x13}
0x1eed…1f25 Line {l1=0x36, l2=»2790 EXEC FINDPOST1(FTAB1,FTAB,MFANTAL,KONT,FPIL3,K2$)«, l3=0x36}
0x1f25…1f3b Line {l1=0x14, l2=»2800 IF CEKS=0 THEN «, l3=0x14}
0x1f3b…1f4f Line {l1=0x12, l2=»2810 EXEC HENTPOST«, l3=0x12}
0x1f4f…1f70 Line {l1=0x1f, l2=»2820 IF ORD(FUKODE$)-48=0 THEN «, l3=0x1f}
0x1f70…1f87 Line {l1=0x15, l2=»2830 PRINT FNAVN$;" "«, l3=0x15}
0x1f87…1f93 Line {l1=0x0a, l2=»2840 ELSE «, l3=0x0a}
0x1f93…1fa0 Line {l1=0x0b, l2=»2850 CEKS=1«, l3=0x0b}
0x1fa0…1fad Line {l1=0x0b, l2=»2860 ENDIF «, l3=0x0b}
0x1fad…1fba Line {l1=0x0b, l2=»2870 ENDIF «, l3=0x0b}
0x1fba…1fca Line {l1=0x0e, l2=»2880 WHEN DTAL«, l3=0x0e}
0x1fca…2002 Line {l1=0x36, l2=»2890 EXEC FINDPOST1(DTAB1,DTAB,MDANTAL,KONT,DPIL3,K3$)«, l3=0x36}
0x2002…2018 Line {l1=0x14, l2=»2900 IF CEKS=0 THEN «, l3=0x14}
0x2018…202d Line {l1=0x13, l2=»2910 EXEC HENTDPOST«, l3=0x13}
0x202d…2069 Line {l1=0x3a, l2=»2920 EXEC NAVN2(DEBNAVN$,DEBGADE$,DEBPOSTNR,DEBBY$,DEBLK$)«, l3=0x3a}
0x2069…2076 Line {l1=0x0b, l2=»2930 ENDIF «, l3=0x0b}
0x2076…2087 Line {l1=0x0f, l2=»2940 WHEN KRTAL«, l3=0x0f}
0x2087…20bf Line {l1=0x36, l2=»2950 EXEC FINDPOST1(KTAB1,KTAB,MKANTAL,KONT,KPIL3,K4$)«, l3=0x36}
0x20bf…20d5 Line {l1=0x14, l2=»2960 IF CEKS=0 THEN «, l3=0x14}
0x20d5…20ea Line {l1=0x13, l2=»2970 EXEC HENTKPOST«, l3=0x13}
0x20ea…2126 Line {l1=0x3a, l2=»2980 EXEC NAVN2(KRENAVN$,KREGADE$,KREPOSTNR,KREBY$,KRELK$)«, l3=0x3a}
0x2126…2133 Line {l1=0x0b, l2=»2990 ENDIF «, l3=0x0b}
0x2133…2142 Line {l1=0x0d, l2=»3000 ENDCASE «, l3=0x0d}
0x2142…2178 Line {l1=0x34, l2=»3010 IF CEKS=0 THEN EXEC INDPUT1(4,12,-9,-6,LTX$(2))«, l3=0x34}
0x2178…21ac Line {l1=0x32, l2=»3020 IF CEKS=1 THEN EXEC INDPUT1(9,5,-2,0,LTX$(3))«, l3=0x32}
0x21ac…21c7 Line {l1=0x19, l2=»3030 UNTIL P=-7 OR KONT=0«, l3=0x19}
0x21c7…21d6 Line {l1=0x0d, l2=»3040 ENDPROC «, l3=0x0d}
0x21d6…21ea Line {l1=0x12, l2=»3050 PROC HUDSKRIV«, l3=0x12}
0x21ea…21fe Line {l1=0x12, l2=»3060 PRINT CHR(10)«, l3=0x12}
0x21fe…2213 Line {l1=0x13, l2=»3070 CASE KTAL1 OF «, l3=0x13}
0x2213…2242 Line {l1=0x2d, l2=»3080 PRINT TAB(12);CHR(14);FNAVN$;" ";CHR(15)«, l3=0x2d}
0x2242…225b Line {l1=0x17, l2=»3090 EXEC LINIER(1,3,I)«, l3=0x17}
0x225b…226b Line {l1=0x0e, l2=»3100 WHEN DTAL«, l3=0x0e}
0x226b…2283 Line {l1=0x16, l2=»3110 IF SKRIV1=1 THEN «, l3=0x16}
0x2283…2297 Line {l1=0x12, l2=»3120 PRINT CHR(10)«, l3=0x12}
0x2297…22cb Line {l1=0x32, l2=»3130 EXEC NAVN1(EGNAVN$,EGGADE$,EGPOSTNR,EGBY$,A$)«, l3=0x32}
0x22cb…22e4 Line {l1=0x17, l2=»3140 EXEC LINIER(1,4,I)«, l3=0x17}
0x22e4…22f1 Line {l1=0x0b, l2=»3150 ENDIF «, l3=0x0b}
0x22f1…232d Line {l1=0x3a, l2=»3160 EXEC NAVN1(DEBNAVN$,DEBGADE$,DEBPOSTNR,DEBBY$,DEBLK$)«, l3=0x3a}
0x232d…233e Line {l1=0x0f, l2=»3170 WHEN KRTAL«, l3=0x0f}
0x233e…237a Line {l1=0x3a, l2=»3180 EXEC NAVN1(KRENAVN$,KREGADE$,KREPOSTNR,KREBY$,KRELK$)«, l3=0x3a}
0x237a…2389 Line {l1=0x0d, l2=»3190 ENDCASE «, l3=0x0d}
0x2389…2398 Line {l1=0x0d, l2=»3200 ENDPROC «, l3=0x0d}
0x2398…23ad Line {l1=0x13, l2=»3210 PROC HSUDSKRIV«, l3=0x13}
0x23ad…23c2 Line {l1=0x13, l2=»3220 IF SKRIV THEN «, l3=0x13}
0x23c2…23fc Line {l1=0x38, l2=»3230 PRINT TAB(49);"Konto";TAB(56);"Dato";TAB(68);"Side"«, l3=0x38}
0x23fc…241d Line {l1=0x1f, l2=»3240 PRINT TAB(49);STREG$(1:29)«, l3=0x1f}
0x241d…2444 Line {l1=0x25, l2=»3250 EXEC LUDSKRIV(KONT,DATO,KSIDENR)«, l3=0x25}
0x2444…2457 Line {l1=0x11, l2=»3260 PRINT STREG$«, l3=0x11}
0x2457…2463 Line {l1=0x0a, l2=»3270 ELSE «, l3=0x0a}
0x2463…2470 Line {l1=0x0b, l2=»3280 CLEAR «, l3=0x0b}
0x2470…2489 Line {l1=0x17, l2=»3290 EXEC OVERSKRIFT(1)«, l3=0x17}
0x2489…249a Line {l1=0x0f, l2=»3300 CURSOR 1,3«, l3=0x0f}
0x249a…24a7 Line {l1=0x0b, l2=»3310 ENDIF «, l3=0x0b}
0x24a7…24f3 Line {l1=0x4a, l2=»3320 PRINT TAB(3);"Dato";TAB(15);"Bilag Tekst";TAB(52);"Debet";TAB(67);«, l3=0x4a}
0x24f3…2508 Line {l1=0x13, l2=»3330 PRINT "Kredit"«, l3=0x13}
0x2508…251b Line {l1=0x11, l2=»3340 PRINT STREG$«, l3=0x11}
0x251b…252a Line {l1=0x0d, l2=»3350 ENDPROC «, l3=0x0d}
0x252a…2546 Line {l1=0x1a, l2=»3360 PROC OVERSKRIFT(ART1)«, l3=0x1a}
0x2546…255c Line {l1=0x14, l2=»3370 IF ART1=0 THEN «, l3=0x14}
0x255c…259a Line {l1=0x3c, l2=»3380 PRINT TAB(21);"Kontospørgeprogram";TAB(61);"Dato:";DAT$«, l3=0x3c}
0x259a…25a6 Line {l1=0x0a, l2=»3390 ELSE «, l3=0x0a}
0x25a6…25b7 Line {l1=0x0f, l2=»3400 CURSOR 1,1«, l3=0x0f}
0x25b7…25df Line {l1=0x26, l2=»3410 PRINT "Kontospørgeprogram Nr:";«, l3=0x26}
0x25df…2608 Line {l1=0x27, l2=»3420 PRINT USING "###### Navn :":KONT;«, l3=0x27}
0x2608…261d Line {l1=0x13, l2=»3430 CASE KTAL1 OF «, l3=0x13}
0x261d…2635 Line {l1=0x16, l2=»3440 PRINT FNAVN$;" ";«, l3=0x16}
0x2635…2645 Line {l1=0x0e, l2=»3450 WHEN DTAL«, l3=0x0e}
0x2645…265f Line {l1=0x18, l2=»3460 PRINT DEBNAVN$;" ";«, l3=0x18}
0x265f…2670 Line {l1=0x0f, l2=»3470 WHEN KRTAL«, l3=0x0f}
0x2670…268a Line {l1=0x18, l2=»3480 PRINT KRENAVN$;" ";«, l3=0x18}
0x268a…2699 Line {l1=0x0d, l2=»3490 ENDCASE «, l3=0x0d}
0x2699…26bb Line {l1=0x20, l2=»3500 PRINT TAB(63);" Dato:";DAT$«, l3=0x20}
0x26bb…26c8 Line {l1=0x0b, l2=»3510 ENDIF «, l3=0x0b}
0x26c8…26d7 Line {l1=0x0d, l2=»3520 ENDPROC «, l3=0x0d}
0x26d7…26fb Line {l1=0x22, l2=»3530 PROC UDSKRIV(PKODE1,SU4,LNR1)«, l3=0x22}
0x26fb…272e Line {l1=0x31, l2=»3540 EXEC LINIEUD(DDATO,BILAG,TEKST$,BELØB$,SU4$)«, l3=0x31}
0x272e…2740 Line {l1=0x10, l2=»3550 LNR1=LNR1+1«, l3=0x10}
0x2740…2761 Line {l1=0x1f, l2=»3560 IF LNR1=18+5*(SKRIV) THEN «, l3=0x1f}
0x2761…2779 Line {l1=0x16, l2=»3570 IF PKODE1=1 THEN «, l3=0x16}
0x2779…2795 Line {l1=0x1a, l2=»3580 PRINT CHR(10);CHR(10)«, l3=0x1a}
0x2795…27d4 Line {l1=0x3d, l2=»3590 EXEC BUDSKRIV(TAL4$,1,SU4$,TAL4$,TAL4$,TAL4$,TAL4$,LNR1)«, l3=0x3d}
0x27d4…27e8 Line {l1=0x12, l2=»3600 EXEC HUDSKRIV«, l3=0x12}
0x27e8…27fd Line {l1=0x13, l2=»3610 EXEC HSUDSKRIV«, l3=0x13}
0x27fd…283c Line {l1=0x3d, l2=»3620 EXEC BUDSKRIV(TAL4$,2,SU4$,TAL4$,TAL4$,TAL4$,TAL4$,LNR1)«, l3=0x3d}
0x283c…2849 Line {l1=0x0b, l2=»3630 LNR1=1«, l3=0x0b}
0x2849…2855 Line {l1=0x0a, l2=»3640 ELSE «, l3=0x0a}
0x2855…287b Line {l1=0x24, l2=»3650 EXEC INDPUT1(4,23,-2,0,LTX$(4))«, l3=0x24}
0x287b…2888 Line {l1=0x0b, l2=»3660 CLEAR «, l3=0x0b}
0x2888…289d Line {l1=0x13, l2=»3670 EXEC HSUDSKRIV«, l3=0x13}
0x289d…28aa Line {l1=0x0b, l2=»3680 LNR1=0«, l3=0x0b}
0x28aa…28b7 Line {l1=0x0b, l2=»3690 ENDIF «, l3=0x0b}
0x28b7…28c4 Line {l1=0x0b, l2=»3700 ENDIF «, l3=0x0b}
0x28c4…28d3 Line {l1=0x0d, l2=»3710 ENDPROC «, l3=0x0d}
0x28d3…28e7 Line {l1=0x12, l2=»3720 PROC HENTPOST«, l3=0x12}
0x28e7…28fd Line {l1=0x14, l2=»3730 S=FTAB(FPIL3,2)«, l3=0x14}
0x28fd…2918 Line {l1=0x19, l2=»3740 GET K5$,S:FNR,FNAVN$«, l3=0x19}
0x2918…2931 Line {l1=0x17, l2=»3750 EXEC FEJL(9,2,K5$)«, l3=0x17}
0x2931…295e Line {l1=0x2b, l2=»3760 GET K5$,S+1:FMKODE$,FMDEBET$,FMKREDIT$«, l3=0x2b}
0x295e…2977 Line {l1=0x17, l2=»3770 EXEC FEJL(9,3,K5$)«, l3=0x17}
0x2977…29a4 Line {l1=0x2b, l2=»3780 GET K5$,S+2:FUKODE$,FÅDEBET$,FÅKREDIT$«, l3=0x2b}
0x29a4…29bd Line {l1=0x17, l2=»3790 EXEC FEJL(9,4,K5$)«, l3=0x17}
0x29bd…29cc Line {l1=0x0d, l2=»3800 ENDPROC «, l3=0x0d}
0x29cc…29e1 Line {l1=0x13, l2=»3810 PROC HENTDPOST«, l3=0x13}
0x29e1…29f7 Line {l1=0x14, l2=»3820 S=DTAB(DPIL3,2)«, l3=0x14}
0x29f7…2a27 Line {l1=0x2e, l2=»3830 GET K6$,S:DEBNR,DEBNAVN$,DSALDO1$,DEBKGR$«, l3=0x2e}
0x2a27…2a40 Line {l1=0x17, l2=»3840 EXEC FEJL(8,2,K6$)«, l3=0x17}
0x2a40…2a7e Line {l1=0x3c, l2=»3850 GET K6$,S+1:DSALDO2$,DSALDO3$,DSALDO4$,DEBPOSTNR,DEBLK$«, l3=0x3c}
0x2a7e…2a97 Line {l1=0x17, l2=»3860 EXEC FEJL(8,3,K6$)«, l3=0x17}
0x2a97…2ac7 Line {l1=0x2e, l2=»3870 GET K6$,S+2:DEBGADE$,DEBTLF$,HPOST,HKUNDE«, l3=0x2e}
0x2ac7…2ae0 Line {l1=0x17, l2=»3880 EXEC FEJL(8,4,K6$)«, l3=0x17}
0x2ae0…2b08 Line {l1=0x26, l2=»3890 GET K6$,S+3:DEBBY$,ÅRKØB$,MDNKØB$«, l3=0x26}
0x2b08…2b21 Line {l1=0x17, l2=»3900 EXEC FEJL(8,5,K6$)«, l3=0x17}
0x2b21…2b30 Line {l1=0x0d, l2=»3910 ENDPROC «, l3=0x0d}
0x2b30…2b45 Line {l1=0x13, l2=»3920 PROC HENTKPOST«, l3=0x13}
0x2b45…2b5b Line {l1=0x14, l2=»3930 S=KTAB(KPIL3,2)«, l3=0x14}
0x2b5b…2b83 Line {l1=0x26, l2=»3940 GET K7$,S:KRENR,KRENAVN$,KREGADE$«, l3=0x26}
0x2b83…2b9c Line {l1=0x17, l2=»3950 EXEC FEJL(4,1,K7$)«, l3=0x17}
0x2b9c…2bdf Line {l1=0x41, l2=»3960 GET K7$,S+1:KREBY$,KRELK$,KREGR$,KREPOSTNR,KSALDO1$,KSALDO2$«, l3=0x41}
0x2bdf…2bf8 Line {l1=0x17, l2=»3970 EXEC FEJL(4,2,K7$)«, l3=0x17}
0x2bf8…2c07 Line {l1=0x0d, l2=»3980 ENDPROC «, l3=0x0d}
0x2c07…2c1f Line {l1=0x16, l2=»3990 PROC NRTEST(KTN1)«, l3=0x16}
0x2c1f…2c45 Line {l1=0x24, l2=»4000 P=0;TEST2=0;KTAL=0;L=LEN(KTN1$)«, l3=0x24}
0x2c45…2c56 Line {l1=0x0f, l2=»4010 CASE L OF «, l3=0x0f}
0x2c56…2c69 Line {l1=0x11, l2=»4020 FOR I=1 TO L«, l3=0x11}
0x2c69…2c88 Line {l1=0x1d, l2=»4030 P1=INT(ORD(KTN1$(I))-48)«, l3=0x1d}
0x2c88…2ca7 Line {l1=0x1d, l2=»4040 IF P1=>0 AND P1<=9 THEN «, l3=0x1d}
0x2ca7…2cb7 Line {l1=0x0e, l2=»4050 P=P*10+P1«, l3=0x0e}
0x2cb7…2cc3 Line {l1=0x0a, l2=»4060 ELSE «, l3=0x0a}
0x2cc3…2cd1 Line {l1=0x0c, l2=»4070 TEST2=1«, l3=0x0c}
0x2cd1…2cde Line {l1=0x0b, l2=»4080 ENDIF «, l3=0x0b}
0x2cde…2ceb Line {l1=0x0b, l2=»4090 NEXT I«, l3=0x0b}
0x2ceb…2d13 Line {l1=0x26, l2=»4100 KTAL=P DIV 10000;KTAL9=P DIV 1000«, l3=0x26}
0x2d13…2d38 Line {l1=0x23, l2=»4110 IF KTAL9=KRTAL THEN KTAL=KTAL9«, l3=0x23}
0x2d38…2d45 Line {l1=0x0b, l2=»4120 WHEN 0«, l3=0x0b}
0x2d45…2d50 Line {l1=0x09, l2=»4130 P=-1«, l3=0x09}
0x2d50…2d5d Line {l1=0x0b, l2=»4140 WHEN 1«, l3=0x0b}
0x2d5d…2d72 Line {l1=0x13, l2=»4150 CASE KTN1$ OF «, l3=0x13}
0x2d72…2d8d Line {l1=0x19, l2=»4160 P=INT(ORD(KTN1$)-48)«, l3=0x19}
0x2d8d…2da0 Line {l1=0x11, l2=»4170 WHEN "j","J"«, l3=0x11}
0x2da0…2dab Line {l1=0x09, l2=»4180 P=-7«, l3=0x09}
0x2dab…2dbe Line {l1=0x11, l2=»4190 WHEN "n","N"«, l3=0x11}
0x2dbe…2dc9 Line {l1=0x09, l2=»4200 P=-8«, l3=0x09}
0x2dc9…2dd8 Line {l1=0x0d, l2=»4210 ENDCASE «, l3=0x0d}
0x2dd8…2de7 Line {l1=0x0d, l2=»4220 ENDCASE «, l3=0x0d}
0x2de7…2df6 Line {l1=0x0d, l2=»4230 ENDPROC «, l3=0x0d}
0x2df6…2e1a Line {l1=0x22, l2=»4240 PROC HOVIND(V1,MPOSTANTAL1,R)«, l3=0x22}
0x2e1a…2e2b Line {l1=0x0f, l2=»4250 OPEN V1$,R«, l3=0x0f}
0x2e2b…2e45 Line {l1=0x18, l2=»4260 EXEC FEJL(13,1,V1$)«, l3=0x18}
0x2e45…2e6a Line {l1=0x23, l2=»4270 FOR I=1 TO MPOSTANTAL1 DIV 160«, l3=0x23}
0x2e6a…2e91 Line {l1=0x25, l2=»4280 J=(I-1)*4+1;J1=J+1;J2=J+2;J3=J+3«, l3=0x25}
0x2e91…2edf Line {l1=0x4c, l2=»4290 GET V1$,I:R(J,1),R(J,2),R(J1,1),R(J1,2),R(J2,1),R(J2,2),R(J3,1),R(J3,2)«, l3=0x4c}
0x2edf…2ef9 Line {l1=0x18, l2=»4300 EXEC FEJL(13,2,V1$)«, l3=0x18}
0x2ef9…2f06 Line {l1=0x0b, l2=»4310 NEXT I«, l3=0x0b}
0x2f06…2f16 Line {l1=0x0e, l2=»4320 CLOSE V1$«, l3=0x0e}
0x2f16…2f30 Line {l1=0x18, l2=»4330 EXEC FEJL(13,3,V1$)«, l3=0x18}
0x2f30…2f3f Line {l1=0x0d, l2=»4340 ENDPROC «, l3=0x0d}
0x2f3f…2f5a Line {l1=0x19, l2=»4350 PROC UNDIND(V2,U1,Z)«, l3=0x19}
0x2f5a…2f6b Line {l1=0x0f, l2=»4360 OPEN V2$,R«, l3=0x0f}
0x2f6b…2f85 Line {l1=0x18, l2=»4370 EXEC FEJL(14,1,V2$)«, l3=0x18}
0x2f85…2fce Line {l1=0x47, l2=»4380 GET V2$,U1:Z(1,1),Z(1,2),Z(2,1),Z(2,2),Z(3,1),Z(3,2),Z(4,1),Z(4,2)«, l3=0x47}
0x2fce…2fe8 Line {l1=0x18, l2=»4390 EXEC FEJL(14,2,V2$)«, l3=0x18}
0x2fe8…2ff8 Line {l1=0x0e, l2=»4400 CLOSE V2$«, l3=0x0e}
0x2ff8…3012 Line {l1=0x18, l2=»4410 EXEC FEJL(14,3,V2$)«, l3=0x18}
0x3012…3021 Line {l1=0x0d, l2=»4420 ENDPROC «, l3=0x0d}
0x3021…303c Line {l1=0x19, l2=»4430 PROC DATOUD(DA1,DA2)«, l3=0x19}
0x303c…304a Line {l1=0x0c, l2=»4440 DA3=DA1«, l3=0x0c}
0x304a…3060 Line {l1=0x14, l2=»4450 DA2$=" "«, l3=0x14}
0x3060…307b Line {l1=0x19, l2=»4460 FOR J=8 TO 1 STEP -1«, l3=0x19}
0x307b…3094 Line {l1=0x17, l2=»4470 IF J MOD 3=0 THEN «, l3=0x17}
0x3094…30a6 Line {l1=0x10, l2=»4480 DA2$(J)="."«, l3=0x10}
0x30a6…30b2 Line {l1=0x0a, l2=»4490 ELSE «, l3=0x0a}
0x30b2…30d3 Line {l1=0x1f, l2=»4500 DA2$(J)=CHR(DA3 MOD 10+48)«, l3=0x1f}
0x30d3…30e8 Line {l1=0x13, l2=»4510 DA3=DA3 DIV 10«, l3=0x13}
0x30e8…30f5 Line {l1=0x0b, l2=»4520 ENDIF «, l3=0x0b}
0x30f5…3102 Line {l1=0x0b, l2=»4530 NEXT J«, l3=0x0b}
0x3102…3111 Line {l1=0x0d, l2=»4540 ENDPROC «, l3=0x0d}
0x3111…3135 Line {l1=0x22, l2=»4550 PROC MKONTUD(K61,MPOSTANTAL8)«, l3=0x22}
0x3135…3144 Line {l1=0x0d, l2=»4560 OUTPUT P«, l3=0x0d}
0x3144…3152 Line {l1=0x0c, l2=»4570 P=1;T=1«, l3=0x0c}
0x3152…3185 Line {l1=0x31, l2=»4580 EXEC POSTER(K61$,P,T,MPOSTANTAL8,SKRIV,SUM$)«, l3=0x31}
0x3185…318f Line {l1=0x08, l2=»4590 T=1«, l3=0x08}
0x318f…31a7 Line {l1=0x16, l2=»4600 IF P<100000 THEN «, l3=0x16}
0x31a7…31b5 Line {l1=0x0c, l2=»4610 REPEAT «, l3=0x0c}
0x31b5…31cf Line {l1=0x18, l2=»4620 KSIDENR=0;SUM$="0+"«, l3=0x18}
0x31cf…31e4 Line {l1=0x13, l2=»4630 CASE KTAL1 OF «, l3=0x13}
0x31e4…3219 Line {l1=0x33, l2=»4640 EXEC FINDPOST1(FTAB1,FTAB,MFANTAL,P,FPIL3,K2$)«, l3=0x33}
0x3219…323c Line {l1=0x21, l2=»4650 IF CEKS=0 THEN EXEC HENTPOST«, l3=0x21}
0x323c…324c Line {l1=0x0e, l2=»4660 WHEN DTAL«, l3=0x0e}
0x324c…3281 Line {l1=0x33, l2=»4670 EXEC FINDPOST1(DTAB1,DTAB,MDANTAL,P,DPIL3,K3$)«, l3=0x33}
0x3281…32a5 Line {l1=0x22, l2=»4680 IF CEKS=0 THEN EXEC HENTDPOST«, l3=0x22}
0x32a5…32b6 Line {l1=0x0f, l2=»4690 WHEN KRTAL«, l3=0x0f}
0x32b6…32eb Line {l1=0x33, l2=»4700 EXEC FINDPOST1(KTAB1,KTAB,MKANTAL,P,KPIL3,K4$)«, l3=0x33}
0x32eb…330f Line {l1=0x22, l2=»4710 IF CEKS=0 THEN EXEC HENTKPOST«, l3=0x22}
0x330f…331e Line {l1=0x0d, l2=»4720 ENDCASE «, l3=0x0d}
0x331e…333a Line {l1=0x1a, l2=»4730 IF CEKS<>0 THEN STOP «, l3=0x1a}
0x333a…334e Line {l1=0x12, l2=»4740 EXEC HUDSKRIV«, l3=0x12}
0x334e…3375 Line {l1=0x25, l2=»4750 IF DTAL=KTAL1 AND SKRIV1=1 THEN «, l3=0x25}
0x3375…3399 Line {l1=0x22, l2=»4760 EXEC LUDSKRIV(P,DATO,KSIDENR)«, l3=0x22}
0x3399…33ad Line {l1=0x12, l2=»4770 PRINT CHR(10)«, l3=0x12}
0x33ad…33b9 Line {l1=0x0a, l2=»4780 ELSE «, l3=0x0a}
0x33b9…33c6 Line {l1=0x0b, l2=»4790 KONT=P«, l3=0x0b}
0x33c6…33db Line {l1=0x13, l2=»4800 EXEC HSUDSKRIV«, l3=0x13}
0x33db…33e8 Line {l1=0x0b, l2=»4810 ENDIF «, l3=0x0b}
0x33e8…341b Line {l1=0x31, l2=»4820 EXEC POSTER(K61$,P,T,MPOSTANTAL8,SKRIV,SUM$)«, l3=0x31}
0x341b…3430 Line {l1=0x13, l2=»4830 CASE KTAL1 OF «, l3=0x13}
0x3430…347e Line {l1=0x4c, l2=»4840 EXEC BUDSKRIV(TAL4$,3,SUM$,FMDEBET$,FMKREDIT$,FÅDEBET$,FÅKREDIT$,LINIE)«, l3=0x4c}
0x347e…348e Line {l1=0x0e, l2=»4850 WHEN DTAL«, l3=0x0e}
0x348e…34dc Line {l1=0x4c, l2=»4860 EXEC BUDSKRIV(MDNKØB$,0,SUM$,DSALDO1$,DSALDO2$,DSALDO3$,DSALDO4$,LINIE)«, l3=0x4c}
0x34dc…34ed Line {l1=0x0f, l2=»4870 WHEN KRTAL«, l3=0x0f}
0x34ed…3533 Line {l1=0x44, l2=»4880 EXEC BUDSKRIV(TAL4$,4,SUM$,KSALDO1$,TAL4$,TAL4$,KSALDO2$,LINIE)«, l3=0x44}
0x3533…3542 Line {l1=0x0d, l2=»4890 ENDCASE «, l3=0x0d}
0x3542…354d Line {l1=0x09, l2=»4900 T=T6«, l3=0x09}
0x354d…3573 Line {l1=0x24, l2=»4910 UNTIL P=100000 OR T=MPOSTANTAL8«, l3=0x24}
0x3573…3580 Line {l1=0x0b, l2=»4920 ENDIF «, l3=0x0b}
0x3580…358a Line {l1=0x08, l2=»4930 P=0«, l3=0x08}
0x358a…3599 Line {l1=0x0d, l2=»4940 ENDPROC «, l3=0x0d}
0x3599…35b5 Line {l1=0x1a, l2=»4950 K1$="P641220:SYSTEM1"«, l3=0x1a}
0x35b5…35c3 Line {l1=0x0c, l2=»4960 REPEAT «, l3=0x0c}
0x35c3…35d4 Line {l1=0x0f, l2=»4970 OPEN K1$,R«, l3=0x0f}
0x35d4…35f6 Line {l1=0x20, l2=»4980 IF STATUS(K1$)=0 THEN EXIT «, l3=0x20}
0x35f6…3603 Line {l1=0x0b, l2=»4990 CLEAR «, l3=0x0b}
0x3603…3616 Line {l1=0x11, l2=»5000 CURSOR 25,13«, l3=0x11}
0x3616…3644 Line {l1=0x2c, l2=»5010 INPUT "ISÆT PLADE NR.20,TAST RETURN",A$«, l3=0x2c}
0x3644…365e Line {l1=0x18, l2=»5020 UNTIL STATUS(K1$)=0«, l3=0x18}
0x365e…3686 Line {l1=0x26, l2=»5030 GET K1$,1:MFANTAL,MDANTAL,MKANTAL«, l3=0x26}
0x3686…369f Line {l1=0x17, l2=»5040 EXEC FEJL(9,1,K1$)«, l3=0x17}
0x369f…36c9 Line {l1=0x28, l2=»5050 GET K1$,3:DPOST,KPOST,MFPOST,MDPOST«, l3=0x28}
0x36c9…36e2 Line {l1=0x17, l2=»5060 EXEC FEJL(9,2,K1$)«, l3=0x17}
0x36e2…3708 Line {l1=0x24, l2=»5070 GET K1$,4:MKPOST,MFAK,MVGR,MKGR«, l3=0x24}
0x3708…3721 Line {l1=0x17, l2=»5080 EXEC FEJL(9,3,K1$)«, l3=0x17}
0x3721…3737 Line {l1=0x14, l2=»5090 GET K1$,5:MKRGR«, l3=0x14}
0x3737…3750 Line {l1=0x17, l2=»5100 EXEC FEJL(9,4,K1$)«, l3=0x17}
0x3750…3778 Line {l1=0x26, l2=»5110 GET K1$,8:DIVNR,DIVDNR,DIFNR,DTAL«, l3=0x26}
0x3778…3791 Line {l1=0x17, l2=»5120 EXEC FEJL(9,5,K1$)«, l3=0x17}
0x3791…37a7 Line {l1=0x14, l2=»5130 GET K1$,9:KRTAL«, l3=0x14}
0x37a7…37c0 Line {l1=0x17, l2=»5140 EXEC FEJL(9,6,K1$)«, l3=0x17}
0x37c0…37d4 Line {l1=0x12, l2=»5150 GET K1$,10:N$«, l3=0x12}
0x37d4…37ed Line {l1=0x17, l2=»5160 EXEC FEJL(9,7,K1$)«, l3=0x17}
0x37ed…3802 Line {l1=0x13, l2=»5170 GET K1$,11:K2$«, l3=0x13}
0x3802…381b Line {l1=0x17, l2=»5180 EXEC FEJL(9,8,K1$)«, l3=0x17}
0x381b…3830 Line {l1=0x13, l2=»5190 GET K1$,12:K3$«, l3=0x13}
0x3830…3849 Line {l1=0x17, l2=»5200 EXEC FEJL(9,9,K1$)«, l3=0x17}
0x3849…385e Line {l1=0x13, l2=»5210 GET K1$,13:K4$«, l3=0x13}
0x385e…3878 Line {l1=0x18, l2=»5220 EXEC FEJL(9,10,K1$)«, l3=0x18}
0x3878…388d Line {l1=0x13, l2=»5230 GET K1$,15:K5$«, l3=0x13}
0x388d…38a7 Line {l1=0x18, l2=»5240 EXEC FEJL(9,11,K1$)«, l3=0x18}
0x38a7…38bc Line {l1=0x13, l2=»5250 GET K1$,16:K6$«, l3=0x13}
0x38bc…38d6 Line {l1=0x18, l2=»5260 EXEC FEJL(9,12,K1$)«, l3=0x18}
0x38d6…38eb Line {l1=0x13, l2=»5270 GET K1$,17:K7$«, l3=0x13}
0x38eb…3905 Line {l1=0x18, l2=»5280 EXEC FEJL(9,13,K1$)«, l3=0x18}
0x3905…391a Line {l1=0x13, l2=»5290 GET K1$,25:K8$«, l3=0x13}
0x391a…3934 Line {l1=0x18, l2=»5300 EXEC FEJL(9,14,K1$)«, l3=0x18}
0x3934…3949 Line {l1=0x13, l2=»5310 GET K1$,26:K9$«, l3=0x13}
0x3949…3963 Line {l1=0x18, l2=»5320 EXEC FEJL(9,15,K1$)«, l3=0x18}
0x3963…3979 Line {l1=0x14, l2=»5330 GET K1$,27:K10$«, l3=0x14}
0x3979…3993 Line {l1=0x18, l2=»5340 EXEC FEJL(9,16,K1$)«, l3=0x18}
0x3993…39a9 Line {l1=0x14, l2=»5350 GET K1$,32:K11$«, l3=0x14}
0x39a9…39c3 Line {l1=0x18, l2=»5360 EXEC FEJL(9,17,K1$)«, l3=0x18}
0x39c3…39d9 Line {l1=0x14, l2=»5370 GET K1$,33:K12$«, l3=0x14}
0x39d9…39f3 Line {l1=0x18, l2=»5380 EXEC FEJL(9,18,K1$)«, l3=0x18}
0x39f3…3a09 Line {l1=0x14, l2=»5390 GET K1$,34:K13$«, l3=0x14}
0x3a09…3a23 Line {l1=0x18, l2=»5400 EXEC FEJL(9,19,K1$)«, l3=0x18}
0x3a23…3a39 Line {l1=0x14, l2=»5410 GET K1$,36:K14$«, l3=0x14}
0x3a39…3a53 Line {l1=0x18, l2=»5420 EXEC FEJL(9,20,K1$)«, l3=0x18}
0x3a53…3a63 Line {l1=0x0e, l2=»5430 CLOSE K1$«, l3=0x0e}
0x3a63…3a7d Line {l1=0x18, l2=»5440 EXEC FEJL(9,21,K1$)«, l3=0x18}
0x3a7d…3ac5 Line {l1=0x46, l2=»5450 K2$=N$+K2$;K3$=N$+K3$;K4$=N$+K4$;K5$=N$+K5$;K6$=N$+K6$;K7$=N$+K7$«, l3=0x46}
0x3ac5…3b08 Line {l1=0x41, l2=»5460 K8$=N$+K8$;K9$=N$+K9$;K10$=N$+K10$;K11$=N$+K11$;K12$=N$+K12$«, l3=0x41}
0x3b08…3b28 Line {l1=0x1e, l2=»5470 K13$=N$+K13$;K14$=N$+K14$«, l3=0x1e}
0x3b28…3b3a Line {l1=0x10, l2=»5480 OPEN K14$,R«, l3=0x10}
0x3b3a…3b55 Line {l1=0x19, l2=»5490 EXEC FEJL(9,22,K14$)«, l3=0x19}
0x3b55…3b9c Line {l1=0x45, l2=»5500 GET K14$,2:T1(1),T1(2),T1(3),T1(4),T1(5),T1(6),T1(7),T1(8),T1(9)«, l3=0x45}
0x3b9c…3bb7 Line {l1=0x19, l2=»5510 EXEC FEJL(9,23,K14$)«, l3=0x19}
0x3bb7…3bca Line {l1=0x11, l2=»5520 FOR I=1 TO 3«, l3=0x11}
0x3bca…3bdc Line {l1=0x10, l2=»5530 H=(I-1)*3+1«, l3=0x10}
0x3bdc…3c0e Line {l1=0x30, l2=»5540 GET K14$,I+2:LAND$(H),LAND$(H+1),LAND$(H+2)«, l3=0x30}
0x3c0e…3c29 Line {l1=0x19, l2=»5550 EXEC FEJL(9,24,K14$)«, l3=0x19}
0x3c29…3c36 Line {l1=0x0b, l2=»5560 NEXT I«, l3=0x0b}
0x3c36…3c49 Line {l1=0x11, l2=»5570 FOR I=1 TO 6«, l3=0x11}
0x3c49…3c5b Line {l1=0x10, l2=»5580 H=(I-1)*3+1«, l3=0x10}
0x3c5b…3c8d Line {l1=0x30, l2=»5590 GET K14$,I+5:TFIL$(H),TFIL$(H+1),TFIL$(H+2)«, l3=0x30}
0x3c8d…3ca8 Line {l1=0x19, l2=»5600 EXEC FEJL(9,25,K14$)«, l3=0x19}
0x3ca8…3cb5 Line {l1=0x0b, l2=»5610 NEXT I«, l3=0x0b}
0x3cb5…3cfd Line {l1=0x46, l2=»5620 GET K14$,13:T2(1),T2(2),T2(3),T2(4),T2(5),T2(6),T2(7),T2(8),T2(9)«, l3=0x46}
0x3cfd…3d18 Line {l1=0x19, l2=»5630 EXEC FEJL(9,26,K14$)«, l3=0x19}
0x3d18…3d60 Line {l1=0x46, l2=»5640 GET K14$,17:T3(1),T3(2),T3(3),T3(4),T3(5),T3(6),T3(7),T3(8),T3(9)«, l3=0x46}
0x3d60…3d7b Line {l1=0x19, l2=»5650 EXEC FEJL(9,27,K14$)«, l3=0x19}
0x3d7b…3d8c Line {l1=0x0f, l2=»5660 CLOSE K14$«, l3=0x0f}
0x3d8c…3da7 Line {l1=0x19, l2=»5670 EXEC FEJL(9,31,K14$)«, l3=0x19}
0x3da7…3db8 Line {l1=0x0f, l2=»5680 OPEN K2$,R«, l3=0x0f}
0x3db8…3dd2 Line {l1=0x18, l2=»5690 EXEC FEJL(9,32,K2$)«, l3=0x18}
0x3dd2…3de3 Line {l1=0x0f, l2=»5700 OPEN K3$,R«, l3=0x0f}
0x3de3…3dfd Line {l1=0x18, l2=»5710 EXEC FEJL(9,33,K3$)«, l3=0x18}
0x3dfd…3e0e Line {l1=0x0f, l2=»5720 OPEN K4$,R«, l3=0x0f}
0x3e0e…3e28 Line {l1=0x18, l2=»5730 EXEC FEJL(9,34,K4$)«, l3=0x18}
0x3e28…3e39 Line {l1=0x0f, l2=»5740 OPEN K5$,R«, l3=0x0f}
0x3e39…3e53 Line {l1=0x18, l2=»5750 EXEC FEJL(9,35,K5$)«, l3=0x18}
0x3e53…3e64 Line {l1=0x0f, l2=»5760 OPEN K6$,R«, l3=0x0f}
0x3e64…3e7e Line {l1=0x18, l2=»5770 EXEC FEJL(9,36,K6$)«, l3=0x18}
0x3e7e…3e8f Line {l1=0x0f, l2=»5780 OPEN K7$,R«, l3=0x0f}
0x3e8f…3ea9 Line {l1=0x18, l2=»5790 EXEC FEJL(9,37,K7$)«, l3=0x18}
0x3ea9…3ef2 Line {l1=0x47, l2=»5800 DIM DTAB1(MDANTAL DIV 4),FTAB1(MFANTAL DIV 4),KTAB1(MKANTAL DIV 4)«, l3=0x47}
0x3ef2…3f31 Line {l1=0x3d, l2=»5810 DIM DTAB(4,2),FTAB(4,2),KTAB(4,2),HDTAB(MDPOST DIV 40,2)«, l3=0x3d}
0x3f31…3f52 Line {l1=0x1f, l2=»5820 DIM HFTAB(MFPOST DIV 40,2)«, l3=0x1f}
0x3f52…3f96 Line {l1=0x42, l2=»5830 DIM HKRTAB(MKPOST DIV 40,2),UFTAB(4,2),UDTAB(4,2),UKRTAB(4,2)«, l3=0x42}
0x3f96…3fbc Line {l1=0x24, l2=»5840 EXEC INDTAB1(FTAB1,MFANTAL,K2$)«, l3=0x24}
0x3fbc…3fe2 Line {l1=0x24, l2=»5850 EXEC INDTAB1(DTAB1,MDANTAL,K3$)«, l3=0x24}
0x3fe2…4008 Line {l1=0x24, l2=»5860 EXEC INDTAB1(KTAB1,MKANTAL,K4$)«, l3=0x24}
0x4008…402d Line {l1=0x23, l2=»5870 EXEC HOVIND(K11$,MFPOST,HFTAB)«, l3=0x23}
0x402d…4052 Line {l1=0x23, l2=»5880 EXEC HOVIND(K12$,MDPOST,HDTAB)«, l3=0x23}
0x4052…4078 Line {l1=0x24, l2=»5890 EXEC HOVIND(K13$,MKPOST,HKRTAB)«, l3=0x24}
0x4078…40a5 Line {l1=0x2b, l2=»5900 LTX$(1)="Indtast kontonr. (0:færdig):"«, l3=0x2b}
0x40a5…40c8 Line {l1=0x21, l2=»5910 LTX$(2)="Rigtig konto (J/N)"«, l3=0x21}
0x40c8…40fb Line {l1=0x31, l2=»5920 LTX$(3)="Konto eksisterer ikke, tast RETURN"«, l3=0x31}
0x40fb…412c Line {l1=0x2f, l2=»5930 LTX$(4)="Tast RETURN når sideskift ønskes"«, l3=0x2f}
0x412c…4169 Line {l1=0x3b, l2=»5940 LTX$(5)="Ønskes kontoudtog skrevet på formular (J/N):"«, l3=0x3b}
0x4169…41a5 Line {l1=0x3a, l2=»5950 LTX$(6)="Monter kontoudtogsformularer og tast RETURN"«, l3=0x3a}
0x41a5…41d8 Line {l1=0x31, l2=»5960 LTX$(7)="Ønskes yderligere testprint (J/N):"«, l3=0x31}
0x41d8…4213 Line {l1=0x39, l2=»5970 LTX$(8)="Monter papir til kontoudtog og tast RETURN"«, l3=0x39}
0x4213…4245 Line {l1=0x30, l2=»5980 LTX$(9)="Ønskes udskrift på printer (J/N):"«, l3=0x30}
0x4245…4275 Line {l1=0x2e, l2=»5990 LTX$(10)="Ønskes flere udskrifter (J/N):"«, l3=0x2e}
0x4275…42bb Line {l1=0x44, l2=»6000 LTX$(11)="Monter papir til udskrift af finanskonti,tast RETURN"«, l3=0x44}
0x42bb…42da Line {l1=0x1d, l2=»6010 DATO=T1(7);MAFSLUT=T3(2)«, l3=0x1d}
0x42da…42f7 Line {l1=0x1b, l2=»6020 EXEC DATOUD(DATO,DAT$)«, l3=0x1b}
0x42f7…4343 Line {l1=0x4a, l2=»6030 EGNAVN$="Schilling Datasystemer";EGGADE$="Kuldyssen 13";EGPOSTNR=2630«, l3=0x4a}
0x4343…4359 Line {l1=0x14, l2=»6040 EGBY$="Tåstrup"«, l3=0x14}
0x4359…43a8 Line {l1=0x4d, l2=»6050 STREG$="--------------------------------------";STREG$=STREG$+STREG$+"-"«, l3=0x4d}
0x43a8…43d1 Line {l1=0x27, l2=»6060 BLANK$=" "«, l3=0x27}
0x43d1…43ea Line {l1=0x17, l2=»6070 IF MAFSLUT=1 THEN «, l3=0x17}
0x43ea…43f8 Line {l1=0x0c, l2=»6080 REPEAT «, l3=0x0c}
0x43f8…4405 Line {l1=0x0b, l2=»6090 CLEAR «, l3=0x0b}
0x4405…4416 Line {l1=0x0f, l2=»6100 CURSOR 1,1«, l3=0x0f}
0x4416…445e Line {l1=0x46, l2=»6110 PRINT TAB(15);"Månedsafslutning Kontoudtog";TAB(63);" Dato:";DAT$«, l3=0x46}
0x445e…4484 Line {l1=0x24, l2=»6120 EXEC INDPUT1(4,8,-9,-6,LTX$(5))«, l3=0x24}
0x4484…4495 Line {l1=0x0f, l2=»6130 KTAL1=DTAL«, l3=0x0f}
0x4495…44a9 Line {l1=0x12, l2=»6140 IF P=-7 THEN «, l3=0x12}
0x44a9…44cf Line {l1=0x24, l2=»6150 EXEC INDPUT1(4,10,-2,0,LTX$(6))«, l3=0x24}
0x44cf…44de Line {l1=0x0d, l2=»6160 SKRIV1=1«, l3=0x0d}
0x44de…44ec Line {l1=0x0c, l2=»6170 REPEAT «, l3=0x0c}
0x44ec…4538 Line {l1=0x4a, l2=»6180 DEBNAVN$="XXXXXXXXXXXXXXXXXXXXXXXXX";DEBGADE$=DEBNAVN$;DEBPOSTNR=9999«, l3=0x4a}
0x4538…4547 Line {l1=0x0d, l2=»6190 OUTPUT P«, l3=0x0d}
0x4547…456e Line {l1=0x25, l2=»6200 DEBBY$=DEBNAVN$(1:15);DEBLK$="0"«, l3=0x25}
0x456e…4582 Line {l1=0x12, l2=»6210 EXEC HUDSKRIV«, l3=0x12}
0x4582…45a6 Line {l1=0x22, l2=»6220 EXEC LUDSKRIV(99999,999999,9)«, l3=0x22}
0x45a6…45ba Line {l1=0x12, l2=»6230 PRINT CHR(10)«, l3=0x12}
0x45ba…4607 Line {l1=0x4b, l2=»6240 PRINT TAB(11);"XX.XX.XX XXXXXX XXXXXXXXXXXXXXXXXXXXXXXXX XXX.XXX,XX ";«, l3=0x4b}
0x4607…4620 Line {l1=0x17, l2=»6250 PRINT "XXX.XXX,XX"«, l3=0x17}
0x4620…4634 Line {l1=0x12, l2=»6260 FOR I=1 TO 14«, l3=0x12}
0x4634…4649 Line {l1=0x13, l2=»6270 PRINT CHR(10);«, l3=0x13}
0x4649…4656 Line {l1=0x0b, l2=»6280 NEXT I«, l3=0x0b}
0x4656…4663 Line {l1=0x0b, l2=»6290 PRINT «, l3=0x0b}
0x4663…46b0 Line {l1=0x4b, l2=»6300 PRINT TAB(11);"XX.XX.XX XXXXXX XXXXXXXXXXXXXXXXXXXXXXXXX XXX.XXX,XX ";«, l3=0x4b}
0x46b0…46c9 Line {l1=0x17, l2=»6310 PRINT "XXX.XXX,XX"«, l3=0x17}
0x46c9…46dd Line {l1=0x12, l2=»6320 PRINT CHR(10)«, l3=0x12}
0x46dd…4721 Line {l1=0x42, l2=»6330 PRINT TAB(11);"XX.XXX.XXX,XX";TAB(53);"XXX.XXX,XX XXX.XXX,XX"«, l3=0x42}
0x4721…4735 Line {l1=0x12, l2=»6340 PRINT CHR(10)«, l3=0x12}
0x4735…477e Line {l1=0x47, l2=»6350 PRINT TAB(11);"XX.XXX.XXX,XX XX.XXX.XXX,XX XX.XXX.XXX,XX ";«, l3=0x47}
0x477e…479a Line {l1=0x1a, l2=»6360 PRINT "XX.XXX.XXX,XX"«, l3=0x1a}
0x479a…47ce Line {l1=0x32, l2=»6370 PRINT CHR(10);CHR(10);CHR(10);CHR(10);CHR(10)«, l3=0x32}
0x47ce…47dd Line {l1=0x0d, l2=»6380 OUTPUT T«, l3=0x0d}
0x47dd…4804 Line {l1=0x25, l2=»6390 EXEC INDPUT1(4,12,-9,-6,LTX$(7))«, l3=0x25}
0x4804…4815 Line {l1=0x0f, l2=»6400 UNTIL P=-8«, l3=0x0f}
0x4815…4821 Line {l1=0x0a, l2=»6410 ELSE «, l3=0x0a}
0x4821…4847 Line {l1=0x24, l2=»6420 EXEC INDPUT1(4,10,-2,0,LTX$(8))«, l3=0x24}
0x4847…4856 Line {l1=0x0d, l2=»6430 SKRIV1=0«, l3=0x0d}
0x4856…4863 Line {l1=0x0b, l2=»6440 ENDIF «, l3=0x0b}
0x4863…487d Line {l1=0x18, l2=»6450 SKRIV=1;LINIE=0;T=1«, l3=0x18}
0x487d…488c Line {l1=0x0d, l2=»6460 OUTPUT P«, l3=0x0d}
0x488c…48ab Line {l1=0x1d, l2=»6470 EXEC MKONTUD(K9$,MDPOST)«, l3=0x1d}
0x48ab…48be Line {l1=0x11, l2=»6480 KTAL1=DTAL-1«, l3=0x11}
0x48be…48d6 Line {l1=0x16, l2=»6490 IF SKRIV1=1 THEN «, l3=0x16}
0x48d6…48e5 Line {l1=0x0d, l2=»6500 SKRIV1=0«, l3=0x0d}
0x48e5…48f4 Line {l1=0x0d, l2=»6510 OUTPUT T«, l3=0x0d}
0x48f4…4901 Line {l1=0x0b, l2=»6520 CLEAR «, l3=0x0b}
0x4901…4929 Line {l1=0x26, l2=»6530 EXEC INDPUT1(20,13,-2,0,LTX$(11))«, l3=0x26}
0x4929…4936 Line {l1=0x0b, l2=»6540 ENDIF «, l3=0x0b}
0x4936…4955 Line {l1=0x1d, l2=»6550 EXEC MKONTUD(K8$,MFPOST)«, l3=0x1d}
0x4955…4967 Line {l1=0x10, l2=»6560 KTAL1=KRTAL«, l3=0x10}
0x4967…4987 Line {l1=0x1e, l2=»6570 EXEC MKONTUD(K10$,MKPOST)«, l3=0x1e}
0x4987…4994 Line {l1=0x0b, l2=»6580 CLEAR «, l3=0x0b}
0x4994…49a3 Line {l1=0x0d, l2=»6590 OUTPUT T«, l3=0x0d}
0x49a3…49cc Line {l1=0x27, l2=»6600 EXEC INDPUT1(20,13,-9,-6,LTX$(10))«, l3=0x27}
0x49cc…49dd Line {l1=0x0f, l2=»6610 UNTIL P=-8«, l3=0x0f}
0x49dd…49e9 Line {l1=0x0a, l2=»6620 ELSE «, l3=0x0a}
0x49e9…49fd Line {l1=0x12, l2=»6630 EXEC STARTBIL«, l3=0x12}
0x49fd…4a0b Line {l1=0x0c, l2=»6640 REPEAT «, l3=0x0c}
0x4a0b…4a26 Line {l1=0x19, l2=»6650 IF KONT=0 THEN EXIT «, l3=0x19}
0x4a26…4a4d Line {l1=0x25, l2=»6660 EXEC INDPUT1(4,14,-9,-6,LTX$(9))«, l3=0x25}
0x4a4d…4a66 Line {l1=0x17, l2=»6670 KSIDENR=0;SKRIV1=0«, l3=0x17}
0x4a66…4a7a Line {l1=0x12, l2=»6680 IF P=-7 THEN «, l3=0x12}
0x4a7a…4a88 Line {l1=0x0c, l2=»6690 SKRIV=1«, l3=0x0c}
0x4a88…4a97 Line {l1=0x0d, l2=»6700 OUTPUT P«, l3=0x0d}
0x4a97…4aab Line {l1=0x12, l2=»6710 EXEC HUDSKRIV«, l3=0x12}
0x4aab…4ac0 Line {l1=0x13, l2=»6720 EXEC HSUDSKRIV«, l3=0x13}
0x4ac0…4acc Line {l1=0x0a, l2=»6730 ELSE «, l3=0x0a}
0x4acc…4ada Line {l1=0x0c, l2=»6740 SKRIV=0«, l3=0x0c}
0x4ada…4ae9 Line {l1=0x0d, l2=»6750 OUTPUT T«, l3=0x0d}
0x4ae9…4afe Line {l1=0x13, l2=»6760 EXEC HSUDSKRIV«, l3=0x13}
0x4afe…4b0b Line {l1=0x0b, l2=»6770 ENDIF «, l3=0x0b}
0x4b0b…4b20 Line {l1=0x13, l2=»6780 CASE KTAL1 OF «, l3=0x13}
0x4b20…4b4d Line {l1=0x2b, l2=»6790 EXEC SØG(MFPOST,HFTAB,KONT,UFTAB,K11$)«, l3=0x2b}
0x4b4d…4b5d Line {l1=0x0e, l2=»6800 WHEN DTAL«, l3=0x0e}
0x4b5d…4b8a Line {l1=0x2b, l2=»6810 EXEC SØG(MDPOST,HDTAB,KONT,UDTAB,K12$)«, l3=0x2b}
0x4b8a…4b9b Line {l1=0x0f, l2=»6820 WHEN KRTAL«, l3=0x0f}
0x4b9b…4bca Line {l1=0x2d, l2=»6830 EXEC SØG(MKPOST,HKRTAB,KONT,UKRTAB,K13$)«, l3=0x2d}
0x4bca…4bd9 Line {l1=0x0d, l2=»6840 ENDCASE «, l3=0x0d}
0x4bd9…4bec Line {l1=0x11, l2=»6850 IF T>0 THEN «, l3=0x11}
0x4bec…4c01 Line {l1=0x13, l2=»6860 CASE KTAL1 OF «, l3=0x13}
0x4c01…4c31 Line {l1=0x2e, l2=»6870 EXEC POSTER(K8$,KONT,T,MFPOST,SKRIV,SUM$)«, l3=0x2e}
0x4c31…4c41 Line {l1=0x0e, l2=»6880 WHEN DTAL«, l3=0x0e}
0x4c41…4c71 Line {l1=0x2e, l2=»6890 EXEC POSTER(K9$,KONT,T,MDPOST,SKRIV,SUM$)«, l3=0x2e}
0x4c71…4c82 Line {l1=0x0f, l2=»6900 WHEN KRTAL«, l3=0x0f}
0x4c82…4cb3 Line {l1=0x2f, l2=»6910 EXEC POSTER(K10$,KONT,T,MKPOST,SKRIV,SUM$)«, l3=0x2f}
0x4cb3…4cc2 Line {l1=0x0d, l2=»6920 ENDCASE «, l3=0x0d}
0x4cc2…4cce Line {l1=0x0a, l2=»6930 ELSE «, l3=0x0a}
0x4cce…4cdc Line {l1=0x0c, l2=»6940 LINIE=0«, l3=0x0c}
0x4cdc…4ce9 Line {l1=0x0b, l2=»6950 ENDIF «, l3=0x0b}
0x4ce9…4d05 Line {l1=0x1a, l2=»6960 IF T=0 THEN SUM$="0+"«, l3=0x1a}
0x4d05…4d1c Line {l1=0x15, l2=»6970 IF SKRIV=0 THEN «, l3=0x15}
0x4d1c…4d3d Line {l1=0x1f, l2=»6980 EXEC TUD(SUM$,UBELØB$,0,0)«, l3=0x1f}
0x4d3d…4d5e Line {l1=0x1f, l2=»6990 PRINT TAB(35);STREG$(1:43)«, l3=0x1f}
0x4d5e…4da6 Line {l1=0x46, l2=»7000 PRINT TAB(35);"Ny saldo";TAB(49+14*(SUM$(LEN(SUM$))="-"));UBELØB$«, l3=0x46}
0x4da6…4db2 Line {l1=0x0a, l2=»7010 ELSE «, l3=0x0a}
0x4db2…4dc7 Line {l1=0x13, l2=»7020 CASE KTAL1 OF «, l3=0x13}
0x4dc7…4e15 Line {l1=0x4c, l2=»7030 EXEC BUDSKRIV(TAL4$,3,SUM$,FMDEBET$,FMKREDIT$,FÅDEBET$,FÅKREDIT$,LINIE)«, l3=0x4c}
0x4e15…4e25 Line {l1=0x0e, l2=»7040 WHEN DTAL«, l3=0x0e}
0x4e25…4e73 Line {l1=0x4c, l2=»7050 EXEC BUDSKRIV(MDNKØB$,0,SUM$,DSALDO1$,DSALDO2$,DSALDO3$,DSALDO4$,LINIE)«, l3=0x4c}
0x4e73…4e84 Line {l1=0x0f, l2=»7060 WHEN KRTAL«, l3=0x0f}
0x4e84…4eca Line {l1=0x44, l2=»7070 EXEC BUDSKRIV(TAL4$,4,SUM$,KSALDO1$,TAL4$,TAL4$,KSALDO2$,LINIE)«, l3=0x44}
0x4eca…4ed9 Line {l1=0x0d, l2=»7080 ENDCASE «, l3=0x0d}
0x4ed9…4ee6 Line {l1=0x0b, l2=»7090 ENDIF «, l3=0x0b}
0x4ee6…4ef5 Line {l1=0x0d, l2=»7100 OUTPUT T«, l3=0x0d}
0x4ef5…4f1d Line {l1=0x26, l2=»7110 EXEC INDPUT1(4,23,-9,-6,LTX$(10))«, l3=0x26}
0x4f1d…4f31 Line {l1=0x12, l2=»7120 IF P=-7 THEN «, l3=0x12}
0x4f31…4f45 Line {l1=0x12, l2=»7130 EXEC STARTBIL«, l3=0x12}
0x4f45…4f51 Line {l1=0x0a, l2=»7140 ELSE «, l3=0x0a}
0x4f51…4f5e Line {l1=0x0b, l2=»7150 KONT=0«, l3=0x0b}
0x4f5e…4f6b Line {l1=0x0b, l2=»7160 ENDIF «, l3=0x0b}
0x4f6b…4f7e Line {l1=0x11, l2=»7170 UNTIL KONT=0«, l3=0x11}
0x4f7e…4f8b Line {l1=0x0b, l2=»7180 ENDIF «, l3=0x0b}
0x4f8b…4f9a Line {l1=0x0d, l2=»7190 OUTPUT T«, l3=0x0d}
0x4f9a…4fa7 Line {l1=0x0b, l2=»7200 CLEAR «, l3=0x0b}
0x4fa7…4fc0 Line {l1=0x17, l2=»7210 IF MAFSLUT=0 THEN «, l3=0x17}
0x4fc0…4fde Line {l1=0x1c, l2=»7220 CHAIN "P641210:OPSTART"«, l3=0x1c}
0x4fde…4fea Line {l1=0x0a, l2=»7230 ELSE «, l3=0x0a}
0x4fea…5008 Line {l1=0x1c, l2=»7240 CHAIN "P641210:MAFSLUT"«, l3=0x1c}
0x5008…5015 Line {l1=0x0b, l2=»7250 ENDIF «, l3=0x0b}
0x5015…5020 00 00 63 63 63 63 63 63 63 63 63 ┆ ccccccccc┆
0x5020…5040 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┆
[…0x45…]