|
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: 12194 (0x2fa2)
Types: SPC/1-COMAL-BIN
Notes: Mikados_B
Names: »FINVEDL.B«
└─⟦385f097a1⟧ Bits:30008988 SPC/1 COMAL programmer til bogføring
└─⟦this⟧ »FINVEDL.B«
└─⟦ff7f7aeee⟧ Bits:30009007 NBT 15/3-84
└─⟦this⟧ »FINVEDL.B«
0090 DIM RES$(14),OP1$(12),OP2$(12) 0100 DIM FNAVN$(25),FMKODE$(E),FUKODE$(E),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$(E),TAL4$(14),TAH$(12),DV$(10) 0130 DIM KTN$(7),BLB2$(12),UBLB2$(14),UD1$(14),UD2$(14),UD3$(14) 0140 DIM UD4$(14),K4$(17),K5$(17),T1(W),T2(W),K3$(17),K1$(17),K2$(17) 0150 PROC CALC(AT,B1,B2,ES) 0160 RES$=ES$;OP1$=B1$;OP2$=B2$;SI=B;FLAG=B;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$)<>B 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<>B THEN TEST=E 0300 IF FLAG<>B THEN STOP 0310 ENDPROC 0320 PROC INDTAB(T,MANTAL,K10) 0330 J=MANTAL DIV 32+E 0340 FOR I=J TO MANTAL DIV 4+J-E 0350 H=(I-J)*4+E;J2=H+E;J3=H+G;J4=H+V 0360 GET K10$,I:T(H,E),T(H,G),T(J2,E),T(J2,G),T(J3,E),T(J3,G),T(J4,E),T(J4,G) 0370 EXEC FEJL(E,E,K10$) 0380 NEXT I 0390 ENDPROC 0400 PROC UDTAB(U,MANTAL1,K9) 0410 J=MANTAL1 DIV 32+E 0420 FOR I=E TO J-E 0430 H=(I-E)*32+E;J1=H+4;J2=H+8;J3=H+12;J4=H+16;J5=H+20;J6=H+24;J7=H+28 0440 PUT K9$,I:U(H,E),U(J1,E),U(J2,E),U(J3,E),U(J4,E),U(J5,E),U(J6,E),U(J7,E) 0450 EXEC FEJL(G,E,K9$) 0460 NEXT I 0470 FOR I=J TO MANTAL1 DIV 4+J-E 0480 H=(I-J)*4+E;J1=H+E;J2=H+G;J3=H+V 0490 PUT K9$,I:U(H,E),U(H,G),U(J1,E),U(J1,G),U(J2,E),U(J2,G),U(J3,E),U(J3,G) 0500 EXEC FEJL(G,G,K9$) 0510 NEXT I 0520 ENDPROC 0530 PROC FINDPOST(TAB1,MANT1,NØGL1,PIL3) 0540 PIL1=MANT1 DIV G;PIL3=PIL1;CEKS=E 0550 REPEAT 0560 IF NØGL1=TAB1(PIL3,E) THEN 0570 CEKS=B 0580 ELSE 0590 IF PIL1=E THEN PIL1=B 0600 PIL1=INT((PIL1+E)/G) 0610 IF NØGL1>TAB1(PIL3,E) THEN 0620 PIL3=PIL3+PIL1 0630 ELSE 0640 PIL3=PIL3-PIL1 0650 ENDIF 0660 IF PIL3<E THEN PIL3=E 0670 IF PIL3>MANT1 THEN PIL3=MANT1 0680 ENDIF 0690 UNTIL CEKS=B OR PIL1=B 0700 ENDPROC 0710 PROC INDSÆT(TAB2,ANTAL2,NØGL2,PIL4) 0720 IF CEKS=E THEN 0730 POSTNR=TAB2(ANTAL2+E,G) 0740 IF NØGL2>TAB2(PIL4,E) AND TAB2(PIL4,E)<>1000000 THEN PIL4=PIL4+E 0750 FOR I=ANTAL2+E TO PIL4+E STEP -E 0760 TAB2(I,E)=TAB2(I-E,E) 0770 TAB2(I,G)=TAB2(I-E,G) 0780 NEXT I 0790 TAB2(PIL4,E)=NØGL2 0800 TAB2(PIL4,G)=POSTNR 0810 ANTAL2=ANTAL2+E 0820 ENDIF 0830 ENDPROC 0840 PROC SLETPOST(TAB3,ANTAL3,NØGL3,PIL5) 0850 IF CEKS=B THEN 0860 POSTNR=TAB3(PIL5,G) 0870 FOR I=PIL5 TO ANTAL3-E 0880 TAB3(I,E)=TAB3(I+E,E) 0890 TAB3(I,G)=TAB3(I+E,G) 0900 NEXT I 0910 TAB3(ANTAL3,E)=1000000 0920 TAB3(ANTAL3,G)=POSTNR 0930 ANTAL3=ANTAL3-E 0940 ENDIF 0950 ENDPROC 0960 PROC SLETFPOST(NØGLE3) 0970 EXEC FINDPOST(FTAB,MFANTAL,NØGLE3,FPIL3) 0980 IF CEKS=E THEN STOP 0990 FNR=B;FNAVN$=BLANK$(E: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,G) 1060 GET K3$,S:FNR,FNAVN$ 1070 EXEC FEJL(V,G,K3$) 1080 IF FNR<>FTAB(FPIL3,E) THEN STOP 1090 GET K3$,S+E:FMKODE$,FMDEBET$,FMKREDIT$ 1100 EXEC FEJL(V,V,K3$) 1110 GET K3$,S+G:FUKODE$,FÅDEBET$,FÅKREDIT$ 1120 EXEC FEJL(V,4,K3$) 1130 ENDPROC 1140 PROC GEMFPOST 1150 S=FTAB(FPIL3,G) 1160 PUT K3$,S:FNR,FNAVN$ 1170 EXEC FEJL(4,V,K3$) 1180 PUT K3$,S+E:FMKODE$,FMDEBET$,FMKREDIT$ 1190 EXEC FEJL(4,4,K3$) 1200 PUT K3$,S+G:FUKODE$,FÅDEBET$,FÅKREDIT$ 1210 EXEC FEJL(4,4,K3$) 1220 ENDPROC 1230 PROC FINDTAST(FSTYR,FÆND,FNR2) 1240 IF FÆND<>E THEN 1250 CLEAR 1260 CURSOR 21,E 1270 PRINT "Kontooplysninger" 1280 EXEC VERSKRIFT 1290 CURSOR G,V 1300 PRINT USING "1:Kontonr : ######":FNR2 1310 ENDIF 1320 REPEAT 1330 CASE FSTYR OF 1340 STOP 1350 WHEN G 1360 IF FÆND<>E THEN 1370 CURSOR G,5 1380 PRINT "2:Kontonavn :" 1390 FSTYR=V 1400 ENDIF 1410 IF FÆND<>G THEN 1420 CURSOR V,23 1430 PRINT "Kontonavn";BLANK$(E:29);"(max 25 tegn)";BLANK$(E:25) 1440 CURSOR 13,23 1450 INPUT FNAVN$ 1460 ENDIF 1470 CURSOR 19,5 1480 PRINT BLANK$(E:25) 1490 CURSOR 19,5 1500 PRINT FNAVN$ 1510 WHEN 4 1520 IF ORD(FUKODE$)=48 THEN 1530 IF FÆND<>E THEN 1540 CURSOR G,W 1550 PRINT "4:Momskode :" 1560 ENDIF 1570 IF FÆND<>G THEN 1580 REPEAT 1590 CURSOR V,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,W 1680 PRINT " " 1690 CURSOR 19,W 1700 PRINT FMKODE$ 1710 ENDIF 1720 FSTYR=5 1730 WHEN V 1740 IF FÆND<>E THEN 1750 CURSOR G,7 1760 PRINT "3:Udskriftskode:" 1770 ENDIF 1780 IF FÆND<>G 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 V,23 1870 PRINT "Udskriftskode (0:normal,1:undergr,.2:hovedgr.,3:subto"; 1880 PRINT "tal,4:Overgr.) " 1890 CURSOR 17,23 1900 INPUT A$ 1910 UNTIL ORD(A$)>47 AND ORD(A$)<53 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=E 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=E 2100 ELSE 2110 FT2=B 2120 ENDIF 2130 IF FÆND<>E AND (ORD(FUKODE$)=48 OR FT2=E) 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$,B,B) 2240 CURSOR 31,13 2250 EXEC TUD(FMKREDIT$,TAL4$,B,B) 2260 CURSOR 48,13 2270 EXEC CALC(B,FMDEBET$,FMKREDIT$,FSALDO$) 2280 EXEC TUD(FSALDO$,TAL4$,E,B) 2290 CURSOR 4,15 2300 PRINT "Årets :" 2310 CURSOR 15,15 2320 EXEC TUD(FÅDEBET$,TAL4$,B,B) 2330 CURSOR 31,15 2340 EXEC TUD(FÅKREDIT$,TAL4$,B,B) 2350 CURSOR 48,15 2360 EXEC CALC(B,FÅDEBET$,FÅKREDIT$,FSALDO$) 2370 EXEC TUD(FSALDO$,TAL4$,E,B) 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=B THEN 2450 UBLB1$=UBLB1$(E:13) 2460 ELSE 2470 IF TEGN=E AND UBLB1$(LEN(UBLB1$))="+" THEN 2480 UBLB1$(LEN(UBLB1$))=" " 2490 ENDIF 2500 IF STØR=E THEN 2510 UBLB1$=UBLB1$(4:LEN(UBLB1$)-V) 2520 ENDIF 2530 ENDIF 2540 PRINT UBLB1$ 2550 ENDPROC 2560 PROC NRTEST(NUM1) 2570 P=B;TEST2=B;KTAL=B;L=LEN(NUM1$) 2580 CASE L OF 2590 FOR I=E TO L 2600 P1=INT(ORD(NUM1$(I))-48) 2610 IF P1=>B AND P1<=W THEN 2620 P=P*10+P1 2630 ELSE 2640 TEST2=E 2650 ENDIF 2660 NEXT I 2670 KTAL=P DIV 10000;KTAL9=P DIV 1000 2680 IF KTAL9=KRTAL THEN KTAL=KRTAL 2690 WHEN B 2700 P=-E 2710 WHEN E 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 VERSKRIFT 2820 CURSOR 45,E 2830 CASE TYPE OF 2840 WHEN E 2850 PRINT "Oprettelse" 2860 WHEN G 2870 PRINT "Ændring" 2880 WHEN V 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(W,E,K1$) 2990 GET K1$,E:MFANTAL 3000 EXEC FEJL(W,G,K1$) 3010 GET K1$,4:MKRMID,MFAK,MVGR,MKGR 3020 EXEC FEJL(W,V,K1$) 3030 GET K1$,5:MKRGR 3040 EXEC FEJL(W,4,K1$) 3050 GET K1$,8:DIVNR,DIVDNR,DIFNR,DTAL 3060 EXEC FEJL(W,5,K1$) 3070 GET K1$,W:KRTAL 3080 EXEC FEJL(W,6,K1$) 3090 GET K1$,10:N$ 3100 EXEC FEJL(W,7,K1$) 3110 GET K1$,11:K2$ 3120 EXEC FEJL(W,8,K1$) 3130 GET K1$,15:K3$ 3140 EXEC FEJL(W,W,K1$) 3150 GET K1$,36:K4$ 3160 EXEC FEJL(W,10,K1$) 3170 CLOSE K1$ 3180 EXEC FEJL(W,11,K1$) 3190 DIM FTAB(MFANTAL,G) 3200 K4$=N$+K4$ 3210 OPEN K4$,W 3220 EXEC FEJL(W,12,K4$) 3230 GET K4$,G:T1(E),T1(G),T1(V),T1(4),T1(5),T1(6),DATO 3240 EXEC FEJL(W,13,K4$) 3250 GET K4$,14:AFIN,ADEB,AKRE,VTAB2(E),VTAB2(G),VTAB2(V),VTAB2(4),VTAB2(5) 3260 EXEC FEJL(W,14,K4$) 3270 GET K4$,17:T2(E),T2(G),T2(V),T2(4),T2(5),T2(6),T2(7),T2(8),T2(W) 3280 EXEC FEJL(W,15,K4$) 3290 T2(4)=E 3300 PUT K4$,17:T2(E),T2(G),T2(V),T2(4),T2(5),T2(6),T2(7),T2(8),T2(W) 3310 EXEC FEJL(W,16,K4$) 3312 GET K4$,20:DV$ 3314 EXEC FEJL(W,22,K4$) 3320 CLOSE K4$ 3330 EXEC FEJL(W,17,K4$) 3340 K2$=N$+K2$ 3350 OPEN K2$,W 3360 EXEC FEJL(W,18,K2$) 3370 K3$=N$+K3$ 3380 OPEN K3$,W 3390 EXEC FEJL(W,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,E 3470 PRINT "Kontovedligeholdelse" 3480 CURSOR G,V 3490 PRINT "0:Færdig" 3500 CURSOR G,5 3510 PRINT "1:Oprettelse" 3520 CURSOR G,7 3530 PRINT "2:Ændring" 3540 CURSOR G,W 3550 PRINT "3:Sletning" 3560 CURSOR G,11 3570 PRINT "4:Udskrift" 3580 CURSOR G,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>-E AND P<6 3670 TYPE=P 3680 IF TYPE=B THEN EXIT 3690 REPEAT 3700 EXEC VERSKRIFT 3710 TEST=B;KONT=E 3720 IF TYPE<5 THEN 3730 REPEAT 3740 REPEAT 3750 CURSOR V,23 3760 PRINT "Indtast nyt kontonr (0:for færdig)";BLANK$(E:35) 3770 CURSOR 22,23 3780 INPUT KTN$ 3790 EXEC NRTEST(KTN$) 3800 FT2=B 3810 IF (FT+MKGR=>P AND FT<=P) OR (FT1+MKRGR=>P AND FT1<=P) THEN FT2=E 3820 UNTIL (((KTAL<>DTAL AND KTAL<>KRTAL) OR FT2=E) AND L=5) OR P=B 3830 KONT=P 3840 IF KONT=B THEN EXIT 3850 EXEC FINDPOST(FTAB,MFANTAL,KONT,FPIL3) 3860 REPEAT 3870 CURSOR 44,23 3880 IF (CEKS=B AND TYPE<>E) OR (CEKS=E AND TYPE=E AND AFIN<MFANTAL) THEN 3890 PRINT BLANK$(E:35) 3900 P=-E 3910 ELSE 3920 IF CEKS=E AND TYPE=E AND AFIN=>MFANTAL THEN 3930 CURSOR V,23 3940 INPUT "Ikke plads til flere konti , tast RETURN ",A$ 3950 ELSE 3960 IF CEKS=B 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=-E 4050 UNTIL (CEKS=B AND TYPE<>E) OR (CEKS=E AND TYPE=E AND AFIN<MFANTAL) 4060 IF KONT=B THEN EXIT 4070 IF TYPE<>E THEN 4080 FNR=KONT;TEST=B 4090 EXEC HENTPOST 4100 IF TYPE=V THEN EXEC DKRTEST 4110 EXEC FINDTAST(2,2,FNR) 4120 ELSE 4130 FNR=KONT;FNAVN$=BLANK$(E:25);FMKODE$=" ";FMDEBET$="0+";FMKREDIT$="0+" 4140 FUKODE$=" ";FÅDEBET$="0+";FÅKREDIT$="0+" 4150 EXEC FINDTAST(2,0,FNR) 4160 ENDIF 4170 ENDIF 4180 IF KONT=B THEN EXIT 4190 IF TEST=B THEN 4200 CASE TYPE OF 4210 STOP 4220 WHEN E,G 4230 REPEAT 4240 REPEAT 4250 CURSOR V,23 4260 PRINT "Hvilket felt ønskes ændret (Indtast feltnr 2-4, "; 4270 PRINT "0:for færdig) " 4280 CURSOR 32,23 4290 INPUT A$ 4300 EXEC NRTEST(A$) 4310 UNTIL P=B OR (P>E AND P<5) 4320 STYR1=P 4330 IF STYR1=B THEN EXIT 4340 EXEC FINDTAST(STYR1,1,FNR) 4350 UNTIL STYR1=B 4360 IF TYPE=E THEN 4370 EXEC FINDPOST(FTAB,MFANTAL,FNR,FPIL3) 4380 EXEC INDSÆT(FTAB,AFIN,FNR,FPIL3) 4390 ENDIF 4400 EXEC GEMFPOST 4410 WHEN V 4420 REPEAT 4430 CURSOR V,23 4440 PRINT "Er det rigtigt at denne konto skal slettes"; 4450 PRINT " (J/N)";BLANK$(E:23) 4460 CURSOR 48,23 4470 INPUT A$ 4480 EXEC NRTEST(A$) 4490 UNTIL P=-7 OR P=-8 4500 IF P=-7 THEN 4510 EXEC SLETFPOST(KONT) 4520 ENDIF 4530 WHEN 4 4540 WHEN 5 4550 REPEAT 4560 REPEAT 4570 CURSOR V,23 4580 PRINT "Fra kontonr (0: Alle)" 4590 CURSOR 15,23 4600 INPUT KTN$ 4610 EXEC NRTEST(KTN$) 4620 UNTIL L=5 AND P>9999 AND TEST2=B OR P=B 4630 IF P=B THEN 4640 FRA=E;TIL=AFIN 4650 ELSE 4660 KONT=P 4670 EXEC FINDPOST(FTAB,MFANTAL,P,FPIL3) 4680 FRA=FPIL3 4690 ENDIF 4700 UNTIL FRA<=AFIN 4710 IF P>B THEN 4720 REPEAT 4730 CURSOR V,23 4740 PRINT "Til kontonr " 4750 CURSOR 15,23 4760 INPUT KTN$ 4770 EXEC NRTEST(KTN$) 4780 UNTIL L=5 AND P>9999 AND TEST2=B AND P=>KONT 4790 EXEC FINDPOST(FTAB,MFANTAL,P,FPIL3) 4800 IF CEKS=E THEN FPIL3=FPIL3-E 4810 TIL=FPIL3 4820 ENDIF 4830 CLEAR 4840 REPEAT 4850 CURSOR 8,13 4860 INPUT "Monter papir til udskrift af finanskontoliste og tast RETURN",A$ 4870 UNTIL ORD(A$)=255 4880 OUTPUT P 4890 SIDE=E 4900 DA1=DATO 4910 DAT$=" " 4920 FOR J=8 TO E STEP -E 4930 IF J MOD V=B THEN 4940 DAT$(J)="." 4950 ELSE 4960 DAT$(J)=CHR(DA1 MOD 10+48) 4970 DA1=DA1 DIV 10 4980 ENDIF 4990 NEXT J 5000 FOR I=FRA TO TIL STEP 5 5005 PRINT TAB(67);DV$;" " 5010 PRINT TAB(10);CHR(14);"Finanskontoliste";CHR(15);TAB(36);"Dato : ";DAT$; 5020 PRINT USING " Side :####":SIDE 5030 PRINT " " 5040 SIDE=SIDE+E 5050 FOR FPIL3=I TO I+4 5060 IF FTAB(FPIL3,E)<>B THEN 5070 EXEC HENTPOST 5080 EXEC CALC(5,FMDEBET$,TAH$,UD1$) 5090 EXEC CALC(5,FMKREDIT$,TAH$,UD2$) 5100 EXEC CALC(5,FÅDEBET$,TAH$,UD3$) 5110 EXEC CALC(5,FÅKREDIT$,TAH$,UD4$) 5120 PRINT TAB(W);STREG$ 5130 PRINT TAB(W);"NAVN";TAB(39);"UDSKRIFTSKODE";TAB(66);"MOMSKODE" 5140 PRINT " " 5150 PRINT USING "###### ":FNR; 5160 PRINT FNAVN$;TAB(45);FUKODE$;TAB(70);FMKODE$ 5170 PRINT " " 5180 PRINT TAB(16);"MÅNEDENS BEVÆGELSER";TAB(59);"ÅRETS BEVÆGELSER" 5190 PRINT " " 5200 PRINT TAB(W);UD1$(E:13);" ";UD2$(E:13);TAB(49);UD3$(E:13);" "; 5210 PRINT UD4$(E:13) 5220 PRINT " " 5230 ENDIF 5240 IF FPIL3=TIL THEN EXIT 5250 NEXT FPIL3 5260 IF FPIL3=TIL AND FPIL3<I+5 THEN EXIT 5280 NEXT I 5290 FOR J=FPIL3+E TO I+4 5300 PRINT CHR(10);CHR(10) 5310 PRINT CHR(10);CHR(10) 5320 PRINT CHR(10);CHR(10) 5350 NEXT J 5370 OUTPUT T 5380 KONT=B 5390 ENDCASE 5400 ELSE 5410 REPEAT 5420 CURSOR V,23 5430 PRINT "Denne konto kan ikke slettes, da saldoen ikke er udlignet,"; 5440 PRINT " tryk RETURN " 5450 INPUT A$ 5460 EXEC NRTEST(A$) 5470 UNTIL P=-E 5480 ENDIF 5490 UNTIL KONT=B 5500 UNTIL TYPE=B 5510 EXEC UDTAB(FTAB,MFANTAL,K2$) 5520 CLOSE K2$ 5530 EXEC FEJL(W,30,K2$) 5540 CLOSE K3$ 5550 EXEC FEJL(W,31,K3$) 5560 OPEN K4$,W 5570 EXEC FEJL(W,32,K4$) 5580 PUT K4$,14:AFIN,ADEB,AKRE,VTAB2(E),VTAB2(G),VTAB2(V),VTAB2(4),VTAB2(5) 5590 EXEC FEJL(W,33,K4$) 5600 T2(4)=B 5610 PUT K4$,17:T2(E),T2(G),T2(V),T2(4),T2(5),T2(6),T2(7),T2(8),T2(W) 5620 EXEC FEJL(W,34,K4$) 5630 CLOSE K4$ 5640 EXEC FEJL(W,35,K4$) 5650 CHAIN "P641210:OPSTART"