|
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: 15168 (0x3b40)
Types: TextFile
Notes: Mikados_K
Names: »FINVEDL.K«
└─⟦ec8c1e0b0⟧ Bits:30007442 8" floppy ( MIKPROG vol. 1-3, MIKREL vol. 1-3, PCSE 4.7.80 vol 1-3, GL.SYS )
└─⟦this⟧ »FINVEDL.K«
0100 DIM FNAVN$(25),FMKODE$(1),FUKODE$(1),DAT$(8),STREG$(71),VTAB2(5) 0110 DIM FMDEBET$(12),FMKREDIT$(12),FÅDEBET$(12),FÅKREDIT$(12),FSALDO$(12) 0120 DIM N$(6),BLANK$(77),A$(1),TAL4$(14),TAH$(12),OP1$(12),OP2$(12) 0130 DIM RES$(14),KTN$(7),BLB2$(12),UBLB2$(14),UD1$(14),UD2$(14),UD3$(14) 0140 DIM UD4$(14),K4$(17),K5$(17),T1(9),T2(9),K3$(17),K1$(17),K2$(17) 0150 PROC CALC(AT,B1,B2,ES) 0160 RES$=ES$;OP1$=B1$;OP2$=B2$;SI=0;FLAG=0;ART=AT 0170 CALL "P641210:REGN" 0180 ES$=RES$ 0190 IF FLAG THEN STOP 0200 ENDPROC 0210 PROC FEJL(NR1,NR2,NR3) 0220 IF STATUS(NR3$)<>0 THEN 0230 PRINT STATUS(NR3$),NR1,NR2,NR3$ 0240 STOP 0250 ENDIF 0260 ENDPROC 0270 PROC DKRTEST 0280 EXEC CALC(4,FÅDEBET$,FÅKREDIT$,TAL4$) 0290 IF SI<>0 THEN TEST=1 0300 IF FLAG<>0 THEN STOP 0310 ENDPROC 0320 PROC INDTAB(T,MANTAL,K10) 0330 J=MANTAL DIV 32+1 0340 FOR I=J TO MANTAL DIV 4+J-1 0350 H=(I-J)*4+1;J2=H+1;J3=H+2;J4=H+3 0360 GET K10$,I:T(H,1),T(H,2),T(J2,1),T(J2,2),T(J3,1),T(J3,2),T(J4,1),T(J4,2) 0370 EXEC FEJL(1,1,K10$) 0380 NEXT I 0390 ENDPROC 0400 PROC UDTAB(U,MANTAL1,K9) 0410 J=MANTAL1 DIV 32+1 0420 FOR I=1 TO J-1 0430 H=(I-1)*32+1;J1=H+4;J2=H+8;J3=H+12;J4=H+16;J5=H+20;J6=H+24;J7=H+28 0440 PUT K9$,I:U(H,1),U(J1,1),U(J2,1),U(J3,1),U(J4,1),U(J5,1),U(J6,1),U(J7,1) 0450 EXEC FEJL(2,1,K9$) 0460 NEXT I 0470 FOR I=J TO MANTAL1 DIV 4+J-1 0480 H=(I-J)*4+1;J1=H+1;J2=H+2;J3=H+3 0490 PUT K9$,I:U(H,1),U(H,2),U(J1,1),U(J1,2),U(J2,1),U(J2,2),U(J3,1),U(J3,2) 0500 EXEC FEJL(2,2,K9$) 0510 NEXT I 0520 ENDPROC 0530 PROC FINDPOST(TAB1,MANT1,NØGL1,PIL3) 0540 PIL1=MANT1 DIV 2;PIL3=PIL1;CEKS=1 0550 REPEAT 0560 IF NØGL1=TAB1(PIL3,1) THEN 0570 CEKS=0 0580 ELSE 0590 IF PIL1=1 THEN PIL1=0 0600 PIL1=INT((PIL1+1)/2) 0610 IF NØGL1>TAB1(PIL3,1) THEN 0620 PIL3=PIL3+PIL1 0630 ELSE 0640 PIL3=PIL3-PIL1 0650 ENDIF 0660 IF PIL3<1 THEN PIL3=1 0670 IF PIL3>MANT1 THEN PIL3=MANT1 0680 ENDIF 0690 UNTIL CEKS=0 OR PIL1=0 0700 ENDPROC 0710 PROC INDSÆT(TAB2,ANTAL2,NØGL2,PIL4) 0720 IF CEKS=1 THEN 0730 POSTNR=TAB2(ANTAL2+1,2) 0740 IF NØGL2>TAB2(PIL4,1) AND TAB2(PIL4,1)<>1000000 THEN PIL4=PIL4+1 0750 FOR I=ANTAL2+1 TO PIL4+1 STEP -1 0760 TAB2(I,1)=TAB2(I-1,1) 0770 TAB2(I,2)=TAB2(I-1,2) 0780 NEXT I 0790 TAB2(PIL4,1)=NØGL2 0800 TAB2(PIL4,2)=POSTNR 0810 ANTAL2=ANTAL2+1 0820 ENDIF 0830 ENDPROC 0840 PROC SLETPOST(TAB3,ANTAL3,NØGL3,PIL5) 0850 IF CEKS=0 THEN 0860 POSTNR=TAB3(PIL5,2) 0870 FOR I=PIL5 TO ANTAL3-1 0880 TAB3(I,1)=TAB3(I+1,1) 0890 TAB3(I,2)=TAB3(I+1,2) 0900 NEXT I 0910 TAB3(ANTAL3,1)=1000000 0920 TAB3(ANTAL3,2)=POSTNR 0930 ANTAL3=ANTAL3-1 0940 ENDIF 0950 ENDPROC 0960 PROC SLETFPOST(NØGLE3) 0970 EXEC FINDPOST(FTAB,MFANTAL,NØGLE3,FPIL3) 0980 IF CEKS=1 THEN STOP 0990 FNR=0;FNAVN$=BLANK$(1:25);FMKODE$=" ";FUKODE$=" ";FMDEBET$="0+" 1000 FMKREDIT$="0+";FÅDEBET$="0+";FÅKREDIT$="0+" 1010 EXEC GEMFPOST 1020 EXEC SLETPOST(FTAB,AFIN,NØGLE3,FPIL3) 1030 ENDPROC 1040 PROC HENTPOST 1050 S=FTAB(FPIL3,2) 1060 GET K3$,S:FNR,FNAVN$ 1070 EXEC FEJL(3,2,K3$) 1080 IF FNR<>FTAB(FPIL3,1) THEN STOP 1090 GET K3$,S+1:FMKODE$,FMDEBET$,FMKREDIT$ 1100 EXEC FEJL(3,3,K3$) 1110 GET K3$,S+2:FUKODE$,FÅDEBET$,FÅKREDIT$ 1120 EXEC FEJL(3,4,K3$) 1130 ENDPROC 1140 PROC GEMFPOST 1150 S=FTAB(FPIL3,2) 1160 PUT K3$,S:FNR,FNAVN$ 1170 EXEC FEJL(4,3,K3$) 1180 PUT K3$,S+1:FMKODE$,FMDEBET$,FMKREDIT$ 1190 EXEC FEJL(4,4,K3$) 1200 PUT K3$,S+2:FUKODE$,FÅDEBET$,FÅKREDIT$ 1210 EXEC FEJL(4,4,K3$) 1220 ENDPROC 1230 PROC FINDTAST(FSTYR,FÆND,FNR2) 1240 IF FÆND<>1 THEN 1250 CLEAR 1260 CURSOR 21,1 1270 PRINT "Kontooplysninger" 1280 EXEC OVERSKRIFT 1290 CURSOR 2,3 1300 PRINT USING "1:Kontonr : ######":FNR2 1310 ENDIF 1320 REPEAT 1330 CASE FSTYR OF 1340 STOP 1350 WHEN 2 1360 IF FÆND<>1 THEN 1370 CURSOR 2,5 1380 PRINT "2:Kontonavn :" 1390 FSTYR=3 1400 ENDIF 1410 IF FÆND<>2 THEN 1420 CURSOR 3,23 1430 PRINT "Kontonavn";BLANK$(1:29);"(max 25 tegn)";BLANK$(1:25) 1440 CURSOR 13,23 1450 INPUT FNAVN$ 1460 ENDIF 1470 CURSOR 19,5 1480 PRINT BLANK$(1:25) 1490 CURSOR 19,5 1500 PRINT FNAVN$ 1510 WHEN 4 1520 IF ORD(FUKODE$)=48 THEN 1530 IF FÆND<>1 THEN 1540 CURSOR 2,9 1550 PRINT "4:Momskode :" 1560 ENDIF 1570 IF FÆND<>2 THEN 1580 REPEAT 1590 CURSOR 3,23 1600 PRINT "Momskode (0:ingen moms,1:indgående afgift,"; 1610 PRINT "2:udgående afgift " 1620 CURSOR 13,23 1630 INPUT A$ 1640 UNTIL (ORD(A$)>47 AND ORD(A$)<51) 1650 FMKODE$=A$ 1660 ENDIF 1670 CURSOR 19,9 1680 PRINT " " 1690 CURSOR 19,9 1700 PRINT FMKODE$ 1710 ENDIF 1720 FSTYR=5 1730 WHEN 3 1740 IF FÆND<>1 THEN 1750 CURSOR 2,7 1760 PRINT "3:Udskriftskode:" 1770 ENDIF 1780 IF FÆND<>2 THEN 1790 IF FT=FNR2 OR FT1=FNR2 THEN 1800 FUKODE$="2" 1810 ELSE 1820 IF (FT<FNR2 AND FNR2<=FT+MKGR) OR (FT1<FNR2 AND FNR2<=FT1+MKRGR) THEN 1830 FUKODE$="1" 1840 ELSE 1850 REPEAT 1860 CURSOR 3,23 1870 PRINT "Udskriftskode (0:normal,1:undergruppe,2:hovedgruppe,3:subto"; 1880 PRINT "tal) " 1890 CURSOR 17,23 1900 INPUT A$ 1910 UNTIL ORD(A$)>47 AND ORD(A$)<52 1920 FUKODE$=A$ 1930 ENDIF 1940 ENDIF 1950 ENDIF 1960 CURSOR 19,7 1970 PRINT " " 1980 CURSOR 19,7 1990 PRINT FUKODE$ 2000 IF ORD(FUKODE$)>48 THEN 2010 FSTYR=5 2020 ELSE 2030 FSTYR=4 2040 ENDIF 2050 ENDCASE 2060 IF FÆND=1 THEN FSTYR=5 2070 UNTIL FSTYR=5 2080 IF (FT<FNR2 AND FNR2<=FT+MKGR) OR (FT1<FNR2 AND FNR2<=FT1+MKRGR) THEN 2090 FT2=1 2100 ELSE 2110 FT2=0 2120 ENDIF 2130 IF FÆND<>1 AND (ORD(FUKODE$)=48 OR FT2=1) THEN 2140 CURSOR 20,11 2150 PRINT "Debet" 2160 CURSOR 35,11 2170 PRINT "Kredit" 2180 CURSOR 53,11 2190 PRINT "Saldi" 2200 CURSOR 4,13 2210 PRINT "Månedens :" 2220 CURSOR 15,13 2230 EXEC TUD(FMDEBET$,TAL4$,0,0) 2240 CURSOR 31,13 2250 EXEC TUD(FMKREDIT$,TAL4$,0,0) 2260 CURSOR 48,13 2270 EXEC CALC(0,FMDEBET$,FMKREDIT$,FSALDO$) 2280 EXEC TUD(FSALDO$,TAL4$,1,0) 2290 CURSOR 4,15 2300 PRINT "Årets :" 2310 CURSOR 15,15 2320 EXEC TUD(FÅDEBET$,TAL4$,0,0) 2330 CURSOR 31,15 2340 EXEC TUD(FÅKREDIT$,TAL4$,0,0) 2350 CURSOR 48,15 2360 EXEC CALC(0,FÅDEBET$,FÅKREDIT$,FSALDO$) 2370 EXEC TUD(FSALDO$,TAL4$,1,0) 2380 ENDIF 2390 ENDPROC 2400 PROC TUD(BLB1,UBLB1,TEGN,STØR) 2410 BLB2$=BLB1$;UBLB2$=UBLB1$ 2420 EXEC CALC(5,BLB2$,TAH$,UBLB2$) 2430 UBLB1$=UBLB2$ 2440 IF TEGN=0 THEN 2450 UBLB1$=UBLB1$(1:13) 2460 ELSE 2470 IF TEGN=1 AND UBLB1$(LEN(UBLB1$))="+" THEN 2480 UBLB1$(LEN(UBLB1$))=" " 2490 ENDIF 2500 IF STØR=1 THEN 2510 UBLB1$=UBLB1$(4:LEN(UBLB1$)-3) 2520 ENDIF 2530 ENDIF 2540 PRINT UBLB1$ 2550 ENDPROC 2560 PROC NRTEST(NUM1) 2570 P=0;TEST2=0;KTAL=0;L=LEN(NUM1$) 2580 CASE L OF 2590 FOR I=1 TO L 2600 P1=INT(ORD(NUM1$(I))-48) 2610 IF P1=>0 AND P1<=9 THEN 2620 P=P*10+P1 2630 ELSE 2640 TEST2=1 2650 ENDIF 2660 NEXT I 2670 KTAL=P DIV 10000;KTAL9=P DIV 1000 2680 IF KTAL9=KRTAL THEN KTAL=KRTAL 2690 WHEN 0 2700 P=-1 2710 WHEN 1 2720 CASE NUM1$ OF 2730 P=INT(ORD(NUM1$)-48) 2740 WHEN "j","J" 2750 P=-7 2760 WHEN "n","N" 2770 P=-8 2780 ENDCASE 2790 ENDCASE 2800 ENDPROC 2810 PROC OVERSKRIFT 2820 CURSOR 45,1 2830 CASE TYPE OF 2840 WHEN 1 2850 PRINT "Oprettelse" 2860 WHEN 2 2870 PRINT "Ændring" 2880 WHEN 3 2890 PRINT "Sletning" 2900 WHEN 4 2910 PRINT "Udskrift" 2920 WHEN 5 2930 PRINT "Finanskontoliste" 2940 ENDCASE 2950 ENDPROC 2960 K1$="P641220:SYSTEM1" 2970 OPEN K1$,R 2980 EXEC FEJL(9,1,K1$) 2990 GET K1$,1:MFANTAL 3000 EXEC FEJL(9,2,K1$) 3010 GET K1$,4:MKRMID,MFAK,MVGR,MKGR 3020 EXEC FEJL(9,3,K1$) 3030 GET K1$,5:MKRGR 3040 EXEC FEJL(9,4,K1$) 3050 GET K1$,8:DIVNR,DIVDNR,DIFNR,DTAL 3060 EXEC FEJL(9,5,K1$) 3070 GET K1$,9:KRTAL 3080 EXEC FEJL(9,6,K1$) 3090 GET K1$,10:N$ 3100 EXEC FEJL(9,7,K1$) 3110 GET K1$,11:K2$ 3120 EXEC FEJL(9,8,K1$) 3130 GET K1$,15:K3$ 3140 EXEC FEJL(9,9,K1$) 3150 GET K1$,36:K4$ 3160 EXEC FEJL(9,10,K1$) 3170 CLOSE K1$ 3180 EXEC FEJL(9,11,K1$) 3190 DIM FTAB(MFANTAL,2) 3200 K4$=N$+K4$ 3210 OPEN K4$,W 3220 EXEC FEJL(9,12,K4$) 3230 GET K4$,2:T1(1),T1(2),T1(3),T1(4),T1(5),T1(6),DATO 3240 EXEC FEJL(9,13,K4$) 3250 GET K4$,14:AFIN,ADEB,AKRE,VTAB2(1),VTAB2(2),VTAB2(3),VTAB2(4),VTAB2(5) 3260 EXEC FEJL(9,14,K4$) 3270 GET K4$,17:T2(1),T2(2),T2(3),T2(4),T2(5),T2(6),T2(7),T2(8),T2(9) 3280 EXEC FEJL(9,15,K4$) 3290 T2(4)=1 3300 PUT K4$,17:T2(1),T2(2),T2(3),T2(4),T2(5),T2(6),T2(7),T2(8),T2(9) 3310 EXEC FEJL(9,16,K4$) 3320 CLOSE K4$ 3330 EXEC FEJL(9,17,K4$) 3340 K2$=N$+K2$ 3350 OPEN K2$,W 3360 EXEC FEJL(9,18,K2$) 3370 K3$=N$+K3$ 3380 OPEN K3$,W 3390 EXEC FEJL(9,19,K3$) 3400 EXEC INDTAB(FTAB,MFANTAL,K2$) 3410 BLANK$=" ";BLANK$=BLANK$+BLANK$+" " 3420 TAH$="0+";TAL4$="0+";FT=DTAL*10000;FT1=KRTAL*1000 3430 STREG$="-----------------------------------";STREG$=STREG$+STREG$ 3440 REPEAT 3450 CLEAR 3460 CURSOR 21,1 3470 PRINT "Kontovedligeholdelse" 3480 CURSOR 2,3 3490 PRINT "0:Færdig" 3500 CURSOR 2,5 3510 PRINT "1:Oprettelse" 3520 CURSOR 2,7 3530 PRINT "2:Ændring" 3540 CURSOR 2,9 3550 PRINT "3:Sletning" 3560 CURSOR 2,11 3570 PRINT "4:Udskrift" 3580 CURSOR 2,13 3590 PRINT "5:Finanskontoliste" 3600 REPEAT 3610 CURSOR 4,15 3620 PRINT "Vælg type (0-5)" 3630 CURSOR 14,15 3640 INPUT A$ 3650 EXEC NRTEST(A$) 3660 UNTIL P>-1 AND P<6 3670 TYPE=P 3680 IF TYPE=0 THEN EXIT 3690 REPEAT 3700 EXEC OVERSKRIFT 3710 TEST=0;KONT=1 3720 IF TYPE<5 THEN 3730 REPEAT 3740 REPEAT 3750 CURSOR 3,23 3760 PRINT "Indtast nyt kontonr (0:for færdig)";BLANK$(1:35) 3770 CURSOR 22,23 3780 INPUT KTN$ 3790 EXEC NRTEST(KTN$) 3800 FT2=0 3810 IF (FT+MKGR=>P AND FT<=P) OR (FT1+MKRGR=>P AND FT1<=P) THEN FT2=1 3820 UNTIL (((KTAL<>DTAL AND KTAL<>KRTAL) OR FT2=1) AND L=5) OR P=0 3830 KONT=P 3840 IF KONT=0 THEN EXIT 3850 EXEC FINDPOST(FTAB,MFANTAL,KONT,FPIL3) 3860 REPEAT 3870 CURSOR 44,23 3880 IF (CEKS=0 AND TYPE<>1) OR (CEKS=1 AND TYPE=1 AND AFIN<MFANTAL) THEN 3890 PRINT BLANK$(1:35) 3900 P=-1 3910 ELSE 3920 IF CEKS=1 AND TYPE=1 AND AFIN=>MFANTAL THEN 3930 CURSOR 3,23 3940 INPUT "Ikke plads til flere konti , tast RETURN ",A$ 3950 ELSE 3960 IF CEKS=0 THEN 3970 INPUT "Konto eksisterer ,tast RETURN ",A$ 3980 ELSE 3990 INPUT "Konto eksisterer ikke , tast RETURN",A$ 4000 ENDIF 4010 ENDIF 4020 EXEC NRTEST(A$) 4030 ENDIF 4040 UNTIL P=-1 4050 UNTIL (CEKS=0 AND TYPE<>1) OR (CEKS=1 AND TYPE=1 AND AFIN<MFANTAL) 4060 IF KONT=0 THEN EXIT 4070 IF TYPE<>1 THEN 4080 FNR=KONT 4090 EXEC HENTPOST 4100 IF TYPE=3 THEN EXEC DKRTEST 4110 IF TEST<>0 THEN EXIT 4120 EXEC FINDTAST(2,2,FNR) 4130 ELSE 4140 FNR=KONT;FNAVN$=BLANK$(1:25);FMKODE$=" ";FMDEBET$="0+";FMKREDIT$="0+" 4150 FUKODE$=" ";FÅDEBET$="0+";FÅKREDIT$="0+" 4160 EXEC FINDTAST(2,0,FNR) 4170 ENDIF 4180 ENDIF 4190 IF KONT=0 THEN EXIT 4200 IF TEST=0 THEN 4210 CASE TYPE OF 4220 STOP 4230 WHEN 1,2 4240 REPEAT 4250 REPEAT 4260 CURSOR 3,23 4270 PRINT "Hvilket felt ønskes ændret (Indtast feltnr 2-4, "; 4280 PRINT "0:for færdig) " 4290 CURSOR 32,23 4300 INPUT A$ 4310 EXEC NRTEST(A$) 4320 UNTIL P=0 OR (P>1 AND P<5) 4330 STYR1=P 4340 IF STYR1=0 THEN EXIT 4350 EXEC FINDTAST(STYR1,1,FNR) 4360 UNTIL STYR1=0 4370 IF TYPE=1 THEN 4380 EXEC FINDPOST(FTAB,MFANTAL,FNR,FPIL3) 4390 EXEC INDSÆT(FTAB,AFIN,FNR,FPIL3) 4400 ENDIF 4410 EXEC GEMFPOST 4420 WHEN 3 4430 REPEAT 4440 CURSOR 3,23 4450 PRINT "Er det rigtigt at denne konto skal slettes"; 4460 PRINT " (J/N)";BLANK$(1:23) 4470 CURSOR 48,23 4480 INPUT A$ 4490 EXEC NRTEST(A$) 4500 UNTIL P=-7 OR P=-8 4510 IF P=-7 THEN 4520 EXEC SLETFPOST(KONT) 4530 ENDIF 4540 WHEN 4 4550 WHEN 5 4560 REPEAT 4570 REPEAT 4580 CURSOR 3,23 4590 PRINT "Fra kontonr (0: Alle)" 4600 CURSOR 15,23 4610 INPUT KTN$ 4620 EXEC NRTEST(KTN$) 4630 UNTIL L=5 AND P>9999 AND TEST2=0 OR P=0 4640 IF P=0 THEN 4650 FRA=1;TIL=AFIN 4660 ELSE 4670 KONT=P 4680 EXEC FINDPOST(FTAB,MFANTAL,P,FPIL3) 4690 FRA=FPIL3 4700 ENDIF 4710 UNTIL FRA<=AFIN 4720 IF P>0 THEN 4730 REPEAT 4740 CURSOR 3,23 4750 PRINT "Til kontonr " 4760 CURSOR 15,23 4770 INPUT KTN$ 4780 EXEC NRTEST(KTN$) 4790 UNTIL L=5 AND P>9999 AND TEST2=0 AND P=>KONT 4800 EXEC FINDPOST(FTAB,MFANTAL,P,FPIL3) 4810 IF CEKS=1 THEN FPIL3=FPIL3-1 4820 TIL=FPIL3 4830 ENDIF 4840 CLEAR 4850 REPEAT 4860 CURSOR 8,13 4870 INPUT "Monter papir til udskrift af finanskontoliste og tast RETURN",A$ 4880 UNTIL ORD(A$)=255 4890 OUTPUT P 4900 SIDE=1 4910 DA1=DATO 4920 DAT$=" " 4930 FOR J=8 TO 1 STEP -1 4940 IF J MOD 3=0 THEN 4950 DAT$(J)="." 4960 ELSE 4970 DAT$(J)=CHR(DA1 MOD 10+48) 4980 DA1=DA1 DIV 10 4990 ENDIF 5000 NEXT J 5010 FOR I=FRA TO TIL STEP 5 5020 PRINT TAB(10);CHR(14);"Finanskontoliste";CHR(15);TAB(36);"Dato : ";DAT$; 5030 PRINT USING " Side :####":SIDE 5040 PRINT " " 5050 SIDE=SIDE+1 5060 FOR FPIL3=I TO I+4 5070 IF FTAB(FPIL3,1)<>0 THEN 5080 EXEC HENTPOST 5090 EXEC CALC(5,FMDEBET$,TAH$,UD1$) 5100 EXEC CALC(5,FMKREDIT$,TAH$,UD2$) 5110 EXEC CALC(5,FÅDEBET$,TAH$,UD3$) 5120 EXEC CALC(5,FÅKREDIT$,TAH$,UD4$) 5130 PRINT TAB(9);STREG$ 5140 PRINT TAB(9);"NAVN";TAB(39);"UDSKIFTSKODE";TAB(66);"MOMSKODE" 5150 PRINT " " 5160 PRINT USING "###### ":FNR; 5170 PRINT FNAVN$;TAB(45);FUKODE$;TAB(70);FMKODE$ 5180 PRINT " " 5190 PRINT TAB(16);"MÅNEDENS BEVÆGELSER";TAB(59);"ÅRETS BEVÆGELSER" 5200 PRINT " " 5210 PRINT TAB(9);UD1$(1:13);" ";UD2$(1:13);TAB(49);UD3$(1:13);" "; 5220 PRINT UD4$(1:13) 5230 PRINT " " 5240 ENDIF 5250 IF FPIL3=TIL THEN EXIT 5260 NEXT FPIL3 5270 IF FPIL3=TIL THEN EXIT 5280 PRINT " " 5290 NEXT I 5300 FOR J=FPIL3+1 TO I+4 5310 PRINT CHR(10) 5320 PRINT CHR(10) 5330 PRINT CHR(10) 5340 PRINT CHR(10) 5350 PRINT " " 5360 NEXT J 5370 PRINT " " 5380 OUTPUT T 5390 KONT=0 5400 ENDCASE 5410 ELSE 5420 REPEAT 5430 CURSOR 3,23 5440 PRINT "Denne kode kan ikke slettes, da saldoen ikke er udlignet,"; 5450 PRINT " tryk RETURN " 5460 INPUT A$ 5470 EXEC NRTEST(A$) 5480 UNTIL P=-1 5490 ENDIF 5500 UNTIL KONT=0 5510 UNTIL TYPE=0 5520 EXEC UDTAB(FTAB,MFANTAL,K2$) 5530 CLOSE K2$ 5540 EXEC FEJL(9,30,K2$) 5550 CLOSE K3$ 5560 EXEC FEJL(9,31,K3$) 5570 OPEN K4$,W 5580 EXEC FEJL(9,32,K4$) 5590 PUT K4$,14:AFIN,ADEB,AKRE,VTAB2(1),VTAB2(2),VTAB2(3),VTAB2(4),VTAB2(5) 5600 EXEC FEJL(9,33,K4$) 5610 T2(4)=0 5620 PUT K4$,17:T2(1),T2(2),T2(3),T2(4),T2(5),T2(6),T2(7),T2(8),T2(9) 5630 EXEC FEJL(9,34,K4$) 5640 CLOSE K4$ 5650 EXEC FEJL(9,35,K4$) 5660 CHAIN "P641210:OPSTART"
0x0000…0047 Line {l1=0x45, l2=»0100 DIM FNAVN$(25),FMKODE$(1),FUKODE$(1),DAT$(8),STREG$(71),VTAB2(5)«, l3=0x45}
0x0047…0093 Line {l1=0x4a, l2=»0110 DIM FMDEBET$(12),FMKREDIT$(12),FÅDEBET$(12),FÅKREDIT$(12),FSALDO$(12)«, l3=0x4a}
0x0093…00d9 Line {l1=0x44, l2=»0120 DIM N$(6),BLANK$(77),A$(1),TAL4$(14),TAH$(12),OP1$(12),OP2$(12)«, l3=0x44}
0x00d9…0124 Line {l1=0x49, l2=»0130 DIM RES$(14),KTN$(7),BLB2$(12),UBLB2$(14),UD1$(14),UD2$(14),UD3$(14)«, l3=0x49}
0x0124…016b Line {l1=0x45, l2=»0140 DIM UD4$(14),K4$(17),K5$(17),T1(9),T2(9),K3$(17),K1$(17),K2$(17)«, l3=0x45}
0x016b…0188 Line {l1=0x1b, l2=»0150 PROC CALC(AT,B1,B2,ES)«, l3=0x1b}
0x0188…01bc Line {l1=0x32, l2=»0160 RES$=ES$;OP1$=B1$;OP2$=B2$;SI=0;FLAG=0;ART=AT«, l3=0x32}
0x01bc…01d6 Line {l1=0x18, l2=»0170 CALL "P641210:REGN"«, l3=0x18}
0x01d6…01e5 Line {l1=0x0d, l2=»0180 ES$=RES$«, l3=0x0d}
0x01e5…01fe Line {l1=0x17, l2=»0190 IF FLAG THEN STOP «, l3=0x17}
0x01fe…020d Line {l1=0x0d, l2=»0200 ENDPROC «, l3=0x0d}
0x020d…022a Line {l1=0x1b, l2=»0210 PROC FEJL(NR1,NR2,NR3)«, l3=0x1b}
0x022a…0249 Line {l1=0x1d, l2=»0220 IF STATUS(NR3$)<>0 THEN «, l3=0x1d}
0x0249…026f Line {l1=0x24, l2=»0230 PRINT STATUS(NR3$),NR1,NR2,NR3$«, l3=0x24}
0x026f…027b Line {l1=0x0a, l2=»0240 STOP «, l3=0x0a}
0x027b…0288 Line {l1=0x0b, l2=»0250 ENDIF «, l3=0x0b}
0x0288…0297 Line {l1=0x0d, l2=»0260 ENDPROC «, l3=0x0d}
0x0297…02aa Line {l1=0x11, l2=»0270 PROC DKRTEST«, l3=0x11}
0x02aa…02d6 Line {l1=0x2a, l2=»0280 EXEC CALC(4,FÅDEBET$,FÅKREDIT$,TAL4$)«, l3=0x2a}
0x02d6…02f1 Line {l1=0x19, l2=»0290 IF SI<>0 THEN TEST=1«, l3=0x19}
0x02f1…030d Line {l1=0x1a, l2=»0300 IF FLAG<>0 THEN STOP «, l3=0x1a}
0x030d…031c Line {l1=0x0d, l2=»0310 ENDPROC «, l3=0x0d}
0x031c…033c Line {l1=0x1e, l2=»0320 PROC INDTAB(T,MANTAL,K10)«, l3=0x1e}
0x033c…0354 Line {l1=0x16, l2=»0330 J=MANTAL DIV 32+1«, l3=0x16}
0x0354…0376 Line {l1=0x20, l2=»0340 FOR I=J TO MANTAL DIV 4+J-1«, l3=0x20}
0x0376…039d Line {l1=0x25, l2=»0350 H=(I-J)*4+1;J2=H+1;J3=H+2;J4=H+3«, l3=0x25}
0x039d…03ec Line {l1=0x4d, l2=»0360 GET K10$,I:T(H,1),T(H,2),T(J2,1),T(J2,2),T(J3,1),T(J3,2),T(J4,1),T(J4,2)«, l3=0x4d}
0x03ec…0406 Line {l1=0x18, l2=»0370 EXEC FEJL(1,1,K10$)«, l3=0x18}
0x0406…0413 Line {l1=0x0b, l2=»0380 NEXT I«, l3=0x0b}
0x0413…0422 Line {l1=0x0d, l2=»0390 ENDPROC «, l3=0x0d}
0x0422…0441 Line {l1=0x1d, l2=»0400 PROC UDTAB(U,MANTAL1,K9)«, l3=0x1d}
0x0441…045a Line {l1=0x17, l2=»0410 J=MANTAL1 DIV 32+1«, l3=0x17}
0x045a…046f Line {l1=0x13, l2=»0420 FOR I=1 TO J-1«, l3=0x13}
0x046f…04b8 Line {l1=0x47, l2=»0430 H=(I-1)*32+1;J1=H+4;J2=H+8;J3=H+12;J4=H+16;J5=H+20;J6=H+24;J7=H+28«, l3=0x47}
0x04b8…0507 Line {l1=0x4d, l2=»0440 PUT K9$,I:U(H,1),U(J1,1),U(J2,1),U(J3,1),U(J4,1),U(J5,1),U(J6,1),U(J7,1)«, l3=0x4d}
0x0507…0520 Line {l1=0x17, l2=»0450 EXEC FEJL(2,1,K9$)«, l3=0x17}
0x0520…052d Line {l1=0x0b, l2=»0460 NEXT I«, l3=0x0b}
0x052d…0550 Line {l1=0x21, l2=»0470 FOR I=J TO MANTAL1 DIV 4+J-1«, l3=0x21}
0x0550…0577 Line {l1=0x25, l2=»0480 H=(I-J)*4+1;J1=H+1;J2=H+2;J3=H+3«, l3=0x25}
0x0577…05c5 Line {l1=0x4c, l2=»0490 PUT K9$,I:U(H,1),U(H,2),U(J1,1),U(J1,2),U(J2,1),U(J2,2),U(J3,1),U(J3,2)«, l3=0x4c}
0x05c5…05de Line {l1=0x17, l2=»0500 EXEC FEJL(2,2,K9$)«, l3=0x17}
0x05de…05eb Line {l1=0x0b, l2=»0510 NEXT I«, l3=0x0b}
0x05eb…05fa Line {l1=0x0d, l2=»0520 ENDPROC «, l3=0x0d}
0x05fa…0625 Line {l1=0x29, l2=»0530 PROC FINDPOST(TAB1,MANT1,NØGL1,PIL3)«, l3=0x29}
0x0625…064d Line {l1=0x26, l2=»0540 PIL1=MANT1 DIV 2;PIL3=PIL1;CEKS=1«, l3=0x26}
0x064d…065b Line {l1=0x0c, l2=»0550 REPEAT «, l3=0x0c}
0x065b…067d Line {l1=0x20, l2=»0560 IF NØGL1=TAB1(PIL3,1) THEN «, l3=0x20}
0x067d…068a Line {l1=0x0b, l2=»0570 CEKS=0«, l3=0x0b}
0x068a…0696 Line {l1=0x0a, l2=»0580 ELSE «, l3=0x0a}
0x0696…06b2 Line {l1=0x1a, l2=»0590 IF PIL1=1 THEN PIL1=0«, l3=0x1a}
0x06b2…06cd Line {l1=0x19, l2=»0600 PIL1=INT((PIL1+1)/2)«, l3=0x19}
0x06cd…06ef Line {l1=0x20, l2=»0610 IF NØGL1>TAB1(PIL3,1) THEN «, l3=0x20}
0x06ef…0704 Line {l1=0x13, l2=»0620 PIL3=PIL3+PIL1«, l3=0x13}
0x0704…0710 Line {l1=0x0a, l2=»0630 ELSE «, l3=0x0a}
0x0710…0725 Line {l1=0x13, l2=»0640 PIL3=PIL3-PIL1«, l3=0x13}
0x0725…0732 Line {l1=0x0b, l2=»0650 ENDIF «, l3=0x0b}
0x0732…074e Line {l1=0x1a, l2=»0660 IF PIL3<1 THEN PIL3=1«, l3=0x1a}
0x074e…0772 Line {l1=0x22, l2=»0670 IF PIL3>MANT1 THEN PIL3=MANT1«, l3=0x22}
0x0772…077f Line {l1=0x0b, l2=»0680 ENDIF «, l3=0x0b}
0x077f…079c Line {l1=0x1b, l2=»0690 UNTIL CEKS=0 OR PIL1=0«, l3=0x1b}
0x079c…07ab Line {l1=0x0d, l2=»0700 ENDPROC «, l3=0x0d}
0x07ab…07d5 Line {l1=0x28, l2=»0710 PROC INDSÆT(TAB2,ANTAL2,NØGL2,PIL4)«, l3=0x28}
0x07d5…07eb Line {l1=0x14, l2=»0720 IF CEKS=1 THEN «, l3=0x14}
0x07eb…0809 Line {l1=0x1c, l2=»0730 POSTNR=TAB2(ANTAL2+1,2)«, l3=0x1c}
0x0809…0850 Line {l1=0x45, l2=»0740 IF NØGL2>TAB2(PIL4,1) AND TAB2(PIL4,1)<>1000000 THEN PIL4=PIL4+1«, l3=0x45}
0x0850…0877 Line {l1=0x25, l2=»0750 FOR I=ANTAL2+1 TO PIL4+1 STEP -1«, l3=0x25}
0x0877…0893 Line {l1=0x1a, l2=»0760 TAB2(I,1)=TAB2(I-1,1)«, l3=0x1a}
0x0893…08af Line {l1=0x1a, l2=»0770 TAB2(I,2)=TAB2(I-1,2)«, l3=0x1a}
0x08af…08bc Line {l1=0x0b, l2=»0780 NEXT I«, l3=0x0b}
0x08bc…08d5 Line {l1=0x17, l2=»0790 TAB2(PIL4,1)=NØGL2«, l3=0x17}
0x08d5…08ef Line {l1=0x18, l2=»0800 TAB2(PIL4,2)=POSTNR«, l3=0x18}
0x08ef…0905 Line {l1=0x14, l2=»0810 ANTAL2=ANTAL2+1«, l3=0x14}
0x0905…0912 Line {l1=0x0b, l2=»0820 ENDIF «, l3=0x0b}
0x0912…0921 Line {l1=0x0d, l2=»0830 ENDPROC «, l3=0x0d}
0x0921…094d Line {l1=0x2a, l2=»0840 PROC SLETPOST(TAB3,ANTAL3,NØGL3,PIL5)«, l3=0x2a}
0x094d…0963 Line {l1=0x14, l2=»0850 IF CEKS=0 THEN «, l3=0x14}
0x0963…097d Line {l1=0x18, l2=»0860 POSTNR=TAB3(PIL5,2)«, l3=0x18}
0x097d…099a Line {l1=0x1b, l2=»0870 FOR I=PIL5 TO ANTAL3-1«, l3=0x1b}
0x099a…09b6 Line {l1=0x1a, l2=»0880 TAB3(I,1)=TAB3(I+1,1)«, l3=0x1a}
0x09b6…09d2 Line {l1=0x1a, l2=»0890 TAB3(I,2)=TAB3(I+1,2)«, l3=0x1a}
0x09d2…09df Line {l1=0x0b, l2=»0900 NEXT I«, l3=0x0b}
0x09df…09fc Line {l1=0x1b, l2=»0910 TAB3(ANTAL3,1)=1000000«, l3=0x1b}
0x09fc…0a18 Line {l1=0x1a, l2=»0920 TAB3(ANTAL3,2)=POSTNR«, l3=0x1a}
0x0a18…0a2e Line {l1=0x14, l2=»0930 ANTAL3=ANTAL3-1«, l3=0x14}
0x0a2e…0a3b Line {l1=0x0b, l2=»0940 ENDIF «, l3=0x0b}
0x0a3b…0a4a Line {l1=0x0d, l2=»0950 ENDPROC «, l3=0x0d}
0x0a4a…0a67 Line {l1=0x1b, l2=»0960 PROC SLETFPOST(NØGLE3)«, l3=0x1b}
0x0a67…0a96 Line {l1=0x2d, l2=»0970 EXEC FINDPOST(FTAB,MFANTAL,NØGLE3,FPIL3)«, l3=0x2d}
0x0a96…0ab1 Line {l1=0x19, l2=»0980 IF CEKS=1 THEN STOP «, l3=0x19}
0x0ab1…0af7 Line {l1=0x44, l2=»0990 FNR=0;FNAVN$=BLANK$(1:25);FMKODE$=" ";FUKODE$=" ";FMDEBET$="0+"«, l3=0x44}
0x0af7…0b29 Line {l1=0x30, l2=»1000 FMKREDIT$="0+";FÅDEBET$="0+";FÅKREDIT$="0+"«, l3=0x30}
0x0b29…0b3d Line {l1=0x12, l2=»1010 EXEC GEMFPOST«, l3=0x12}
0x0b3d…0b69 Line {l1=0x2a, l2=»1020 EXEC SLETPOST(FTAB,AFIN,NØGLE3,FPIL3)«, l3=0x2a}
0x0b69…0b78 Line {l1=0x0d, l2=»1030 ENDPROC «, l3=0x0d}
0x0b78…0b8c Line {l1=0x12, l2=»1040 PROC HENTPOST«, l3=0x12}
0x0b8c…0ba2 Line {l1=0x14, l2=»1050 S=FTAB(FPIL3,2)«, l3=0x14}
0x0ba2…0bbd Line {l1=0x19, l2=»1060 GET K3$,S:FNR,FNAVN$«, l3=0x19}
0x0bbd…0bd6 Line {l1=0x17, l2=»1070 EXEC FEJL(3,2,K3$)«, l3=0x17}
0x0bd6…0bfd Line {l1=0x25, l2=»1080 IF FNR<>FTAB(FPIL3,1) THEN STOP «, l3=0x25}
0x0bfd…0c2a Line {l1=0x2b, l2=»1090 GET K3$,S+1:FMKODE$,FMDEBET$,FMKREDIT$«, l3=0x2b}
0x0c2a…0c43 Line {l1=0x17, l2=»1100 EXEC FEJL(3,3,K3$)«, l3=0x17}
0x0c43…0c70 Line {l1=0x2b, l2=»1110 GET K3$,S+2:FUKODE$,FÅDEBET$,FÅKREDIT$«, l3=0x2b}
0x0c70…0c89 Line {l1=0x17, l2=»1120 EXEC FEJL(3,4,K3$)«, l3=0x17}
0x0c89…0c98 Line {l1=0x0d, l2=»1130 ENDPROC «, l3=0x0d}
0x0c98…0cac Line {l1=0x12, l2=»1140 PROC GEMFPOST«, l3=0x12}
0x0cac…0cc2 Line {l1=0x14, l2=»1150 S=FTAB(FPIL3,2)«, l3=0x14}
0x0cc2…0cdd Line {l1=0x19, l2=»1160 PUT K3$,S:FNR,FNAVN$«, l3=0x19}
0x0cdd…0cf6 Line {l1=0x17, l2=»1170 EXEC FEJL(4,3,K3$)«, l3=0x17}
0x0cf6…0d23 Line {l1=0x2b, l2=»1180 PUT K3$,S+1:FMKODE$,FMDEBET$,FMKREDIT$«, l3=0x2b}
0x0d23…0d3c Line {l1=0x17, l2=»1190 EXEC FEJL(4,4,K3$)«, l3=0x17}
0x0d3c…0d69 Line {l1=0x2b, l2=»1200 PUT K3$,S+2:FUKODE$,FÅDEBET$,FÅKREDIT$«, l3=0x2b}
0x0d69…0d82 Line {l1=0x17, l2=»1210 EXEC FEJL(4,4,K3$)«, l3=0x17}
0x0d82…0d91 Line {l1=0x0d, l2=»1220 ENDPROC «, l3=0x0d}
0x0d91…0db6 Line {l1=0x23, l2=»1230 PROC FINDTAST(FSTYR,FÆND,FNR2)«, l3=0x23}
0x0db6…0dcd Line {l1=0x15, l2=»1240 IF FÆND<>1 THEN «, l3=0x15}
0x0dcd…0dda Line {l1=0x0b, l2=»1250 CLEAR «, l3=0x0b}
0x0dda…0dec Line {l1=0x10, l2=»1260 CURSOR 21,1«, l3=0x10}
0x0dec…0e0b Line {l1=0x1d, l2=»1270 PRINT "Kontooplysninger"«, l3=0x1d}
0x0e0b…0e21 Line {l1=0x14, l2=»1280 EXEC OVERSKRIFT«, l3=0x14}
0x0e21…0e32 Line {l1=0x0f, l2=»1290 CURSOR 2,3«, l3=0x0f}
0x0e32…0e63 Line {l1=0x2f, l2=»1300 PRINT USING "1:Kontonr : ######":FNR2«, l3=0x2f}
0x0e63…0e70 Line {l1=0x0b, l2=»1310 ENDIF «, l3=0x0b}
0x0e70…0e7e Line {l1=0x0c, l2=»1320 REPEAT «, l3=0x0c}
0x0e7e…0e93 Line {l1=0x13, l2=»1330 CASE FSTYR OF «, l3=0x13}
0x0e93…0e9f Line {l1=0x0a, l2=»1340 STOP «, l3=0x0a}
0x0e9f…0eac Line {l1=0x0b, l2=»1350 WHEN 2«, l3=0x0b}
0x0eac…0ec3 Line {l1=0x15, l2=»1360 IF FÆND<>1 THEN «, l3=0x15}
0x0ec3…0ed4 Line {l1=0x0f, l2=»1370 CURSOR 2,5«, l3=0x0f}
0x0ed4…0ef3 Line {l1=0x1d, l2=»1380 PRINT "2:Kontonavn :"«, l3=0x1d}
0x0ef3…0f01 Line {l1=0x0c, l2=»1390 FSTYR=3«, l3=0x0c}
0x0f01…0f0e Line {l1=0x0b, l2=»1400 ENDIF «, l3=0x0b}
0x0f0e…0f25 Line {l1=0x15, l2=»1410 IF FÆND<>2 THEN «, l3=0x15}
0x0f25…0f37 Line {l1=0x10, l2=»1420 CURSOR 3,23«, l3=0x10}
0x0f37…0f79 Line {l1=0x40, l2=»1430 PRINT "Kontonavn";BLANK$(1:29);"(max 25 tegn)";BLANK$(1:25)«, l3=0x40}
0x0f79…0f8c Line {l1=0x11, l2=»1440 CURSOR 13,23«, l3=0x11}
0x0f8c…0f9f Line {l1=0x11, l2=»1450 INPUT FNAVN$«, l3=0x11}
0x0f9f…0fac Line {l1=0x0b, l2=»1460 ENDIF «, l3=0x0b}
0x0fac…0fbe Line {l1=0x10, l2=»1470 CURSOR 19,5«, l3=0x10}
0x0fbe…0fd7 Line {l1=0x17, l2=»1480 PRINT BLANK$(1:25)«, l3=0x17}
0x0fd7…0fe9 Line {l1=0x10, l2=»1490 CURSOR 19,5«, l3=0x10}
0x0fe9…0ffc Line {l1=0x11, l2=»1500 PRINT FNAVN$«, l3=0x11}
0x0ffc…1009 Line {l1=0x0b, l2=»1510 WHEN 4«, l3=0x0b}
0x1009…1028 Line {l1=0x1d, l2=»1520 IF ORD(FUKODE$)=48 THEN «, l3=0x1d}
0x1028…103f Line {l1=0x15, l2=»1530 IF FÆND<>1 THEN «, l3=0x15}
0x103f…1050 Line {l1=0x0f, l2=»1540 CURSOR 2,9«, l3=0x0f}
0x1050…106f Line {l1=0x1d, l2=»1550 PRINT "4:Momskode :"«, l3=0x1d}
0x106f…107c Line {l1=0x0b, l2=»1560 ENDIF «, l3=0x0b}
0x107c…1093 Line {l1=0x15, l2=»1570 IF FÆND<>2 THEN «, l3=0x15}
0x1093…10a1 Line {l1=0x0c, l2=»1580 REPEAT «, l3=0x0c}
0x10a1…10b3 Line {l1=0x10, l2=»1590 CURSOR 3,23«, l3=0x10}
0x10b3…10f3 Line {l1=0x3e, l2=»1600 PRINT "Momskode (0:ingen moms,1:indgående afgift,";«, l3=0x3e}
0x10f3…111d Line {l1=0x28, l2=»1610 PRINT "2:udgående afgift "«, l3=0x28}
0x111d…1130 Line {l1=0x11, l2=»1620 CURSOR 13,23«, l3=0x11}
0x1130…113f Line {l1=0x0d, l2=»1630 INPUT A$«, l3=0x0d}
0x113f…1167 Line {l1=0x26, l2=»1640 UNTIL (ORD(A$)>47 AND ORD(A$)<51)«, l3=0x26}
0x1167…1178 Line {l1=0x0f, l2=»1650 FMKODE$=A$«, l3=0x0f}
0x1178…1185 Line {l1=0x0b, l2=»1660 ENDIF «, l3=0x0b}
0x1185…1197 Line {l1=0x10, l2=»1670 CURSOR 19,9«, l3=0x10}
0x1197…11a7 Line {l1=0x0e, l2=»1680 PRINT " "«, l3=0x0e}
0x11a7…11b9 Line {l1=0x10, l2=»1690 CURSOR 19,9«, l3=0x10}
0x11b9…11cd Line {l1=0x12, l2=»1700 PRINT FMKODE$«, l3=0x12}
0x11cd…11da Line {l1=0x0b, l2=»1710 ENDIF «, l3=0x0b}
0x11da…11e8 Line {l1=0x0c, l2=»1720 FSTYR=5«, l3=0x0c}
0x11e8…11f5 Line {l1=0x0b, l2=»1730 WHEN 3«, l3=0x0b}
0x11f5…120c Line {l1=0x15, l2=»1740 IF FÆND<>1 THEN «, l3=0x15}
0x120c…121d Line {l1=0x0f, l2=»1750 CURSOR 2,7«, l3=0x0f}
0x121d…123c Line {l1=0x1d, l2=»1760 PRINT "3:Udskriftskode:"«, l3=0x1d}
0x123c…1249 Line {l1=0x0b, l2=»1770 ENDIF «, l3=0x0b}
0x1249…1260 Line {l1=0x15, l2=»1780 IF FÆND<>2 THEN «, l3=0x15}
0x1260…1283 Line {l1=0x21, l2=»1790 IF FT=FNR2 OR FT1=FNR2 THEN «, l3=0x21}
0x1283…1295 Line {l1=0x10, l2=»1800 FUKODE$="2"«, l3=0x10}
0x1295…12a1 Line {l1=0x0a, l2=»1810 ELSE «, l3=0x0a}
0x12a1…12ee Line {l1=0x4b, l2=»1820 IF (FT<FNR2 AND FNR2<=FT+MKGR) OR (FT1<FNR2 AND FNR2<=FT1+MKRGR) THEN «, l3=0x4b}
0x12ee…1300 Line {l1=0x10, l2=»1830 FUKODE$="1"«, l3=0x10}
0x1300…130c Line {l1=0x0a, l2=»1840 ELSE «, l3=0x0a}
0x130c…131a Line {l1=0x0c, l2=»1850 REPEAT «, l3=0x0c}
0x131a…132c Line {l1=0x10, l2=»1860 CURSOR 3,23«, l3=0x10}
0x132c…137b Line {l1=0x4d, l2=»1870 PRINT "Udskriftskode (0:normal,1:undergruppe,2:hovedgruppe,3:subto";«, l3=0x4d}
0x137b…1397 Line {l1=0x1a, l2=»1880 PRINT "tal) "«, l3=0x1a}
0x1397…13aa Line {l1=0x11, l2=»1890 CURSOR 17,23«, l3=0x11}
0x13aa…13b9 Line {l1=0x0d, l2=»1900 INPUT A$«, l3=0x0d}
0x13b9…13df Line {l1=0x24, l2=»1910 UNTIL ORD(A$)>47 AND ORD(A$)<52«, l3=0x24}
0x13df…13f0 Line {l1=0x0f, l2=»1920 FUKODE$=A$«, l3=0x0f}
0x13f0…13fd Line {l1=0x0b, l2=»1930 ENDIF «, l3=0x0b}
0x13fd…140a Line {l1=0x0b, l2=»1940 ENDIF «, l3=0x0b}
0x140a…1417 Line {l1=0x0b, l2=»1950 ENDIF «, l3=0x0b}
0x1417…1429 Line {l1=0x10, l2=»1960 CURSOR 19,7«, l3=0x10}
0x1429…1439 Line {l1=0x0e, l2=»1970 PRINT " "«, l3=0x0e}
0x1439…144b Line {l1=0x10, l2=»1980 CURSOR 19,7«, l3=0x10}
0x144b…145f Line {l1=0x12, l2=»1990 PRINT FUKODE$«, l3=0x12}
0x145f…147e Line {l1=0x1d, l2=»2000 IF ORD(FUKODE$)>48 THEN «, l3=0x1d}
0x147e…148c Line {l1=0x0c, l2=»2010 FSTYR=5«, l3=0x0c}
0x148c…1498 Line {l1=0x0a, l2=»2020 ELSE «, l3=0x0a}
0x1498…14a6 Line {l1=0x0c, l2=»2030 FSTYR=4«, l3=0x0c}
0x14a6…14b3 Line {l1=0x0b, l2=»2040 ENDIF «, l3=0x0b}
0x14b3…14c2 Line {l1=0x0d, l2=»2050 ENDCASE «, l3=0x0d}
0x14c2…14df Line {l1=0x1b, l2=»2060 IF FÆND=1 THEN FSTYR=5«, l3=0x1b}
0x14df…14f3 Line {l1=0x12, l2=»2070 UNTIL FSTYR=5«, l3=0x12}
0x14f3…1540 Line {l1=0x4b, l2=»2080 IF (FT<FNR2 AND FNR2<=FT+MKGR) OR (FT1<FNR2 AND FNR2<=FT1+MKRGR) THEN «, l3=0x4b}
0x1540…154c Line {l1=0x0a, l2=»2090 FT2=1«, l3=0x0a}
0x154c…1558 Line {l1=0x0a, l2=»2100 ELSE «, l3=0x0a}
0x1558…1564 Line {l1=0x0a, l2=»2110 FT2=0«, l3=0x0a}
0x1564…1571 Line {l1=0x0b, l2=»2120 ENDIF «, l3=0x0b}
0x1571…15a7 Line {l1=0x34, l2=»2130 IF FÆND<>1 AND (ORD(FUKODE$)=48 OR FT2=1) THEN «, l3=0x34}
0x15a7…15ba Line {l1=0x11, l2=»2140 CURSOR 20,11«, l3=0x11}
0x15ba…15ce Line {l1=0x12, l2=»2150 PRINT "Debet"«, l3=0x12}
0x15ce…15e1 Line {l1=0x11, l2=»2160 CURSOR 35,11«, l3=0x11}
0x15e1…15f6 Line {l1=0x13, l2=»2170 PRINT "Kredit"«, l3=0x13}
0x15f6…1609 Line {l1=0x11, l2=»2180 CURSOR 53,11«, l3=0x11}
0x1609…161d Line {l1=0x12, l2=»2190 PRINT "Saldi"«, l3=0x12}
0x161d…162f Line {l1=0x10, l2=»2200 CURSOR 4,13«, l3=0x10}
0x162f…1648 Line {l1=0x17, l2=»2210 PRINT "Månedens :"«, l3=0x17}
0x1648…165b Line {l1=0x11, l2=»2220 CURSOR 15,13«, l3=0x11}
0x165b…167e Line {l1=0x21, l2=»2230 EXEC TUD(FMDEBET$,TAL4$,0,0)«, l3=0x21}
0x167e…1691 Line {l1=0x11, l2=»2240 CURSOR 31,13«, l3=0x11}
0x1691…16b5 Line {l1=0x22, l2=»2250 EXEC TUD(FMKREDIT$,TAL4$,0,0)«, l3=0x22}
0x16b5…16c8 Line {l1=0x11, l2=»2260 CURSOR 48,13«, l3=0x11}
0x16c8…16f6 Line {l1=0x2c, l2=»2270 EXEC CALC(0,FMDEBET$,FMKREDIT$,FSALDO$)«, l3=0x2c}
0x16f6…1718 Line {l1=0x20, l2=»2280 EXEC TUD(FSALDO$,TAL4$,1,0)«, l3=0x20}
0x1718…172a Line {l1=0x10, l2=»2290 CURSOR 4,15«, l3=0x10}
0x172a…1743 Line {l1=0x17, l2=»2300 PRINT "Årets :"«, l3=0x17}
0x1743…1756 Line {l1=0x11, l2=»2310 CURSOR 15,15«, l3=0x11}
0x1756…1779 Line {l1=0x21, l2=»2320 EXEC TUD(FÅDEBET$,TAL4$,0,0)«, l3=0x21}
0x1779…178c Line {l1=0x11, l2=»2330 CURSOR 31,15«, l3=0x11}
0x178c…17b0 Line {l1=0x22, l2=»2340 EXEC TUD(FÅKREDIT$,TAL4$,0,0)«, l3=0x22}
0x17b0…17c3 Line {l1=0x11, l2=»2350 CURSOR 48,15«, l3=0x11}
0x17c3…17f1 Line {l1=0x2c, l2=»2360 EXEC CALC(0,FÅDEBET$,FÅKREDIT$,FSALDO$)«, l3=0x2c}
0x17f1…1813 Line {l1=0x20, l2=»2370 EXEC TUD(FSALDO$,TAL4$,1,0)«, l3=0x20}
0x1813…1820 Line {l1=0x0b, l2=»2380 ENDIF «, l3=0x0b}
0x1820…182f Line {l1=0x0d, l2=»2390 ENDPROC «, l3=0x0d}
0x182f…1854 Line {l1=0x23, l2=»2400 PROC TUD(BLB1,UBLB1,TEGN,STØR)«, l3=0x23}
0x1854…1874 Line {l1=0x1e, l2=»2410 BLB2$=BLB1$;UBLB2$=UBLB1$«, l3=0x1e}
0x1874…1899 Line {l1=0x23, l2=»2420 EXEC CALC(5,BLB2$,TAH$,UBLB2$)«, l3=0x23}
0x1899…18ad Line {l1=0x12, l2=»2430 UBLB1$=UBLB2$«, l3=0x12}
0x18ad…18c3 Line {l1=0x14, l2=»2440 IF TEGN=0 THEN «, l3=0x14}
0x18c3…18dd Line {l1=0x18, l2=»2450 UBLB1$=UBLB1$(1:13)«, l3=0x18}
0x18dd…18e9 Line {l1=0x0a, l2=»2460 ELSE «, l3=0x0a}
0x18e9…191b Line {l1=0x30, l2=»2470 IF TEGN=1 AND UBLB1$(LEN(UBLB1$))="+" THEN «, l3=0x30}
0x191b…1939 Line {l1=0x1c, l2=»2480 UBLB1$(LEN(UBLB1$))=" "«, l3=0x1c}
0x1939…1946 Line {l1=0x0b, l2=»2490 ENDIF «, l3=0x0b}
0x1946…195c Line {l1=0x14, l2=»2500 IF STØR=1 THEN «, l3=0x14}
0x195c…1981 Line {l1=0x23, l2=»2510 UBLB1$=UBLB1$(4:LEN(UBLB1$)-3)«, l3=0x23}
0x1981…198e Line {l1=0x0b, l2=»2520 ENDIF «, l3=0x0b}
0x198e…199b Line {l1=0x0b, l2=»2530 ENDIF «, l3=0x0b}
0x199b…19ae Line {l1=0x11, l2=»2540 PRINT UBLB1$«, l3=0x11}
0x19ae…19bd Line {l1=0x0d, l2=»2550 ENDPROC «, l3=0x0d}
0x19bd…19d5 Line {l1=0x16, l2=»2560 PROC NRTEST(NUM1)«, l3=0x16}
0x19d5…19fb Line {l1=0x24, l2=»2570 P=0;TEST2=0;KTAL=0;L=LEN(NUM1$)«, l3=0x24}
0x19fb…1a0c Line {l1=0x0f, l2=»2580 CASE L OF «, l3=0x0f}
0x1a0c…1a1f Line {l1=0x11, l2=»2590 FOR I=1 TO L«, l3=0x11}
0x1a1f…1a3e Line {l1=0x1d, l2=»2600 P1=INT(ORD(NUM1$(I))-48)«, l3=0x1d}
0x1a3e…1a5d Line {l1=0x1d, l2=»2610 IF P1=>0 AND P1<=9 THEN «, l3=0x1d}
0x1a5d…1a6d Line {l1=0x0e, l2=»2620 P=P*10+P1«, l3=0x0e}
0x1a6d…1a79 Line {l1=0x0a, l2=»2630 ELSE «, l3=0x0a}
0x1a79…1a87 Line {l1=0x0c, l2=»2640 TEST2=1«, l3=0x0c}
0x1a87…1a94 Line {l1=0x0b, l2=»2650 ENDIF «, l3=0x0b}
0x1a94…1aa1 Line {l1=0x0b, l2=»2660 NEXT I«, l3=0x0b}
0x1aa1…1ac9 Line {l1=0x26, l2=»2670 KTAL=P DIV 10000;KTAL9=P DIV 1000«, l3=0x26}
0x1ac9…1aee Line {l1=0x23, l2=»2680 IF KTAL9=KRTAL THEN KTAL=KRTAL«, l3=0x23}
0x1aee…1afb Line {l1=0x0b, l2=»2690 WHEN 0«, l3=0x0b}
0x1afb…1b06 Line {l1=0x09, l2=»2700 P=-1«, l3=0x09}
0x1b06…1b13 Line {l1=0x0b, l2=»2710 WHEN 1«, l3=0x0b}
0x1b13…1b28 Line {l1=0x13, l2=»2720 CASE NUM1$ OF «, l3=0x13}
0x1b28…1b43 Line {l1=0x19, l2=»2730 P=INT(ORD(NUM1$)-48)«, l3=0x19}
0x1b43…1b56 Line {l1=0x11, l2=»2740 WHEN "j","J"«, l3=0x11}
0x1b56…1b61 Line {l1=0x09, l2=»2750 P=-7«, l3=0x09}
0x1b61…1b74 Line {l1=0x11, l2=»2760 WHEN "n","N"«, l3=0x11}
0x1b74…1b7f Line {l1=0x09, l2=»2770 P=-8«, l3=0x09}
0x1b7f…1b8e Line {l1=0x0d, l2=»2780 ENDCASE «, l3=0x0d}
0x1b8e…1b9d Line {l1=0x0d, l2=»2790 ENDCASE «, l3=0x0d}
0x1b9d…1bac Line {l1=0x0d, l2=»2800 ENDPROC «, l3=0x0d}
0x1bac…1bc2 Line {l1=0x14, l2=»2810 PROC OVERSKRIFT«, l3=0x14}
0x1bc2…1bd4 Line {l1=0x10, l2=»2820 CURSOR 45,1«, l3=0x10}
0x1bd4…1be8 Line {l1=0x12, l2=»2830 CASE TYPE OF «, l3=0x12}
0x1be8…1bf5 Line {l1=0x0b, l2=»2840 WHEN 1«, l3=0x0b}
0x1bf5…1c0e Line {l1=0x17, l2=»2850 PRINT "Oprettelse"«, l3=0x17}
0x1c0e…1c1b Line {l1=0x0b, l2=»2860 WHEN 2«, l3=0x0b}
0x1c1b…1c31 Line {l1=0x14, l2=»2870 PRINT "Ændring"«, l3=0x14}
0x1c31…1c3e Line {l1=0x0b, l2=»2880 WHEN 3«, l3=0x0b}
0x1c3e…1c55 Line {l1=0x15, l2=»2890 PRINT "Sletning"«, l3=0x15}
0x1c55…1c62 Line {l1=0x0b, l2=»2900 WHEN 4«, l3=0x0b}
0x1c62…1c79 Line {l1=0x15, l2=»2910 PRINT "Udskrift"«, l3=0x15}
0x1c79…1c86 Line {l1=0x0b, l2=»2920 WHEN 5«, l3=0x0b}
0x1c86…1ca5 Line {l1=0x1d, l2=»2930 PRINT "Finanskontoliste"«, l3=0x1d}
0x1ca5…1cb4 Line {l1=0x0d, l2=»2940 ENDCASE «, l3=0x0d}
0x1cb4…1cc3 Line {l1=0x0d, l2=»2950 ENDPROC «, l3=0x0d}
0x1cc3…1cdf Line {l1=0x1a, l2=»2960 K1$="P641220:SYSTEM1"«, l3=0x1a}
0x1cdf…1cf0 Line {l1=0x0f, l2=»2970 OPEN K1$,R«, l3=0x0f}
0x1cf0…1d09 Line {l1=0x17, l2=»2980 EXEC FEJL(9,1,K1$)«, l3=0x17}
0x1d09…1d21 Line {l1=0x16, l2=»2990 GET K1$,1:MFANTAL«, l3=0x16}
0x1d21…1d3a Line {l1=0x17, l2=»3000 EXEC FEJL(9,2,K1$)«, l3=0x17}
0x1d3a…1d60 Line {l1=0x24, l2=»3010 GET K1$,4:MKRMID,MFAK,MVGR,MKGR«, l3=0x24}
0x1d60…1d79 Line {l1=0x17, l2=»3020 EXEC FEJL(9,3,K1$)«, l3=0x17}
0x1d79…1d8f Line {l1=0x14, l2=»3030 GET K1$,5:MKRGR«, l3=0x14}
0x1d8f…1da8 Line {l1=0x17, l2=»3040 EXEC FEJL(9,4,K1$)«, l3=0x17}
0x1da8…1dd0 Line {l1=0x26, l2=»3050 GET K1$,8:DIVNR,DIVDNR,DIFNR,DTAL«, l3=0x26}
0x1dd0…1de9 Line {l1=0x17, l2=»3060 EXEC FEJL(9,5,K1$)«, l3=0x17}
0x1de9…1dff Line {l1=0x14, l2=»3070 GET K1$,9:KRTAL«, l3=0x14}
0x1dff…1e18 Line {l1=0x17, l2=»3080 EXEC FEJL(9,6,K1$)«, l3=0x17}
0x1e18…1e2c Line {l1=0x12, l2=»3090 GET K1$,10:N$«, l3=0x12}
0x1e2c…1e45 Line {l1=0x17, l2=»3100 EXEC FEJL(9,7,K1$)«, l3=0x17}
0x1e45…1e5a Line {l1=0x13, l2=»3110 GET K1$,11:K2$«, l3=0x13}
0x1e5a…1e73 Line {l1=0x17, l2=»3120 EXEC FEJL(9,8,K1$)«, l3=0x17}
0x1e73…1e88 Line {l1=0x13, l2=»3130 GET K1$,15:K3$«, l3=0x13}
0x1e88…1ea1 Line {l1=0x17, l2=»3140 EXEC FEJL(9,9,K1$)«, l3=0x17}
0x1ea1…1eb6 Line {l1=0x13, l2=»3150 GET K1$,36:K4$«, l3=0x13}
0x1eb6…1ed0 Line {l1=0x18, l2=»3160 EXEC FEJL(9,10,K1$)«, l3=0x18}
0x1ed0…1ee0 Line {l1=0x0e, l2=»3170 CLOSE K1$«, l3=0x0e}
0x1ee0…1efa Line {l1=0x18, l2=»3180 EXEC FEJL(9,11,K1$)«, l3=0x18}
0x1efa…1f14 Line {l1=0x18, l2=»3190 DIM FTAB(MFANTAL,2)«, l3=0x18}
0x1f14…1f25 Line {l1=0x0f, l2=»3200 K4$=N$+K4$«, l3=0x0f}
0x1f25…1f36 Line {l1=0x0f, l2=»3210 OPEN K4$,W«, l3=0x0f}
0x1f36…1f50 Line {l1=0x18, l2=»3220 EXEC FEJL(9,12,K4$)«, l3=0x18}
0x1f50…1f89 Line {l1=0x37, l2=»3230 GET K4$,2:T1(1),T1(2),T1(3),T1(4),T1(5),T1(6),DATO«, l3=0x37}
0x1f89…1fa3 Line {l1=0x18, l2=»3240 EXEC FEJL(9,13,K4$)«, l3=0x18}
0x1fa3…1ff0 Line {l1=0x4b, l2=»3250 GET K4$,14:AFIN,ADEB,AKRE,VTAB2(1),VTAB2(2),VTAB2(3),VTAB2(4),VTAB2(5)«, l3=0x4b}
0x1ff0…200a Line {l1=0x18, l2=»3260 EXEC FEJL(9,14,K4$)«, l3=0x18}
0x200a…2051 Line {l1=0x45, l2=»3270 GET K4$,17:T2(1),T2(2),T2(3),T2(4),T2(5),T2(6),T2(7),T2(8),T2(9)«, l3=0x45}
0x2051…206b Line {l1=0x18, l2=»3280 EXEC FEJL(9,15,K4$)«, l3=0x18}
0x206b…2079 Line {l1=0x0c, l2=»3290 T2(4)=1«, l3=0x0c}
0x2079…20c0 Line {l1=0x45, l2=»3300 PUT K4$,17:T2(1),T2(2),T2(3),T2(4),T2(5),T2(6),T2(7),T2(8),T2(9)«, l3=0x45}
0x20c0…20da Line {l1=0x18, l2=»3310 EXEC FEJL(9,16,K4$)«, l3=0x18}
0x20da…20ea Line {l1=0x0e, l2=»3320 CLOSE K4$«, l3=0x0e}
0x20ea…2104 Line {l1=0x18, l2=»3330 EXEC FEJL(9,17,K4$)«, l3=0x18}
0x2104…2115 Line {l1=0x0f, l2=»3340 K2$=N$+K2$«, l3=0x0f}
0x2115…2126 Line {l1=0x0f, l2=»3350 OPEN K2$,W«, l3=0x0f}
0x2126…2140 Line {l1=0x18, l2=»3360 EXEC FEJL(9,18,K2$)«, l3=0x18}
0x2140…2151 Line {l1=0x0f, l2=»3370 K3$=N$+K3$«, l3=0x0f}
0x2151…2162 Line {l1=0x0f, l2=»3380 OPEN K3$,W«, l3=0x0f}
0x2162…217c Line {l1=0x18, l2=»3390 EXEC FEJL(9,19,K3$)«, l3=0x18}
0x217c…21a0 Line {l1=0x22, l2=»3400 EXEC INDTAB(FTAB,MFANTAL,K2$)«, l3=0x22}
0x21a0…21ef Line {l1=0x4d, l2=»3410 BLANK$=" ";BLANK$=BLANK$+BLANK$+" "«, l3=0x4d}
0x21ef…2227 Line {l1=0x36, l2=»3420 TAH$="0+";TAL4$="0+";FT=DTAL*10000;FT1=KRTAL*1000«, l3=0x36}
0x2227…226f Line {l1=0x46, l2=»3430 STREG$="-----------------------------------";STREG$=STREG$+STREG$«, l3=0x46}
0x226f…227d Line {l1=0x0c, l2=»3440 REPEAT «, l3=0x0c}
0x227d…228a Line {l1=0x0b, l2=»3450 CLEAR «, l3=0x0b}
0x228a…229c Line {l1=0x10, l2=»3460 CURSOR 21,1«, l3=0x10}
0x229c…22bf Line {l1=0x21, l2=»3470 PRINT "Kontovedligeholdelse"«, l3=0x21}
0x22bf…22d0 Line {l1=0x0f, l2=»3480 CURSOR 2,3«, l3=0x0f}
0x22d0…22e7 Line {l1=0x15, l2=»3490 PRINT "0:Færdig"«, l3=0x15}
0x22e7…22f8 Line {l1=0x0f, l2=»3500 CURSOR 2,5«, l3=0x0f}
0x22f8…2313 Line {l1=0x19, l2=»3510 PRINT "1:Oprettelse"«, l3=0x19}
0x2313…2324 Line {l1=0x0f, l2=»3520 CURSOR 2,7«, l3=0x0f}
0x2324…233c Line {l1=0x16, l2=»3530 PRINT "2:Ændring"«, l3=0x16}
0x233c…234d Line {l1=0x0f, l2=»3540 CURSOR 2,9«, l3=0x0f}
0x234d…2366 Line {l1=0x17, l2=»3550 PRINT "3:Sletning"«, l3=0x17}
0x2366…2378 Line {l1=0x10, l2=»3560 CURSOR 2,11«, l3=0x10}
0x2378…2391 Line {l1=0x17, l2=»3570 PRINT "4:Udskrift"«, l3=0x17}
0x2391…23a3 Line {l1=0x10, l2=»3580 CURSOR 2,13«, l3=0x10}
0x23a3…23c4 Line {l1=0x1f, l2=»3590 PRINT "5:Finanskontoliste"«, l3=0x1f}
0x23c4…23d2 Line {l1=0x0c, l2=»3600 REPEAT «, l3=0x0c}
0x23d2…23e4 Line {l1=0x10, l2=»3610 CURSOR 4,15«, l3=0x10}
0x23e4…2406 Line {l1=0x20, l2=»3620 PRINT "Vælg type (0-5)"«, l3=0x20}
0x2406…2419 Line {l1=0x11, l2=»3630 CURSOR 14,15«, l3=0x11}
0x2419…2428 Line {l1=0x0d, l2=»3640 INPUT A$«, l3=0x0d}
0x2428…243e Line {l1=0x14, l2=»3650 EXEC NRTEST(A$)«, l3=0x14}
0x243e…2457 Line {l1=0x17, l2=»3660 UNTIL P>-1 AND P<6«, l3=0x17}
0x2457…2464 Line {l1=0x0b, l2=»3670 TYPE=P«, l3=0x0b}
0x2464…247f Line {l1=0x19, l2=»3680 IF TYPE=0 THEN EXIT «, l3=0x19}
0x247f…248d Line {l1=0x0c, l2=»3690 REPEAT «, l3=0x0c}
0x248d…24a3 Line {l1=0x14, l2=»3700 EXEC OVERSKRIFT«, l3=0x14}
0x24a3…24b7 Line {l1=0x12, l2=»3710 TEST=0;KONT=1«, l3=0x12}
0x24b7…24cd Line {l1=0x14, l2=»3720 IF TYPE<5 THEN «, l3=0x14}
0x24cd…24db Line {l1=0x0c, l2=»3730 REPEAT «, l3=0x0c}
0x24db…24e9 Line {l1=0x0c, l2=»3740 REPEAT «, l3=0x0c}
0x24e9…24fb Line {l1=0x10, l2=»3750 CURSOR 3,23«, l3=0x10}
0x24fb…2540 Line {l1=0x43, l2=»3760 PRINT "Indtast nyt kontonr (0:for færdig)";BLANK$(1:35)«, l3=0x43}
0x2540…2553 Line {l1=0x11, l2=»3770 CURSOR 22,23«, l3=0x11}
0x2553…2564 Line {l1=0x0f, l2=»3780 INPUT KTN$«, l3=0x0f}
0x2564…257c Line {l1=0x16, l2=»3790 EXEC NRTEST(KTN$)«, l3=0x16}
0x257c…2588 Line {l1=0x0a, l2=»3800 FT2=0«, l3=0x0a}
0x2588…25d0 Line {l1=0x46, l2=»3810 IF (FT+MKGR=>P AND FT<=P) OR (FT1+MKRGR=>P AND FT1<=P) THEN FT2=1«, l3=0x46}
0x25d0…2615 Line {l1=0x43, l2=»3820 UNTIL (((KTAL<>DTAL AND KTAL<>KRTAL) OR FT2=1) AND L=5) OR P=0«, l3=0x43}
0x2615…2622 Line {l1=0x0b, l2=»3830 KONT=P«, l3=0x0b}
0x2622…263d Line {l1=0x19, l2=»3840 IF KONT=0 THEN EXIT «, l3=0x19}
0x263d…266a Line {l1=0x2b, l2=»3850 EXEC FINDPOST(FTAB,MFANTAL,KONT,FPIL3)«, l3=0x2b}
0x266a…2678 Line {l1=0x0c, l2=»3860 REPEAT «, l3=0x0c}
0x2678…268b Line {l1=0x11, l2=»3870 CURSOR 44,23«, l3=0x11}
0x268b…26d7 Line {l1=0x4a, l2=»3880 IF (CEKS=0 AND TYPE<>1) OR (CEKS=1 AND TYPE=1 AND AFIN<MFANTAL) THEN «, l3=0x4a}
0x26d7…26f0 Line {l1=0x17, l2=»3890 PRINT BLANK$(1:35)«, l3=0x17}
0x26f0…26fb Line {l1=0x09, l2=»3900 P=-1«, l3=0x09}
0x26fb…2707 Line {l1=0x0a, l2=»3910 ELSE «, l3=0x0a}
0x2707…273a Line {l1=0x31, l2=»3920 IF CEKS=1 AND TYPE=1 AND AFIN=>MFANTAL THEN «, l3=0x31}
0x273a…274c Line {l1=0x10, l2=»3930 CURSOR 3,23«, l3=0x10}
0x274c…2797 Line {l1=0x49, l2=»3940 INPUT "Ikke plads til flere konti , tast RETURN ",A$«, l3=0x49}
0x2797…27a3 Line {l1=0x0a, l2=»3950 ELSE «, l3=0x0a}
0x27a3…27b9 Line {l1=0x14, l2=»3960 IF CEKS=0 THEN «, l3=0x14}
0x27b9…27ee Line {l1=0x33, l2=»3970 INPUT "Konto eksisterer ,tast RETURN ",A$«, l3=0x33}
0x27ee…27fa Line {l1=0x0a, l2=»3980 ELSE «, l3=0x0a}
0x27fa…282f Line {l1=0x33, l2=»3990 INPUT "Konto eksisterer ikke , tast RETURN",A$«, l3=0x33}
0x282f…283c Line {l1=0x0b, l2=»4000 ENDIF «, l3=0x0b}
0x283c…2849 Line {l1=0x0b, l2=»4010 ENDIF «, l3=0x0b}
0x2849…285f Line {l1=0x14, l2=»4020 EXEC NRTEST(A$)«, l3=0x14}
0x285f…286c Line {l1=0x0b, l2=»4030 ENDIF «, l3=0x0b}
0x286c…287d Line {l1=0x0f, l2=»4040 UNTIL P=-1«, l3=0x0f}
0x287d…28c6 Line {l1=0x47, l2=»4050 UNTIL (CEKS=0 AND TYPE<>1) OR (CEKS=1 AND TYPE=1 AND AFIN<MFANTAL)«, l3=0x47}
0x28c6…28e1 Line {l1=0x19, l2=»4060 IF KONT=0 THEN EXIT «, l3=0x19}
0x28e1…28f8 Line {l1=0x15, l2=»4070 IF TYPE<>1 THEN «, l3=0x15}
0x28f8…2907 Line {l1=0x0d, l2=»4080 FNR=KONT«, l3=0x0d}
0x2907…291b Line {l1=0x12, l2=»4090 EXEC HENTPOST«, l3=0x12}
0x291b…293d Line {l1=0x20, l2=»4100 IF TYPE=3 THEN EXEC DKRTEST«, l3=0x20}
0x293d…2959 Line {l1=0x1a, l2=»4110 IF TEST<>0 THEN EXIT «, l3=0x1a}
0x2959…2976 Line {l1=0x1b, l2=»4120 EXEC FINDTAST(2,2,FNR)«, l3=0x1b}
0x2976…2982 Line {l1=0x0a, l2=»4130 ELSE «, l3=0x0a}
0x2982…29ce Line {l1=0x4a, l2=»4140 FNR=KONT;FNAVN$=BLANK$(1:25);FMKODE$=" ";FMDEBET$="0+";FMKREDIT$="0+"«, l3=0x4a}
0x29ce…29fd Line {l1=0x2d, l2=»4150 FUKODE$=" ";FÅDEBET$="0+";FÅKREDIT$="0+"«, l3=0x2d}
0x29fd…2a1a Line {l1=0x1b, l2=»4160 EXEC FINDTAST(2,0,FNR)«, l3=0x1b}
0x2a1a…2a27 Line {l1=0x0b, l2=»4170 ENDIF «, l3=0x0b}
0x2a27…2a34 Line {l1=0x0b, l2=»4180 ENDIF «, l3=0x0b}
0x2a34…2a4f Line {l1=0x19, l2=»4190 IF KONT=0 THEN EXIT «, l3=0x19}
0x2a4f…2a65 Line {l1=0x14, l2=»4200 IF TEST=0 THEN «, l3=0x14}
0x2a65…2a79 Line {l1=0x12, l2=»4210 CASE TYPE OF «, l3=0x12}
0x2a79…2a85 Line {l1=0x0a, l2=»4220 STOP «, l3=0x0a}
0x2a85…2a94 Line {l1=0x0d, l2=»4230 WHEN 1,2«, l3=0x0d}
0x2a94…2aa2 Line {l1=0x0c, l2=»4240 REPEAT «, l3=0x0c}
0x2aa2…2ab0 Line {l1=0x0c, l2=»4250 REPEAT «, l3=0x0c}
0x2ab0…2ac2 Line {l1=0x10, l2=»4260 CURSOR 3,23«, l3=0x10}
0x2ac2…2b07 Line {l1=0x43, l2=»4270 PRINT "Hvilket felt ønskes ændret (Indtast feltnr 2-4, ";«, l3=0x43}
0x2b07…2b2d Line {l1=0x24, l2=»4280 PRINT "0:for færdig) "«, l3=0x24}
0x2b2d…2b40 Line {l1=0x11, l2=»4290 CURSOR 32,23«, l3=0x11}
0x2b40…2b4f Line {l1=0x0d, l2=»4300 INPUT A$«, l3=0x0d}
0x2b4f…2b65 Line {l1=0x14, l2=»4310 EXEC NRTEST(A$)«, l3=0x14}
0x2b65…2b86 Line {l1=0x1f, l2=»4320 UNTIL P=0 OR (P>1 AND P<5)«, l3=0x1f}
0x2b86…2b94 Line {l1=0x0c, l2=»4330 STYR1=P«, l3=0x0c}
0x2b94…2bb0 Line {l1=0x1a, l2=»4340 IF STYR1=0 THEN EXIT «, l3=0x1a}
0x2bb0…2bd1 Line {l1=0x1f, l2=»4350 EXEC FINDTAST(STYR1,1,FNR)«, l3=0x1f}
0x2bd1…2be5 Line {l1=0x12, l2=»4360 UNTIL STYR1=0«, l3=0x12}
0x2be5…2bfb Line {l1=0x14, l2=»4370 IF TYPE=1 THEN «, l3=0x14}
0x2bfb…2c27 Line {l1=0x2a, l2=»4380 EXEC FINDPOST(FTAB,MFANTAL,FNR,FPIL3)«, l3=0x2a}
0x2c27…2c4e Line {l1=0x25, l2=»4390 EXEC INDSÆT(FTAB,AFIN,FNR,FPIL3)«, l3=0x25}
0x2c4e…2c5b Line {l1=0x0b, l2=»4400 ENDIF «, l3=0x0b}
0x2c5b…2c6f Line {l1=0x12, l2=»4410 EXEC GEMFPOST«, l3=0x12}
0x2c6f…2c7c Line {l1=0x0b, l2=»4420 WHEN 3«, l3=0x0b}
0x2c7c…2c8a Line {l1=0x0c, l2=»4430 REPEAT «, l3=0x0c}
0x2c8a…2c9c Line {l1=0x10, l2=»4440 CURSOR 3,23«, l3=0x10}
0x2c9c…2cd6 Line {l1=0x38, l2=»4450 PRINT "Er det rigtigt at denne konto skal slettes";«, l3=0x38}
0x2cd6…2cfd Line {l1=0x25, l2=»4460 PRINT " (J/N)";BLANK$(1:23)«, l3=0x25}
0x2cfd…2d10 Line {l1=0x11, l2=»4470 CURSOR 48,23«, l3=0x11}
0x2d10…2d1f Line {l1=0x0d, l2=»4480 INPUT A$«, l3=0x0d}
0x2d1f…2d35 Line {l1=0x14, l2=»4490 EXEC NRTEST(A$)«, l3=0x14}
0x2d35…2d4e Line {l1=0x17, l2=»4500 UNTIL P=-7 OR P=-8«, l3=0x17}
0x2d4e…2d62 Line {l1=0x12, l2=»4510 IF P=-7 THEN «, l3=0x12}
0x2d62…2d7d Line {l1=0x19, l2=»4520 EXEC SLETFPOST(KONT)«, l3=0x19}
0x2d7d…2d8a Line {l1=0x0b, l2=»4530 ENDIF «, l3=0x0b}
0x2d8a…2d97 Line {l1=0x0b, l2=»4540 WHEN 4«, l3=0x0b}
0x2d97…2da4 Line {l1=0x0b, l2=»4550 WHEN 5«, l3=0x0b}
0x2da4…2db2 Line {l1=0x0c, l2=»4560 REPEAT «, l3=0x0c}
0x2db2…2dc0 Line {l1=0x0c, l2=»4570 REPEAT «, l3=0x0c}
0x2dc0…2dd2 Line {l1=0x10, l2=»4580 CURSOR 3,23«, l3=0x10}
0x2dd2…2dfd Line {l1=0x29, l2=»4590 PRINT "Fra kontonr (0: Alle)"«, l3=0x29}
0x2dfd…2e10 Line {l1=0x11, l2=»4600 CURSOR 15,23«, l3=0x11}
0x2e10…2e21 Line {l1=0x0f, l2=»4610 INPUT KTN$«, l3=0x0f}
0x2e21…2e39 Line {l1=0x16, l2=»4620 EXEC NRTEST(KTN$)«, l3=0x16}
0x2e39…2e67 Line {l1=0x2c, l2=»4630 UNTIL L=5 AND P>9999 AND TEST2=0 OR P=0«, l3=0x2c}
0x2e67…2e7a Line {l1=0x11, l2=»4640 IF P=0 THEN «, l3=0x11}
0x2e7a…2e8f Line {l1=0x13, l2=»4650 FRA=1;TIL=AFIN«, l3=0x13}
0x2e8f…2e9b Line {l1=0x0a, l2=»4660 ELSE «, l3=0x0a}
0x2e9b…2ea8 Line {l1=0x0b, l2=»4670 KONT=P«, l3=0x0b}
0x2ea8…2ed2 Line {l1=0x28, l2=»4680 EXEC FINDPOST(FTAB,MFANTAL,P,FPIL3)«, l3=0x28}
0x2ed2…2ee2 Line {l1=0x0e, l2=»4690 FRA=FPIL3«, l3=0x0e}
0x2ee2…2eef Line {l1=0x0b, l2=»4700 ENDIF «, l3=0x0b}
0x2eef…2f05 Line {l1=0x14, l2=»4710 UNTIL FRA<=AFIN«, l3=0x14}
0x2f05…2f18 Line {l1=0x11, l2=»4720 IF P>0 THEN «, l3=0x11}
0x2f18…2f26 Line {l1=0x0c, l2=»4730 REPEAT «, l3=0x0c}
0x2f26…2f38 Line {l1=0x10, l2=»4740 CURSOR 3,23«, l3=0x10}
0x2f38…2f6e Line {l1=0x34, l2=»4750 PRINT "Til kontonr "«, l3=0x34}
0x2f6e…2f81 Line {l1=0x11, l2=»4760 CURSOR 15,23«, l3=0x11}
0x2f81…2f92 Line {l1=0x0f, l2=»4770 INPUT KTN$«, l3=0x0f}
0x2f92…2faa Line {l1=0x16, l2=»4780 EXEC NRTEST(KTN$)«, l3=0x16}
0x2faa…2fdd Line {l1=0x31, l2=»4790 UNTIL L=5 AND P>9999 AND TEST2=0 AND P=>KONT«, l3=0x31}
0x2fdd…3007 Line {l1=0x28, l2=»4800 EXEC FINDPOST(FTAB,MFANTAL,P,FPIL3)«, l3=0x28}
0x3007…302a Line {l1=0x21, l2=»4810 IF CEKS=1 THEN FPIL3=FPIL3-1«, l3=0x21}
0x302a…303a Line {l1=0x0e, l2=»4820 TIL=FPIL3«, l3=0x0e}
0x303a…3047 Line {l1=0x0b, l2=»4830 ENDIF «, l3=0x0b}
0x3047…3054 Line {l1=0x0b, l2=»4840 CLEAR «, l3=0x0b}
0x3054…3062 Line {l1=0x0c, l2=»4850 REPEAT «, l3=0x0c}
0x3062…3074 Line {l1=0x10, l2=»4860 CURSOR 8,13«, l3=0x10}
0x3074…30c2 Line {l1=0x4c, l2=»4870 INPUT "Monter papir til udskrift af finanskontoliste og tast RETURN",A$«, l3=0x4c}
0x30c2…30da Line {l1=0x16, l2=»4880 UNTIL ORD(A$)=255«, l3=0x16}
0x30da…30e9 Line {l1=0x0d, l2=»4890 OUTPUT P«, l3=0x0d}
0x30e9…30f6 Line {l1=0x0b, l2=»4900 SIDE=1«, l3=0x0b}
0x30f6…3105 Line {l1=0x0d, l2=»4910 DA1=DATO«, l3=0x0d}
0x3105…311b Line {l1=0x14, l2=»4920 DAT$=" "«, l3=0x14}
0x311b…3136 Line {l1=0x19, l2=»4930 FOR J=8 TO 1 STEP -1«, l3=0x19}
0x3136…314f Line {l1=0x17, l2=»4940 IF J MOD 3=0 THEN «, l3=0x17}
0x314f…3161 Line {l1=0x10, l2=»4950 DAT$(J)="."«, l3=0x10}
0x3161…316d Line {l1=0x0a, l2=»4960 ELSE «, l3=0x0a}
0x316d…318e Line {l1=0x1f, l2=»4970 DAT$(J)=CHR(DA1 MOD 10+48)«, l3=0x1f}
0x318e…31a3 Line {l1=0x13, l2=»4980 DA1=DA1 DIV 10«, l3=0x13}
0x31a3…31b0 Line {l1=0x0b, l2=»4990 ENDIF «, l3=0x0b}
0x31b0…31bd Line {l1=0x0b, l2=»5000 NEXT J«, l3=0x0b}
0x31bd…31db Line {l1=0x1c, l2=»5010 FOR I=FRA TO TIL STEP 5«, l3=0x1c}
0x31db…322a Line {l1=0x4d, l2=»5020 PRINT TAB(10);CHR(14);"Finanskontoliste";CHR(15);TAB(36);"Dato : ";DAT$;«, l3=0x4d}
0x322a…3251 Line {l1=0x25, l2=»5030 PRINT USING " Side :####":SIDE«, l3=0x25}
0x3251…3261 Line {l1=0x0e, l2=»5040 PRINT " "«, l3=0x0e}
0x3261…3273 Line {l1=0x10, l2=»5050 SIDE=SIDE+1«, l3=0x10}
0x3273…328c Line {l1=0x17, l2=»5060 FOR FPIL3=I TO I+4«, l3=0x17}
0x328c…32ac Line {l1=0x1e, l2=»5070 IF FTAB(FPIL3,1)<>0 THEN «, l3=0x1e}
0x32ac…32c0 Line {l1=0x12, l2=»5080 EXEC HENTPOST«, l3=0x12}
0x32c0…32e6 Line {l1=0x24, l2=»5090 EXEC CALC(5,FMDEBET$,TAH$,UD1$)«, l3=0x24}
0x32e6…330d Line {l1=0x25, l2=»5100 EXEC CALC(5,FMKREDIT$,TAH$,UD2$)«, l3=0x25}
0x330d…3333 Line {l1=0x24, l2=»5110 EXEC CALC(5,FÅDEBET$,TAH$,UD3$)«, l3=0x24}
0x3333…335a Line {l1=0x25, l2=»5120 EXEC CALC(5,FÅKREDIT$,TAH$,UD4$)«, l3=0x25}
0x335a…3374 Line {l1=0x18, l2=»5130 PRINT TAB(9);STREG$«, l3=0x18}
0x3374…33b8 Line {l1=0x42, l2=»5140 PRINT TAB(9);"NAVN";TAB(39);"UDSKIFTSKODE";TAB(66);"MOMSKODE"«, l3=0x42}
0x33b8…33c8 Line {l1=0x0e, l2=»5150 PRINT " "«, l3=0x0e}
0x33c8…33ea Line {l1=0x20, l2=»5160 PRINT USING "###### ":FNR;«, l3=0x20}
0x33ea…341d Line {l1=0x31, l2=»5170 PRINT FNAVN$;TAB(45);FUKODE$;TAB(70);FMKODE$«, l3=0x31}
0x341d…342d Line {l1=0x0e, l2=»5180 PRINT " "«, l3=0x0e}
0x342d…3472 Line {l1=0x43, l2=»5190 PRINT TAB(16);"MÅNEDENS BEVÆGELSER";TAB(59);"ÅRETS BEVÆGELSER"«, l3=0x43}
0x3472…3482 Line {l1=0x0e, l2=»5200 PRINT " "«, l3=0x0e}
0x3482…34cd Line {l1=0x49, l2=»5210 PRINT TAB(9);UD1$(1:13);" ";UD2$(1:13);TAB(49);UD3$(1:13);" ";«, l3=0x49}
0x34cd…34e4 Line {l1=0x15, l2=»5220 PRINT UD4$(1:13)«, l3=0x15}
0x34e4…34f4 Line {l1=0x0e, l2=»5230 PRINT " "«, l3=0x0e}
0x34f4…3501 Line {l1=0x0b, l2=»5240 ENDIF «, l3=0x0b}
0x3501…351f Line {l1=0x1c, l2=»5250 IF FPIL3=TIL THEN EXIT «, l3=0x1c}
0x351f…3530 Line {l1=0x0f, l2=»5260 NEXT FPIL3«, l3=0x0f}
0x3530…354e Line {l1=0x1c, l2=»5270 IF FPIL3=TIL THEN EXIT «, l3=0x1c}
0x354e…355e Line {l1=0x0e, l2=»5280 PRINT " "«, l3=0x0e}
0x355e…356b Line {l1=0x0b, l2=»5290 NEXT I«, l3=0x0b}
0x356b…3586 Line {l1=0x19, l2=»5300 FOR J=FPIL3+1 TO I+4«, l3=0x19}
0x3586…359a Line {l1=0x12, l2=»5310 PRINT CHR(10)«, l3=0x12}
0x359a…35ae Line {l1=0x12, l2=»5320 PRINT CHR(10)«, l3=0x12}
0x35ae…35c2 Line {l1=0x12, l2=»5330 PRINT CHR(10)«, l3=0x12}
0x35c2…35d6 Line {l1=0x12, l2=»5340 PRINT CHR(10)«, l3=0x12}
0x35d6…35e6 Line {l1=0x0e, l2=»5350 PRINT " "«, l3=0x0e}
0x35e6…35f3 Line {l1=0x0b, l2=»5360 NEXT J«, l3=0x0b}
0x35f3…3603 Line {l1=0x0e, l2=»5370 PRINT " "«, l3=0x0e}
0x3603…3612 Line {l1=0x0d, l2=»5380 OUTPUT T«, l3=0x0d}
0x3612…361f Line {l1=0x0b, l2=»5390 KONT=0«, l3=0x0b}
0x361f…362e Line {l1=0x0d, l2=»5400 ENDCASE «, l3=0x0d}
0x362e…363a Line {l1=0x0a, l2=»5410 ELSE «, l3=0x0a}
0x363a…3648 Line {l1=0x0c, l2=»5420 REPEAT «, l3=0x0c}
0x3648…365a Line {l1=0x10, l2=»5430 CURSOR 3,23«, l3=0x10}
0x365a…36a3 Line {l1=0x47, l2=»5440 PRINT "Denne kode kan ikke slettes, da saldoen ikke er udlignet,";«, l3=0x47}
0x36a3…36c4 Line {l1=0x1f, l2=»5450 PRINT " tryk RETURN "«, l3=0x1f}
0x36c4…36d3 Line {l1=0x0d, l2=»5460 INPUT A$«, l3=0x0d}
0x36d3…36e9 Line {l1=0x14, l2=»5470 EXEC NRTEST(A$)«, l3=0x14}
0x36e9…36fa Line {l1=0x0f, l2=»5480 UNTIL P=-1«, l3=0x0f}
0x36fa…3707 Line {l1=0x0b, l2=»5490 ENDIF «, l3=0x0b}
0x3707…371a Line {l1=0x11, l2=»5500 UNTIL KONT=0«, l3=0x11}
0x371a…372d Line {l1=0x11, l2=»5510 UNTIL TYPE=0«, l3=0x11}
0x372d…3750 Line {l1=0x21, l2=»5520 EXEC UDTAB(FTAB,MFANTAL,K2$)«, l3=0x21}
0x3750…3760 Line {l1=0x0e, l2=»5530 CLOSE K2$«, l3=0x0e}
0x3760…377a Line {l1=0x18, l2=»5540 EXEC FEJL(9,30,K2$)«, l3=0x18}
0x377a…378a Line {l1=0x0e, l2=»5550 CLOSE K3$«, l3=0x0e}
0x378a…37a4 Line {l1=0x18, l2=»5560 EXEC FEJL(9,31,K3$)«, l3=0x18}
0x37a4…37b5 Line {l1=0x0f, l2=»5570 OPEN K4$,W«, l3=0x0f}
0x37b5…37cf Line {l1=0x18, l2=»5580 EXEC FEJL(9,32,K4$)«, l3=0x18}
0x37cf…381c Line {l1=0x4b, l2=»5590 PUT K4$,14:AFIN,ADEB,AKRE,VTAB2(1),VTAB2(2),VTAB2(3),VTAB2(4),VTAB2(5)«, l3=0x4b}
0x381c…3836 Line {l1=0x18, l2=»5600 EXEC FEJL(9,33,K4$)«, l3=0x18}
0x3836…3844 Line {l1=0x0c, l2=»5610 T2(4)=0«, l3=0x0c}
0x3844…388b Line {l1=0x45, l2=»5620 PUT K4$,17:T2(1),T2(2),T2(3),T2(4),T2(5),T2(6),T2(7),T2(8),T2(9)«, l3=0x45}
0x388b…38a5 Line {l1=0x18, l2=»5630 EXEC FEJL(9,34,K4$)«, l3=0x18}
0x38a5…38b5 Line {l1=0x0e, l2=»5640 CLOSE K4$«, l3=0x0e}
0x38b5…38cf Line {l1=0x18, l2=»5650 EXEC FEJL(9,35,K4$)«, l3=0x18}
0x38cf…38ed Line {l1=0x1c, l2=»5660 CHAIN "P641210:OPSTART"«, l3=0x1c}
0x38ed…3900 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ ccccccccccccccccc┆
0x3900…3920 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┆
[…0x11…]