|
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: 10112 (0x2780)
Types: TextFile
Notes: Mikados_K
Names: »MAFSLUT.K«
└─⟦ec8c1e0b0⟧ Bits:30007442 8" floppy ( MIKPROG vol. 1-3, MIKREL vol. 1-3, PCSE 4.7.80 vol 1-3, GL.SYS )
└─⟦this⟧ »MAFSLUT.K«
0100 DIM BLANK$(25),TKO$(1),BEO$(12),TEO$(25),OP1$(12),OP2$(12),RES$(14) 0110 DIM DEBNAVN$(25),DSALDO1$(12),DSALDO2$(12),DSALDO3$(12),DSALDO4$(12) 0120 DIM DEBKGR$(2),DEBBY$(20),ÅRKØB$(12),MDNKØB$(12),SALDO$(12),FNAVN$(25) 0130 DIM FMKODE$(1),FMDEBET$(12),FMKREDIT$(12),FUKODE$(1),FÅDEBET$(12) 0140 DIM FÅKREDIT$(12),TAL4$(12),K1$(17),K2$(17),K3$(17),K4$(17),K5$(17) 0150 DIM K6$(17),K7$(17),K8$(17),K9$(17),K10$(17),N$(6),A$(2),DEBLK$(2) 0160 DIM KREBY$(20),KRELK$(1),KREGR$(1),KSALDO1$(12),KSALDO2$(12),T1(9),T2(9) 0170 DIM T3(9),T4(9) 0180 PROC FEJL(NR1,NR2,NR3) 0190 IF STATUS(NR3$)<>0 THEN 0200 PRINT NR1,NR2,NR3$,STATUS(NR3$) 0210 STOP 0220 ENDIF 0230 ENDPROC 0240 PROC FSYSUD(K12,T8,T9) 0250 OPEN K12$,W 0260 EXEC FEJL(6,1,K12$) 0270 PUT K12$,13:T8(1),T8(2),T8(3),T8(4),T8(5),T8(6),T8(7),T8(8),T8(9) 0280 EXEC FEJL(6,2,K12$) 0290 PUT K12$,17:T9(1),T9(2),T9(3),T9(4),T9(5),T9(6),T9(7),T9(8),T9(9) 0300 EXEC FEJL(6,3,K12$) 0310 CLOSE K12$ 0320 EXEC FEJL(6,4,K12$) 0330 ENDPROC 0340 PROC FGET2(K15,I3,N3,D3,BI3,TK3,BE3,TE3) 0350 GET K15$,I3:N3,D3,BI3,TK3$,BE3$ 0360 EXEC FEJL(9,1,K15$) 0370 IF ORD(TK3$)-48>9 AND ORD(TK3$)-48<20 THEN 0380 I3=I3+1 0390 GET K15$,I3:N3,TE3$ 0400 EXEC FEJL(9,2,K15$) 0410 ELSE 0420 TE3$=BLANK$ 0430 ENDIF 0440 ENDPROC 0450 PROC FPUT2(K16,I4,N4,D4,BI4,TK4,BE4,TE4) 0460 PUT K16$,I4:N4,D4,BI4,TK4$,BE4$ 0470 EXEC FEJL(10,1,K16$) 0480 IF ORD(TK4$)-48>9 AND ORD(TK4$)-48<20 THEN 0490 I4=I4+1 0500 PUT K16$,I4:N4,TE4$ 0510 EXEC FEJL(10,2,K16$) 0520 ENDIF 0530 ENDPROC 0540 PROC FKOPI(K19,K20,DPO4,DPO5) 0550 OPEN K19$,R 0560 EXEC FEJL(12,1,K19$) 0570 OPEN K20$,W 0580 EXEC FEJL(12,2,K20$) 0590 FOR I=1 TO DPO4 0600 J=I 0610 EXEC FGET2(K19$,I,NO,DO,BIO,TKO$,BEO$,TEO$) 0620 EXEC FPUT2(K20$,J,NO,DO,BIO,TKO$,BEO$,TEO$) 0630 NEXT I 0640 CLOSE K19$ 0650 CLOSE K20$ 0660 EXEC FEJL(12,3,K20$) 0670 DPO5=DPO4 0680 ENDPROC 0690 PROC HOVIND(V1,MPOSTANTAL1,R) 0700 OPEN V1$,R 0710 EXEC FEJL(13,1,V1$) 0720 FOR I=1 TO MPOSTANTAL1 DIV 160 0730 J=(I-1)*4+1;J1=J+1;J2=J+2;J3=J+3 0740 GET V1$,I:R(J,1),R(J,2),R(J1,1),R(J1,2),R(J2,1),R(J2,2),R(J3,1),R(J3,2) 0750 EXEC FEJL(13,2,V1$) 0760 NEXT I 0770 CLOSE V1$ 0780 EXEC FEJL(13,3,V1$) 0790 ENDPROC 0800 PROC UNDIND(V2,U1,Z) 0810 OPEN V2$,R 0820 EXEC FEJL(14,1,V2$) 0830 GET V2$,U1:Z(1,1),Z(1,2),Z(2,1),Z(2,2),Z(3,1),Z(3,2),Z(4,1),Z(4,2) 0840 EXEC FEJL(14,2,V2$) 0850 CLOSE V2$ 0860 EXEC FEJL(14,3,V2$) 0870 ENDPROC ;UNDIND 0880 PROC TABINIT(K31,K32,MPOSTANTAL3,HTAB2,UTAB2) 0890 OPEN K31$,R 0900 EXEC FEJL(15,1,K31$) 0910 OPEN K32$,W 0920 EXEC FEJL(15,2,K32$) 0930 H=1 0940 FOR I=1 TO MPOSTANTAL3 DIV 40 0950 GET K31$,H:KONR 0960 EXEC FEJL(15,3,K31$) 0970 HTAB2(I,1)=KONR 0980 FOR J=1 TO 4 0990 GET K31$,H:KONR 1000 EXEC FEJL(15,4,K31$) 1010 UTAB2(J,1)=KONR 1020 H=H+9 1030 GET K31$,H:KONR 1040 EXEC FEJL(15,5,K31$) 1050 UTAB2(J,2)=KONR 1060 H=H+1 1070 NEXT J 1080 HTAB2(I,2)=KONR 1090 K=I+MPOSTANTAL3 DIV 160 1100 EXEC UNDUD(K32$,K,UTAB2) 1110 NEXT I 1120 EXEC HOVUD(K32$,MPOSTANTAL3,HTAB2) 1130 CLOSE K31$ 1140 EXEC FEJL(15,6,K31$) 1150 CLOSE K32$ 1160 EXEC FEJL(15,7,K32$) 1170 ENDPROC ;TABINIT 1180 PROC UNDUD(V3,U2,T) 1190 PUT V3$,U2:T(1,1),T(1,2),T(2,1),T(2,2),T(3,1),T(3,2),T(4,1),T(4,2) 1200 EXEC FEJL(16,1,V3$) 1210 ENDPROC ;UNDUD 1220 PROC HOVUD(V4,MPOSTANTAL4,S) 1230 FOR I=1 TO MPOSTANTAL4 DIV 160 1240 J=(I-1)*4+1;J1=J+1;J2=J+2;J3=J+3 1250 PUT V4$,I:S(J,1),S(J,2),S(J1,1),S(J1,2),S(J2,1),S(J2,2),S(J3,1),S(J3,2) 1260 EXEC FEJL(17,2,V4$) 1270 NEXT I 1280 ENDPROC 1290 PROC CALC(ART,AB,AC,ES) 1300 OP1$=AB$;OP2$=AC$;RES$=ES$;SI=0;FLAG=0 1310 CALL "P641210:REGN" 1320 ES$=RES$ 1330 IF FLAG<>0 THEN STOP 1340 ENDPROC 1350 PROC PINIT(K61,MPOSTANTAL8) 1360 OPEN K61$,W 1370 EXEC FEJL(1,1,K61$) 1380 FOR I=1 TO MPOSTANTAL8 1390 PUT K61$,I:100000 1400 EXEC FEJL(1,2,K61$) 1410 NEXT I 1420 CLOSE K61$ 1430 EXEC FEJL(1,3,K61$) 1440 ENDPROC 1450 PROC KINIT(K62,K63,K64,TAB1,KM,F,MANTAL) 1460 F=0;TKO$=CHR(26+48) 1470 OPEN K63$,W 1480 EXEC FEJL(2,1,K63$) 1490 OPEN K64$,W 1500 EXEC FEJL(2,22,K64$) 1510 FOR J=1 TO MANTAL DIV 4 1520 K=J+MANTAL DIV 32 1530 EXEC UNDIND(K62$,K,TAB1) 1540 FOR I=1 TO 4 1550 IF TAB1(I,1)=1000000 THEN EXIT 1560 X=TAB1(I,2) 1570 CASE KM OF 1580 GET K63$,X:DEBNR,DEBNAVN$,DSALDO1$,DEBKGR$ 1590 EXEC FEJL(2,2,K63$) 1600 IF DEBNR<>TAB1(I,1) THEN STOP 1610 GET K63$,X+1:DSALDO2$,DSALDO3$,DSALDO4$,DEBPOSTNR,DEBLK$ 1620 EXEC FEJL(2,3,K63$) 1630 GET K63$,X+3:DEBBY$,ÅRKØB$,MDNKØB$ 1640 EXEC FEJL(2,4,K63$) 1650 EXEC CALC(0,DSALDO3$,DSALDO4$,SALDO$) 1660 DSALDO4$=SALDO$ 1670 EXEC CALC(0,SALDO$,DSALDO2$,SALDO$) 1680 DSALDO3$=DSALDO2$ 1690 EXEC CALC(0,SALDO$,DSALDO1$,SALDO$) 1700 DSALDO2$=DSALDO1$ 1710 DSALDO1$="0+" 1720 MDNKØB$="0+" 1730 PUT K63$,X:DEBNR,DEBNAVN$,DSALDO1$,DEBKGR$ 1740 EXEC FEJL(2,5,K63$) 1750 PUT K63$,X+1:DSALDO2$,DSALDO3$,DSALDO4$,DEBPOSTNR,DEBLK$ 1760 EXEC FEJL(2,6,K63$) 1770 PUT K63$,X+3:DEBBY$,ÅRKØB$,MDNKØB$ 1780 EXEC FEJL(2,7,K63$) 1790 WHEN 1 1800 GET K63$,X+1:FMKODE$,FMDEBET$,FMKREDIT$ 1810 EXEC FEJL(2,14,K63$) 1820 GET K63$,X+2:FUKODE$,FÅDEBET$,FÅKREDIT$ 1830 EXEC FEJL(2,15,K63$) 1840 EXEC CALC(0,FÅDEBET$,FÅKREDIT$,SALDO$) 1850 FMDEBET$="0+" 1860 FMKREDIT$="0+" 1870 PUT K63$,X+1:FMKODE$,FMDEBET$,FMKREDIT$ 1880 EXEC FEJL(2,17,K63$) 1890 PUT K63$,X+2:FUKODE$,FÅDEBET$,FÅKREDIT$ 1900 EXEC FEJL(2,18,K63$) 1910 WHEN 2 1920 GET K63$,X+1:KREBY$,KRELK$,KREGR$,KREPOSTNR,KSALDO1$,KSALDO2$ 1930 EXEC FEJL(2,20,K63$) 1940 EXEC CALC(0,KSALDO1$,KSALDO2$,SALDO$) 1950 KSALDO2$=SALDO$;KSALDO1$="0+" 1960 PUT K63$,X+1:KREBY$,KRELK$,KREGR$,KREPOSTNR,KSALDO1$,KSALDO2$ 1970 EXEC FEJL(2,21,K63$) 1980 ENDCASE 1990 EXEC CALC(4,TAL4$,SALDO$,TAL4$) 2000 IF KM<>1 THEN FUKODE$="0" 2010 IF SI<>0 AND ORD(FUKODE$)-48<1 THEN 2020 F=F+1 2030 PUT K64$,F:TAB1(I,1),DATO,-1,TKO$,SALDO$ 2040 EXEC FEJL(2,21,K64$) 2050 ENDIF 2060 NEXT I 2070 IF TAB1(I-1*(I=5),1)=1000000 THEN EXIT 2080 NEXT J 2090 CLOSE K63$ 2100 EXEC FEJL(2,22,K63$) 2110 CLOSE K64$ 2120 EXEC FEJL(2,23,K64$) 2130 ENDPROC 2140 K1$="P641220:SYSTEM1" 2150 OPEN K1$,R 2160 EXEC FEJL(9,1,K1$) 2170 GET K1$,1:MFANTAL,MDANTAL,MKANTAL 2180 EXEC FEJL(9,2,K1$) 2190 GET K1$,3:MDMID,MKMID,MFPOST,MDPOST 2200 EXEC FEJL(9,3,K1$) 2210 GET K1$,4:MKPOST 2220 EXEC FEJL(9,4,K1$) 2230 GET K1$,10:N$ 2240 EXEC FEJL(9,5,K1$) 2250 CLOSE K1$ 2260 EXEC FEJL(9,6,K1$) 2270 K1$=N$+"20:SYSTEM2" 2280 OPEN K1$,R 2290 EXEC FEJL(9,7,K1$) 2300 GET K1$,2:T1(1),T1(2),T1(3),T1(4),T1(5),T1(6),DATO 2310 EXEC FEJL(9,8,K1$) 2320 GET K1$,13:T1(1),T1(2),T1(3),T1(4),T1(5),T1(6),T1(7),T1(8),T1(9) 2330 EXEC FEJL(9,9,K1$) 2340 GET K1$,17:T2(1),T2(2),T2(3),T2(4),T2(5),T2(6),T2(7),T2(8),T2(9) 2350 EXEC FEJL(9,10,K1$) 2360 CLOSE K1$ 2370 EXEC FEJL(9,11,K1$) 2380 DIM HDTAB(MDPOST DIV 40,2),HFTAB(MFPOST DIV 40,2),UDTAB(4,2),UFTAB(4,2) 2390 DIM DTAB(4,2),FTAB(4,2),KTAB(4,2),HKRTAB(MKPOST DIV 40,2),UKRTAB(4,2) 2400 TAL4$="0+" 2410 IF T2(2)=0 THEN 2420 T2(2)=1 2430 EXEC FSYSUD(K1$,T1,T2) 2440 CHAIN "P641210:KSP1" 2450 ELSE 2460 OUTPUT T 2470 CLEAR 2480 K2$=N$+"22:SYSTEM22" 2490 REPEAT 2500 OPEN K2$,R 2510 IF STATUS(K2$)=0 THEN EXIT 2520 CURSOR 25,13 2530 INPUT "Isæt plade nr. 22 og tast RETURN",A$ 2540 UNTIL STATUS(K2$)=0 2550 GET K2$,13:T3(1),T3(2),T3(3),T3(4),T3(5),T3(6),T3(7),T3(8),T3(9) 2560 EXEC FEJL(9,12,K2$) 2570 GET K2$,17:T4(1),T4(2),T4(3),T4(4),T4(5),T4(6),T4(7),T4(8),T4(9) 2580 EXEC FEJL(9,13,K2$) 2590 CLOSE K2$ 2600 EXEC FEJL(9,14,K2$) 2610 K3$=N$+"20:DPOST" 2620 K4$=N$+"22:DPOST2" 2630 K5$=N$+"22:HDTAB2" 2640 K7$=N$+"20:DEBTAB" 2650 K8$=N$+"20:DEBPOST" 2660 K9$=N$+"20:HDTAB" 2670 EXEC PINIT(K4$,MDPOST) 2680 EXEC FKOPI(K3$,K4$,T1(6),T3(6)) 2690 EXEC TABINIT(K4$,K5$,MDPOST,HDTAB,UDTAB) 2700 EXEC FSYSUD(K2$,T3,T4) 2710 EXEC PINIT(K3$,MDPOST) 2720 EXEC KINIT(K7$,K8$,K3$,DTAB,0,T1(6),MDANTAL) 2730 EXEC TABINIT(K3$,K9$,MDPOST,HDTAB,UDTAB) 2740 EXEC FSYSUD(K1$,T1,T2) 2750 K3$=N$+"20:FPOST" 2760 K4$=N$+"22:FPOST2" 2770 K5$=N$+"22:HFTAB2" 2780 K7$=N$+"20:FINTAB" 2790 K8$=N$+"20:FINPOST" 2800 K9$=N$+"20:HFTAB" 2810 EXEC PINIT(K4$,MFPOST) 2820 EXEC FKOPI(K3$,K4$,T1(5),T3(5)) 2830 EXEC TABINIT(K4$,K5$,MFPOST,HFTAB,UFTAB) 2840 EXEC FSYSUD(K2$,T3,T4) 2850 EXEC PINIT(K3$,MFPOST) 2860 EXEC KINIT(K7$,K8$,K3$,FTAB,1,T1(5),MFANTAL) 2870 EXEC TABINIT(K3$,K9$,MFPOST,HFTAB,UFTAB) 2880 EXEC FSYSUD(K1$,T1,T2) 2890 K3$=N$+"20:KRPOST" 2900 K4$=N$+"22:KRPOST2" 2910 K5$=N$+"22:HKRTAB2" 2920 K7$=N$+"20:KRETAB" 2930 K8$=N$+"20:KREPOST" 2940 K9$=N$+"20:HKRTAB" 2950 EXEC PINIT(K4$,MKPOST) 2960 EXEC FKOPI(K3$,K4$,T1(7),T3(7)) 2970 EXEC TABINIT(K4$,K5$,MKPOST,HKRTAB,UKRTAB) 2980 EXEC FSYSUD(K2$,T3,T4) 2990 EXEC PINIT(K3$,MKPOST) 3000 EXEC KINIT(K7$,K8$,K3$,KTAB,2,T1(7),MKANTAL) 3010 EXEC TABINIT(K3$,K9$,MKPOST,HKRTAB,UKRTAB) 3020 T2(2)=0 3030 EXEC FSYSUD(K1$,T1,T2) 3040 CLEAR 3050 REPEAT 3060 CURSOR 30,13 3070 INPUT "Isæt plade nr. 10 , tast RETURN",A$ 3080 UNTIL ORD(A$)=255 3090 CHAIN "P641210:OPSTART" 3100 ENDIF 3110 END
0x0000…004a Line {l1=0x48, l2=»0100 DIM BLANK$(25),TKO$(1),BEO$(12),TEO$(25),OP1$(12),OP2$(12),RES$(14)«, l3=0x48}
0x004a…0095 Line {l1=0x49, l2=»0110 DIM DEBNAVN$(25),DSALDO1$(12),DSALDO2$(12),DSALDO3$(12),DSALDO4$(12)«, l3=0x49}
0x0095…00e2 Line {l1=0x4b, l2=»0120 DIM DEBKGR$(2),DEBBY$(20),ÅRKØB$(12),MDNKØB$(12),SALDO$(12),FNAVN$(25)«, l3=0x4b}
0x00e2…012a Line {l1=0x46, l2=»0130 DIM FMKODE$(1),FMDEBET$(12),FMKREDIT$(12),FUKODE$(1),FÅDEBET$(12)«, l3=0x46}
0x012a…0174 Line {l1=0x48, l2=»0140 DIM FÅKREDIT$(12),TAL4$(12),K1$(17),K2$(17),K3$(17),K4$(17),K5$(17)«, l3=0x48}
0x0174…01bd Line {l1=0x47, l2=»0150 DIM K6$(17),K7$(17),K8$(17),K9$(17),K10$(17),N$(6),A$(2),DEBLK$(2)«, l3=0x47}
0x01bd…020c Line {l1=0x4d, l2=»0160 DIM KREBY$(20),KRELK$(1),KREGR$(1),KSALDO1$(12),KSALDO2$(12),T1(9),T2(9)«, l3=0x4d}
0x020c…0222 Line {l1=0x14, l2=»0170 DIM T3(9),T4(9)«, l3=0x14}
0x0222…023f Line {l1=0x1b, l2=»0180 PROC FEJL(NR1,NR2,NR3)«, l3=0x1b}
0x023f…025e Line {l1=0x1d, l2=»0190 IF STATUS(NR3$)<>0 THEN «, l3=0x1d}
0x025e…0284 Line {l1=0x24, l2=»0200 PRINT NR1,NR2,NR3$,STATUS(NR3$)«, l3=0x24}
0x0284…0290 Line {l1=0x0a, l2=»0210 STOP «, l3=0x0a}
0x0290…029d Line {l1=0x0b, l2=»0220 ENDIF «, l3=0x0b}
0x029d…02ac Line {l1=0x0d, l2=»0230 ENDPROC «, l3=0x0d}
0x02ac…02c9 Line {l1=0x1b, l2=»0240 PROC FSYSUD(K12,T8,T9)«, l3=0x1b}
0x02c9…02db Line {l1=0x10, l2=»0250 OPEN K12$,W«, l3=0x10}
0x02db…02f5 Line {l1=0x18, l2=»0260 EXEC FEJL(6,1,K12$)«, l3=0x18}
0x02f5…033d Line {l1=0x46, l2=»0270 PUT K12$,13:T8(1),T8(2),T8(3),T8(4),T8(5),T8(6),T8(7),T8(8),T8(9)«, l3=0x46}
0x033d…0357 Line {l1=0x18, l2=»0280 EXEC FEJL(6,2,K12$)«, l3=0x18}
0x0357…039f Line {l1=0x46, l2=»0290 PUT K12$,17:T9(1),T9(2),T9(3),T9(4),T9(5),T9(6),T9(7),T9(8),T9(9)«, l3=0x46}
0x039f…03b9 Line {l1=0x18, l2=»0300 EXEC FEJL(6,3,K12$)«, l3=0x18}
0x03b9…03ca Line {l1=0x0f, l2=»0310 CLOSE K12$«, l3=0x0f}
0x03ca…03e4 Line {l1=0x18, l2=»0320 EXEC FEJL(6,4,K12$)«, l3=0x18}
0x03e4…03f3 Line {l1=0x0d, l2=»0330 ENDPROC «, l3=0x0d}
0x03f3…0422 Line {l1=0x2d, l2=»0340 PROC FGET2(K15,I3,N3,D3,BI3,TK3,BE3,TE3)«, l3=0x2d}
0x0422…0448 Line {l1=0x24, l2=»0350 GET K15$,I3:N3,D3,BI3,TK3$,BE3$«, l3=0x24}
0x0448…0462 Line {l1=0x18, l2=»0360 EXEC FEJL(9,1,K15$)«, l3=0x18}
0x0462…0494 Line {l1=0x30, l2=»0370 IF ORD(TK3$)-48>9 AND ORD(TK3$)-48<20 THEN «, l3=0x30}
0x0494…04a2 Line {l1=0x0c, l2=»0380 I3=I3+1«, l3=0x0c}
0x04a2…04bc Line {l1=0x18, l2=»0390 GET K15$,I3:N3,TE3$«, l3=0x18}
0x04bc…04d6 Line {l1=0x18, l2=»0400 EXEC FEJL(9,2,K15$)«, l3=0x18}
0x04d6…04e2 Line {l1=0x0a, l2=»0410 ELSE «, l3=0x0a}
0x04e2…04f4 Line {l1=0x10, l2=»0420 TE3$=BLANK$«, l3=0x10}
0x04f4…0501 Line {l1=0x0b, l2=»0430 ENDIF «, l3=0x0b}
0x0501…0510 Line {l1=0x0d, l2=»0440 ENDPROC «, l3=0x0d}
0x0510…053f Line {l1=0x2d, l2=»0450 PROC FPUT2(K16,I4,N4,D4,BI4,TK4,BE4,TE4)«, l3=0x2d}
0x053f…0565 Line {l1=0x24, l2=»0460 PUT K16$,I4:N4,D4,BI4,TK4$,BE4$«, l3=0x24}
0x0565…0580 Line {l1=0x19, l2=»0470 EXEC FEJL(10,1,K16$)«, l3=0x19}
0x0580…05b2 Line {l1=0x30, l2=»0480 IF ORD(TK4$)-48>9 AND ORD(TK4$)-48<20 THEN «, l3=0x30}
0x05b2…05c0 Line {l1=0x0c, l2=»0490 I4=I4+1«, l3=0x0c}
0x05c0…05da Line {l1=0x18, l2=»0500 PUT K16$,I4:N4,TE4$«, l3=0x18}
0x05da…05f5 Line {l1=0x19, l2=»0510 EXEC FEJL(10,2,K16$)«, l3=0x19}
0x05f5…0602 Line {l1=0x0b, l2=»0520 ENDIF «, l3=0x0b}
0x0602…0611 Line {l1=0x0d, l2=»0530 ENDPROC «, l3=0x0d}
0x0611…0635 Line {l1=0x22, l2=»0540 PROC FKOPI(K19,K20,DPO4,DPO5)«, l3=0x22}
0x0635…0647 Line {l1=0x10, l2=»0550 OPEN K19$,R«, l3=0x10}
0x0647…0662 Line {l1=0x19, l2=»0560 EXEC FEJL(12,1,K19$)«, l3=0x19}
0x0662…0674 Line {l1=0x10, l2=»0570 OPEN K20$,W«, l3=0x10}
0x0674…068f Line {l1=0x19, l2=»0580 EXEC FEJL(12,2,K20$)«, l3=0x19}
0x068f…06a5 Line {l1=0x14, l2=»0590 FOR I=1 TO DPO4«, l3=0x14}
0x06a5…06af Line {l1=0x08, l2=»0600 J=I«, l3=0x08}
0x06af…06e1 Line {l1=0x30, l2=»0610 EXEC FGET2(K19$,I,NO,DO,BIO,TKO$,BEO$,TEO$)«, l3=0x30}
0x06e1…0713 Line {l1=0x30, l2=»0620 EXEC FPUT2(K20$,J,NO,DO,BIO,TKO$,BEO$,TEO$)«, l3=0x30}
0x0713…0720 Line {l1=0x0b, l2=»0630 NEXT I«, l3=0x0b}
0x0720…0731 Line {l1=0x0f, l2=»0640 CLOSE K19$«, l3=0x0f}
0x0731…0742 Line {l1=0x0f, l2=»0650 CLOSE K20$«, l3=0x0f}
0x0742…075d Line {l1=0x19, l2=»0660 EXEC FEJL(12,3,K20$)«, l3=0x19}
0x075d…076d Line {l1=0x0e, l2=»0670 DPO5=DPO4«, l3=0x0e}
0x076d…077c Line {l1=0x0d, l2=»0680 ENDPROC «, l3=0x0d}
0x077c…07a0 Line {l1=0x22, l2=»0690 PROC HOVIND(V1,MPOSTANTAL1,R)«, l3=0x22}
0x07a0…07b1 Line {l1=0x0f, l2=»0700 OPEN V1$,R«, l3=0x0f}
0x07b1…07cb Line {l1=0x18, l2=»0710 EXEC FEJL(13,1,V1$)«, l3=0x18}
0x07cb…07f0 Line {l1=0x23, l2=»0720 FOR I=1 TO MPOSTANTAL1 DIV 160«, l3=0x23}
0x07f0…0817 Line {l1=0x25, l2=»0730 J=(I-1)*4+1;J1=J+1;J2=J+2;J3=J+3«, l3=0x25}
0x0817…0865 Line {l1=0x4c, l2=»0740 GET V1$,I:R(J,1),R(J,2),R(J1,1),R(J1,2),R(J2,1),R(J2,2),R(J3,1),R(J3,2)«, l3=0x4c}
0x0865…087f Line {l1=0x18, l2=»0750 EXEC FEJL(13,2,V1$)«, l3=0x18}
0x087f…088c Line {l1=0x0b, l2=»0760 NEXT I«, l3=0x0b}
0x088c…089c Line {l1=0x0e, l2=»0770 CLOSE V1$«, l3=0x0e}
0x089c…08b6 Line {l1=0x18, l2=»0780 EXEC FEJL(13,3,V1$)«, l3=0x18}
0x08b6…08c5 Line {l1=0x0d, l2=»0790 ENDPROC «, l3=0x0d}
0x08c5…08e0 Line {l1=0x19, l2=»0800 PROC UNDIND(V2,U1,Z)«, l3=0x19}
0x08e0…08f1 Line {l1=0x0f, l2=»0810 OPEN V2$,R«, l3=0x0f}
0x08f1…090b Line {l1=0x18, l2=»0820 EXEC FEJL(14,1,V2$)«, l3=0x18}
0x090b…0954 Line {l1=0x47, l2=»0830 GET V2$,U1:Z(1,1),Z(1,2),Z(2,1),Z(2,2),Z(3,1),Z(3,2),Z(4,1),Z(4,2)«, l3=0x47}
0x0954…096e Line {l1=0x18, l2=»0840 EXEC FEJL(14,2,V2$)«, l3=0x18}
0x096e…097e Line {l1=0x0e, l2=»0850 CLOSE V2$«, l3=0x0e}
0x097e…0998 Line {l1=0x18, l2=»0860 EXEC FEJL(14,3,V2$)«, l3=0x18}
0x0998…09ae Line {l1=0x14, l2=»0870 ENDPROC ;UNDIND«, l3=0x14}
0x09ae…09e2 Line {l1=0x32, l2=»0880 PROC TABINIT(K31,K32,MPOSTANTAL3,HTAB2,UTAB2)«, l3=0x32}
0x09e2…09f4 Line {l1=0x10, l2=»0890 OPEN K31$,R«, l3=0x10}
0x09f4…0a0f Line {l1=0x19, l2=»0900 EXEC FEJL(15,1,K31$)«, l3=0x19}
0x0a0f…0a21 Line {l1=0x10, l2=»0910 OPEN K32$,W«, l3=0x10}
0x0a21…0a3c Line {l1=0x19, l2=»0920 EXEC FEJL(15,2,K32$)«, l3=0x19}
0x0a3c…0a46 Line {l1=0x08, l2=»0930 H=1«, l3=0x08}
0x0a46…0a6a Line {l1=0x22, l2=»0940 FOR I=1 TO MPOSTANTAL3 DIV 40«, l3=0x22}
0x0a6a…0a80 Line {l1=0x14, l2=»0950 GET K31$,H:KONR«, l3=0x14}
0x0a80…0a9b Line {l1=0x19, l2=»0960 EXEC FEJL(15,3,K31$)«, l3=0x19}
0x0a9b…0ab1 Line {l1=0x14, l2=»0970 HTAB2(I,1)=KONR«, l3=0x14}
0x0ab1…0ac4 Line {l1=0x11, l2=»0980 FOR J=1 TO 4«, l3=0x11}
0x0ac4…0ada Line {l1=0x14, l2=»0990 GET K31$,H:KONR«, l3=0x14}
0x0ada…0af5 Line {l1=0x19, l2=»1000 EXEC FEJL(15,4,K31$)«, l3=0x19}
0x0af5…0b0b Line {l1=0x14, l2=»1010 UTAB2(J,1)=KONR«, l3=0x14}
0x0b0b…0b17 Line {l1=0x0a, l2=»1020 H=H+9«, l3=0x0a}
0x0b17…0b2d Line {l1=0x14, l2=»1030 GET K31$,H:KONR«, l3=0x14}
0x0b2d…0b48 Line {l1=0x19, l2=»1040 EXEC FEJL(15,5,K31$)«, l3=0x19}
0x0b48…0b5e Line {l1=0x14, l2=»1050 UTAB2(J,2)=KONR«, l3=0x14}
0x0b5e…0b6a Line {l1=0x0a, l2=»1060 H=H+1«, l3=0x0a}
0x0b6a…0b77 Line {l1=0x0b, l2=»1070 NEXT J«, l3=0x0b}
0x0b77…0b8d Line {l1=0x14, l2=»1080 HTAB2(I,2)=KONR«, l3=0x14}
0x0b8d…0bab Line {l1=0x1c, l2=»1090 K=I+MPOSTANTAL3 DIV 160«, l3=0x1c}
0x0bab…0bca Line {l1=0x1d, l2=»1100 EXEC UNDUD(K32$,K,UTAB2)«, l3=0x1d}
0x0bca…0bd7 Line {l1=0x0b, l2=»1110 NEXT I«, l3=0x0b}
0x0bd7…0c00 Line {l1=0x27, l2=»1120 EXEC HOVUD(K32$,MPOSTANTAL3,HTAB2)«, l3=0x27}
0x0c00…0c11 Line {l1=0x0f, l2=»1130 CLOSE K31$«, l3=0x0f}
0x0c11…0c2c Line {l1=0x19, l2=»1140 EXEC FEJL(15,6,K31$)«, l3=0x19}
0x0c2c…0c3d Line {l1=0x0f, l2=»1150 CLOSE K32$«, l3=0x0f}
0x0c3d…0c58 Line {l1=0x19, l2=»1160 EXEC FEJL(15,7,K32$)«, l3=0x19}
0x0c58…0c6f Line {l1=0x15, l2=»1170 ENDPROC ;TABINIT«, l3=0x15}
0x0c6f…0c89 Line {l1=0x18, l2=»1180 PROC UNDUD(V3,U2,T)«, l3=0x18}
0x0c89…0cd2 Line {l1=0x47, l2=»1190 PUT V3$,U2:T(1,1),T(1,2),T(2,1),T(2,2),T(3,1),T(3,2),T(4,1),T(4,2)«, l3=0x47}
0x0cd2…0cec Line {l1=0x18, l2=»1200 EXEC FEJL(16,1,V3$)«, l3=0x18}
0x0cec…0d01 Line {l1=0x13, l2=»1210 ENDPROC ;UNDUD«, l3=0x13}
0x0d01…0d24 Line {l1=0x21, l2=»1220 PROC HOVUD(V4,MPOSTANTAL4,S)«, l3=0x21}
0x0d24…0d49 Line {l1=0x23, l2=»1230 FOR I=1 TO MPOSTANTAL4 DIV 160«, l3=0x23}
0x0d49…0d70 Line {l1=0x25, l2=»1240 J=(I-1)*4+1;J1=J+1;J2=J+2;J3=J+3«, l3=0x25}
0x0d70…0dbe Line {l1=0x4c, l2=»1250 PUT V4$,I:S(J,1),S(J,2),S(J1,1),S(J1,2),S(J2,1),S(J2,2),S(J3,1),S(J3,2)«, l3=0x4c}
0x0dbe…0dd8 Line {l1=0x18, l2=»1260 EXEC FEJL(17,2,V4$)«, l3=0x18}
0x0dd8…0de5 Line {l1=0x0b, l2=»1270 NEXT I«, l3=0x0b}
0x0de5…0df4 Line {l1=0x0d, l2=»1280 ENDPROC «, l3=0x0d}
0x0df4…0e12 Line {l1=0x1c, l2=»1290 PROC CALC(ART,AB,AC,ES)«, l3=0x1c}
0x0e12…0e3f Line {l1=0x2b, l2=»1300 OP1$=AB$;OP2$=AC$;RES$=ES$;SI=0;FLAG=0«, l3=0x2b}
0x0e3f…0e59 Line {l1=0x18, l2=»1310 CALL "P641210:REGN"«, l3=0x18}
0x0e59…0e68 Line {l1=0x0d, l2=»1320 ES$=RES$«, l3=0x0d}
0x0e68…0e84 Line {l1=0x1a, l2=»1330 IF FLAG<>0 THEN STOP «, l3=0x1a}
0x0e84…0e93 Line {l1=0x0d, l2=»1340 ENDPROC «, l3=0x0d}
0x0e93…0eb5 Line {l1=0x20, l2=»1350 PROC PINIT(K61,MPOSTANTAL8)«, l3=0x20}
0x0eb5…0ec7 Line {l1=0x10, l2=»1360 OPEN K61$,W«, l3=0x10}
0x0ec7…0ee1 Line {l1=0x18, l2=»1370 EXEC FEJL(1,1,K61$)«, l3=0x18}
0x0ee1…0efe Line {l1=0x1b, l2=»1380 FOR I=1 TO MPOSTANTAL8«, l3=0x1b}
0x0efe…0f16 Line {l1=0x16, l2=»1390 PUT K61$,I:100000«, l3=0x16}
0x0f16…0f30 Line {l1=0x18, l2=»1400 EXEC FEJL(1,2,K61$)«, l3=0x18}
0x0f30…0f3d Line {l1=0x0b, l2=»1410 NEXT I«, l3=0x0b}
0x0f3d…0f4e Line {l1=0x0f, l2=»1420 CLOSE K61$«, l3=0x0f}
0x0f4e…0f68 Line {l1=0x18, l2=»1430 EXEC FEJL(1,3,K61$)«, l3=0x18}
0x0f68…0f77 Line {l1=0x0d, l2=»1440 ENDPROC «, l3=0x0d}
0x0f77…0fa6 Line {l1=0x2d, l2=»1450 PROC KINIT(K62,K63,K64,TAB1,KM,F,MANTAL)«, l3=0x2d}
0x0fa6…0fc0 Line {l1=0x18, l2=»1460 F=0;TKO$=CHR(26+48)«, l3=0x18}
0x0fc0…0fd2 Line {l1=0x10, l2=»1470 OPEN K63$,W«, l3=0x10}
0x0fd2…0fec Line {l1=0x18, l2=»1480 EXEC FEJL(2,1,K63$)«, l3=0x18}
0x0fec…0ffe Line {l1=0x10, l2=»1490 OPEN K64$,W«, l3=0x10}
0x0ffe…1019 Line {l1=0x19, l2=»1500 EXEC FEJL(2,22,K64$)«, l3=0x19}
0x1019…1037 Line {l1=0x1c, l2=»1510 FOR J=1 TO MANTAL DIV 4«, l3=0x1c}
0x1037…104f Line {l1=0x16, l2=»1520 K=J+MANTAL DIV 32«, l3=0x16}
0x104f…106e Line {l1=0x1d, l2=»1530 EXEC UNDIND(K62$,K,TAB1)«, l3=0x1d}
0x106e…1081 Line {l1=0x11, l2=»1540 FOR I=1 TO 4«, l3=0x11}
0x1081…10a7 Line {l1=0x24, l2=»1550 IF TAB1(I,1)=1000000 THEN EXIT «, l3=0x24}
0x10a7…10b9 Line {l1=0x10, l2=»1560 X=TAB1(I,2)«, l3=0x10}
0x10b9…10cb Line {l1=0x10, l2=»1570 CASE KM OF «, l3=0x10}
0x10cb…10fc Line {l1=0x2f, l2=»1580 GET K63$,X:DEBNR,DEBNAVN$,DSALDO1$,DEBKGR$«, l3=0x2f}
0x10fc…1116 Line {l1=0x18, l2=»1590 EXEC FEJL(2,2,K63$)«, l3=0x18}
0x1116…113b Line {l1=0x23, l2=»1600 IF DEBNR<>TAB1(I,1) THEN STOP «, l3=0x23}
0x113b…117a Line {l1=0x3d, l2=»1610 GET K63$,X+1:DSALDO2$,DSALDO3$,DSALDO4$,DEBPOSTNR,DEBLK$«, l3=0x3d}
0x117a…1194 Line {l1=0x18, l2=»1620 EXEC FEJL(2,3,K63$)«, l3=0x18}
0x1194…11bd Line {l1=0x27, l2=»1630 GET K63$,X+3:DEBBY$,ÅRKØB$,MDNKØB$«, l3=0x27}
0x11bd…11d7 Line {l1=0x18, l2=»1640 EXEC FEJL(2,4,K63$)«, l3=0x18}
0x11d7…1203 Line {l1=0x2a, l2=»1650 EXEC CALC(0,DSALDO3$,DSALDO4$,SALDO$)«, l3=0x2a}
0x1203…1219 Line {l1=0x14, l2=»1660 DSALDO4$=SALDO$«, l3=0x14}
0x1219…1243 Line {l1=0x28, l2=»1670 EXEC CALC(0,SALDO$,DSALDO2$,SALDO$)«, l3=0x28}
0x1243…125b Line {l1=0x16, l2=»1680 DSALDO3$=DSALDO2$«, l3=0x16}
0x125b…1285 Line {l1=0x28, l2=»1690 EXEC CALC(0,SALDO$,DSALDO1$,SALDO$)«, l3=0x28}
0x1285…129d Line {l1=0x16, l2=»1700 DSALDO2$=DSALDO1$«, l3=0x16}
0x129d…12b1 Line {l1=0x12, l2=»1710 DSALDO1$="0+"«, l3=0x12}
0x12b1…12c4 Line {l1=0x11, l2=»1720 MDNKØB$="0+"«, l3=0x11}
0x12c4…12f5 Line {l1=0x2f, l2=»1730 PUT K63$,X:DEBNR,DEBNAVN$,DSALDO1$,DEBKGR$«, l3=0x2f}
0x12f5…130f Line {l1=0x18, l2=»1740 EXEC FEJL(2,5,K63$)«, l3=0x18}
0x130f…134e Line {l1=0x3d, l2=»1750 PUT K63$,X+1:DSALDO2$,DSALDO3$,DSALDO4$,DEBPOSTNR,DEBLK$«, l3=0x3d}
0x134e…1368 Line {l1=0x18, l2=»1760 EXEC FEJL(2,6,K63$)«, l3=0x18}
0x1368…1391 Line {l1=0x27, l2=»1770 PUT K63$,X+3:DEBBY$,ÅRKØB$,MDNKØB$«, l3=0x27}
0x1391…13ab Line {l1=0x18, l2=»1780 EXEC FEJL(2,7,K63$)«, l3=0x18}
0x13ab…13b8 Line {l1=0x0b, l2=»1790 WHEN 1«, l3=0x0b}
0x13b8…13e6 Line {l1=0x2c, l2=»1800 GET K63$,X+1:FMKODE$,FMDEBET$,FMKREDIT$«, l3=0x2c}
0x13e6…1401 Line {l1=0x19, l2=»1810 EXEC FEJL(2,14,K63$)«, l3=0x19}
0x1401…142f Line {l1=0x2c, l2=»1820 GET K63$,X+2:FUKODE$,FÅDEBET$,FÅKREDIT$«, l3=0x2c}
0x142f…144a Line {l1=0x19, l2=»1830 EXEC FEJL(2,15,K63$)«, l3=0x19}
0x144a…1477 Line {l1=0x2b, l2=»1840 EXEC CALC(0,FÅDEBET$,FÅKREDIT$,SALDO$)«, l3=0x2b}
0x1477…148b Line {l1=0x12, l2=»1850 FMDEBET$="0+"«, l3=0x12}
0x148b…14a0 Line {l1=0x13, l2=»1860 FMKREDIT$="0+"«, l3=0x13}
0x14a0…14ce Line {l1=0x2c, l2=»1870 PUT K63$,X+1:FMKODE$,FMDEBET$,FMKREDIT$«, l3=0x2c}
0x14ce…14e9 Line {l1=0x19, l2=»1880 EXEC FEJL(2,17,K63$)«, l3=0x19}
0x14e9…1517 Line {l1=0x2c, l2=»1890 PUT K63$,X+2:FUKODE$,FÅDEBET$,FÅKREDIT$«, l3=0x2c}
0x1517…1532 Line {l1=0x19, l2=»1900 EXEC FEJL(2,18,K63$)«, l3=0x19}
0x1532…153f Line {l1=0x0b, l2=»1910 WHEN 2«, l3=0x0b}
0x153f…1583 Line {l1=0x42, l2=»1920 GET K63$,X+1:KREBY$,KRELK$,KREGR$,KREPOSTNR,KSALDO1$,KSALDO2$«, l3=0x42}
0x1583…159e Line {l1=0x19, l2=»1930 EXEC FEJL(2,20,K63$)«, l3=0x19}
0x159e…15ca Line {l1=0x2a, l2=»1940 EXEC CALC(0,KSALDO1$,KSALDO2$,SALDO$)«, l3=0x2a}
0x15ca…15ee Line {l1=0x22, l2=»1950 KSALDO2$=SALDO$;KSALDO1$="0+"«, l3=0x22}
0x15ee…1632 Line {l1=0x42, l2=»1960 PUT K63$,X+1:KREBY$,KRELK$,KREGR$,KREPOSTNR,KSALDO1$,KSALDO2$«, l3=0x42}
0x1632…164d Line {l1=0x19, l2=»1970 EXEC FEJL(2,21,K63$)«, l3=0x19}
0x164d…165c Line {l1=0x0d, l2=»1980 ENDCASE «, l3=0x0d}
0x165c…1682 Line {l1=0x24, l2=»1990 EXEC CALC(4,TAL4$,SALDO$,TAL4$)«, l3=0x24}
0x1682…16a2 Line {l1=0x1e, l2=»2000 IF KM<>1 THEN FUKODE$="0"«, l3=0x1e}
0x16a2…16cd Line {l1=0x29, l2=»2010 IF SI<>0 AND ORD(FUKODE$)-48<1 THEN «, l3=0x29}
0x16cd…16d9 Line {l1=0x0a, l2=»2020 F=F+1«, l3=0x0a}
0x16d9…1708 Line {l1=0x2d, l2=»2030 PUT K64$,F:TAB1(I,1),DATO,-1,TKO$,SALDO$«, l3=0x2d}
0x1708…1723 Line {l1=0x19, l2=»2040 EXEC FEJL(2,21,K64$)«, l3=0x19}
0x1723…1730 Line {l1=0x0b, l2=»2050 ENDIF «, l3=0x0b}
0x1730…173d Line {l1=0x0b, l2=»2060 NEXT I«, l3=0x0b}
0x173d…176b Line {l1=0x2c, l2=»2070 IF TAB1(I-1*(I=5),1)=1000000 THEN EXIT «, l3=0x2c}
0x176b…1778 Line {l1=0x0b, l2=»2080 NEXT J«, l3=0x0b}
0x1778…1789 Line {l1=0x0f, l2=»2090 CLOSE K63$«, l3=0x0f}
0x1789…17a4 Line {l1=0x19, l2=»2100 EXEC FEJL(2,22,K63$)«, l3=0x19}
0x17a4…17b5 Line {l1=0x0f, l2=»2110 CLOSE K64$«, l3=0x0f}
0x17b5…17d0 Line {l1=0x19, l2=»2120 EXEC FEJL(2,23,K64$)«, l3=0x19}
0x17d0…17df Line {l1=0x0d, l2=»2130 ENDPROC «, l3=0x0d}
0x17df…17fb Line {l1=0x1a, l2=»2140 K1$="P641220:SYSTEM1"«, l3=0x1a}
0x17fb…180c Line {l1=0x0f, l2=»2150 OPEN K1$,R«, l3=0x0f}
0x180c…1825 Line {l1=0x17, l2=»2160 EXEC FEJL(9,1,K1$)«, l3=0x17}
0x1825…184d Line {l1=0x26, l2=»2170 GET K1$,1:MFANTAL,MDANTAL,MKANTAL«, l3=0x26}
0x184d…1866 Line {l1=0x17, l2=»2180 EXEC FEJL(9,2,K1$)«, l3=0x17}
0x1866…1890 Line {l1=0x28, l2=»2190 GET K1$,3:MDMID,MKMID,MFPOST,MDPOST«, l3=0x28}
0x1890…18a9 Line {l1=0x17, l2=»2200 EXEC FEJL(9,3,K1$)«, l3=0x17}
0x18a9…18c0 Line {l1=0x15, l2=»2210 GET K1$,4:MKPOST«, l3=0x15}
0x18c0…18d9 Line {l1=0x17, l2=»2220 EXEC FEJL(9,4,K1$)«, l3=0x17}
0x18d9…18ed Line {l1=0x12, l2=»2230 GET K1$,10:N$«, l3=0x12}
0x18ed…1906 Line {l1=0x17, l2=»2240 EXEC FEJL(9,5,K1$)«, l3=0x17}
0x1906…1916 Line {l1=0x0e, l2=»2250 CLOSE K1$«, l3=0x0e}
0x1916…192f Line {l1=0x17, l2=»2260 EXEC FEJL(9,6,K1$)«, l3=0x17}
0x192f…1949 Line {l1=0x18, l2=»2270 K1$=N$+"20:SYSTEM2"«, l3=0x18}
0x1949…195a Line {l1=0x0f, l2=»2280 OPEN K1$,R«, l3=0x0f}
0x195a…1973 Line {l1=0x17, l2=»2290 EXEC FEJL(9,7,K1$)«, l3=0x17}
0x1973…19ac Line {l1=0x37, l2=»2300 GET K1$,2:T1(1),T1(2),T1(3),T1(4),T1(5),T1(6),DATO«, l3=0x37}
0x19ac…19c5 Line {l1=0x17, l2=»2310 EXEC FEJL(9,8,K1$)«, l3=0x17}
0x19c5…1a0c Line {l1=0x45, l2=»2320 GET K1$,13:T1(1),T1(2),T1(3),T1(4),T1(5),T1(6),T1(7),T1(8),T1(9)«, l3=0x45}
0x1a0c…1a25 Line {l1=0x17, l2=»2330 EXEC FEJL(9,9,K1$)«, l3=0x17}
0x1a25…1a6c Line {l1=0x45, l2=»2340 GET K1$,17:T2(1),T2(2),T2(3),T2(4),T2(5),T2(6),T2(7),T2(8),T2(9)«, l3=0x45}
0x1a6c…1a86 Line {l1=0x18, l2=»2350 EXEC FEJL(9,10,K1$)«, l3=0x18}
0x1a86…1a96 Line {l1=0x0e, l2=»2360 CLOSE K1$«, l3=0x0e}
0x1a96…1ab0 Line {l1=0x18, l2=»2370 EXEC FEJL(9,11,K1$)«, l3=0x18}
0x1ab0…1afe Line {l1=0x4c, l2=»2380 DIM HDTAB(MDPOST DIV 40,2),HFTAB(MFPOST DIV 40,2),UDTAB(4,2),UFTAB(4,2)«, l3=0x4c}
0x1afe…1b4a Line {l1=0x4a, l2=»2390 DIM DTAB(4,2),FTAB(4,2),KTAB(4,2),HKRTAB(MKPOST DIV 40,2),UKRTAB(4,2)«, l3=0x4a}
0x1b4a…1b5b Line {l1=0x0f, l2=»2400 TAL4$="0+"«, l3=0x0f}
0x1b5b…1b72 Line {l1=0x15, l2=»2410 IF T2(2)=0 THEN «, l3=0x15}
0x1b72…1b80 Line {l1=0x0c, l2=»2420 T2(2)=1«, l3=0x0c}
0x1b80…1b9d Line {l1=0x1b, l2=»2430 EXEC FSYSUD(K1$,T1,T2)«, l3=0x1b}
0x1b9d…1bb8 Line {l1=0x19, l2=»2440 CHAIN "P641210:KSP1"«, l3=0x19}
0x1bb8…1bc4 Line {l1=0x0a, l2=»2450 ELSE «, l3=0x0a}
0x1bc4…1bd3 Line {l1=0x0d, l2=»2460 OUTPUT T«, l3=0x0d}
0x1bd3…1be0 Line {l1=0x0b, l2=»2470 CLEAR «, l3=0x0b}
0x1be0…1bfb Line {l1=0x19, l2=»2480 K2$=N$+"22:SYSTEM22"«, l3=0x19}
0x1bfb…1c09 Line {l1=0x0c, l2=»2490 REPEAT «, l3=0x0c}
0x1c09…1c1a Line {l1=0x0f, l2=»2500 OPEN K2$,R«, l3=0x0f}
0x1c1a…1c3c Line {l1=0x20, l2=»2510 IF STATUS(K2$)=0 THEN EXIT «, l3=0x20}
0x1c3c…1c4f Line {l1=0x11, l2=»2520 CURSOR 25,13«, l3=0x11}
0x1c4f…1c81 Line {l1=0x30, l2=»2530 INPUT "Isæt plade nr. 22 og tast RETURN",A$«, l3=0x30}
0x1c81…1c9b Line {l1=0x18, l2=»2540 UNTIL STATUS(K2$)=0«, l3=0x18}
0x1c9b…1ce2 Line {l1=0x45, l2=»2550 GET K2$,13:T3(1),T3(2),T3(3),T3(4),T3(5),T3(6),T3(7),T3(8),T3(9)«, l3=0x45}
0x1ce2…1cfc Line {l1=0x18, l2=»2560 EXEC FEJL(9,12,K2$)«, l3=0x18}
0x1cfc…1d43 Line {l1=0x45, l2=»2570 GET K2$,17:T4(1),T4(2),T4(3),T4(4),T4(5),T4(6),T4(7),T4(8),T4(9)«, l3=0x45}
0x1d43…1d5d Line {l1=0x18, l2=»2580 EXEC FEJL(9,13,K2$)«, l3=0x18}
0x1d5d…1d6d Line {l1=0x0e, l2=»2590 CLOSE K2$«, l3=0x0e}
0x1d6d…1d87 Line {l1=0x18, l2=»2600 EXEC FEJL(9,14,K2$)«, l3=0x18}
0x1d87…1d9f Line {l1=0x16, l2=»2610 K3$=N$+"20:DPOST"«, l3=0x16}
0x1d9f…1db8 Line {l1=0x17, l2=»2620 K4$=N$+"22:DPOST2"«, l3=0x17}
0x1db8…1dd1 Line {l1=0x17, l2=»2630 K5$=N$+"22:HDTAB2"«, l3=0x17}
0x1dd1…1dea Line {l1=0x17, l2=»2640 K7$=N$+"20:DEBTAB"«, l3=0x17}
0x1dea…1e04 Line {l1=0x18, l2=»2650 K8$=N$+"20:DEBPOST"«, l3=0x18}
0x1e04…1e1c Line {l1=0x16, l2=»2660 K9$=N$+"20:HDTAB"«, l3=0x16}
0x1e1c…1e39 Line {l1=0x1b, l2=»2670 EXEC PINIT(K4$,MDPOST)«, l3=0x1b}
0x1e39…1e5f Line {l1=0x24, l2=»2680 EXEC FKOPI(K3$,K4$,T1(6),T3(6))«, l3=0x24}
0x1e5f…1e8e Line {l1=0x2d, l2=»2690 EXEC TABINIT(K4$,K5$,MDPOST,HDTAB,UDTAB)«, l3=0x2d}
0x1e8e…1eab Line {l1=0x1b, l2=»2700 EXEC FSYSUD(K2$,T3,T4)«, l3=0x1b}
0x1eab…1ec8 Line {l1=0x1b, l2=»2710 EXEC PINIT(K3$,MDPOST)«, l3=0x1b}
0x1ec8…1efb Line {l1=0x31, l2=»2720 EXEC KINIT(K7$,K8$,K3$,DTAB,0,T1(6),MDANTAL)«, l3=0x31}
0x1efb…1f2a Line {l1=0x2d, l2=»2730 EXEC TABINIT(K3$,K9$,MDPOST,HDTAB,UDTAB)«, l3=0x2d}
0x1f2a…1f47 Line {l1=0x1b, l2=»2740 EXEC FSYSUD(K1$,T1,T2)«, l3=0x1b}
0x1f47…1f5f Line {l1=0x16, l2=»2750 K3$=N$+"20:FPOST"«, l3=0x16}
0x1f5f…1f78 Line {l1=0x17, l2=»2760 K4$=N$+"22:FPOST2"«, l3=0x17}
0x1f78…1f91 Line {l1=0x17, l2=»2770 K5$=N$+"22:HFTAB2"«, l3=0x17}
0x1f91…1faa Line {l1=0x17, l2=»2780 K7$=N$+"20:FINTAB"«, l3=0x17}
0x1faa…1fc4 Line {l1=0x18, l2=»2790 K8$=N$+"20:FINPOST"«, l3=0x18}
0x1fc4…1fdc Line {l1=0x16, l2=»2800 K9$=N$+"20:HFTAB"«, l3=0x16}
0x1fdc…1ff9 Line {l1=0x1b, l2=»2810 EXEC PINIT(K4$,MFPOST)«, l3=0x1b}
0x1ff9…201f Line {l1=0x24, l2=»2820 EXEC FKOPI(K3$,K4$,T1(5),T3(5))«, l3=0x24}
0x201f…204e Line {l1=0x2d, l2=»2830 EXEC TABINIT(K4$,K5$,MFPOST,HFTAB,UFTAB)«, l3=0x2d}
0x204e…206b Line {l1=0x1b, l2=»2840 EXEC FSYSUD(K2$,T3,T4)«, l3=0x1b}
0x206b…2088 Line {l1=0x1b, l2=»2850 EXEC PINIT(K3$,MFPOST)«, l3=0x1b}
0x2088…20bb Line {l1=0x31, l2=»2860 EXEC KINIT(K7$,K8$,K3$,FTAB,1,T1(5),MFANTAL)«, l3=0x31}
0x20bb…20ea Line {l1=0x2d, l2=»2870 EXEC TABINIT(K3$,K9$,MFPOST,HFTAB,UFTAB)«, l3=0x2d}
0x20ea…2107 Line {l1=0x1b, l2=»2880 EXEC FSYSUD(K1$,T1,T2)«, l3=0x1b}
0x2107…2120 Line {l1=0x17, l2=»2890 K3$=N$+"20:KRPOST"«, l3=0x17}
0x2120…213a Line {l1=0x18, l2=»2900 K4$=N$+"22:KRPOST2"«, l3=0x18}
0x213a…2154 Line {l1=0x18, l2=»2910 K5$=N$+"22:HKRTAB2"«, l3=0x18}
0x2154…216d Line {l1=0x17, l2=»2920 K7$=N$+"20:KRETAB"«, l3=0x17}
0x216d…2187 Line {l1=0x18, l2=»2930 K8$=N$+"20:KREPOST"«, l3=0x18}
0x2187…21a0 Line {l1=0x17, l2=»2940 K9$=N$+"20:HKRTAB"«, l3=0x17}
0x21a0…21bd Line {l1=0x1b, l2=»2950 EXEC PINIT(K4$,MKPOST)«, l3=0x1b}
0x21bd…21e3 Line {l1=0x24, l2=»2960 EXEC FKOPI(K3$,K4$,T1(7),T3(7))«, l3=0x24}
0x21e3…2214 Line {l1=0x2f, l2=»2970 EXEC TABINIT(K4$,K5$,MKPOST,HKRTAB,UKRTAB)«, l3=0x2f}
0x2214…2231 Line {l1=0x1b, l2=»2980 EXEC FSYSUD(K2$,T3,T4)«, l3=0x1b}
0x2231…224e Line {l1=0x1b, l2=»2990 EXEC PINIT(K3$,MKPOST)«, l3=0x1b}
0x224e…2281 Line {l1=0x31, l2=»3000 EXEC KINIT(K7$,K8$,K3$,KTAB,2,T1(7),MKANTAL)«, l3=0x31}
0x2281…22b2 Line {l1=0x2f, l2=»3010 EXEC TABINIT(K3$,K9$,MKPOST,HKRTAB,UKRTAB)«, l3=0x2f}
0x22b2…22c0 Line {l1=0x0c, l2=»3020 T2(2)=0«, l3=0x0c}
0x22c0…22dd Line {l1=0x1b, l2=»3030 EXEC FSYSUD(K1$,T1,T2)«, l3=0x1b}
0x22dd…22ea Line {l1=0x0b, l2=»3040 CLEAR «, l3=0x0b}
0x22ea…22f8 Line {l1=0x0c, l2=»3050 REPEAT «, l3=0x0c}
0x22f8…230b Line {l1=0x11, l2=»3060 CURSOR 30,13«, l3=0x11}
0x230b…233c Line {l1=0x2f, l2=»3070 INPUT "Isæt plade nr. 10 , tast RETURN",A$«, l3=0x2f}
0x233c…2354 Line {l1=0x16, l2=»3080 UNTIL ORD(A$)=255«, l3=0x16}
0x2354…2372 Line {l1=0x1c, l2=»3090 CHAIN "P641210:OPSTART"«, l3=0x1c}
0x2372…237f Line {l1=0x0b, l2=»3100 ENDIF «, l3=0x0b}
0x237f…238a Line {l1=0x09, l2=»3110 END «, l3=0x09}
0x238a…23a0 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ cccccccccccccccccccc┆
0x23a0…23c0 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┆
[…0x1e…]