|
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: »BALANCE.K«
└─⟦ec8c1e0b0⟧ Bits:30007442 8" floppy ( MIKPROG vol. 1-3, MIKREL vol. 1-3, PCSE 4.7.80 vol 1-3, GL.SYS )
└─⟦this⟧ »BALANCE.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) 0140 DIM SALDO2$(12),SALDO11$(12),SALDO1$(12),SALDO12$(12) 0150 DIM K2$(17),K3$(17),K4$(17),K5$(17),T1(9),LAND$(9,12) 0160 PROC CALC(ART,B1,B2,ES) 0170 OP1$=B1$;OP2$=B2$;RES$=ES$;SI=0;FLAG=0 0180 CALL "P641210: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 HENTPOST 0430 S1=FTAB(FPIL3,2) 0440 GET K3$,S1:FNR,FNAVN$ 0450 EXEC FEJL(2,2,K3$) 0460 GET K3$,S1+1:FMKODE$,FMDEBET$,FMKREDIT$ 0470 EXEC FEJL(2,3,K3$) 0480 GET K3$,S1+2:FUKODE$,FÅDEBET$,FÅKREDIT$ 0490 EXEC FEJL(2,4,K3$) 0500 ENDPROC 0510 PROC FEJL(NR1,NR2,NR3) 0520 IF STATUS(NR3$)<>0 THEN 0530 PRINT STATUS(NR3$),NR1,NR2,NR3$ 0540 STOP 0550 ENDIF 0560 ENDPROC 0570 PROC TUD(BLB1,UBLB1,TEGN,STØR) 0580 EXEC CALC(5,BLB1$,TAL4$,UBLB1$) 0590 IF TEGN=0 THEN 0600 UBLB1$=UBLB1$(1:13) 0610 ELSE 0620 IF TEGN=1 AND UBLB1$(LEN(UBLB1$))="+" THEN 0630 UBLB1$(LEN(UBLB1$))=" " 0640 ENDIF 0650 ENDIF 0660 IF STØR=1 THEN 0670 UBLB1$=UBLB1$(4:LEN(UBLB1$)-3) 0680 ENDIF 0690 ENDPROC 0700 PROC HOVEDUD(UDATO,USIDE) 0710 EXEC DATOUD(UDATO,DAT$) 0720 PRINT TAB(10);CHR(14);"Balance";CHR(15);TAB(44);"Dato : ";DAT$; 0730 PRINT USING " Side :###":USIDE 0740 PRINT " " 0750 PRINT TAB(40);"Månedens";TAB(66);"Årets" 0760 PRINT TAB(3);"Nr Kontonavn";TAB(35);"Debet Kredit Debet"; 0770 PRINT " Kredit" 0780 PRINT TAB(8);STREG$ 0790 ENDPROC 0800 PROC LINIEUD(NR4,NAVN1,SAL1,SAL2) 0810 PRINT USING "###### ":NR4; 0820 EXEC TUD(SAL1$,UBELØB1$,0,0) 0830 EXEC TUD(SAL2$,UBELØB2$,0,0) 0840 PRINT NAVN1$;TAB(31+12*(SAL1$(LEN(SAL1$))="-"));UBELØB1$(2:12); 0850 PRINT TAB(56+12*(SAL2$(LEN(SAL2$))="-"));UBELØB2$(2:12) 0860 ENDPROC 0870 PROC NYSIDE 0880 FOR LINIE=LINIE TO 42 0890 PRINT CHR(10); 0900 NEXT LINIE 0910 PRINT " " 0920 BSIDE=BSIDE+1 0930 EXEC HOVEDUD(T1(7),BSIDE) 0940 PRINT " " 0950 PRINT USING "###### ":GFNR; 0960 EXEC CALC(4,SALDO12$,TAL4$,TAL4$) 0970 IF SI<>0 THEN 0980 PRINT GLNAVN$(1:23);" Fortsat" 0990 ELSE 1000 PRINT GLNAVN$(1:23) 1010 ENDIF 1020 PRINT TAB(8);STREG$(1:23+7*(SI<>0)) 1030 PRINT " " 1040 LINIE=5 1050 ENDPROC 1060 K1$="P641220:SYSTEM1" 1070 OPEN K1$,R 1080 EXEC FEJL(9,1,K1$) 1090 GET K1$,1:MFANTAL 1100 EXEC FEJL(9,2,K1$) 1110 GET K1$,4:MKPOST,MFAK,MVGR,MKGR 1120 EXEC FEJL(9,3,K1$) 1130 GET K1$,5:MKRGR 1140 EXEC FEJL(9,4,K1$) 1150 GET K1$,8:DIVNR,DIVDNR,DIFNR,DTAL 1160 EXEC FEJL(9,5,K1$) 1170 GET K1$,9:KRTAL 1180 EXEC FEJL(9,6,K1$) 1190 GET K1$,10:N$ 1200 EXEC FEJL(9,7,K1$) 1210 GET K1$,11:K2$ 1220 EXEC FEJL(9,8,K1$) 1230 GET K1$,15:K3$ 1240 EXEC FEJL(9,9,K1$) 1250 GET K1$,36:K4$ 1260 EXEC FEJL(9,10,K1$) 1270 CLOSE K1$ 1280 EXEC FEJL(9,11,K1$) 1290 K2$=N$+K2$;K3$=N$+K3$ 1300 K4$=N$+K4$ 1310 DIM FTAB(MFANTAL,2) 1320 OPEN K4$,R 1330 EXEC FEJL(9,12,K4$) 1340 GET K4$,2:T1(1),T1(2),T1(3),T1(4),T1(5),T1(6),T1(7),T1(8),T1(9) 1350 EXEC FEJL(9,13,K4$) 1360 GET K4$,14:AFIN 1370 EXEC FEJL(9,14,K4$) 1380 CLOSE K4$ 1390 EXEC FEJL(9,15,K4$) 1400 OPEN K2$,R 1410 EXEC FEJL(9,16,K2$) 1420 OPEN K3$,R 1430 EXEC FEJL(9,17,K3$) 1440 EXEC INDTAB(FTAB,MFANTAL,K2$) 1450 BLANK$=" " 1460 STREG$="------------------------------------";STREG$=STREG$+STREG$ 1470 REPEAT 1480 OUTPUT T 1490 CLEAR 1500 CURSOR 30,2 1510 PRINT "Balanceprogram" 1520 CURSOR 15,5 1530 PRINT "0: Færdig" 1540 CURSOR 15,7 1550 PRINT "1: Totalbalance" 1560 CURSOR 15,9 1570 PRINT "2: Gruppebalance" 1580 REPEAT 1590 CURSOR 18,12 1600 PRINT "Vælg type " 1610 CURSOR 28,12 1620 INPUT A$ 1630 TOTAL=ORD(A$)-48 1640 UNTIL TOTAL>-1 AND TOTAL<3 1650 IF TOTAL=0 THEN EXIT 1660 CLEAR 1670 REPEAT 1680 CURSOR 15,13 1690 INPUT "Monter papir til udskrift af balance og tast RETURN",A$ 1700 UNTIL ORD(A$)=255 1710 BSIDE=1;GLNAVN$=BLANK$;LINIE=1;SALDO1$="0+";SALDO2$="0+";SALDO3$="0+" 1720 SALDO3$="0+";SALDO11$="0+";SALDO12$="0+";SALDO13$="0+";TAL4$="0+";GFNR=0 1730 OUTPUT P 1740 EXEC HOVEDUD(T1(7),BSIDE) 1750 FOR FPIL3=1 TO AFIN 1760 IF FTAB(FPIL3,1)=100000 THEN EXIT 1770 EXEC HENTPOST 1780 FGRUP=INT(ORD(FUKODE$)-48) 1790 EXEC CALC(0,FMDEBET$,FMKREDIT$,FMDK$) 1800 EXEC CALC(0,FÅDEBET$,FÅKREDIT$,FÅDK$) 1810 CASE FGRUP OF 1820 STOP 1830 WHEN 0 1840 IF TOTAL=1 THEN 1850 IF LINIE>39 THEN EXEC NYSIDE 1860 EXEC LINIEUD(FNR,FNAVN$(1:23),FMDK$,FÅDK$) 1870 LINIE=LINIE+1 1880 ENDIF 1890 EXEC CALC(0,SALDO1$,FMDK$,SALDO1$) 1900 EXEC CALC(0,SALDO11$,FÅDK$,SALDO11$) 1910 EXEC CALC(0,SALDO2$,FMDK$,SALDO2$) 1920 EXEC CALC(0,SALDO12$,FÅDK$,SALDO12$) 1930 EXEC CALC(0,SALDO3$,FMDK$,SALDO3$) 1940 EXEC CALC(0,SALDO13$,FÅDK$,SALDO13$) 1950 WHEN 1 1960 IF LINIE>39 THEN EXEC NYSIDE 1965 FNR2=FNR DIV 1000 1970 FNR1=FNR DIV 10000;DTAL1=DTAL*10000+MKGR;KRTAL1=KRTAL*1000+MKRGR 1980 IF FNR1=DTAL AND DTAL1=>FNR OR FNR2=KRTAL AND KRTAL1=>FNR THEN 1990 EXEC CALC(0,SALDO2$,FMDK$,SALDO2$) 2000 EXEC CALC(0,SALDO12$,FÅDK$,SALDO12$) 2010 EXEC CALC(0,SALDO3$,FMDK$,SALDO3$) 2020 EXEC CALC(0,SALDO13$,FÅDK$,SALDO13$) 2030 EXEC LINIEUD(FNR,FNAVN$(1:23),FMDK$,FÅDK$) 2040 ELSE 2050 EXEC LINIEUD(FNR,FNAVN$(1:23),SALDO1$,SALDO11$) 2060 SALDO1$="0+";SALDO11$="0+" 2070 ENDIF 2080 PRINT " " 2090 LINIE=LINIE+2 2100 WHEN 2 2110 IF GFNR>0 THEN 2120 IF LINIE>37 THEN EXEC NYSIDE 2130 PRINT " " 2140 PRINT TAB(8);STREG$(1:71) 2150 EXEC LINIEUD(GFNR,GLNAVN$(1:23),SALDO2$,SALDO12$) 2160 SALDO2$="0+";SALDO12$="0+";LINIE=LINIE+3 2170 SALDO1$="0+";SALDO11$="0+" 2180 ENDIF 2190 GLNAVN$=FNAVN$;GFNR=FNR 2200 IF LINIE>34 THEN 2210 EXEC NYSIDE 2220 ELSE 2230 PRINT CHR(10) 2240 PRINT USING "###### ":FNR; 2250 PRINT GLNAVN$(1:23) 2260 PRINT TAB(8);STREG$(1:LEN(GLNAVN$)) 2270 PRINT " " 2280 LINIE=LINIE+5 2290 ENDIF 2300 WHEN 3 2310 IF LINIE>37 AND GFNR>0 THEN EXEC NYSIDE 2320 IF GFNR>0 THEN 2330 PRINT " " 2340 PRINT TAB(8);STREG$(1:71) 2350 EXEC LINIEUD(GFNR,GLNAVN$(1:23),SALDO2$,SALDO12$) 2360 SALDO2$="0+";SALDO12$="0+";LINIE=LINIE+3;GFNR=0 2370 ENDIF 2380 IF LINIE>36 THEN EXEC NYSIDE 2390 PRINT " " 2400 PRINT TAB(8);STREG$(1:71) 2410 EXEC LINIEUD(FNR,FNAVN$(1:23),SALDO3$,SALDO13$) 2420 SALDO1$="0+";SALDO11$="0+" 2430 PRINT TAB(8);STREG$(1:71) 2440 PRINT " " 2450 LINIE=LINIE+5 2460 ENDCASE 2470 NEXT FPIL3 2480 IF GFNR>0 THEN 2490 IF LINIE>37 THEN EXEC NYSIDE 2500 PRINT " " 2510 PRINT TAB(8);STREG$(1:71) 2520 EXEC LINIEUD(GFNR,GLNAVN$(1:23),SALDO2$,SALDO12$) 2530 SALDO2$="0+";SALDO12$="0+";LINIE=LINIE+3;GFNR=0 2540 SALDO1$="0+";SALDO11$="0+" 2550 ENDIF 2560 IF LINIE>36 THEN EXEC NYSIDE 2570 GLNAVN$="Difference";GFNR=100000 2580 PRINT " " 2590 PRINT TAB(8);STREG$(1:71) 2600 EXEC LINIEUD(GFNR,GLNAVN$,SALDO3$,SALDO13$) 2610 PRINT TAB(8);STREG$(1:71) 2620 FOR LINIE=LINIE TO 38 2630 PRINT CHR(10); 2640 NEXT LINIE 2650 PRINT " " 2660 UNTIL TOTAL=0 2670 OUTPUT T 2680 CHAIN "P641210:OPSTART"
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…0129 Line {l1=0x42, l2=»0130 DIM FMKODE$(1),FNAVN$(25),FUKODE$(1),SALDO13$(12),SALDO3$(12)«, l3=0x42}
0x0129…0165 Line {l1=0x3a, l2=»0140 DIM SALDO2$(12),SALDO11$(12),SALDO1$(12),SALDO12$(12)«, l3=0x3a}
0x0165…01a1 Line {l1=0x3a, l2=»0150 DIM K2$(17),K3$(17),K4$(17),K5$(17),T1(9),LAND$(9,12)«, l3=0x3a}
0x01a1…01bf Line {l1=0x1c, l2=»0160 PROC CALC(ART,B1,B2,ES)«, l3=0x1c}
0x01bf…01ec Line {l1=0x2b, l2=»0170 OP1$=B1$;OP2$=B2$;RES$=ES$;SI=0;FLAG=0«, l3=0x2b}
0x01ec…0206 Line {l1=0x18, l2=»0180 CALL "P641210:REGN"«, l3=0x18}
0x0206…0215 Line {l1=0x0d, l2=»0190 ES$=RES$«, l3=0x0d}
0x0215…0231 Line {l1=0x1a, l2=»0200 IF FLAG<>0 THEN STOP «, l3=0x1a}
0x0231…0240 Line {l1=0x0d, l2=»0210 ENDPROC «, l3=0x0d}
0x0240…025b Line {l1=0x19, l2=»0220 PROC DATOUD(DA1,DA2)«, l3=0x19}
0x025b…0269 Line {l1=0x0c, l2=»0230 DA3=DA1«, l3=0x0c}
0x0269…027f Line {l1=0x14, l2=»0240 DA2$=" "«, l3=0x14}
0x027f…029a Line {l1=0x19, l2=»0250 FOR J=8 TO 1 STEP -1«, l3=0x19}
0x029a…02b3 Line {l1=0x17, l2=»0260 IF J MOD 3=0 THEN «, l3=0x17}
0x02b3…02c5 Line {l1=0x10, l2=»0270 DA2$(J)="."«, l3=0x10}
0x02c5…02d1 Line {l1=0x0a, l2=»0280 ELSE «, l3=0x0a}
0x02d1…02f2 Line {l1=0x1f, l2=»0290 DA2$(J)=CHR(DA3 MOD 10+48)«, l3=0x1f}
0x02f2…0307 Line {l1=0x13, l2=»0300 DA3=DA3 DIV 10«, l3=0x13}
0x0307…0314 Line {l1=0x0b, l2=»0310 ENDIF «, l3=0x0b}
0x0314…0321 Line {l1=0x0b, l2=»0320 NEXT J«, l3=0x0b}
0x0321…0330 Line {l1=0x0d, l2=»0330 ENDPROC «, l3=0x0d}
0x0330…0350 Line {l1=0x1e, l2=»0340 PROC INDTAB(T,MANTAL,L10)«, l3=0x1e}
0x0350…0368 Line {l1=0x16, l2=»0350 J=MANTAL DIV 32+1«, l3=0x16}
0x0368…038a Line {l1=0x20, l2=»0360 FOR I=J TO MANTAL DIV 4+J-1«, l3=0x20}
0x038a…03b1 Line {l1=0x25, l2=»0370 H=(I-J)*4+1;H1=H+1;H2=H+2;H3=H+3«, l3=0x25}
0x03b1…0400 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}
0x0400…041a Line {l1=0x18, l2=»0390 EXEC FEJL(1,1,L10$)«, l3=0x18}
0x041a…0427 Line {l1=0x0b, l2=»0400 NEXT I«, l3=0x0b}
0x0427…0436 Line {l1=0x0d, l2=»0410 ENDPROC «, l3=0x0d}
0x0436…044a Line {l1=0x12, l2=»0420 PROC HENTPOST«, l3=0x12}
0x044a…0461 Line {l1=0x15, l2=»0430 S1=FTAB(FPIL3,2)«, l3=0x15}
0x0461…047d Line {l1=0x1a, l2=»0440 GET K3$,S1:FNR,FNAVN$«, l3=0x1a}
0x047d…0496 Line {l1=0x17, l2=»0450 EXEC FEJL(2,2,K3$)«, l3=0x17}
0x0496…04c4 Line {l1=0x2c, l2=»0460 GET K3$,S1+1:FMKODE$,FMDEBET$,FMKREDIT$«, l3=0x2c}
0x04c4…04dd Line {l1=0x17, l2=»0470 EXEC FEJL(2,3,K3$)«, l3=0x17}
0x04dd…050b Line {l1=0x2c, l2=»0480 GET K3$,S1+2:FUKODE$,FÅDEBET$,FÅKREDIT$«, l3=0x2c}
0x050b…0524 Line {l1=0x17, l2=»0490 EXEC FEJL(2,4,K3$)«, l3=0x17}
0x0524…0533 Line {l1=0x0d, l2=»0500 ENDPROC «, l3=0x0d}
0x0533…0550 Line {l1=0x1b, l2=»0510 PROC FEJL(NR1,NR2,NR3)«, l3=0x1b}
0x0550…056f Line {l1=0x1d, l2=»0520 IF STATUS(NR3$)<>0 THEN «, l3=0x1d}
0x056f…0595 Line {l1=0x24, l2=»0530 PRINT STATUS(NR3$),NR1,NR2,NR3$«, l3=0x24}
0x0595…05a1 Line {l1=0x0a, l2=»0540 STOP «, l3=0x0a}
0x05a1…05ae Line {l1=0x0b, l2=»0550 ENDIF «, l3=0x0b}
0x05ae…05bd Line {l1=0x0d, l2=»0560 ENDPROC «, l3=0x0d}
0x05bd…05e2 Line {l1=0x23, l2=»0570 PROC TUD(BLB1,UBLB1,TEGN,STØR)«, l3=0x23}
0x05e2…0608 Line {l1=0x24, l2=»0580 EXEC CALC(5,BLB1$,TAL4$,UBLB1$)«, l3=0x24}
0x0608…061e Line {l1=0x14, l2=»0590 IF TEGN=0 THEN «, l3=0x14}
0x061e…0638 Line {l1=0x18, l2=»0600 UBLB1$=UBLB1$(1:13)«, l3=0x18}
0x0638…0644 Line {l1=0x0a, l2=»0610 ELSE «, l3=0x0a}
0x0644…0676 Line {l1=0x30, l2=»0620 IF TEGN=1 AND UBLB1$(LEN(UBLB1$))="+" THEN «, l3=0x30}
0x0676…0694 Line {l1=0x1c, l2=»0630 UBLB1$(LEN(UBLB1$))=" "«, l3=0x1c}
0x0694…06a1 Line {l1=0x0b, l2=»0640 ENDIF «, l3=0x0b}
0x06a1…06ae Line {l1=0x0b, l2=»0650 ENDIF «, l3=0x0b}
0x06ae…06c4 Line {l1=0x14, l2=»0660 IF STØR=1 THEN «, l3=0x14}
0x06c4…06e9 Line {l1=0x23, l2=»0670 UBLB1$=UBLB1$(4:LEN(UBLB1$)-3)«, l3=0x23}
0x06e9…06f6 Line {l1=0x0b, l2=»0680 ENDIF «, l3=0x0b}
0x06f6…0705 Line {l1=0x0d, l2=»0690 ENDPROC «, l3=0x0d}
0x0705…0725 Line {l1=0x1e, l2=»0700 PROC HOVEDUD(UDATO,USIDE)«, l3=0x1e}
0x0725…0743 Line {l1=0x1c, l2=»0710 EXEC DATOUD(UDATO,DAT$)«, l3=0x1c}
0x0743…0789 Line {l1=0x44, l2=»0720 PRINT TAB(10);CHR(14);"Balance";CHR(15);TAB(44);"Dato : ";DAT$;«, l3=0x44}
0x0789…07b0 Line {l1=0x25, l2=»0730 PRINT USING " Side :###":USIDE«, l3=0x25}
0x07b0…07c0 Line {l1=0x0e, l2=»0740 PRINT " "«, l3=0x0e}
0x07c0…07ef Line {l1=0x2d, l2=»0750 PRINT TAB(40);"Månedens";TAB(66);"Årets"«, l3=0x2d}
0x07ef…083d Line {l1=0x4c, l2=»0760 PRINT TAB(3);"Nr Kontonavn";TAB(35);"Debet Kredit Debet";«, l3=0x4c}
0x083d…0859 Line {l1=0x1a, l2=»0770 PRINT " Kredit"«, l3=0x1a}
0x0859…0873 Line {l1=0x18, l2=»0780 PRINT TAB(8);STREG$«, l3=0x18}
0x0873…0882 Line {l1=0x0d, l2=»0790 ENDPROC «, l3=0x0d}
0x0882…08aa Line {l1=0x26, l2=»0800 PROC LINIEUD(NR4,NAVN1,SAL1,SAL2)«, l3=0x26}
0x08aa…08cb Line {l1=0x1f, l2=»0810 PRINT USING "###### ":NR4;«, l3=0x1f}
0x08cb…08ee Line {l1=0x21, l2=»0820 EXEC TUD(SAL1$,UBELØB1$,0,0)«, l3=0x21}
0x08ee…0911 Line {l1=0x21, l2=»0830 EXEC TUD(SAL2$,UBELØB2$,0,0)«, l3=0x21}
0x0911…0957 Line {l1=0x44, l2=»0840 PRINT NAVN1$;TAB(31+12*(SAL1$(LEN(SAL1$))="-"));UBELØB1$(2:12);«, l3=0x44}
0x0957…0995 Line {l1=0x3c, l2=»0850 PRINT TAB(56+12*(SAL2$(LEN(SAL2$))="-"));UBELØB2$(2:12)«, l3=0x3c}
0x0995…09a4 Line {l1=0x0d, l2=»0860 ENDPROC «, l3=0x0d}
0x09a4…09b6 Line {l1=0x10, l2=»0870 PROC NYSIDE«, l3=0x10}
0x09b6…09d2 Line {l1=0x1a, l2=»0880 FOR LINIE=LINIE TO 42«, l3=0x1a}
0x09d2…09e7 Line {l1=0x13, l2=»0890 PRINT CHR(10);«, l3=0x13}
0x09e7…09f8 Line {l1=0x0f, l2=»0900 NEXT LINIE«, l3=0x0f}
0x09f8…0a08 Line {l1=0x0e, l2=»0910 PRINT " "«, l3=0x0e}
0x0a08…0a1c Line {l1=0x12, l2=»0920 BSIDE=BSIDE+1«, l3=0x12}
0x0a1c…0a3c Line {l1=0x1e, l2=»0930 EXEC HOVEDUD(T1(7),BSIDE)«, l3=0x1e}
0x0a3c…0a4c Line {l1=0x0e, l2=»0940 PRINT " "«, l3=0x0e}
0x0a4c…0a6e Line {l1=0x20, l2=»0950 PRINT USING "###### ":GFNR;«, l3=0x20}
0x0a6e…0a96 Line {l1=0x26, l2=»0960 EXEC CALC(4,SALDO12$,TAL4$,TAL4$)«, l3=0x26}
0x0a96…0aab Line {l1=0x13, l2=»0970 IF SI<>0 THEN «, l3=0x13}
0x0aab…0ad0 Line {l1=0x23, l2=»0980 PRINT GLNAVN$(1:23);" Fortsat"«, l3=0x23}
0x0ad0…0adc Line {l1=0x0a, l2=»0990 ELSE «, l3=0x0a}
0x0adc…0af6 Line {l1=0x18, l2=»1000 PRINT GLNAVN$(1:23)«, l3=0x18}
0x0af6…0b03 Line {l1=0x0b, l2=»1010 ENDIF «, l3=0x0b}
0x0b03…0b2d Line {l1=0x28, l2=»1020 PRINT TAB(8);STREG$(1:23+7*(SI<>0))«, l3=0x28}
0x0b2d…0b3d Line {l1=0x0e, l2=»1030 PRINT " "«, l3=0x0e}
0x0b3d…0b4b Line {l1=0x0c, l2=»1040 LINIE=5«, l3=0x0c}
0x0b4b…0b5a Line {l1=0x0d, l2=»1050 ENDPROC «, l3=0x0d}
0x0b5a…0b76 Line {l1=0x1a, l2=»1060 K1$="P641220:SYSTEM1"«, l3=0x1a}
0x0b76…0b87 Line {l1=0x0f, l2=»1070 OPEN K1$,R«, l3=0x0f}
0x0b87…0ba0 Line {l1=0x17, l2=»1080 EXEC FEJL(9,1,K1$)«, l3=0x17}
0x0ba0…0bb8 Line {l1=0x16, l2=»1090 GET K1$,1:MFANTAL«, l3=0x16}
0x0bb8…0bd1 Line {l1=0x17, l2=»1100 EXEC FEJL(9,2,K1$)«, l3=0x17}
0x0bd1…0bf7 Line {l1=0x24, l2=»1110 GET K1$,4:MKPOST,MFAK,MVGR,MKGR«, l3=0x24}
0x0bf7…0c10 Line {l1=0x17, l2=»1120 EXEC FEJL(9,3,K1$)«, l3=0x17}
0x0c10…0c26 Line {l1=0x14, l2=»1130 GET K1$,5:MKRGR«, l3=0x14}
0x0c26…0c3f Line {l1=0x17, l2=»1140 EXEC FEJL(9,4,K1$)«, l3=0x17}
0x0c3f…0c67 Line {l1=0x26, l2=»1150 GET K1$,8:DIVNR,DIVDNR,DIFNR,DTAL«, l3=0x26}
0x0c67…0c80 Line {l1=0x17, l2=»1160 EXEC FEJL(9,5,K1$)«, l3=0x17}
0x0c80…0c96 Line {l1=0x14, l2=»1170 GET K1$,9:KRTAL«, l3=0x14}
0x0c96…0caf Line {l1=0x17, l2=»1180 EXEC FEJL(9,6,K1$)«, l3=0x17}
0x0caf…0cc3 Line {l1=0x12, l2=»1190 GET K1$,10:N$«, l3=0x12}
0x0cc3…0cdc Line {l1=0x17, l2=»1200 EXEC FEJL(9,7,K1$)«, l3=0x17}
0x0cdc…0cf1 Line {l1=0x13, l2=»1210 GET K1$,11:K2$«, l3=0x13}
0x0cf1…0d0a Line {l1=0x17, l2=»1220 EXEC FEJL(9,8,K1$)«, l3=0x17}
0x0d0a…0d1f Line {l1=0x13, l2=»1230 GET K1$,15:K3$«, l3=0x13}
0x0d1f…0d38 Line {l1=0x17, l2=»1240 EXEC FEJL(9,9,K1$)«, l3=0x17}
0x0d38…0d4d Line {l1=0x13, l2=»1250 GET K1$,36:K4$«, l3=0x13}
0x0d4d…0d67 Line {l1=0x18, l2=»1260 EXEC FEJL(9,10,K1$)«, l3=0x18}
0x0d67…0d77 Line {l1=0x0e, l2=»1270 CLOSE K1$«, l3=0x0e}
0x0d77…0d91 Line {l1=0x18, l2=»1280 EXEC FEJL(9,11,K1$)«, l3=0x18}
0x0d91…0dad Line {l1=0x1a, l2=»1290 K2$=N$+K2$;K3$=N$+K3$«, l3=0x1a}
0x0dad…0dbe Line {l1=0x0f, l2=»1300 K4$=N$+K4$«, l3=0x0f}
0x0dbe…0dd8 Line {l1=0x18, l2=»1310 DIM FTAB(MFANTAL,2)«, l3=0x18}
0x0dd8…0de9 Line {l1=0x0f, l2=»1320 OPEN K4$,R«, l3=0x0f}
0x0de9…0e03 Line {l1=0x18, l2=»1330 EXEC FEJL(9,12,K4$)«, l3=0x18}
0x0e03…0e49 Line {l1=0x44, l2=»1340 GET K4$,2:T1(1),T1(2),T1(3),T1(4),T1(5),T1(6),T1(7),T1(8),T1(9)«, l3=0x44}
0x0e49…0e63 Line {l1=0x18, l2=»1350 EXEC FEJL(9,13,K4$)«, l3=0x18}
0x0e63…0e79 Line {l1=0x14, l2=»1360 GET K4$,14:AFIN«, l3=0x14}
0x0e79…0e93 Line {l1=0x18, l2=»1370 EXEC FEJL(9,14,K4$)«, l3=0x18}
0x0e93…0ea3 Line {l1=0x0e, l2=»1380 CLOSE K4$«, l3=0x0e}
0x0ea3…0ebd Line {l1=0x18, l2=»1390 EXEC FEJL(9,15,K4$)«, l3=0x18}
0x0ebd…0ece Line {l1=0x0f, l2=»1400 OPEN K2$,R«, l3=0x0f}
0x0ece…0ee8 Line {l1=0x18, l2=»1410 EXEC FEJL(9,16,K2$)«, l3=0x18}
0x0ee8…0ef9 Line {l1=0x0f, l2=»1420 OPEN K3$,R«, l3=0x0f}
0x0ef9…0f13 Line {l1=0x18, l2=»1430 EXEC FEJL(9,17,K3$)«, l3=0x18}
0x0f13…0f37 Line {l1=0x22, l2=»1440 EXEC INDTAB(FTAB,MFANTAL,K2$)«, l3=0x22}
0x0f37…0f5f Line {l1=0x26, l2=»1450 BLANK$=" "«, l3=0x26}
0x0f5f…0fa8 Line {l1=0x47, l2=»1460 STREG$="------------------------------------";STREG$=STREG$+STREG$«, l3=0x47}
0x0fa8…0fb6 Line {l1=0x0c, l2=»1470 REPEAT «, l3=0x0c}
0x0fb6…0fc5 Line {l1=0x0d, l2=»1480 OUTPUT T«, l3=0x0d}
0x0fc5…0fd2 Line {l1=0x0b, l2=»1490 CLEAR «, l3=0x0b}
0x0fd2…0fe4 Line {l1=0x10, l2=»1500 CURSOR 30,2«, l3=0x10}
0x0fe4…1001 Line {l1=0x1b, l2=»1510 PRINT "Balanceprogram"«, l3=0x1b}
0x1001…1013 Line {l1=0x10, l2=»1520 CURSOR 15,5«, l3=0x10}
0x1013…102b Line {l1=0x16, l2=»1530 PRINT "0: Færdig"«, l3=0x16}
0x102b…103d Line {l1=0x10, l2=»1540 CURSOR 15,7«, l3=0x10}
0x103d…105b Line {l1=0x1c, l2=»1550 PRINT "1: Totalbalance"«, l3=0x1c}
0x105b…106d Line {l1=0x10, l2=»1560 CURSOR 15,9«, l3=0x10}
0x106d…108c Line {l1=0x1d, l2=»1570 PRINT "2: Gruppebalance"«, l3=0x1d}
0x108c…109a Line {l1=0x0c, l2=»1580 REPEAT «, l3=0x0c}
0x109a…10ad Line {l1=0x11, l2=»1590 CURSOR 18,12«, l3=0x11}
0x10ad…10cd Line {l1=0x1e, l2=»1600 PRINT "Vælg type "«, l3=0x1e}
0x10cd…10e0 Line {l1=0x11, l2=»1610 CURSOR 28,12«, l3=0x11}
0x10e0…10ef Line {l1=0x0d, l2=»1620 INPUT A$«, l3=0x0d}
0x10ef…1106 Line {l1=0x15, l2=»1630 TOTAL=ORD(A$)-48«, l3=0x15}
0x1106…1127 Line {l1=0x1f, l2=»1640 UNTIL TOTAL>-1 AND TOTAL<3«, l3=0x1f}
0x1127…1143 Line {l1=0x1a, l2=»1650 IF TOTAL=0 THEN EXIT «, l3=0x1a}
0x1143…1150 Line {l1=0x0b, l2=»1660 CLEAR «, l3=0x0b}
0x1150…115e Line {l1=0x0c, l2=»1670 REPEAT «, l3=0x0c}
0x115e…1171 Line {l1=0x11, l2=»1680 CURSOR 15,13«, l3=0x11}
0x1171…11b6 Line {l1=0x43, l2=»1690 INPUT "Monter papir til udskrift af balance og tast RETURN",A$«, l3=0x43}
0x11b6…11ce Line {l1=0x16, l2=»1700 UNTIL ORD(A$)=255«, l3=0x16}
0x11ce…121a Line {l1=0x4a, l2=»1710 BSIDE=1;GLNAVN$=BLANK$;LINIE=1;SALDO1$="0+";SALDO2$="0+";SALDO3$="0+"«, l3=0x4a}
0x121a…1269 Line {l1=0x4d, l2=»1720 SALDO3$="0+";SALDO11$="0+";SALDO12$="0+";SALDO13$="0+";TAL4$="0+";GFNR=0«, l3=0x4d}
0x1269…1278 Line {l1=0x0d, l2=»1730 OUTPUT P«, l3=0x0d}
0x1278…1298 Line {l1=0x1e, l2=»1740 EXEC HOVEDUD(T1(7),BSIDE)«, l3=0x1e}
0x1298…12b2 Line {l1=0x18, l2=»1750 FOR FPIL3=1 TO AFIN«, l3=0x18}
0x12b2…12db Line {l1=0x27, l2=»1760 IF FTAB(FPIL3,1)=100000 THEN EXIT «, l3=0x27}
0x12db…12ef Line {l1=0x12, l2=»1770 EXEC HENTPOST«, l3=0x12}
0x12ef…1310 Line {l1=0x1f, l2=»1780 FGRUP=INT(ORD(FUKODE$)-48)«, l3=0x1f}
0x1310…133c Line {l1=0x2a, l2=»1790 EXEC CALC(0,FMDEBET$,FMKREDIT$,FMDK$)«, l3=0x2a}
0x133c…1368 Line {l1=0x2a, l2=»1800 EXEC CALC(0,FÅDEBET$,FÅKREDIT$,FÅDK$)«, l3=0x2a}
0x1368…137d Line {l1=0x13, l2=»1810 CASE FGRUP OF «, l3=0x13}
0x137d…1389 Line {l1=0x0a, l2=»1820 STOP «, l3=0x0a}
0x1389…1396 Line {l1=0x0b, l2=»1830 WHEN 0«, l3=0x0b}
0x1396…13ad Line {l1=0x15, l2=»1840 IF TOTAL=1 THEN «, l3=0x15}
0x13ad…13d0 Line {l1=0x21, l2=»1850 IF LINIE>39 THEN EXEC NYSIDE«, l3=0x21}
0x13d0…1401 Line {l1=0x2f, l2=»1860 EXEC LINIEUD(FNR,FNAVN$(1:23),FMDK$,FÅDK$)«, l3=0x2f}
0x1401…1415 Line {l1=0x12, l2=»1870 LINIE=LINIE+1«, l3=0x12}
0x1415…1422 Line {l1=0x0b, l2=»1880 ENDIF «, l3=0x0b}
0x1422…144b Line {l1=0x27, l2=»1890 EXEC CALC(0,SALDO1$,FMDK$,SALDO1$)«, l3=0x27}
0x144b…1476 Line {l1=0x29, l2=»1900 EXEC CALC(0,SALDO11$,FÅDK$,SALDO11$)«, l3=0x29}
0x1476…149f Line {l1=0x27, l2=»1910 EXEC CALC(0,SALDO2$,FMDK$,SALDO2$)«, l3=0x27}
0x149f…14ca Line {l1=0x29, l2=»1920 EXEC CALC(0,SALDO12$,FÅDK$,SALDO12$)«, l3=0x29}
0x14ca…14f3 Line {l1=0x27, l2=»1930 EXEC CALC(0,SALDO3$,FMDK$,SALDO3$)«, l3=0x27}
0x14f3…151e Line {l1=0x29, l2=»1940 EXEC CALC(0,SALDO13$,FÅDK$,SALDO13$)«, l3=0x29}
0x151e…152b Line {l1=0x0b, l2=»1950 WHEN 1«, l3=0x0b}
0x152b…154e Line {l1=0x21, l2=»1960 IF LINIE>39 THEN EXEC NYSIDE«, l3=0x21}
0x154e…1566 Line {l1=0x16, l2=»1965 FNR2=FNR DIV 1000«, l3=0x16}
0x1566…15ad Line {l1=0x45, l2=»1970 FNR1=FNR DIV 10000;DTAL1=DTAL*10000+MKGR;KRTAL1=KRTAL*1000+MKRGR«, l3=0x45}
0x15ad…15f3 Line {l1=0x44, l2=»1980 IF FNR1=DTAL AND DTAL1=>FNR OR FNR2=KRTAL AND KRTAL1=>FNR THEN «, l3=0x44}
0x15f3…161c Line {l1=0x27, l2=»1990 EXEC CALC(0,SALDO2$,FMDK$,SALDO2$)«, l3=0x27}
0x161c…1647 Line {l1=0x29, l2=»2000 EXEC CALC(0,SALDO12$,FÅDK$,SALDO12$)«, l3=0x29}
0x1647…1670 Line {l1=0x27, l2=»2010 EXEC CALC(0,SALDO3$,FMDK$,SALDO3$)«, l3=0x27}
0x1670…169b Line {l1=0x29, l2=»2020 EXEC CALC(0,SALDO13$,FÅDK$,SALDO13$)«, l3=0x29}
0x169b…16cc Line {l1=0x2f, l2=»2030 EXEC LINIEUD(FNR,FNAVN$(1:23),FMDK$,FÅDK$)«, l3=0x2f}
0x16cc…16d8 Line {l1=0x0a, l2=»2040 ELSE «, l3=0x0a}
0x16d8…170e Line {l1=0x34, l2=»2050 EXEC LINIEUD(FNR,FNAVN$(1:23),SALDO1$,SALDO11$)«, l3=0x34}
0x170e…172f Line {l1=0x1f, l2=»2060 SALDO1$="0+";SALDO11$="0+"«, l3=0x1f}
0x172f…173c Line {l1=0x0b, l2=»2070 ENDIF «, l3=0x0b}
0x173c…174c Line {l1=0x0e, l2=»2080 PRINT " "«, l3=0x0e}
0x174c…1760 Line {l1=0x12, l2=»2090 LINIE=LINIE+2«, l3=0x12}
0x1760…176d Line {l1=0x0b, l2=»2100 WHEN 2«, l3=0x0b}
0x176d…1783 Line {l1=0x14, l2=»2110 IF GFNR>0 THEN «, l3=0x14}
0x1783…17a6 Line {l1=0x21, l2=»2120 IF LINIE>37 THEN EXEC NYSIDE«, l3=0x21}
0x17a6…17b6 Line {l1=0x0e, l2=»2130 PRINT " "«, l3=0x0e}
0x17b6…17d6 Line {l1=0x1e, l2=»2140 PRINT TAB(8);STREG$(1:71)«, l3=0x1e}
0x17d6…180e Line {l1=0x36, l2=»2150 EXEC LINIEUD(GFNR,GLNAVN$(1:23),SALDO2$,SALDO12$)«, l3=0x36}
0x180e…183d Line {l1=0x2d, l2=»2160 SALDO2$="0+";SALDO12$="0+";LINIE=LINIE+3«, l3=0x2d}
0x183d…185e Line {l1=0x1f, l2=»2170 SALDO1$="0+";SALDO11$="0+"«, l3=0x1f}
0x185e…186b Line {l1=0x0b, l2=»2180 ENDIF «, l3=0x0b}
0x186b…1889 Line {l1=0x1c, l2=»2190 GLNAVN$=FNAVN$;GFNR=FNR«, l3=0x1c}
0x1889…18a1 Line {l1=0x16, l2=»2200 IF LINIE>34 THEN «, l3=0x16}
0x18a1…18b3 Line {l1=0x10, l2=»2210 EXEC NYSIDE«, l3=0x10}
0x18b3…18bf Line {l1=0x0a, l2=»2220 ELSE «, l3=0x0a}
0x18bf…18d3 Line {l1=0x12, l2=»2230 PRINT CHR(10)«, l3=0x12}
0x18d3…18f4 Line {l1=0x1f, l2=»2240 PRINT USING "###### ":FNR;«, l3=0x1f}
0x18f4…190e Line {l1=0x18, l2=»2250 PRINT GLNAVN$(1:23)«, l3=0x18}
0x190e…1938 Line {l1=0x28, l2=»2260 PRINT TAB(8);STREG$(1:LEN(GLNAVN$))«, l3=0x28}
0x1938…1948 Line {l1=0x0e, l2=»2270 PRINT " "«, l3=0x0e}
0x1948…195c Line {l1=0x12, l2=»2280 LINIE=LINIE+5«, l3=0x12}
0x195c…1969 Line {l1=0x0b, l2=»2290 ENDIF «, l3=0x0b}
0x1969…1976 Line {l1=0x0b, l2=»2300 WHEN 3«, l3=0x0b}
0x1976…19a4 Line {l1=0x2c, l2=»2310 IF LINIE>37 AND GFNR>0 THEN EXEC NYSIDE«, l3=0x2c}
0x19a4…19ba Line {l1=0x14, l2=»2320 IF GFNR>0 THEN «, l3=0x14}
0x19ba…19ca Line {l1=0x0e, l2=»2330 PRINT " "«, l3=0x0e}
0x19ca…19ea Line {l1=0x1e, l2=»2340 PRINT TAB(8);STREG$(1:71)«, l3=0x1e}
0x19ea…1a22 Line {l1=0x36, l2=»2350 EXEC LINIEUD(GFNR,GLNAVN$(1:23),SALDO2$,SALDO12$)«, l3=0x36}
0x1a22…1a58 Line {l1=0x34, l2=»2360 SALDO2$="0+";SALDO12$="0+";LINIE=LINIE+3;GFNR=0«, l3=0x34}
0x1a58…1a65 Line {l1=0x0b, l2=»2370 ENDIF «, l3=0x0b}
0x1a65…1a88 Line {l1=0x21, l2=»2380 IF LINIE>36 THEN EXEC NYSIDE«, l3=0x21}
0x1a88…1a98 Line {l1=0x0e, l2=»2390 PRINT " "«, l3=0x0e}
0x1a98…1ab8 Line {l1=0x1e, l2=»2400 PRINT TAB(8);STREG$(1:71)«, l3=0x1e}
0x1ab8…1aee Line {l1=0x34, l2=»2410 EXEC LINIEUD(FNR,FNAVN$(1:23),SALDO3$,SALDO13$)«, l3=0x34}
0x1aee…1b0f Line {l1=0x1f, l2=»2420 SALDO1$="0+";SALDO11$="0+"«, l3=0x1f}
0x1b0f…1b2f Line {l1=0x1e, l2=»2430 PRINT TAB(8);STREG$(1:71)«, l3=0x1e}
0x1b2f…1b3f Line {l1=0x0e, l2=»2440 PRINT " "«, l3=0x0e}
0x1b3f…1b53 Line {l1=0x12, l2=»2450 LINIE=LINIE+5«, l3=0x12}
0x1b53…1b62 Line {l1=0x0d, l2=»2460 ENDCASE «, l3=0x0d}
0x1b62…1b73 Line {l1=0x0f, l2=»2470 NEXT FPIL3«, l3=0x0f}
0x1b73…1b89 Line {l1=0x14, l2=»2480 IF GFNR>0 THEN «, l3=0x14}
0x1b89…1bac Line {l1=0x21, l2=»2490 IF LINIE>37 THEN EXEC NYSIDE«, l3=0x21}
0x1bac…1bbc Line {l1=0x0e, l2=»2500 PRINT " "«, l3=0x0e}
0x1bbc…1bdc Line {l1=0x1e, l2=»2510 PRINT TAB(8);STREG$(1:71)«, l3=0x1e}
0x1bdc…1c14 Line {l1=0x36, l2=»2520 EXEC LINIEUD(GFNR,GLNAVN$(1:23),SALDO2$,SALDO12$)«, l3=0x36}
0x1c14…1c4a Line {l1=0x34, l2=»2530 SALDO2$="0+";SALDO12$="0+";LINIE=LINIE+3;GFNR=0«, l3=0x34}
0x1c4a…1c6b Line {l1=0x1f, l2=»2540 SALDO1$="0+";SALDO11$="0+"«, l3=0x1f}
0x1c6b…1c78 Line {l1=0x0b, l2=»2550 ENDIF «, l3=0x0b}
0x1c78…1c9b Line {l1=0x21, l2=»2560 IF LINIE>36 THEN EXEC NYSIDE«, l3=0x21}
0x1c9b…1cc2 Line {l1=0x25, l2=»2570 GLNAVN$="Difference";GFNR=100000«, l3=0x25}
0x1cc2…1cd2 Line {l1=0x0e, l2=»2580 PRINT " "«, l3=0x0e}
0x1cd2…1cf2 Line {l1=0x1e, l2=»2590 PRINT TAB(8);STREG$(1:71)«, l3=0x1e}
0x1cf2…1d24 Line {l1=0x30, l2=»2600 EXEC LINIEUD(GFNR,GLNAVN$,SALDO3$,SALDO13$)«, l3=0x30}
0x1d24…1d44 Line {l1=0x1e, l2=»2610 PRINT TAB(8);STREG$(1:71)«, l3=0x1e}
0x1d44…1d60 Line {l1=0x1a, l2=»2620 FOR LINIE=LINIE TO 38«, l3=0x1a}
0x1d60…1d75 Line {l1=0x13, l2=»2630 PRINT CHR(10);«, l3=0x13}
0x1d75…1d86 Line {l1=0x0f, l2=»2640 NEXT LINIE«, l3=0x0f}
0x1d86…1d96 Line {l1=0x0e, l2=»2650 PRINT " "«, l3=0x0e}
0x1d96…1daa Line {l1=0x12, l2=»2660 UNTIL TOTAL=0«, l3=0x12}
0x1daa…1db9 Line {l1=0x0d, l2=»2670 OUTPUT T«, l3=0x0d}
0x1db9…1dd7 Line {l1=0x1c, l2=»2680 CHAIN "P641210:OPSTART"«, l3=0x1c}
0x1dd7…1de0 00 00 54 41 4c 34 24 28 31 ┆ TAL4$(1┆
0x1de0…1e00 32 29 2c 42 4c 41 4e 4b 24 28 32 35 29 4c 4d 30 31 31 30 20 44 49 4d 20 55 42 45 4c 5c 42 31 24 ┆2),BLANK$(25)LM0110 DIM UBELØB1$┆
0x1e00…1e20 28 31 34 29 2c 55 42 45 4c 5c 42 32 24 28 31 34 29 2c 53 54 52 45 47 24 28 37 31 29 2c 46 5d 44 ┆(14),UBELØB2$(14),STREG$(71),FÅD┆
0x1e20…1e40 4b 24 28 31 32 29 2c 46 4d 44 4b 24 28 31 32 29 2c 47 4c 4e 41 56 4e 24 28 32 35 29 4d 46 30 31 ┆K$(12),FMDK$(12),GLNAVN$(25)MF01┆
0x1e40…1e60 32 30 20 44 49 4d 20 44 41 54 24 28 38 29 2c 46 5d 4b 52 45 44 49 54 24 28 31 32 29 2c 46 5d 44 ┆20 DIM DAT$(8),FÅKREDIT$(12),FÅD┆
0x1e60…1e80 45 42 45 54 24 28 31 32 29 2c 46 4d 4b 52 45 44 49 54 24 28 31 32 29 2c 46 4d 44 45 42 45 54 24 ┆EBET$(12),FMKREDIT$(12),FMDEBET$┆
0x1e80…1ea0 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┆
[…0x47…]