DataMuseum.dk

top - download

    Length: 11500 (0x2cec)
    Types: SPC/1-COMAL-BIN
    Notes: Mikados_B
    Names: »ENTKSP1.B«

└─⟦385f097a1⟧ Bits:30008988 SPC/1 COMAL programmer til bogføring
    └─⟦this⟧ »ENTKSP1.B« 
└─⟦ff7f7aeee⟧ Bits:30009007 NBT	15/3-84
    └─⟦this⟧ »ENTKSP1.B« 

SPC/1 COMAL-BIN

0100 DIM K1$(17),ENAVN$(29),MBEV$(12),YBEV$(12),K14$(17),K15$(17),K16$(17)
0110 DIM BLANK$(77),TAL4$(14),TAH$(12),A$(6),K17$(17),K18$(17),K19$(17)
0120 DIM RES$(15),OP2$(12),BELØB$(12),KTNR$(6),STREG$(77),TKODE$(E)
0130 DIM OP1$(12),TK$(V),TEKST$(25),TFIL$(20,10),FUKODE$(E),N$(6)
0140 DIM UBELØB$(14),SUM$(12),DAT$(8),SALDO$(12),DA5$(8),DV$(10),LTX$(6,52)
0150 DIM T1(W),T2(W),T3(W)
0160 DIM UBEL1$(14),UBEL2$(14)
0170 PROC CALC(AR3,B1,B2,ES)
0180 OP1$=B1$;OP2$=B2$;RES$=ES$;SI=B;FLAG=B;ART=AR3-6*(AR3>5)
0190 CALL "P641210:REGN"
0200 ES$=RES$
0210 IF AR3<6 THEN IF FLAG THEN STOP
0220 ENDPROC
0230 PROC TUD(BLB,UBLB,TEGN,STØR)
0240 EXEC CALC(5,BLB$,TAH$,UBLB$)
0250 IF TEGN=B THEN UBLB$=UBLB$(E:13)
0260 IF TEGN=E AND UBLB$(LEN(UBLB$))="+" THEN UBLB$(LEN(UBLB$))=" "
0270 IF STØR=E THEN UBLB$=UBLB$(4:LEN(UBLB$)-V)
0280 ENDPROC
0290 PROC FEJL(NR1,NR2,NR3)
0300 IF STATUS(NR3$)<>B THEN
0310 PRINT NR1,NR2,NR3$,STATUS(NR3$)
0320 STOP
0330 ENDIF
0340 ENDPROC
0350 PROC SØG(MPOSTANTAL6,HTAB3,NØGLE3,UTAB3,K34)
0360 PPIL2=MPOSTANTAL6 DIV 40+E;PPIL1=B
0370 REPEAT
0380 PPIL3=(PPIL1+PPIL2) DIV G
0390 IF HTAB3(PPIL3,E)=NØGLE3 THEN EXIT
0400 IF HTAB3(PPIL3,E)>NØGLE3 THEN
0410 PPIL2=PPIL3
0420 ELSE
0430 PPIL1=PPIL3
0440 ENDIF
0450 UNTIL PPIL2<=PPIL1+E
0460 IF PPIL3>E AND HTAB3(PPIL3,E)=>NØGLE3 THEN
0470 REPEAT
0480 PPIL3=PPIL3-E
0490 UNTIL HTAB3(PPIL3,E)<NØGLE3 OR PPIL3=E
0500 ENDIF
0510 T=PPIL3
0520 IF HTAB3(PPIL3,G)<NØGLE3 OR NØGLE3<HTAB3(PPIL3,E) THEN
0530 T=PPIL3+E
0540 IF HTAB3(PPIL3+E,E)>NØGLE3 THEN T=B
0550 ENDIF
0560 IF T<E THEN EXIT
0570 K=T+MPOSTANTAL6 DIV 160
0580 EXEC UNDIND(K34$,K,UTAB3)
0590 FOR I=4 TO E STEP -E
0600 IF UTAB3(I,E)<NØGLE3 THEN EXIT
0610 NEXT I
0620 IF I=B THEN I=E
0630 IF UTAB3(I,G)<NØGLE3 THEN
0640 T=(T-E)*40+I*10+E
0650 IF UTAB3(I+E,E)>NØGLE3 THEN T=B
0660 ELSE
0670 T=(T-E)*40+(I-E)*10+E
0680 ENDIF
0690 ENDPROC
0700 PROC POSTER(K35,NØGLE4,T5,MPOSTANTAL7,PKODE,SU3)
0710 OPEN K35$,R
0720 EXEC FEJL(E,E,K35$)
0730 FOR I=E TO 10
0740 GET K35$,T5:KTNUM
0750 EXEC FEJL(E,G,K35$)
0760 IF KTNUM=NØGLE4 OR MAFSLUT=E THEN EXIT
0770 T5=T5+E
0780 NEXT I
0790 IF KTNUM=NØGLE4 THEN
0800 FOR K=T5 TO MPOSTANTAL7
0810 GET K35$,K:KONTO,DDATO,BILAG,TKODE$,BELØB$,ENTKO
0820 EXEC FEJL(E,V,K35$)
0830 IF KONTO<>NØGLE4 THEN EXIT
0840 TKS=ORD(TKODE$)-48;TKS9=TKS-10*(TKS>20)
0850 IF TKS>W AND TKS<20 THEN
0860 K=K+E
0870 GET K35$,K:KONTO,TEKST$
0880 EXEC FEJL(E,4,K35$)
0890 ELSE
0900 IF TKS>B AND TKS<30 THEN TEKST$=TFIL$(TKS9)
0910 ENDIF
0920 TEKST$=TEKST$+BLANK$
0930 IF TKS<30 THEN EXEC UDSKRIV(PKODE,SU3$,LINIE)
0940 NEXT K
0950 IF MAFSLUT=E THEN T6=K;NØGLE4=KONTO
0960 ELSE
0970 T6=T5;NØGLE4=KTNUM;T5=B
0980 ENDIF
0990 CLOSE K35$
1000 EXEC FEJL(E,5,K35$)
1010 ENDPROC
1020 PROC GLSALDO
1030 EXEC CALC(E,YBEV$,MBEV$,SUM$)
1040 EXEC CALC(4,SUM$,TAH$,TAH$)
1050 IF SI<>B THEN
1060 PRINT TAB(18);"Gl. saldo";TAB(44);
1070 PRINT USING "######":1000000;
1080 EXEC TUD(SUM$,UBELØB$,B,B)
1090 PRINT TAB(51+15*(SUM$(LEN(SUM$))="-"));UBELØB$
1100 LINIE=E
1110 ENDIF
1120 ENDPROC
1130 PROC LINIEUD(DA2,BI2,TE2,BE2,SU1,ENT1)
1140 EXEC CALC(B,SU1$,BE2$,SU1$)
1150 EXEC DATOUD(DA2,DA5$)
1160 PRINT DA5$;TAB(10);
1170 IF BI2<>-E THEN PRINT USING "#######":BI2;
1180 PRINT TAB(18);TE2$;TAB(44);
1190 PRINT USING "######":ENT1;
1200 EXEC TUD(BE2$,UBELØB$,B,B)
1210 PRINT TAB(51+15*(BE2$(LEN(BE2$))="-"));UBELØB$
1220 ENDPROC
1230 PROC INDPUT1(XPOS1,YPOS1,LN4,LN5,LTK)
1240 REPEAT
1250 CURSOR XPOS1,YPOS1
1260 PRINT LTK$;BLANK$(E:77-XPOS1-LEN(LTK$))
1270 CURSOR XPOS1+LEN(LTK$),YPOS1
1280 INPUT " ",A$
1290 EXEC NRTEST(A$)
1300 UNTIL P>LN4 AND P<LN5
1310 ENDPROC
1320 PROC LINIER(FRA1,TIL1,TÆL1)
1330 FOR TÆL1=FRA1 TO TIL1
1340 PRINT " "
1350 NEXT TÆL1
1360 ENDPROC
1370 PROC HENTPOST
1380 EPIL2=E
1390 FOR EPIL1=E TO METOT+MUNKANT
1400 CEKS=B
1410 IF (KONT MOD 100)=ENR(EPIL1) AND EU$(EPIL1)="0" THEN EXIT
1420 CEKS=E;EPIL2=EPIL2+E*(EU$(EPIL1)="0")
1430 NEXT EPIL1
1440 IF CEKS=B THEN
1450 GET K15$,ETAB(EPIL3,G)+E:ENAVN$
1460 EXEC FEJL(20,E,K15$)
1470 GET K15$,ETAB(EPIL3,G)+EPIL2+E:NR8,MBEV$,YBEV$
1480 EXEC FEJL(20,G,K15$)
1490 ELSE
1500 EPIL1=EPIL1-E
1510 ENDIF
1520 ENDPROC
1530 PROC FINDPOST1(TAB4,Q,MANT2,NØGL5,PIL6,L8)
1540 PIL1=MANT2 DIV 8;PIL6=PIL1;CEKS=E;MANT3=MANT2 DIV 4;MANT4=MANT2 DIV 32
1550 REPEAT
1560 IF NØGL5=TAB4(PIL6) OR PIL1=E THEN EXIT
1570 PIL1=(PIL1+E) DIV G;PIL6=PIL6+PIL1*(E-G*(NØGL5<TAB4(PIL6)))
1580 IF PIL6<E THEN PIL6=E
1590 IF PIL6>MANT3 THEN PIL6=MANT3
1600 UNTIL PIL1=B
1610 IF TAB4(PIL6)>NØGL5 THEN PIL6=PIL6-E*(PIL6>E)
1620 PIL6=MANT4+PIL6
1630 GET L8$,PIL6:Q(E,E),Q(E,G),Q(G,E),Q(G,G),Q(V,E),Q(V,G),Q(4,E),Q(4,G)
1640 EXEC FEJL(E,E,L8$)
1650 FOR PIL6=E TO 4
1660 IF NØGL5=Q(PIL6,E) THEN EXIT
1670 NEXT PIL6
1680 IF PIL6<>5 THEN CEKS=B
1690 ENDPROC
1700 PROC INDTAB1(Z,MANT5,L7)
1710 PIL1=MANT5 DIV 32
1720 FOR I=E TO PIL1
1730 H=(I-E)*8+E
1740 GET L7$,I:Z(H),Z(H+E),Z(H+G),Z(H+V),Z(H+4),Z(H+5),Z(H+6),Z(H+7)
1750 EXEC FEJL(G,E,L7$)
1760 NEXT I
1770 ENDPROC
1780 PROC LUDSKRIV(KT1,DA4,KSNR)
1790 EXEC DATOUD(DA4,DA5$)
1800 KSNR=KSNR+E
1810 PRINT TAB(48);KT1;TAB(56);DA5$;TAB(69);
1820 PRINT USING "##":KSNR
1830 ENDPROC
1840 PROC BUDSKRIV(MKØB,MK,SU2,DS1,DS2,LNR)
1850 IF MK<>G THEN EXEC LINIER(LNR,24,LNR)
1860 IF MK<>G THEN PRINT STREG$
1870 CASE MK OF
1880 STOP
1890 WHEN E,G
1900 PRINT TAB(32);"Transport";
1910 WHEN B
1920 PRINT TAB(57);CHR(14);"Ny saldo";CHR(15)
1930 PRINT STREG$
1940 ENDCASE
1950 EXEC TUD(SU2$,UBELØB$,B,B)
1960 PRINT TAB(51+15*(SU2$(LEN(SU2$))="-"));UBELØB$
1970 IF MK<>G THEN PRINT STREG$
1980 IF MK=B THEN
1990 PRINT TAB(15);CHR(14);"Månedens bev.";TAB(34);"Årets bev.";CHR(15)
2000 PRINT STREG$
2010 EXEC TUD(DS1$,UBEL1$,E,B)
2020 EXEC TUD(DS2$,UBEL2$,E,B)
2030 PRINT TAB(11+16*(DS1$(LEN(DS1$))="-"));UBEL1$;
2040 PRINT TAB(44+16*(DS2$(LEN(DS2$))="-"));UBEL2$
2050 PRINT STREG$
2060 PRINT " "
2070 PRINT " "
2080 ENDIF
2090 IF MK=E THEN EXEC LINIER(LNR,29,LNR)
2100 ENDPROC
2110 PROC STARTBIL
2120 REPEAT
2130 OUTPUT T
2140 CLEAR
2150 EXEC OVERSKRIFT(0)
2160 REPEAT
2170 EXEC INDPUT1(4,3,-1,100000,LTX$(1))
2180 UNTIL P=B OR (P>9999 AND P<100000)
2190 SUM$="0+";KONT=P
2200 IF KONT=B THEN EXIT
2210 CURSOR W,5
2220 EXEC FINDPOST1(ETAB1,ETAB,MEANTAL,(KONT DIV 100),EPIL3,K16$)
2230 IF CEKS=B THEN
2240 EXEC HENTPOST
2250 IF EU$(EPIL1)="0" AND CEKS=B THEN
2260 PRINT ENAVN$;" "
2270 CURSOR W,7
2280 PRINT UNAVN$(EPIL1);" "
2290 ENDIF
2300 ENDIF
2310 IF CEKS=B THEN EXEC INDPUT1(4,12,-9,-6,LTX$(2))
2320 IF CEKS=E THEN EXEC INDPUT1(9,5,-2,0,LTX$(3))
2330 UNTIL P=-7 OR KONT=B
2340 ENDPROC
2350 PROC HUDSKRIV
2360 PRINT " "
2370 PRINT TAB(65);DV$;" "
2380 PRINT TAB(12);CHR(14);ENAVN$;" ";CHR(15)
2390 PRINT " "
2400 PRINT TAB(12);CHR(14);UNAVN$(EPIL1);" ";CHR(15)
2410 PRINT " "
2420 ENDPROC
2430 PROC HSUDSKRIV
2440 IF SKRIV THEN
2450 PRINT TAB(49);"Konto";TAB(56);"Dato";TAB(68);"Side"
2460 PRINT TAB(49);STREG$(E:29)
2470 EXEC LUDSKRIV(KONT,DATO,KSIDENR)
2480 PRINT STREG$
2490 ELSE
2500 CLEAR
2510 EXEC OVERSKRIFT(1)
2520 CURSOR E,V
2530 ENDIF
2540 PRINT TAB(V);"Dato";TAB(12);"Bilag Tekst";TAB(45);"Konto";TAB(57);
2550 PRINT "Debet";TAB(72);"Kredit"
2560 PRINT STREG$
2570 ENDPROC
2580 PROC OVERSKRIFT(ART1)
2590 IF ART1=B THEN
2600 PRINT TAB(21);"Kontospørgeprogram";TAB(61);"Dato:";DAT$
2610 ELSE
2620 CURSOR E,E
2630 PRINT USING " Nr:###### ":KONT;
2640 PRINT ENAVN$;" ";UNAVN$(EPIL1);
2650 PRINT TAB(66);" Dato:";DAT$
2660 ENDIF
2670 ENDPROC
2680 PROC UDSKRIV(PKODE1,SU4,LNR1)
2690 EXEC LINIEUD(DDATO,BILAG,TEKST$,BELØB$,SU4$,ENTKO)
2700 LNR1=LNR1+E
2710 IF LNR1=17+6*(SKRIV) THEN
2720 IF PKODE1=E THEN
2730 PRINT CHR(10);CHR(10)
2740 EXEC BUDSKRIV(TAL4$,1,SU4$,TAL4$,TAL4$,LNR1)
2750 EXEC HUDSKRIV
2760 EXEC HSUDSKRIV
2770 EXEC BUDSKRIV(TAL4$,2,SU4$,TAL4$,TAL4$,LNR1)
2780 LNR1=E
2790 ELSE
2800 EXEC INDPUT1(4,23,-2,0,LTX$(4))
2810 CLEAR
2820 EXEC HSUDSKRIV
2830 LNR1=B
2840 ENDIF
2850 ENDIF
2860 ENDPROC
2870 PROC NRTEST(KTN1)
2880 P=B;TEST2=B;KTAL=B;L=LEN(KTN1$)
2890 CASE L OF
2900 FOR I=E TO L
2910 P1=INT(ORD(KTN1$(I))-48)
2920 IF P1=>B AND P1<=W THEN
2930 P=P*10+P1
2940 ELSE
2950 TEST2=E
2960 ENDIF
2970 NEXT I
2980 KTAL=P DIV 10000;KTAL9=P DIV 1000
2990 IF KTAL9=KRTAL THEN KTAL=KTAL9
3000 WHEN B
3010 P=-E
3020 WHEN E
3030 CASE KTN1$ OF
3040 P=INT(ORD(KTN1$)-48)
3050 WHEN "j","J"
3060 P=-7
3070 WHEN "n","N"
3080 P=-8
3090 ENDCASE
3100 ENDCASE
3110 ENDPROC
3120 PROC HOVIND(V1,MPOSTANTAL1,R)
3130 OPEN V1$,R
3140 EXEC FEJL(13,E,V1$)
3150 FOR I=E TO MPOSTANTAL1 DIV 160
3160 J=(I-E)*4+E;J1=J+E;J2=J+G;J3=J+V
3170 GET V1$,I:R(J,E),R(J,G),R(J1,E),R(J1,G),R(J2,E),R(J2,G),R(J3,E),R(J3,G)
3180 EXEC FEJL(13,G,V1$)
3190 NEXT I
3200 CLOSE V1$
3210 EXEC FEJL(13,V,V1$)
3220 ENDPROC
3230 PROC UNDIND(V2,U1,Z)
3240 OPEN V2$,R
3250 EXEC FEJL(14,E,V2$)
3260 GET V2$,U1:Z(E,E),Z(E,G),Z(G,E),Z(G,G),Z(V,E),Z(V,G),Z(4,E),Z(4,G)
3270 EXEC FEJL(14,G,V2$)
3280 CLOSE V2$
3290 EXEC FEJL(14,V,V2$)
3300 ENDPROC
3310 PROC DATOUD(DA1,DA2)
3320 DA3=DA1;DA2$="        "
3330 FOR J=8 TO E STEP -E
3340 IF J MOD V=B THEN
3350 DA2$(J)="."
3360 ELSE
3370 DA2$(J)=CHR(DA3 MOD 10+48);DA3=DA3 DIV 10
3380 ENDIF
3390 NEXT J
3400 ENDPROC
3410 PROC MKONTUD(K61,MPOSTANTAL8)
3420 OUTPUT P
3430 P=E;T=E;SKRIV=E
3440 EXEC POSTER(K61$,P,T,MPOSTANTAL8,SKRIV,SUM$)
3450 T=E
3460 IF P<1000000 THEN
3470 REPEAT
3480 KSIDENR=B;SUM$="0+";LINIE=B
3490 EXEC FINDPOST1(ETAB1,ETAB,MEANTAL,(P DIV 100),EPIL3,K16$)
3500 IF CEKS<>B THEN STOP
3510 KONT=P
3520 EXEC HENTPOST
3530 EXEC HUDSKRIV
3540 EXEC HSUDSKRIV
3550 EXEC GLSALDO
3560 EXEC POSTER(K61$,P,T,MPOSTANTAL8,SKRIV,SUM$)
3570 EXEC BUDSKRIV(TAL4$,0,SUM$,MBEV$,YBEV$,LINIE)
3580 T=T6
3590 UNTIL P=1000000 OR T=>MPOSTANTAL8
3600 ENDIF
3610 P=B
3620 ENDPROC
3630 K1$="P641220:SYSTEM1"
3640 REPEAT
3650 OPEN K1$,R
3660 IF STATUS(K1$)=B THEN EXIT
3670 CLEAR
3680 CURSOR 25,13
3690 INPUT "ISÆT PLADE NR.20,TAST RETURN",A$
3700 UNTIL STATUS(K1$)=B
3710 GET K1$,W:KRTAL,VTAL,MEANTAL,MUNKANT
3720 EXEC FEJL(W,6,K1$)
3730 GET K1$,10:N$
3740 EXEC FEJL(W,7,K1$)
3750 GET K1$,36:K14$
3760 EXEC FEJL(W,20,K1$)
3770 GET K1$,37:K15$
3780 EXEC FEJL(W,8,K1$)
3790 GET K1$,38:K16$
3800 EXEC FEJL(W,W,K1$)
3810 GET K1$,39:K17$
3820 EXEC FEJL(W,10,K1$)
3830 GET K1$,41:K18$
3840 EXEC FEJL(W,11,K1$)
3850 GET K1$,42:K19$
3860 EXEC FEJL(W,12,K1$)
3870 GET K1$,43:METOT,MEMID,MEPOST
3880 EXEC FEJL(W,13,K1$)
3890 CLOSE K1$
3900 EXEC FEJL(W,21,K1$)
3910 K14$=N$+K14$;K15$=N$+K15$;K16$=N$+K16$;K17$=N$+K17$;K18$=N$+K18$
3920 K19$=N$+K19$
3930 OPEN K14$,R
3940 EXEC FEJL(W,22,K14$)
3950 GET K14$,G:T1(E),T1(G),T1(V),T1(4),T1(5),T1(6),T1(7),T1(8),T1(W)
3960 EXEC FEJL(W,23,K14$)
3970 FOR I=E TO 6
3980 H=(I-E)*V+E
3990 GET K14$,I+5:TFIL$(H),TFIL$(H+E),TFIL$(H+G)
4000 EXEC FEJL(W,25,K14$)
4010 NEXT I
4020 GET K14$,13:T2(E),T2(G),T2(V),T2(4),T2(5),T2(6),T2(7),T2(8),T2(W)
4030 EXEC FEJL(W,26,K14$)
4040 GET K14$,17:T3(E),T3(G),T3(V),T3(4),T3(5),T3(6),T3(7),T3(8),T3(W)
4050 EXEC FEJL(W,27,K14$)
4051 GET K14$,20:DV$
4052 EXEC FEJL(99,99,K14$)
4060 CLOSE K14$
4070 EXEC FEJL(W,31,K14$)
4080 OPEN K15$,R
4090 EXEC FEJL(W,32,K15$)
4100 OPEN K16$,R
4110 EXEC FEJL(W,35,K16$)
4120 OPEN K17$,R
4130 EXEC FEJL(W,36,K17$)
4140 DIM ETAB1(MEANTAL DIV 4),ENR(MUNKANT+METOT),EU$(MUNKANT+METOT)
4150 DIM HETAB(MEPOST DIV 40,G),ETAB(4,G),UNAVN$(MUNKANT+METOT,25),UETAB(4,G)
4160 EXEC INDTAB1(ETAB1,MEANTAL,K16$)
4170 EXEC HOVIND(K19$,MEPOST,HETAB)
4180 FOR X=E TO MUNKANT+METOT
4190 GET K17$,X:ENR(X),EU$(X),UNAVN$(X)
4200 EXEC FEJL(W,39,K17$)
4210 NEXT X
4220 LTX$(E)="Indtast kontonr. (0:færdig):"
4230 LTX$(G)="Rigtig konto (J/N)"
4240 LTX$(V)="Konto eksisterer ikke, tast RETURN"
4250 LTX$(4)="Tast RETURN når sideskift ønskes"
4260 LTX$(5)="Ønskes udskrift på printer (J/N):"
4270 LTX$(6)="Ønskes flere udskrifter (J/N):"
4280 DATO=T1(7);MAFSLUT=T3(G)
4290 EXEC DATOUD(DATO,DAT$)
4300 STREG$="--------------------------------------";STREG$=STREG$+STREG$+"-"
4310 BLANK$="                         "
4320 IF MAFSLUT=E THEN
4330 REPEAT
4340 CLEAR
4350 CURSOR E,E
4360 PRINT TAB(15);"Månedsafslutning Entreprisekontoudtog";TAB(63);" Dato:";
4370 PRINT DAT$
4390 EXEC MKONTUD(K18$,MEPOST)
4400 CLEAR
4410 OUTPUT T
4420 EXEC INDPUT1(20,13,-9,-6,LTX$(6))
4430 UNTIL P=-8
4440 ELSE
4450 EXEC STARTBIL
4460 REPEAT
4470 IF KONT=B THEN EXIT
4480 EXEC INDPUT1(4,14,-9,-6,LTX$(5))
4490 KSIDENR,SKRIV1,LINIE=B;SUM$="0+"
4500 IF P=-7 THEN
4510 SKRIV=E
4520 OUTPUT P
4530 EXEC HUDSKRIV
4540 ELSE
4550 SKRIV=B
4560 OUTPUT T
4570 ENDIF
4580 EXEC HSUDSKRIV
4590 EXEC GLSALDO
4600 EXEC SØG(MEPOST,HETAB,KONT,UETAB,K19$)
4610 IF T>B THEN EXEC POSTER(K18$,KONT,T,MEPOST,SKRIV,SUM$)
4620 IF SKRIV=B THEN
4630 EXEC TUD(SUM$,UBELØB$,B,B)
4640 PRINT TAB(35);STREG$(E:43)
4650 PRINT TAB(35);"Ny saldo";TAB(51+15*(SUM$(LEN(SUM$))="-"));UBELØB$
4660 ELSE
4670 EXEC BUDSKRIV(TAL4$,0,SUM$,MBEV$,YBEV$,LINIE)
4680 ENDIF
4690 OUTPUT T
4700 EXEC INDPUT1(4,23,-9,-6,LTX$(6))
4710 IF P=-7 THEN
4720 EXEC STARTBIL
4730 ELSE
4740 KONT=B
4750 ENDIF
4760 UNTIL KONT=B
4770 ENDIF
4780 CLOSE
4790 OUTPUT T
4800 CLEAR
4810 IF MAFSLUT=E THEN CHAIN "P641210:MAFSLUT"
4820 CHAIN "P641210:OPSTART"