|
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: »ENTRETOT.K«
└─⟦385f097a1⟧ Bits:30008988 SPC/1 COMAL programmer til bogføring
└─⟦this⟧ »ENTRETOT.K«
0090 B=0;E=1;G=2;V=3;W=9 0100 PROC INLØNMOD(N) 0110 GET FIL1$,G*N:P7$,C1,C2,LT,LF,LR,LA,RPI,K1,K2,FG,FD 0120 EXEC FEJL(E,N,FIL1$) 0130 ENDPROC 0140 PROC NÆSTE 0150 REPEAT 0160 LMNR=LMNR+E 0170 LA=E 0180 IF LMNR<=MLMNR THEN EXEC INLØNMOD(LMNR) 0190 UNTIL LA>B 0200 ENDPROC 0210 DIM RES$(15),OP1$(12),OP2$(12) 0220 DIM FIL1$(16),PCT$(12) 0230 DIM RESUL$(12),RESUL1$(12),D1$(6),D2$(6),DAD$(6) 0240 DIM FIL$(16) 0250 DIM EN$(12),BE$(12),GRUPPE$(6),GRUPEN$(12),GRUPBEL$(12) 0260 PROC CALC(AR3,B1,B2,ES) 0270 RES$=ES$;OP1$=B1$;OP2$=B2$;SI=B;FLAG=B;ART=AR3-6*(AR3>5) 0280 CALL "P641210:REGN" 0290 IF AR3<6 AND FLAG THEN STOP 0300 ES$=RES$ 0310 ENDPROC 0320 PROC INDVIRK 0330 OPEN FIL$,W 0340 EXEC FEJL(B,B,FIL$) 0350 GET FIL$,G:P7$,SLJNR,MLMNR,ATPLM 0355 GET FIL$,V:DAD$ 0360 ENDPROC 0370 PROC FEJL(P1,P2,P3) 0380 IF STATUS(P3$)<>B THEN 0390 OUTPUT T 0400 PRINT "FIL-FEJL ";P3$;STATUS(P3$),P1;P2 0410 STOP 0420 ENDIF 0430 ENDPROC 0440 PROC OPTÆL(N) 0450 RESUL$=P7$(11:10) 0460 RESUL1$=T$(N,7:10) 0470 EXEC CALC(B,RESUL$,RESUL1$,RESUL1$) 0480 T$(N,7:10)=RESUL1$(V:10) 0490 RESUL$=P7$(28:10) 0500 RESUL1$=T$(N,17:10) 0510 EXEC CALC(B,RESUL$,RESUL1$,RESUL1$) 0520 T$(N,17:10)=RESUL1$(V:10) 0530 ENDPROC 0540 PROC PV(Å,Æ) 0550 IF Å$="+" THEN Å$=" " 0560 IF Æ$="+" THEN Æ$=" " 0570 ENDPROC 0580 MAX=725 0590 DIM T$(MAX+E,26),P7$(37) 0600 FOR I=E TO MAX+E 0610 T$(I)=" 0+ 0+" 0620 NEXT I 0630 PROC FIND 0640 NR=E 0650 WHILE T$(NR,E:6)<>" " 0660 IF T$(NR,E:6)=P7$(5:6) THEN EXIT 0670 IF T$(NR,E:6)>P7$(5:6) THEN 0680 NR=G*NR 0690 ELSE 0700 NR=G*NR+E 0710 ENDIF 0720 IF NR>MAX THEN EXIT 0730 ENDWHILE 0740 ENDPROC 0750 PROC TRAVERSE 0760 IF NR<=MAX THEN 0770 IF T$(NR,E:6)<>" " THEN 0780 NR=G*NR 0790 EXEC TRAVERSE 0800 NR=NR DIV G 0810 IF GRUPPE$=" " THEN GRUPPE$=T$(NR,E,5) 0820 IF LINIE>62 THEN EXEC HEAD 0830 IF GRUPPE$<>T$(NR,E,5) THEN 0832 EXEC CALC(G,PCT$,GRUPBEL$,RESUL$) 0834 IF RESUL$(12)="+" THEN RESUL$(12)=" " 0840 EXEC PV(GRUPEN$(12),GRUPBEL$(12)) 0850 PRINT "Total ";GRUPPE$,GRUPEN$(V:10),GRUPBEL$(V:10),RESUL$(V:10) 0860 PRINT 0870 GRUPPE$=T$(NR,E,5) 0880 GRUPEN$="0+" 0890 GRUPBEL$=GRUPEN$;LINIE=LINIE+G 0900 ENDIF 0910 LINIE=LINIE+E 0920 RESUL$=T$(NR,7:10) 0930 EXEC CALC(B,RESUL$,GRUPEN$,GRUPEN$) 0940 EXEC CALC(B,RESUL$,EN$,EN$) 0950 RESUL$=T$(NR,17:10) 0960 EXEC CALC(B,RESUL$,GRUPBEL$,GRUPBEL$) 0970 EXEC CALC(B,RESUL$,BE$,BE$) 0980 EXEC PV(T$(NR,16),T$(NR,26)) 0990 PRINT T$(NR,E:6),T$(NR,7:10),T$(NR,17:10) 1000 NR=G*NR+E 1010 EXEC TRAVERSE 1020 NR=NR DIV G 1030 ENDIF 1040 ENDIF 1050 ENDPROC 1060 PROC BINNEXT 1070 NR=NR*G+E 1080 IF NR>MAX THEN 1090 WHILE NR MOD G=E 1100 NR=NR DIV G 1110 ENDWHILE 1120 NR=NR DIV G 1130 ELSE 1140 WHILE NR<=MAX DIV G 1150 NR=NR*G 1160 ENDWHILE 1170 ENDIF 1180 ENDPROC 1190 PROC BINPREV 1200 NR=NR*G 1210 IF NR>MAX THEN 1220 WHILE NR MOD G=B 1230 NR=NR DIV G 1240 ENDWHILE 1250 NR=NR DIV G 1260 ELSE 1270 WHILE NR<MAX DIV G 1280 NR=NR*G+E 1290 ENDWHILE 1300 ENDIF 1310 ENDPROC 1320 PROC HEAD 1330 WHILE LINIE<72 AND LINIE>B 1340 PRINT 1350 LINIE=LINIE+E 1360 ENDWHILE 1370 SID=SID+E 1380 PRINT "Lønudgifter fordelt på entrepriser";TAB(55);"Side ";SID;TAB(67); 1390 PRINT "Dato ";DAD$ 1400 PRINT TAB(55);"Periode ";D1$;" - ";D2$ 1410 PRINT "Konto"," Enheder"," Beløb ";PCT$(V:W);" * Beløb" 1420 PRINT 1430 LINIE=4 1440 ENDPROC 1450 CLEAR 1460 INPUT "Periodestart ",D1$ 1470 INPUT "Periodeslut ",D2$ 1490 FIL$="P641220:VIRKKART" 1500 EXEC INDVIRK 1510 CLOSE FIL$ 1520 FIL1$="P641220:LØNMODRG" 1530 OPEN FIL1$,R 1540 FIL$="P641220:TRANSREG" 1550 OPEN FIL$,W 1560 EN$="0+" 1570 BE$=EN$ 1580 REPEAT 1590 PCT$="1,16" 1600 EDIT "Faktor ",PCT$ 1605 PCT$=PCT$+"+" 1610 EXEC CALC(6,PCT$,EN$,PCT$) 1620 UNTIL SI=B 1630 NRP=B 1640 LMNR=B 1650 EXEC NÆSTE 1660 WHILE LMNR<=MLMNR 1670 IT=(LMNR-E)*ATPLM+E 1680 GET FIL$,IT:P7$ 1690 IF P7$(E)="2" THEN 1700 P7$(E)="3" 1710 PUT FIL$,IT:P7$ 1720 WHILE P7$(V,4)<>"83" 1730 IF P7$(5:6)<>" " THEN 1740 RESUL$=P7$(11:10) 1750 EXEC CALC(B,EN$,RESUL$,EN$) 1760 RESUL$=P7$(28:10) 1770 EXEC CALC(B,BE$,RESUL$,BE$) 1780 EXEC FIND 1790 IF NR<=MAX THEN 1800 IF T$(NR,E:6)=P7$(5:6) THEN 1810 EXEC OPTÆL(NR) 1820 ELSE 1830 NRP=NRP+E 1840 T$(NR,E:6)=P7$(5:6) 1850 T$(NR,7:10)=P7$(11:10) 1860 T$(NR,17:10)=P7$(28:10) 1870 ENDIF 1880 ELSE 1890 IF NRP=MAX THEN 1900 EXEC OPTÆL(1+MAX) 1910 ELSE 1920 AO,AN=B 1930 NR=NR DIV G 1940 GNR=NR 1950 REPEAT 1960 AO=AO+E 1970 EXEC BINNEXT 1980 IF NR=B THEN EXIT 1990 UNTIL T$(NR,E:6)=" " 2000 IF NR>B THEN 2010 NR1=NR 2020 WHILE T$(NR1,E:6)=" " 2030 NR=NR1 2040 NR1=NR1 DIV G 2050 ENDWHILE 2060 ENDIF 2070 ONR=NR 2080 NR=GNR 2090 REPEAT 2100 AN=AN+E 2110 EXEC BINPREV 2120 IF NR=B THEN EXIT 2130 UNTIL T$(NR,E:6)=" " OR (AN=>AO AND ONR>B) 2140 IF NR>B THEN 2150 NR1=NR 2160 WHILE T$(NR1,E:6)=" " 2170 NR=NR1 2180 NR1=NR1 DIV G 2190 ENDWHILE 2200 ENDIF 2210 NNR=NR 2220 IF NNR=B THEN AN=AO 2230 IF AO<=AN AND ONR>B THEN 2240 IF P7$(5:6)>T$(GNR,E:6) THEN 2250 T$(ONR)=T$(GNR) 2260 T$(GNR,E:6)=P7$(5:6);T$(GNR,7:10)=P7$(11:10);T$(GNR,17:10)=P7$(28:10) 2270 P7$(5:6)=T$(ONR,E:6);P7$(11:10)=T$(ONR,7:10);P7$(28:10)=T$(ONR,17:10) 2280 ENDIF 2290 NR=ONR 2300 REPEAT 2310 REPEAT 2320 EXEC BINPREV 2330 UNTIL T$(NR,E:6)<>" " 2340 T$(ONR)=T$(NR) 2350 ONR=NR 2360 UNTIL GNR=NR 2370 T$(NR,E:6)=P7$(5:6);T$(NR,7:10)=P7$(11:10);T$(NR,17:10)=P7$(28:10) 2380 ELSE 2390 IF NNR=B THEN STOP 2400 IF P7$(5:6)<T$(GNR,E:6) THEN 2410 T$(NNR)=T$(GNR) 2420 T$(GNR,E:6)=P7$(5:6);T$(GNR,7:10)=P7$(11:10);T$(GNR,17:10)=P7$(28:10) 2430 P7$(5:6)=T$(NNR,E:6);P7$(11:10)=T$(NNR,7:10);P7$(28:10)=T$(NNR,17:10) 2440 ENDIF 2450 NR=NNR 2460 REPEAT 2470 REPEAT 2480 EXEC BINNEXT 2490 UNTIL T$(NR,E:6)<>" " 2500 T$(NNR)=T$(NR) 2510 NNR=NR 2520 UNTIL GNR=NR 2530 T$(NR,E:6)=P7$(5:6);T$(NR,7:10)=P7$(11:10);T$(NR,17:10)=P7$(28:10) 2540 ENDIF 2550 NRP=NRP+E 2560 NR=B 2570 ENDIF 2580 ENDIF 2590 ENDIF 2600 IF P7$(E)="2" THEN 2610 P7$(E)="3" 2620 PUT FIL$,IT:P7$ 2630 ENDIF 2640 IT=IT+E 2650 GET FIL$,IT:P7$ 2660 ENDWHILE 2670 ENDIF 2680 EXEC NÆSTE 2690 ENDWHILE 2700 OUTPUT P 2710 SID,LINIE=B 2720 EXEC HEAD 2730 NR=E;LINIE=LINIE+G 2740 PRINT "Totalt indlæst ";EN$(E,11),BE$(V,11) 2750 EN$="0+" 2760 BE$=EN$;GRUPEN$=EN$;GRUPBEL$=EN$;GRUPPE$=" " 2770 PRINT 2780 EXEC TRAVERSE 2782 EXEC CALC(G,PCT$,GRUPBEL$,RESUL$) 2784 IF RESUL$(12)="+" THEN RESUL$(12)=" " 2790 EXEC PV(GRUPEN$(12),GRUPBEL$(12)) 2800 PRINT "Total ";GRUPPE$,GRUPEN$(V:10),GRUPBEL$(V:10),RESUL$(V:10) 2810 PRINT 2820 LINIE=LINIE+V 2822 EXEC CALC(G,PCT$,BE$,RESUL$) 2824 IF RESUL$(12)="+" THEN RESUL$(12)=" " 2830 EXEC PV(EN$(12),BE$(12)) 2840 PRINT "Total",EN$(V:10),BE$(V:10),RESUL$(V:10) 2850 MAX=MAX+E 2860 IF T$(MAX,14)<>" " THEN 2870 EXEC PV(T$(MAX,16),T$(MAX,26)) 2880 PRINT "Ikke fordelt",T$(MAX,7:10),T$(MAX,17:10) 2890 ENDIF 2900 WHILE LINIE<72 AND LINIE>B 2910 PRINT 2920 LINIE=LINIE+E 2930 ENDWHILE 2940 OUTPUT T 2950 CHAIN "P641210:STARTB"
0x0000…001a Line {l1=0x18, l2=»0090 B=0;E=1;G=2;V=3;W=9«, l3=0x18}
0x001a…0031 Line {l1=0x15, l2=»0100 PROC INLØNMOD(N)«, l3=0x15}
0x0031…006b Line {l1=0x38, l2=»0110 GET FIL1$,G*N:P7$,C1,C2,LT,LF,LR,LA,RPI,K1,K2,FG,FD«, l3=0x38}
0x006b…0086 Line {l1=0x19, l2=»0120 EXEC FEJL(E,N,FIL1$)«, l3=0x19}
0x0086…0095 Line {l1=0x0d, l2=»0130 ENDPROC «, l3=0x0d}
0x0095…00a6 Line {l1=0x0f, l2=»0140 PROC NÆSTE«, l3=0x0f}
0x00a6…00b4 Line {l1=0x0c, l2=»0150 REPEAT «, l3=0x0c}
0x00b4…00c6 Line {l1=0x10, l2=»0160 LMNR=LMNR+E«, l3=0x10}
0x00c6…00d1 Line {l1=0x09, l2=»0170 LA=E«, l3=0x09}
0x00d1…00ff Line {l1=0x2c, l2=»0180 IF LMNR<=MLMNR THEN EXEC INLØNMOD(LMNR)«, l3=0x2c}
0x00ff…0110 Line {l1=0x0f, l2=»0190 UNTIL LA>B«, l3=0x0f}
0x0110…011f Line {l1=0x0d, l2=»0200 ENDPROC «, l3=0x0d}
0x011f…0144 Line {l1=0x23, l2=»0210 DIM RES$(15),OP1$(12),OP2$(12)«, l3=0x23}
0x0144…0161 Line {l1=0x1b, l2=»0220 DIM FIL1$(16),PCT$(12)«, l3=0x1b}
0x0161…0198 Line {l1=0x35, l2=»0230 DIM RESUL$(12),RESUL1$(12),D1$(6),D2$(6),DAD$(6)«, l3=0x35}
0x0198…01ab Line {l1=0x11, l2=»0240 DIM FIL$(16)«, l3=0x11}
0x01ab…01e9 Line {l1=0x3c, l2=»0250 DIM EN$(12),BE$(12),GRUPPE$(6),GRUPEN$(12),GRUPBEL$(12)«, l3=0x3c}
0x01e9…0207 Line {l1=0x1c, l2=»0260 PROC CALC(AR3,B1,B2,ES)«, l3=0x1c}
0x0207…0246 Line {l1=0x3d, l2=»0270 RES$=ES$;OP1$=B1$;OP2$=B2$;SI=B;FLAG=B;ART=AR3-6*(AR3>5)«, l3=0x3d}
0x0246…0260 Line {l1=0x18, l2=»0280 CALL "P641210:REGN"«, l3=0x18}
0x0260…0283 Line {l1=0x21, l2=»0290 IF AR3<6 AND FLAG THEN STOP «, l3=0x21}
0x0283…0292 Line {l1=0x0d, l2=»0300 ES$=RES$«, l3=0x0d}
0x0292…02a1 Line {l1=0x0d, l2=»0310 ENDPROC «, l3=0x0d}
0x02a1…02b4 Line {l1=0x11, l2=»0320 PROC INDVIRK«, l3=0x11}
0x02b4…02c6 Line {l1=0x10, l2=»0330 OPEN FIL$,W«, l3=0x10}
0x02c6…02e0 Line {l1=0x18, l2=»0340 EXEC FEJL(B,B,FIL$)«, l3=0x18}
0x02e0…0307 Line {l1=0x25, l2=»0350 GET FIL$,G:P7$,SLJNR,MLMNR,ATPLM«, l3=0x25}
0x0307…031d Line {l1=0x14, l2=»0355 GET FIL$,V:DAD$«, l3=0x14}
0x031d…032c Line {l1=0x0d, l2=»0360 ENDPROC «, l3=0x0d}
0x032c…0346 Line {l1=0x18, l2=»0370 PROC FEJL(P1,P2,P3)«, l3=0x18}
0x0346…0364 Line {l1=0x1c, l2=»0380 IF STATUS(P3$)<>B THEN «, l3=0x1c}
0x0364…0373 Line {l1=0x0d, l2=»0390 OUTPUT T«, l3=0x0d}
0x0373…03a1 Line {l1=0x2c, l2=»0400 PRINT "FIL-FEJL ";P3$;STATUS(P3$),P1;P2«, l3=0x2c}
0x03a1…03ad Line {l1=0x0a, l2=»0410 STOP «, l3=0x0a}
0x03ad…03ba Line {l1=0x0b, l2=»0420 ENDIF «, l3=0x0b}
0x03ba…03c9 Line {l1=0x0d, l2=»0430 ENDPROC «, l3=0x0d}
0x03c9…03dd Line {l1=0x12, l2=»0440 PROC OPTÆL(N)«, l3=0x12}
0x03dd…03f5 Line {l1=0x16, l2=»0450 RESUL$=P7$(11:10)«, l3=0x16}
0x03f5…040e Line {l1=0x17, l2=»0460 RESUL1$=T$(N,7:10)«, l3=0x17}
0x040e…0438 Line {l1=0x28, l2=»0470 EXEC CALC(B,RESUL$,RESUL1$,RESUL1$)«, l3=0x28}
0x0438…0457 Line {l1=0x1d, l2=»0480 T$(N,7:10)=RESUL1$(V:10)«, l3=0x1d}
0x0457…046f Line {l1=0x16, l2=»0490 RESUL$=P7$(28:10)«, l3=0x16}
0x046f…0489 Line {l1=0x18, l2=»0500 RESUL1$=T$(N,17:10)«, l3=0x18}
0x0489…04b3 Line {l1=0x28, l2=»0510 EXEC CALC(B,RESUL$,RESUL1$,RESUL1$)«, l3=0x28}
0x04b3…04d3 Line {l1=0x1e, l2=»0520 T$(N,17:10)=RESUL1$(V:10)«, l3=0x1e}
0x04d3…04e2 Line {l1=0x0d, l2=»0530 ENDPROC «, l3=0x0d}
0x04e2…04f5 Line {l1=0x11, l2=»0540 PROC PV(Å,Æ)«, l3=0x11}
0x04f5…0511 Line {l1=0x1a, l2=»0550 IF Å$="+" THEN Å$=" "«, l3=0x1a}
0x0511…052d Line {l1=0x1a, l2=»0560 IF Æ$="+" THEN Æ$=" "«, l3=0x1a}
0x052d…053c Line {l1=0x0d, l2=»0570 ENDPROC «, l3=0x0d}
0x053c…054a Line {l1=0x0c, l2=»0580 MAX=725«, l3=0x0c}
0x054a…0569 Line {l1=0x1d, l2=»0590 DIM T$(MAX+E,26),P7$(37)«, l3=0x1d}
0x0569…0580 Line {l1=0x15, l2=»0600 FOR I=E TO MAX+E«, l3=0x15}
0x0580…05a9 Line {l1=0x27, l2=»0610 T$(I)=" 0+ 0+"«, l3=0x27}
0x05a9…05b6 Line {l1=0x0b, l2=»0620 NEXT I«, l3=0x0b}
0x05b6…05c6 Line {l1=0x0e, l2=»0630 PROC FIND«, l3=0x0e}
0x05c6…05d1 Line {l1=0x09, l2=»0640 NR=E«, l3=0x09}
0x05d1…05f2 Line {l1=0x1f, l2=»0650 WHILE T$(NR,E:6)<>" "«, l3=0x1f}
0x05f2…061a Line {l1=0x26, l2=»0660 IF T$(NR,E:6)=P7$(5:6) THEN EXIT «, l3=0x26}
0x061a…063d Line {l1=0x21, l2=»0670 IF T$(NR,E:6)>P7$(5:6) THEN «, l3=0x21}
0x063d…064b Line {l1=0x0c, l2=»0680 NR=G*NR«, l3=0x0c}
0x064b…0657 Line {l1=0x0a, l2=»0690 ELSE «, l3=0x0a}
0x0657…0667 Line {l1=0x0e, l2=»0700 NR=G*NR+E«, l3=0x0e}
0x0667…0674 Line {l1=0x0b, l2=»0710 ENDIF «, l3=0x0b}
0x0674…068f Line {l1=0x19, l2=»0720 IF NR>MAX THEN EXIT «, l3=0x19}
0x068f…069f Line {l1=0x0e, l2=»0730 ENDWHILE «, l3=0x0e}
0x069f…06ae Line {l1=0x0d, l2=»0740 ENDPROC «, l3=0x0d}
0x06ae…06c2 Line {l1=0x12, l2=»0750 PROC TRAVERSE«, l3=0x12}
0x06c2…06d9 Line {l1=0x15, l2=»0760 IF NR<=MAX THEN «, l3=0x15}
0x06d9…06fd Line {l1=0x22, l2=»0770 IF T$(NR,E:6)<>" " THEN «, l3=0x22}
0x06fd…070b Line {l1=0x0c, l2=»0780 NR=G*NR«, l3=0x0c}
0x070b…071f Line {l1=0x12, l2=»0790 EXEC TRAVERSE«, l3=0x12}
0x071f…0731 Line {l1=0x10, l2=»0800 NR=NR DIV G«, l3=0x10}
0x0731…0763 Line {l1=0x30, l2=»0810 IF GRUPPE$=" " THEN GRUPPE$=T$(NR,E,5)«, l3=0x30}
0x0763…0784 Line {l1=0x1f, l2=»0820 IF LINIE>62 THEN EXEC HEAD«, l3=0x1f}
0x0784…07a7 Line {l1=0x21, l2=»0830 IF GRUPPE$<>T$(NR,E,5) THEN «, l3=0x21}
0x07a7…07cf Line {l1=0x26, l2=»0832 EXEC CALC(G,PCT$,GRUPBEL$,RESUL$)«, l3=0x26}
0x07cf…07fb Line {l1=0x2a, l2=»0834 IF RESUL$(12)="+" THEN RESUL$(12)=" "«, l3=0x2a}
0x07fb…0823 Line {l1=0x26, l2=»0840 EXEC PV(GRUPEN$(12),GRUPBEL$(12))«, l3=0x26}
0x0823…086a Line {l1=0x45, l2=»0850 PRINT "Total ";GRUPPE$,GRUPEN$(V:10),GRUPBEL$(V:10),RESUL$(V:10)«, l3=0x45}
0x086a…0877 Line {l1=0x0b, l2=»0860 PRINT «, l3=0x0b}
0x0877…0890 Line {l1=0x17, l2=»0870 GRUPPE$=T$(NR,E,5)«, l3=0x17}
0x0890…08a3 Line {l1=0x11, l2=»0880 GRUPEN$="0+"«, l3=0x11}
0x08a3…08c8 Line {l1=0x23, l2=»0890 GRUPBEL$=GRUPEN$;LINIE=LINIE+G«, l3=0x23}
0x08c8…08d5 Line {l1=0x0b, l2=»0900 ENDIF «, l3=0x0b}
0x08d5…08e9 Line {l1=0x12, l2=»0910 LINIE=LINIE+E«, l3=0x12}
0x08e9…0902 Line {l1=0x17, l2=»0920 RESUL$=T$(NR,7:10)«, l3=0x17}
0x0902…092c Line {l1=0x28, l2=»0930 EXEC CALC(B,RESUL$,GRUPEN$,GRUPEN$)«, l3=0x28}
0x092c…094e Line {l1=0x20, l2=»0940 EXEC CALC(B,RESUL$,EN$,EN$)«, l3=0x20}
0x094e…0968 Line {l1=0x18, l2=»0950 RESUL$=T$(NR,17:10)«, l3=0x18}
0x0968…0994 Line {l1=0x2a, l2=»0960 EXEC CALC(B,RESUL$,GRUPBEL$,GRUPBEL$)«, l3=0x2a}
0x0994…09b6 Line {l1=0x20, l2=»0970 EXEC CALC(B,RESUL$,BE$,BE$)«, l3=0x20}
0x09b6…09d9 Line {l1=0x21, l2=»0980 EXEC PV(T$(NR,16),T$(NR,26))«, l3=0x21}
0x09d9…0a09 Line {l1=0x2e, l2=»0990 PRINT T$(NR,E:6),T$(NR,7:10),T$(NR,17:10)«, l3=0x2e}
0x0a09…0a19 Line {l1=0x0e, l2=»1000 NR=G*NR+E«, l3=0x0e}
0x0a19…0a2d Line {l1=0x12, l2=»1010 EXEC TRAVERSE«, l3=0x12}
0x0a2d…0a3f Line {l1=0x10, l2=»1020 NR=NR DIV G«, l3=0x10}
0x0a3f…0a4c Line {l1=0x0b, l2=»1030 ENDIF «, l3=0x0b}
0x0a4c…0a59 Line {l1=0x0b, l2=»1040 ENDIF «, l3=0x0b}
0x0a59…0a68 Line {l1=0x0d, l2=»1050 ENDPROC «, l3=0x0d}
0x0a68…0a7b Line {l1=0x11, l2=»1060 PROC BINNEXT«, l3=0x11}
0x0a7b…0a8b Line {l1=0x0e, l2=»1070 NR=NR*G+E«, l3=0x0e}
0x0a8b…0aa1 Line {l1=0x14, l2=»1080 IF NR>MAX THEN «, l3=0x14}
0x0aa1…0ab8 Line {l1=0x15, l2=»1090 WHILE NR MOD G=E«, l3=0x15}
0x0ab8…0aca Line {l1=0x10, l2=»1100 NR=NR DIV G«, l3=0x10}
0x0aca…0ada Line {l1=0x0e, l2=»1110 ENDWHILE «, l3=0x0e}
0x0ada…0aec Line {l1=0x10, l2=»1120 NR=NR DIV G«, l3=0x10}
0x0aec…0af8 Line {l1=0x0a, l2=»1130 ELSE «, l3=0x0a}
0x0af8…0b12 Line {l1=0x18, l2=»1140 WHILE NR<=MAX DIV G«, l3=0x18}
0x0b12…0b20 Line {l1=0x0c, l2=»1150 NR=NR*G«, l3=0x0c}
0x0b20…0b30 Line {l1=0x0e, l2=»1160 ENDWHILE «, l3=0x0e}
0x0b30…0b3d Line {l1=0x0b, l2=»1170 ENDIF «, l3=0x0b}
0x0b3d…0b4c Line {l1=0x0d, l2=»1180 ENDPROC «, l3=0x0d}
0x0b4c…0b5f Line {l1=0x11, l2=»1190 PROC BINPREV«, l3=0x11}
0x0b5f…0b6d Line {l1=0x0c, l2=»1200 NR=NR*G«, l3=0x0c}
0x0b6d…0b83 Line {l1=0x14, l2=»1210 IF NR>MAX THEN «, l3=0x14}
0x0b83…0b9a Line {l1=0x15, l2=»1220 WHILE NR MOD G=B«, l3=0x15}
0x0b9a…0bac Line {l1=0x10, l2=»1230 NR=NR DIV G«, l3=0x10}
0x0bac…0bbc Line {l1=0x0e, l2=»1240 ENDWHILE «, l3=0x0e}
0x0bbc…0bce Line {l1=0x10, l2=»1250 NR=NR DIV G«, l3=0x10}
0x0bce…0bda Line {l1=0x0a, l2=»1260 ELSE «, l3=0x0a}
0x0bda…0bf3 Line {l1=0x17, l2=»1270 WHILE NR<MAX DIV G«, l3=0x17}
0x0bf3…0c03 Line {l1=0x0e, l2=»1280 NR=NR*G+E«, l3=0x0e}
0x0c03…0c13 Line {l1=0x0e, l2=»1290 ENDWHILE «, l3=0x0e}
0x0c13…0c20 Line {l1=0x0b, l2=»1300 ENDIF «, l3=0x0b}
0x0c20…0c2f Line {l1=0x0d, l2=»1310 ENDPROC «, l3=0x0d}
0x0c2f…0c3f Line {l1=0x0e, l2=»1320 PROC HEAD«, l3=0x0e}
0x0c3f…0c60 Line {l1=0x1f, l2=»1330 WHILE LINIE<72 AND LINIE>B«, l3=0x1f}
0x0c60…0c6d Line {l1=0x0b, l2=»1340 PRINT «, l3=0x0b}
0x0c6d…0c81 Line {l1=0x12, l2=»1350 LINIE=LINIE+E«, l3=0x12}
0x0c81…0c91 Line {l1=0x0e, l2=»1360 ENDWHILE «, l3=0x0e}
0x0c91…0ca1 Line {l1=0x0e, l2=»1370 SID=SID+E«, l3=0x0e}
0x0ca1…0cef Line {l1=0x4c, l2=»1380 PRINT "Lønudgifter fordelt på entrepriser";TAB(55);"Side ";SID;TAB(67);«, l3=0x4c}
0x0cef…0d08 Line {l1=0x17, l2=»1390 PRINT "Dato ";DAD$«, l3=0x17}
0x0d08…0d35 Line {l1=0x2b, l2=»1400 PRINT TAB(55);"Periode ";D1$;" - ";D2$«, l3=0x2b}
0x0d35…0d79 Line {l1=0x42, l2=»1410 PRINT "Konto"," Enheder"," Beløb ";PCT$(V:W);" * Beløb"«, l3=0x42}
0x0d79…0d86 Line {l1=0x0b, l2=»1420 PRINT «, l3=0x0b}
0x0d86…0d94 Line {l1=0x0c, l2=»1430 LINIE=4«, l3=0x0c}
0x0d94…0da3 Line {l1=0x0d, l2=»1440 ENDPROC «, l3=0x0d}
0x0da3…0db0 Line {l1=0x0b, l2=»1450 CLEAR «, l3=0x0b}
0x0db0…0dd0 Line {l1=0x1e, l2=»1460 INPUT "Periodestart ",D1$«, l3=0x1e}
0x0dd0…0df0 Line {l1=0x1e, l2=»1470 INPUT "Periodeslut ",D2$«, l3=0x1e}
0x0df0…0e0e Line {l1=0x1c, l2=»1490 FIL$="P641220:VIRKKART"«, l3=0x1c}
0x0e0e…0e21 Line {l1=0x11, l2=»1500 EXEC INDVIRK«, l3=0x11}
0x0e21…0e32 Line {l1=0x0f, l2=»1510 CLOSE FIL$«, l3=0x0f}
0x0e32…0e51 Line {l1=0x1d, l2=»1520 FIL1$="P641220:LØNMODRG"«, l3=0x1d}
0x0e51…0e64 Line {l1=0x11, l2=»1530 OPEN FIL1$,R«, l3=0x11}
0x0e64…0e82 Line {l1=0x1c, l2=»1540 FIL$="P641220:TRANSREG"«, l3=0x1c}
0x0e82…0e94 Line {l1=0x10, l2=»1550 OPEN FIL$,W«, l3=0x10}
0x0e94…0ea3 Line {l1=0x0d, l2=»1560 EN$="0+"«, l3=0x0d}
0x0ea3…0eb1 Line {l1=0x0c, l2=»1570 BE$=EN$«, l3=0x0c}
0x0eb1…0ebf Line {l1=0x0c, l2=»1580 REPEAT «, l3=0x0c}
0x0ebf…0ed1 Line {l1=0x10, l2=»1590 PCT$="1,16"«, l3=0x10}
0x0ed1…0eeb Line {l1=0x18, l2=»1600 EDIT "Faktor ",PCT$«, l3=0x18}
0x0eeb…0eff Line {l1=0x12, l2=»1605 PCT$=PCT$+"+"«, l3=0x12}
0x0eff…0f20 Line {l1=0x1f, l2=»1610 EXEC CALC(6,PCT$,EN$,PCT$)«, l3=0x1f}
0x0f20…0f31 Line {l1=0x0f, l2=»1620 UNTIL SI=B«, l3=0x0f}
0x0f31…0f3d Line {l1=0x0a, l2=»1630 NRP=B«, l3=0x0a}
0x0f3d…0f4a Line {l1=0x0b, l2=»1640 LMNR=B«, l3=0x0b}
0x0f4a…0f5b Line {l1=0x0f, l2=»1650 EXEC NÆSTE«, l3=0x0f}
0x0f5b…0f73 Line {l1=0x16, l2=»1660 WHILE LMNR<=MLMNR«, l3=0x16}
0x0f73…0f8d Line {l1=0x18, l2=»1670 IT=(LMNR-E)*ATPLM+E«, l3=0x18}
0x0f8d…0fa3 Line {l1=0x14, l2=»1680 GET FIL$,IT:P7$«, l3=0x14}
0x0fa3…0fbd Line {l1=0x18, l2=»1690 IF P7$(E)="2" THEN «, l3=0x18}
0x0fbd…0fce Line {l1=0x0f, l2=»1700 P7$(E)="3"«, l3=0x0f}
0x0fce…0fe4 Line {l1=0x14, l2=»1710 PUT FIL$,IT:P7$«, l3=0x14}
0x0fe4…0fff Line {l1=0x19, l2=»1720 WHILE P7$(V,4)<>"83"«, l3=0x19}
0x0fff…1021 Line {l1=0x20, l2=»1730 IF P7$(5:6)<>" " THEN «, l3=0x20}
0x1021…1039 Line {l1=0x16, l2=»1740 RESUL$=P7$(11:10)«, l3=0x16}
0x1039…105b Line {l1=0x20, l2=»1750 EXEC CALC(B,EN$,RESUL$,EN$)«, l3=0x20}
0x105b…1073 Line {l1=0x16, l2=»1760 RESUL$=P7$(28:10)«, l3=0x16}
0x1073…1095 Line {l1=0x20, l2=»1770 EXEC CALC(B,BE$,RESUL$,BE$)«, l3=0x20}
0x1095…10a5 Line {l1=0x0e, l2=»1780 EXEC FIND«, l3=0x0e}
0x10a5…10bc Line {l1=0x15, l2=»1790 IF NR<=MAX THEN «, l3=0x15}
0x10bc…10df Line {l1=0x21, l2=»1800 IF T$(NR,E:6)=P7$(5:6) THEN «, l3=0x21}
0x10df…10f4 Line {l1=0x13, l2=»1810 EXEC OPTÆL(NR)«, l3=0x13}
0x10f4…1100 Line {l1=0x0a, l2=»1820 ELSE «, l3=0x0a}
0x1100…1110 Line {l1=0x0e, l2=»1830 NRP=NRP+E«, l3=0x0e}
0x1110…112a Line {l1=0x18, l2=»1840 T$(NR,E:6)=P7$(5:6)«, l3=0x18}
0x112a…1147 Line {l1=0x1b, l2=»1850 T$(NR,7:10)=P7$(11:10)«, l3=0x1b}
0x1147…1165 Line {l1=0x1c, l2=»1860 T$(NR,17:10)=P7$(28:10)«, l3=0x1c}
0x1165…1172 Line {l1=0x0b, l2=»1870 ENDIF «, l3=0x0b}
0x1172…117e Line {l1=0x0a, l2=»1880 ELSE «, l3=0x0a}
0x117e…1195 Line {l1=0x15, l2=»1890 IF NRP=MAX THEN «, l3=0x15}
0x1195…11ad Line {l1=0x16, l2=»1900 EXEC OPTÆL(1+MAX)«, l3=0x16}
0x11ad…11b9 Line {l1=0x0a, l2=»1910 ELSE «, l3=0x0a}
0x11b9…11c7 Line {l1=0x0c, l2=»1920 AO,AN=B«, l3=0x0c}
0x11c7…11d9 Line {l1=0x10, l2=»1930 NR=NR DIV G«, l3=0x10}
0x11d9…11e6 Line {l1=0x0b, l2=»1940 GNR=NR«, l3=0x0b}
0x11e6…11f4 Line {l1=0x0c, l2=»1950 REPEAT «, l3=0x0c}
0x11f4…1202 Line {l1=0x0c, l2=»1960 AO=AO+E«, l3=0x0c}
0x1202…1215 Line {l1=0x11, l2=»1970 EXEC BINNEXT«, l3=0x11}
0x1215…122e Line {l1=0x17, l2=»1980 IF NR=B THEN EXIT «, l3=0x17}
0x122e…124e Line {l1=0x1e, l2=»1990 UNTIL T$(NR,E:6)=" "«, l3=0x1e}
0x124e…1262 Line {l1=0x12, l2=»2000 IF NR>B THEN «, l3=0x12}
0x1262…126f Line {l1=0x0b, l2=»2010 NR1=NR«, l3=0x0b}
0x126f…1290 Line {l1=0x1f, l2=»2020 WHILE T$(NR1,E:6)=" "«, l3=0x1f}
0x1290…129d Line {l1=0x0b, l2=»2030 NR=NR1«, l3=0x0b}
0x129d…12b1 Line {l1=0x12, l2=»2040 NR1=NR1 DIV G«, l3=0x12}
0x12b1…12c1 Line {l1=0x0e, l2=»2050 ENDWHILE «, l3=0x0e}
0x12c1…12ce Line {l1=0x0b, l2=»2060 ENDIF «, l3=0x0b}
0x12ce…12db Line {l1=0x0b, l2=»2070 ONR=NR«, l3=0x0b}
0x12db…12e8 Line {l1=0x0b, l2=»2080 NR=GNR«, l3=0x0b}
0x12e8…12f6 Line {l1=0x0c, l2=»2090 REPEAT «, l3=0x0c}
0x12f6…1304 Line {l1=0x0c, l2=»2100 AN=AN+E«, l3=0x0c}
0x1304…1317 Line {l1=0x11, l2=»2110 EXEC BINPREV«, l3=0x11}
0x1317…1330 Line {l1=0x17, l2=»2120 IF NR=B THEN EXIT «, l3=0x17}
0x1330…1366 Line {l1=0x34, l2=»2130 UNTIL T$(NR,E:6)=" " OR (AN=>AO AND ONR>B)«, l3=0x34}
0x1366…137a Line {l1=0x12, l2=»2140 IF NR>B THEN «, l3=0x12}
0x137a…1387 Line {l1=0x0b, l2=»2150 NR1=NR«, l3=0x0b}
0x1387…13a8 Line {l1=0x1f, l2=»2160 WHILE T$(NR1,E:6)=" "«, l3=0x1f}
0x13a8…13b5 Line {l1=0x0b, l2=»2170 NR=NR1«, l3=0x0b}
0x13b5…13c9 Line {l1=0x12, l2=»2180 NR1=NR1 DIV G«, l3=0x12}
0x13c9…13d9 Line {l1=0x0e, l2=»2190 ENDWHILE «, l3=0x0e}
0x13d9…13e6 Line {l1=0x0b, l2=»2200 ENDIF «, l3=0x0b}
0x13e6…13f3 Line {l1=0x0b, l2=»2210 NNR=NR«, l3=0x0b}
0x13f3…140d Line {l1=0x18, l2=»2220 IF NNR=B THEN AN=AO«, l3=0x18}
0x140d…142d Line {l1=0x1e, l2=»2230 IF AO<=AN AND ONR>B THEN «, l3=0x1e}
0x142d…1451 Line {l1=0x22, l2=»2240 IF P7$(5:6)>T$(GNR,E:6) THEN «, l3=0x22}
0x1451…1467 Line {l1=0x14, l2=»2250 T$(ONR)=T$(GNR)«, l3=0x14}
0x1467…14b3 Line {l1=0x4a, l2=»2260 T$(GNR,E:6)=P7$(5:6);T$(GNR,7:10)=P7$(11:10);T$(GNR,17:10)=P7$(28:10)«, l3=0x4a}
0x14b3…14ff Line {l1=0x4a, l2=»2270 P7$(5:6)=T$(ONR,E:6);P7$(11:10)=T$(ONR,7:10);P7$(28:10)=T$(ONR,17:10)«, l3=0x4a}
0x14ff…150c Line {l1=0x0b, l2=»2280 ENDIF «, l3=0x0b}
0x150c…1519 Line {l1=0x0b, l2=»2290 NR=ONR«, l3=0x0b}
0x1519…1527 Line {l1=0x0c, l2=»2300 REPEAT «, l3=0x0c}
0x1527…1535 Line {l1=0x0c, l2=»2310 REPEAT «, l3=0x0c}
0x1535…1548 Line {l1=0x11, l2=»2320 EXEC BINPREV«, l3=0x11}
0x1548…1569 Line {l1=0x1f, l2=»2330 UNTIL T$(NR,E:6)<>" "«, l3=0x1f}
0x1569…157e Line {l1=0x13, l2=»2340 T$(ONR)=T$(NR)«, l3=0x13}
0x157e…158b Line {l1=0x0b, l2=»2350 ONR=NR«, l3=0x0b}
0x158b…159e Line {l1=0x11, l2=»2360 UNTIL GNR=NR«, l3=0x11}
0x159e…15e7 Line {l1=0x47, l2=»2370 T$(NR,E:6)=P7$(5:6);T$(NR,7:10)=P7$(11:10);T$(NR,17:10)=P7$(28:10)«, l3=0x47}
0x15e7…15f3 Line {l1=0x0a, l2=»2380 ELSE «, l3=0x0a}
0x15f3…160d Line {l1=0x18, l2=»2390 IF NNR=B THEN STOP «, l3=0x18}
0x160d…1631 Line {l1=0x22, l2=»2400 IF P7$(5:6)<T$(GNR,E:6) THEN «, l3=0x22}
0x1631…1647 Line {l1=0x14, l2=»2410 T$(NNR)=T$(GNR)«, l3=0x14}
0x1647…1693 Line {l1=0x4a, l2=»2420 T$(GNR,E:6)=P7$(5:6);T$(GNR,7:10)=P7$(11:10);T$(GNR,17:10)=P7$(28:10)«, l3=0x4a}
0x1693…16df Line {l1=0x4a, l2=»2430 P7$(5:6)=T$(NNR,E:6);P7$(11:10)=T$(NNR,7:10);P7$(28:10)=T$(NNR,17:10)«, l3=0x4a}
0x16df…16ec Line {l1=0x0b, l2=»2440 ENDIF «, l3=0x0b}
0x16ec…16f9 Line {l1=0x0b, l2=»2450 NR=NNR«, l3=0x0b}
0x16f9…1707 Line {l1=0x0c, l2=»2460 REPEAT «, l3=0x0c}
0x1707…1715 Line {l1=0x0c, l2=»2470 REPEAT «, l3=0x0c}
0x1715…1728 Line {l1=0x11, l2=»2480 EXEC BINNEXT«, l3=0x11}
0x1728…1749 Line {l1=0x1f, l2=»2490 UNTIL T$(NR,E:6)<>" "«, l3=0x1f}
0x1749…175e Line {l1=0x13, l2=»2500 T$(NNR)=T$(NR)«, l3=0x13}
0x175e…176b Line {l1=0x0b, l2=»2510 NNR=NR«, l3=0x0b}
0x176b…177e Line {l1=0x11, l2=»2520 UNTIL GNR=NR«, l3=0x11}
0x177e…17c7 Line {l1=0x47, l2=»2530 T$(NR,E:6)=P7$(5:6);T$(NR,7:10)=P7$(11:10);T$(NR,17:10)=P7$(28:10)«, l3=0x47}
0x17c7…17d4 Line {l1=0x0b, l2=»2540 ENDIF «, l3=0x0b}
0x17d4…17e4 Line {l1=0x0e, l2=»2550 NRP=NRP+E«, l3=0x0e}
0x17e4…17ef Line {l1=0x09, l2=»2560 NR=B«, l3=0x09}
0x17ef…17fc Line {l1=0x0b, l2=»2570 ENDIF «, l3=0x0b}
0x17fc…1809 Line {l1=0x0b, l2=»2580 ENDIF «, l3=0x0b}
0x1809…1816 Line {l1=0x0b, l2=»2590 ENDIF «, l3=0x0b}
0x1816…1830 Line {l1=0x18, l2=»2600 IF P7$(E)="2" THEN «, l3=0x18}
0x1830…1841 Line {l1=0x0f, l2=»2610 P7$(E)="3"«, l3=0x0f}
0x1841…1857 Line {l1=0x14, l2=»2620 PUT FIL$,IT:P7$«, l3=0x14}
0x1857…1864 Line {l1=0x0b, l2=»2630 ENDIF «, l3=0x0b}
0x1864…1872 Line {l1=0x0c, l2=»2640 IT=IT+E«, l3=0x0c}
0x1872…1888 Line {l1=0x14, l2=»2650 GET FIL$,IT:P7$«, l3=0x14}
0x1888…1898 Line {l1=0x0e, l2=»2660 ENDWHILE «, l3=0x0e}
0x1898…18a5 Line {l1=0x0b, l2=»2670 ENDIF «, l3=0x0b}
0x18a5…18b6 Line {l1=0x0f, l2=»2680 EXEC NÆSTE«, l3=0x0f}
0x18b6…18c6 Line {l1=0x0e, l2=»2690 ENDWHILE «, l3=0x0e}
0x18c6…18d5 Line {l1=0x0d, l2=»2700 OUTPUT P«, l3=0x0d}
0x18d5…18e7 Line {l1=0x10, l2=»2710 SID,LINIE=B«, l3=0x10}
0x18e7…18f7 Line {l1=0x0e, l2=»2720 EXEC HEAD«, l3=0x0e}
0x18f7…1910 Line {l1=0x17, l2=»2730 NR=E;LINIE=LINIE+G«, l3=0x17}
0x1910…1945 Line {l1=0x33, l2=»2740 PRINT "Totalt indlæst ";EN$(E,11),BE$(V,11)«, l3=0x33}
0x1945…1954 Line {l1=0x0d, l2=»2750 EN$="0+"«, l3=0x0d}
0x1954…198c Line {l1=0x36, l2=»2760 BE$=EN$;GRUPEN$=EN$;GRUPBEL$=EN$;GRUPPE$=" "«, l3=0x36}
0x198c…1999 Line {l1=0x0b, l2=»2770 PRINT «, l3=0x0b}
0x1999…19ad Line {l1=0x12, l2=»2780 EXEC TRAVERSE«, l3=0x12}
0x19ad…19d5 Line {l1=0x26, l2=»2782 EXEC CALC(G,PCT$,GRUPBEL$,RESUL$)«, l3=0x26}
0x19d5…1a01 Line {l1=0x2a, l2=»2784 IF RESUL$(12)="+" THEN RESUL$(12)=" "«, l3=0x2a}
0x1a01…1a29 Line {l1=0x26, l2=»2790 EXEC PV(GRUPEN$(12),GRUPBEL$(12))«, l3=0x26}
0x1a29…1a70 Line {l1=0x45, l2=»2800 PRINT "Total ";GRUPPE$,GRUPEN$(V:10),GRUPBEL$(V:10),RESUL$(V:10)«, l3=0x45}
0x1a70…1a7d Line {l1=0x0b, l2=»2810 PRINT «, l3=0x0b}
0x1a7d…1a91 Line {l1=0x12, l2=»2820 LINIE=LINIE+V«, l3=0x12}
0x1a91…1ab4 Line {l1=0x21, l2=»2822 EXEC CALC(G,PCT$,BE$,RESUL$)«, l3=0x21}
0x1ab4…1ae0 Line {l1=0x2a, l2=»2824 IF RESUL$(12)="+" THEN RESUL$(12)=" "«, l3=0x2a}
0x1ae0…1aff Line {l1=0x1d, l2=»2830 EXEC PV(EN$(12),BE$(12))«, l3=0x1d}
0x1aff…1b34 Line {l1=0x33, l2=»2840 PRINT "Total",EN$(V:10),BE$(V:10),RESUL$(V:10)«, l3=0x33}
0x1b34…1b44 Line {l1=0x0e, l2=»2850 MAX=MAX+E«, l3=0x0e}
0x1b44…1b63 Line {l1=0x1d, l2=»2860 IF T$(MAX,14)<>" " THEN «, l3=0x1d}
0x1b63…1b88 Line {l1=0x23, l2=»2870 EXEC PV(T$(MAX,16),T$(MAX,26))«, l3=0x23}
0x1b88…1bbe Line {l1=0x34, l2=»2880 PRINT "Ikke fordelt",T$(MAX,7:10),T$(MAX,17:10)«, l3=0x34}
0x1bbe…1bcb Line {l1=0x0b, l2=»2890 ENDIF «, l3=0x0b}
0x1bcb…1bec Line {l1=0x1f, l2=»2900 WHILE LINIE<72 AND LINIE>B«, l3=0x1f}
0x1bec…1bf9 Line {l1=0x0b, l2=»2910 PRINT «, l3=0x0b}
0x1bf9…1c0d Line {l1=0x12, l2=»2920 LINIE=LINIE+E«, l3=0x12}
0x1c0d…1c1d Line {l1=0x0e, l2=»2930 ENDWHILE «, l3=0x0e}
0x1c1d…1c2c Line {l1=0x0d, l2=»2940 OUTPUT T«, l3=0x0d}
0x1c2c…1c49 Line {l1=0x1b, l2=»2950 CHAIN "P641210:STARTB"«, l3=0x1b}
0x1c49…1c60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x1c60…1c80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x9…]