|
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: »ÅRSAFS.K«
└─⟦ec8c1e0b0⟧ Bits:30007442 8" floppy ( MIKPROG vol. 1-3, MIKREL vol. 1-3, PCSE 4.7.80 vol 1-3, GL.SYS )
└─⟦this⟧ »ÅRSAFS.K«
0100 DIM RES$(14),OP1$(12),OP2$(12),N$(6),K1$(17),A$(1),TAL4$(12),BLANK$(25) 0110 DIM UBELØB1$(14),UBELØB2$(14),STREG$(71),FÅDK$(12),FMDK$(12),GLNAVN$(25) 0120 DIM DAT$(8),FÅKREDIT$(12),FÅDEBET$(12),FMKREDIT$(12),FMDEBET$(12) 0130 DIM FMKODE$(1),FNAVN$(25),FUKODE$(1),SALDO13$(12),SALDO3$(12),K10$(17) 0140 DIM SALDO2$(12),SALDO11$(12),SALDO1$(12),SALDO12$(12),SUM$(12),SUM1$(14) 0150 DIM K2$(17),K3$(17),K4$(17),K5$(17),T1(9),K$(26,11),K6$(17),K7$(17) 0160 PROC CALC(ART,B1,B2,ES) 0170 OP1$=B1$;OP2$=B2$;RES$=ES$;SI=0;FLAG=0 0180 CALL "P641215:REGN" 0190 ES$=RES$ 0200 IF FLAG<>0 THEN STOP 0210 ENDPROC 0220 PROC DATOUD(DA1,DA2) 0230 DA3=DA1 0240 DA2$=" " 0250 FOR J=8 TO 1 STEP -1 0260 IF J MOD 3=0 THEN 0270 DA2$(J)="." 0280 ELSE 0290 DA2$(J)=CHR(DA3 MOD 10+48) 0300 DA3=DA3 DIV 10 0310 ENDIF 0320 NEXT J 0330 ENDPROC 0340 PROC INDTAB(T,MANTAL,L10) 0350 J=MANTAL DIV 32+1 0360 FOR I=J TO MANTAL DIV 4+J-1 0370 H=(I-J)*4+1;H1=H+1;H2=H+2;H3=H+3 0380 GET L10$,I:T(H,1),T(H,2),T(H1,1),T(H1,2),T(H2,1),T(H2,2),T(H3,1),T(H3,2) 0390 EXEC FEJL(1,1,L10$) 0400 NEXT I 0410 ENDPROC 0420 PROC UNDIND(V2,U1,Z) 0430 OPEN V2$,R 0440 EXEC FEJL(14,1,V2$) 0450 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) 0460 EXEC FEJL(14,2,V2$) 0470 CLOSE V2$ 0480 EXEC FEJL(14,3,V2$) 0490 ENDPROC ;UNDIND 0500 PROC UNDUD(V3,U2,T) 0510 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) 0520 EXEC FEJL(16,1,V3$) 0530 ENDPROC ;UNDUD 0540 PROC HOVUD(V4,MPOSTANTAL4,S) 0550 FOR I=1 TO MPOSTANTAL4 DIV 160 0560 J=(I-1)*4+1;J1=J+1;J2=J+2;J3=J+3 0570 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) 0580 EXEC FEJL(17,2,V4$) 0590 NEXT I 0600 ENDPROC 0610 PROC HENTPOST 0620 S1=FTAB(FPIL3,2) 0630 GET K3$,S1:FNR,FNAVN$ 0640 EXEC FEJL(2,2,K3$) 0650 GET K3$,S1+1:FMKODE$,FMDEBET$,FMKREDIT$ 0660 EXEC FEJL(2,3,K3$) 0670 GET K3$,S1+2:FUKODE$,FÅDEBET$,FÅKREDIT$ 0680 EXEC FEJL(2,4,K3$) 0690 ENDPROC 0700 PROC FINDPOST1(TAB4,Q,MANT2,NØGL5,PIL6,L8) 0710 PIL1=MANT2 DIV 8;PIL6=PIL1;CEKS=1;MANT3=MANT2 DIV 4;MANT4=MANT2 DIV 32 0720 REPEAT 0730 IF NØGL5=TAB4(PIL6) OR PIL1=1 THEN EXIT 0740 PIL1=(PIL1+1) DIV 2;PIL6=PIL6+PIL1*(1-2*(NØGL5<TAB4(PIL6))) 0750 IF PIL6<1 THEN PIL6=MANT3 0760 UNTIL PIL1=0 0770 IF TAB4(PIL6)>NØGL5 THEN PIL6=PIL6-1*(PIL6>1) 0780 PIL6=MANT4+PIL6 0790 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) 0800 EXEC FEJL(1,1,L8$) 0810 FOR PIL6=1 TO 4 0820 IF NØGL5=Q(PIL6,1) THEN EXIT 0830 NEXT PIL6 0840 IF PIL6<>5 THEN CEKS=0 0850 ENDPROC 0860 PROC NRTEST(NUM1) 0870 P=0;TEST2=0;KTAL=0;L=LEN(NUM1$) 0880 IF L>6 THEN EXIT 0890 CASE L OF 0900 FOR I=1 TO L 0910 P1=INT(ORD(NUM1$(I))-48) 0920 IF P1<0 OR P1>9 THEN TEST2=1 0930 P=P*10+P1 0940 NEXT I 0950 KTAL=P DIV 10000 0960 WHEN 0 0970 P=-1 0980 WHEN 1 0990 CASE NUM1$ OF 1000 P=INT(ORD(NUM1$)-48) 1010 WHEN "D","d" 1020 P=-2 1030 WHEN "A","a" 1040 P=-3 1050 WHEN "M","m" 1060 P=-4 1070 WHEN "J","j" 1080 P=-7 1090 WHEN "N","n" 1100 P=-8 1110 ENDCASE 1120 ENDCASE 1130 ENDPROC 1140 PROC FEJL(NR1,NR2,NR3) 1150 IF STATUS(NR3$)<>0 THEN 1160 PRINT STATUS(NR3$),NR1,NR2,NR3$ 1170 STOP 1180 ENDIF 1190 ENDPROC 1200 PROC TUD(BLB1,UBLB1,TEGN,STØR) 1210 EXEC CALC(5,BLB1$,TAL4$,UBLB1$) 1220 IF TEGN=0 THEN 1230 UBLB1$=UBLB1$(1:13) 1240 ELSE 1250 IF TEGN=1 AND UBLB1$(LEN(UBLB1$))="+" THEN 1260 UBLB1$(LEN(UBLB1$))=" " 1270 ENDIF 1280 ENDIF 1290 IF STØR=1 THEN 1300 UBLB1$=UBLB1$(4:LEN(UBLB1$)-3) 1310 ENDIF 1320 ENDPROC 1330 PROC HOVEDUD(UDATO,USIDE) 1340 EXEC DATOUD(UDATO,DAT$) 1350 PRINT TAB(10);CHR(14);"Balance";CHR(15);TAB(44);"Dato : ";DAT$; 1360 PRINT USING " Side :###":USIDE 1370 PRINT " " 1380 PRINT TAB(40);"Årets" 1390 PRINT TAB(3);"Nr Kontonavn";TAB(35);"Debet Kredit" 1400 PRINT TAB(8);STREG$ 1410 ENDPROC 1420 PROC LINIEUD(NR4,NAVN1,SAL1) 1430 PRINT USING "###### ":NR4; 1440 EXEC TUD(SAL1$,UBELØB1$,0,0) 1450 PRINT NAVN1$;TAB(31+12*(SAL1$(LEN(SAL1$))="-"));UBELØB1$(2:12) 1460 ENDPROC 1470 PROC NYSIDE 1480 FOR LINIE=LINIE TO 42 1490 PRINT CHR(10); 1500 NEXT LINIE 1510 PRINT " " 1520 BSIDE=BSIDE+1 1530 EXEC HOVEDUD(T1(7),BSIDE) 1540 PRINT " " 1550 PRINT USING "###### ":GFNR; 1560 EXEC CALC(4,SALDO12$,TAL4$,TAL4$) 1570 IF SI<>0 THEN 1580 PRINT GLNAVN$(1:23);" Fortsat" 1590 ELSE 1600 PRINT GLNAVN$(1:23) 1610 ENDIF 1620 PRINT TAB(8);STREG$(1:23+7*(SI<>0)) 1630 PRINT " " 1640 LINIE=5 1650 ENDPROC 1660 K1$="P641220:SYSTEM1" 1670 OPEN K1$,R 1680 EXEC FEJL(9,1,K1$) 1690 GET K1$,1:MFANTAL,MDANTAL,MKANTAL 1700 EXEC FEJL(9,2,K1$) 1710 GET K1$,3:DPOST,KPOST,MFPOST,MDPOST 1720 EXEC FEJL(9,21,K1$) 1730 GET K1$,4:MKPOST,MFAK,MVGR,MKGR 1740 EXEC FEJL(9,3,K1$) 1750 GET K1$,5:MKRGR 1760 EXEC FEJL(9,4,K1$) 1770 GET K1$,8:DIVNR,DIVDNR,DIFNR,DTAL 1780 EXEC FEJL(9,5,K1$) 1790 GET K1$,9:KRTAL 1800 EXEC FEJL(9,6,K1$) 1810 GET K1$,10:N$ 1820 EXEC FEJL(9,7,K1$) 1830 FOR I=1 TO 26 1840 GET K1$,I+10:K$(I) 1850 EXEC FEJL(9,8,K1$) 1860 NEXT I 1870 CLOSE K1$ 1880 EXEC FEJL(9,11,K1$) 1890 K3$=N$+K$(5);K4$=N$+K$(3);K5$=N$+K$(5);K6$=N$+K$(6);K7$=N$+K$(7) 1900 K10$=N$+K$(26);K2$=N$+K$(1) 1910 DIM FTAB(MFANTAL,2) 1920 OPEN K10$,R 1930 EXEC FEJL(9,12,K10$) 1940 GET K10$,2:T1(1),T1(2),T1(3),T1(4),T1(5),T1(6),T1(7),T1(8),T1(9) 1950 EXEC FEJL(9,13,K10$) 1960 GET K10$,14:AFIN 1970 EXEC FEJL(9,14,K10$) 1980 CLOSE K10$ 1990 EXEC FEJL(9,15,K10$) 2000 OPEN K2$,R 2010 EXEC FEJL(9,16,K2$) 2020 OPEN K5$,R 2030 EXEC FEJL(9,17,K5$) 2040 EXEC INDTAB(FTAB,MFANTAL,K2$) 2050 BLANK$=" " 2060 STREG$="------------------------------------";STREG$=STREG$+STREG$ 2070 REPEAT 2080 OUTPUT T 2090 CLEAR 2100 REPEAT 2110 CURSOR 15,13 2120 INPUT "Monter papir til udskrift af balance og tast RETURN",A$ 2130 UNTIL ORD(A$)=255 2140 BSIDE=1;GLNAVN$=BLANK$;LINIE=1 2150 SALDO11$="0+";SALDO12$="0+";SALDO13$="0+";TAL4$="0+";GFNR=0 2160 OUTPUT P 2170 EXEC HOVEDUD(T1(7),BSIDE) 2180 FOR FPIL3=1 TO AFIN 2190 IF FTAB(FPIL3,1)=100000 THEN EXIT 2200 EXEC HENTPOST 2210 FGRUP=INT(ORD(FUKODE$)-48) 2220 EXEC CALC(0,FÅDEBET$,FÅKREDIT$,FÅDK$) 2230 CASE FGRUP OF 2240 STOP 2250 WHEN 0 2270 IF LINIE>39 THEN EXEC NYSIDE 2280 EXEC LINIEUD(FNR,FNAVN$(1:23),FÅDK$) 2290 LINIE=LINIE+1 2310 EXEC CALC(0,SALDO12$,FÅDK$,SALDO12$) 2320 EXEC CALC(0,SALDO13$,FÅDK$,SALDO13$) 2330 WHEN 1 2340 IF LINIE>39 THEN EXEC NYSIDE 2345 FNR2=FNR DIV 1000 2350 FNR1=FNR DIV 10000;DTAL1=DTAL*10000+MKGR;KRTAL1=KRTAL*10000+MKRGR 2360 IF FNR1=DTAL AND DTAL1=>FNR OR FNR2=KRTAL AND KRTAL1=>FNR THEN 2370 EXEC CALC(0,SALDO12$,FÅDK$,SALDO12$) 2380 EXEC CALC(0,SALDO13$,FÅDK$,SALDO13$) 2390 EXEC LINIEUD(FNR,FNAVN$(1:23),FÅDK$) 2400 ELSE 2410 EXEC LINIEUD(FNR,FNAVN$(1:23),SALDO11$) 2420 SALDO11$="0+" 2430 ENDIF 2440 PRINT " " 2450 LINIE=LINIE+2 2460 WHEN 2 2470 IF GFNR>0 THEN 2480 IF LINIE>37 THEN EXEC NYSIDE 2490 PRINT " " 2500 PRINT TAB(8);STREG$(1:71) 2510 EXEC LINIEUD(GFNR,GLNAVN$(1:23),SALDO12$) 2520 SALDO12$="0+";LINIE=LINIE+3 2530 SALDO11$="0+" 2540 ENDIF 2550 GLNAVN$=FNAVN$;GFNR=FNR 2560 IF LINIE>34 THEN 2570 EXEC NYSIDE 2580 ELSE 2590 PRINT CHR(10) 2600 PRINT USING "###### ":FNR; 2610 PRINT GLNAVN$(1:23) 2620 PRINT TAB(8);STREG$(1:LEN(GLNAVN$)) 2630 PRINT " " 2640 LINIE=LINIE+5 2650 ENDIF 2660 WHEN 3 2670 IF LINIE>37 AND GFNR>0 THEN EXEC NYSIDE 2680 IF GFNR>0 THEN 2690 PRINT " " 2700 PRINT TAB(8);STREG$(1:71) 2710 EXEC LINIEUD(GFNR,GLNAVN$(1:23),SALDO12$) 2720 SALDO12$="0+";LINIE=LINIE+3;GFNR=0 2730 ENDIF 2740 IF LINIE>36 THEN EXEC NYSIDE 2750 PRINT " " 2760 PRINT TAB(8);STREG$(1:71) 2770 EXEC LINIEUD(FNR,FNAVN$(1:23),SALDO13$) 2780 SALDO11$="0+" 2790 PRINT TAB(8);STREG$(1:71) 2800 PRINT " " 2810 LINIE=LINIE+5 2820 ENDCASE 2830 NEXT FPIL3 2840 IF GFNR>0 THEN 2850 IF LINIE>37 THEN EXEC NYSIDE 2860 PRINT " " 2870 PRINT TAB(8);STREG$(1:71) 2880 EXEC LINIEUD(GFNR,GLNAVN$(1:23),SALDO12$) 2890 SALDO12$="0+";LINIE=LINIE+3;GFNR=0 2900 SALDO11$="0+" 2910 ENDIF 2920 IF LINIE>36 THEN EXEC NYSIDE 2930 GLNAVN$="Difference";GFNR=100000 2940 PRINT " " 2950 PRINT TAB(8);STREG$(1:71) 2960 EXEC LINIEUD(GFNR,GLNAVN$,SALDO13$) 2970 PRINT TAB(8);STREG$(1:71) 2980 FOR LINIE=LINIE TO 38 2990 PRINT CHR(10); 3000 NEXT LINIE 3010 PRINT " " 3020 OUTPUT T 3030 CLEAR 3040 REPEAT 3050 CURSOR 15,13 3060 INPUT "Ønskes balance gentaget (J/N)",A$ 3070 EXEC NRTEST(A$) 3080 UNTIL P=-7 OR P=-8 3090 UNTIL P=-8 3100 CLOSE 3110 CHAIN "P641215:ÅKOPI"
0x0000…004e Line {l1=0x4c, l2=»0100 DIM RES$(14),OP1$(12),OP2$(12),N$(6),K1$(17),A$(1),TAL4$(12),BLANK$(25)«, l3=0x4c}
0x004e…009d Line {l1=0x4d, l2=»0110 DIM UBELØB1$(14),UBELØB2$(14),STREG$(71),FÅDK$(12),FMDK$(12),GLNAVN$(25)«, l3=0x4d}
0x009d…00e5 Line {l1=0x46, l2=»0120 DIM DAT$(8),FÅKREDIT$(12),FÅDEBET$(12),FMKREDIT$(12),FMDEBET$(12)«, l3=0x46}
0x00e5…0132 Line {l1=0x4b, l2=»0130 DIM FMKODE$(1),FNAVN$(25),FUKODE$(1),SALDO13$(12),SALDO3$(12),K10$(17)«, l3=0x4b}
0x0132…0181 Line {l1=0x4d, l2=»0140 DIM SALDO2$(12),SALDO11$(12),SALDO1$(12),SALDO12$(12),SUM$(12),SUM1$(14)«, l3=0x4d}
0x0181…01cb Line {l1=0x48, l2=»0150 DIM K2$(17),K3$(17),K4$(17),K5$(17),T1(9),K$(26,11),K6$(17),K7$(17)«, l3=0x48}
0x01cb…01e9 Line {l1=0x1c, l2=»0160 PROC CALC(ART,B1,B2,ES)«, l3=0x1c}
0x01e9…0216 Line {l1=0x2b, l2=»0170 OP1$=B1$;OP2$=B2$;RES$=ES$;SI=0;FLAG=0«, l3=0x2b}
0x0216…0230 Line {l1=0x18, l2=»0180 CALL "P641215:REGN"«, l3=0x18}
0x0230…023f Line {l1=0x0d, l2=»0190 ES$=RES$«, l3=0x0d}
0x023f…025b Line {l1=0x1a, l2=»0200 IF FLAG<>0 THEN STOP «, l3=0x1a}
0x025b…026a Line {l1=0x0d, l2=»0210 ENDPROC «, l3=0x0d}
0x026a…0285 Line {l1=0x19, l2=»0220 PROC DATOUD(DA1,DA2)«, l3=0x19}
0x0285…0293 Line {l1=0x0c, l2=»0230 DA3=DA1«, l3=0x0c}
0x0293…02a9 Line {l1=0x14, l2=»0240 DA2$=" "«, l3=0x14}
0x02a9…02c4 Line {l1=0x19, l2=»0250 FOR J=8 TO 1 STEP -1«, l3=0x19}
0x02c4…02dd Line {l1=0x17, l2=»0260 IF J MOD 3=0 THEN «, l3=0x17}
0x02dd…02ef Line {l1=0x10, l2=»0270 DA2$(J)="."«, l3=0x10}
0x02ef…02fb Line {l1=0x0a, l2=»0280 ELSE «, l3=0x0a}
0x02fb…031c Line {l1=0x1f, l2=»0290 DA2$(J)=CHR(DA3 MOD 10+48)«, l3=0x1f}
0x031c…0331 Line {l1=0x13, l2=»0300 DA3=DA3 DIV 10«, l3=0x13}
0x0331…033e Line {l1=0x0b, l2=»0310 ENDIF «, l3=0x0b}
0x033e…034b Line {l1=0x0b, l2=»0320 NEXT J«, l3=0x0b}
0x034b…035a Line {l1=0x0d, l2=»0330 ENDPROC «, l3=0x0d}
0x035a…037a Line {l1=0x1e, l2=»0340 PROC INDTAB(T,MANTAL,L10)«, l3=0x1e}
0x037a…0392 Line {l1=0x16, l2=»0350 J=MANTAL DIV 32+1«, l3=0x16}
0x0392…03b4 Line {l1=0x20, l2=»0360 FOR I=J TO MANTAL DIV 4+J-1«, l3=0x20}
0x03b4…03db Line {l1=0x25, l2=»0370 H=(I-J)*4+1;H1=H+1;H2=H+2;H3=H+3«, l3=0x25}
0x03db…042a Line {l1=0x4d, l2=»0380 GET L10$,I:T(H,1),T(H,2),T(H1,1),T(H1,2),T(H2,1),T(H2,2),T(H3,1),T(H3,2)«, l3=0x4d}
0x042a…0444 Line {l1=0x18, l2=»0390 EXEC FEJL(1,1,L10$)«, l3=0x18}
0x0444…0451 Line {l1=0x0b, l2=»0400 NEXT I«, l3=0x0b}
0x0451…0460 Line {l1=0x0d, l2=»0410 ENDPROC «, l3=0x0d}
0x0460…047b Line {l1=0x19, l2=»0420 PROC UNDIND(V2,U1,Z)«, l3=0x19}
0x047b…048c Line {l1=0x0f, l2=»0430 OPEN V2$,R«, l3=0x0f}
0x048c…04a6 Line {l1=0x18, l2=»0440 EXEC FEJL(14,1,V2$)«, l3=0x18}
0x04a6…04ef Line {l1=0x47, l2=»0450 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}
0x04ef…0509 Line {l1=0x18, l2=»0460 EXEC FEJL(14,2,V2$)«, l3=0x18}
0x0509…0519 Line {l1=0x0e, l2=»0470 CLOSE V2$«, l3=0x0e}
0x0519…0533 Line {l1=0x18, l2=»0480 EXEC FEJL(14,3,V2$)«, l3=0x18}
0x0533…0549 Line {l1=0x14, l2=»0490 ENDPROC ;UNDIND«, l3=0x14}
0x0549…0563 Line {l1=0x18, l2=»0500 PROC UNDUD(V3,U2,T)«, l3=0x18}
0x0563…05ac Line {l1=0x47, l2=»0510 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}
0x05ac…05c6 Line {l1=0x18, l2=»0520 EXEC FEJL(16,1,V3$)«, l3=0x18}
0x05c6…05db Line {l1=0x13, l2=»0530 ENDPROC ;UNDUD«, l3=0x13}
0x05db…05fe Line {l1=0x21, l2=»0540 PROC HOVUD(V4,MPOSTANTAL4,S)«, l3=0x21}
0x05fe…0623 Line {l1=0x23, l2=»0550 FOR I=1 TO MPOSTANTAL4 DIV 160«, l3=0x23}
0x0623…064a Line {l1=0x25, l2=»0560 J=(I-1)*4+1;J1=J+1;J2=J+2;J3=J+3«, l3=0x25}
0x064a…0698 Line {l1=0x4c, l2=»0570 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}
0x0698…06b2 Line {l1=0x18, l2=»0580 EXEC FEJL(17,2,V4$)«, l3=0x18}
0x06b2…06bf Line {l1=0x0b, l2=»0590 NEXT I«, l3=0x0b}
0x06bf…06ce Line {l1=0x0d, l2=»0600 ENDPROC «, l3=0x0d}
0x06ce…06e2 Line {l1=0x12, l2=»0610 PROC HENTPOST«, l3=0x12}
0x06e2…06f9 Line {l1=0x15, l2=»0620 S1=FTAB(FPIL3,2)«, l3=0x15}
0x06f9…0715 Line {l1=0x1a, l2=»0630 GET K3$,S1:FNR,FNAVN$«, l3=0x1a}
0x0715…072e Line {l1=0x17, l2=»0640 EXEC FEJL(2,2,K3$)«, l3=0x17}
0x072e…075c Line {l1=0x2c, l2=»0650 GET K3$,S1+1:FMKODE$,FMDEBET$,FMKREDIT$«, l3=0x2c}
0x075c…0775 Line {l1=0x17, l2=»0660 EXEC FEJL(2,3,K3$)«, l3=0x17}
0x0775…07a3 Line {l1=0x2c, l2=»0670 GET K3$,S1+2:FUKODE$,FÅDEBET$,FÅKREDIT$«, l3=0x2c}
0x07a3…07bc Line {l1=0x17, l2=»0680 EXEC FEJL(2,4,K3$)«, l3=0x17}
0x07bc…07cb Line {l1=0x0d, l2=»0690 ENDPROC «, l3=0x0d}
0x07cb…07fc Line {l1=0x2f, l2=»0700 PROC FINDPOST1(TAB4,Q,MANT2,NØGL5,PIL6,L8)«, l3=0x2f}
0x07fc…0849 Line {l1=0x4b, l2=»0710 PIL1=MANT2 DIV 8;PIL6=PIL1;CEKS=1;MANT3=MANT2 DIV 4;MANT4=MANT2 DIV 32«, l3=0x4b}
0x0849…0857 Line {l1=0x0c, l2=»0720 REPEAT «, l3=0x0c}
0x0857…0886 Line {l1=0x2d, l2=»0730 IF NØGL5=TAB4(PIL6) OR PIL1=1 THEN EXIT «, l3=0x2d}
0x0886…08c8 Line {l1=0x40, l2=»0740 PIL1=(PIL1+1) DIV 2;PIL6=PIL6+PIL1*(1-2*(NØGL5<TAB4(PIL6)))«, l3=0x40}
0x08c8…08e8 Line {l1=0x1e, l2=»0750 IF PIL6<1 THEN PIL6=MANT3«, l3=0x1e}
0x08e8…08fb Line {l1=0x11, l2=»0760 UNTIL PIL1=0«, l3=0x11}
0x08fb…092f Line {l1=0x32, l2=»0770 IF TAB4(PIL6)>NØGL5 THEN PIL6=PIL6-1*(PIL6>1)«, l3=0x32}
0x092f…0945 Line {l1=0x14, l2=»0780 PIL6=MANT4+PIL6«, l3=0x14}
0x0945…0990 Line {l1=0x49, l2=»0790 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}
0x0990…09a9 Line {l1=0x17, l2=»0800 EXEC FEJL(1,1,L8$)«, l3=0x17}
0x09a9…09bf Line {l1=0x14, l2=»0810 FOR PIL6=1 TO 4«, l3=0x14}
0x09bf…09e3 Line {l1=0x22, l2=»0820 IF NØGL5=Q(PIL6,1) THEN EXIT «, l3=0x22}
0x09e3…09f3 Line {l1=0x0e, l2=»0830 NEXT PIL6«, l3=0x0e}
0x09f3…0a10 Line {l1=0x1b, l2=»0840 IF PIL6<>5 THEN CEKS=0«, l3=0x1b}
0x0a10…0a1f Line {l1=0x0d, l2=»0850 ENDPROC «, l3=0x0d}
0x0a1f…0a37 Line {l1=0x16, l2=»0860 PROC NRTEST(NUM1)«, l3=0x16}
0x0a37…0a5d Line {l1=0x24, l2=»0870 P=0;TEST2=0;KTAL=0;L=LEN(NUM1$)«, l3=0x24}
0x0a5d…0a75 Line {l1=0x16, l2=»0880 IF L>6 THEN EXIT «, l3=0x16}
0x0a75…0a86 Line {l1=0x0f, l2=»0890 CASE L OF «, l3=0x0f}
0x0a86…0a99 Line {l1=0x11, l2=»0900 FOR I=1 TO L«, l3=0x11}
0x0a99…0ab8 Line {l1=0x1d, l2=»0910 P1=INT(ORD(NUM1$(I))-48)«, l3=0x1d}
0x0ab8…0adb Line {l1=0x21, l2=»0920 IF P1<0 OR P1>9 THEN TEST2=1«, l3=0x21}
0x0adb…0aeb Line {l1=0x0e, l2=»0930 P=P*10+P1«, l3=0x0e}
0x0aeb…0af8 Line {l1=0x0b, l2=»0940 NEXT I«, l3=0x0b}
0x0af8…0b0f Line {l1=0x15, l2=»0950 KTAL=P DIV 10000«, l3=0x15}
0x0b0f…0b1c Line {l1=0x0b, l2=»0960 WHEN 0«, l3=0x0b}
0x0b1c…0b27 Line {l1=0x09, l2=»0970 P=-1«, l3=0x09}
0x0b27…0b34 Line {l1=0x0b, l2=»0980 WHEN 1«, l3=0x0b}
0x0b34…0b49 Line {l1=0x13, l2=»0990 CASE NUM1$ OF «, l3=0x13}
0x0b49…0b64 Line {l1=0x19, l2=»1000 P=INT(ORD(NUM1$)-48)«, l3=0x19}
0x0b64…0b77 Line {l1=0x11, l2=»1010 WHEN "D","d"«, l3=0x11}
0x0b77…0b82 Line {l1=0x09, l2=»1020 P=-2«, l3=0x09}
0x0b82…0b95 Line {l1=0x11, l2=»1030 WHEN "A","a"«, l3=0x11}
0x0b95…0ba0 Line {l1=0x09, l2=»1040 P=-3«, l3=0x09}
0x0ba0…0bb3 Line {l1=0x11, l2=»1050 WHEN "M","m"«, l3=0x11}
0x0bb3…0bbe Line {l1=0x09, l2=»1060 P=-4«, l3=0x09}
0x0bbe…0bd1 Line {l1=0x11, l2=»1070 WHEN "J","j"«, l3=0x11}
0x0bd1…0bdc Line {l1=0x09, l2=»1080 P=-7«, l3=0x09}
0x0bdc…0bef Line {l1=0x11, l2=»1090 WHEN "N","n"«, l3=0x11}
0x0bef…0bfa Line {l1=0x09, l2=»1100 P=-8«, l3=0x09}
0x0bfa…0c09 Line {l1=0x0d, l2=»1110 ENDCASE «, l3=0x0d}
0x0c09…0c18 Line {l1=0x0d, l2=»1120 ENDCASE «, l3=0x0d}
0x0c18…0c27 Line {l1=0x0d, l2=»1130 ENDPROC «, l3=0x0d}
0x0c27…0c44 Line {l1=0x1b, l2=»1140 PROC FEJL(NR1,NR2,NR3)«, l3=0x1b}
0x0c44…0c63 Line {l1=0x1d, l2=»1150 IF STATUS(NR3$)<>0 THEN «, l3=0x1d}
0x0c63…0c89 Line {l1=0x24, l2=»1160 PRINT STATUS(NR3$),NR1,NR2,NR3$«, l3=0x24}
0x0c89…0c95 Line {l1=0x0a, l2=»1170 STOP «, l3=0x0a}
0x0c95…0ca2 Line {l1=0x0b, l2=»1180 ENDIF «, l3=0x0b}
0x0ca2…0cb1 Line {l1=0x0d, l2=»1190 ENDPROC «, l3=0x0d}
0x0cb1…0cd6 Line {l1=0x23, l2=»1200 PROC TUD(BLB1,UBLB1,TEGN,STØR)«, l3=0x23}
0x0cd6…0cfc Line {l1=0x24, l2=»1210 EXEC CALC(5,BLB1$,TAL4$,UBLB1$)«, l3=0x24}
0x0cfc…0d12 Line {l1=0x14, l2=»1220 IF TEGN=0 THEN «, l3=0x14}
0x0d12…0d2c Line {l1=0x18, l2=»1230 UBLB1$=UBLB1$(1:13)«, l3=0x18}
0x0d2c…0d38 Line {l1=0x0a, l2=»1240 ELSE «, l3=0x0a}
0x0d38…0d6a Line {l1=0x30, l2=»1250 IF TEGN=1 AND UBLB1$(LEN(UBLB1$))="+" THEN «, l3=0x30}
0x0d6a…0d88 Line {l1=0x1c, l2=»1260 UBLB1$(LEN(UBLB1$))=" "«, l3=0x1c}
0x0d88…0d95 Line {l1=0x0b, l2=»1270 ENDIF «, l3=0x0b}
0x0d95…0da2 Line {l1=0x0b, l2=»1280 ENDIF «, l3=0x0b}
0x0da2…0db8 Line {l1=0x14, l2=»1290 IF STØR=1 THEN «, l3=0x14}
0x0db8…0ddd Line {l1=0x23, l2=»1300 UBLB1$=UBLB1$(4:LEN(UBLB1$)-3)«, l3=0x23}
0x0ddd…0dea Line {l1=0x0b, l2=»1310 ENDIF «, l3=0x0b}
0x0dea…0df9 Line {l1=0x0d, l2=»1320 ENDPROC «, l3=0x0d}
0x0df9…0e19 Line {l1=0x1e, l2=»1330 PROC HOVEDUD(UDATO,USIDE)«, l3=0x1e}
0x0e19…0e37 Line {l1=0x1c, l2=»1340 EXEC DATOUD(UDATO,DAT$)«, l3=0x1c}
0x0e37…0e7d Line {l1=0x44, l2=»1350 PRINT TAB(10);CHR(14);"Balance";CHR(15);TAB(44);"Dato : ";DAT$;«, l3=0x44}
0x0e7d…0ea4 Line {l1=0x25, l2=»1360 PRINT USING " Side :###":USIDE«, l3=0x25}
0x0ea4…0eb4 Line {l1=0x0e, l2=»1370 PRINT " "«, l3=0x0e}
0x0eb4…0ed0 Line {l1=0x1a, l2=»1380 PRINT TAB(40);"Årets"«, l3=0x1a}
0x0ed0…0f11 Line {l1=0x3f, l2=»1390 PRINT TAB(3);"Nr Kontonavn";TAB(35);"Debet Kredit"«, l3=0x3f}
0x0f11…0f2b Line {l1=0x18, l2=»1400 PRINT TAB(8);STREG$«, l3=0x18}
0x0f2b…0f3a Line {l1=0x0d, l2=»1410 ENDPROC «, l3=0x0d}
0x0f3a…0f5d Line {l1=0x21, l2=»1420 PROC LINIEUD(NR4,NAVN1,SAL1)«, l3=0x21}
0x0f5d…0f7e Line {l1=0x1f, l2=»1430 PRINT USING "###### ":NR4;«, l3=0x1f}
0x0f7e…0fa1 Line {l1=0x21, l2=»1440 EXEC TUD(SAL1$,UBELØB1$,0,0)«, l3=0x21}
0x0fa1…0fe6 Line {l1=0x43, l2=»1450 PRINT NAVN1$;TAB(31+12*(SAL1$(LEN(SAL1$))="-"));UBELØB1$(2:12)«, l3=0x43}
0x0fe6…0ff5 Line {l1=0x0d, l2=»1460 ENDPROC «, l3=0x0d}
0x0ff5…1007 Line {l1=0x10, l2=»1470 PROC NYSIDE«, l3=0x10}
0x1007…1023 Line {l1=0x1a, l2=»1480 FOR LINIE=LINIE TO 42«, l3=0x1a}
0x1023…1038 Line {l1=0x13, l2=»1490 PRINT CHR(10);«, l3=0x13}
0x1038…1049 Line {l1=0x0f, l2=»1500 NEXT LINIE«, l3=0x0f}
0x1049…1059 Line {l1=0x0e, l2=»1510 PRINT " "«, l3=0x0e}
0x1059…106d Line {l1=0x12, l2=»1520 BSIDE=BSIDE+1«, l3=0x12}
0x106d…108d Line {l1=0x1e, l2=»1530 EXEC HOVEDUD(T1(7),BSIDE)«, l3=0x1e}
0x108d…109d Line {l1=0x0e, l2=»1540 PRINT " "«, l3=0x0e}
0x109d…10bf Line {l1=0x20, l2=»1550 PRINT USING "###### ":GFNR;«, l3=0x20}
0x10bf…10e7 Line {l1=0x26, l2=»1560 EXEC CALC(4,SALDO12$,TAL4$,TAL4$)«, l3=0x26}
0x10e7…10fc Line {l1=0x13, l2=»1570 IF SI<>0 THEN «, l3=0x13}
0x10fc…1121 Line {l1=0x23, l2=»1580 PRINT GLNAVN$(1:23);" Fortsat"«, l3=0x23}
0x1121…112d Line {l1=0x0a, l2=»1590 ELSE «, l3=0x0a}
0x112d…1147 Line {l1=0x18, l2=»1600 PRINT GLNAVN$(1:23)«, l3=0x18}
0x1147…1154 Line {l1=0x0b, l2=»1610 ENDIF «, l3=0x0b}
0x1154…117e Line {l1=0x28, l2=»1620 PRINT TAB(8);STREG$(1:23+7*(SI<>0))«, l3=0x28}
0x117e…118e Line {l1=0x0e, l2=»1630 PRINT " "«, l3=0x0e}
0x118e…119c Line {l1=0x0c, l2=»1640 LINIE=5«, l3=0x0c}
0x119c…11ab Line {l1=0x0d, l2=»1650 ENDPROC «, l3=0x0d}
0x11ab…11c7 Line {l1=0x1a, l2=»1660 K1$="P641220:SYSTEM1"«, l3=0x1a}
0x11c7…11d8 Line {l1=0x0f, l2=»1670 OPEN K1$,R«, l3=0x0f}
0x11d8…11f1 Line {l1=0x17, l2=»1680 EXEC FEJL(9,1,K1$)«, l3=0x17}
0x11f1…1219 Line {l1=0x26, l2=»1690 GET K1$,1:MFANTAL,MDANTAL,MKANTAL«, l3=0x26}
0x1219…1232 Line {l1=0x17, l2=»1700 EXEC FEJL(9,2,K1$)«, l3=0x17}
0x1232…125c Line {l1=0x28, l2=»1710 GET K1$,3:DPOST,KPOST,MFPOST,MDPOST«, l3=0x28}
0x125c…1276 Line {l1=0x18, l2=»1720 EXEC FEJL(9,21,K1$)«, l3=0x18}
0x1276…129c Line {l1=0x24, l2=»1730 GET K1$,4:MKPOST,MFAK,MVGR,MKGR«, l3=0x24}
0x129c…12b5 Line {l1=0x17, l2=»1740 EXEC FEJL(9,3,K1$)«, l3=0x17}
0x12b5…12cb Line {l1=0x14, l2=»1750 GET K1$,5:MKRGR«, l3=0x14}
0x12cb…12e4 Line {l1=0x17, l2=»1760 EXEC FEJL(9,4,K1$)«, l3=0x17}
0x12e4…130c Line {l1=0x26, l2=»1770 GET K1$,8:DIVNR,DIVDNR,DIFNR,DTAL«, l3=0x26}
0x130c…1325 Line {l1=0x17, l2=»1780 EXEC FEJL(9,5,K1$)«, l3=0x17}
0x1325…133b Line {l1=0x14, l2=»1790 GET K1$,9:KRTAL«, l3=0x14}
0x133b…1354 Line {l1=0x17, l2=»1800 EXEC FEJL(9,6,K1$)«, l3=0x17}
0x1354…1368 Line {l1=0x12, l2=»1810 GET K1$,10:N$«, l3=0x12}
0x1368…1381 Line {l1=0x17, l2=»1820 EXEC FEJL(9,7,K1$)«, l3=0x17}
0x1381…1395 Line {l1=0x12, l2=»1830 FOR I=1 TO 26«, l3=0x12}
0x1395…13ae Line {l1=0x17, l2=»1840 GET K1$,I+10:K$(I)«, l3=0x17}
0x13ae…13c7 Line {l1=0x17, l2=»1850 EXEC FEJL(9,8,K1$)«, l3=0x17}
0x13c7…13d4 Line {l1=0x0b, l2=»1860 NEXT I«, l3=0x0b}
0x13d4…13e4 Line {l1=0x0e, l2=»1870 CLOSE K1$«, l3=0x0e}
0x13e4…13fe Line {l1=0x18, l2=»1880 EXEC FEJL(9,11,K1$)«, l3=0x18}
0x13fe…1445 Line {l1=0x45, l2=»1890 K3$=N$+K$(5);K4$=N$+K$(3);K5$=N$+K$(5);K6$=N$+K$(6);K7$=N$+K$(7)«, l3=0x45}
0x1445…1467 Line {l1=0x20, l2=»1900 K10$=N$+K$(26);K2$=N$+K$(1)«, l3=0x20}
0x1467…1481 Line {l1=0x18, l2=»1910 DIM FTAB(MFANTAL,2)«, l3=0x18}
0x1481…1493 Line {l1=0x10, l2=»1920 OPEN K10$,R«, l3=0x10}
0x1493…14ae Line {l1=0x19, l2=»1930 EXEC FEJL(9,12,K10$)«, l3=0x19}
0x14ae…14f5 Line {l1=0x45, l2=»1940 GET K10$,2:T1(1),T1(2),T1(3),T1(4),T1(5),T1(6),T1(7),T1(8),T1(9)«, l3=0x45}
0x14f5…1510 Line {l1=0x19, l2=»1950 EXEC FEJL(9,13,K10$)«, l3=0x19}
0x1510…1527 Line {l1=0x15, l2=»1960 GET K10$,14:AFIN«, l3=0x15}
0x1527…1542 Line {l1=0x19, l2=»1970 EXEC FEJL(9,14,K10$)«, l3=0x19}
0x1542…1553 Line {l1=0x0f, l2=»1980 CLOSE K10$«, l3=0x0f}
0x1553…156e Line {l1=0x19, l2=»1990 EXEC FEJL(9,15,K10$)«, l3=0x19}
0x156e…157f Line {l1=0x0f, l2=»2000 OPEN K2$,R«, l3=0x0f}
0x157f…1599 Line {l1=0x18, l2=»2010 EXEC FEJL(9,16,K2$)«, l3=0x18}
0x1599…15aa Line {l1=0x0f, l2=»2020 OPEN K5$,R«, l3=0x0f}
0x15aa…15c4 Line {l1=0x18, l2=»2030 EXEC FEJL(9,17,K5$)«, l3=0x18}
0x15c4…15e8 Line {l1=0x22, l2=»2040 EXEC INDTAB(FTAB,MFANTAL,K2$)«, l3=0x22}
0x15e8…1610 Line {l1=0x26, l2=»2050 BLANK$=" "«, l3=0x26}
0x1610…1659 Line {l1=0x47, l2=»2060 STREG$="------------------------------------";STREG$=STREG$+STREG$«, l3=0x47}
0x1659…1667 Line {l1=0x0c, l2=»2070 REPEAT «, l3=0x0c}
0x1667…1676 Line {l1=0x0d, l2=»2080 OUTPUT T«, l3=0x0d}
0x1676…1683 Line {l1=0x0b, l2=»2090 CLEAR «, l3=0x0b}
0x1683…1691 Line {l1=0x0c, l2=»2100 REPEAT «, l3=0x0c}
0x1691…16a4 Line {l1=0x11, l2=»2110 CURSOR 15,13«, l3=0x11}
0x16a4…16e9 Line {l1=0x43, l2=»2120 INPUT "Monter papir til udskrift af balance og tast RETURN",A$«, l3=0x43}
0x16e9…1701 Line {l1=0x16, l2=»2130 UNTIL ORD(A$)=255«, l3=0x16}
0x1701…1726 Line {l1=0x23, l2=»2140 BSIDE=1;GLNAVN$=BLANK$;LINIE=1«, l3=0x23}
0x1726…1768 Line {l1=0x40, l2=»2150 SALDO11$="0+";SALDO12$="0+";SALDO13$="0+";TAL4$="0+";GFNR=0«, l3=0x40}
0x1768…1777 Line {l1=0x0d, l2=»2160 OUTPUT P«, l3=0x0d}
0x1777…1797 Line {l1=0x1e, l2=»2170 EXEC HOVEDUD(T1(7),BSIDE)«, l3=0x1e}
0x1797…17b1 Line {l1=0x18, l2=»2180 FOR FPIL3=1 TO AFIN«, l3=0x18}
0x17b1…17da Line {l1=0x27, l2=»2190 IF FTAB(FPIL3,1)=100000 THEN EXIT «, l3=0x27}
0x17da…17ee Line {l1=0x12, l2=»2200 EXEC HENTPOST«, l3=0x12}
0x17ee…180f Line {l1=0x1f, l2=»2210 FGRUP=INT(ORD(FUKODE$)-48)«, l3=0x1f}
0x180f…183b Line {l1=0x2a, l2=»2220 EXEC CALC(0,FÅDEBET$,FÅKREDIT$,FÅDK$)«, l3=0x2a}
0x183b…1850 Line {l1=0x13, l2=»2230 CASE FGRUP OF «, l3=0x13}
0x1850…185c Line {l1=0x0a, l2=»2240 STOP «, l3=0x0a}
0x185c…1869 Line {l1=0x0b, l2=»2250 WHEN 0«, l3=0x0b}
0x1869…188c Line {l1=0x21, l2=»2270 IF LINIE>39 THEN EXEC NYSIDE«, l3=0x21}
0x188c…18b7 Line {l1=0x29, l2=»2280 EXEC LINIEUD(FNR,FNAVN$(1:23),FÅDK$)«, l3=0x29}
0x18b7…18cb Line {l1=0x12, l2=»2290 LINIE=LINIE+1«, l3=0x12}
0x18cb…18f6 Line {l1=0x29, l2=»2310 EXEC CALC(0,SALDO12$,FÅDK$,SALDO12$)«, l3=0x29}
0x18f6…1921 Line {l1=0x29, l2=»2320 EXEC CALC(0,SALDO13$,FÅDK$,SALDO13$)«, l3=0x29}
0x1921…192e Line {l1=0x0b, l2=»2330 WHEN 1«, l3=0x0b}
0x192e…1951 Line {l1=0x21, l2=»2340 IF LINIE>39 THEN EXEC NYSIDE«, l3=0x21}
0x1951…1969 Line {l1=0x16, l2=»2345 FNR2=FNR DIV 1000«, l3=0x16}
0x1969…19b1 Line {l1=0x46, l2=»2350 FNR1=FNR DIV 10000;DTAL1=DTAL*10000+MKGR;KRTAL1=KRTAL*10000+MKRGR«, l3=0x46}
0x19b1…19f7 Line {l1=0x44, l2=»2360 IF FNR1=DTAL AND DTAL1=>FNR OR FNR2=KRTAL AND KRTAL1=>FNR THEN «, l3=0x44}
0x19f7…1a22 Line {l1=0x29, l2=»2370 EXEC CALC(0,SALDO12$,FÅDK$,SALDO12$)«, l3=0x29}
0x1a22…1a4d Line {l1=0x29, l2=»2380 EXEC CALC(0,SALDO13$,FÅDK$,SALDO13$)«, l3=0x29}
0x1a4d…1a78 Line {l1=0x29, l2=»2390 EXEC LINIEUD(FNR,FNAVN$(1:23),FÅDK$)«, l3=0x29}
0x1a78…1a84 Line {l1=0x0a, l2=»2400 ELSE «, l3=0x0a}
0x1a84…1ab2 Line {l1=0x2c, l2=»2410 EXEC LINIEUD(FNR,FNAVN$(1:23),SALDO11$)«, l3=0x2c}
0x1ab2…1ac6 Line {l1=0x12, l2=»2420 SALDO11$="0+"«, l3=0x12}
0x1ac6…1ad3 Line {l1=0x0b, l2=»2430 ENDIF «, l3=0x0b}
0x1ad3…1ae3 Line {l1=0x0e, l2=»2440 PRINT " "«, l3=0x0e}
0x1ae3…1af7 Line {l1=0x12, l2=»2450 LINIE=LINIE+2«, l3=0x12}
0x1af7…1b04 Line {l1=0x0b, l2=»2460 WHEN 2«, l3=0x0b}
0x1b04…1b1a Line {l1=0x14, l2=»2470 IF GFNR>0 THEN «, l3=0x14}
0x1b1a…1b3d Line {l1=0x21, l2=»2480 IF LINIE>37 THEN EXEC NYSIDE«, l3=0x21}
0x1b3d…1b4d Line {l1=0x0e, l2=»2490 PRINT " "«, l3=0x0e}
0x1b4d…1b6d Line {l1=0x1e, l2=»2500 PRINT TAB(8);STREG$(1:71)«, l3=0x1e}
0x1b6d…1b9d Line {l1=0x2e, l2=»2510 EXEC LINIEUD(GFNR,GLNAVN$(1:23),SALDO12$)«, l3=0x2e}
0x1b9d…1bbf Line {l1=0x20, l2=»2520 SALDO12$="0+";LINIE=LINIE+3«, l3=0x20}
0x1bbf…1bd3 Line {l1=0x12, l2=»2530 SALDO11$="0+"«, l3=0x12}
0x1bd3…1be0 Line {l1=0x0b, l2=»2540 ENDIF «, l3=0x0b}
0x1be0…1bfe Line {l1=0x1c, l2=»2550 GLNAVN$=FNAVN$;GFNR=FNR«, l3=0x1c}
0x1bfe…1c16 Line {l1=0x16, l2=»2560 IF LINIE>34 THEN «, l3=0x16}
0x1c16…1c28 Line {l1=0x10, l2=»2570 EXEC NYSIDE«, l3=0x10}
0x1c28…1c34 Line {l1=0x0a, l2=»2580 ELSE «, l3=0x0a}
0x1c34…1c48 Line {l1=0x12, l2=»2590 PRINT CHR(10)«, l3=0x12}
0x1c48…1c69 Line {l1=0x1f, l2=»2600 PRINT USING "###### ":FNR;«, l3=0x1f}
0x1c69…1c83 Line {l1=0x18, l2=»2610 PRINT GLNAVN$(1:23)«, l3=0x18}
0x1c83…1cad Line {l1=0x28, l2=»2620 PRINT TAB(8);STREG$(1:LEN(GLNAVN$))«, l3=0x28}
0x1cad…1cbd Line {l1=0x0e, l2=»2630 PRINT " "«, l3=0x0e}
0x1cbd…1cd1 Line {l1=0x12, l2=»2640 LINIE=LINIE+5«, l3=0x12}
0x1cd1…1cde Line {l1=0x0b, l2=»2650 ENDIF «, l3=0x0b}
0x1cde…1ceb Line {l1=0x0b, l2=»2660 WHEN 3«, l3=0x0b}
0x1ceb…1d19 Line {l1=0x2c, l2=»2670 IF LINIE>37 AND GFNR>0 THEN EXEC NYSIDE«, l3=0x2c}
0x1d19…1d2f Line {l1=0x14, l2=»2680 IF GFNR>0 THEN «, l3=0x14}
0x1d2f…1d3f Line {l1=0x0e, l2=»2690 PRINT " "«, l3=0x0e}
0x1d3f…1d5f Line {l1=0x1e, l2=»2700 PRINT TAB(8);STREG$(1:71)«, l3=0x1e}
0x1d5f…1d8f Line {l1=0x2e, l2=»2710 EXEC LINIEUD(GFNR,GLNAVN$(1:23),SALDO12$)«, l3=0x2e}
0x1d8f…1db8 Line {l1=0x27, l2=»2720 SALDO12$="0+";LINIE=LINIE+3;GFNR=0«, l3=0x27}
0x1db8…1dc5 Line {l1=0x0b, l2=»2730 ENDIF «, l3=0x0b}
0x1dc5…1de8 Line {l1=0x21, l2=»2740 IF LINIE>36 THEN EXEC NYSIDE«, l3=0x21}
0x1de8…1df8 Line {l1=0x0e, l2=»2750 PRINT " "«, l3=0x0e}
0x1df8…1e18 Line {l1=0x1e, l2=»2760 PRINT TAB(8);STREG$(1:71)«, l3=0x1e}
0x1e18…1e46 Line {l1=0x2c, l2=»2770 EXEC LINIEUD(FNR,FNAVN$(1:23),SALDO13$)«, l3=0x2c}
0x1e46…1e5a Line {l1=0x12, l2=»2780 SALDO11$="0+"«, l3=0x12}
0x1e5a…1e7a Line {l1=0x1e, l2=»2790 PRINT TAB(8);STREG$(1:71)«, l3=0x1e}
0x1e7a…1e8a Line {l1=0x0e, l2=»2800 PRINT " "«, l3=0x0e}
0x1e8a…1e9e Line {l1=0x12, l2=»2810 LINIE=LINIE+5«, l3=0x12}
0x1e9e…1ead Line {l1=0x0d, l2=»2820 ENDCASE «, l3=0x0d}
0x1ead…1ebe Line {l1=0x0f, l2=»2830 NEXT FPIL3«, l3=0x0f}
0x1ebe…1ed4 Line {l1=0x14, l2=»2840 IF GFNR>0 THEN «, l3=0x14}
0x1ed4…1ef7 Line {l1=0x21, l2=»2850 IF LINIE>37 THEN EXEC NYSIDE«, l3=0x21}
0x1ef7…1f07 Line {l1=0x0e, l2=»2860 PRINT " "«, l3=0x0e}
0x1f07…1f27 Line {l1=0x1e, l2=»2870 PRINT TAB(8);STREG$(1:71)«, l3=0x1e}
0x1f27…1f57 Line {l1=0x2e, l2=»2880 EXEC LINIEUD(GFNR,GLNAVN$(1:23),SALDO12$)«, l3=0x2e}
0x1f57…1f80 Line {l1=0x27, l2=»2890 SALDO12$="0+";LINIE=LINIE+3;GFNR=0«, l3=0x27}
0x1f80…1f94 Line {l1=0x12, l2=»2900 SALDO11$="0+"«, l3=0x12}
0x1f94…1fa1 Line {l1=0x0b, l2=»2910 ENDIF «, l3=0x0b}
0x1fa1…1fc4 Line {l1=0x21, l2=»2920 IF LINIE>36 THEN EXEC NYSIDE«, l3=0x21}
0x1fc4…1feb Line {l1=0x25, l2=»2930 GLNAVN$="Difference";GFNR=100000«, l3=0x25}
0x1feb…1ffb Line {l1=0x0e, l2=»2940 PRINT " "«, l3=0x0e}
0x1ffb…201b Line {l1=0x1e, l2=»2950 PRINT TAB(8);STREG$(1:71)«, l3=0x1e}
0x201b…2045 Line {l1=0x28, l2=»2960 EXEC LINIEUD(GFNR,GLNAVN$,SALDO13$)«, l3=0x28}
0x2045…2065 Line {l1=0x1e, l2=»2970 PRINT TAB(8);STREG$(1:71)«, l3=0x1e}
0x2065…2081 Line {l1=0x1a, l2=»2980 FOR LINIE=LINIE TO 38«, l3=0x1a}
0x2081…2096 Line {l1=0x13, l2=»2990 PRINT CHR(10);«, l3=0x13}
0x2096…20a7 Line {l1=0x0f, l2=»3000 NEXT LINIE«, l3=0x0f}
0x20a7…20b7 Line {l1=0x0e, l2=»3010 PRINT " "«, l3=0x0e}
0x20b7…20c6 Line {l1=0x0d, l2=»3020 OUTPUT T«, l3=0x0d}
0x20c6…20d3 Line {l1=0x0b, l2=»3030 CLEAR «, l3=0x0b}
0x20d3…20e1 Line {l1=0x0c, l2=»3040 REPEAT «, l3=0x0c}
0x20e1…20f4 Line {l1=0x11, l2=»3050 CURSOR 15,13«, l3=0x11}
0x20f4…2123 Line {l1=0x2d, l2=»3060 INPUT "Ønskes balance gentaget (J/N)",A$«, l3=0x2d}
0x2123…2139 Line {l1=0x14, l2=»3070 EXEC NRTEST(A$)«, l3=0x14}
0x2139…2152 Line {l1=0x17, l2=»3080 UNTIL P=-7 OR P=-8«, l3=0x17}
0x2152…2163 Line {l1=0x0f, l2=»3090 UNTIL P=-8«, l3=0x0f}
0x2163…2170 Line {l1=0x0b, l2=»3100 CLOSE «, l3=0x0b}
0x2170…218c Line {l1=0x1a, l2=»3110 CHAIN "P641215:ÅKOPI"«, l3=0x1a}
0x218c…21a0 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ cccccccccccccccccc┆
0x21a0…21c0 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┆
[…0x2e…]