|
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: 17696 (0x4520)
Types: TextFile
Notes: Mikados_K
Names: »FAKUD.K«
└─⟦ec8c1e0b0⟧ Bits:30007442 8" floppy ( MIKPROG vol. 1-3, MIKREL vol. 1-3, PCSE 4.7.80 vol 1-3, GL.SYS )
└─⟦this⟧ »FAKUD.K«
0100 DIM K1$(17),N$(6),K2$(17),K3$(17),DEBNAVN$(25),DSALDO1$(12),DEBKGR$(1) 0110 DIM DSALDO2$(12),DSALDO3$(12),DSALDO4$(12),DEBLK$(1),DEBGADE$(25) 0120 DIM DEBTLF$(9),DEBBY$(20),SALDO$(12),KR$(25),T$(13),D$(8) 0130 DIM ÅRKØB$(12),MDNKØB$(12),TEK$(13),GBELØB$(12),MOMSH$(12),T1(9),T2(9) 0140 DIM MOMS$(12),FTOTAL$(12),KOD1$(1),KOD$(1),TAL1$(12),TAL4$(14) 0150 DIM VARTEKST$(25),VARPRIS$(12),BELØB$(12),TOTAL$(12),T3(9),K4$(17) 0160 DIM SVAR1$(1),FAKKRE$(1),LEVTEKST$(52),ANTAL$(12),BLANK$(25),K5$(17) 0170 DIM RES$(14),OP1$(12),OP2$(12),FORS$(12),PRO$(12),VARTH$(25),K6$(17) 0180 DIM VJOURARR(50),VBJOUARR$(50,12),TE$(30),TEKO$(1),F$(1),K7$(17),K8$(17) 0190 DIM K9$(17),LAND$(9,12),BLB2$(12),TAH$(12) 0200 BLANK$=" ";TAH$="0+" 0210 TAL1$="0+";TAL4$="0+";TOTAL$="0+" 0220 PROC NRTEST(NUM1) 0230 P=0;TEST2=0;KTAL=0;L=LEN(NUM1$) 0240 IF L>6 THEN EXIT 0250 CASE L OF 0260 FOR J=1 TO L 0270 P1=INT(ORD(NUM1$(J))-48) 0280 IF P1<0 OR P1>9 THEN 0290 TEST2=1 0300 ELSE 0310 P=P*10+P1 0320 ENDIF 0330 NEXT J 0340 KTAL=P DIV 10000 0350 WHEN 0 0360 P=-1 0370 WHEN 1 0380 CASE NUM1$ OF 0390 P=INT(ORD(NUM1$)-48) 0400 WHEN "d","D" 0410 P=-2 0420 WHEN "a","A" 0430 P=-3 0440 WHEN "m","M" 0450 P=-4 0460 WHEN "j","J" 0470 P=-7 0480 WHEN "n","N" 0490 P=-8 0500 ENDCASE 0510 ENDCASE 0520 ENDPROC 0530 PROC FEJL(NR1,NR2,NR3) 0540 IF STATUS(NR3$)<>0 THEN 0550 PRINT STATUS(NR3$),NR1,NR2,NR3$ 0560 STOP 0570 ENDIF 0580 ENDPROC 0590 PROC HENTVPOST 0600 S=VTAB(VPIL3,2) 0610 GET K5$,S:VARENR,VARTEKST$,VARPRIS$,VARKONT 0620 EXEC FEJL(2,1,K5$) 0630 ENDPROC 0640 PROC CALC(AR3,B1,B2,ES) 0650 OP1$=B1$;OP2$=B2$;RES$=ES$;SI=0;FLAG=0;ART=AR3-6*(AR3>5) 0660 CALL "P641210:REGN" 0670 ES$=RES$ 0680 IF AR3<6 THEN 0690 IF FLAG THEN STOP 0700 ENDIF 0710 ENDPROC 0720 PROC HENTDPOST 0730 S=DTAB(DPIL3,2) 0740 GET K4$,S:DEBNR,DEBNAVN$,DSALDO1$,DEBKGR$ 0750 EXEC FEJL(3,1,K4$) 0760 GET K4$,S+1:DSALDO2$,DSALDO3$,DSALDO4$,DPOSTNR,DEBLK$ 0770 EXEC FEJL(3,2,K4$) 0780 GET K4$,S+2:DEBGADE$,DEBTLF$,HPOST,HKUNDE 0790 EXEC FEJL(3,3,K4$) 0800 GET K4$,S+3:DEBBY$,ÅRKØB$,MDNKØB$ 0810 EXEC FEJL(3,4,K4$) 0820 ENDPROC 0830 PROC TUD(BLB1,UBLB1,TEGN,STØR) 0840 BLB2$=BLB1$ 0850 EXEC CALC(5,BLB2$,TAH$,UBLB1$) 0860 IF TEGN=0 THEN UBLB1$=UBLB1$(1:13) 0870 IF TEGN=1 AND UBLB1$(LEN(UBLB1$))="+" THEN UBLB1$(LEN(UBLB1$))=" " 0880 IF STØR=1 THEN UBLB1$=UBLB1$(4:LEN(UBLB1$)-3) 0890 PRINT UBLB1$; 0900 ENDPROC 0910 PROC GEMDPOST 0920 S=DTAB(DPIL3,2) 0930 PUT K4$,S:DEBNR,DEBNAVN$,DSALDO1$,DEBKGR$ 0940 EXEC FEJL(4,1,K4$) 0950 PUT K4$,S+1:DSALDO2$,DSALDO3$,DSALDO4$,DPOSTNR,DEBLK$ 0960 EXEC FEJL(4,1,K4$) 0970 PUT K4$,S+2:DEBGADE$,DEBTLF$,HPOST,HKUNDE 0980 EXEC FEJL(4,2,K4$) 0990 PUT K4$,S+3:DEBBY$,ÅRKØB$,MDNKØB$ 1000 EXEC FEJL(4,3,K4$) 1010 ENDPROC 1020 PROC INDTAB1(Z,MANT5,L7) 1030 PIL1=MANT5 DIV 32 1040 FOR I=1 TO PIL1 1050 H=(I-1)*8+1 1060 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) 1070 EXEC FEJL(2,1,L7$) 1080 NEXT I 1090 ENDPROC 1100 PROC SYSGEM 1110 T1(1)=FAKTNR;T1(2)=KREDNR;T2(4)=APOSTER;T2(5)=AKRED;T2(6)=AFAKT 1120 T2(7)=AVKONTI;T2(8)=FJPOST 1130 OPEN K9$,W 1140 EXEC FEJL(8,1,K9$) 1150 PUT K9$,2:T1(1),T1(2),T1(3),T1(4),T1(5),T1(6),T1(7),T1(8),T1(9) 1160 EXEC FEJL(8,2,K9$) 1170 PUT K9$,12:T2(1),T2(2),T2(3),T2(4),T2(5),T2(6),T2(7),T2(8),T2(9) 1180 EXEC FEJL(8,3,K9$) 1190 CLOSE K9$ 1200 EXEC FEJL(8,4,K9$) 1210 ENDPROC 1220 PROC FINDPOST1(TAB4,Q,MANT2,NØGL5,PIL6,L8) 1230 PIL1=MANT2 DIV 8;PIL6=PIL1;CEKS=1;MANT3=MANT2 DIV 4;MANT4=MANT2 DIV 32 1240 REPEAT 1250 IF NØGL5=TAB4(PIL6) OR PIL1=1 THEN EXIT 1260 PIL1=(PIL1+1) DIV 2;PIL6=PIL6+PIL1*(1-2*(NØGL5<TAB4(PIL6))) 1270 IF PIL6<1 THEN PIL6=1 1280 IF PIL6>MANT3 THEN PIL6=MANT3 1290 UNTIL PIL1=0 1300 IF TAB4(PIL6)>NØGL5 THEN PIL6=PIL6-1*(PIL6>1) 1310 PIL6=MANT4+PIL6 1320 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) 1330 EXEC FEJL(1,1,L8$) 1340 FOR PIL6=1 TO 4 1350 IF NØGL5=Q(PIL6,1) THEN EXIT 1360 NEXT PIL6 1370 IF PIL6<>5 THEN CEKS=0 1380 ENDPROC 1390 PROC TABHENT 1400 OPEN K8$,R 1410 EXEC FEJL(2,1,K8$) 1420 FOR I=1 TO AVKONTI 1430 GET K8$,I:VJOURARR(I),VBJOUARR$(I) 1440 EXEC FEJL(2,2,K8$) 1450 NEXT I 1460 CLOSE K8$ 1470 EXEC FEJL(2,3,K8$) 1480 ENDPROC 1490 PROC TESTPRIN 1500 KR$="XXXXXXXXXXXXXXXXXXXXXXXXX";T$="XX.XXX.XXX,XX";D$="XX.XX.XX" 1510 OUTPUT P 1520 EXEC TOMLINIE(7) 1530 PRINT TAB(67);KR$(1:6) 1540 PRINT TAB(9);KR$ 1550 PRINT TAB(9);KR$;TAB(67);KR$(1:6) 1560 PRINT TAB(9);KR$ 1570 PRINT TAB(9);KR$;TAB(65);D$ 1580 PRINT TAB(9);KR$ 1590 PRINT TAB(9);KR$;TAB(67);KR$(1:6) 1600 PRINT " " 1610 PRINT TAB(65);D$ 1620 PRINT " " 1630 PRINT TAB(19);KR$;KR$;"XX" 1640 PRINT CHR(10),CHR(10),CHR(10) 1650 PRINT TAB(8);KR$(1:6);TAB(16);KR$(1:5);TAB(24);KR$;TAB(51);T$;TAB(66);T$ 1660 EXEC TOMLINIE(19) 1670 PRINT TAB(8);KR$(1:6);TAB(16);KR$(1:5);TAB(24);KR$;TAB(51);T$;TAB(66);T$ 1680 EXEC TOMLINIE(3) 1690 PRINT TAB(16);T$(4:10);TAB(29);T$;TAB(44);T$(9:5);TAB(51);T$;TAB(66);T$ 1700 EXEC TOMLINIE(3) 1710 OUTPUT T 1720 ENDPROC 1730 K1$="P641220:SYSTEM1" 1740 OPEN K1$,R 1750 EXEC FEJL(9,1,K1$) 1760 GET K1$,1:MFANTAL,MDANTAL,MKANTAL,MVANTAL 1770 EXEC FEJL(9,2,K1$) 1780 GET K1$,4:KMID,MFAK,MVGR,MKGR 1790 EXEC FEJL(9,3,K1$) 1800 GET K1$,6:KASSENR,GIRONR,BANKNR,UDMOMSNR 1810 EXEC FEJL(9,4,K1$) 1820 GET K1$,7:INDMOMSNR,RENTENR,FRAGTNR,RABATNR 1830 EXEC FEJL(9,5,K1$) 1840 GET K1$,8:DIVNR,DIVDNR 1850 EXEC FEJL(9,6,K1$) 1860 GET K1$,10:N$ 1870 EXEC FEJL(9,7,K1$) 1880 GET K1$,12:K2$ 1890 EXEC FEJL(9,8,K1$) 1900 GET K1$,14:K3$ 1910 EXEC FEJL(9,9,K1$) 1920 GET K1$,16:K4$ 1930 EXEC FEJL(9,10,K1$) 1940 GET K1$,18:K5$ 1950 EXEC FEJL(9,11,K1$) 1960 GET K1$,29:K6$ 1970 EXEC FEJL(9,12,K1$) 1980 GET K1$,30:K7$ 1990 EXEC FEJL(9,13,K1$) 2000 GET K1$,31:K8$ 2010 EXEC FEJL(9,14,K1$) 2020 GET K1$,36:K9$ 2030 EXEC FEJL(9,15,K1$) 2040 CLOSE K1$ 2050 EXEC FEJL(9,16,K1$) 2060 DIM VTAB1(MVANTAL DIV 4),DTAB1(MDANTAL DIV 4),VTAB(4,2),DTAB(4,2) 2070 K2$=N$+K2$;K3$=N$+K3$;K4$=N$+K4$ 2080 K5$=N$+K5$;K6$=N$+K6$;K7$=N$+K7$;K8$=N$+K8$;K9$=N$+K9$ 2090 OPEN K9$,R 2100 EXEC FEJL(9,17,K9$) 2110 GET K9$,2:T1(1),T1(2),T1(3),T1(4),T1(5),T1(6),T1(7),T1(8),T1(9) 2120 EXEC FEJL(9,18,K9$) 2130 FOR I=1 TO 3 2140 H=(I-1)*3+1 2150 GET K9$,I+2:LAND$(H),LAND$(H+1),LAND$(H+2) 2160 EXEC FEJL(9,19,K9$) 2170 NEXT I 2180 GET K9$,12:T2(1),T2(2),T2(3),T2(4),T2(5),T2(6),T2(7),T2(8),T2(9) 2190 EXEC FEJL(9,20,K9$) 2200 GET K9$,13:T3(1),T3(2),T3(3),T3(4),T3(5),T3(6),T3(7),T3(8),T3(9) 2210 EXEC FEJL(9,21,K9$) 2220 CLOSE K9$ 2230 EXEC FEJL(9,22,K9$) 2240 FAKTNR=T1(1);KREDNR=T1(2);DATO=T1(7);APOSTER=T2(4);AKRED=T2(5) 2250 AFAKT=T2(6);AVKONTI=T2(7);FJPOST=T2(8) 2260 OPEN K2$,R 2270 EXEC FEJL(9,23,K2$) 2280 OPEN K3$,R 2290 EXEC FEJL(9,24,K3$) 2300 OPEN K4$,W 2310 EXEC FEJL(9,25,K4$) 2320 OPEN K5$,R 2330 EXEC FEJL(9,26,K5$) 2340 EXEC INDTAB1(DTAB1,MDANTAL,K2$) 2350 EXEC INDTAB1(VTAB1,MVANTAL,K3$) 2360 EXEC TABHENT 2370 CLEAR 2380 CURSOR 20,9 2390 PRINT "Udskrivning af fakturaer." 2400 CURSOR 20,11 2410 PRINT "0: Færdig." 2420 CURSOR 20,13 2430 PRINT "1: Udskrift af sidst indtastede faktura." 2440 CURSOR 20,15 2450 PRINT "2: Udskrift af alle indtastede fakturaer." 2460 REPEAT 2470 CURSOR 20,17 2480 INPUT "Vælg 0-2:",SVAR1$ 2490 UNTIL SVAR1$="1" OR SVAR1$="2" OR SVAR1$="0" 2500 IF SVAR1$<>"0" THEN 2510 IF SVAR1$="2" THEN 2520 LYNFAK=0;STPOST=1 2530 ELSE 2540 LYNFAK=1 2550 OPEN K6$,R 2560 EXEC FEJL(3,1,K6$) 2570 FOR I=APOSTER-3 TO 1 STEP -1 2580 GET K6$,I:ORDRENR,FDATO,ANPOST 2590 EXEC FEJL(3,2,K6$) 2600 IF ANPOST=APOSTER+2-I THEN EXIT 2610 NEXT I 2620 STPOST=I-1 2630 CLOSE K6$ 2640 EXEC FEJL(3,3,K6$) 2650 ENDIF 2660 GEN=0 2670 REPEAT 2680 CLEAR 2690 CURSOR 20,9 2700 PRINT "Udskrivning af fakturaer." 2710 CURSOR 20,11 2720 PRINT "Monter papir til udskrift af testprint." 2730 CURSOR 20,13 2740 INPUT "Tast RETURN.",SVAR1$ 2750 EXEC TESTPRIN 2760 REPEAT 2770 REPEAT 2780 CURSOR 20,13 2790 INPUT "Ønskes flere testprint (J/N):",SVAR1$ 2800 UNTIL SVAR1$="J" OR SVAR1$="N" OR SVAR1$="j" OR SVAR1$="n" 2810 IF SVAR1$="J" OR SVAR1$="j" THEN EXEC TESTPRIN 2820 UNTIL SVAR1$="N" OR SVAR1$="n" 2830 TE$="Der udskrives fakturaer." 2840 EXEC BIL 2850 OUTPUT P 2860 IF APOSTER=0 THEN EXIT 2870 OPEN K6$,R 2880 EXEC FEJL(3,4,K6$) 2890 I=STPOST 2900 REPEAT 2910 TOTAL$="0+" 2920 GET K6$,I:KUNDENR,ORDRED,FAKKRE$,DIVD 2930 EXEC FEJL(3,5,K6$) 2940 I=I+1 2950 GET K6$,I:ORDRENR,FDATO,ANPOST,KOD$ 2960 EXEC FEJL(3,6,K6$) 2970 I=I+1 2980 EXEC FINDPOST1(DTAB1,DTAB,MDANTAL,KUNDENR,DPIL3,K2$) 2990 IF CEKS=0 THEN EXEC HENTDPOST 3000 IF DIVD=1 THEN 3010 GET K6$,I:DEBNAVN$(1:13) 3020 EXEC FEJL(3,7,K6$) 3030 GET K6$,I+1:DEBNAVN$(14:12) 3040 EXEC FEJL(3,8,K6$) 3050 GET K6$,I+2:DEBGADE$(1:13) 3060 EXEC FEJL(3,9,K6$) 3070 GET K6$,I+3:DEBGADE$(14:12) 3080 EXEC FEJL(3,10,K6$) 3090 GET K6$,I+4:DPOSTNR,DEBBY$(1:9) 3100 EXEC FEJL(3,11,K6$) 3110 GET K6$,I+5:DEBBY$(10:11) 3120 EXEC FEJL(3,12,K6$) 3130 I=I+6;ANPOST=ANPOST-6 3140 ENDIF 3150 SIDE=1;LINIE=1;POSTER=0 3160 REPEAT 3170 EXEC TOMLINIE(6) 3180 IF FAKKRE$="F" THEN 3190 PRINT " " 3200 ELSE 3210 PRINT TAB(49);"Kreditnota" 3220 ENDIF 3230 PRINT TAB(66); 3240 IF FAKKRE$="F" THEN 3250 PRINT USING "#######":FAKTNR 3260 FAKTNR=FAKTNR+1;AFAKT=AFAKT-1 3270 ELSE 3280 PRINT USING "#######":KREDNR 3290 KREDNR=KREDNR+1;AKRED=AKRED-1 3300 ENDIF 3310 PRINT TAB(9);DEBNAVN$ 3320 PRINT TAB(9);DEBGADE$;TAB(66); 3330 PRINT USING "#######":KUNDENR 3340 PRINT TAB(6); 3350 PRINT USING "#######":DPOSTNR; 3360 PRINT TAB(14);DEBBY$ 3370 EXEC DATOUD(ORDRED) 3380 PRINT " " 3390 PRINT TAB(66); 3400 PRINT USING "#######":ORDRENR 3410 PRINT "" 3420 EXEC DATOUD(FDATO) 3430 PRINT " " 3440 IF KOD$>"H" AND SIDE=1 THEN 3450 KOD$=CHR(ORD(KOD$)-11) 3460 PRINT " " 3470 ELSE 3480 LEVTEKST$=BLANK$+BLANK$+" " 3490 FOR J=I TO I+3 3500 GET K6$,J:LEVTEKST$((J-I)*13+1:13) 3510 EXEC FEJL(3,13,K6$) 3520 NEXT J 3530 ANPOST=ANPOST-4;I=I+4 3540 PRINT TAB(19);LEVTEKST$ 3550 ENDIF 3560 EXEC TOMLINIE(2) 3570 IF SIDE=2 THEN 3580 PRINT TAB(24);"Subtotal";TAB(66); 3590 EXEC TUD(TOTAL$,TAL4$,1,0) 3600 LINIE=2 3610 ENDIF 3620 REPEAT 3630 CASE KOD$ OF 3640 STOP 3650 WHEN "A" 3660 EXEC VPOST 3670 EXEC FINDPOST1(VTAB1,VTAB,MVANTAL,VARENR,VPIL3,K3$) 3680 IF CEKS=1 THEN STOP 3690 EXEC HENTVPOST 3700 EXEC VUD 3710 WHEN "B" 3720 EXEC BPOST(1) 3730 PRO$=" 0,"+VARPRIS$(7:2)+VARPRIS$(10:2)+"-" 3740 IF VARPRIS$(7)=" " THEN PRO$(8)="0" 3750 EXEC CALC(2,PRO$,GBELØB$,BELØB$) 3760 EXEC CALC(0,TOTAL$,BELØB$,TOTAL$) 3770 PRINT TAB(24);VARPRIS$(1:11);" %";TAB(66); 3780 EXEC TUD(BELØB$,TAL4$,1,0) 3790 VARKONT=RABATNR 3800 IF GEN=0 THEN EXEC VJOURNAL 3810 WHEN "C" 3820 EXEC BPOST(0) 3830 PRINT TAB(24);"Subtotal";TAB(66); 3840 EXEC TUD(BELØB$,TAL4$,1,0) 3850 GBELØB$=BELØB$ 3860 WHEN "D" 3870 EXEC TPOST 3880 PRINT TAB(24);VARTEKST$ 3890 WHEN "E" 3900 EXEC TPOST 3910 EXEC BPOST(0) 3920 PRINT TAB(24);VARTEKST$;TAB(66); 3930 EXEC TUD(BELØB$,TAL4$,1,0) 3940 EXEC CALC(0,TOTAL$,BELØB$,TOTAL$) 3950 GBELØB$=BELØB$;VARKONT=DIVNR 3960 IF GEN=0 THEN EXEC VJOURNAL 3970 WHEN "F" 3980 EXEC VPOST 3990 EXEC FINDPOST1(VTAB1,VTAB,MVANTAL,VARENR,VPIL3,K3$) 4000 IF CEKS=1 THEN STOP 4010 EXEC HENTVPOST 4020 EXEC BPOST(1) 4030 EXEC VUD 4040 WHEN "G" 4050 EXEC TPOST 4060 VARTH$=VARTEKST$ 4070 EXEC VPOST 4080 EXEC FINDPOST1(VTAB1,VTAB,MVANTAL,VARENR,VPIL3,K3$) 4090 IF CEKS=1 THEN STOP 4100 EXEC HENTVPOST 4110 VARTEKST$=VARTH$ 4120 EXEC VUD 4130 WHEN "H" 4140 EXEC TPOST 4150 VARTH$=VARTEKST$ 4160 EXEC VPOST 4170 EXEC FINDPOST1(VTAB1,VTAB,MVANTAL,VARENR,VPIL3,K3$) 4180 IF CEKS=1 THEN STOP 4190 EXEC HENTVPOST 4200 VARTEKST$=VARTH$ 4210 EXEC BPOST(1) 4220 EXEC VUD 4230 ENDCASE 4240 LINIE=LINIE+1 4250 UNTIL POSTER=>ANPOST-5 OR LINIE=22 4260 IF LINIE=22 AND POSTER<ANPOST-5 THEN 4270 SIDE=2;ANPOST=ANPOST-POSTER;POSTER=0;LINIE=1 4280 PRINT TAB(24);"Subtotal";TAB(66); 4290 EXEC TUD(TOTAL$,TAL4$,1,0) 4300 EXEC TOMLINIE(6) 4310 ENDIF 4320 UNTIL POSTER=>ANPOST-5 4330 EXEC BPOST(0) 4340 FORS$=BELØB$;VARKONT=FRAGTNR 4350 EXEC VJOURNAL 4360 EXEC BPOST(0) 4370 MOMSH$=BELØB$ 4380 EXEC BPOST(0) 4390 FTOTAL$=BELØB$ 4400 EXEC TOMLINIE(25-LINIE) 4410 EXEC CALC(0,FORS$,TOTAL$,TOTAL$) 4420 EXEC CALC(5,FORS$,FORS$,TAL4$) 4430 PRINT TAB(16);TAL4$(4:10);TAB(29); 4440 EXEC TUD(TOTAL$,TAL4$,1,0) 4450 PRINT TAB(44);MOMSH$(7:5);TAB(51); 4460 EXEC CALC(1,FTOTAL$,TOTAL$,BELØB$) 4470 EXEC TUD(BELØB$,TAL4$,1,0) 4480 VARKONT=UDMOMSNR 4490 EXEC VJOURNAL 4500 PRINT TAB(66); 4510 EXEC TUD(FTOTAL$,TAL4$,1,0) 4520 PRINT " " 4530 EXEC TOMLINIE(2) 4540 IF GEN=0 THEN 4550 OPEN K7$,W 4560 EXEC FEJL(4,1,K7$) 4570 FJPOST=FJPOST+1 4580 IF FAKKRE$="K" THEN 4590 FTOTAL$(12)="-";VARENR=KREDNR-1 4600 ELSE 4610 VARENR=FAKTNR-1 4620 ENDIF 4630 PUT K7$,FJPOST:KUNDENR,FTOTAL$,VARENR,FDATO 4640 EXEC FEJL(4,2,K7$) 4650 BELØB$=ÅRKØB$ 4660 CLOSE K7$ 4670 EXEC FEJL(4,3,K7$) 4680 IF FAKKRE$="K" THEN TOTAL$(12)="-" 4690 EXEC CALC(0,MDNKØB$,TOTAL$,MDNKØB$) 4700 EXEC CALC(0,BELØB$,TOTAL$,BELØB$) 4710 ÅRKØB$=BELØB$ 4720 EXEC GEMDPOST 4730 ENDIF 4740 UNTIL I=>APOSTER 4750 OUTPUT T 4760 REPEAT 4770 CLEAR 4780 CURSOR 20,10 4790 INPUT "Ønskes ny udskrift (J/N):",SVAR1$ 4800 UNTIL SVAR1$="J" OR SVAR1$="N" OR SVAR1$="j" OR SVAR1$="n" 4810 IF SVAR1$="J" OR SVAR1$="j" THEN 4820 OPEN K9$,R 4830 EXEC FEJL(6,1,K9$) 4840 GET K9$,2:FAKTNR,KREDNR 4850 EXEC FEJL(6,2,K9$) 4860 CLOSE K9$ 4870 EXEC FEJL(6,3,K9$) 4880 GEN=1 4890 ENDIF 4900 UNTIL SVAR1$="N" OR SVAR1$="n" 4910 APOSTER=STPOST-1 4920 ENDIF 4930 PROC DATOUD(DA) 4940 PRINT TAB(67); 4950 PRINT USING "###.##":(DA MOD 10000)/100; 4960 PRINT TAB(64); 4970 PRINT USING "###.#":(DA DIV 1000)/10 4980 ENDPROC 4990 PROC VPOST 5000 ANTAL$=" ,00+" 5010 GET K6$,I:VARENR,ANTAL$(4:5),KOD$ 5020 EXEC FEJL(5,1,K6$) 5030 POSTER=POSTER+1;I=I+1 5040 ENDPROC 5050 PROC BPOST(SL) 5060 GET K6$,I:TEK$ 5070 EXEC FEJL(6,1,K6$) 5080 POSTER=POSTER+1;I=I+1 5090 IF SL=0 THEN 5100 BELØB$=TEK$ 5110 ELSE 5120 VARPRIS$=TEK$ 5130 ENDIF 5140 KOD$=TEK$(13) 5150 ENDPROC 5160 PROC TPOST 5170 VARTEKST$=BLANK$ 5180 GET K6$,I:VARTEKST$(1:13) 5190 EXEC FEJL(7,1,K6$) 5200 I=I+1 5210 GET K6$,I:TEK$ 5220 EXEC FEJL(7,2,K6$) 5230 LE=LEN(TEK$) 5240 IF LE>1 THEN 5250 VARTEKST$(14:LE-1)=TEK$ 5260 ENDIF 5270 KOD$=TEK$(LE);I=I+1;POSTER=POSTER+2 5280 ENDPROC 5290 PROC VUD 5300 PRINT TAB(7); 5310 PRINT USING "#######":VARENR; 5320 PRINT TAB(16);ANTAL$(4:5);TAB(24);VARTEKST$;TAB(51); 5330 EXEC TUD(VARPRIS$,TAL4$,1,0) 5340 PRINT TAB(66); 5350 EXEC CALC(2,VARPRIS$,ANTAL$,BELØB$) 5360 EXEC TUD(BELØB$,TAL4$,1,0) 5370 GBELØB$=BELØB$ 5380 EXEC CALC(0,TOTAL$,BELØB$,TOTAL$) 5390 IF GEN=0 THEN EXEC VJOURNAL 5400 ENDPROC 5410 PROC VJOURNAL 5420 IF GEN=0 THEN 5430 EJFUNDET=0 5440 FOR M=1 TO AVKONTI 5450 IF VJOURARR(M)=VARKONT THEN 5460 IF FAKKRE$="F" THEN 5470 EXEC CALC(1,VBJOUARR$(M),BELØB$,VBJOUARR$(M)) 5480 ELSE 5490 EXEC CALC(0,VBJOUARR$(M),BELØB$,VBJOUARR$(M)) 5500 ENDIF 5510 M=AVKONTI;EJFUNDET=1 5520 ENDIF 5530 NEXT M 5540 IF EJFUNDET=0 THEN 5550 IF AVKONTI<50 THEN 5560 AVKONTI=AVKONTI+1;VJOURARR(AVKONTI)=VARKONT;VBJOUARR$(AVKONTI)=BELØB$ 5570 IF FAKKRE$="F" THEN 5580 IF BELØB$(12)="+" THEN 5590 VBJOUARR$(AVKONTI,12)="-" 5600 ELSE 5610 VBJOUARR$(AVKONTI,12)="+" 5620 ENDIF 5630 ENDIF 5640 ELSE 5650 STOP 5660 ENDIF 5670 ENDIF 5680 ENDIF 5690 ENDPROC 5700 PROC TOMLINIE(ANTLIN) 5710 FOR ANLI=1 TO ANTLIN 5720 PRINT " " 5730 NEXT ANLI 5740 ENDPROC 5750 OPEN K8$,W 5760 EXEC FEJL(8,1,K8$) 5770 FOR I=1 TO AVKONTI 5780 PUT K8$,I:VJOURARR(I),VBJOUARR$(I) 5790 EXEC FEJL(8,2,K8$) 5800 NEXT I 5810 CLOSE K8$ 5820 EXEC FEJL(8,3,K8$) 5830 OUTPUT T 5840 TE$=" Programvalg " 5850 EXEC BIL 5860 EXEC SYSGEM 5870 CHAIN "P641210:OPSTART" 5880 END 5890 PROC BIL 5900 CLEAR 5910 CURSOR 20,9 5920 PRINT "*****************************************" 5930 CURSOR 20,10 5940 PRINT "*";TAB(41);"*" 5950 PRINT TAB(20);"*";TAB(30);TE$;TAB(60);"*" 5960 PRINT TAB(20);"*";TAB(60);"*" 5970 PRINT TAB(20);"*****************************************" 5980 ENDPROC
0x0000…004d Line {l1=0x4b, l2=»0100 DIM K1$(17),N$(6),K2$(17),K3$(17),DEBNAVN$(25),DSALDO1$(12),DEBKGR$(1)«, l3=0x4b}
0x004d…0095 Line {l1=0x46, l2=»0110 DIM DSALDO2$(12),DSALDO3$(12),DSALDO4$(12),DEBLK$(1),DEBGADE$(25)«, l3=0x46}
0x0095…00d5 Line {l1=0x3e, l2=»0120 DIM DEBTLF$(9),DEBBY$(20),SALDO$(12),KR$(25),T$(13),D$(8)«, l3=0x3e}
0x00d5…0122 Line {l1=0x4b, l2=»0130 DIM ÅRKØB$(12),MDNKØB$(12),TEK$(13),GBELØB$(12),MOMSH$(12),T1(9),T2(9)«, l3=0x4b}
0x0122…0167 Line {l1=0x43, l2=»0140 DIM MOMS$(12),FTOTAL$(12),KOD1$(1),KOD$(1),TAL1$(12),TAL4$(14)«, l3=0x43}
0x0167…01b0 Line {l1=0x47, l2=»0150 DIM VARTEKST$(25),VARPRIS$(12),BELØB$(12),TOTAL$(12),T3(9),K4$(17)«, l3=0x47}
0x01b0…01fb Line {l1=0x49, l2=»0160 DIM SVAR1$(1),FAKKRE$(1),LEVTEKST$(52),ANTAL$(12),BLANK$(25),K5$(17)«, l3=0x49}
0x01fb…0246 Line {l1=0x49, l2=»0170 DIM RES$(14),OP1$(12),OP2$(12),FORS$(12),PRO$(12),VARTH$(25),K6$(17)«, l3=0x49}
0x0246…0295 Line {l1=0x4d, l2=»0180 DIM VJOURARR(50),VBJOUARR$(50,12),TE$(30),TEKO$(1),F$(1),K7$(17),K8$(17)«, l3=0x4d}
0x0295…02c6 Line {l1=0x2f, l2=»0190 DIM K9$(17),LAND$(9,12),BLB2$(12),TAH$(12)«, l3=0x2f}
0x02c6…02f9 Line {l1=0x31, l2=»0200 BLANK$=" ";TAH$="0+"«, l3=0x31}
0x02f9…0321 Line {l1=0x26, l2=»0210 TAL1$="0+";TAL4$="0+";TOTAL$="0+"«, l3=0x26}
0x0321…0339 Line {l1=0x16, l2=»0220 PROC NRTEST(NUM1)«, l3=0x16}
0x0339…035f Line {l1=0x24, l2=»0230 P=0;TEST2=0;KTAL=0;L=LEN(NUM1$)«, l3=0x24}
0x035f…0377 Line {l1=0x16, l2=»0240 IF L>6 THEN EXIT «, l3=0x16}
0x0377…0388 Line {l1=0x0f, l2=»0250 CASE L OF «, l3=0x0f}
0x0388…039b Line {l1=0x11, l2=»0260 FOR J=1 TO L«, l3=0x11}
0x039b…03ba Line {l1=0x1d, l2=»0270 P1=INT(ORD(NUM1$(J))-48)«, l3=0x1d}
0x03ba…03d6 Line {l1=0x1a, l2=»0280 IF P1<0 OR P1>9 THEN «, l3=0x1a}
0x03d6…03e4 Line {l1=0x0c, l2=»0290 TEST2=1«, l3=0x0c}
0x03e4…03f0 Line {l1=0x0a, l2=»0300 ELSE «, l3=0x0a}
0x03f0…0400 Line {l1=0x0e, l2=»0310 P=P*10+P1«, l3=0x0e}
0x0400…040d Line {l1=0x0b, l2=»0320 ENDIF «, l3=0x0b}
0x040d…041a Line {l1=0x0b, l2=»0330 NEXT J«, l3=0x0b}
0x041a…0431 Line {l1=0x15, l2=»0340 KTAL=P DIV 10000«, l3=0x15}
0x0431…043e Line {l1=0x0b, l2=»0350 WHEN 0«, l3=0x0b}
0x043e…0449 Line {l1=0x09, l2=»0360 P=-1«, l3=0x09}
0x0449…0456 Line {l1=0x0b, l2=»0370 WHEN 1«, l3=0x0b}
0x0456…046b Line {l1=0x13, l2=»0380 CASE NUM1$ OF «, l3=0x13}
0x046b…0486 Line {l1=0x19, l2=»0390 P=INT(ORD(NUM1$)-48)«, l3=0x19}
0x0486…0499 Line {l1=0x11, l2=»0400 WHEN "d","D"«, l3=0x11}
0x0499…04a4 Line {l1=0x09, l2=»0410 P=-2«, l3=0x09}
0x04a4…04b7 Line {l1=0x11, l2=»0420 WHEN "a","A"«, l3=0x11}
0x04b7…04c2 Line {l1=0x09, l2=»0430 P=-3«, l3=0x09}
0x04c2…04d5 Line {l1=0x11, l2=»0440 WHEN "m","M"«, l3=0x11}
0x04d5…04e0 Line {l1=0x09, l2=»0450 P=-4«, l3=0x09}
0x04e0…04f3 Line {l1=0x11, l2=»0460 WHEN "j","J"«, l3=0x11}
0x04f3…04fe Line {l1=0x09, l2=»0470 P=-7«, l3=0x09}
0x04fe…0511 Line {l1=0x11, l2=»0480 WHEN "n","N"«, l3=0x11}
0x0511…051c Line {l1=0x09, l2=»0490 P=-8«, l3=0x09}
0x051c…052b Line {l1=0x0d, l2=»0500 ENDCASE «, l3=0x0d}
0x052b…053a Line {l1=0x0d, l2=»0510 ENDCASE «, l3=0x0d}
0x053a…0549 Line {l1=0x0d, l2=»0520 ENDPROC «, l3=0x0d}
0x0549…0566 Line {l1=0x1b, l2=»0530 PROC FEJL(NR1,NR2,NR3)«, l3=0x1b}
0x0566…0585 Line {l1=0x1d, l2=»0540 IF STATUS(NR3$)<>0 THEN «, l3=0x1d}
0x0585…05ab Line {l1=0x24, l2=»0550 PRINT STATUS(NR3$),NR1,NR2,NR3$«, l3=0x24}
0x05ab…05b7 Line {l1=0x0a, l2=»0560 STOP «, l3=0x0a}
0x05b7…05c4 Line {l1=0x0b, l2=»0570 ENDIF «, l3=0x0b}
0x05c4…05d3 Line {l1=0x0d, l2=»0580 ENDPROC «, l3=0x0d}
0x05d3…05e8 Line {l1=0x13, l2=»0590 PROC HENTVPOST«, l3=0x13}
0x05e8…05fe Line {l1=0x14, l2=»0600 S=VTAB(VPIL3,2)«, l3=0x14}
0x05fe…0630 Line {l1=0x30, l2=»0610 GET K5$,S:VARENR,VARTEKST$,VARPRIS$,VARKONT«, l3=0x30}
0x0630…0649 Line {l1=0x17, l2=»0620 EXEC FEJL(2,1,K5$)«, l3=0x17}
0x0649…0658 Line {l1=0x0d, l2=»0630 ENDPROC «, l3=0x0d}
0x0658…0676 Line {l1=0x1c, l2=»0640 PROC CALC(AR3,B1,B2,ES)«, l3=0x1c}
0x0676…06b5 Line {l1=0x3d, l2=»0650 OP1$=B1$;OP2$=B2$;RES$=ES$;SI=0;FLAG=0;ART=AR3-6*(AR3>5)«, l3=0x3d}
0x06b5…06cf Line {l1=0x18, l2=»0660 CALL "P641210:REGN"«, l3=0x18}
0x06cf…06de Line {l1=0x0d, l2=»0670 ES$=RES$«, l3=0x0d}
0x06de…06f3 Line {l1=0x13, l2=»0680 IF AR3<6 THEN «, l3=0x13}
0x06f3…070c Line {l1=0x17, l2=»0690 IF FLAG THEN STOP «, l3=0x17}
0x070c…0719 Line {l1=0x0b, l2=»0700 ENDIF «, l3=0x0b}
0x0719…0728 Line {l1=0x0d, l2=»0710 ENDPROC «, l3=0x0d}
0x0728…073d Line {l1=0x13, l2=»0720 PROC HENTDPOST«, l3=0x13}
0x073d…0753 Line {l1=0x14, l2=»0730 S=DTAB(DPIL3,2)«, l3=0x14}
0x0753…0783 Line {l1=0x2e, l2=»0740 GET K4$,S:DEBNR,DEBNAVN$,DSALDO1$,DEBKGR$«, l3=0x2e}
0x0783…079c Line {l1=0x17, l2=»0750 EXEC FEJL(3,1,K4$)«, l3=0x17}
0x079c…07d8 Line {l1=0x3a, l2=»0760 GET K4$,S+1:DSALDO2$,DSALDO3$,DSALDO4$,DPOSTNR,DEBLK$«, l3=0x3a}
0x07d8…07f1 Line {l1=0x17, l2=»0770 EXEC FEJL(3,2,K4$)«, l3=0x17}
0x07f1…0821 Line {l1=0x2e, l2=»0780 GET K4$,S+2:DEBGADE$,DEBTLF$,HPOST,HKUNDE«, l3=0x2e}
0x0821…083a Line {l1=0x17, l2=»0790 EXEC FEJL(3,3,K4$)«, l3=0x17}
0x083a…0862 Line {l1=0x26, l2=»0800 GET K4$,S+3:DEBBY$,ÅRKØB$,MDNKØB$«, l3=0x26}
0x0862…087b Line {l1=0x17, l2=»0810 EXEC FEJL(3,4,K4$)«, l3=0x17}
0x087b…088a Line {l1=0x0d, l2=»0820 ENDPROC «, l3=0x0d}
0x088a…08af Line {l1=0x23, l2=»0830 PROC TUD(BLB1,UBLB1,TEGN,STØR)«, l3=0x23}
0x08af…08c1 Line {l1=0x10, l2=»0840 BLB2$=BLB1$«, l3=0x10}
0x08c1…08e6 Line {l1=0x23, l2=»0850 EXEC CALC(5,BLB2$,TAH$,UBLB1$)«, l3=0x23}
0x08e6…090f Line {l1=0x27, l2=»0860 IF TEGN=0 THEN UBLB1$=UBLB1$(1:13)«, l3=0x27}
0x090f…0958 Line {l1=0x47, l2=»0870 IF TEGN=1 AND UBLB1$(LEN(UBLB1$))="+" THEN UBLB1$(LEN(UBLB1$))=" "«, l3=0x47}
0x0958…098c Line {l1=0x32, l2=»0880 IF STØR=1 THEN UBLB1$=UBLB1$(4:LEN(UBLB1$)-3)«, l3=0x32}
0x098c…09a0 Line {l1=0x12, l2=»0890 PRINT UBLB1$;«, l3=0x12}
0x09a0…09af Line {l1=0x0d, l2=»0900 ENDPROC «, l3=0x0d}
0x09af…09c3 Line {l1=0x12, l2=»0910 PROC GEMDPOST«, l3=0x12}
0x09c3…09d9 Line {l1=0x14, l2=»0920 S=DTAB(DPIL3,2)«, l3=0x14}
0x09d9…0a09 Line {l1=0x2e, l2=»0930 PUT K4$,S:DEBNR,DEBNAVN$,DSALDO1$,DEBKGR$«, l3=0x2e}
0x0a09…0a22 Line {l1=0x17, l2=»0940 EXEC FEJL(4,1,K4$)«, l3=0x17}
0x0a22…0a5e Line {l1=0x3a, l2=»0950 PUT K4$,S+1:DSALDO2$,DSALDO3$,DSALDO4$,DPOSTNR,DEBLK$«, l3=0x3a}
0x0a5e…0a77 Line {l1=0x17, l2=»0960 EXEC FEJL(4,1,K4$)«, l3=0x17}
0x0a77…0aa7 Line {l1=0x2e, l2=»0970 PUT K4$,S+2:DEBGADE$,DEBTLF$,HPOST,HKUNDE«, l3=0x2e}
0x0aa7…0ac0 Line {l1=0x17, l2=»0980 EXEC FEJL(4,2,K4$)«, l3=0x17}
0x0ac0…0ae8 Line {l1=0x26, l2=»0990 PUT K4$,S+3:DEBBY$,ÅRKØB$,MDNKØB$«, l3=0x26}
0x0ae8…0b01 Line {l1=0x17, l2=»1000 EXEC FEJL(4,3,K4$)«, l3=0x17}
0x0b01…0b10 Line {l1=0x0d, l2=»1010 ENDPROC «, l3=0x0d}
0x0b10…0b2f Line {l1=0x1d, l2=»1020 PROC INDTAB1(Z,MANT5,L7)«, l3=0x1d}
0x0b2f…0b47 Line {l1=0x16, l2=»1030 PIL1=MANT5 DIV 32«, l3=0x16}
0x0b47…0b5d Line {l1=0x14, l2=»1040 FOR I=1 TO PIL1«, l3=0x14}
0x0b5d…0b6f Line {l1=0x10, l2=»1050 H=(I-1)*8+1«, l3=0x10}
0x0b6f…0bb5 Line {l1=0x44, l2=»1060 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}
0x0bb5…0bce Line {l1=0x17, l2=»1070 EXEC FEJL(2,1,L7$)«, l3=0x17}
0x0bce…0bdb Line {l1=0x0b, l2=»1080 NEXT I«, l3=0x0b}
0x0bdb…0bea Line {l1=0x0d, l2=»1090 ENDPROC «, l3=0x0d}
0x0bea…0bfc Line {l1=0x10, l2=»1100 PROC SYSGEM«, l3=0x10}
0x0bfc…0c42 Line {l1=0x44, l2=»1110 T1(1)=FAKTNR;T1(2)=KREDNR;T2(4)=APOSTER;T2(5)=AKRED;T2(6)=AFAKT«, l3=0x44}
0x0c42…0c63 Line {l1=0x1f, l2=»1120 T2(7)=AVKONTI;T2(8)=FJPOST«, l3=0x1f}
0x0c63…0c74 Line {l1=0x0f, l2=»1130 OPEN K9$,W«, l3=0x0f}
0x0c74…0c8d Line {l1=0x17, l2=»1140 EXEC FEJL(8,1,K9$)«, l3=0x17}
0x0c8d…0cd3 Line {l1=0x44, l2=»1150 PUT K9$,2:T1(1),T1(2),T1(3),T1(4),T1(5),T1(6),T1(7),T1(8),T1(9)«, l3=0x44}
0x0cd3…0cec Line {l1=0x17, l2=»1160 EXEC FEJL(8,2,K9$)«, l3=0x17}
0x0cec…0d33 Line {l1=0x45, l2=»1170 PUT K9$,12:T2(1),T2(2),T2(3),T2(4),T2(5),T2(6),T2(7),T2(8),T2(9)«, l3=0x45}
0x0d33…0d4c Line {l1=0x17, l2=»1180 EXEC FEJL(8,3,K9$)«, l3=0x17}
0x0d4c…0d5c Line {l1=0x0e, l2=»1190 CLOSE K9$«, l3=0x0e}
0x0d5c…0d75 Line {l1=0x17, l2=»1200 EXEC FEJL(8,4,K9$)«, l3=0x17}
0x0d75…0d84 Line {l1=0x0d, l2=»1210 ENDPROC «, l3=0x0d}
0x0d84…0db5 Line {l1=0x2f, l2=»1220 PROC FINDPOST1(TAB4,Q,MANT2,NØGL5,PIL6,L8)«, l3=0x2f}
0x0db5…0e02 Line {l1=0x4b, l2=»1230 PIL1=MANT2 DIV 8;PIL6=PIL1;CEKS=1;MANT3=MANT2 DIV 4;MANT4=MANT2 DIV 32«, l3=0x4b}
0x0e02…0e10 Line {l1=0x0c, l2=»1240 REPEAT «, l3=0x0c}
0x0e10…0e3f Line {l1=0x2d, l2=»1250 IF NØGL5=TAB4(PIL6) OR PIL1=1 THEN EXIT «, l3=0x2d}
0x0e3f…0e81 Line {l1=0x40, l2=»1260 PIL1=(PIL1+1) DIV 2;PIL6=PIL6+PIL1*(1-2*(NØGL5<TAB4(PIL6)))«, l3=0x40}
0x0e81…0e9d Line {l1=0x1a, l2=»1270 IF PIL6<1 THEN PIL6=1«, l3=0x1a}
0x0e9d…0ec1 Line {l1=0x22, l2=»1280 IF PIL6>MANT3 THEN PIL6=MANT3«, l3=0x22}
0x0ec1…0ed4 Line {l1=0x11, l2=»1290 UNTIL PIL1=0«, l3=0x11}
0x0ed4…0f08 Line {l1=0x32, l2=»1300 IF TAB4(PIL6)>NØGL5 THEN PIL6=PIL6-1*(PIL6>1)«, l3=0x32}
0x0f08…0f1e Line {l1=0x14, l2=»1310 PIL6=MANT4+PIL6«, l3=0x14}
0x0f1e…0f69 Line {l1=0x49, l2=»1320 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}
0x0f69…0f82 Line {l1=0x17, l2=»1330 EXEC FEJL(1,1,L8$)«, l3=0x17}
0x0f82…0f98 Line {l1=0x14, l2=»1340 FOR PIL6=1 TO 4«, l3=0x14}
0x0f98…0fbc Line {l1=0x22, l2=»1350 IF NØGL5=Q(PIL6,1) THEN EXIT «, l3=0x22}
0x0fbc…0fcc Line {l1=0x0e, l2=»1360 NEXT PIL6«, l3=0x0e}
0x0fcc…0fe9 Line {l1=0x1b, l2=»1370 IF PIL6<>5 THEN CEKS=0«, l3=0x1b}
0x0fe9…0ff8 Line {l1=0x0d, l2=»1380 ENDPROC «, l3=0x0d}
0x0ff8…100b Line {l1=0x11, l2=»1390 PROC TABHENT«, l3=0x11}
0x100b…101c Line {l1=0x0f, l2=»1400 OPEN K8$,R«, l3=0x0f}
0x101c…1035 Line {l1=0x17, l2=»1410 EXEC FEJL(2,1,K8$)«, l3=0x17}
0x1035…104e Line {l1=0x17, l2=»1420 FOR I=1 TO AVKONTI«, l3=0x17}
0x104e…1077 Line {l1=0x27, l2=»1430 GET K8$,I:VJOURARR(I),VBJOUARR$(I)«, l3=0x27}
0x1077…1090 Line {l1=0x17, l2=»1440 EXEC FEJL(2,2,K8$)«, l3=0x17}
0x1090…109d Line {l1=0x0b, l2=»1450 NEXT I«, l3=0x0b}
0x109d…10ad Line {l1=0x0e, l2=»1460 CLOSE K8$«, l3=0x0e}
0x10ad…10c6 Line {l1=0x17, l2=»1470 EXEC FEJL(2,3,K8$)«, l3=0x17}
0x10c6…10d5 Line {l1=0x0d, l2=»1480 ENDPROC «, l3=0x0d}
0x10d5…10e9 Line {l1=0x12, l2=»1490 PROC TESTPRIN«, l3=0x12}
0x10e9…1130 Line {l1=0x45, l2=»1500 KR$="XXXXXXXXXXXXXXXXXXXXXXXXX";T$="XX.XXX.XXX,XX";D$="XX.XX.XX"«, l3=0x45}
0x1130…113f Line {l1=0x0d, l2=»1510 OUTPUT P«, l3=0x0d}
0x113f…1156 Line {l1=0x15, l2=»1520 EXEC TOMLINIE(7)«, l3=0x15}
0x1156…1173 Line {l1=0x1b, l2=»1530 PRINT TAB(67);KR$(1:6)«, l3=0x1b}
0x1173…118a Line {l1=0x15, l2=»1540 PRINT TAB(9);KR$«, l3=0x15}
0x118a…11b2 Line {l1=0x26, l2=»1550 PRINT TAB(9);KR$;TAB(67);KR$(1:6)«, l3=0x26}
0x11b2…11c9 Line {l1=0x15, l2=»1560 PRINT TAB(9);KR$«, l3=0x15}
0x11c9…11eb Line {l1=0x20, l2=»1570 PRINT TAB(9);KR$;TAB(65);D$«, l3=0x20}
0x11eb…1202 Line {l1=0x15, l2=»1580 PRINT TAB(9);KR$«, l3=0x15}
0x1202…122a Line {l1=0x26, l2=»1590 PRINT TAB(9);KR$;TAB(67);KR$(1:6)«, l3=0x26}
0x122a…123a Line {l1=0x0e, l2=»1600 PRINT " "«, l3=0x0e}
0x123a…1251 Line {l1=0x15, l2=»1610 PRINT TAB(65);D$«, l3=0x15}
0x1251…1261 Line {l1=0x0e, l2=»1620 PRINT " "«, l3=0x0e}
0x1261…1282 Line {l1=0x1f, l2=»1630 PRINT TAB(19);KR$;KR$;"XX"«, l3=0x1f}
0x1282…12a6 Line {l1=0x22, l2=»1640 PRINT CHR(10),CHR(10),CHR(10)«, l3=0x22}
0x12a6…12f5 Line {l1=0x4d, l2=»1650 PRINT TAB(8);KR$(1:6);TAB(16);KR$(1:5);TAB(24);KR$;TAB(51);T$;TAB(66);T$«, l3=0x4d}
0x12f5…130d Line {l1=0x16, l2=»1660 EXEC TOMLINIE(19)«, l3=0x16}
0x130d…135c Line {l1=0x4d, l2=»1670 PRINT TAB(8);KR$(1:6);TAB(16);KR$(1:5);TAB(24);KR$;TAB(51);T$;TAB(66);T$«, l3=0x4d}
0x135c…1373 Line {l1=0x15, l2=»1680 EXEC TOMLINIE(3)«, l3=0x15}
0x1373…13c1 Line {l1=0x4c, l2=»1690 PRINT TAB(16);T$(4:10);TAB(29);T$;TAB(44);T$(9:5);TAB(51);T$;TAB(66);T$«, l3=0x4c}
0x13c1…13d8 Line {l1=0x15, l2=»1700 EXEC TOMLINIE(3)«, l3=0x15}
0x13d8…13e7 Line {l1=0x0d, l2=»1710 OUTPUT T«, l3=0x0d}
0x13e7…13f6 Line {l1=0x0d, l2=»1720 ENDPROC «, l3=0x0d}
0x13f6…1412 Line {l1=0x1a, l2=»1730 K1$="P641220:SYSTEM1"«, l3=0x1a}
0x1412…1423 Line {l1=0x0f, l2=»1740 OPEN K1$,R«, l3=0x0f}
0x1423…143c Line {l1=0x17, l2=»1750 EXEC FEJL(9,1,K1$)«, l3=0x17}
0x143c…146c Line {l1=0x2e, l2=»1760 GET K1$,1:MFANTAL,MDANTAL,MKANTAL,MVANTAL«, l3=0x2e}
0x146c…1485 Line {l1=0x17, l2=»1770 EXEC FEJL(9,2,K1$)«, l3=0x17}
0x1485…14a9 Line {l1=0x22, l2=»1780 GET K1$,4:KMID,MFAK,MVGR,MKGR«, l3=0x22}
0x14a9…14c2 Line {l1=0x17, l2=»1790 EXEC FEJL(9,3,K1$)«, l3=0x17}
0x14c2…14f1 Line {l1=0x2d, l2=»1800 GET K1$,6:KASSENR,GIRONR,BANKNR,UDMOMSNR«, l3=0x2d}
0x14f1…150a Line {l1=0x17, l2=»1810 EXEC FEJL(9,4,K1$)«, l3=0x17}
0x150a…153c Line {l1=0x30, l2=»1820 GET K1$,7:INDMOMSNR,RENTENR,FRAGTNR,RABATNR«, l3=0x30}
0x153c…1555 Line {l1=0x17, l2=»1830 EXEC FEJL(9,5,K1$)«, l3=0x17}
0x1555…1572 Line {l1=0x1b, l2=»1840 GET K1$,8:DIVNR,DIVDNR«, l3=0x1b}
0x1572…158b Line {l1=0x17, l2=»1850 EXEC FEJL(9,6,K1$)«, l3=0x17}
0x158b…159f Line {l1=0x12, l2=»1860 GET K1$,10:N$«, l3=0x12}
0x159f…15b8 Line {l1=0x17, l2=»1870 EXEC FEJL(9,7,K1$)«, l3=0x17}
0x15b8…15cd Line {l1=0x13, l2=»1880 GET K1$,12:K2$«, l3=0x13}
0x15cd…15e6 Line {l1=0x17, l2=»1890 EXEC FEJL(9,8,K1$)«, l3=0x17}
0x15e6…15fb Line {l1=0x13, l2=»1900 GET K1$,14:K3$«, l3=0x13}
0x15fb…1614 Line {l1=0x17, l2=»1910 EXEC FEJL(9,9,K1$)«, l3=0x17}
0x1614…1629 Line {l1=0x13, l2=»1920 GET K1$,16:K4$«, l3=0x13}
0x1629…1643 Line {l1=0x18, l2=»1930 EXEC FEJL(9,10,K1$)«, l3=0x18}
0x1643…1658 Line {l1=0x13, l2=»1940 GET K1$,18:K5$«, l3=0x13}
0x1658…1672 Line {l1=0x18, l2=»1950 EXEC FEJL(9,11,K1$)«, l3=0x18}
0x1672…1687 Line {l1=0x13, l2=»1960 GET K1$,29:K6$«, l3=0x13}
0x1687…16a1 Line {l1=0x18, l2=»1970 EXEC FEJL(9,12,K1$)«, l3=0x18}
0x16a1…16b6 Line {l1=0x13, l2=»1980 GET K1$,30:K7$«, l3=0x13}
0x16b6…16d0 Line {l1=0x18, l2=»1990 EXEC FEJL(9,13,K1$)«, l3=0x18}
0x16d0…16e5 Line {l1=0x13, l2=»2000 GET K1$,31:K8$«, l3=0x13}
0x16e5…16ff Line {l1=0x18, l2=»2010 EXEC FEJL(9,14,K1$)«, l3=0x18}
0x16ff…1714 Line {l1=0x13, l2=»2020 GET K1$,36:K9$«, l3=0x13}
0x1714…172e Line {l1=0x18, l2=»2030 EXEC FEJL(9,15,K1$)«, l3=0x18}
0x172e…173e Line {l1=0x0e, l2=»2040 CLOSE K1$«, l3=0x0e}
0x173e…1758 Line {l1=0x18, l2=»2050 EXEC FEJL(9,16,K1$)«, l3=0x18}
0x1758…17a0 Line {l1=0x46, l2=»2060 DIM VTAB1(MVANTAL DIV 4),DTAB1(MDANTAL DIV 4),VTAB(4,2),DTAB(4,2)«, l3=0x46}
0x17a0…17c7 Line {l1=0x25, l2=»2070 K2$=N$+K2$;K3$=N$+K3$;K4$=N$+K4$«, l3=0x25}
0x17c7…1804 Line {l1=0x3b, l2=»2080 K5$=N$+K5$;K6$=N$+K6$;K7$=N$+K7$;K8$=N$+K8$;K9$=N$+K9$«, l3=0x3b}
0x1804…1815 Line {l1=0x0f, l2=»2090 OPEN K9$,R«, l3=0x0f}
0x1815…182f Line {l1=0x18, l2=»2100 EXEC FEJL(9,17,K9$)«, l3=0x18}
0x182f…1875 Line {l1=0x44, l2=»2110 GET K9$,2:T1(1),T1(2),T1(3),T1(4),T1(5),T1(6),T1(7),T1(8),T1(9)«, l3=0x44}
0x1875…188f Line {l1=0x18, l2=»2120 EXEC FEJL(9,18,K9$)«, l3=0x18}
0x188f…18a2 Line {l1=0x11, l2=»2130 FOR I=1 TO 3«, l3=0x11}
0x18a2…18b4 Line {l1=0x10, l2=»2140 H=(I-1)*3+1«, l3=0x10}
0x18b4…18e5 Line {l1=0x2f, l2=»2150 GET K9$,I+2:LAND$(H),LAND$(H+1),LAND$(H+2)«, l3=0x2f}
0x18e5…18ff Line {l1=0x18, l2=»2160 EXEC FEJL(9,19,K9$)«, l3=0x18}
0x18ff…190c Line {l1=0x0b, l2=»2170 NEXT I«, l3=0x0b}
0x190c…1953 Line {l1=0x45, l2=»2180 GET K9$,12:T2(1),T2(2),T2(3),T2(4),T2(5),T2(6),T2(7),T2(8),T2(9)«, l3=0x45}
0x1953…196d Line {l1=0x18, l2=»2190 EXEC FEJL(9,20,K9$)«, l3=0x18}
0x196d…19b4 Line {l1=0x45, l2=»2200 GET K9$,13:T3(1),T3(2),T3(3),T3(4),T3(5),T3(6),T3(7),T3(8),T3(9)«, l3=0x45}
0x19b4…19ce Line {l1=0x18, l2=»2210 EXEC FEJL(9,21,K9$)«, l3=0x18}
0x19ce…19de Line {l1=0x0e, l2=»2220 CLOSE K9$«, l3=0x0e}
0x19de…19f8 Line {l1=0x18, l2=»2230 EXEC FEJL(9,22,K9$)«, l3=0x18}
0x19f8…1a3d Line {l1=0x43, l2=»2240 FAKTNR=T1(1);KREDNR=T1(2);DATO=T1(7);APOSTER=T2(4);AKRED=T2(5)«, l3=0x43}
0x1a3d…1a6a Line {l1=0x2b, l2=»2250 AFAKT=T2(6);AVKONTI=T2(7);FJPOST=T2(8)«, l3=0x2b}
0x1a6a…1a7b Line {l1=0x0f, l2=»2260 OPEN K2$,R«, l3=0x0f}
0x1a7b…1a95 Line {l1=0x18, l2=»2270 EXEC FEJL(9,23,K2$)«, l3=0x18}
0x1a95…1aa6 Line {l1=0x0f, l2=»2280 OPEN K3$,R«, l3=0x0f}
0x1aa6…1ac0 Line {l1=0x18, l2=»2290 EXEC FEJL(9,24,K3$)«, l3=0x18}
0x1ac0…1ad1 Line {l1=0x0f, l2=»2300 OPEN K4$,W«, l3=0x0f}
0x1ad1…1aeb Line {l1=0x18, l2=»2310 EXEC FEJL(9,25,K4$)«, l3=0x18}
0x1aeb…1afc Line {l1=0x0f, l2=»2320 OPEN K5$,R«, l3=0x0f}
0x1afc…1b16 Line {l1=0x18, l2=»2330 EXEC FEJL(9,26,K5$)«, l3=0x18}
0x1b16…1b3c Line {l1=0x24, l2=»2340 EXEC INDTAB1(DTAB1,MDANTAL,K2$)«, l3=0x24}
0x1b3c…1b62 Line {l1=0x24, l2=»2350 EXEC INDTAB1(VTAB1,MVANTAL,K3$)«, l3=0x24}
0x1b62…1b75 Line {l1=0x11, l2=»2360 EXEC TABHENT«, l3=0x11}
0x1b75…1b82 Line {l1=0x0b, l2=»2370 CLEAR «, l3=0x0b}
0x1b82…1b94 Line {l1=0x10, l2=»2380 CURSOR 20,9«, l3=0x10}
0x1b94…1bbc Line {l1=0x26, l2=»2390 PRINT "Udskrivning af fakturaer."«, l3=0x26}
0x1bbc…1bcf Line {l1=0x11, l2=»2400 CURSOR 20,11«, l3=0x11}
0x1bcf…1be8 Line {l1=0x17, l2=»2410 PRINT "0: Færdig."«, l3=0x17}
0x1be8…1bfb Line {l1=0x11, l2=»2420 CURSOR 20,13«, l3=0x11}
0x1bfb…1c32 Line {l1=0x35, l2=»2430 PRINT "1: Udskrift af sidst indtastede faktura."«, l3=0x35}
0x1c32…1c45 Line {l1=0x11, l2=»2440 CURSOR 20,15«, l3=0x11}
0x1c45…1c7d Line {l1=0x36, l2=»2450 PRINT "2: Udskrift af alle indtastede fakturaer."«, l3=0x36}
0x1c7d…1c8b Line {l1=0x0c, l2=»2460 REPEAT «, l3=0x0c}
0x1c8b…1c9e Line {l1=0x11, l2=»2470 CURSOR 20,17«, l3=0x11}
0x1c9e…1cbd Line {l1=0x1d, l2=»2480 INPUT "Vælg 0-2:",SVAR1$«, l3=0x1d}
0x1cbd…1cf0 Line {l1=0x31, l2=»2490 UNTIL SVAR1$="1" OR SVAR1$="2" OR SVAR1$="0"«, l3=0x31}
0x1cf0…1d0b Line {l1=0x19, l2=»2500 IF SVAR1$<>"0" THEN «, l3=0x19}
0x1d0b…1d25 Line {l1=0x18, l2=»2510 IF SVAR1$="2" THEN «, l3=0x18}
0x1d25…1d3d Line {l1=0x16, l2=»2520 LYNFAK=0;STPOST=1«, l3=0x16}
0x1d3d…1d49 Line {l1=0x0a, l2=»2530 ELSE «, l3=0x0a}
0x1d49…1d58 Line {l1=0x0d, l2=»2540 LYNFAK=1«, l3=0x0d}
0x1d58…1d69 Line {l1=0x0f, l2=»2550 OPEN K6$,R«, l3=0x0f}
0x1d69…1d82 Line {l1=0x17, l2=»2560 EXEC FEJL(3,1,K6$)«, l3=0x17}
0x1d82…1da5 Line {l1=0x21, l2=»2570 FOR I=APOSTER-3 TO 1 STEP -1«, l3=0x21}
0x1da5…1dca Line {l1=0x23, l2=»2580 GET K6$,I:ORDRENR,FDATO,ANPOST«, l3=0x23}
0x1dca…1de3 Line {l1=0x17, l2=»2590 EXEC FEJL(3,2,K6$)«, l3=0x17}
0x1de3…1e0a Line {l1=0x25, l2=»2600 IF ANPOST=APOSTER+2-I THEN EXIT «, l3=0x25}
0x1e0a…1e17 Line {l1=0x0b, l2=»2610 NEXT I«, l3=0x0b}
0x1e17…1e28 Line {l1=0x0f, l2=»2620 STPOST=I-1«, l3=0x0f}
0x1e28…1e38 Line {l1=0x0e, l2=»2630 CLOSE K6$«, l3=0x0e}
0x1e38…1e51 Line {l1=0x17, l2=»2640 EXEC FEJL(3,3,K6$)«, l3=0x17}
0x1e51…1e5e Line {l1=0x0b, l2=»2650 ENDIF «, l3=0x0b}
0x1e5e…1e6a Line {l1=0x0a, l2=»2660 GEN=0«, l3=0x0a}
0x1e6a…1e78 Line {l1=0x0c, l2=»2670 REPEAT «, l3=0x0c}
0x1e78…1e85 Line {l1=0x0b, l2=»2680 CLEAR «, l3=0x0b}
0x1e85…1e97 Line {l1=0x10, l2=»2690 CURSOR 20,9«, l3=0x10}
0x1e97…1ebf Line {l1=0x26, l2=»2700 PRINT "Udskrivning af fakturaer."«, l3=0x26}
0x1ebf…1ed2 Line {l1=0x11, l2=»2710 CURSOR 20,11«, l3=0x11}
0x1ed2…1f08 Line {l1=0x34, l2=»2720 PRINT "Monter papir til udskrift af testprint."«, l3=0x34}
0x1f08…1f1b Line {l1=0x11, l2=»2730 CURSOR 20,13«, l3=0x11}
0x1f1b…1f3d Line {l1=0x20, l2=»2740 INPUT "Tast RETURN.",SVAR1$«, l3=0x20}
0x1f3d…1f51 Line {l1=0x12, l2=»2750 EXEC TESTPRIN«, l3=0x12}
0x1f51…1f5f Line {l1=0x0c, l2=»2760 REPEAT «, l3=0x0c}
0x1f5f…1f6d Line {l1=0x0c, l2=»2770 REPEAT «, l3=0x0c}
0x1f6d…1f80 Line {l1=0x11, l2=»2780 CURSOR 20,13«, l3=0x11}
0x1f80…1fb3 Line {l1=0x31, l2=»2790 INPUT "Ønskes flere testprint (J/N):",SVAR1$«, l3=0x31}
0x1fb3…1ff4 Line {l1=0x3f, l2=»2800 UNTIL SVAR1$="J" OR SVAR1$="N" OR SVAR1$="j" OR SVAR1$="n"«, l3=0x3f}
0x1ff4…2029 Line {l1=0x33, l2=»2810 IF SVAR1$="J" OR SVAR1$="j" THEN EXEC TESTPRIN«, l3=0x33}
0x2029…204e Line {l1=0x23, l2=»2820 UNTIL SVAR1$="N" OR SVAR1$="n"«, l3=0x23}
0x204e…2073 Line {l1=0x23, l2=»2830 TE$="Der udskrives fakturaer."«, l3=0x23}
0x2073…2082 Line {l1=0x0d, l2=»2840 EXEC BIL«, l3=0x0d}
0x2082…2091 Line {l1=0x0d, l2=»2850 OUTPUT P«, l3=0x0d}
0x2091…20af Line {l1=0x1c, l2=»2860 IF APOSTER=0 THEN EXIT «, l3=0x1c}
0x20af…20c0 Line {l1=0x0f, l2=»2870 OPEN K6$,R«, l3=0x0f}
0x20c0…20d9 Line {l1=0x17, l2=»2880 EXEC FEJL(3,4,K6$)«, l3=0x17}
0x20d9…20e8 Line {l1=0x0d, l2=»2890 I=STPOST«, l3=0x0d}
0x20e8…20f6 Line {l1=0x0c, l2=»2900 REPEAT «, l3=0x0c}
0x20f6…2108 Line {l1=0x10, l2=»2910 TOTAL$="0+"«, l3=0x10}
0x2108…2134 Line {l1=0x2a, l2=»2920 GET K6$,I:KUNDENR,ORDRED,FAKKRE$,DIVD«, l3=0x2a}
0x2134…214d Line {l1=0x17, l2=»2930 EXEC FEJL(3,5,K6$)«, l3=0x17}
0x214d…2159 Line {l1=0x0a, l2=»2940 I=I+1«, l3=0x0a}
0x2159…2183 Line {l1=0x28, l2=»2950 GET K6$,I:ORDRENR,FDATO,ANPOST,KOD$«, l3=0x28}
0x2183…219c Line {l1=0x17, l2=»2960 EXEC FEJL(3,6,K6$)«, l3=0x17}
0x219c…21a8 Line {l1=0x0a, l2=»2970 I=I+1«, l3=0x0a}
0x21a8…21e3 Line {l1=0x39, l2=»2980 EXEC FINDPOST1(DTAB1,DTAB,MDANTAL,KUNDENR,DPIL3,K2$)«, l3=0x39}
0x21e3…2207 Line {l1=0x22, l2=»2990 IF CEKS=0 THEN EXEC HENTDPOST«, l3=0x22}
0x2207…221d Line {l1=0x14, l2=»3000 IF DIVD=1 THEN «, l3=0x14}
0x221d…223c Line {l1=0x1d, l2=»3010 GET K6$,I:DEBNAVN$(1:13)«, l3=0x1d}
0x223c…2255 Line {l1=0x17, l2=»3020 EXEC FEJL(3,7,K6$)«, l3=0x17}
0x2255…2277 Line {l1=0x20, l2=»3030 GET K6$,I+1:DEBNAVN$(14:12)«, l3=0x20}
0x2277…2290 Line {l1=0x17, l2=»3040 EXEC FEJL(3,8,K6$)«, l3=0x17}
0x2290…22b1 Line {l1=0x1f, l2=»3050 GET K6$,I+2:DEBGADE$(1:13)«, l3=0x1f}
0x22b1…22ca Line {l1=0x17, l2=»3060 EXEC FEJL(3,9,K6$)«, l3=0x17}
0x22ca…22ec Line {l1=0x20, l2=»3070 GET K6$,I+3:DEBGADE$(14:12)«, l3=0x20}
0x22ec…2306 Line {l1=0x18, l2=»3080 EXEC FEJL(3,10,K6$)«, l3=0x18}
0x2306…232c Line {l1=0x24, l2=»3090 GET K6$,I+4:DPOSTNR,DEBBY$(1:9)«, l3=0x24}
0x232c…2346 Line {l1=0x18, l2=»3100 EXEC FEJL(3,11,K6$)«, l3=0x18}
0x2346…2366 Line {l1=0x1e, l2=»3110 GET K6$,I+5:DEBBY$(10:11)«, l3=0x1e}
0x2366…2380 Line {l1=0x18, l2=»3120 EXEC FEJL(3,12,K6$)«, l3=0x18}
0x2380…239c Line {l1=0x1a, l2=»3130 I=I+6;ANPOST=ANPOST-6«, l3=0x1a}
0x239c…23a9 Line {l1=0x0b, l2=»3140 ENDIF «, l3=0x0b}
0x23a9…23c7 Line {l1=0x1c, l2=»3150 SIDE=1;LINIE=1;POSTER=0«, l3=0x1c}
0x23c7…23d5 Line {l1=0x0c, l2=»3160 REPEAT «, l3=0x0c}
0x23d5…23ec Line {l1=0x15, l2=»3170 EXEC TOMLINIE(6)«, l3=0x15}
0x23ec…2407 Line {l1=0x19, l2=»3180 IF FAKKRE$="F" THEN «, l3=0x19}
0x2407…2417 Line {l1=0x0e, l2=»3190 PRINT " "«, l3=0x0e}
0x2417…2423 Line {l1=0x0a, l2=»3200 ELSE «, l3=0x0a}
0x2423…2444 Line {l1=0x1f, l2=»3210 PRINT TAB(49);"Kreditnota"«, l3=0x1f}
0x2444…2451 Line {l1=0x0b, l2=»3220 ENDIF «, l3=0x0b}
0x2451…2466 Line {l1=0x13, l2=»3230 PRINT TAB(66);«, l3=0x13}
0x2466…2481 Line {l1=0x19, l2=»3240 IF FAKKRE$="F" THEN «, l3=0x19}
0x2481…24a4 Line {l1=0x21, l2=»3250 PRINT USING "#######":FAKTNR«, l3=0x21}
0x24a4…24c8 Line {l1=0x22, l2=»3260 FAKTNR=FAKTNR+1;AFAKT=AFAKT-1«, l3=0x22}
0x24c8…24d4 Line {l1=0x0a, l2=»3270 ELSE «, l3=0x0a}
0x24d4…24f7 Line {l1=0x21, l2=»3280 PRINT USING "#######":KREDNR«, l3=0x21}
0x24f7…251b Line {l1=0x22, l2=»3290 KREDNR=KREDNR+1;AKRED=AKRED-1«, l3=0x22}
0x251b…2528 Line {l1=0x0b, l2=»3300 ENDIF «, l3=0x0b}
0x2528…2544 Line {l1=0x1a, l2=»3310 PRINT TAB(9);DEBNAVN$«, l3=0x1a}
0x2544…2569 Line {l1=0x23, l2=»3320 PRINT TAB(9);DEBGADE$;TAB(66);«, l3=0x23}
0x2569…258d Line {l1=0x22, l2=»3330 PRINT USING "#######":KUNDENR«, l3=0x22}
0x258d…25a1 Line {l1=0x12, l2=»3340 PRINT TAB(6);«, l3=0x12}
0x25a1…25c6 Line {l1=0x23, l2=»3350 PRINT USING "#######":DPOSTNR;«, l3=0x23}
0x25c6…25e1 Line {l1=0x19, l2=»3360 PRINT TAB(14);DEBBY$«, l3=0x19}
0x25e1…25fb Line {l1=0x18, l2=»3370 EXEC DATOUD(ORDRED)«, l3=0x18}
0x25fb…260b Line {l1=0x0e, l2=»3380 PRINT " "«, l3=0x0e}
0x260b…2620 Line {l1=0x13, l2=»3390 PRINT TAB(66);«, l3=0x13}
0x2620…2644 Line {l1=0x22, l2=»3400 PRINT USING "#######":ORDRENR«, l3=0x22}
0x2644…2653 Line {l1=0x0d, l2=»3410 PRINT ""«, l3=0x0d}
0x2653…266c Line {l1=0x17, l2=»3420 EXEC DATOUD(FDATO)«, l3=0x17}
0x266c…267c Line {l1=0x0e, l2=»3430 PRINT " "«, l3=0x0e}
0x267c…269f Line {l1=0x21, l2=»3440 IF KOD$>"H" AND SIDE=1 THEN «, l3=0x21}
0x269f…26bc Line {l1=0x1b, l2=»3450 KOD$=CHR(ORD(KOD$)-11)«, l3=0x1b}
0x26bc…26cc Line {l1=0x0e, l2=»3460 PRINT " "«, l3=0x0e}
0x26cc…26d8 Line {l1=0x0a, l2=»3470 ELSE «, l3=0x0a}
0x26d8…26fb Line {l1=0x21, l2=»3480 LEVTEKST$=BLANK$+BLANK$+" "«, l3=0x21}
0x26fb…2710 Line {l1=0x13, l2=»3490 FOR J=I TO I+3«, l3=0x13}
0x2710…2739 Line {l1=0x27, l2=»3500 GET K6$,J:LEVTEKST$((J-I)*13+1:13)«, l3=0x27}
0x2739…2753 Line {l1=0x18, l2=»3510 EXEC FEJL(3,13,K6$)«, l3=0x18}
0x2753…2760 Line {l1=0x0b, l2=»3520 NEXT J«, l3=0x0b}
0x2760…277c Line {l1=0x1a, l2=»3530 ANPOST=ANPOST-4;I=I+4«, l3=0x1a}
0x277c…279a Line {l1=0x1c, l2=»3540 PRINT TAB(19);LEVTEKST$«, l3=0x1c}
0x279a…27a7 Line {l1=0x0b, l2=»3550 ENDIF «, l3=0x0b}
0x27a7…27be Line {l1=0x15, l2=»3560 EXEC TOMLINIE(2)«, l3=0x15}
0x27be…27d4 Line {l1=0x14, l2=»3570 IF SIDE=2 THEN «, l3=0x14}
0x27d4…27fc Line {l1=0x26, l2=»3580 PRINT TAB(24);"Subtotal";TAB(66);«, l3=0x26}
0x27fc…281d Line {l1=0x1f, l2=»3590 EXEC TUD(TOTAL$,TAL4$,1,0)«, l3=0x1f}
0x281d…282b Line {l1=0x0c, l2=»3600 LINIE=2«, l3=0x0c}
0x282b…2838 Line {l1=0x0b, l2=»3610 ENDIF «, l3=0x0b}
0x2838…2846 Line {l1=0x0c, l2=»3620 REPEAT «, l3=0x0c}
0x2846…285a Line {l1=0x12, l2=»3630 CASE KOD$ OF «, l3=0x12}
0x285a…2866 Line {l1=0x0a, l2=»3640 STOP «, l3=0x0a}
0x2866…2875 Line {l1=0x0d, l2=»3650 WHEN "A"«, l3=0x0d}
0x2875…2886 Line {l1=0x0f, l2=»3660 EXEC VPOST«, l3=0x0f}
0x2886…28c0 Line {l1=0x38, l2=»3670 EXEC FINDPOST1(VTAB1,VTAB,MVANTAL,VARENR,VPIL3,K3$)«, l3=0x38}
0x28c0…28db Line {l1=0x19, l2=»3680 IF CEKS=1 THEN STOP «, l3=0x19}
0x28db…28f0 Line {l1=0x13, l2=»3690 EXEC HENTVPOST«, l3=0x13}
0x28f0…28ff Line {l1=0x0d, l2=»3700 EXEC VUD«, l3=0x0d}
0x28ff…290e Line {l1=0x0d, l2=»3710 WHEN "B"«, l3=0x0d}
0x290e…2922 Line {l1=0x12, l2=»3720 EXEC BPOST(1)«, l3=0x12}
0x2922…2958 Line {l1=0x34, l2=»3730 PRO$=" 0,"+VARPRIS$(7:2)+VARPRIS$(10:2)+"-"«, l3=0x34}
0x2958…2982 Line {l1=0x28, l2=»3740 IF VARPRIS$(7)=" " THEN PRO$(8)="0"«, l3=0x28}
0x2982…29a9 Line {l1=0x25, l2=»3750 EXEC CALC(2,PRO$,GBELØB$,BELØB$)«, l3=0x25}
0x29a9…29d1 Line {l1=0x26, l2=»3760 EXEC CALC(0,TOTAL$,BELØB$,TOTAL$)«, l3=0x26}
0x29d1…2a02 Line {l1=0x2f, l2=»3770 PRINT TAB(24);VARPRIS$(1:11);" %";TAB(66);«, l3=0x2f}
0x2a02…2a23 Line {l1=0x1f, l2=»3780 EXEC TUD(BELØB$,TAL4$,1,0)«, l3=0x1f}
0x2a23…2a39 Line {l1=0x14, l2=»3790 VARKONT=RABATNR«, l3=0x14}
0x2a39…2a5b Line {l1=0x20, l2=»3800 IF GEN=0 THEN EXEC VJOURNAL«, l3=0x20}
0x2a5b…2a6a Line {l1=0x0d, l2=»3810 WHEN "C"«, l3=0x0d}
0x2a6a…2a7e Line {l1=0x12, l2=»3820 EXEC BPOST(0)«, l3=0x12}
0x2a7e…2aa6 Line {l1=0x26, l2=»3830 PRINT TAB(24);"Subtotal";TAB(66);«, l3=0x26}
0x2aa6…2ac7 Line {l1=0x1f, l2=»3840 EXEC TUD(BELØB$,TAL4$,1,0)«, l3=0x1f}
0x2ac7…2adc Line {l1=0x13, l2=»3850 GBELØB$=BELØB$«, l3=0x13}
0x2adc…2aeb Line {l1=0x0d, l2=»3860 WHEN "D"«, l3=0x0d}
0x2aeb…2afc Line {l1=0x0f, l2=»3870 EXEC TPOST«, l3=0x0f}
0x2afc…2b1a Line {l1=0x1c, l2=»3880 PRINT TAB(24);VARTEKST$«, l3=0x1c}
0x2b1a…2b29 Line {l1=0x0d, l2=»3890 WHEN "E"«, l3=0x0d}
0x2b29…2b3a Line {l1=0x0f, l2=»3900 EXEC TPOST«, l3=0x0f}
0x2b3a…2b4e Line {l1=0x12, l2=»3910 EXEC BPOST(0)«, l3=0x12}
0x2b4e…2b75 Line {l1=0x25, l2=»3920 PRINT TAB(24);VARTEKST$;TAB(66);«, l3=0x25}
0x2b75…2b96 Line {l1=0x1f, l2=»3930 EXEC TUD(BELØB$,TAL4$,1,0)«, l3=0x1f}
0x2b96…2bbe Line {l1=0x26, l2=»3940 EXEC CALC(0,TOTAL$,BELØB$,TOTAL$)«, l3=0x26}
0x2bbe…2be1 Line {l1=0x21, l2=»3950 GBELØB$=BELØB$;VARKONT=DIVNR«, l3=0x21}
0x2be1…2c03 Line {l1=0x20, l2=»3960 IF GEN=0 THEN EXEC VJOURNAL«, l3=0x20}
0x2c03…2c12 Line {l1=0x0d, l2=»3970 WHEN "F"«, l3=0x0d}
0x2c12…2c23 Line {l1=0x0f, l2=»3980 EXEC VPOST«, l3=0x0f}
0x2c23…2c5d Line {l1=0x38, l2=»3990 EXEC FINDPOST1(VTAB1,VTAB,MVANTAL,VARENR,VPIL3,K3$)«, l3=0x38}
0x2c5d…2c78 Line {l1=0x19, l2=»4000 IF CEKS=1 THEN STOP «, l3=0x19}
0x2c78…2c8d Line {l1=0x13, l2=»4010 EXEC HENTVPOST«, l3=0x13}
0x2c8d…2ca1 Line {l1=0x12, l2=»4020 EXEC BPOST(1)«, l3=0x12}
0x2ca1…2cb0 Line {l1=0x0d, l2=»4030 EXEC VUD«, l3=0x0d}
0x2cb0…2cbf Line {l1=0x0d, l2=»4040 WHEN "G"«, l3=0x0d}
0x2cbf…2cd0 Line {l1=0x0f, l2=»4050 EXEC TPOST«, l3=0x0f}
0x2cd0…2ce7 Line {l1=0x15, l2=»4060 VARTH$=VARTEKST$«, l3=0x15}
0x2ce7…2cf8 Line {l1=0x0f, l2=»4070 EXEC VPOST«, l3=0x0f}
0x2cf8…2d32 Line {l1=0x38, l2=»4080 EXEC FINDPOST1(VTAB1,VTAB,MVANTAL,VARENR,VPIL3,K3$)«, l3=0x38}
0x2d32…2d4d Line {l1=0x19, l2=»4090 IF CEKS=1 THEN STOP «, l3=0x19}
0x2d4d…2d62 Line {l1=0x13, l2=»4100 EXEC HENTVPOST«, l3=0x13}
0x2d62…2d79 Line {l1=0x15, l2=»4110 VARTEKST$=VARTH$«, l3=0x15}
0x2d79…2d88 Line {l1=0x0d, l2=»4120 EXEC VUD«, l3=0x0d}
0x2d88…2d97 Line {l1=0x0d, l2=»4130 WHEN "H"«, l3=0x0d}
0x2d97…2da8 Line {l1=0x0f, l2=»4140 EXEC TPOST«, l3=0x0f}
0x2da8…2dbf Line {l1=0x15, l2=»4150 VARTH$=VARTEKST$«, l3=0x15}
0x2dbf…2dd0 Line {l1=0x0f, l2=»4160 EXEC VPOST«, l3=0x0f}
0x2dd0…2e0a Line {l1=0x38, l2=»4170 EXEC FINDPOST1(VTAB1,VTAB,MVANTAL,VARENR,VPIL3,K3$)«, l3=0x38}
0x2e0a…2e25 Line {l1=0x19, l2=»4180 IF CEKS=1 THEN STOP «, l3=0x19}
0x2e25…2e3a Line {l1=0x13, l2=»4190 EXEC HENTVPOST«, l3=0x13}
0x2e3a…2e51 Line {l1=0x15, l2=»4200 VARTEKST$=VARTH$«, l3=0x15}
0x2e51…2e65 Line {l1=0x12, l2=»4210 EXEC BPOST(1)«, l3=0x12}
0x2e65…2e74 Line {l1=0x0d, l2=»4220 EXEC VUD«, l3=0x0d}
0x2e74…2e83 Line {l1=0x0d, l2=»4230 ENDCASE «, l3=0x0d}
0x2e83…2e97 Line {l1=0x12, l2=»4240 LINIE=LINIE+1«, l3=0x12}
0x2e97…2ec0 Line {l1=0x27, l2=»4250 UNTIL POSTER=>ANPOST-5 OR LINIE=22«, l3=0x27}
0x2ec0…2eec Line {l1=0x2a, l2=»4260 IF LINIE=22 AND POSTER<ANPOST-5 THEN «, l3=0x2a}
0x2eec…2f1f Line {l1=0x31, l2=»4270 SIDE=2;ANPOST=ANPOST-POSTER;POSTER=0;LINIE=1«, l3=0x31}
0x2f1f…2f47 Line {l1=0x26, l2=»4280 PRINT TAB(24);"Subtotal";TAB(66);«, l3=0x26}
0x2f47…2f68 Line {l1=0x1f, l2=»4290 EXEC TUD(TOTAL$,TAL4$,1,0)«, l3=0x1f}
0x2f68…2f7f Line {l1=0x15, l2=»4300 EXEC TOMLINIE(6)«, l3=0x15}
0x2f7f…2f8c Line {l1=0x0b, l2=»4310 ENDIF «, l3=0x0b}
0x2f8c…2fa9 Line {l1=0x1b, l2=»4320 UNTIL POSTER=>ANPOST-5«, l3=0x1b}
0x2fa9…2fbd Line {l1=0x12, l2=»4330 EXEC BPOST(0)«, l3=0x12}
0x2fbd…2fe0 Line {l1=0x21, l2=»4340 FORS$=BELØB$;VARKONT=FRAGTNR«, l3=0x21}
0x2fe0…2ff4 Line {l1=0x12, l2=»4350 EXEC VJOURNAL«, l3=0x12}
0x2ff4…3008 Line {l1=0x12, l2=»4360 EXEC BPOST(0)«, l3=0x12}
0x3008…301c Line {l1=0x12, l2=»4370 MOMSH$=BELØB$«, l3=0x12}
0x301c…3030 Line {l1=0x12, l2=»4380 EXEC BPOST(0)«, l3=0x12}
0x3030…3045 Line {l1=0x13, l2=»4390 FTOTAL$=BELØB$«, l3=0x13}
0x3045…3063 Line {l1=0x1c, l2=»4400 EXEC TOMLINIE(25-LINIE)«, l3=0x1c}
0x3063…308a Line {l1=0x25, l2=»4410 EXEC CALC(0,FORS$,TOTAL$,TOTAL$)«, l3=0x25}
0x308a…30af Line {l1=0x23, l2=»4420 EXEC CALC(5,FORS$,FORS$,TAL4$)«, l3=0x23}
0x30af…30d8 Line {l1=0x27, l2=»4430 PRINT TAB(16);TAL4$(4:10);TAB(29);«, l3=0x27}
0x30d8…30f9 Line {l1=0x1f, l2=»4440 EXEC TUD(TOTAL$,TAL4$,1,0)«, l3=0x1f}
0x30f9…3122 Line {l1=0x27, l2=»4450 PRINT TAB(44);MOMSH$(7:5);TAB(51);«, l3=0x27}
0x3122…314b Line {l1=0x27, l2=»4460 EXEC CALC(1,FTOTAL$,TOTAL$,BELØB$)«, l3=0x27}
0x314b…316c Line {l1=0x1f, l2=»4470 EXEC TUD(BELØB$,TAL4$,1,0)«, l3=0x1f}
0x316c…3183 Line {l1=0x15, l2=»4480 VARKONT=UDMOMSNR«, l3=0x15}
0x3183…3197 Line {l1=0x12, l2=»4490 EXEC VJOURNAL«, l3=0x12}
0x3197…31ac Line {l1=0x13, l2=»4500 PRINT TAB(66);«, l3=0x13}
0x31ac…31ce Line {l1=0x20, l2=»4510 EXEC TUD(FTOTAL$,TAL4$,1,0)«, l3=0x20}
0x31ce…31de Line {l1=0x0e, l2=»4520 PRINT " "«, l3=0x0e}
0x31de…31f5 Line {l1=0x15, l2=»4530 EXEC TOMLINIE(2)«, l3=0x15}
0x31f5…320a Line {l1=0x13, l2=»4540 IF GEN=0 THEN «, l3=0x13}
0x320a…321b Line {l1=0x0f, l2=»4550 OPEN K7$,W«, l3=0x0f}
0x321b…3234 Line {l1=0x17, l2=»4560 EXEC FEJL(4,1,K7$)«, l3=0x17}
0x3234…324a Line {l1=0x14, l2=»4570 FJPOST=FJPOST+1«, l3=0x14}
0x324a…3265 Line {l1=0x19, l2=»4580 IF FAKKRE$="K" THEN «, l3=0x19}
0x3265…328b Line {l1=0x24, l2=»4590 FTOTAL$(12)="-";VARENR=KREDNR-1«, l3=0x24}
0x328b…3297 Line {l1=0x0a, l2=»4600 ELSE «, l3=0x0a}
0x3297…32ad Line {l1=0x14, l2=»4610 VARENR=FAKTNR-1«, l3=0x14}
0x32ad…32ba Line {l1=0x0b, l2=»4620 ENDIF «, l3=0x0b}
0x32ba…32ec Line {l1=0x30, l2=»4630 PUT K7$,FJPOST:KUNDENR,FTOTAL$,VARENR,FDATO«, l3=0x30}
0x32ec…3305 Line {l1=0x17, l2=»4640 EXEC FEJL(4,2,K7$)«, l3=0x17}
0x3305…3319 Line {l1=0x12, l2=»4650 BELØB$=ÅRKØB$«, l3=0x12}
0x3319…3329 Line {l1=0x0e, l2=»4660 CLOSE K7$«, l3=0x0e}
0x3329…3342 Line {l1=0x17, l2=»4670 EXEC FEJL(4,3,K7$)«, l3=0x17}
0x3342…336b Line {l1=0x27, l2=»4680 IF FAKKRE$="K" THEN TOTAL$(12)="-"«, l3=0x27}
0x336b…3395 Line {l1=0x28, l2=»4690 EXEC CALC(0,MDNKØB$,TOTAL$,MDNKØB$)«, l3=0x28}
0x3395…33bd Line {l1=0x26, l2=»4700 EXEC CALC(0,BELØB$,TOTAL$,BELØB$)«, l3=0x26}
0x33bd…33d1 Line {l1=0x12, l2=»4710 ÅRKØB$=BELØB$«, l3=0x12}
0x33d1…33e5 Line {l1=0x12, l2=»4720 EXEC GEMDPOST«, l3=0x12}
0x33e5…33f2 Line {l1=0x0b, l2=»4730 ENDIF «, l3=0x0b}
0x33f2…3409 Line {l1=0x15, l2=»4740 UNTIL I=>APOSTER«, l3=0x15}
0x3409…3418 Line {l1=0x0d, l2=»4750 OUTPUT T«, l3=0x0d}
0x3418…3426 Line {l1=0x0c, l2=»4760 REPEAT «, l3=0x0c}
0x3426…3433 Line {l1=0x0b, l2=»4770 CLEAR «, l3=0x0b}
0x3433…3446 Line {l1=0x11, l2=»4780 CURSOR 20,10«, l3=0x11}
0x3446…3475 Line {l1=0x2d, l2=»4790 INPUT "Ønskes ny udskrift (J/N):",SVAR1$«, l3=0x2d}
0x3475…34b6 Line {l1=0x3f, l2=»4800 UNTIL SVAR1$="J" OR SVAR1$="N" OR SVAR1$="j" OR SVAR1$="n"«, l3=0x3f}
0x34b6…34de Line {l1=0x26, l2=»4810 IF SVAR1$="J" OR SVAR1$="j" THEN «, l3=0x26}
0x34de…34ef Line {l1=0x0f, l2=»4820 OPEN K9$,R«, l3=0x0f}
0x34ef…3508 Line {l1=0x17, l2=»4830 EXEC FEJL(6,1,K9$)«, l3=0x17}
0x3508…3526 Line {l1=0x1c, l2=»4840 GET K9$,2:FAKTNR,KREDNR«, l3=0x1c}
0x3526…353f Line {l1=0x17, l2=»4850 EXEC FEJL(6,2,K9$)«, l3=0x17}
0x353f…354f Line {l1=0x0e, l2=»4860 CLOSE K9$«, l3=0x0e}
0x354f…3568 Line {l1=0x17, l2=»4870 EXEC FEJL(6,3,K9$)«, l3=0x17}
0x3568…3574 Line {l1=0x0a, l2=»4880 GEN=1«, l3=0x0a}
0x3574…3581 Line {l1=0x0b, l2=»4890 ENDIF «, l3=0x0b}
0x3581…35a6 Line {l1=0x23, l2=»4900 UNTIL SVAR1$="N" OR SVAR1$="n"«, l3=0x23}
0x35a6…35bd Line {l1=0x15, l2=»4910 APOSTER=STPOST-1«, l3=0x15}
0x35bd…35ca Line {l1=0x0b, l2=»4920 ENDIF «, l3=0x0b}
0x35ca…35e0 Line {l1=0x14, l2=»4930 PROC DATOUD(DA)«, l3=0x14}
0x35e0…35f5 Line {l1=0x13, l2=»4940 PRINT TAB(67);«, l3=0x13}
0x35f5…3624 Line {l1=0x2d, l2=»4950 PRINT USING "###.##":(DA MOD 10000)/100;«, l3=0x2d}
0x3624…3639 Line {l1=0x13, l2=»4960 PRINT TAB(64);«, l3=0x13}
0x3639…3664 Line {l1=0x29, l2=»4970 PRINT USING "###.#":(DA DIV 1000)/10«, l3=0x29}
0x3664…3673 Line {l1=0x0d, l2=»4980 ENDPROC «, l3=0x0d}
0x3673…3684 Line {l1=0x0f, l2=»4990 PROC VPOST«, l3=0x0f}
0x3684…36a0 Line {l1=0x1a, l2=»5000 ANTAL$=" ,00+"«, l3=0x1a}
0x36a0…36c8 Line {l1=0x26, l2=»5010 GET K6$,I:VARENR,ANTAL$(4:5),KOD$«, l3=0x26}
0x36c8…36e1 Line {l1=0x17, l2=»5020 EXEC FEJL(5,1,K6$)«, l3=0x17}
0x36e1…36fd Line {l1=0x1a, l2=»5030 POSTER=POSTER+1;I=I+1«, l3=0x1a}
0x36fd…370c Line {l1=0x0d, l2=»5040 ENDPROC «, l3=0x0d}
0x370c…3721 Line {l1=0x13, l2=»5050 PROC BPOST(SL)«, l3=0x13}
0x3721…3736 Line {l1=0x13, l2=»5060 GET K6$,I:TEK$«, l3=0x13}
0x3736…374f Line {l1=0x17, l2=»5070 EXEC FEJL(6,1,K6$)«, l3=0x17}
0x374f…376b Line {l1=0x1a, l2=»5080 POSTER=POSTER+1;I=I+1«, l3=0x1a}
0x376b…377f Line {l1=0x12, l2=»5090 IF SL=0 THEN «, l3=0x12}
0x377f…3791 Line {l1=0x10, l2=»5100 BELØB$=TEK$«, l3=0x10}
0x3791…379d Line {l1=0x0a, l2=»5110 ELSE «, l3=0x0a}
0x379d…37b1 Line {l1=0x12, l2=»5120 VARPRIS$=TEK$«, l3=0x12}
0x37b1…37be Line {l1=0x0b, l2=»5130 ENDIF «, l3=0x0b}
0x37be…37d2 Line {l1=0x12, l2=»5140 KOD$=TEK$(13)«, l3=0x12}
0x37d2…37e1 Line {l1=0x0d, l2=»5150 ENDPROC «, l3=0x0d}
0x37e1…37f2 Line {l1=0x0f, l2=»5160 PROC TPOST«, l3=0x0f}
0x37f2…3809 Line {l1=0x15, l2=»5170 VARTEKST$=BLANK$«, l3=0x15}
0x3809…3829 Line {l1=0x1e, l2=»5180 GET K6$,I:VARTEKST$(1:13)«, l3=0x1e}
0x3829…3842 Line {l1=0x17, l2=»5190 EXEC FEJL(7,1,K6$)«, l3=0x17}
0x3842…384e Line {l1=0x0a, l2=»5200 I=I+1«, l3=0x0a}
0x384e…3863 Line {l1=0x13, l2=»5210 GET K6$,I:TEK$«, l3=0x13}
0x3863…387c Line {l1=0x17, l2=»5220 EXEC FEJL(7,2,K6$)«, l3=0x17}
0x387c…388f Line {l1=0x11, l2=»5230 LE=LEN(TEK$)«, l3=0x11}
0x388f…38a3 Line {l1=0x12, l2=»5240 IF LE>1 THEN «, l3=0x12}
0x38a3…38c1 Line {l1=0x1c, l2=»5250 VARTEKST$(14:LE-1)=TEK$«, l3=0x1c}
0x38c1…38ce Line {l1=0x0b, l2=»5260 ENDIF «, l3=0x0b}
0x38ce…38f8 Line {l1=0x28, l2=»5270 KOD$=TEK$(LE);I=I+1;POSTER=POSTER+2«, l3=0x28}
0x38f8…3907 Line {l1=0x0d, l2=»5280 ENDPROC «, l3=0x0d}
0x3907…3916 Line {l1=0x0d, l2=»5290 PROC VUD«, l3=0x0d}
0x3916…392a Line {l1=0x12, l2=»5300 PRINT TAB(7);«, l3=0x12}
0x392a…394e Line {l1=0x22, l2=»5310 PRINT USING "#######":VARENR;«, l3=0x22}
0x394e…3989 Line {l1=0x39, l2=»5320 PRINT TAB(16);ANTAL$(4:5);TAB(24);VARTEKST$;TAB(51);«, l3=0x39}
0x3989…39ac Line {l1=0x21, l2=»5330 EXEC TUD(VARPRIS$,TAL4$,1,0)«, l3=0x21}
0x39ac…39c1 Line {l1=0x13, l2=»5340 PRINT TAB(66);«, l3=0x13}
0x39c1…39eb Line {l1=0x28, l2=»5350 EXEC CALC(2,VARPRIS$,ANTAL$,BELØB$)«, l3=0x28}
0x39eb…3a0c Line {l1=0x1f, l2=»5360 EXEC TUD(BELØB$,TAL4$,1,0)«, l3=0x1f}
0x3a0c…3a21 Line {l1=0x13, l2=»5370 GBELØB$=BELØB$«, l3=0x13}
0x3a21…3a49 Line {l1=0x26, l2=»5380 EXEC CALC(0,TOTAL$,BELØB$,TOTAL$)«, l3=0x26}
0x3a49…3a6b Line {l1=0x20, l2=»5390 IF GEN=0 THEN EXEC VJOURNAL«, l3=0x20}
0x3a6b…3a7a Line {l1=0x0d, l2=»5400 ENDPROC «, l3=0x0d}
0x3a7a…3a8e Line {l1=0x12, l2=»5410 PROC VJOURNAL«, l3=0x12}
0x3a8e…3aa3 Line {l1=0x13, l2=»5420 IF GEN=0 THEN «, l3=0x13}
0x3aa3…3ab4 Line {l1=0x0f, l2=»5430 EJFUNDET=0«, l3=0x0f}
0x3ab4…3acd Line {l1=0x17, l2=»5440 FOR M=1 TO AVKONTI«, l3=0x17}
0x3acd…3af0 Line {l1=0x21, l2=»5450 IF VJOURARR(M)=VARKONT THEN «, l3=0x21}
0x3af0…3b0b Line {l1=0x19, l2=»5460 IF FAKKRE$="F" THEN «, l3=0x19}
0x3b0b…3b3f Line {l1=0x32, l2=»5470 EXEC CALC(1,VBJOUARR$(M),BELØB$,VBJOUARR$(M))«, l3=0x32}
0x3b3f…3b4b Line {l1=0x0a, l2=»5480 ELSE «, l3=0x0a}
0x3b4b…3b7f Line {l1=0x32, l2=»5490 EXEC CALC(0,VBJOUARR$(M),BELØB$,VBJOUARR$(M))«, l3=0x32}
0x3b7f…3b8c Line {l1=0x0b, l2=»5500 ENDIF «, l3=0x0b}
0x3b8c…3ba7 Line {l1=0x19, l2=»5510 M=AVKONTI;EJFUNDET=1«, l3=0x19}
0x3ba7…3bb4 Line {l1=0x0b, l2=»5520 ENDIF «, l3=0x0b}
0x3bb4…3bc1 Line {l1=0x0b, l2=»5530 NEXT M«, l3=0x0b}
0x3bc1…3bdb Line {l1=0x18, l2=»5540 IF EJFUNDET=0 THEN «, l3=0x18}
0x3bdb…3bf5 Line {l1=0x18, l2=»5550 IF AVKONTI<50 THEN «, l3=0x18}
0x3bf5…3c41 Line {l1=0x4a, l2=»5560 AVKONTI=AVKONTI+1;VJOURARR(AVKONTI)=VARKONT;VBJOUARR$(AVKONTI)=BELØB$«, l3=0x4a}
0x3c41…3c5c Line {l1=0x19, l2=»5570 IF FAKKRE$="F" THEN «, l3=0x19}
0x3c5c…3c7a Line {l1=0x1c, l2=»5580 IF BELØB$(12)="+" THEN «, l3=0x1c}
0x3c7a…3c9a Line {l1=0x1e, l2=»5590 VBJOUARR$(AVKONTI,12)="-"«, l3=0x1e}
0x3c9a…3ca6 Line {l1=0x0a, l2=»5600 ELSE «, l3=0x0a}
0x3ca6…3cc6 Line {l1=0x1e, l2=»5610 VBJOUARR$(AVKONTI,12)="+"«, l3=0x1e}
0x3cc6…3cd3 Line {l1=0x0b, l2=»5620 ENDIF «, l3=0x0b}
0x3cd3…3ce0 Line {l1=0x0b, l2=»5630 ENDIF «, l3=0x0b}
0x3ce0…3cec Line {l1=0x0a, l2=»5640 ELSE «, l3=0x0a}
0x3cec…3cf8 Line {l1=0x0a, l2=»5650 STOP «, l3=0x0a}
0x3cf8…3d05 Line {l1=0x0b, l2=»5660 ENDIF «, l3=0x0b}
0x3d05…3d12 Line {l1=0x0b, l2=»5670 ENDIF «, l3=0x0b}
0x3d12…3d1f Line {l1=0x0b, l2=»5680 ENDIF «, l3=0x0b}
0x3d1f…3d2e Line {l1=0x0d, l2=»5690 ENDPROC «, l3=0x0d}
0x3d2e…3d4a Line {l1=0x1a, l2=»5700 PROC TOMLINIE(ANTLIN)«, l3=0x1a}
0x3d4a…3d65 Line {l1=0x19, l2=»5710 FOR ANLI=1 TO ANTLIN«, l3=0x19}
0x3d65…3d75 Line {l1=0x0e, l2=»5720 PRINT " "«, l3=0x0e}
0x3d75…3d85 Line {l1=0x0e, l2=»5730 NEXT ANLI«, l3=0x0e}
0x3d85…3d94 Line {l1=0x0d, l2=»5740 ENDPROC «, l3=0x0d}
0x3d94…3da5 Line {l1=0x0f, l2=»5750 OPEN K8$,W«, l3=0x0f}
0x3da5…3dbe Line {l1=0x17, l2=»5760 EXEC FEJL(8,1,K8$)«, l3=0x17}
0x3dbe…3dd7 Line {l1=0x17, l2=»5770 FOR I=1 TO AVKONTI«, l3=0x17}
0x3dd7…3e00 Line {l1=0x27, l2=»5780 PUT K8$,I:VJOURARR(I),VBJOUARR$(I)«, l3=0x27}
0x3e00…3e19 Line {l1=0x17, l2=»5790 EXEC FEJL(8,2,K8$)«, l3=0x17}
0x3e19…3e26 Line {l1=0x0b, l2=»5800 NEXT I«, l3=0x0b}
0x3e26…3e36 Line {l1=0x0e, l2=»5810 CLOSE K8$«, l3=0x0e}
0x3e36…3e4f Line {l1=0x17, l2=»5820 EXEC FEJL(8,3,K8$)«, l3=0x17}
0x3e4f…3e5e Line {l1=0x0d, l2=»5830 OUTPUT T«, l3=0x0d}
0x3e5e…3e87 Line {l1=0x27, l2=»5840 TE$=" Programvalg "«, l3=0x27}
0x3e87…3e96 Line {l1=0x0d, l2=»5850 EXEC BIL«, l3=0x0d}
0x3e96…3ea8 Line {l1=0x10, l2=»5860 EXEC SYSGEM«, l3=0x10}
0x3ea8…3ec6 Line {l1=0x1c, l2=»5870 CHAIN "P641210:OPSTART"«, l3=0x1c}
0x3ec6…3ed1 Line {l1=0x09, l2=»5880 END «, l3=0x09}
0x3ed1…3ee0 Line {l1=0x0d, l2=»5890 PROC BIL«, l3=0x0d}
0x3ee0…3eed Line {l1=0x0b, l2=»5900 CLEAR «, l3=0x0b}
0x3eed…3eff Line {l1=0x10, l2=»5910 CURSOR 20,9«, l3=0x10}
0x3eff…3f37 Line {l1=0x36, l2=»5920 PRINT "*****************************************"«, l3=0x36}
0x3f37…3f4a Line {l1=0x11, l2=»5930 CURSOR 20,10«, l3=0x11}
0x3f4a…3f66 Line {l1=0x1a, l2=»5940 PRINT "*";TAB(41);"*"«, l3=0x1a}
0x3f66…3f96 Line {l1=0x2e, l2=»5950 PRINT TAB(20);"*";TAB(30);TE$;TAB(60);"*"«, l3=0x2e}
0x3f96…3fba Line {l1=0x22, l2=»5960 PRINT TAB(20);"*";TAB(60);"*"«, l3=0x22}
0x3fba…3ffa Line {l1=0x3e, l2=»5970 PRINT TAB(20);"*****************************************"«, l3=0x3e}
0x3ffa…4009 Line {l1=0x0d, l2=»5980 ENDPROC «, l3=0x0d}
0x4009…4020 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ ccccccccccccccccccccc┆
0x4020…4040 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┆
[…0x27…]