|
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: 12640 (0x3160)
Types: TextFile
Notes: Mikados_K
Names: »AKKHVEDL.K«
└─⟦385f097a1⟧ Bits:30008988 SPC/1 COMAL programmer til bogføring
└─⟦this⟧ »AKKHVEDL.K«
0100DIM AKK$(49),NR$(606),Å(100),M(30),FIL8$(20),FIL9$(20),AKKNR$(6) 0110DIM RES$(15),OP1$(12),OP2$(12),RESUL$(12),TAH$(12),B3$(12),DAD$(6) 0120PROC CALC(AR3,B1,B2,ES) 0130RES$=ES$;OP1$=B1$;OP2$=B2$;SI=B;FLAG=B;ART=AR3-6*(AR3>5) 0140CALL "P641210:REGN" 0150IF AR3<6 THEN 0160IF FLAG THEN STOP 0170ENDIF 0180ES$=RES$ 0190ENDPROC 0191DIM FIL$(20) 0192FIL$="P641220:VIRKKART" 0193OPEN FIL$,R 0194EXEC FEJL(B,B,FIL$) 0195GET FIL$,V:DAD$ 0196CLOSE FIL$ 0198B3$=" 0+" 0199TI=10;EL=11 0200PROC Æ(I1,I2) 0205I1$=B3$ 0210IF I2<>B THEN 0215I1$(W,TI)=",0";I0=ABS(I2);K0=INT((I0-INT(I0))*100+0.50001) 0220IF I2<B THEN I1$(12)="-" 0225FOR I=EL TO E STEP -E 0230IF I<>W THEN 0235I1$(I)=CHR(K0 MOD TI+48) 0240K0=K0 DIV TI 0245IF K0=B AND I<TI THEN I=B 0250ELSE 0255K0=INT(I0) 0260ENDIF 0265NEXT I 0270ENDIF 0275ENDPROC 0300PROC INDAKK 0310L=E;U=MAX 0320IF U>B THEN 0330REPEAT 0340PEG=(L+U) DIV G 0350IF AKKNR$>NR$((PEG-E)*6+E:6) THEN 0360L=PEG+E 0370ELSE 0380U=PEG-E 0390ENDIF 0400UNTIL L>U OR AKKNR$=NR$((PEG-E)*6+E:6) 0410ENDIF 0420L=U+E 0430IF NR$((L-E)*6+E:6)=AKKNR$ THEN 0440FOUND=E 0450PEG=Å(L) 0460GET FIL8$,PEG:AKK$(E,27),TTIMER,RTIMER 0470GET FIL8$,PEG+E:AKK$(28,49),M(E),M(G),M(V) 0480GET FIL8$,PEG+G:M(4),M(5),M(6),M(7),M(8),M(W),M(10),M(11),M(12) 0490GET FIL8$,PEG+V:M(13),M(14),M(15),M(16),M(17),M(18),M(19),M(20),M(21) 0500GET FIL8$,PEG+4:M(22),M(23),M(24),M(25),M(26),M(27),M(28),M(29),M(30) 0510EXEC FEJL(B,PEG,FIL8$) 0520IF AKK$(E,6)<>AKKNR$ THEN FOUND=-E 0530ELSE 0540FOUND=B 0550ENDIF 0560ENDPROC 0570PROC UDAKK 0580PUT FIL8$,PEG:AKK$(E,27),TTIMER,RTIMER 0590PUT FIL8$,PEG+E:AKK$(28,49),M(E),M(G),M(V) 0600PUT FIL8$,PEG+G:M(4),M(5),M(6),M(7),M(8),M(W),M(10),M(11),M(12) 0610PUT FIL8$,PEG+V:M(13),M(14),M(15),M(16),M(17),M(18),M(19),M(20),M(21) 0620PUT FIL8$,PEG+4:M(22),M(23),M(24),M(25),M(26),M(27),M(28),M(29),M(30) 0630EXEC FEJL(E,PEG,FIL8$) 0640ENDPROC 0650PROC INDSÆT 0660FOUND=B 0670U=MAX+E 0680IF U<101 THEN 0690FOUND=E;MAX=U 0700GN=Å(U) 0710PEG=U 0720WHILE PEG>L DO 0730Å(PEG)=Å(PEG-E) 0740NR$((PEG-E)*6+E:6)=NR$((PEG-G)*6+E:6) 0750PEG=PEG-E 0760ENDWHILE 0770Å(L)=GN 0780NR$((L-E)*6+E:6)=AKKNR$ 0790PEG=GN 0800EXEC UDAKK 0810ENDIF 0820ENDPROC 0830PROC SLET 0840GN=Å(L) 0850WHILE L<MAX DO 0860NR$((L-E)*6+E:6)=NR$(L*6+E:6) 0870Å(L)=Å(L+E) 0880L=L+E 0890ENDWHILE 0900NR$((L-E)*6+E:6)=" " 0910Å(L)=GN 0920MAX=MAX-E 0930ENDPROC 0940PROC INDTABEL 0950FIL9$="P641220:AKKTABEL" 0960OPEN FIL9$,R 0970EXEC FEJL(B,B,FIL9$) 0980FOR I=E TO 10 0990GET FIL9$:NR$((I-E)*60+E:60) 1000NEXT I 1010GET FIL9$:Å(E),Å(G),Å(V),Å(4),Å(5),Å(6),Å(7),Å(8),Å(W),Å(10) 1020GET FIL9$:Å(11),Å(12),Å(13),Å(14),Å(15),Å(16),Å(17),Å(18),Å(19),Å(20) 1030GET FIL9$:Å(21),Å(22),Å(23),Å(24),Å(25),Å(26),Å(27),Å(28),Å(29),Å(30) 1040GET FIL9$:Å(31),Å(32),Å(33),Å(34),Å(35),Å(36),Å(37),Å(38),Å(39),Å(40) 1050GET FIL9$:Å(41),Å(42),Å(43),Å(44),Å(45),Å(46),Å(47),Å(48),Å(49),Å(50) 1060GET FIL9$:Å(51),Å(52),Å(53),Å(54),Å(55),Å(56),Å(57),Å(58),Å(59),Å(60) 1070GET FIL9$:Å(61),Å(62),Å(63),Å(64),Å(65),Å(66),Å(67),Å(68),Å(69),Å(70) 1080GET FIL9$:Å(71),Å(72),Å(73),Å(74),Å(75),Å(76),Å(77),Å(78),Å(79),Å(80) 1090GET FIL9$:Å(81),Å(82),Å(83),Å(84),Å(85),Å(86),Å(87),Å(88),Å(89),Å(90) 1100GET FIL9$:Å(91),Å(92),Å(93),Å(94),Å(95),Å(96),Å(97),Å(98),Å(99),Å(100) 1110EXEC FEJL(E,B,FIL9$) 1120FOR I=B TO 99 1130IF NR$(I*6+E:6)=" " THEN 1140MAX=I;I=100 1150ENDIF 1160NEXT I 1170CLOSE FIL9$ 1180ENDPROC 1190PROC UDTABEL 1200OPEN FIL9$,W 1210EXEC FEJL(G,B,FIL9$) 1220FOR I=E TO 10 1230PUT FIL9$:NR$((I-E)*60+E:60) 1240NEXT I 1250PUT FIL9$:Å(E),Å(G),Å(V),Å(4),Å(5),Å(6),Å(7),Å(8),Å(W),Å(10) 1260PUT FIL9$:Å(11),Å(12),Å(13),Å(14),Å(15),Å(16),Å(17),Å(18),Å(19),Å(20) 1270PUT FIL9$:Å(21),Å(22),Å(23),Å(24),Å(25),Å(26),Å(27),Å(28),Å(29),Å(30) 1280PUT FIL9$:Å(31),Å(32),Å(33),Å(34),Å(35),Å(36),Å(37),Å(38),Å(39),Å(40) 1290PUT FIL9$:Å(41),Å(42),Å(43),Å(44),Å(45),Å(46),Å(47),Å(48),Å(49),Å(50) 1300PUT FIL9$:Å(51),Å(52),Å(53),Å(54),Å(55),Å(56),Å(57),Å(58),Å(59),Å(60) 1310PUT FIL9$:Å(61),Å(62),Å(63),Å(64),Å(65),Å(66),Å(67),Å(68),Å(69),Å(70) 1320PUT FIL9$:Å(71),Å(72),Å(73),Å(74),Å(75),Å(76),Å(77),Å(78),Å(79),Å(80) 1330PUT FIL9$:Å(81),Å(82),Å(83),Å(84),Å(85),Å(86),Å(87),Å(88),Å(89),Å(90) 1340PUT FIL9$:Å(91),Å(92),Å(93),Å(94),Å(95),Å(96),Å(97),Å(98),Å(99),Å(100) 1350ENDPROC 1360PROC CHECK(NR1,OK1) 1370OK1=B 1380RESULT=B 1390IF LEN(NR1$)>B THEN 1400IF NR1$(E)="-" THEN 1410FORTEGN=-E 1420OK1=E 1430ELSE 1440FORTEGN=E 1450ENDIF 1460WHILE LEN(NR1$)>OK1 1470OK1=OK1+E 1480IF NR1$(OK1)<"0" OR NR1$(OK1)>"9" THEN 1490FORTEGN=B 1500OK1=LEN(NR1$) 1510ENDIF 1520RESULT=RESULT*10+ORD(NR1$(OK1))-48 1530ENDWHILE 1540OK1=OK1*FORTEGN 1550IF OK1<B THEN OK1=OK1+E 1560ENDIF 1570ENDPROC 1580PROC INOPL(OPL) 1590EXEC INLINE(OPL) 1600CASE OPL OF 1610WHEN E 1620AKK$(E,6)=LINE$ 1630WHEN G 1640AKK$(7,27)=LINE$ 1650WHEN V 1660WHILE RESULT<E 1670EXEC INLINE(OPL) 1680ENDWHILE 1690RTIMER=RESULT 1700WHEN 4 1710REPEAT 1720LINE$=LINE$+"+" 1730EXEC CALC(6,LINE$,TAH$,RESUL$) 1740IF FLAG<>B THEN EXEC INLINE(OPL) 1750UNTIL FLAG=B 1760AKK$(39,49)=RESUL$(G:11) 1770ENDCASE 1780ENDPROC 1790PROC SKRIVOPL 1800IF OUTP=B THEN 1810CLEAR 1820ELSE 1830PRINT 1840PRINT 1850PRINT 1860ENDIF 1870LINES=4 1880PRINT "A K K O R D - H O V E D E R";TAB(60);"Dato ";DAD$ 1890FOR J=E TO A 1900CASE J OF 1910WHEN E 1920LINE$=" "+AKK$(E,6) 1930WHEN G 1940LINE$=AKK$(7,27) 1950WHEN V 1960EXEC Æ(LINE$,RTIMER) 1965IF LINE$(12)="+" THEN LINE$(12)=" " 1970WHEN 4 1980LINE$=" "+AKK$(39,49) 1990IF LINE$(12)="+" THEN LINE$(12)=" " 2000WHEN 5 2010EXEC Æ(LINE$,TTIMER) 2015IF LINE$(12)="+" THEN LINE$(12)=" " 2020WHEN 6 2030LINE$=" "+AKK$(28,38) 2040IF LINE$(12)="+" THEN LINE$(12)=" " 2050ENDCASE 2060LINES=LINES+E 2070IF OUTP=B THEN 2080EXEC OUTLINE(J) 2090ELSE 2100EXEC OUTPLINE(J) 2110ENDIF 2120NEXT J 2130PRINT 2140PRINT "Medarbejdere på akkorden" 2150LINES=LINES+V 2160ANTPR=B 2170FOR J=E TO 30 2180IF M(J)<>B THEN 2190ANTPR=ANTPR+E 2200IF ANTPR MOD 6=B THEN 2210PRINT 2220LINES=LINES+E 2230ENDIF 2240PRINT M(J), 2250ENDIF 2260NEXT J 2270PRINT 2280ENDPROC 2290PROC OUTLINE(N) 2300CURSOR X(N),Y(N) 2310PRINT USING "### ":N; 2320PRINT PICT$(N);":";TAB(25);LINE$ 2330ENDPROC 2340PROC FEJL(P1,P2,P3) 2350IF STATUS(P3$)<>B THEN 2360OUTPUT T 2370PRINT "FIL-FEJL ";P3$;STATUS(P3$),P1;P2 2380STOP 2390ENDIF 2400ENDPROC 2410PROC INLINE(N) 2420REPEAT 2430CURSOR 25,Y(N) 2440PRINT BL$(E:ABS(TYPE(N))+6) 2450CURSOR X(N),Y(N) 2460PRINT USING "### ":N; 2470PRINT PICT$(N);":"; 2480CURSOR 25,Y(N) 2490INPUT "",LINE$ 2500IF TYPE(N)<B THEN 2510IF LEN(LINE$)<=ABS(TYPE(N)) THEN 2520OK=E 2530FOR I=LEN(LINE$)+E TO ABS(TYPE(N)) 2540LINE$(I)=" " 2550NEXT I 2560ELSE 2570OK=B 2580ENDIF 2590ELSE 2600EXEC CHECK(LINE$,OK) 2610IF TYPE(N)>B AND TYPE(N)<>OK THEN OK=B 2620ENDIF 2630UNTIL OK<>B 2640ENDPROC 2650PROC SKRIVPICT 2660CLEAR 2670PRINT "A K K O R D - H O V E D E R" 2680FOR I=E TO A 2690CURSOR X(I),Y(I) 2700PRINT " "; 2710PRINT PICT$(I);":" 2720NEXT I 2730ENDPROC 2740PROC OUTPLINE(N) 2750PRINT TAB(X(N)); 2760PRINT USING "### ":N; 2770PRINT PICT$(N);":";TAB(25);LINE$ 2780ENDPROC 2790A=6 2800DIM X(A),Y(A),PICT$(A,20),TYPE(A) 2810DIM BL$(79),LINE$(30) 2820TAH$=" 0+" 2830FOR I=E TO 79 2840BL$=BL$+" " 2850NEXT I 2860X(E)=E 2870X(G)=E 2880X(V)=E 2890X(4)=E 2900X(5)=E 2910X(6)=E 2920Y(E)=V 2930Y(G)=4 2940Y(V)=5 2950Y(4)=6 2960Y(5)=7 2970Y(6)=8 2980TYPE(E)=-6 2990TYPE(G)=-21 3000TYPE(V)=B 3010TYPE(4)=-11 3020PICT$(E)="Akkord-nr" 3030PICT$(G)="Tekst" 3040PICT$(V)="Timer til rådighed" 3050PICT$(4)="Beløb til rådighed" 3060PICT$(5)="Total timer" 3070PICT$(6)="Total beløb" 3080OUTP=B 3090FIL8$="P641220:AKKHOVED" 3100OPEN FIL8$,W 3110EXEC FEJL(B,B,FIL8$) 3120EXEC INDTABEL 3130REPEAT 3140SV=G 3150CLEAR 3160CURSOR 10,10 3170PRINT "A K K O R D - H O V E D E R" 3180PRINT 3190PRINT TAB(10);"0 Færdig" 3200PRINT TAB(10);"1 Ændring" 3210PRINT TAB(10);"2 Udskrift på skærm" 3220PRINT TAB(10);"3 Udskrift på printer" 3230PRINT TAB(10);"4 Oprettelse" 3240PRINT TAB(10);"5 Sletning" 3250PRINT 3260REPEAT 3270CURSOR E,19 3280EDIT " ",SV 3290UNTIL SV=>B AND SV<=5 3300IF SV>B THEN 3310EXEC INOPL(1) 3320AKKNR$=AKK$(E,6) 3330EXEC INDAKK 3340CASE SV OF 3350WHEN E 3360IF FOUND=E THEN 3370EXEC SKRIVOPL 3380REPEAT 3390REPEAT 3400SV1=B 3410CURSOR E,23 3420EDIT "Feltnr ",SV1 3430UNTIL SV1>E AND SV1<5 OR SV1=B 3440IF SV1>B THEN 3450EXEC INOPL(SV1) 3460ENDIF 3470UNTIL SV1=B 3480EXEC UDAKK 3490ELSE 3500IF FOUND=B THEN 3510INPUT "Akkord findes ikke, RETURN ",LINE$ 3520ELSE 3530INPUT "Mystisk fejl, RETURN ",LINE$ 3540ENDIF 3550ENDIF 3560WHEN G 3570IF FOUND=E THEN 3580OUTP=B 3590EXEC SKRIVOPL 3600INPUT "RETURN",LINE$ 3610ELSE 3620IF FOUND=B THEN 3630INPUT "Akkord findes ikke, RETURN ",LINE$ 3640ELSE 3650INPUT "Mystisk fejl, RETURN ",LINE$ 3660ENDIF 3670ENDIF 3680WHEN V 3681IF AKKNR$="0 " THEN 3682ALL=E 3683AKKNR$=NR$((ALL-E)*6+E:6) 3684EXEC INDAKK 3685ELSE 3686ALL=MAX 3687ENDIF 3688REPEAT 3690IF FOUND=E THEN 3700OUTPUT P 3710OUTP=E 3720EXEC SKRIVOPL 3730REPEAT 3740PRINT 3750LINES=LINES+E 3760UNTIL LINES=72 3770OUTP=B 3780OUTPUT T 3790ELSE 3800IF FOUND=B THEN 3810INPUT "Akkord findes ikke, RETURN ",LINE$ 3820ELSE 3830INPUT "Mystisk fejl, RETURN ",LINE$ 3840ENDIF 3850ENDIF 3851ALL=ALL+E 3852IF ALL<=MAX THEN 3853AKKNR$=NR$((ALL-E)*6+E:6) 3854EXEC INDAKK 3855ENDIF 3856UNTIL ALL>MAX 3860WHEN 4 3870IF FOUND=E THEN 3880INPUT "Akkord findes, RETURN ",LINE$ 3890ELSE 3900EXEC SKRIVPICT 3910LINE$=AKKNR$ 3920EXEC OUTLINE(1) 3930FOR J=G TO 4 3940EXEC INOPL(J) 3950NEXT J 3960AKK$(28,38)=" 0+" 3970TTIMER=B 3980FOR J=E TO 30 3990M(J)=B 4000NEXT J 4010REPEAT 4020REPEAT 4030SV1=B 4040CURSOR E,23 4050EDIT "Feltnr ",SV1 4060UNTIL SV1>E AND SV1<5 OR SV1=B 4070IF SV1>B THEN 4080EXEC INOPL(SV1) 4090ENDIF 4100UNTIL SV1=B 4110EXEC INDSÆT 4120ENDIF 4130WHEN 5 4140FOR I=E TO 30 4150IF M(I)<>B THEN 4160FOUND=B 4170I=40 4180ENDIF 4190NEXT I 4200IF FOUND=E THEN 4210SV1=G 4220EXEC SKRIVOPL 4230WHILE SV1<>B AND SV1<>E 4240SV1=B 4250CURSOR E,23 4260EDIT "Sletning korrekt 1: ",SV1 4270ENDWHILE 4280IF SV1=E THEN 4290EXEC SLET 4300ENDIF 4310ELSE 4320INPUT "Akkord kan ikke slettes, RETURN ",LINE$ 4330ENDIF 4340ENDCASE 4350ENDIF 4360UNTIL SV=B 4370EXEC UDTABEL 4380CLOSE 4390CHAIN "P641210:STARTB"
0x0000…0047 Line {l1=0x45, l2=»0100DIM AKK$(49),NR$(606),Å(100),M(30),FIL8$(20),FIL9$(20),AKKNR$(6) «, l3=0x45}
0x0047…0090 Line {l1=0x47, l2=»0110DIM RES$(15),OP1$(12),OP2$(12),RESUL$(12),TAH$(12),B3$(12),DAD$(6) «, l3=0x47}
0x0090…00ae Line {l1=0x1c, l2=»0120PROC CALC(AR3,B1,B2,ES) «, l3=0x1c}
0x00ae…00ed Line {l1=0x3d, l2=»0130RES$=ES$;OP1$=B1$;OP2$=B2$;SI=B;FLAG=B;ART=AR3-6*(AR3>5) «, l3=0x3d}
0x00ed…0107 Line {l1=0x18, l2=»0140CALL "P641210:REGN" «, l3=0x18}
0x0107…011c Line {l1=0x13, l2=»0150IF AR3<6 THEN «, l3=0x13}
0x011c…0135 Line {l1=0x17, l2=»0160IF FLAG THEN STOP «, l3=0x17}
0x0135…0142 Line {l1=0x0b, l2=»0170ENDIF «, l3=0x0b}
0x0142…0151 Line {l1=0x0d, l2=»0180ES$=RES$ «, l3=0x0d}
0x0151…0160 Line {l1=0x0d, l2=»0190ENDPROC «, l3=0x0d}
0x0160…0173 Line {l1=0x11, l2=»0191DIM FIL$(20) «, l3=0x11}
0x0173…0191 Line {l1=0x1c, l2=»0192FIL$="P641220:VIRKKART" «, l3=0x1c}
0x0191…01a3 Line {l1=0x10, l2=»0193OPEN FIL$,R «, l3=0x10}
0x01a3…01bd Line {l1=0x18, l2=»0194EXEC FEJL(B,B,FIL$) «, l3=0x18}
0x01bd…01d3 Line {l1=0x14, l2=»0195GET FIL$,V:DAD$ «, l3=0x14}
0x01d3…01e4 Line {l1=0x0f, l2=»0196CLOSE FIL$ «, l3=0x0f}
0x01e4…01fd Line {l1=0x17, l2=»0198B3$=" 0+" «, l3=0x17}
0x01fd…020f Line {l1=0x10, l2=»0199TI=10;EL=11 «, l3=0x10}
0x020f…0223 Line {l1=0x12, l2=»0200PROC Æ(I1,I2) «, l3=0x12}
0x0223…0231 Line {l1=0x0c, l2=»0205I1$=B3$ «, l3=0x0c}
0x0231…0246 Line {l1=0x13, l2=»0210IF I2<>B THEN «, l3=0x13}
0x0246…0287 Line {l1=0x3f, l2=»0215I1$(W,TI)=",0";I0=ABS(I2);K0=INT((I0-INT(I0))*100+0.50001) «, l3=0x3f}
0x0287…02a6 Line {l1=0x1d, l2=»0220IF I2<B THEN I1$(12)="-" «, l3=0x1d}
0x02a6…02c2 Line {l1=0x1a, l2=»0225FOR I=EL TO E STEP -E «, l3=0x1a}
0x02c2…02d6 Line {l1=0x12, l2=»0230IF I<>W THEN «, l3=0x12}
0x02d6…02f5 Line {l1=0x1d, l2=»0235I1$(I)=CHR(K0 MOD TI+48) «, l3=0x1d}
0x02f5…0308 Line {l1=0x11, l2=»0240K0=K0 DIV TI «, l3=0x11}
0x0308…0328 Line {l1=0x1e, l2=»0245IF K0=B AND I<TI THEN I=B «, l3=0x1e}
0x0328…0334 Line {l1=0x0a, l2=»0250ELSE «, l3=0x0a}
0x0334…0345 Line {l1=0x0f, l2=»0255K0=INT(I0) «, l3=0x0f}
0x0345…0352 Line {l1=0x0b, l2=»0260ENDIF «, l3=0x0b}
0x0352…035f Line {l1=0x0b, l2=»0265NEXT I «, l3=0x0b}
0x035f…036c Line {l1=0x0b, l2=»0270ENDIF «, l3=0x0b}
0x036c…037b Line {l1=0x0d, l2=»0275ENDPROC «, l3=0x0d}
0x037b…038d Line {l1=0x10, l2=»0300PROC INDAKK «, l3=0x10}
0x038d…039d Line {l1=0x0e, l2=»0310L=E;U=MAX «, l3=0x0e}
0x039d…03b0 Line {l1=0x11, l2=»0320IF U>B THEN «, l3=0x11}
0x03b0…03be Line {l1=0x0c, l2=»0330REPEAT «, l3=0x0c}
0x03be…03d4 Line {l1=0x14, l2=»0340PEG=(L+U) DIV G «, l3=0x14}
0x03d4…03fd Line {l1=0x27, l2=»0350IF AKKNR$>NR$((PEG-E)*6+E:6) THEN «, l3=0x27}
0x03fd…040b Line {l1=0x0c, l2=»0360L=PEG+E «, l3=0x0c}
0x040b…0417 Line {l1=0x0a, l2=»0370ELSE «, l3=0x0a}
0x0417…0425 Line {l1=0x0c, l2=»0380U=PEG-E «, l3=0x0c}
0x0425…0432 Line {l1=0x0b, l2=»0390ENDIF «, l3=0x0b}
0x0432…045f Line {l1=0x2b, l2=»0400UNTIL L>U OR AKKNR$=NR$((PEG-E)*6+E:6) «, l3=0x2b}
0x045f…046c Line {l1=0x0b, l2=»0410ENDIF «, l3=0x0b}
0x046c…0478 Line {l1=0x0a, l2=»0420L=U+E «, l3=0x0a}
0x0478…049f Line {l1=0x25, l2=»0430IF NR$((L-E)*6+E:6)=AKKNR$ THEN «, l3=0x25}
0x049f…04ad Line {l1=0x0c, l2=»0440FOUND=E «, l3=0x0c}
0x04ad…04bc Line {l1=0x0d, l2=»0450PEG=Å(L) «, l3=0x0d}
0x04bc…04e9 Line {l1=0x2b, l2=»0460GET FIL8$,PEG:AKK$(E,27),TTIMER,RTIMER «, l3=0x2b}
0x04e9…051a Line {l1=0x2f, l2=»0470GET FIL8$,PEG+E:AKK$(28,49),M(E),M(G),M(V) «, l3=0x2f}
0x051a…0560 Line {l1=0x44, l2=»0480GET FIL8$,PEG+G:M(4),M(5),M(6),M(7),M(8),M(W),M(10),M(11),M(12) «, l3=0x44}
0x0560…05ac Line {l1=0x4a, l2=»0490GET FIL8$,PEG+V:M(13),M(14),M(15),M(16),M(17),M(18),M(19),M(20),M(21) «, l3=0x4a}
0x05ac…05f8 Line {l1=0x4a, l2=»0500GET FIL8$,PEG+4:M(22),M(23),M(24),M(25),M(26),M(27),M(28),M(29),M(30) «, l3=0x4a}
0x05f8…0615 Line {l1=0x1b, l2=»0510EXEC FEJL(B,PEG,FIL8$) «, l3=0x1b}
0x0615…063e Line {l1=0x27, l2=»0520IF AKK$(E,6)<>AKKNR$ THEN FOUND=-E «, l3=0x27}
0x063e…064a Line {l1=0x0a, l2=»0530ELSE «, l3=0x0a}
0x064a…0658 Line {l1=0x0c, l2=»0540FOUND=B «, l3=0x0c}
0x0658…0665 Line {l1=0x0b, l2=»0550ENDIF «, l3=0x0b}
0x0665…0674 Line {l1=0x0d, l2=»0560ENDPROC «, l3=0x0d}
0x0674…0685 Line {l1=0x0f, l2=»0570PROC UDAKK «, l3=0x0f}
0x0685…06b2 Line {l1=0x2b, l2=»0580PUT FIL8$,PEG:AKK$(E,27),TTIMER,RTIMER «, l3=0x2b}
0x06b2…06e3 Line {l1=0x2f, l2=»0590PUT FIL8$,PEG+E:AKK$(28,49),M(E),M(G),M(V) «, l3=0x2f}
0x06e3…0729 Line {l1=0x44, l2=»0600PUT FIL8$,PEG+G:M(4),M(5),M(6),M(7),M(8),M(W),M(10),M(11),M(12) «, l3=0x44}
0x0729…0775 Line {l1=0x4a, l2=»0610PUT FIL8$,PEG+V:M(13),M(14),M(15),M(16),M(17),M(18),M(19),M(20),M(21) «, l3=0x4a}
0x0775…07c1 Line {l1=0x4a, l2=»0620PUT FIL8$,PEG+4:M(22),M(23),M(24),M(25),M(26),M(27),M(28),M(29),M(30) «, l3=0x4a}
0x07c1…07de Line {l1=0x1b, l2=»0630EXEC FEJL(E,PEG,FIL8$) «, l3=0x1b}
0x07de…07ed Line {l1=0x0d, l2=»0640ENDPROC «, l3=0x0d}
0x07ed…07ff Line {l1=0x10, l2=»0650PROC INDSÆT «, l3=0x10}
0x07ff…080d Line {l1=0x0c, l2=»0660FOUND=B «, l3=0x0c}
0x080d…081b Line {l1=0x0c, l2=»0670U=MAX+E «, l3=0x0c}
0x081b…0830 Line {l1=0x13, l2=»0680IF U<101 THEN «, l3=0x13}
0x0830…0844 Line {l1=0x12, l2=»0690FOUND=E;MAX=U «, l3=0x12}
0x0844…0852 Line {l1=0x0c, l2=»0700GN=Å(U) «, l3=0x0c}
0x0852…085e Line {l1=0x0a, l2=»0710PEG=U «, l3=0x0a}
0x085e…0874 Line {l1=0x14, l2=»0720WHILE PEG>L DO «, l3=0x14}
0x0874…088a Line {l1=0x14, l2=»0730Å(PEG)=Å(PEG-E) «, l3=0x14}
0x088a…08b6 Line {l1=0x2a, l2=»0740NR$((PEG-E)*6+E:6)=NR$((PEG-G)*6+E:6) «, l3=0x2a}
0x08b6…08c6 Line {l1=0x0e, l2=»0750PEG=PEG-E «, l3=0x0e}
0x08c6…08d6 Line {l1=0x0e, l2=»0760ENDWHILE «, l3=0x0e}
0x08d6…08e4 Line {l1=0x0c, l2=»0770Å(L)=GN «, l3=0x0c}
0x08e4…0902 Line {l1=0x1c, l2=»0780NR$((L-E)*6+E:6)=AKKNR$ «, l3=0x1c}
0x0902…090f Line {l1=0x0b, l2=»0790PEG=GN «, l3=0x0b}
0x090f…0920 Line {l1=0x0f, l2=»0800EXEC UDAKK «, l3=0x0f}
0x0920…092d Line {l1=0x0b, l2=»0810ENDIF «, l3=0x0b}
0x092d…093c Line {l1=0x0d, l2=»0820ENDPROC «, l3=0x0d}
0x093c…094c Line {l1=0x0e, l2=»0830PROC SLET «, l3=0x0e}
0x094c…095a Line {l1=0x0c, l2=»0840GN=Å(L) «, l3=0x0c}
0x095a…0970 Line {l1=0x14, l2=»0850WHILE L<MAX DO «, l3=0x14}
0x0970…0994 Line {l1=0x22, l2=»0860NR$((L-E)*6+E:6)=NR$(L*6+E:6) «, l3=0x22}
0x0994…09a6 Line {l1=0x10, l2=»0870Å(L)=Å(L+E) «, l3=0x10}
0x09a6…09b2 Line {l1=0x0a, l2=»0880L=L+E «, l3=0x0a}
0x09b2…09c2 Line {l1=0x0e, l2=»0890ENDWHILE «, l3=0x0e}
0x09c2…09e2 Line {l1=0x1e, l2=»0900NR$((L-E)*6+E:6)=" " «, l3=0x1e}
0x09e2…09f0 Line {l1=0x0c, l2=»0910Å(L)=GN «, l3=0x0c}
0x09f0…0a00 Line {l1=0x0e, l2=»0920MAX=MAX-E «, l3=0x0e}
0x0a00…0a0f Line {l1=0x0d, l2=»0930ENDPROC «, l3=0x0d}
0x0a0f…0a23 Line {l1=0x12, l2=»0940PROC INDTABEL «, l3=0x12}
0x0a23…0a42 Line {l1=0x1d, l2=»0950FIL9$="P641220:AKKTABEL" «, l3=0x1d}
0x0a42…0a55 Line {l1=0x11, l2=»0960OPEN FIL9$,R «, l3=0x11}
0x0a55…0a70 Line {l1=0x19, l2=»0970EXEC FEJL(B,B,FIL9$) «, l3=0x19}
0x0a70…0a84 Line {l1=0x12, l2=»0980FOR I=E TO 10 «, l3=0x12}
0x0a84…0aa7 Line {l1=0x21, l2=»0990GET FIL9$:NR$((I-E)*60+E:60) «, l3=0x21}
0x0aa7…0ab4 Line {l1=0x0b, l2=»1000NEXT I «, l3=0x0b}
0x0ab4…0af7 Line {l1=0x41, l2=»1010GET FIL9$:Å(E),Å(G),Å(V),Å(4),Å(5),Å(6),Å(7),Å(8),Å(W),Å(10) «, l3=0x41}
0x0af7…0b43 Line {l1=0x4a, l2=»1020GET FIL9$:Å(11),Å(12),Å(13),Å(14),Å(15),Å(16),Å(17),Å(18),Å(19),Å(20) «, l3=0x4a}
0x0b43…0b8f Line {l1=0x4a, l2=»1030GET FIL9$:Å(21),Å(22),Å(23),Å(24),Å(25),Å(26),Å(27),Å(28),Å(29),Å(30) «, l3=0x4a}
0x0b8f…0bdb Line {l1=0x4a, l2=»1040GET FIL9$:Å(31),Å(32),Å(33),Å(34),Å(35),Å(36),Å(37),Å(38),Å(39),Å(40) «, l3=0x4a}
0x0bdb…0c27 Line {l1=0x4a, l2=»1050GET FIL9$:Å(41),Å(42),Å(43),Å(44),Å(45),Å(46),Å(47),Å(48),Å(49),Å(50) «, l3=0x4a}
0x0c27…0c73 Line {l1=0x4a, l2=»1060GET FIL9$:Å(51),Å(52),Å(53),Å(54),Å(55),Å(56),Å(57),Å(58),Å(59),Å(60) «, l3=0x4a}
0x0c73…0cbf Line {l1=0x4a, l2=»1070GET FIL9$:Å(61),Å(62),Å(63),Å(64),Å(65),Å(66),Å(67),Å(68),Å(69),Å(70) «, l3=0x4a}
0x0cbf…0d0b Line {l1=0x4a, l2=»1080GET FIL9$:Å(71),Å(72),Å(73),Å(74),Å(75),Å(76),Å(77),Å(78),Å(79),Å(80) «, l3=0x4a}
0x0d0b…0d57 Line {l1=0x4a, l2=»1090GET FIL9$:Å(81),Å(82),Å(83),Å(84),Å(85),Å(86),Å(87),Å(88),Å(89),Å(90) «, l3=0x4a}
0x0d57…0da4 Line {l1=0x4b, l2=»1100GET FIL9$:Å(91),Å(92),Å(93),Å(94),Å(95),Å(96),Å(97),Å(98),Å(99),Å(100) «, l3=0x4b}
0x0da4…0dbf Line {l1=0x19, l2=»1110EXEC FEJL(E,B,FIL9$) «, l3=0x19}
0x0dbf…0dd3 Line {l1=0x12, l2=»1120FOR I=B TO 99 «, l3=0x12}
0x0dd3…0df8 Line {l1=0x23, l2=»1130IF NR$(I*6+E:6)=" " THEN «, l3=0x23}
0x0df8…0e0a Line {l1=0x10, l2=»1140MAX=I;I=100 «, l3=0x10}
0x0e0a…0e17 Line {l1=0x0b, l2=»1150ENDIF «, l3=0x0b}
0x0e17…0e24 Line {l1=0x0b, l2=»1160NEXT I «, l3=0x0b}
0x0e24…0e36 Line {l1=0x10, l2=»1170CLOSE FIL9$ «, l3=0x10}
0x0e36…0e45 Line {l1=0x0d, l2=»1180ENDPROC «, l3=0x0d}
0x0e45…0e58 Line {l1=0x11, l2=»1190PROC UDTABEL «, l3=0x11}
0x0e58…0e6b Line {l1=0x11, l2=»1200OPEN FIL9$,W «, l3=0x11}
0x0e6b…0e86 Line {l1=0x19, l2=»1210EXEC FEJL(G,B,FIL9$) «, l3=0x19}
0x0e86…0e9a Line {l1=0x12, l2=»1220FOR I=E TO 10 «, l3=0x12}
0x0e9a…0ebd Line {l1=0x21, l2=»1230PUT FIL9$:NR$((I-E)*60+E:60) «, l3=0x21}
0x0ebd…0eca Line {l1=0x0b, l2=»1240NEXT I «, l3=0x0b}
0x0eca…0f0d Line {l1=0x41, l2=»1250PUT FIL9$:Å(E),Å(G),Å(V),Å(4),Å(5),Å(6),Å(7),Å(8),Å(W),Å(10) «, l3=0x41}
0x0f0d…0f59 Line {l1=0x4a, l2=»1260PUT FIL9$:Å(11),Å(12),Å(13),Å(14),Å(15),Å(16),Å(17),Å(18),Å(19),Å(20) «, l3=0x4a}
0x0f59…0fa5 Line {l1=0x4a, l2=»1270PUT FIL9$:Å(21),Å(22),Å(23),Å(24),Å(25),Å(26),Å(27),Å(28),Å(29),Å(30) «, l3=0x4a}
0x0fa5…0ff1 Line {l1=0x4a, l2=»1280PUT FIL9$:Å(31),Å(32),Å(33),Å(34),Å(35),Å(36),Å(37),Å(38),Å(39),Å(40) «, l3=0x4a}
0x0ff1…103d Line {l1=0x4a, l2=»1290PUT FIL9$:Å(41),Å(42),Å(43),Å(44),Å(45),Å(46),Å(47),Å(48),Å(49),Å(50) «, l3=0x4a}
0x103d…1089 Line {l1=0x4a, l2=»1300PUT FIL9$:Å(51),Å(52),Å(53),Å(54),Å(55),Å(56),Å(57),Å(58),Å(59),Å(60) «, l3=0x4a}
0x1089…10d5 Line {l1=0x4a, l2=»1310PUT FIL9$:Å(61),Å(62),Å(63),Å(64),Å(65),Å(66),Å(67),Å(68),Å(69),Å(70) «, l3=0x4a}
0x10d5…1121 Line {l1=0x4a, l2=»1320PUT FIL9$:Å(71),Å(72),Å(73),Å(74),Å(75),Å(76),Å(77),Å(78),Å(79),Å(80) «, l3=0x4a}
0x1121…116d Line {l1=0x4a, l2=»1330PUT FIL9$:Å(81),Å(82),Å(83),Å(84),Å(85),Å(86),Å(87),Å(88),Å(89),Å(90) «, l3=0x4a}
0x116d…11ba Line {l1=0x4b, l2=»1340PUT FIL9$:Å(91),Å(92),Å(93),Å(94),Å(95),Å(96),Å(97),Å(98),Å(99),Å(100) «, l3=0x4b}
0x11ba…11c9 Line {l1=0x0d, l2=»1350ENDPROC «, l3=0x0d}
0x11c9…11e3 Line {l1=0x18, l2=»1360PROC CHECK(NR1,OK1) «, l3=0x18}
0x11e3…11ef Line {l1=0x0a, l2=»1370OK1=B «, l3=0x0a}
0x11ef…11fe Line {l1=0x0d, l2=»1380RESULT=B «, l3=0x0d}
0x11fe…1219 Line {l1=0x19, l2=»1390IF LEN(NR1$)>B THEN «, l3=0x19}
0x1219…1234 Line {l1=0x19, l2=»1400IF NR1$(E)="-" THEN «, l3=0x19}
0x1234…1245 Line {l1=0x0f, l2=»1410FORTEGN=-E «, l3=0x0f}
0x1245…1251 Line {l1=0x0a, l2=»1420OK1=E «, l3=0x0a}
0x1251…125d Line {l1=0x0a, l2=»1430ELSE «, l3=0x0a}
0x125d…126d Line {l1=0x0e, l2=»1440FORTEGN=E «, l3=0x0e}
0x126d…127a Line {l1=0x0b, l2=»1450ENDIF «, l3=0x0b}
0x127a…1294 Line {l1=0x18, l2=»1460WHILE LEN(NR1$)>OK1 «, l3=0x18}
0x1294…12a4 Line {l1=0x0e, l2=»1470OK1=OK1+E «, l3=0x0e}
0x12a4…12d2 Line {l1=0x2c, l2=»1480IF NR1$(OK1)<"0" OR NR1$(OK1)>"9" THEN «, l3=0x2c}
0x12d2…12e2 Line {l1=0x0e, l2=»1490FORTEGN=B «, l3=0x0e}
0x12e2…12f6 Line {l1=0x12, l2=»1500OK1=LEN(NR1$) «, l3=0x12}
0x12f6…1303 Line {l1=0x0b, l2=»1510ENDIF «, l3=0x0b}
0x1303…132c Line {l1=0x27, l2=»1520RESULT=RESULT*10+ORD(NR1$(OK1))-48 «, l3=0x27}
0x132c…133c Line {l1=0x0e, l2=»1530ENDWHILE «, l3=0x0e}
0x133c…1352 Line {l1=0x14, l2=»1540OK1=OK1*FORTEGN «, l3=0x14}
0x1352…1370 Line {l1=0x1c, l2=»1550IF OK1<B THEN OK1=OK1+E «, l3=0x1c}
0x1370…137d Line {l1=0x0b, l2=»1560ENDIF «, l3=0x0b}
0x137d…138c Line {l1=0x0d, l2=»1570ENDPROC «, l3=0x0d}
0x138c…13a2 Line {l1=0x14, l2=»1580PROC INOPL(OPL) «, l3=0x14}
0x13a2…13b9 Line {l1=0x15, l2=»1590EXEC INLINE(OPL) «, l3=0x15}
0x13b9…13cc Line {l1=0x11, l2=»1600CASE OPL OF «, l3=0x11}
0x13cc…13d9 Line {l1=0x0b, l2=»1610WHEN E «, l3=0x0b}
0x13d9…13ef Line {l1=0x14, l2=»1620AKK$(E,6)=LINE$ «, l3=0x14}
0x13ef…13fc Line {l1=0x0b, l2=»1630WHEN G «, l3=0x0b}
0x13fc…1413 Line {l1=0x15, l2=»1640AKK$(7,27)=LINE$ «, l3=0x15}
0x1413…1420 Line {l1=0x0b, l2=»1650WHEN V «, l3=0x0b}
0x1420…1435 Line {l1=0x13, l2=»1660WHILE RESULT<E «, l3=0x13}
0x1435…144c Line {l1=0x15, l2=»1670EXEC INLINE(OPL) «, l3=0x15}
0x144c…145c Line {l1=0x0e, l2=»1680ENDWHILE «, l3=0x0e}
0x145c…1470 Line {l1=0x12, l2=»1690RTIMER=RESULT «, l3=0x12}
0x1470…147d Line {l1=0x0b, l2=»1700WHEN 4 «, l3=0x0b}
0x147d…148b Line {l1=0x0c, l2=»1710REPEAT «, l3=0x0c}
0x148b…14a1 Line {l1=0x14, l2=»1720LINE$=LINE$+"+" «, l3=0x14}
0x14a1…14c6 Line {l1=0x23, l2=»1730EXEC CALC(6,LINE$,TAH$,RESUL$) «, l3=0x23}
0x14c6…14ed Line {l1=0x25, l2=»1740IF FLAG<>B THEN EXEC INLINE(OPL) «, l3=0x25}
0x14ed…1500 Line {l1=0x11, l2=»1750UNTIL FLAG=B «, l3=0x11}
0x1500…151f Line {l1=0x1d, l2=»1760AKK$(39,49)=RESUL$(G:11) «, l3=0x1d}
0x151f…152e Line {l1=0x0d, l2=»1770ENDCASE «, l3=0x0d}
0x152e…153d Line {l1=0x0d, l2=»1780ENDPROC «, l3=0x0d}
0x153d…1551 Line {l1=0x12, l2=»1790PROC SKRIVOPL «, l3=0x12}
0x1551…1567 Line {l1=0x14, l2=»1800IF OUTP=B THEN «, l3=0x14}
0x1567…1574 Line {l1=0x0b, l2=»1810CLEAR «, l3=0x0b}
0x1574…1580 Line {l1=0x0a, l2=»1820ELSE «, l3=0x0a}
0x1580…158d Line {l1=0x0b, l2=»1830PRINT «, l3=0x0b}
0x158d…159a Line {l1=0x0b, l2=»1840PRINT «, l3=0x0b}
0x159a…15a7 Line {l1=0x0b, l2=»1850PRINT «, l3=0x0b}
0x15a7…15b4 Line {l1=0x0b, l2=»1860ENDIF «, l3=0x0b}
0x15b4…15c2 Line {l1=0x0c, l2=»1870LINES=4 «, l3=0x0c}
0x15c2…1601 Line {l1=0x3d, l2=»1880PRINT "A K K O R D - H O V E D E R";TAB(60);"Dato ";DAD$ «, l3=0x3d}
0x1601…1614 Line {l1=0x11, l2=»1890FOR J=E TO A «, l3=0x11}
0x1614…1625 Line {l1=0x0f, l2=»1900CASE J OF «, l3=0x0f}
0x1625…1632 Line {l1=0x0b, l2=»1910WHEN E «, l3=0x0b}
0x1632…1650 Line {l1=0x1c, l2=»1920LINE$=" "+AKK$(E,6) «, l3=0x1c}
0x1650…165d Line {l1=0x0b, l2=»1930WHEN G «, l3=0x0b}
0x165d…1674 Line {l1=0x15, l2=»1940LINE$=AKK$(7,27) «, l3=0x15}
0x1674…1681 Line {l1=0x0b, l2=»1950WHEN V «, l3=0x0b}
0x1681…169c Line {l1=0x19, l2=»1960EXEC Æ(LINE$,RTIMER) «, l3=0x19}
0x169c…16c6 Line {l1=0x28, l2=»1965IF LINE$(12)="+" THEN LINE$(12)=" " «, l3=0x28}
0x16c6…16d3 Line {l1=0x0b, l2=»1970WHEN 4 «, l3=0x0b}
0x16d3…16ef Line {l1=0x1a, l2=»1980LINE$=" "+AKK$(39,49) «, l3=0x1a}
0x16ef…1719 Line {l1=0x28, l2=»1990IF LINE$(12)="+" THEN LINE$(12)=" " «, l3=0x28}
0x1719…1726 Line {l1=0x0b, l2=»2000WHEN 5 «, l3=0x0b}
0x1726…1741 Line {l1=0x19, l2=»2010EXEC Æ(LINE$,TTIMER) «, l3=0x19}
0x1741…176b Line {l1=0x28, l2=»2015IF LINE$(12)="+" THEN LINE$(12)=" " «, l3=0x28}
0x176b…1778 Line {l1=0x0b, l2=»2020WHEN 6 «, l3=0x0b}
0x1778…1794 Line {l1=0x1a, l2=»2030LINE$=" "+AKK$(28,38) «, l3=0x1a}
0x1794…17be Line {l1=0x28, l2=»2040IF LINE$(12)="+" THEN LINE$(12)=" " «, l3=0x28}
0x17be…17cd Line {l1=0x0d, l2=»2050ENDCASE «, l3=0x0d}
0x17cd…17e1 Line {l1=0x12, l2=»2060LINES=LINES+E «, l3=0x12}
0x17e1…17f7 Line {l1=0x14, l2=»2070IF OUTP=B THEN «, l3=0x14}
0x17f7…180d Line {l1=0x14, l2=»2080EXEC OUTLINE(J) «, l3=0x14}
0x180d…1819 Line {l1=0x0a, l2=»2090ELSE «, l3=0x0a}
0x1819…1830 Line {l1=0x15, l2=»2100EXEC OUTPLINE(J) «, l3=0x15}
0x1830…183d Line {l1=0x0b, l2=»2110ENDIF «, l3=0x0b}
0x183d…184a Line {l1=0x0b, l2=»2120NEXT J «, l3=0x0b}
0x184a…1857 Line {l1=0x0b, l2=»2130PRINT «, l3=0x0b}
0x1857…187e Line {l1=0x25, l2=»2140PRINT "Medarbejdere på akkorden" «, l3=0x25}
0x187e…1892 Line {l1=0x12, l2=»2150LINES=LINES+V «, l3=0x12}
0x1892…18a0 Line {l1=0x0c, l2=»2160ANTPR=B «, l3=0x0c}
0x18a0…18b4 Line {l1=0x12, l2=»2170FOR J=E TO 30 «, l3=0x12}
0x18b4…18cb Line {l1=0x15, l2=»2180IF M(J)<>B THEN «, l3=0x15}
0x18cb…18df Line {l1=0x12, l2=»2190ANTPR=ANTPR+E «, l3=0x12}
0x18df…18fc Line {l1=0x1b, l2=»2200IF ANTPR MOD 6=B THEN «, l3=0x1b}
0x18fc…1909 Line {l1=0x0b, l2=»2210PRINT «, l3=0x0b}
0x1909…191d Line {l1=0x12, l2=»2220LINES=LINES+E «, l3=0x12}
0x191d…192a Line {l1=0x0b, l2=»2230ENDIF «, l3=0x0b}
0x192a…193c Line {l1=0x10, l2=»2240PRINT M(J), «, l3=0x10}
0x193c…1949 Line {l1=0x0b, l2=»2250ENDIF «, l3=0x0b}
0x1949…1956 Line {l1=0x0b, l2=»2260NEXT J «, l3=0x0b}
0x1956…1963 Line {l1=0x0b, l2=»2270PRINT «, l3=0x0b}
0x1963…1972 Line {l1=0x0d, l2=»2280ENDPROC «, l3=0x0d}
0x1972…1988 Line {l1=0x14, l2=»2290PROC OUTLINE(N) «, l3=0x14}
0x1988…199f Line {l1=0x15, l2=»2300CURSOR X(N),Y(N) «, l3=0x15}
0x199f…19bb Line {l1=0x1a, l2=»2310PRINT USING "### ":N; «, l3=0x1a}
0x19bb…19e2 Line {l1=0x25, l2=»2320PRINT PICT$(N);":";TAB(25);LINE$ «, l3=0x25}
0x19e2…19f1 Line {l1=0x0d, l2=»2330ENDPROC «, l3=0x0d}
0x19f1…1a0b Line {l1=0x18, l2=»2340PROC FEJL(P1,P2,P3) «, l3=0x18}
0x1a0b…1a29 Line {l1=0x1c, l2=»2350IF STATUS(P3$)<>B THEN «, l3=0x1c}
0x1a29…1a38 Line {l1=0x0d, l2=»2360OUTPUT T «, l3=0x0d}
0x1a38…1a66 Line {l1=0x2c, l2=»2370PRINT "FIL-FEJL ";P3$;STATUS(P3$),P1;P2 «, l3=0x2c}
0x1a66…1a72 Line {l1=0x0a, l2=»2380STOP «, l3=0x0a}
0x1a72…1a7f Line {l1=0x0b, l2=»2390ENDIF «, l3=0x0b}
0x1a7f…1a8e Line {l1=0x0d, l2=»2400ENDPROC «, l3=0x0d}
0x1a8e…1aa3 Line {l1=0x13, l2=»2410PROC INLINE(N) «, l3=0x13}
0x1aa3…1ab1 Line {l1=0x0c, l2=»2420REPEAT «, l3=0x0c}
0x1ab1…1ac6 Line {l1=0x13, l2=»2430CURSOR 25,Y(N) «, l3=0x13}
0x1ac6…1ae8 Line {l1=0x20, l2=»2440PRINT BL$(E:ABS(TYPE(N))+6) «, l3=0x20}
0x1ae8…1aff Line {l1=0x15, l2=»2450CURSOR X(N),Y(N) «, l3=0x15}
0x1aff…1b1b Line {l1=0x1a, l2=»2460PRINT USING "### ":N; «, l3=0x1a}
0x1b1b…1b35 Line {l1=0x18, l2=»2470PRINT PICT$(N);":"; «, l3=0x18}
0x1b35…1b4a Line {l1=0x13, l2=»2480CURSOR 25,Y(N) «, l3=0x13}
0x1b4a…1b5f Line {l1=0x13, l2=»2490INPUT "",LINE$ «, l3=0x13}
0x1b5f…1b78 Line {l1=0x17, l2=»2500IF TYPE(N)<B THEN «, l3=0x17}
0x1b78…1ba0 Line {l1=0x26, l2=»2510IF LEN(LINE$)<=ABS(TYPE(N)) THEN «, l3=0x26}
0x1ba0…1bab Line {l1=0x09, l2=»2520OK=E «, l3=0x09}
0x1bab…1bd4 Line {l1=0x27, l2=»2530FOR I=LEN(LINE$)+E TO ABS(TYPE(N)) «, l3=0x27}
0x1bd4…1be7 Line {l1=0x11, l2=»2540LINE$(I)=" " «, l3=0x11}
0x1be7…1bf4 Line {l1=0x0b, l2=»2550NEXT I «, l3=0x0b}
0x1bf4…1c00 Line {l1=0x0a, l2=»2560ELSE «, l3=0x0a}
0x1c00…1c0b Line {l1=0x09, l2=»2570OK=B «, l3=0x09}
0x1c0b…1c18 Line {l1=0x0b, l2=»2580ENDIF «, l3=0x0b}
0x1c18…1c24 Line {l1=0x0a, l2=»2590ELSE «, l3=0x0a}
0x1c24…1c3f Line {l1=0x19, l2=»2600EXEC CHECK(LINE$,OK) «, l3=0x19}
0x1c3f…1c6c Line {l1=0x2b, l2=»2610IF TYPE(N)>B AND TYPE(N)<>OK THEN OK=B «, l3=0x2b}
0x1c6c…1c79 Line {l1=0x0b, l2=»2620ENDIF «, l3=0x0b}
0x1c79…1c8b Line {l1=0x10, l2=»2630UNTIL OK<>B «, l3=0x10}
0x1c8b…1c9a Line {l1=0x0d, l2=»2640ENDPROC «, l3=0x0d}
0x1c9a…1caf Line {l1=0x13, l2=»2650PROC SKRIVPICT «, l3=0x13}
0x1caf…1cbc Line {l1=0x0b, l2=»2660CLEAR «, l3=0x0b}
0x1cbc…1ce6 Line {l1=0x28, l2=»2670PRINT "A K K O R D - H O V E D E R" «, l3=0x28}
0x1ce6…1cf9 Line {l1=0x11, l2=»2680FOR I=E TO A «, l3=0x11}
0x1cf9…1d10 Line {l1=0x15, l2=»2690CURSOR X(I),Y(I) «, l3=0x15}
0x1d10…1d24 Line {l1=0x12, l2=»2700PRINT " "; «, l3=0x12}
0x1d24…1d3d Line {l1=0x17, l2=»2710PRINT PICT$(I);":" «, l3=0x17}
0x1d3d…1d4a Line {l1=0x0b, l2=»2720NEXT I «, l3=0x0b}
0x1d4a…1d59 Line {l1=0x0d, l2=»2730ENDPROC «, l3=0x0d}
0x1d59…1d70 Line {l1=0x15, l2=»2740PROC OUTPLINE(N) «, l3=0x15}
0x1d70…1d87 Line {l1=0x15, l2=»2750PRINT TAB(X(N)); «, l3=0x15}
0x1d87…1da3 Line {l1=0x1a, l2=»2760PRINT USING "### ":N; «, l3=0x1a}
0x1da3…1dca Line {l1=0x25, l2=»2770PRINT PICT$(N);":";TAB(25);LINE$ «, l3=0x25}
0x1dca…1dd9 Line {l1=0x0d, l2=»2780ENDPROC «, l3=0x0d}
0x1dd9…1de3 Line {l1=0x08, l2=»2790A=6 «, l3=0x08}
0x1de3…1e0b Line {l1=0x26, l2=»2800DIM X(A),Y(A),PICT$(A,20),TYPE(A) «, l3=0x26}
0x1e0b…1e27 Line {l1=0x1a, l2=»2810DIM BL$(79),LINE$(30) «, l3=0x1a}
0x1e27…1e41 Line {l1=0x18, l2=»2820TAH$=" 0+" «, l3=0x18}
0x1e41…1e55 Line {l1=0x12, l2=»2830FOR I=E TO 79 «, l3=0x12}
0x1e55…1e67 Line {l1=0x10, l2=»2840BL$=BL$+" " «, l3=0x10}
0x1e67…1e74 Line {l1=0x0b, l2=»2850NEXT I «, l3=0x0b}
0x1e74…1e81 Line {l1=0x0b, l2=»2860X(E)=E «, l3=0x0b}
0x1e81…1e8e Line {l1=0x0b, l2=»2870X(G)=E «, l3=0x0b}
0x1e8e…1e9b Line {l1=0x0b, l2=»2880X(V)=E «, l3=0x0b}
0x1e9b…1ea8 Line {l1=0x0b, l2=»2890X(4)=E «, l3=0x0b}
0x1ea8…1eb5 Line {l1=0x0b, l2=»2900X(5)=E «, l3=0x0b}
0x1eb5…1ec2 Line {l1=0x0b, l2=»2910X(6)=E «, l3=0x0b}
0x1ec2…1ecf Line {l1=0x0b, l2=»2920Y(E)=V «, l3=0x0b}
0x1ecf…1edc Line {l1=0x0b, l2=»2930Y(G)=4 «, l3=0x0b}
0x1edc…1ee9 Line {l1=0x0b, l2=»2940Y(V)=5 «, l3=0x0b}
0x1ee9…1ef6 Line {l1=0x0b, l2=»2950Y(4)=6 «, l3=0x0b}
0x1ef6…1f03 Line {l1=0x0b, l2=»2960Y(5)=7 «, l3=0x0b}
0x1f03…1f10 Line {l1=0x0b, l2=»2970Y(6)=8 «, l3=0x0b}
0x1f10…1f21 Line {l1=0x0f, l2=»2980TYPE(E)=-6 «, l3=0x0f}
0x1f21…1f33 Line {l1=0x10, l2=»2990TYPE(G)=-21 «, l3=0x10}
0x1f33…1f43 Line {l1=0x0e, l2=»3000TYPE(V)=B «, l3=0x0e}
0x1f43…1f55 Line {l1=0x10, l2=»3010TYPE(4)=-11 «, l3=0x10}
0x1f55…1f70 Line {l1=0x19, l2=»3020PICT$(E)="Akkord-nr" «, l3=0x19}
0x1f70…1f87 Line {l1=0x15, l2=»3030PICT$(G)="Tekst" «, l3=0x15}
0x1f87…1fab Line {l1=0x22, l2=»3040PICT$(V)="Timer til rådighed" «, l3=0x22}
0x1fab…1fcf Line {l1=0x22, l2=»3050PICT$(4)="Beløb til rådighed" «, l3=0x22}
0x1fcf…1fec Line {l1=0x1b, l2=»3060PICT$(5)="Total timer" «, l3=0x1b}
0x1fec…2009 Line {l1=0x1b, l2=»3070PICT$(6)="Total beløb" «, l3=0x1b}
0x2009…2016 Line {l1=0x0b, l2=»3080OUTP=B «, l3=0x0b}
0x2016…2035 Line {l1=0x1d, l2=»3090FIL8$="P641220:AKKHOVED" «, l3=0x1d}
0x2035…2048 Line {l1=0x11, l2=»3100OPEN FIL8$,W «, l3=0x11}
0x2048…2063 Line {l1=0x19, l2=»3110EXEC FEJL(B,B,FIL8$) «, l3=0x19}
0x2063…2077 Line {l1=0x12, l2=»3120EXEC INDTABEL «, l3=0x12}
0x2077…2085 Line {l1=0x0c, l2=»3130REPEAT «, l3=0x0c}
0x2085…2090 Line {l1=0x09, l2=»3140SV=G «, l3=0x09}
0x2090…209d Line {l1=0x0b, l2=»3150CLEAR «, l3=0x0b}
0x209d…20b0 Line {l1=0x11, l2=»3160CURSOR 10,10 «, l3=0x11}
0x20b0…20da Line {l1=0x28, l2=»3170PRINT "A K K O R D - H O V E D E R" «, l3=0x28}
0x20da…20e7 Line {l1=0x0b, l2=»3180PRINT «, l3=0x0b}
0x20e7…2106 Line {l1=0x1d, l2=»3190PRINT TAB(10);"0 Færdig" «, l3=0x1d}
0x2106…2126 Line {l1=0x1e, l2=»3200PRINT TAB(10);"1 Ændring" «, l3=0x1e}
0x2126…2150 Line {l1=0x28, l2=»3210PRINT TAB(10);"2 Udskrift på skærm" «, l3=0x28}
0x2150…217c Line {l1=0x2a, l2=»3220PRINT TAB(10);"3 Udskrift på printer" «, l3=0x2a}
0x217c…219f Line {l1=0x21, l2=»3230PRINT TAB(10);"4 Oprettelse" «, l3=0x21}
0x219f…21c0 Line {l1=0x1f, l2=»3240PRINT TAB(10);"5 Sletning" «, l3=0x1f}
0x21c0…21cd Line {l1=0x0b, l2=»3250PRINT «, l3=0x0b}
0x21cd…21db Line {l1=0x0c, l2=»3260REPEAT «, l3=0x0c}
0x21db…21ed Line {l1=0x10, l2=»3270CURSOR E,19 «, l3=0x10}
0x21ed…2208 Line {l1=0x19, l2=»3280EDIT " ",SV «, l3=0x19}
0x2208…2224 Line {l1=0x1a, l2=»3290UNTIL SV=>B AND SV<=5 «, l3=0x1a}
0x2224…2238 Line {l1=0x12, l2=»3300IF SV>B THEN «, l3=0x12}
0x2238…224c Line {l1=0x12, l2=»3310EXEC INOPL(1) «, l3=0x12}
0x224c…2263 Line {l1=0x15, l2=»3320AKKNR$=AKK$(E,6) «, l3=0x15}
0x2263…2275 Line {l1=0x10, l2=»3330EXEC INDAKK «, l3=0x10}
0x2275…2287 Line {l1=0x10, l2=»3340CASE SV OF «, l3=0x10}
0x2287…2294 Line {l1=0x0b, l2=»3350WHEN E «, l3=0x0b}
0x2294…22ab Line {l1=0x15, l2=»3360IF FOUND=E THEN «, l3=0x15}
0x22ab…22bf Line {l1=0x12, l2=»3370EXEC SKRIVOPL «, l3=0x12}
0x22bf…22cd Line {l1=0x0c, l2=»3380REPEAT «, l3=0x0c}
0x22cd…22db Line {l1=0x0c, l2=»3390REPEAT «, l3=0x0c}
0x22db…22e7 Line {l1=0x0a, l2=»3400SV1=B «, l3=0x0a}
0x22e7…22f9 Line {l1=0x10, l2=»3410CURSOR E,23 «, l3=0x10}
0x22f9…2312 Line {l1=0x17, l2=»3420EDIT "Feltnr ",SV1 «, l3=0x17}
0x2312…2337 Line {l1=0x23, l2=»3430UNTIL SV1>E AND SV1<5 OR SV1=B «, l3=0x23}
0x2337…234c Line {l1=0x13, l2=»3440IF SV1>B THEN «, l3=0x13}
0x234c…2362 Line {l1=0x14, l2=»3450EXEC INOPL(SV1) «, l3=0x14}
0x2362…236f Line {l1=0x0b, l2=»3460ENDIF «, l3=0x0b}
0x236f…2381 Line {l1=0x10, l2=»3470UNTIL SV1=B «, l3=0x10}
0x2381…2392 Line {l1=0x0f, l2=»3480EXEC UDAKK «, l3=0x0f}
0x2392…239e Line {l1=0x0a, l2=»3490ELSE «, l3=0x0a}
0x239e…23b5 Line {l1=0x15, l2=»3500IF FOUND=B THEN «, l3=0x15}
0x23b5…23e5 Line {l1=0x2e, l2=»3510INPUT "Akkord findes ikke, RETURN ",LINE$ «, l3=0x2e}
0x23e5…23f1 Line {l1=0x0a, l2=»3520ELSE «, l3=0x0a}
0x23f1…241b Line {l1=0x28, l2=»3530INPUT "Mystisk fejl, RETURN ",LINE$ «, l3=0x28}
0x241b…2428 Line {l1=0x0b, l2=»3540ENDIF «, l3=0x0b}
0x2428…2435 Line {l1=0x0b, l2=»3550ENDIF «, l3=0x0b}
0x2435…2442 Line {l1=0x0b, l2=»3560WHEN G «, l3=0x0b}
0x2442…2459 Line {l1=0x15, l2=»3570IF FOUND=E THEN «, l3=0x15}
0x2459…2466 Line {l1=0x0b, l2=»3580OUTP=B «, l3=0x0b}
0x2466…247a Line {l1=0x12, l2=»3590EXEC SKRIVOPL «, l3=0x12}
0x247a…2495 Line {l1=0x19, l2=»3600INPUT "RETURN",LINE$ «, l3=0x19}
0x2495…24a1 Line {l1=0x0a, l2=»3610ELSE «, l3=0x0a}
0x24a1…24b8 Line {l1=0x15, l2=»3620IF FOUND=B THEN «, l3=0x15}
0x24b8…24e8 Line {l1=0x2e, l2=»3630INPUT "Akkord findes ikke, RETURN ",LINE$ «, l3=0x2e}
0x24e8…24f4 Line {l1=0x0a, l2=»3640ELSE «, l3=0x0a}
0x24f4…251e Line {l1=0x28, l2=»3650INPUT "Mystisk fejl, RETURN ",LINE$ «, l3=0x28}
0x251e…252b Line {l1=0x0b, l2=»3660ENDIF «, l3=0x0b}
0x252b…2538 Line {l1=0x0b, l2=»3670ENDIF «, l3=0x0b}
0x2538…2545 Line {l1=0x0b, l2=»3680WHEN V «, l3=0x0b}
0x2545…2564 Line {l1=0x1d, l2=»3681IF AKKNR$="0 " THEN «, l3=0x1d}
0x2564…2570 Line {l1=0x0a, l2=»3682ALL=E «, l3=0x0a}
0x2570…2590 Line {l1=0x1e, l2=»3683AKKNR$=NR$((ALL-E)*6+E:6) «, l3=0x1e}
0x2590…25a2 Line {l1=0x10, l2=»3684EXEC INDAKK «, l3=0x10}
0x25a2…25ae Line {l1=0x0a, l2=»3685ELSE «, l3=0x0a}
0x25ae…25bc Line {l1=0x0c, l2=»3686ALL=MAX «, l3=0x0c}
0x25bc…25c9 Line {l1=0x0b, l2=»3687ENDIF «, l3=0x0b}
0x25c9…25d7 Line {l1=0x0c, l2=»3688REPEAT «, l3=0x0c}
0x25d7…25ee Line {l1=0x15, l2=»3690IF FOUND=E THEN «, l3=0x15}
0x25ee…25fd Line {l1=0x0d, l2=»3700OUTPUT P «, l3=0x0d}
0x25fd…260a Line {l1=0x0b, l2=»3710OUTP=E «, l3=0x0b}
0x260a…261e Line {l1=0x12, l2=»3720EXEC SKRIVOPL «, l3=0x12}
0x261e…262c Line {l1=0x0c, l2=»3730REPEAT «, l3=0x0c}
0x262c…2639 Line {l1=0x0b, l2=»3740PRINT «, l3=0x0b}
0x2639…264d Line {l1=0x12, l2=»3750LINES=LINES+E «, l3=0x12}
0x264d…2662 Line {l1=0x13, l2=»3760UNTIL LINES=72 «, l3=0x13}
0x2662…266f Line {l1=0x0b, l2=»3770OUTP=B «, l3=0x0b}
0x266f…267e Line {l1=0x0d, l2=»3780OUTPUT T «, l3=0x0d}
0x267e…268a Line {l1=0x0a, l2=»3790ELSE «, l3=0x0a}
0x268a…26a1 Line {l1=0x15, l2=»3800IF FOUND=B THEN «, l3=0x15}
0x26a1…26d1 Line {l1=0x2e, l2=»3810INPUT "Akkord findes ikke, RETURN ",LINE$ «, l3=0x2e}
0x26d1…26dd Line {l1=0x0a, l2=»3820ELSE «, l3=0x0a}
0x26dd…2707 Line {l1=0x28, l2=»3830INPUT "Mystisk fejl, RETURN ",LINE$ «, l3=0x28}
0x2707…2714 Line {l1=0x0b, l2=»3840ENDIF «, l3=0x0b}
0x2714…2721 Line {l1=0x0b, l2=»3850ENDIF «, l3=0x0b}
0x2721…2731 Line {l1=0x0e, l2=»3851ALL=ALL+E «, l3=0x0e}
0x2731…2749 Line {l1=0x16, l2=»3852IF ALL<=MAX THEN «, l3=0x16}
0x2749…2769 Line {l1=0x1e, l2=»3853AKKNR$=NR$((ALL-E)*6+E:6) «, l3=0x1e}
0x2769…277b Line {l1=0x10, l2=»3854EXEC INDAKK «, l3=0x10}
0x277b…2788 Line {l1=0x0b, l2=»3855ENDIF «, l3=0x0b}
0x2788…279c Line {l1=0x12, l2=»3856UNTIL ALL>MAX «, l3=0x12}
0x279c…27a9 Line {l1=0x0b, l2=»3860WHEN 4 «, l3=0x0b}
0x27a9…27c0 Line {l1=0x15, l2=»3870IF FOUND=E THEN «, l3=0x15}
0x27c0…27eb Line {l1=0x29, l2=»3880INPUT "Akkord findes, RETURN ",LINE$ «, l3=0x29}
0x27eb…27f7 Line {l1=0x0a, l2=»3890ELSE «, l3=0x0a}
0x27f7…280c Line {l1=0x13, l2=»3900EXEC SKRIVPICT «, l3=0x13}
0x280c…281f Line {l1=0x11, l2=»3910LINE$=AKKNR$ «, l3=0x11}
0x281f…2835 Line {l1=0x14, l2=»3920EXEC OUTLINE(1) «, l3=0x14}
0x2835…2848 Line {l1=0x11, l2=»3930FOR J=G TO 4 «, l3=0x11}
0x2848…285c Line {l1=0x12, l2=»3940EXEC INOPL(J) «, l3=0x12}
0x285c…2869 Line {l1=0x0b, l2=»3950NEXT J «, l3=0x0b}
0x2869…2889 Line {l1=0x1e, l2=»3960AKK$(28,38)=" 0+" «, l3=0x1e}
0x2889…2898 Line {l1=0x0d, l2=»3970TTIMER=B «, l3=0x0d}
0x2898…28ac Line {l1=0x12, l2=»3980FOR J=E TO 30 «, l3=0x12}
0x28ac…28b9 Line {l1=0x0b, l2=»3990M(J)=B «, l3=0x0b}
0x28b9…28c6 Line {l1=0x0b, l2=»4000NEXT J «, l3=0x0b}
0x28c6…28d4 Line {l1=0x0c, l2=»4010REPEAT «, l3=0x0c}
0x28d4…28e2 Line {l1=0x0c, l2=»4020REPEAT «, l3=0x0c}
0x28e2…28ee Line {l1=0x0a, l2=»4030SV1=B «, l3=0x0a}
0x28ee…2900 Line {l1=0x10, l2=»4040CURSOR E,23 «, l3=0x10}
0x2900…2919 Line {l1=0x17, l2=»4050EDIT "Feltnr ",SV1 «, l3=0x17}
0x2919…293e Line {l1=0x23, l2=»4060UNTIL SV1>E AND SV1<5 OR SV1=B «, l3=0x23}
0x293e…2953 Line {l1=0x13, l2=»4070IF SV1>B THEN «, l3=0x13}
0x2953…2969 Line {l1=0x14, l2=»4080EXEC INOPL(SV1) «, l3=0x14}
0x2969…2976 Line {l1=0x0b, l2=»4090ENDIF «, l3=0x0b}
0x2976…2988 Line {l1=0x10, l2=»4100UNTIL SV1=B «, l3=0x10}
0x2988…299a Line {l1=0x10, l2=»4110EXEC INDSÆT «, l3=0x10}
0x299a…29a7 Line {l1=0x0b, l2=»4120ENDIF «, l3=0x0b}
0x29a7…29b4 Line {l1=0x0b, l2=»4130WHEN 5 «, l3=0x0b}
0x29b4…29c8 Line {l1=0x12, l2=»4140FOR I=E TO 30 «, l3=0x12}
0x29c8…29df Line {l1=0x15, l2=»4150IF M(I)<>B THEN «, l3=0x15}
0x29df…29ed Line {l1=0x0c, l2=»4160FOUND=B «, l3=0x0c}
0x29ed…29f8 Line {l1=0x09, l2=»4170I=40 «, l3=0x09}
0x29f8…2a05 Line {l1=0x0b, l2=»4180ENDIF «, l3=0x0b}
0x2a05…2a12 Line {l1=0x0b, l2=»4190NEXT I «, l3=0x0b}
0x2a12…2a29 Line {l1=0x15, l2=»4200IF FOUND=E THEN «, l3=0x15}
0x2a29…2a35 Line {l1=0x0a, l2=»4210SV1=G «, l3=0x0a}
0x2a35…2a49 Line {l1=0x12, l2=»4220EXEC SKRIVOPL «, l3=0x12}
0x2a49…2a67 Line {l1=0x1c, l2=»4230WHILE SV1<>B AND SV1<>E «, l3=0x1c}
0x2a67…2a73 Line {l1=0x0a, l2=»4240SV1=B «, l3=0x0a}
0x2a73…2a85 Line {l1=0x10, l2=»4250CURSOR E,23 «, l3=0x10}
0x2a85…2aac Line {l1=0x25, l2=»4260EDIT "Sletning korrekt 1: ",SV1 «, l3=0x25}
0x2aac…2abc Line {l1=0x0e, l2=»4270ENDWHILE «, l3=0x0e}
0x2abc…2ad1 Line {l1=0x13, l2=»4280IF SV1=E THEN «, l3=0x13}
0x2ad1…2ae1 Line {l1=0x0e, l2=»4290EXEC SLET «, l3=0x0e}
0x2ae1…2aee Line {l1=0x0b, l2=»4300ENDIF «, l3=0x0b}
0x2aee…2afa Line {l1=0x0a, l2=»4310ELSE «, l3=0x0a}
0x2afa…2b2f Line {l1=0x33, l2=»4320INPUT "Akkord kan ikke slettes, RETURN ",LINE$ «, l3=0x33}
0x2b2f…2b3c Line {l1=0x0b, l2=»4330ENDIF «, l3=0x0b}
0x2b3c…2b4b Line {l1=0x0d, l2=»4340ENDCASE «, l3=0x0d}
0x2b4b…2b58 Line {l1=0x0b, l2=»4350ENDIF «, l3=0x0b}
0x2b58…2b69 Line {l1=0x0f, l2=»4360UNTIL SV=B «, l3=0x0f}
0x2b69…2b7c Line {l1=0x11, l2=»4370EXEC UDTABEL «, l3=0x11}
0x2b7c…2b89 Line {l1=0x0b, l2=»4380CLOSE «, l3=0x0b}
0x2b89…2ba6 Line {l1=0x1b, l2=»4390CHAIN "P641210:STARTB" «, l3=0x1b}
0x2ba6…2bc0 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 ┆ ┆
0x2bc0…2be0 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 ┆ ┆
[…0x2c…]