|
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: 7584 (0x1da0)
Types: TextFile
Notes: Mikados_K
Names: »FJOUR.K«
└─⟦ec8c1e0b0⟧ Bits:30007442 8" floppy ( MIKPROG vol. 1-3, MIKREL vol. 1-3, PCSE 4.7.80 vol 1-3, GL.SYS )
└─⟦this⟧ »FJOUR.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) 0140 DIM KOD1$(1),KOD$(1),TAL4$(14),SVAR1$(1),VARTEKST$(25) 0150 DIM RES$(14),OP1$(12),OP2$(12),TOTAL$(12),BELØB$(12) 0160 DIM TE$(30),TEKO$(1),F$(1),TK1$(1),TAH$(12),BLB2$(12) 0170 DIM K4$(17),K5$(17),K6$(17),K7$(17),T1(9),T2(9) 0180 PROC CALC(AR3,B1,B2,ES) 0190 OP1$=B1$;OP2$=B2$;RES$=ES$;SI=0;FLAG=0;ART=AR3-6*(AR3>5) 0200 CALL "P641210:REGN" 0210 IF AR3<6 THEN 0220 IF FLAG THEN STOP 0230 ENDIF 0240 ES$=RES$ 0250 ENDPROC 0260 PROC FEJL(NR1,NR2,NR3) 0270 IF STATUS(NR3$)<>0 THEN 0280 PRINT STATUS(NR3$),NR1,NR2,NR3$ 0290 STOP 0300 ENDIF 0310 ENDPROC 0320 PROC TUD(BLB1,UBLB1,TEGN,STØR) 0330 BLB2$=BLB1$ 0340 EXEC CALC(5,BLB2$,TAH$,UBLB1$) 0350 IF TEGN=0 THEN UBLB1$=UBLB1$(1:13) 0360 IF TEGN=1 AND UBLB1$(LEN(UBLB1$))="+" THEN UBLB1$(LEN(UBLB1$))=" " 0370 IF STØR=1 THEN UBLB1$=UBLB1$(4:LEN(UBLB1$)-3) 0380 PRINT UBLB1$ 0390 ENDPROC 0400 PROC FINDPOST1(TAB4,Q,MANT2,NØGL5,PIL6,L8) 0410 PIL1=MANT2 DIV 8;PIL6=PIL1;CEKS=1;MANT3=MANT2 DIV 4;MANT4=MANT2 DIV 32 0420 REPEAT 0430 IF NØGL5=TAB4(PIL6) OR PIL1=1 THEN EXIT 0440 PIL1=(PIL1+1) DIV 2;PIL6=PIL6+PIL1*(1-2*(NØGL5<TAB4(PIL6))) 0450 IF PIL6<1 THEN PIL6=1 0460 IF PIL6>MANT3 THEN PIL6=MANT3 0470 UNTIL PIL1=0 0480 IF TAB4(PIL6)>NØGL5 THEN PIL6=PIL6-1*(PIL6>1) 0490 PIL6=MANT4+PIL6 0500 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) 0510 EXEC FEJL(1,1,L8$) 0520 FOR PIL6=1 TO 4 0530 IF NØGL5=Q(PIL6,1) THEN EXIT 0540 NEXT PIL6 0550 IF PIL6<>5 THEN CEKS=0 0560 ENDPROC 0570 PROC INDTAB1(Z,MANT5,L7) 0580 PIL1=MANT5 DIV 32 0590 FOR I=1 TO PIL1 0600 H=(I-1)*8+1 0610 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) 0620 EXEC FEJL(2,1,L7$) 0630 NEXT I 0640 ENDPROC 0650 PROC HENTDPOST 0660 S=DTAB(DPIL3,2) 0670 GET K3$,S:DEBNR,DEBNAVN$,DSALDO1$,DEBKGR$ 0680 EXEC FEJL(3,1,K3$) 0690 GET K3$,S+1:DSALDO2$,DSALDO3$,DSALDO4$,DPOSTNR,DEBLK$ 0700 EXEC FEJL(3,2,K3$) 0710 GET K3$,S+2:DEBGADE$,DEBTLF$,HPOST,HKUNDE 0720 EXEC FEJL(3,3,K3$) 0730 GET K3$,S+3:DEBBY$,ÅRKØB$,MDNKØB$ 0740 EXEC FEJL(3,4,K3$) 0750 ENDPROC 0760 PROC DATOU(DA) 0770 PRINT TAB(5); 0780 PRINT USING "###.##":(DA MOD 10000)/100; 0790 PRINT TAB(2); 0800 PRINT USING "###.#":(DA DIV 1000)/10; 0810 ENDPROC 0820 K1$="P641220:SYSTEM1" 0830 OPEN K1$,R 0840 EXEC FEJL(9,1,K1$) 0850 GET K1$,1:MFANTAL,MDANTAL 0860 EXEC FEJL(9,2,K1$) 0870 GET K1$,10:N$ 0880 EXEC FEJL(9,3,K1$) 0890 GET K1$,12:K2$ 0900 EXEC FEJL(9,4,K1$) 0910 GET K1$,16:K3$ 0920 EXEC FEJL(9,5,K1$) 0930 GET K1$,28:K4$ 0940 EXEC FEJL(9,6,K1$) 0950 GET K1$,30:K5$ 0960 EXEC FEJL(9,7,K1$) 0970 GET K1$,31:K6$ 0980 EXEC FEJL(9,8,K1$) 0990 GET K1$,36:K7$ 1000 EXEC FEJL(9,9,K1$) 1010 CLOSE K1$ 1020 EXEC FEJL(9,10,K1$) 1030 K2$=N$+K2$;K3$=N$+K3$;K4$=N$+K4$;K5$=N$+K5$;K6$=N$+K6$;K7$=N$+K7$ 1040 DIM DTAB1(MDANTAL DIV 4),DTAB(4,2) 1050 OPEN K2$,R 1060 EXEC FEJL(9,11,K2$) 1070 OPEN K3$,R 1080 EXEC FEJL(9,12,K3$) 1090 EXEC INDTAB1(DTAB1,MDANTAL,K2$) 1100 OPEN K7$,R 1110 EXEC FEJL(9,13,K7$) 1120 GET K7$,2:T1(1),T1(2),T1(3),T1(4),T1(5),T1(6),T1(7),T1(8),T1(9) 1130 EXEC FEJL(9,14,K7$) 1140 GET K7$,12:T2(1),T2(2),T2(3),T2(4),T2(5),T2(6),T2(7),T2(8),T2(9) 1150 EXEC FEJL(9,15,K7$) 1160 CLOSE K7$ 1170 EXEC FEJL(9,16,K7$) 1180 JOURSIDE=T1(3);DATO=T1(7);FAKPOSTNR=T2(3);AVKONTI=T2(7);FJPOST=T2(8) 1190 DIM VJOURARR(AVKONTI),VBJOUARR$(AVKONTI,12) 1200 CLEAR 1210 TOTAL$="0+";TAH$="0+" 1220 OPEN K5$,R 1230 EXEC FEJL(2,1,K5$) 1240 CURSOR 20,10 1250 PRINT "Monter papir til udskrift af fakturajournal." 1260 CURSOR 20,12 1270 INPUT "Tast RETURN.",SVAR1$ 1280 TE$="Der udskrives fakturajournal." 1290 EXEC BIL 1300 OUTPUT P 1310 PRINT " " 1320 PRINT " " 1330 PRINT TAB(27);CHR(14);"Fakturajournal";CHR(15);TAB(52);"Side:";TAB(57); 1340 PRINT USING "#####":JOURSIDE 1350 JOURSIDE=JOURSIDE+1 1360 PRINT " " 1370 PRINT " " 1380 PRINT TAB(5);"Dato Bilag Tekst";TAB(55);"Konto";TAB(68);"Beløb" 1390 PRINT " " 1400 PRINT " " 1410 FOR I=1 TO FJPOST 1420 GET K5$,I:KUNDENR,BELØB$,BILAGSNR,FDATO 1430 EXEC FEJL(2,2,K5$) 1440 EXEC FINDPOST1(DTAB1,DTAB,MDANTAL,KUNDENR,DPIL3,K2$) 1450 IF CEKS=0 THEN EXEC HENTDPOST 1460 EXEC DATOU(FDATO) 1470 PRINT TAB(13); 1480 PRINT USING "#######":BILAGSNR; 1490 PRINT TAB(26);DEBNAVN$;TAB(53); 1500 PRINT USING "#######":KUNDENR; 1510 PRINT TAB(64); 1520 EXEC CALC(0,TOTAL$,BELØB$,TOTAL$) 1530 EXEC TUD(BELØB$,TAL4$,1,0) 1540 OPEN K4$,W 1550 EXEC FEJL(2,3,K4$) 1560 IF BELØB$(12)="+" THEN 1570 TKODE=21 1580 ELSE 1590 TKODE=22 1600 ENDIF 1610 FAKPOSTNR=FAKPOSTNR+1;TEKO$=CHR(48+TKODE);TK1$="3" 1620 PUT K4$,FAKPOSTNR:KUNDENR,FDATO,BILAGSNR,TEKO$,BELØB$,TK1$ 1630 EXEC FEJL(2,4,K4$) 1640 CLOSE K4$ 1650 EXEC FEJL(2,5,K4$) 1660 NEXT I 1670 PRINT TAB(26);"TOTAL";TAB(64); 1680 EXEC TUD(TOTAL$,TAL4$,1,0) 1681 FOR I=1 TO 48-FJPOST-9 1682 PRINT " " 1683 NEXT I 1690 CLOSE K5$ 1700 EXEC FEJL(2,6,K5$) 1710 FJPOST=0 1720 OPEN K6$,R 1730 EXEC FEJL(2,7,K6$) 1740 FOR I=1 TO AVKONTI 1750 GET K6$,I:VJOURARR(I),VBJOUARR$(I) 1760 EXEC FEJL(2,8,K6$) 1770 NEXT I 1780 CLOSE K6$ 1790 EXEC FEJL(2,9,K6$) 1800 TEKO$=CHR(75) 1810 OUTPUT T 1820 OPEN K4$,W 1830 EXEC FEJL(2,10,K4$) 1840 FOR I=1 TO AVKONTI 1850 FAKPOSTNR=FAKPOSTNR+1;TK1$="3" 1860 PUT K4$,FAKPOSTNR:VJOURARR(I),DATO,JOURSIDE-1,TEKO$,VBJOUARR$(I),TK1$ 1870 EXEC FEJL(2,11,K4$) 1880 NEXT I 1890 CLOSE K4$ 1900 EXEC FEJL(2,12,K4$) 1910 TE$=" Programvalg. ";AVKONTI=0 1920 EXEC BIL 1930 T1(3)=JOURSIDE;T2(3)=FAKPOSTNR;T2(7)=AVKONTI;T2(8)=FJPOST 1940 OPEN K7$,W 1950 EXEC FEJL(9,17,K7$) 1960 PUT K7$,2:T1(1),T1(2),T1(3),T1(4),T1(5),T1(6),T1(7),T1(8),T1(9) 1970 EXEC FEJL(9,18,K7$) 1980 PUT K7$,12:T2(1),T2(2),T2(3),T2(4),T2(5),T2(6),T2(7),T2(8),T2(9) 1990 EXEC FEJL(9,19,K7$) 2000 CLOSE K7$ 2010 EXEC FEJL(9,20,K7$) 2020 CLOSE 2030 CHAIN "P641210:OPSTART" 2040 END 2050 PROC BIL 2060 CLEAR 2070 CURSOR 20,9 2080 PRINT "*****************************************" 2090 CURSOR 20,10 2100 PRINT "*";TAB(41);"*" 2110 PRINT TAB(20);"*";TAB(26);TE$;TAB(60);"*" 2120 PRINT TAB(20);"*";TAB(60);"*" 2130 PRINT TAB(20);"*****************************************" 2140 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…0116 Line {l1=0x3f, l2=»0130 DIM ÅRKØB$(12),MDNKØB$(12),TEK$(13),GBELØB$(12),MOMSH$(12)«, l3=0x3f}
0x0116…0153 Line {l1=0x3b, l2=»0140 DIM KOD1$(1),KOD$(1),TAL4$(14),SVAR1$(1),VARTEKST$(25)«, l3=0x3b}
0x0153…018e Line {l1=0x39, l2=»0150 DIM RES$(14),OP1$(12),OP2$(12),TOTAL$(12),BELØB$(12)«, l3=0x39}
0x018e…01ca Line {l1=0x3a, l2=»0160 DIM TE$(30),TEKO$(1),F$(1),TK1$(1),TAH$(12),BLB2$(12)«, l3=0x3a}
0x01ca…0200 Line {l1=0x34, l2=»0170 DIM K4$(17),K5$(17),K6$(17),K7$(17),T1(9),T2(9)«, l3=0x34}
0x0200…021e Line {l1=0x1c, l2=»0180 PROC CALC(AR3,B1,B2,ES)«, l3=0x1c}
0x021e…025d Line {l1=0x3d, l2=»0190 OP1$=B1$;OP2$=B2$;RES$=ES$;SI=0;FLAG=0;ART=AR3-6*(AR3>5)«, l3=0x3d}
0x025d…0277 Line {l1=0x18, l2=»0200 CALL "P641210:REGN"«, l3=0x18}
0x0277…028c Line {l1=0x13, l2=»0210 IF AR3<6 THEN «, l3=0x13}
0x028c…02a5 Line {l1=0x17, l2=»0220 IF FLAG THEN STOP «, l3=0x17}
0x02a5…02b2 Line {l1=0x0b, l2=»0230 ENDIF «, l3=0x0b}
0x02b2…02c1 Line {l1=0x0d, l2=»0240 ES$=RES$«, l3=0x0d}
0x02c1…02d0 Line {l1=0x0d, l2=»0250 ENDPROC «, l3=0x0d}
0x02d0…02ed Line {l1=0x1b, l2=»0260 PROC FEJL(NR1,NR2,NR3)«, l3=0x1b}
0x02ed…030c Line {l1=0x1d, l2=»0270 IF STATUS(NR3$)<>0 THEN «, l3=0x1d}
0x030c…0332 Line {l1=0x24, l2=»0280 PRINT STATUS(NR3$),NR1,NR2,NR3$«, l3=0x24}
0x0332…033e Line {l1=0x0a, l2=»0290 STOP «, l3=0x0a}
0x033e…034b Line {l1=0x0b, l2=»0300 ENDIF «, l3=0x0b}
0x034b…035a Line {l1=0x0d, l2=»0310 ENDPROC «, l3=0x0d}
0x035a…037f Line {l1=0x23, l2=»0320 PROC TUD(BLB1,UBLB1,TEGN,STØR)«, l3=0x23}
0x037f…0391 Line {l1=0x10, l2=»0330 BLB2$=BLB1$«, l3=0x10}
0x0391…03b6 Line {l1=0x23, l2=»0340 EXEC CALC(5,BLB2$,TAH$,UBLB1$)«, l3=0x23}
0x03b6…03df Line {l1=0x27, l2=»0350 IF TEGN=0 THEN UBLB1$=UBLB1$(1:13)«, l3=0x27}
0x03df…0428 Line {l1=0x47, l2=»0360 IF TEGN=1 AND UBLB1$(LEN(UBLB1$))="+" THEN UBLB1$(LEN(UBLB1$))=" "«, l3=0x47}
0x0428…045c Line {l1=0x32, l2=»0370 IF STØR=1 THEN UBLB1$=UBLB1$(4:LEN(UBLB1$)-3)«, l3=0x32}
0x045c…046f Line {l1=0x11, l2=»0380 PRINT UBLB1$«, l3=0x11}
0x046f…047e Line {l1=0x0d, l2=»0390 ENDPROC «, l3=0x0d}
0x047e…04af Line {l1=0x2f, l2=»0400 PROC FINDPOST1(TAB4,Q,MANT2,NØGL5,PIL6,L8)«, l3=0x2f}
0x04af…04fc Line {l1=0x4b, l2=»0410 PIL1=MANT2 DIV 8;PIL6=PIL1;CEKS=1;MANT3=MANT2 DIV 4;MANT4=MANT2 DIV 32«, l3=0x4b}
0x04fc…050a Line {l1=0x0c, l2=»0420 REPEAT «, l3=0x0c}
0x050a…0539 Line {l1=0x2d, l2=»0430 IF NØGL5=TAB4(PIL6) OR PIL1=1 THEN EXIT «, l3=0x2d}
0x0539…057b Line {l1=0x40, l2=»0440 PIL1=(PIL1+1) DIV 2;PIL6=PIL6+PIL1*(1-2*(NØGL5<TAB4(PIL6)))«, l3=0x40}
0x057b…0597 Line {l1=0x1a, l2=»0450 IF PIL6<1 THEN PIL6=1«, l3=0x1a}
0x0597…05bb Line {l1=0x22, l2=»0460 IF PIL6>MANT3 THEN PIL6=MANT3«, l3=0x22}
0x05bb…05ce Line {l1=0x11, l2=»0470 UNTIL PIL1=0«, l3=0x11}
0x05ce…0602 Line {l1=0x32, l2=»0480 IF TAB4(PIL6)>NØGL5 THEN PIL6=PIL6-1*(PIL6>1)«, l3=0x32}
0x0602…0618 Line {l1=0x14, l2=»0490 PIL6=MANT4+PIL6«, l3=0x14}
0x0618…0663 Line {l1=0x49, l2=»0500 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}
0x0663…067c Line {l1=0x17, l2=»0510 EXEC FEJL(1,1,L8$)«, l3=0x17}
0x067c…0692 Line {l1=0x14, l2=»0520 FOR PIL6=1 TO 4«, l3=0x14}
0x0692…06b6 Line {l1=0x22, l2=»0530 IF NØGL5=Q(PIL6,1) THEN EXIT «, l3=0x22}
0x06b6…06c6 Line {l1=0x0e, l2=»0540 NEXT PIL6«, l3=0x0e}
0x06c6…06e3 Line {l1=0x1b, l2=»0550 IF PIL6<>5 THEN CEKS=0«, l3=0x1b}
0x06e3…06f2 Line {l1=0x0d, l2=»0560 ENDPROC «, l3=0x0d}
0x06f2…0711 Line {l1=0x1d, l2=»0570 PROC INDTAB1(Z,MANT5,L7)«, l3=0x1d}
0x0711…0729 Line {l1=0x16, l2=»0580 PIL1=MANT5 DIV 32«, l3=0x16}
0x0729…073f Line {l1=0x14, l2=»0590 FOR I=1 TO PIL1«, l3=0x14}
0x073f…0751 Line {l1=0x10, l2=»0600 H=(I-1)*8+1«, l3=0x10}
0x0751…0797 Line {l1=0x44, l2=»0610 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}
0x0797…07b0 Line {l1=0x17, l2=»0620 EXEC FEJL(2,1,L7$)«, l3=0x17}
0x07b0…07bd Line {l1=0x0b, l2=»0630 NEXT I«, l3=0x0b}
0x07bd…07cc Line {l1=0x0d, l2=»0640 ENDPROC «, l3=0x0d}
0x07cc…07e1 Line {l1=0x13, l2=»0650 PROC HENTDPOST«, l3=0x13}
0x07e1…07f7 Line {l1=0x14, l2=»0660 S=DTAB(DPIL3,2)«, l3=0x14}
0x07f7…0827 Line {l1=0x2e, l2=»0670 GET K3$,S:DEBNR,DEBNAVN$,DSALDO1$,DEBKGR$«, l3=0x2e}
0x0827…0840 Line {l1=0x17, l2=»0680 EXEC FEJL(3,1,K3$)«, l3=0x17}
0x0840…087c Line {l1=0x3a, l2=»0690 GET K3$,S+1:DSALDO2$,DSALDO3$,DSALDO4$,DPOSTNR,DEBLK$«, l3=0x3a}
0x087c…0895 Line {l1=0x17, l2=»0700 EXEC FEJL(3,2,K3$)«, l3=0x17}
0x0895…08c5 Line {l1=0x2e, l2=»0710 GET K3$,S+2:DEBGADE$,DEBTLF$,HPOST,HKUNDE«, l3=0x2e}
0x08c5…08de Line {l1=0x17, l2=»0720 EXEC FEJL(3,3,K3$)«, l3=0x17}
0x08de…0906 Line {l1=0x26, l2=»0730 GET K3$,S+3:DEBBY$,ÅRKØB$,MDNKØB$«, l3=0x26}
0x0906…091f Line {l1=0x17, l2=»0740 EXEC FEJL(3,4,K3$)«, l3=0x17}
0x091f…092e Line {l1=0x0d, l2=»0750 ENDPROC «, l3=0x0d}
0x092e…0943 Line {l1=0x13, l2=»0760 PROC DATOU(DA)«, l3=0x13}
0x0943…0957 Line {l1=0x12, l2=»0770 PRINT TAB(5);«, l3=0x12}
0x0957…0986 Line {l1=0x2d, l2=»0780 PRINT USING "###.##":(DA MOD 10000)/100;«, l3=0x2d}
0x0986…099a Line {l1=0x12, l2=»0790 PRINT TAB(2);«, l3=0x12}
0x099a…09c6 Line {l1=0x2a, l2=»0800 PRINT USING "###.#":(DA DIV 1000)/10;«, l3=0x2a}
0x09c6…09d5 Line {l1=0x0d, l2=»0810 ENDPROC «, l3=0x0d}
0x09d5…09f1 Line {l1=0x1a, l2=»0820 K1$="P641220:SYSTEM1"«, l3=0x1a}
0x09f1…0a02 Line {l1=0x0f, l2=»0830 OPEN K1$,R«, l3=0x0f}
0x0a02…0a1b Line {l1=0x17, l2=»0840 EXEC FEJL(9,1,K1$)«, l3=0x17}
0x0a1b…0a3b Line {l1=0x1e, l2=»0850 GET K1$,1:MFANTAL,MDANTAL«, l3=0x1e}
0x0a3b…0a54 Line {l1=0x17, l2=»0860 EXEC FEJL(9,2,K1$)«, l3=0x17}
0x0a54…0a68 Line {l1=0x12, l2=»0870 GET K1$,10:N$«, l3=0x12}
0x0a68…0a81 Line {l1=0x17, l2=»0880 EXEC FEJL(9,3,K1$)«, l3=0x17}
0x0a81…0a96 Line {l1=0x13, l2=»0890 GET K1$,12:K2$«, l3=0x13}
0x0a96…0aaf Line {l1=0x17, l2=»0900 EXEC FEJL(9,4,K1$)«, l3=0x17}
0x0aaf…0ac4 Line {l1=0x13, l2=»0910 GET K1$,16:K3$«, l3=0x13}
0x0ac4…0add Line {l1=0x17, l2=»0920 EXEC FEJL(9,5,K1$)«, l3=0x17}
0x0add…0af2 Line {l1=0x13, l2=»0930 GET K1$,28:K4$«, l3=0x13}
0x0af2…0b0b Line {l1=0x17, l2=»0940 EXEC FEJL(9,6,K1$)«, l3=0x17}
0x0b0b…0b20 Line {l1=0x13, l2=»0950 GET K1$,30:K5$«, l3=0x13}
0x0b20…0b39 Line {l1=0x17, l2=»0960 EXEC FEJL(9,7,K1$)«, l3=0x17}
0x0b39…0b4e Line {l1=0x13, l2=»0970 GET K1$,31:K6$«, l3=0x13}
0x0b4e…0b67 Line {l1=0x17, l2=»0980 EXEC FEJL(9,8,K1$)«, l3=0x17}
0x0b67…0b7c Line {l1=0x13, l2=»0990 GET K1$,36:K7$«, l3=0x13}
0x0b7c…0b95 Line {l1=0x17, l2=»1000 EXEC FEJL(9,9,K1$)«, l3=0x17}
0x0b95…0ba5 Line {l1=0x0e, l2=»1010 CLOSE K1$«, l3=0x0e}
0x0ba5…0bbf Line {l1=0x18, l2=»1020 EXEC FEJL(9,10,K1$)«, l3=0x18}
0x0bbf…0c07 Line {l1=0x46, l2=»1030 K2$=N$+K2$;K3$=N$+K3$;K4$=N$+K4$;K5$=N$+K5$;K6$=N$+K6$;K7$=N$+K7$«, l3=0x46}
0x0c07…0c30 Line {l1=0x27, l2=»1040 DIM DTAB1(MDANTAL DIV 4),DTAB(4,2)«, l3=0x27}
0x0c30…0c41 Line {l1=0x0f, l2=»1050 OPEN K2$,R«, l3=0x0f}
0x0c41…0c5b Line {l1=0x18, l2=»1060 EXEC FEJL(9,11,K2$)«, l3=0x18}
0x0c5b…0c6c Line {l1=0x0f, l2=»1070 OPEN K3$,R«, l3=0x0f}
0x0c6c…0c86 Line {l1=0x18, l2=»1080 EXEC FEJL(9,12,K3$)«, l3=0x18}
0x0c86…0cac Line {l1=0x24, l2=»1090 EXEC INDTAB1(DTAB1,MDANTAL,K2$)«, l3=0x24}
0x0cac…0cbd Line {l1=0x0f, l2=»1100 OPEN K7$,R«, l3=0x0f}
0x0cbd…0cd7 Line {l1=0x18, l2=»1110 EXEC FEJL(9,13,K7$)«, l3=0x18}
0x0cd7…0d1d Line {l1=0x44, l2=»1120 GET K7$,2:T1(1),T1(2),T1(3),T1(4),T1(5),T1(6),T1(7),T1(8),T1(9)«, l3=0x44}
0x0d1d…0d37 Line {l1=0x18, l2=»1130 EXEC FEJL(9,14,K7$)«, l3=0x18}
0x0d37…0d7e Line {l1=0x45, l2=»1140 GET K7$,12:T2(1),T2(2),T2(3),T2(4),T2(5),T2(6),T2(7),T2(8),T2(9)«, l3=0x45}
0x0d7e…0d98 Line {l1=0x18, l2=»1150 EXEC FEJL(9,15,K7$)«, l3=0x18}
0x0d98…0da8 Line {l1=0x0e, l2=»1160 CLOSE K7$«, l3=0x0e}
0x0da8…0dc2 Line {l1=0x18, l2=»1170 EXEC FEJL(9,16,K7$)«, l3=0x18}
0x0dc2…0e0d Line {l1=0x49, l2=»1180 JOURSIDE=T1(3);DATO=T1(7);FAKPOSTNR=T2(3);AVKONTI=T2(7);FJPOST=T2(8)«, l3=0x49}
0x0e0d…0e3f Line {l1=0x30, l2=»1190 DIM VJOURARR(AVKONTI),VBJOUARR$(AVKONTI,12)«, l3=0x30}
0x0e3f…0e4c Line {l1=0x0b, l2=»1200 CLEAR «, l3=0x0b}
0x0e4c…0e68 Line {l1=0x1a, l2=»1210 TOTAL$="0+";TAH$="0+"«, l3=0x1a}
0x0e68…0e79 Line {l1=0x0f, l2=»1220 OPEN K5$,R«, l3=0x0f}
0x0e79…0e92 Line {l1=0x17, l2=»1230 EXEC FEJL(2,1,K5$)«, l3=0x17}
0x0e92…0ea5 Line {l1=0x11, l2=»1240 CURSOR 20,10«, l3=0x11}
0x0ea5…0ee0 Line {l1=0x39, l2=»1250 PRINT "Monter papir til udskrift af fakturajournal."«, l3=0x39}
0x0ee0…0ef3 Line {l1=0x11, l2=»1260 CURSOR 20,12«, l3=0x11}
0x0ef3…0f15 Line {l1=0x20, l2=»1270 INPUT "Tast RETURN.",SVAR1$«, l3=0x20}
0x0f15…0f3f Line {l1=0x28, l2=»1280 TE$="Der udskrives fakturajournal."«, l3=0x28}
0x0f3f…0f4e Line {l1=0x0d, l2=»1290 EXEC BIL«, l3=0x0d}
0x0f4e…0f5d Line {l1=0x0d, l2=»1300 OUTPUT P«, l3=0x0d}
0x0f5d…0f6d Line {l1=0x0e, l2=»1310 PRINT " "«, l3=0x0e}
0x0f6d…0f7d Line {l1=0x0e, l2=»1320 PRINT " "«, l3=0x0e}
0x0f7d…0fcb Line {l1=0x4c, l2=»1330 PRINT TAB(27);CHR(14);"Fakturajournal";CHR(15);TAB(52);"Side:";TAB(57);«, l3=0x4c}
0x0fcb…0fee Line {l1=0x21, l2=»1340 PRINT USING "#####":JOURSIDE«, l3=0x21}
0x0fee…1008 Line {l1=0x18, l2=»1350 JOURSIDE=JOURSIDE+1«, l3=0x18}
0x1008…1018 Line {l1=0x0e, l2=»1360 PRINT " "«, l3=0x0e}
0x1018…1028 Line {l1=0x0e, l2=»1370 PRINT " "«, l3=0x0e}
0x1028…1077 Line {l1=0x4d, l2=»1380 PRINT TAB(5);"Dato Bilag Tekst";TAB(55);"Konto";TAB(68);"Beløb"«, l3=0x4d}
0x1077…1087 Line {l1=0x0e, l2=»1390 PRINT " "«, l3=0x0e}
0x1087…1097 Line {l1=0x0e, l2=»1400 PRINT " "«, l3=0x0e}
0x1097…10af Line {l1=0x16, l2=»1410 FOR I=1 TO FJPOST«, l3=0x16}
0x10af…10dd Line {l1=0x2c, l2=»1420 GET K5$,I:KUNDENR,BELØB$,BILAGSNR,FDATO«, l3=0x2c}
0x10dd…10f6 Line {l1=0x17, l2=»1430 EXEC FEJL(2,2,K5$)«, l3=0x17}
0x10f6…1131 Line {l1=0x39, l2=»1440 EXEC FINDPOST1(DTAB1,DTAB,MDANTAL,KUNDENR,DPIL3,K2$)«, l3=0x39}
0x1131…1155 Line {l1=0x22, l2=»1450 IF CEKS=0 THEN EXEC HENTDPOST«, l3=0x22}
0x1155…116d Line {l1=0x16, l2=»1460 EXEC DATOU(FDATO)«, l3=0x16}
0x116d…1182 Line {l1=0x13, l2=»1470 PRINT TAB(13);«, l3=0x13}
0x1182…11a8 Line {l1=0x24, l2=»1480 PRINT USING "#######":BILAGSNR;«, l3=0x24}
0x11a8…11ce Line {l1=0x24, l2=»1490 PRINT TAB(26);DEBNAVN$;TAB(53);«, l3=0x24}
0x11ce…11f3 Line {l1=0x23, l2=»1500 PRINT USING "#######":KUNDENR;«, l3=0x23}
0x11f3…1208 Line {l1=0x13, l2=»1510 PRINT TAB(64);«, l3=0x13}
0x1208…1230 Line {l1=0x26, l2=»1520 EXEC CALC(0,TOTAL$,BELØB$,TOTAL$)«, l3=0x26}
0x1230…1251 Line {l1=0x1f, l2=»1530 EXEC TUD(BELØB$,TAL4$,1,0)«, l3=0x1f}
0x1251…1262 Line {l1=0x0f, l2=»1540 OPEN K4$,W«, l3=0x0f}
0x1262…127b Line {l1=0x17, l2=»1550 EXEC FEJL(2,3,K4$)«, l3=0x17}
0x127b…1299 Line {l1=0x1c, l2=»1560 IF BELØB$(12)="+" THEN «, l3=0x1c}
0x1299…12a8 Line {l1=0x0d, l2=»1570 TKODE=21«, l3=0x0d}
0x12a8…12b4 Line {l1=0x0a, l2=»1580 ELSE «, l3=0x0a}
0x12b4…12c3 Line {l1=0x0d, l2=»1590 TKODE=22«, l3=0x0d}
0x12c3…12d0 Line {l1=0x0b, l2=»1600 ENDIF «, l3=0x0b}
0x12d0…1309 Line {l1=0x37, l2=»1610 FAKPOSTNR=FAKPOSTNR+1;TEKO$=CHR(48+TKODE);TK1$="3"«, l3=0x37}
0x1309…134a Line {l1=0x3f, l2=»1620 PUT K4$,FAKPOSTNR:KUNDENR,FDATO,BILAGSNR,TEKO$,BELØB$,TK1$«, l3=0x3f}
0x134a…1363 Line {l1=0x17, l2=»1630 EXEC FEJL(2,4,K4$)«, l3=0x17}
0x1363…1373 Line {l1=0x0e, l2=»1640 CLOSE K4$«, l3=0x0e}
0x1373…138c Line {l1=0x17, l2=»1650 EXEC FEJL(2,5,K4$)«, l3=0x17}
0x138c…1399 Line {l1=0x0b, l2=»1660 NEXT I«, l3=0x0b}
0x1399…13be Line {l1=0x23, l2=»1670 PRINT TAB(26);"TOTAL";TAB(64);«, l3=0x23}
0x13be…13df Line {l1=0x1f, l2=»1680 EXEC TUD(TOTAL$,TAL4$,1,0)«, l3=0x1f}
0x13df…13fc Line {l1=0x1b, l2=»1681 FOR I=1 TO 48-FJPOST-9«, l3=0x1b}
0x13fc…140c Line {l1=0x0e, l2=»1682 PRINT " "«, l3=0x0e}
0x140c…1419 Line {l1=0x0b, l2=»1683 NEXT I«, l3=0x0b}
0x1419…1429 Line {l1=0x0e, l2=»1690 CLOSE K5$«, l3=0x0e}
0x1429…1442 Line {l1=0x17, l2=»1700 EXEC FEJL(2,6,K5$)«, l3=0x17}
0x1442…1451 Line {l1=0x0d, l2=»1710 FJPOST=0«, l3=0x0d}
0x1451…1462 Line {l1=0x0f, l2=»1720 OPEN K6$,R«, l3=0x0f}
0x1462…147b Line {l1=0x17, l2=»1730 EXEC FEJL(2,7,K6$)«, l3=0x17}
0x147b…1494 Line {l1=0x17, l2=»1740 FOR I=1 TO AVKONTI«, l3=0x17}
0x1494…14bd Line {l1=0x27, l2=»1750 GET K6$,I:VJOURARR(I),VBJOUARR$(I)«, l3=0x27}
0x14bd…14d6 Line {l1=0x17, l2=»1760 EXEC FEJL(2,8,K6$)«, l3=0x17}
0x14d6…14e3 Line {l1=0x0b, l2=»1770 NEXT I«, l3=0x0b}
0x14e3…14f3 Line {l1=0x0e, l2=»1780 CLOSE K6$«, l3=0x0e}
0x14f3…150c Line {l1=0x17, l2=»1790 EXEC FEJL(2,9,K6$)«, l3=0x17}
0x150c…1520 Line {l1=0x12, l2=»1800 TEKO$=CHR(75)«, l3=0x12}
0x1520…152f Line {l1=0x0d, l2=»1810 OUTPUT T«, l3=0x0d}
0x152f…1540 Line {l1=0x0f, l2=»1820 OPEN K4$,W«, l3=0x0f}
0x1540…155a Line {l1=0x18, l2=»1830 EXEC FEJL(2,10,K4$)«, l3=0x18}
0x155a…1573 Line {l1=0x17, l2=»1840 FOR I=1 TO AVKONTI«, l3=0x17}
0x1573…1598 Line {l1=0x23, l2=»1850 FAKPOSTNR=FAKPOSTNR+1;TK1$="3"«, l3=0x23}
0x1598…15e4 Line {l1=0x4a, l2=»1860 PUT K4$,FAKPOSTNR:VJOURARR(I),DATO,JOURSIDE-1,TEKO$,VBJOUARR$(I),TK1$«, l3=0x4a}
0x15e4…15fe Line {l1=0x18, l2=»1870 EXEC FEJL(2,11,K4$)«, l3=0x18}
0x15fe…160b Line {l1=0x0b, l2=»1880 NEXT I«, l3=0x0b}
0x160b…161b Line {l1=0x0e, l2=»1890 CLOSE K4$«, l3=0x0e}
0x161b…1635 Line {l1=0x18, l2=»1900 EXEC FEJL(2,12,K4$)«, l3=0x18}
0x1635…166a Line {l1=0x33, l2=»1910 TE$=" Programvalg. ";AVKONTI=0«, l3=0x33}
0x166a…1679 Line {l1=0x0d, l2=»1920 EXEC BIL«, l3=0x0d}
0x1679…16b9 Line {l1=0x3e, l2=»1930 T1(3)=JOURSIDE;T2(3)=FAKPOSTNR;T2(7)=AVKONTI;T2(8)=FJPOST«, l3=0x3e}
0x16b9…16ca Line {l1=0x0f, l2=»1940 OPEN K7$,W«, l3=0x0f}
0x16ca…16e4 Line {l1=0x18, l2=»1950 EXEC FEJL(9,17,K7$)«, l3=0x18}
0x16e4…172a Line {l1=0x44, l2=»1960 PUT K7$,2:T1(1),T1(2),T1(3),T1(4),T1(5),T1(6),T1(7),T1(8),T1(9)«, l3=0x44}
0x172a…1744 Line {l1=0x18, l2=»1970 EXEC FEJL(9,18,K7$)«, l3=0x18}
0x1744…178b Line {l1=0x45, l2=»1980 PUT K7$,12:T2(1),T2(2),T2(3),T2(4),T2(5),T2(6),T2(7),T2(8),T2(9)«, l3=0x45}
0x178b…17a5 Line {l1=0x18, l2=»1990 EXEC FEJL(9,19,K7$)«, l3=0x18}
0x17a5…17b5 Line {l1=0x0e, l2=»2000 CLOSE K7$«, l3=0x0e}
0x17b5…17cf Line {l1=0x18, l2=»2010 EXEC FEJL(9,20,K7$)«, l3=0x18}
0x17cf…17dc Line {l1=0x0b, l2=»2020 CLOSE «, l3=0x0b}
0x17dc…17fa Line {l1=0x1c, l2=»2030 CHAIN "P641210:OPSTART"«, l3=0x1c}
0x17fa…1805 Line {l1=0x09, l2=»2040 END «, l3=0x09}
0x1805…1814 Line {l1=0x0d, l2=»2050 PROC BIL«, l3=0x0d}
0x1814…1821 Line {l1=0x0b, l2=»2060 CLEAR «, l3=0x0b}
0x1821…1833 Line {l1=0x10, l2=»2070 CURSOR 20,9«, l3=0x10}
0x1833…186b Line {l1=0x36, l2=»2080 PRINT "*****************************************"«, l3=0x36}
0x186b…187e Line {l1=0x11, l2=»2090 CURSOR 20,10«, l3=0x11}
0x187e…189a Line {l1=0x1a, l2=»2100 PRINT "*";TAB(41);"*"«, l3=0x1a}
0x189a…18ca Line {l1=0x2e, l2=»2110 PRINT TAB(20);"*";TAB(26);TE$;TAB(60);"*"«, l3=0x2e}
0x18ca…18ee Line {l1=0x22, l2=»2120 PRINT TAB(20);"*";TAB(60);"*"«, l3=0x22}
0x18ee…192e Line {l1=0x3e, l2=»2130 PRINT TAB(20);"*****************************************"«, l3=0x3e}
0x192e…193d Line {l1=0x0d, l2=»2140 ENDPROC «, l3=0x0d}
0x193d…1940 00 00 63 ┆ c┆
0x1940…1960 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┆
[…0x22…]