|
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: »AKKRVEDL.K«
└─⟦385f097a1⟧ Bits:30008988 SPC/1 COMAL programmer til bogføring
└─⟦this⟧ »AKKRVEDL.K«
0010DIM POST4$(34),FIL7$(20),AKKTIM(10),AKKS$(10,16),B3$(12),DAD$(6) 0100DIM AKK$(49),NR$(606),Å(100),M(30),FIL8$(20),FIL9$(20),AKKNR$(6) 0105DIM RES$(15),OP1$(12),OP2$(12),RESUL$(12),TAH$(12),RESUL1$(12) 0110PROC CALC(AR3,B1,B2,ES) 0115RES$=ES$;OP1$=B1$;OP2$=B2$;SI=B;FLAG=B;ART=AR3-6*(AR3>5) 0120CALL "P641210:REGN" 0125IF AR3<6 THEN 0130IF FLAG THEN STOP 0135ENDIF 0140ES$=RES$ 0145ENDPROC 0150PROC CONV(NR2,OK22,CIF) 0155OK2=ABS(OK22) 0160NR2$="" 0165REPEAT 0170NR2$=CHR((OK2 MOD 10)+48)+NR2$ 0175CIF=CIF-E 0180OK2=OK2 DIV 10 0185IF CIF<B AND OK2=B THEN CIF=B 0190UNTIL CIF=B 0193IF OK22<B THEN NR2$="-"+NR2$ 0195ENDPROC 0200PROC INDAKK 0205L=E;U=MAX 0210IF U>B THEN 0215REPEAT 0220PEG=(L+U) DIV G 0225IF AKKNR$>NR$((PEG-E)*6+E:6) THEN 0230L=PEG+E 0235ELSE 0240U=PEG-E 0245ENDIF 0250UNTIL L>U OR AKKNR$=NR$((PEG-E)*6+E:6) 0255ENDIF 0260L=U+E 0265IF NR$((L-E)*6+E:6)=AKKNR$ THEN 0270FOUND=E 0275PEG=Å(L) 0280GET FIL8$,PEG:AKK$(E,27),TTIMER,RTIMER 0285GET FIL8$,PEG+E:AKK$(28,49),M(E),M(G),M(V) 0290GET FIL8$,PEG+G:M(4),M(5),M(6),M(7),M(8),M(W),M(10),M(11),M(12) 0295GET FIL8$,PEG+V:M(13),M(14),M(15),M(16),M(17),M(18),M(19),M(20),M(21) 0300GET FIL8$,PEG+4:M(22),M(23),M(24),M(25),M(26),M(27),M(28),M(29),M(30) 0305EXEC FEJL(B,PEG,FIL8$) 0310IF AKK$(E,6)<>AKKNR$ THEN FOUND=-E 0315ELSE 0320FOUND=B 0325ENDIF 0330ENDPROC 0335PROC UDAKK 0340PUT FIL8$,PEG:AKK$(E,27),TTIMER,RTIMER 0345PUT FIL8$,PEG+E:AKK$(28,49),M(E),M(G),M(V) 0350PUT FIL8$,PEG+G:M(4),M(5),M(6),M(7),M(8),M(W),M(10),M(11),M(12) 0355PUT FIL8$,PEG+V:M(13),M(14),M(15),M(16),M(17),M(18),M(19),M(20),M(21) 0360PUT FIL8$,PEG+4:M(22),M(23),M(24),M(25),M(26),M(27),M(28),M(29),M(30) 0365EXEC FEJL(E,PEG,FIL8$) 0370ENDPROC 0375PROC INDTABEL 0380FIL9$="P641220:AKKTABEL" 0385OPEN FIL9$,R 0390EXEC FEJL(B,B,FIL9$) 0395FOR I=E TO 10 0400GET FIL9$:NR$((I-E)*60+E:60) 0405NEXT I 0410GET FIL9$:Å(E),Å(G),Å(V),Å(4),Å(5),Å(6),Å(7),Å(8),Å(W),Å(10) 0415GET FIL9$:Å(11),Å(12),Å(13),Å(14),Å(15),Å(16),Å(17),Å(18),Å(19),Å(20) 0420GET FIL9$:Å(21),Å(22),Å(23),Å(24),Å(25),Å(26),Å(27),Å(28),Å(29),Å(30) 0425GET FIL9$:Å(31),Å(32),Å(33),Å(34),Å(35),Å(36),Å(37),Å(38),Å(39),Å(40) 0430GET FIL9$:Å(41),Å(42),Å(43),Å(44),Å(45),Å(46),Å(47),Å(48),Å(49),Å(50) 0435GET FIL9$:Å(51),Å(52),Å(53),Å(54),Å(55),Å(56),Å(57),Å(58),Å(59),Å(60) 0440GET FIL9$:Å(61),Å(62),Å(63),Å(64),Å(65),Å(66),Å(67),Å(68),Å(69),Å(70) 0445GET FIL9$:Å(71),Å(72),Å(73),Å(74),Å(75),Å(76),Å(77),Å(78),Å(79),Å(80) 0450GET FIL9$:Å(81),Å(82),Å(83),Å(84),Å(85),Å(86),Å(87),Å(88),Å(89),Å(90) 0455GET FIL9$:Å(91),Å(92),Å(93),Å(94),Å(95),Å(96),Å(97),Å(98),Å(99),Å(100) 0460EXEC FEJL(E,B,FIL9$) 0465FOR I=B TO 99 0470IF NR$(I*6+E:6)=" " THEN 0475MAX=I;I=100 0480ENDIF 0485NEXT I 0490CLOSE FIL9$ 0495ENDPROC 0500PROC INDREGNS(N) 0510J=10*(N-E) 0520FOR I=E TO 10 0530GET FIL7$,J+I:AKKTIM(I),AKKS$(I) 0540NEXT I 0550EXEC FEJL(N,J,FIL7$) 0560ENDPROC 0600PROC UDREGNS(N) 0610J=10*(N-E) 0620FOR I=E TO 10 0630PUT FIL7$,J+I:AKKTIM(I),AKKS$(I) 0640NEXT I 0650EXEC FEJL(-N,J,FIL7$) 0660ENDPROC 0850PROC INLØNMOD(N) 0865GET FIL$,G*N-E:POST1$ 0880GET FIL$,G*N:POST2$,C1,C2,LT,LF,LR,LA,RPI,K1,K2,FG,FD 0895EXEC FEJL(E,N,FIL$) 0910ENDPROC 0915B3$=" 0+" 0916TI=10;EL=11 0920PROC Æ(I1,I2) 0930I1$=B3$ 0940IF I2<>B THEN 0950I1$(W,TI)=",0";I0=ABS(I2);K0=INT((I0-INT(I0))*100+0.50001) 0960IF I2<B THEN I1$(12)="-" 0970FOR I=EL TO E STEP -E 0980IF I<>W THEN 0990I1$(I)=CHR(K0 MOD TI+48) 1000K0=K0 DIV TI 1010IF K0=B AND I<TI THEN I=B 1020ELSE 1030K0=INT(I0) 1040ENDIF 1050NEXT I 1060ENDIF 1070ENDPROC 1150PROC CHECK(NR1,OK1) 1165OK1=B 1180RESULT=B 1195IF LEN(NR1$)>B THEN 1210IF NR1$(E)="-" THEN 1225FORTEGN=-E 1240OK1=E 1255ELSE 1270FORTEGN=E 1285ENDIF 1300WHILE LEN(NR1$)>OK1 1315OK1=OK1+E 1330IF NR1$(OK1)<"0" OR NR1$(OK1)>"9" THEN 1345FORTEGN=B 1360OK1=LEN(NR1$) 1375ENDIF 1390RESULT=RESULT*10+ORD(NR1$(OK1))-48 1405ENDWHILE 1420OK1=OK1*FORTEGN 1435IF OK1<B THEN OK1=OK1+E 1450ENDIF 1465ENDPROC 1480PROC INOPL(OPL) 1510CASE OPL OF 1525WHEN E 1530EXEC INLINE(OPL) 1540LMNR=RESULT 1555WHEN G 1570POST1$(E,25)=LINE$ 1585WHEN V,4,5,6,7,8,W,10,11,12 1600REPEAT 1610LINE$=AKKS$(OPL-G,11,16) 1620CURSOR E,OPL+V 1630PRINT USING "### ":OPL 1640CURSOR 11,OPL+V 1650EDIT "",LINE$ 1660OK=B 1670IF LEN(LINE$)>B AND LEN(LINE$)<=6 THEN 1680OK=E 1690FOR I=LEN(LINE$)+E TO 6 1700LINE$=LINE$+" " 1705IF LINE$="0 " THEN LINE$=" " 1710NEXT I 1720AKKNR$=LINE$ 1730IF AKKNR$<>" " THEN 1740EXEC INDAKK 1750OK=FOUND 1760ENDIF 1770ENDIF 1780UNTIL OK<>B 1790IF OK<>E THEN STOP 1800IF AKKS$(OPL-G,11,16)<>" " THEN 1810IF AKKNR$<>AKKS$(OPL-G,11,16) THEN 1820AKKNR$=AKKS$(OPL-G,11,16) 1830EXEC INDAKK 1840IF FOUND<>E THEN STOP 1850FOR I=E TO 30 1860IF ABS(M(I))=LMNR THEN FOUND=B 1870IF FOUND=B AND I<30 THEN M(I)=M(I+E) 1880NEXT I 1890IF FOUND=B THEN 1900M(30)=B 1910TTIMER=TTIMER-ABS(AKKTIM(OPL-G)) 1920RESUL$=AKK$(28,38) 1930RESUL1$=AKKS$(OPL-G,E,10) 1940EXEC CALC(E,RESUL$,RESUL1$,RESUL$) 1950AKK$(28,38)=RESUL$(G:11) 1960ELSE 1970STOP 1980ENDIF 1990EXEC UDAKK 2000AKKNR$=LINE$ 2010IF AKKNR$<>" " THEN EXEC INDAKK 2020ELSE 2030TTIMER=TTIMER-ABS(AKKTIM(OPL-G)) 2040RESUL$=AKK$(28,38) 2050RESUL1$=AKKS$(OPL-G,E,10) 2060EXEC CALC(E,RESUL$,RESUL1$,RESUL$) 2070AKK$(28,38)=RESUL$(G:11) 2080ENDIF 2090ENDIF 2100IF AKKNR$<>" " THEN 2110IF AKKNR$<>AKKS$(OPL-G,11,16) THEN 2120FOR I=E TO 30 2130IF ABS(M(I))=LMNR THEN 2140I=100 2150ELSE 2160IF M(I)=B THEN M(I)=LMNR;I=I+30 2170ENDIF 2180NEXT I 2185CURSOR E,22 2190IF I>100 THEN INPUT "Findes allerede på akkord, RETURN ",LINE$ 2200IF I<32 THEN INPUT "Ikke plads til flere på akkord, RETURN ",LINE$ 2210ELSE 2220FOR I=E TO 30 2230IF ABS(M(I))=LMNR THEN M(I)=LMNR;I=I+30 2240NEXT I 2250IF I<32 THEN STOP 2260ENDIF 2270I=I-31 2280IF I>B AND I<31 THEN 2290REPEAT 2300LINE$=AKKS$(OPL-G,E,10) 2305IF LINE$(10)="+" THEN LINE$(10)=" " 2310CURSOR 22,OPL+V 2320EDIT "",LINE$ 2330LINE$=LINE$+"+" 2340EXEC CALC(6,LINE$,TAH$,RESUL$) 2350UNTIL FLAG=B 2360AKKS$(OPL-G,E,10)=RESUL$(V:10) 2370RESUL1$=AKK$(28,38) 2380EXEC CALC(B,RESUL$,RESUL1$,RESUL1$) 2390AKK$(28,38)=RESUL1$(G:11) 2400TIM=AKKTIM(OPL-G) 2410CURSOR 37,OPL+V 2420EDIT "",TIM 2430AKKTIM(OPL-G)=TIM 2440TTIMER=TTIMER+ABS(TIM) 2450IF TIM<B THEN M(I)=-M(I) 2460AKKS$(OPL-G,11,16)=AKKNR$ 2470EXEC UDAKK 2480ELSE 2490AKKNR$=" " 2500ENDIF 2510ENDIF 2520IF AKKNR$=" " THEN 2530AKKTIM(OPL-G)=B 2540AKKS$(OPL-G)=" " 2550ENDIF 2950ENDCASE 2965ENDPROC 2980PROC SKRIVOPL 2995IF OUTP=B THEN CLEAR 3000PRINT "A K K O R D R E G N S K A B E R";TAB(60);"Dato ";DAD$ 3010FOR J=E TO A 3025CASE J OF 3040WHEN E 3055EXEC CONV(LINE$,LMNR,0) 3070WHEN G 3085LINE$=POST1$(E,25) 3100WHEN V,4,5,6,7,8,W,10,11,12 3115EXEC Æ(RESUL$,AKKTIM(J-2)) 3120IF RESUL$(12)="+" THEN RESUL$(12)=" " 3125LINE$=" "+AKKS$(J-G,11,16)+" "+AKKS$(J-G,E,10)+" "+RESUL$ 3135IF LINE$(26)="+" THEN LINE$(26)=" " 3730ENDCASE 3732IF J=V THEN 3734PRINT 3736PRINT 3738PRINT " AKKORD UDBETALT TIMER" 3740ENDIF 3745IF OUTP=B THEN 3760EXEC OUTLINE(J) 3775ELSE 3790EXEC OUTPLINE(J) 3805ENDIF 3820NEXT J 3835ENDPROC 3850PROC OUTLINE(N) 3865CURSOR X(N),Y(N) 3880PRINT USING "### ":N; 3895PRINT PICT$(N);":";LINE$ 3910ENDPROC 3925PROC INDVIRK 3940OPEN FIL$,W 3955EXEC FEJL(B,B,FIL$) 3985GET FIL$,G:POST4$,SLJNR,MLMNR,ATPLM 3990GET FIL$,V:DAD$ 4000ENDPROC 4015PROC FEJL(P1,P2,P3) 4030IF STATUS(P3$)<>B THEN 4045OUTPUT T 4060PRINT "FIL-FEJL ";P3$;STATUS(P3$),P1;P2 4075STOP 4090ENDIF 4105ENDPROC 4120PROC INLINE(N) 4135REPEAT 4150CURSOR X(N)+5+LEN(PICT$(N)),Y(N) 4165PRINT BL$(E:ABS(TYPE(N))+V) 4180CURSOR X(N),Y(N) 4195PRINT USING "### ":N; 4210PRINT PICT$(N);":"; 4225INPUT "",LINE$ 4240IF TYPE(N)<B THEN 4255IF LEN(LINE$)<=ABS(TYPE(N)) THEN 4270OK=E 4285FOR I=LEN(LINE$)+E TO ABS(TYPE(N)) 4300LINE$(I)=" " 4315NEXT I 4330ELSE 4345OK=B 4360ENDIF 4375ELSE 4390EXEC CHECK(LINE$,OK) 4405IF TYPE(N)>B AND TYPE(N)<>OK THEN OK=B 4420ENDIF 4435UNTIL OK<>B 4450ENDPROC 4585PROC OUTPLINE(N) 4600PRINT TAB(X(N)); 4615PRINT USING "### ":N; 4630PRINT PICT$(N);":";LINE$; 4632IF N=12 THEN 4634PRINT 4636ELSE 4638IF Y(N)<Y(N+E) THEN PRINT 4640ENDIF 4645ENDPROC 4660A=12 4675DIM X(A),Y(A),PICT$(A,20),TYPE(A) 4690DIM POST1$(71),POST2$(27) 4705DIM BL$(79),LINE$(50),FIL$(20) 4720FOR I=E TO 79 4735BL$=BL$+" " 4750NEXT I 4765FIL$="P641220:VIRKKART" 4780X(E)=E 4795X(G)=30 4810X(V)=E 4825X(4)=E 4840X(5)=E 4855X(6)=E 4870X(7)=E 4885X(8)=E 4900X(W)=E 4915X(10)=E 4930X(11)=E 4945X(12)=E 5095Y(E)=G 5110Y(G)=G 5125Y(V)=6 5140Y(4)=7 5155Y(5)=8 5170Y(6)=W 5185Y(7)=10 5200Y(8)=11 5215Y(W)=12 5230Y(10)=13 5245Y(11)=14 5260Y(12)=15 5410TYPE(E)=B 5425TYPE(G)=-25 5440FOR I=V TO 12 5450TYPE(I)=-6 5455PICT$(I)="" 5460NEXT I 5725PICT$(E)="Lønnr" 5740PICT$(G)="Navn" 6040EXEC INDVIRK 6055CLOSE FIL$ 6070FIL$="P641220:LØNMODRG" 6085OPEN FIL$,R 6100EXEC FEJL(B,B,FIL$) 6102FIL8$="P641220:AKKHOVED" 6104OPEN FIL8$,W 6106EXEC FEJL(B,B,FIL8$) 6108EXEC INDTABEL 6110FIL7$="P641220:AKKREGNS" 6112OPEN FIL7$,W 6114EXEC FEJL(B,B,FIL7$) 6130OUTP=B 6145TAH$=" 0+" 6250REPEAT 6265SV=G 6280CLEAR 6295CURSOR 10,10 6310PRINT "A K K O R D R E G N S K A B S - K A R T O T E K" 6325PRINT 6340PRINT TAB(10);"0 Færdig" 6355PRINT TAB(10);"1 Ændring" 6370PRINT TAB(10);"2 Udskrift på skærm" 6385PRINT TAB(10);"3 Udskrift på printer" 6430PRINT 6445REPEAT 6460CURSOR E,19 6475EDIT " ",SV 6490UNTIL SV=>B AND SV<=V 6505IF SV>B THEN 6520REPEAT 6535EXEC INOPL(1) 6550UNTIL LMNR=>B AND LMNR<=MLMNR 6551LISTE=B 6552IF LMNR=B THEN LISTE=E 6553REPEAT 6554IF LISTE=E THEN LMNR=LMNR+E 6565EXEC INLØNMOD(LMNR) 6570IF LA<>B THEN EXEC INDREGNS(LMNR) 6580CASE SV OF 6595WHEN E 6610IF LA<>B THEN 6625EXEC SKRIVOPL 6640REPEAT 6655REPEAT 6670SV1=B 6685CURSOR E,23 6700EDIT "Feltnr ",SV1 6715UNTIL SV1>G AND SV1<13 OR SV1=B 6730IF SV1>B THEN 6745EXEC INOPL(SV1) 6750EXEC SKRIVOPL 6760ENDIF 6775UNTIL SV1=B 6790EXEC UDREGNS(LMNR) 6805ELSE 6820PRINT "Lønmodtager findes ikke" 6835INPUT "RETURN",LINE$ 6850ENDIF 6865WHEN G 6880IF LA<>B THEN 6895OUTP=B 6910EXEC SKRIVOPL 6925INPUT "RETURN",LINE$ 6940ELSE 6955PRINT "Lønmodtager findes ikke" 6970INPUT "RETURN",LINE$ 6985ENDIF 7000WHEN V 7015IF LA<>B OR LISTE=E THEN 7016IF LA<>B THEN 7030OUTPUT P 7045OUTP=E 7050PRINT 7051PRINT 7060EXEC SKRIVOPL 7062FOR I=17 TO 72 7064PRINT 7066NEXT I 7075OUTP=B 7090OUTPUT T 7095ENDIF 7105ELSE 7120PRINT "Lønmodtager findes ikke" 7135INPUT "RETURN",LINE$ 7150ENDIF 8005ENDCASE 8006UNTIL LISTE=B OR LMNR=>MLMNR 8010ENDIF 8020UNTIL SV=B 8035CLOSE 8065CHAIN "P641210:STARTB"
0x0000…0047 Line {l1=0x45, l2=»0010DIM POST4$(34),FIL7$(20),AKKTIM(10),AKKS$(10,16),B3$(12),DAD$(6) «, l3=0x45}
0x0047…008e Line {l1=0x45, l2=»0100DIM AKK$(49),NR$(606),Å(100),M(30),FIL8$(20),FIL9$(20),AKKNR$(6) «, l3=0x45}
0x008e…00d3 Line {l1=0x43, l2=»0105DIM RES$(15),OP1$(12),OP2$(12),RESUL$(12),TAH$(12),RESUL1$(12) «, l3=0x43}
0x00d3…00f1 Line {l1=0x1c, l2=»0110PROC CALC(AR3,B1,B2,ES) «, l3=0x1c}
0x00f1…0130 Line {l1=0x3d, l2=»0115RES$=ES$;OP1$=B1$;OP2$=B2$;SI=B;FLAG=B;ART=AR3-6*(AR3>5) «, l3=0x3d}
0x0130…014a Line {l1=0x18, l2=»0120CALL "P641210:REGN" «, l3=0x18}
0x014a…015f Line {l1=0x13, l2=»0125IF AR3<6 THEN «, l3=0x13}
0x015f…0178 Line {l1=0x17, l2=»0130IF FLAG THEN STOP «, l3=0x17}
0x0178…0185 Line {l1=0x0b, l2=»0135ENDIF «, l3=0x0b}
0x0185…0194 Line {l1=0x0d, l2=»0140ES$=RES$ «, l3=0x0d}
0x0194…01a3 Line {l1=0x0d, l2=»0145ENDPROC «, l3=0x0d}
0x01a3…01c1 Line {l1=0x1c, l2=»0150PROC CONV(NR2,OK22,CIF) «, l3=0x1c}
0x01c1…01d5 Line {l1=0x12, l2=»0155OK2=ABS(OK22) «, l3=0x12}
0x01d5…01e3 Line {l1=0x0c, l2=»0160NR2$="" «, l3=0x0c}
0x01e3…01f1 Line {l1=0x0c, l2=»0165REPEAT «, l3=0x0c}
0x01f1…0216 Line {l1=0x23, l2=»0170NR2$=CHR((OK2 MOD 10)+48)+NR2$ «, l3=0x23}
0x0216…0226 Line {l1=0x0e, l2=»0175CIF=CIF-E «, l3=0x0e}
0x0226…023b Line {l1=0x13, l2=»0180OK2=OK2 DIV 10 «, l3=0x13}
0x023b…025f Line {l1=0x22, l2=»0185IF CIF<B AND OK2=B THEN CIF=B «, l3=0x22}
0x025f…0271 Line {l1=0x10, l2=»0190UNTIL CIF=B «, l3=0x10}
0x0271…0294 Line {l1=0x21, l2=»0193IF OK22<B THEN NR2$="-"+NR2$ «, l3=0x21}
0x0294…02a3 Line {l1=0x0d, l2=»0195ENDPROC «, l3=0x0d}
0x02a3…02b5 Line {l1=0x10, l2=»0200PROC INDAKK «, l3=0x10}
0x02b5…02c5 Line {l1=0x0e, l2=»0205L=E;U=MAX «, l3=0x0e}
0x02c5…02d8 Line {l1=0x11, l2=»0210IF U>B THEN «, l3=0x11}
0x02d8…02e6 Line {l1=0x0c, l2=»0215REPEAT «, l3=0x0c}
0x02e6…02fc Line {l1=0x14, l2=»0220PEG=(L+U) DIV G «, l3=0x14}
0x02fc…0325 Line {l1=0x27, l2=»0225IF AKKNR$>NR$((PEG-E)*6+E:6) THEN «, l3=0x27}
0x0325…0333 Line {l1=0x0c, l2=»0230L=PEG+E «, l3=0x0c}
0x0333…033f Line {l1=0x0a, l2=»0235ELSE «, l3=0x0a}
0x033f…034d Line {l1=0x0c, l2=»0240U=PEG-E «, l3=0x0c}
0x034d…035a Line {l1=0x0b, l2=»0245ENDIF «, l3=0x0b}
0x035a…0387 Line {l1=0x2b, l2=»0250UNTIL L>U OR AKKNR$=NR$((PEG-E)*6+E:6) «, l3=0x2b}
0x0387…0394 Line {l1=0x0b, l2=»0255ENDIF «, l3=0x0b}
0x0394…03a0 Line {l1=0x0a, l2=»0260L=U+E «, l3=0x0a}
0x03a0…03c7 Line {l1=0x25, l2=»0265IF NR$((L-E)*6+E:6)=AKKNR$ THEN «, l3=0x25}
0x03c7…03d5 Line {l1=0x0c, l2=»0270FOUND=E «, l3=0x0c}
0x03d5…03e4 Line {l1=0x0d, l2=»0275PEG=Å(L) «, l3=0x0d}
0x03e4…0411 Line {l1=0x2b, l2=»0280GET FIL8$,PEG:AKK$(E,27),TTIMER,RTIMER «, l3=0x2b}
0x0411…0442 Line {l1=0x2f, l2=»0285GET FIL8$,PEG+E:AKK$(28,49),M(E),M(G),M(V) «, l3=0x2f}
0x0442…0488 Line {l1=0x44, l2=»0290GET FIL8$,PEG+G:M(4),M(5),M(6),M(7),M(8),M(W),M(10),M(11),M(12) «, l3=0x44}
0x0488…04d4 Line {l1=0x4a, l2=»0295GET FIL8$,PEG+V:M(13),M(14),M(15),M(16),M(17),M(18),M(19),M(20),M(21) «, l3=0x4a}
0x04d4…0520 Line {l1=0x4a, l2=»0300GET FIL8$,PEG+4:M(22),M(23),M(24),M(25),M(26),M(27),M(28),M(29),M(30) «, l3=0x4a}
0x0520…053d Line {l1=0x1b, l2=»0305EXEC FEJL(B,PEG,FIL8$) «, l3=0x1b}
0x053d…0566 Line {l1=0x27, l2=»0310IF AKK$(E,6)<>AKKNR$ THEN FOUND=-E «, l3=0x27}
0x0566…0572 Line {l1=0x0a, l2=»0315ELSE «, l3=0x0a}
0x0572…0580 Line {l1=0x0c, l2=»0320FOUND=B «, l3=0x0c}
0x0580…058d Line {l1=0x0b, l2=»0325ENDIF «, l3=0x0b}
0x058d…059c Line {l1=0x0d, l2=»0330ENDPROC «, l3=0x0d}
0x059c…05ad Line {l1=0x0f, l2=»0335PROC UDAKK «, l3=0x0f}
0x05ad…05da Line {l1=0x2b, l2=»0340PUT FIL8$,PEG:AKK$(E,27),TTIMER,RTIMER «, l3=0x2b}
0x05da…060b Line {l1=0x2f, l2=»0345PUT FIL8$,PEG+E:AKK$(28,49),M(E),M(G),M(V) «, l3=0x2f}
0x060b…0651 Line {l1=0x44, l2=»0350PUT FIL8$,PEG+G:M(4),M(5),M(6),M(7),M(8),M(W),M(10),M(11),M(12) «, l3=0x44}
0x0651…069d Line {l1=0x4a, l2=»0355PUT FIL8$,PEG+V:M(13),M(14),M(15),M(16),M(17),M(18),M(19),M(20),M(21) «, l3=0x4a}
0x069d…06e9 Line {l1=0x4a, l2=»0360PUT FIL8$,PEG+4:M(22),M(23),M(24),M(25),M(26),M(27),M(28),M(29),M(30) «, l3=0x4a}
0x06e9…0706 Line {l1=0x1b, l2=»0365EXEC FEJL(E,PEG,FIL8$) «, l3=0x1b}
0x0706…0715 Line {l1=0x0d, l2=»0370ENDPROC «, l3=0x0d}
0x0715…0729 Line {l1=0x12, l2=»0375PROC INDTABEL «, l3=0x12}
0x0729…0748 Line {l1=0x1d, l2=»0380FIL9$="P641220:AKKTABEL" «, l3=0x1d}
0x0748…075b Line {l1=0x11, l2=»0385OPEN FIL9$,R «, l3=0x11}
0x075b…0776 Line {l1=0x19, l2=»0390EXEC FEJL(B,B,FIL9$) «, l3=0x19}
0x0776…078a Line {l1=0x12, l2=»0395FOR I=E TO 10 «, l3=0x12}
0x078a…07ad Line {l1=0x21, l2=»0400GET FIL9$:NR$((I-E)*60+E:60) «, l3=0x21}
0x07ad…07ba Line {l1=0x0b, l2=»0405NEXT I «, l3=0x0b}
0x07ba…07fd Line {l1=0x41, l2=»0410GET FIL9$:Å(E),Å(G),Å(V),Å(4),Å(5),Å(6),Å(7),Å(8),Å(W),Å(10) «, l3=0x41}
0x07fd…0849 Line {l1=0x4a, l2=»0415GET FIL9$:Å(11),Å(12),Å(13),Å(14),Å(15),Å(16),Å(17),Å(18),Å(19),Å(20) «, l3=0x4a}
0x0849…0895 Line {l1=0x4a, l2=»0420GET FIL9$:Å(21),Å(22),Å(23),Å(24),Å(25),Å(26),Å(27),Å(28),Å(29),Å(30) «, l3=0x4a}
0x0895…08e1 Line {l1=0x4a, l2=»0425GET FIL9$:Å(31),Å(32),Å(33),Å(34),Å(35),Å(36),Å(37),Å(38),Å(39),Å(40) «, l3=0x4a}
0x08e1…092d Line {l1=0x4a, l2=»0430GET FIL9$:Å(41),Å(42),Å(43),Å(44),Å(45),Å(46),Å(47),Å(48),Å(49),Å(50) «, l3=0x4a}
0x092d…0979 Line {l1=0x4a, l2=»0435GET FIL9$:Å(51),Å(52),Å(53),Å(54),Å(55),Å(56),Å(57),Å(58),Å(59),Å(60) «, l3=0x4a}
0x0979…09c5 Line {l1=0x4a, l2=»0440GET FIL9$:Å(61),Å(62),Å(63),Å(64),Å(65),Å(66),Å(67),Å(68),Å(69),Å(70) «, l3=0x4a}
0x09c5…0a11 Line {l1=0x4a, l2=»0445GET FIL9$:Å(71),Å(72),Å(73),Å(74),Å(75),Å(76),Å(77),Å(78),Å(79),Å(80) «, l3=0x4a}
0x0a11…0a5d Line {l1=0x4a, l2=»0450GET FIL9$:Å(81),Å(82),Å(83),Å(84),Å(85),Å(86),Å(87),Å(88),Å(89),Å(90) «, l3=0x4a}
0x0a5d…0aaa Line {l1=0x4b, l2=»0455GET FIL9$:Å(91),Å(92),Å(93),Å(94),Å(95),Å(96),Å(97),Å(98),Å(99),Å(100) «, l3=0x4b}
0x0aaa…0ac5 Line {l1=0x19, l2=»0460EXEC FEJL(E,B,FIL9$) «, l3=0x19}
0x0ac5…0ad9 Line {l1=0x12, l2=»0465FOR I=B TO 99 «, l3=0x12}
0x0ad9…0afe Line {l1=0x23, l2=»0470IF NR$(I*6+E:6)=" " THEN «, l3=0x23}
0x0afe…0b10 Line {l1=0x10, l2=»0475MAX=I;I=100 «, l3=0x10}
0x0b10…0b1d Line {l1=0x0b, l2=»0480ENDIF «, l3=0x0b}
0x0b1d…0b2a Line {l1=0x0b, l2=»0485NEXT I «, l3=0x0b}
0x0b2a…0b3c Line {l1=0x10, l2=»0490CLOSE FIL9$ «, l3=0x10}
0x0b3c…0b4b Line {l1=0x0d, l2=»0495ENDPROC «, l3=0x0d}
0x0b4b…0b62 Line {l1=0x15, l2=»0500PROC INDREGNS(N) «, l3=0x15}
0x0b62…0b73 Line {l1=0x0f, l2=»0510J=10*(N-E) «, l3=0x0f}
0x0b73…0b87 Line {l1=0x12, l2=»0520FOR I=E TO 10 «, l3=0x12}
0x0b87…0bae Line {l1=0x25, l2=»0530GET FIL7$,J+I:AKKTIM(I),AKKS$(I) «, l3=0x25}
0x0bae…0bbb Line {l1=0x0b, l2=»0540NEXT I «, l3=0x0b}
0x0bbb…0bd6 Line {l1=0x19, l2=»0550EXEC FEJL(N,J,FIL7$) «, l3=0x19}
0x0bd6…0be5 Line {l1=0x0d, l2=»0560ENDPROC «, l3=0x0d}
0x0be5…0bfb Line {l1=0x14, l2=»0600PROC UDREGNS(N) «, l3=0x14}
0x0bfb…0c0c Line {l1=0x0f, l2=»0610J=10*(N-E) «, l3=0x0f}
0x0c0c…0c20 Line {l1=0x12, l2=»0620FOR I=E TO 10 «, l3=0x12}
0x0c20…0c47 Line {l1=0x25, l2=»0630PUT FIL7$,J+I:AKKTIM(I),AKKS$(I) «, l3=0x25}
0x0c47…0c54 Line {l1=0x0b, l2=»0640NEXT I «, l3=0x0b}
0x0c54…0c70 Line {l1=0x1a, l2=»0650EXEC FEJL(-N,J,FIL7$) «, l3=0x1a}
0x0c70…0c7f Line {l1=0x0d, l2=»0660ENDPROC «, l3=0x0d}
0x0c7f…0c96 Line {l1=0x15, l2=»0850PROC INLØNMOD(N) «, l3=0x15}
0x0c96…0cb2 Line {l1=0x1a, l2=»0865GET FIL$,G*N-E:POST1$ «, l3=0x1a}
0x0cb2…0cee Line {l1=0x3a, l2=»0880GET FIL$,G*N:POST2$,C1,C2,LT,LF,LR,LA,RPI,K1,K2,FG,FD «, l3=0x3a}
0x0cee…0d08 Line {l1=0x18, l2=»0895EXEC FEJL(E,N,FIL$) «, l3=0x18}
0x0d08…0d17 Line {l1=0x0d, l2=»0910ENDPROC «, l3=0x0d}
0x0d17…0d30 Line {l1=0x17, l2=»0915B3$=" 0+" «, l3=0x17}
0x0d30…0d42 Line {l1=0x10, l2=»0916TI=10;EL=11 «, l3=0x10}
0x0d42…0d56 Line {l1=0x12, l2=»0920PROC Æ(I1,I2) «, l3=0x12}
0x0d56…0d64 Line {l1=0x0c, l2=»0930I1$=B3$ «, l3=0x0c}
0x0d64…0d79 Line {l1=0x13, l2=»0940IF I2<>B THEN «, l3=0x13}
0x0d79…0dba Line {l1=0x3f, l2=»0950I1$(W,TI)=",0";I0=ABS(I2);K0=INT((I0-INT(I0))*100+0.50001) «, l3=0x3f}
0x0dba…0dd9 Line {l1=0x1d, l2=»0960IF I2<B THEN I1$(12)="-" «, l3=0x1d}
0x0dd9…0df5 Line {l1=0x1a, l2=»0970FOR I=EL TO E STEP -E «, l3=0x1a}
0x0df5…0e09 Line {l1=0x12, l2=»0980IF I<>W THEN «, l3=0x12}
0x0e09…0e28 Line {l1=0x1d, l2=»0990I1$(I)=CHR(K0 MOD TI+48) «, l3=0x1d}
0x0e28…0e3b Line {l1=0x11, l2=»1000K0=K0 DIV TI «, l3=0x11}
0x0e3b…0e5b Line {l1=0x1e, l2=»1010IF K0=B AND I<TI THEN I=B «, l3=0x1e}
0x0e5b…0e67 Line {l1=0x0a, l2=»1020ELSE «, l3=0x0a}
0x0e67…0e78 Line {l1=0x0f, l2=»1030K0=INT(I0) «, l3=0x0f}
0x0e78…0e85 Line {l1=0x0b, l2=»1040ENDIF «, l3=0x0b}
0x0e85…0e92 Line {l1=0x0b, l2=»1050NEXT I «, l3=0x0b}
0x0e92…0e9f Line {l1=0x0b, l2=»1060ENDIF «, l3=0x0b}
0x0e9f…0eae Line {l1=0x0d, l2=»1070ENDPROC «, l3=0x0d}
0x0eae…0ec8 Line {l1=0x18, l2=»1150PROC CHECK(NR1,OK1) «, l3=0x18}
0x0ec8…0ed4 Line {l1=0x0a, l2=»1165OK1=B «, l3=0x0a}
0x0ed4…0ee3 Line {l1=0x0d, l2=»1180RESULT=B «, l3=0x0d}
0x0ee3…0efe Line {l1=0x19, l2=»1195IF LEN(NR1$)>B THEN «, l3=0x19}
0x0efe…0f19 Line {l1=0x19, l2=»1210IF NR1$(E)="-" THEN «, l3=0x19}
0x0f19…0f2a Line {l1=0x0f, l2=»1225FORTEGN=-E «, l3=0x0f}
0x0f2a…0f36 Line {l1=0x0a, l2=»1240OK1=E «, l3=0x0a}
0x0f36…0f42 Line {l1=0x0a, l2=»1255ELSE «, l3=0x0a}
0x0f42…0f52 Line {l1=0x0e, l2=»1270FORTEGN=E «, l3=0x0e}
0x0f52…0f5f Line {l1=0x0b, l2=»1285ENDIF «, l3=0x0b}
0x0f5f…0f79 Line {l1=0x18, l2=»1300WHILE LEN(NR1$)>OK1 «, l3=0x18}
0x0f79…0f89 Line {l1=0x0e, l2=»1315OK1=OK1+E «, l3=0x0e}
0x0f89…0fb7 Line {l1=0x2c, l2=»1330IF NR1$(OK1)<"0" OR NR1$(OK1)>"9" THEN «, l3=0x2c}
0x0fb7…0fc7 Line {l1=0x0e, l2=»1345FORTEGN=B «, l3=0x0e}
0x0fc7…0fdb Line {l1=0x12, l2=»1360OK1=LEN(NR1$) «, l3=0x12}
0x0fdb…0fe8 Line {l1=0x0b, l2=»1375ENDIF «, l3=0x0b}
0x0fe8…1011 Line {l1=0x27, l2=»1390RESULT=RESULT*10+ORD(NR1$(OK1))-48 «, l3=0x27}
0x1011…1021 Line {l1=0x0e, l2=»1405ENDWHILE «, l3=0x0e}
0x1021…1037 Line {l1=0x14, l2=»1420OK1=OK1*FORTEGN «, l3=0x14}
0x1037…1055 Line {l1=0x1c, l2=»1435IF OK1<B THEN OK1=OK1+E «, l3=0x1c}
0x1055…1062 Line {l1=0x0b, l2=»1450ENDIF «, l3=0x0b}
0x1062…1071 Line {l1=0x0d, l2=»1465ENDPROC «, l3=0x0d}
0x1071…1087 Line {l1=0x14, l2=»1480PROC INOPL(OPL) «, l3=0x14}
0x1087…109a Line {l1=0x11, l2=»1510CASE OPL OF «, l3=0x11}
0x109a…10a7 Line {l1=0x0b, l2=»1525WHEN E «, l3=0x0b}
0x10a7…10be Line {l1=0x15, l2=»1530EXEC INLINE(OPL) «, l3=0x15}
0x10be…10d0 Line {l1=0x10, l2=»1540LMNR=RESULT «, l3=0x10}
0x10d0…10dd Line {l1=0x0b, l2=»1555WHEN G «, l3=0x0b}
0x10dd…10f6 Line {l1=0x17, l2=»1570POST1$(E,25)=LINE$ «, l3=0x17}
0x10f6…1118 Line {l1=0x20, l2=»1585WHEN V,4,5,6,7,8,W,10,11,12 «, l3=0x20}
0x1118…1126 Line {l1=0x0c, l2=»1600REPEAT «, l3=0x0c}
0x1126…1145 Line {l1=0x1d, l2=»1610LINE$=AKKS$(OPL-G,11,16) «, l3=0x1d}
0x1145…115a Line {l1=0x13, l2=»1620CURSOR E,OPL+V «, l3=0x13}
0x115a…1177 Line {l1=0x1b, l2=»1630PRINT USING "### ":OPL «, l3=0x1b}
0x1177…118d Line {l1=0x14, l2=»1640CURSOR 11,OPL+V «, l3=0x14}
0x118d…11a1 Line {l1=0x12, l2=»1650EDIT "",LINE$ «, l3=0x12}
0x11a1…11ac Line {l1=0x09, l2=»1660OK=B «, l3=0x09}
0x11ac…11da Line {l1=0x2c, l2=»1670IF LEN(LINE$)>B AND LEN(LINE$)<=6 THEN «, l3=0x2c}
0x11da…11e5 Line {l1=0x09, l2=»1680OK=E «, l3=0x09}
0x11e5…1203 Line {l1=0x1c, l2=»1690FOR I=LEN(LINE$)+E TO 6 «, l3=0x1c}
0x1203…1219 Line {l1=0x14, l2=»1700LINE$=LINE$+" " «, l3=0x14}
0x1219…1245 Line {l1=0x2a, l2=»1705IF LINE$="0 " THEN LINE$=" " «, l3=0x2a}
0x1245…1252 Line {l1=0x0b, l2=»1710NEXT I «, l3=0x0b}
0x1252…1265 Line {l1=0x11, l2=»1720AKKNR$=LINE$ «, l3=0x11}
0x1265…1285 Line {l1=0x1e, l2=»1730IF AKKNR$<>" " THEN «, l3=0x1e}
0x1285…1297 Line {l1=0x10, l2=»1740EXEC INDAKK «, l3=0x10}
0x1297…12a6 Line {l1=0x0d, l2=»1750OK=FOUND «, l3=0x0d}
0x12a6…12b3 Line {l1=0x0b, l2=»1760ENDIF «, l3=0x0b}
0x12b3…12c0 Line {l1=0x0b, l2=»1770ENDIF «, l3=0x0b}
0x12c0…12d2 Line {l1=0x10, l2=»1780UNTIL OK<>B «, l3=0x10}
0x12d2…12ec Line {l1=0x18, l2=»1790IF OK<>E THEN STOP «, l3=0x18}
0x12ec…1318 Line {l1=0x2a, l2=»1800IF AKKS$(OPL-G,11,16)<>" " THEN «, l3=0x2a}
0x1318…1342 Line {l1=0x28, l2=»1810IF AKKNR$<>AKKS$(OPL-G,11,16) THEN «, l3=0x28}
0x1342…1362 Line {l1=0x1e, l2=»1820AKKNR$=AKKS$(OPL-G,11,16) «, l3=0x1e}
0x1362…1374 Line {l1=0x10, l2=»1830EXEC INDAKK «, l3=0x10}
0x1374…1391 Line {l1=0x1b, l2=»1840IF FOUND<>E THEN STOP «, l3=0x1b}
0x1391…13a5 Line {l1=0x12, l2=»1850FOR I=E TO 30 «, l3=0x12}
0x13a5…13ca Line {l1=0x23, l2=»1860IF ABS(M(I))=LMNR THEN FOUND=B «, l3=0x23}
0x13ca…13f5 Line {l1=0x29, l2=»1870IF FOUND=B AND I<30 THEN M(I)=M(I+E) «, l3=0x29}
0x13f5…1402 Line {l1=0x0b, l2=»1880NEXT I «, l3=0x0b}
0x1402…1419 Line {l1=0x15, l2=»1890IF FOUND=B THEN «, l3=0x15}
0x1419…1427 Line {l1=0x0c, l2=»1900M(30)=B «, l3=0x0c}
0x1427…144e Line {l1=0x25, l2=»1910TTIMER=TTIMER-ABS(AKKTIM(OPL-G)) «, l3=0x25}
0x144e…1467 Line {l1=0x17, l2=»1920RESUL$=AKK$(28,38) «, l3=0x17}
0x1467…1487 Line {l1=0x1e, l2=»1930RESUL1$=AKKS$(OPL-G,E,10) «, l3=0x1e}
0x1487…14b0 Line {l1=0x27, l2=»1940EXEC CALC(E,RESUL$,RESUL1$,RESUL$) «, l3=0x27}
0x14b0…14cf Line {l1=0x1d, l2=»1950AKK$(28,38)=RESUL$(G:11) «, l3=0x1d}
0x14cf…14db Line {l1=0x0a, l2=»1960ELSE «, l3=0x0a}
0x14db…14e7 Line {l1=0x0a, l2=»1970STOP «, l3=0x0a}
0x14e7…14f4 Line {l1=0x0b, l2=»1980ENDIF «, l3=0x0b}
0x14f4…1505 Line {l1=0x0f, l2=»1990EXEC UDAKK «, l3=0x0f}
0x1505…1518 Line {l1=0x11, l2=»2000AKKNR$=LINE$ «, l3=0x11}
0x1518…1543 Line {l1=0x29, l2=»2010IF AKKNR$<>" " THEN EXEC INDAKK «, l3=0x29}
0x1543…154f Line {l1=0x0a, l2=»2020ELSE «, l3=0x0a}
0x154f…1576 Line {l1=0x25, l2=»2030TTIMER=TTIMER-ABS(AKKTIM(OPL-G)) «, l3=0x25}
0x1576…158f Line {l1=0x17, l2=»2040RESUL$=AKK$(28,38) «, l3=0x17}
0x158f…15af Line {l1=0x1e, l2=»2050RESUL1$=AKKS$(OPL-G,E,10) «, l3=0x1e}
0x15af…15d8 Line {l1=0x27, l2=»2060EXEC CALC(E,RESUL$,RESUL1$,RESUL$) «, l3=0x27}
0x15d8…15f7 Line {l1=0x1d, l2=»2070AKK$(28,38)=RESUL$(G:11) «, l3=0x1d}
0x15f7…1604 Line {l1=0x0b, l2=»2080ENDIF «, l3=0x0b}
0x1604…1611 Line {l1=0x0b, l2=»2090ENDIF «, l3=0x0b}
0x1611…1631 Line {l1=0x1e, l2=»2100IF AKKNR$<>" " THEN «, l3=0x1e}
0x1631…165b Line {l1=0x28, l2=»2110IF AKKNR$<>AKKS$(OPL-G,11,16) THEN «, l3=0x28}
0x165b…166f Line {l1=0x12, l2=»2120FOR I=E TO 30 «, l3=0x12}
0x166f…168d Line {l1=0x1c, l2=»2130IF ABS(M(I))=LMNR THEN «, l3=0x1c}
0x168d…1699 Line {l1=0x0a, l2=»2140I=100 «, l3=0x0a}
0x1699…16a5 Line {l1=0x0a, l2=»2150ELSE «, l3=0x0a}
0x16a5…16cb Line {l1=0x24, l2=»2160IF M(I)=B THEN M(I)=LMNR;I=I+30 «, l3=0x24}
0x16cb…16d8 Line {l1=0x0b, l2=»2170ENDIF «, l3=0x0b}
0x16d8…16e5 Line {l1=0x0b, l2=»2180NEXT I «, l3=0x0b}
0x16e5…16f7 Line {l1=0x10, l2=»2185CURSOR E,22 «, l3=0x10}
0x16f7…173c Line {l1=0x43, l2=»2190IF I>100 THEN INPUT "Findes allerede på akkord, RETURN ",LINE$ «, l3=0x43}
0x173c…1785 Line {l1=0x47, l2=»2200IF I<32 THEN INPUT "Ikke plads til flere på akkord, RETURN ",LINE$ «, l3=0x47}
0x1785…1791 Line {l1=0x0a, l2=»2210ELSE «, l3=0x0a}
0x1791…17a5 Line {l1=0x12, l2=»2220FOR I=E TO 30 «, l3=0x12}
0x17a5…17d3 Line {l1=0x2c, l2=»2230IF ABS(M(I))=LMNR THEN M(I)=LMNR;I=I+30 «, l3=0x2c}
0x17d3…17e0 Line {l1=0x0b, l2=»2240NEXT I «, l3=0x0b}
0x17e0…17f9 Line {l1=0x17, l2=»2250IF I<32 THEN STOP «, l3=0x17}
0x17f9…1806 Line {l1=0x0b, l2=»2260ENDIF «, l3=0x0b}
0x1806…1813 Line {l1=0x0b, l2=»2270I=I-31 «, l3=0x0b}
0x1813…182f Line {l1=0x1a, l2=»2280IF I>B AND I<31 THEN «, l3=0x1a}
0x182f…183d Line {l1=0x0c, l2=»2290REPEAT «, l3=0x0c}
0x183d…185b Line {l1=0x1c, l2=»2300LINE$=AKKS$(OPL-G,E,10) «, l3=0x1c}
0x185b…1885 Line {l1=0x28, l2=»2305IF LINE$(10)="+" THEN LINE$(10)=" " «, l3=0x28}
0x1885…189b Line {l1=0x14, l2=»2310CURSOR 22,OPL+V «, l3=0x14}
0x189b…18af Line {l1=0x12, l2=»2320EDIT "",LINE$ «, l3=0x12}
0x18af…18c5 Line {l1=0x14, l2=»2330LINE$=LINE$+"+" «, l3=0x14}
0x18c5…18ea Line {l1=0x23, l2=»2340EXEC CALC(6,LINE$,TAH$,RESUL$) «, l3=0x23}
0x18ea…18fd Line {l1=0x11, l2=»2350UNTIL FLAG=B «, l3=0x11}
0x18fd…1922 Line {l1=0x23, l2=»2360AKKS$(OPL-G,E,10)=RESUL$(V:10) «, l3=0x23}
0x1922…193c Line {l1=0x18, l2=»2370RESUL1$=AKK$(28,38) «, l3=0x18}
0x193c…1966 Line {l1=0x28, l2=»2380EXEC CALC(B,RESUL$,RESUL1$,RESUL1$) «, l3=0x28}
0x1966…1986 Line {l1=0x1e, l2=»2390AKK$(28,38)=RESUL1$(G:11) «, l3=0x1e}
0x1986…199e Line {l1=0x16, l2=»2400TIM=AKKTIM(OPL-G) «, l3=0x16}
0x199e…19b4 Line {l1=0x14, l2=»2410CURSOR 37,OPL+V «, l3=0x14}
0x19b4…19c6 Line {l1=0x10, l2=»2420EDIT "",TIM «, l3=0x10}
0x19c6…19de Line {l1=0x16, l2=»2430AKKTIM(OPL-G)=TIM «, l3=0x16}
0x19de…19fb Line {l1=0x1b, l2=»2440TTIMER=TTIMER+ABS(TIM) «, l3=0x1b}
0x19fb…1a1a Line {l1=0x1d, l2=»2450IF TIM<B THEN M(I)=-M(I) «, l3=0x1d}
0x1a1a…1a3a Line {l1=0x1e, l2=»2460AKKS$(OPL-G,11,16)=AKKNR$ «, l3=0x1e}
0x1a3a…1a4b Line {l1=0x0f, l2=»2470EXEC UDAKK «, l3=0x0f}
0x1a4b…1a57 Line {l1=0x0a, l2=»2480ELSE «, l3=0x0a}
0x1a57…1a6d Line {l1=0x14, l2=»2490AKKNR$=" " «, l3=0x14}
0x1a6d…1a7a Line {l1=0x0b, l2=»2500ENDIF «, l3=0x0b}
0x1a7a…1a87 Line {l1=0x0b, l2=»2510ENDIF «, l3=0x0b}
0x1a87…1aa6 Line {l1=0x1d, l2=»2520IF AKKNR$=" " THEN «, l3=0x1d}
0x1aa6…1abc Line {l1=0x14, l2=»2530AKKTIM(OPL-G)=B «, l3=0x14}
0x1abc…1ae2 Line {l1=0x24, l2=»2540AKKS$(OPL-G)=" " «, l3=0x24}
0x1ae2…1aef Line {l1=0x0b, l2=»2550ENDIF «, l3=0x0b}
0x1aef…1afe Line {l1=0x0d, l2=»2950ENDCASE «, l3=0x0d}
0x1afe…1b0d Line {l1=0x0d, l2=»2965ENDPROC «, l3=0x0d}
0x1b0d…1b21 Line {l1=0x12, l2=»2980PROC SKRIVOPL «, l3=0x12}
0x1b21…1b3d Line {l1=0x1a, l2=»2995IF OUTP=B THEN CLEAR «, l3=0x1a}
0x1b3d…1b80 Line {l1=0x41, l2=»3000PRINT "A K K O R D R E G N S K A B E R";TAB(60);"Dato ";DAD$ «, l3=0x41}
0x1b80…1b93 Line {l1=0x11, l2=»3010FOR J=E TO A «, l3=0x11}
0x1b93…1ba4 Line {l1=0x0f, l2=»3025CASE J OF «, l3=0x0f}
0x1ba4…1bb1 Line {l1=0x0b, l2=»3040WHEN E «, l3=0x0b}
0x1bb1…1bcf Line {l1=0x1c, l2=»3055EXEC CONV(LINE$,LMNR,0) «, l3=0x1c}
0x1bcf…1bdc Line {l1=0x0b, l2=»3070WHEN G «, l3=0x0b}
0x1bdc…1bf5 Line {l1=0x17, l2=»3085LINE$=POST1$(E,25) «, l3=0x17}
0x1bf5…1c17 Line {l1=0x20, l2=»3100WHEN V,4,5,6,7,8,W,10,11,12 «, l3=0x20}
0x1c17…1c38 Line {l1=0x1f, l2=»3115EXEC Æ(RESUL$,AKKTIM(J-2)) «, l3=0x1f}
0x1c38…1c64 Line {l1=0x2a, l2=»3120IF RESUL$(12)="+" THEN RESUL$(12)=" " «, l3=0x2a}
0x1c64…1cad Line {l1=0x47, l2=»3125LINE$=" "+AKKS$(J-G,11,16)+" "+AKKS$(J-G,E,10)+" "+RESUL$ «, l3=0x47}
0x1cad…1cd7 Line {l1=0x28, l2=»3135IF LINE$(26)="+" THEN LINE$(26)=" " «, l3=0x28}
0x1cd7…1ce6 Line {l1=0x0d, l2=»3730ENDCASE «, l3=0x0d}
0x1ce6…1cf9 Line {l1=0x11, l2=»3732IF J=V THEN «, l3=0x11}
0x1cf9…1d06 Line {l1=0x0b, l2=»3734PRINT «, l3=0x0b}
0x1d06…1d13 Line {l1=0x0b, l2=»3736PRINT «, l3=0x0b}
0x1d13…1d4e Line {l1=0x39, l2=»3738PRINT " AKKORD UDBETALT TIMER" «, l3=0x39}
0x1d4e…1d5b Line {l1=0x0b, l2=»3740ENDIF «, l3=0x0b}
0x1d5b…1d71 Line {l1=0x14, l2=»3745IF OUTP=B THEN «, l3=0x14}
0x1d71…1d87 Line {l1=0x14, l2=»3760EXEC OUTLINE(J) «, l3=0x14}
0x1d87…1d93 Line {l1=0x0a, l2=»3775ELSE «, l3=0x0a}
0x1d93…1daa Line {l1=0x15, l2=»3790EXEC OUTPLINE(J) «, l3=0x15}
0x1daa…1db7 Line {l1=0x0b, l2=»3805ENDIF «, l3=0x0b}
0x1db7…1dc4 Line {l1=0x0b, l2=»3820NEXT J «, l3=0x0b}
0x1dc4…1dd3 Line {l1=0x0d, l2=»3835ENDPROC «, l3=0x0d}
0x1dd3…1de9 Line {l1=0x14, l2=»3850PROC OUTLINE(N) «, l3=0x14}
0x1de9…1e00 Line {l1=0x15, l2=»3865CURSOR X(N),Y(N) «, l3=0x15}
0x1e00…1e1c Line {l1=0x1a, l2=»3880PRINT USING "### ":N; «, l3=0x1a}
0x1e1c…1e3b Line {l1=0x1d, l2=»3895PRINT PICT$(N);":";LINE$ «, l3=0x1d}
0x1e3b…1e4a Line {l1=0x0d, l2=»3910ENDPROC «, l3=0x0d}
0x1e4a…1e5d Line {l1=0x11, l2=»3925PROC INDVIRK «, l3=0x11}
0x1e5d…1e6f Line {l1=0x10, l2=»3940OPEN FIL$,W «, l3=0x10}
0x1e6f…1e89 Line {l1=0x18, l2=»3955EXEC FEJL(B,B,FIL$) «, l3=0x18}
0x1e89…1eb3 Line {l1=0x28, l2=»3985GET FIL$,G:POST4$,SLJNR,MLMNR,ATPLM «, l3=0x28}
0x1eb3…1ec9 Line {l1=0x14, l2=»3990GET FIL$,V:DAD$ «, l3=0x14}
0x1ec9…1ed8 Line {l1=0x0d, l2=»4000ENDPROC «, l3=0x0d}
0x1ed8…1ef2 Line {l1=0x18, l2=»4015PROC FEJL(P1,P2,P3) «, l3=0x18}
0x1ef2…1f10 Line {l1=0x1c, l2=»4030IF STATUS(P3$)<>B THEN «, l3=0x1c}
0x1f10…1f1f Line {l1=0x0d, l2=»4045OUTPUT T «, l3=0x0d}
0x1f1f…1f4d Line {l1=0x2c, l2=»4060PRINT "FIL-FEJL ";P3$;STATUS(P3$),P1;P2 «, l3=0x2c}
0x1f4d…1f59 Line {l1=0x0a, l2=»4075STOP «, l3=0x0a}
0x1f59…1f66 Line {l1=0x0b, l2=»4090ENDIF «, l3=0x0b}
0x1f66…1f75 Line {l1=0x0d, l2=»4105ENDPROC «, l3=0x0d}
0x1f75…1f8a Line {l1=0x13, l2=»4120PROC INLINE(N) «, l3=0x13}
0x1f8a…1f98 Line {l1=0x0c, l2=»4135REPEAT «, l3=0x0c}
0x1f98…1fbf Line {l1=0x25, l2=»4150CURSOR X(N)+5+LEN(PICT$(N)),Y(N) «, l3=0x25}
0x1fbf…1fe1 Line {l1=0x20, l2=»4165PRINT BL$(E:ABS(TYPE(N))+V) «, l3=0x20}
0x1fe1…1ff8 Line {l1=0x15, l2=»4180CURSOR X(N),Y(N) «, l3=0x15}
0x1ff8…2014 Line {l1=0x1a, l2=»4195PRINT USING "### ":N; «, l3=0x1a}
0x2014…202e Line {l1=0x18, l2=»4210PRINT PICT$(N);":"; «, l3=0x18}
0x202e…2043 Line {l1=0x13, l2=»4225INPUT "",LINE$ «, l3=0x13}
0x2043…205c Line {l1=0x17, l2=»4240IF TYPE(N)<B THEN «, l3=0x17}
0x205c…2084 Line {l1=0x26, l2=»4255IF LEN(LINE$)<=ABS(TYPE(N)) THEN «, l3=0x26}
0x2084…208f Line {l1=0x09, l2=»4270OK=E «, l3=0x09}
0x208f…20b8 Line {l1=0x27, l2=»4285FOR I=LEN(LINE$)+E TO ABS(TYPE(N)) «, l3=0x27}
0x20b8…20cb Line {l1=0x11, l2=»4300LINE$(I)=" " «, l3=0x11}
0x20cb…20d8 Line {l1=0x0b, l2=»4315NEXT I «, l3=0x0b}
0x20d8…20e4 Line {l1=0x0a, l2=»4330ELSE «, l3=0x0a}
0x20e4…20ef Line {l1=0x09, l2=»4345OK=B «, l3=0x09}
0x20ef…20fc Line {l1=0x0b, l2=»4360ENDIF «, l3=0x0b}
0x20fc…2108 Line {l1=0x0a, l2=»4375ELSE «, l3=0x0a}
0x2108…2123 Line {l1=0x19, l2=»4390EXEC CHECK(LINE$,OK) «, l3=0x19}
0x2123…2150 Line {l1=0x2b, l2=»4405IF TYPE(N)>B AND TYPE(N)<>OK THEN OK=B «, l3=0x2b}
0x2150…215d Line {l1=0x0b, l2=»4420ENDIF «, l3=0x0b}
0x215d…216f Line {l1=0x10, l2=»4435UNTIL OK<>B «, l3=0x10}
0x216f…217e Line {l1=0x0d, l2=»4450ENDPROC «, l3=0x0d}
0x217e…2195 Line {l1=0x15, l2=»4585PROC OUTPLINE(N) «, l3=0x15}
0x2195…21ac Line {l1=0x15, l2=»4600PRINT TAB(X(N)); «, l3=0x15}
0x21ac…21c8 Line {l1=0x1a, l2=»4615PRINT USING "### ":N; «, l3=0x1a}
0x21c8…21e8 Line {l1=0x1e, l2=»4630PRINT PICT$(N);":";LINE$; «, l3=0x1e}
0x21e8…21fc Line {l1=0x12, l2=»4632IF N=12 THEN «, l3=0x12}
0x21fc…2209 Line {l1=0x0b, l2=»4634PRINT «, l3=0x0b}
0x2209…2215 Line {l1=0x0a, l2=»4636ELSE «, l3=0x0a}
0x2215…2236 Line {l1=0x1f, l2=»4638IF Y(N)<Y(N+E) THEN PRINT «, l3=0x1f}
0x2236…2243 Line {l1=0x0b, l2=»4640ENDIF «, l3=0x0b}
0x2243…2252 Line {l1=0x0d, l2=»4645ENDPROC «, l3=0x0d}
0x2252…225d Line {l1=0x09, l2=»4660A=12 «, l3=0x09}
0x225d…2285 Line {l1=0x26, l2=»4675DIM X(A),Y(A),PICT$(A,20),TYPE(A) «, l3=0x26}
0x2285…22a5 Line {l1=0x1e, l2=»4690DIM POST1$(71),POST2$(27) «, l3=0x1e}
0x22a5…22ca Line {l1=0x23, l2=»4705DIM BL$(79),LINE$(50),FIL$(20) «, l3=0x23}
0x22ca…22de Line {l1=0x12, l2=»4720FOR I=E TO 79 «, l3=0x12}
0x22de…22f0 Line {l1=0x10, l2=»4735BL$=BL$+" " «, l3=0x10}
0x22f0…22fd Line {l1=0x0b, l2=»4750NEXT I «, l3=0x0b}
0x22fd…231b Line {l1=0x1c, l2=»4765FIL$="P641220:VIRKKART" «, l3=0x1c}
0x231b…2328 Line {l1=0x0b, l2=»4780X(E)=E «, l3=0x0b}
0x2328…2336 Line {l1=0x0c, l2=»4795X(G)=30 «, l3=0x0c}
0x2336…2343 Line {l1=0x0b, l2=»4810X(V)=E «, l3=0x0b}
0x2343…2350 Line {l1=0x0b, l2=»4825X(4)=E «, l3=0x0b}
0x2350…235d Line {l1=0x0b, l2=»4840X(5)=E «, l3=0x0b}
0x235d…236a Line {l1=0x0b, l2=»4855X(6)=E «, l3=0x0b}
0x236a…2377 Line {l1=0x0b, l2=»4870X(7)=E «, l3=0x0b}
0x2377…2384 Line {l1=0x0b, l2=»4885X(8)=E «, l3=0x0b}
0x2384…2391 Line {l1=0x0b, l2=»4900X(W)=E «, l3=0x0b}
0x2391…239f Line {l1=0x0c, l2=»4915X(10)=E «, l3=0x0c}
0x239f…23ad Line {l1=0x0c, l2=»4930X(11)=E «, l3=0x0c}
0x23ad…23bb Line {l1=0x0c, l2=»4945X(12)=E «, l3=0x0c}
0x23bb…23c8 Line {l1=0x0b, l2=»5095Y(E)=G «, l3=0x0b}
0x23c8…23d5 Line {l1=0x0b, l2=»5110Y(G)=G «, l3=0x0b}
0x23d5…23e2 Line {l1=0x0b, l2=»5125Y(V)=6 «, l3=0x0b}
0x23e2…23ef Line {l1=0x0b, l2=»5140Y(4)=7 «, l3=0x0b}
0x23ef…23fc Line {l1=0x0b, l2=»5155Y(5)=8 «, l3=0x0b}
0x23fc…2409 Line {l1=0x0b, l2=»5170Y(6)=W «, l3=0x0b}
0x2409…2417 Line {l1=0x0c, l2=»5185Y(7)=10 «, l3=0x0c}
0x2417…2425 Line {l1=0x0c, l2=»5200Y(8)=11 «, l3=0x0c}
0x2425…2433 Line {l1=0x0c, l2=»5215Y(W)=12 «, l3=0x0c}
0x2433…2442 Line {l1=0x0d, l2=»5230Y(10)=13 «, l3=0x0d}
0x2442…2451 Line {l1=0x0d, l2=»5245Y(11)=14 «, l3=0x0d}
0x2451…2460 Line {l1=0x0d, l2=»5260Y(12)=15 «, l3=0x0d}
0x2460…2470 Line {l1=0x0e, l2=»5410TYPE(E)=B «, l3=0x0e}
0x2470…2482 Line {l1=0x10, l2=»5425TYPE(G)=-25 «, l3=0x10}
0x2482…2496 Line {l1=0x12, l2=»5440FOR I=V TO 12 «, l3=0x12}
0x2496…24a7 Line {l1=0x0f, l2=»5450TYPE(I)=-6 «, l3=0x0f}
0x24a7…24b9 Line {l1=0x10, l2=»5455PICT$(I)="" «, l3=0x10}
0x24b9…24c6 Line {l1=0x0b, l2=»5460NEXT I «, l3=0x0b}
0x24c6…24dd Line {l1=0x15, l2=»5725PICT$(E)="Lønnr" «, l3=0x15}
0x24dd…24f3 Line {l1=0x14, l2=»5740PICT$(G)="Navn" «, l3=0x14}
0x24f3…2506 Line {l1=0x11, l2=»6040EXEC INDVIRK «, l3=0x11}
0x2506…2517 Line {l1=0x0f, l2=»6055CLOSE FIL$ «, l3=0x0f}
0x2517…2535 Line {l1=0x1c, l2=»6070FIL$="P641220:LØNMODRG" «, l3=0x1c}
0x2535…2547 Line {l1=0x10, l2=»6085OPEN FIL$,R «, l3=0x10}
0x2547…2561 Line {l1=0x18, l2=»6100EXEC FEJL(B,B,FIL$) «, l3=0x18}
0x2561…2580 Line {l1=0x1d, l2=»6102FIL8$="P641220:AKKHOVED" «, l3=0x1d}
0x2580…2593 Line {l1=0x11, l2=»6104OPEN FIL8$,W «, l3=0x11}
0x2593…25ae Line {l1=0x19, l2=»6106EXEC FEJL(B,B,FIL8$) «, l3=0x19}
0x25ae…25c2 Line {l1=0x12, l2=»6108EXEC INDTABEL «, l3=0x12}
0x25c2…25e1 Line {l1=0x1d, l2=»6110FIL7$="P641220:AKKREGNS" «, l3=0x1d}
0x25e1…25f4 Line {l1=0x11, l2=»6112OPEN FIL7$,W «, l3=0x11}
0x25f4…260f Line {l1=0x19, l2=»6114EXEC FEJL(B,B,FIL7$) «, l3=0x19}
0x260f…261c Line {l1=0x0b, l2=»6130OUTP=B «, l3=0x0b}
0x261c…2636 Line {l1=0x18, l2=»6145TAH$=" 0+" «, l3=0x18}
0x2636…2644 Line {l1=0x0c, l2=»6250REPEAT «, l3=0x0c}
0x2644…264f Line {l1=0x09, l2=»6265SV=G «, l3=0x09}
0x264f…265c Line {l1=0x0b, l2=»6280CLEAR «, l3=0x0b}
0x265c…266f Line {l1=0x11, l2=»6295CURSOR 10,10 «, l3=0x11}
0x266f…26ad Line {l1=0x3c, l2=»6310PRINT "A K K O R D R E G N S K A B S - K A R T O T E K" «, l3=0x3c}
0x26ad…26ba Line {l1=0x0b, l2=»6325PRINT «, l3=0x0b}
0x26ba…26d9 Line {l1=0x1d, l2=»6340PRINT TAB(10);"0 Færdig" «, l3=0x1d}
0x26d9…26f9 Line {l1=0x1e, l2=»6355PRINT TAB(10);"1 Ændring" «, l3=0x1e}
0x26f9…2723 Line {l1=0x28, l2=»6370PRINT TAB(10);"2 Udskrift på skærm" «, l3=0x28}
0x2723…274f Line {l1=0x2a, l2=»6385PRINT TAB(10);"3 Udskrift på printer" «, l3=0x2a}
0x274f…275c Line {l1=0x0b, l2=»6430PRINT «, l3=0x0b}
0x275c…276a Line {l1=0x0c, l2=»6445REPEAT «, l3=0x0c}
0x276a…277c Line {l1=0x10, l2=»6460CURSOR E,19 «, l3=0x10}
0x277c…2797 Line {l1=0x19, l2=»6475EDIT " ",SV «, l3=0x19}
0x2797…27b3 Line {l1=0x1a, l2=»6490UNTIL SV=>B AND SV<=V «, l3=0x1a}
0x27b3…27c7 Line {l1=0x12, l2=»6505IF SV>B THEN «, l3=0x12}
0x27c7…27d5 Line {l1=0x0c, l2=»6520REPEAT «, l3=0x0c}
0x27d5…27e9 Line {l1=0x12, l2=»6535EXEC INOPL(1) «, l3=0x12}
0x27e9…280d Line {l1=0x22, l2=»6550UNTIL LMNR=>B AND LMNR<=MLMNR «, l3=0x22}
0x280d…281b Line {l1=0x0c, l2=»6551LISTE=B «, l3=0x0c}
0x281b…2838 Line {l1=0x1b, l2=»6552IF LMNR=B THEN LISTE=E «, l3=0x1b}
0x2838…2846 Line {l1=0x0c, l2=»6553REPEAT «, l3=0x0c}
0x2846…2868 Line {l1=0x20, l2=»6554IF LISTE=E THEN LMNR=LMNR+E «, l3=0x20}
0x2868…2882 Line {l1=0x18, l2=»6565EXEC INLØNMOD(LMNR) «, l3=0x18}
0x2882…28aa Line {l1=0x26, l2=»6570IF LA<>B THEN EXEC INDREGNS(LMNR) «, l3=0x26}
0x28aa…28bc Line {l1=0x10, l2=»6580CASE SV OF «, l3=0x10}
0x28bc…28c9 Line {l1=0x0b, l2=»6595WHEN E «, l3=0x0b}
0x28c9…28de Line {l1=0x13, l2=»6610IF LA<>B THEN «, l3=0x13}
0x28de…28f2 Line {l1=0x12, l2=»6625EXEC SKRIVOPL «, l3=0x12}
0x28f2…2900 Line {l1=0x0c, l2=»6640REPEAT «, l3=0x0c}
0x2900…290e Line {l1=0x0c, l2=»6655REPEAT «, l3=0x0c}
0x290e…291a Line {l1=0x0a, l2=»6670SV1=B «, l3=0x0a}
0x291a…292c Line {l1=0x10, l2=»6685CURSOR E,23 «, l3=0x10}
0x292c…2945 Line {l1=0x17, l2=»6700EDIT "Feltnr ",SV1 «, l3=0x17}
0x2945…296b Line {l1=0x24, l2=»6715UNTIL SV1>G AND SV1<13 OR SV1=B «, l3=0x24}
0x296b…2980 Line {l1=0x13, l2=»6730IF SV1>B THEN «, l3=0x13}
0x2980…2996 Line {l1=0x14, l2=»6745EXEC INOPL(SV1) «, l3=0x14}
0x2996…29aa Line {l1=0x12, l2=»6750EXEC SKRIVOPL «, l3=0x12}
0x29aa…29b7 Line {l1=0x0b, l2=»6760ENDIF «, l3=0x0b}
0x29b7…29c9 Line {l1=0x10, l2=»6775UNTIL SV1=B «, l3=0x10}
0x29c9…29e2 Line {l1=0x17, l2=»6790EXEC UDREGNS(LMNR) «, l3=0x17}
0x29e2…29ee Line {l1=0x0a, l2=»6805ELSE «, l3=0x0a}
0x29ee…2a14 Line {l1=0x24, l2=»6820PRINT "Lønmodtager findes ikke" «, l3=0x24}
0x2a14…2a2f Line {l1=0x19, l2=»6835INPUT "RETURN",LINE$ «, l3=0x19}
0x2a2f…2a3c Line {l1=0x0b, l2=»6850ENDIF «, l3=0x0b}
0x2a3c…2a49 Line {l1=0x0b, l2=»6865WHEN G «, l3=0x0b}
0x2a49…2a5e Line {l1=0x13, l2=»6880IF LA<>B THEN «, l3=0x13}
0x2a5e…2a6b Line {l1=0x0b, l2=»6895OUTP=B «, l3=0x0b}
0x2a6b…2a7f Line {l1=0x12, l2=»6910EXEC SKRIVOPL «, l3=0x12}
0x2a7f…2a9a Line {l1=0x19, l2=»6925INPUT "RETURN",LINE$ «, l3=0x19}
0x2a9a…2aa6 Line {l1=0x0a, l2=»6940ELSE «, l3=0x0a}
0x2aa6…2acc Line {l1=0x24, l2=»6955PRINT "Lønmodtager findes ikke" «, l3=0x24}
0x2acc…2ae7 Line {l1=0x19, l2=»6970INPUT "RETURN",LINE$ «, l3=0x19}
0x2ae7…2af4 Line {l1=0x0b, l2=»6985ENDIF «, l3=0x0b}
0x2af4…2b01 Line {l1=0x0b, l2=»7000WHEN V «, l3=0x0b}
0x2b01…2b21 Line {l1=0x1e, l2=»7015IF LA<>B OR LISTE=E THEN «, l3=0x1e}
0x2b21…2b36 Line {l1=0x13, l2=»7016IF LA<>B THEN «, l3=0x13}
0x2b36…2b45 Line {l1=0x0d, l2=»7030OUTPUT P «, l3=0x0d}
0x2b45…2b52 Line {l1=0x0b, l2=»7045OUTP=E «, l3=0x0b}
0x2b52…2b5f Line {l1=0x0b, l2=»7050PRINT «, l3=0x0b}
0x2b5f…2b6c Line {l1=0x0b, l2=»7051PRINT «, l3=0x0b}
0x2b6c…2b80 Line {l1=0x12, l2=»7060EXEC SKRIVOPL «, l3=0x12}
0x2b80…2b95 Line {l1=0x13, l2=»7062FOR I=17 TO 72 «, l3=0x13}
0x2b95…2ba2 Line {l1=0x0b, l2=»7064PRINT «, l3=0x0b}
0x2ba2…2baf Line {l1=0x0b, l2=»7066NEXT I «, l3=0x0b}
0x2baf…2bbc Line {l1=0x0b, l2=»7075OUTP=B «, l3=0x0b}
0x2bbc…2bcb Line {l1=0x0d, l2=»7090OUTPUT T «, l3=0x0d}
0x2bcb…2bd8 Line {l1=0x0b, l2=»7095ENDIF «, l3=0x0b}
0x2bd8…2be4 Line {l1=0x0a, l2=»7105ELSE «, l3=0x0a}
0x2be4…2c0a Line {l1=0x24, l2=»7120PRINT "Lønmodtager findes ikke" «, l3=0x24}
0x2c0a…2c25 Line {l1=0x19, l2=»7135INPUT "RETURN",LINE$ «, l3=0x19}
0x2c25…2c32 Line {l1=0x0b, l2=»7150ENDIF «, l3=0x0b}
0x2c32…2c41 Line {l1=0x0d, l2=»8005ENDCASE «, l3=0x0d}
0x2c41…2c64 Line {l1=0x21, l2=»8006UNTIL LISTE=B OR LMNR=>MLMNR «, l3=0x21}
0x2c64…2c71 Line {l1=0x0b, l2=»8010ENDIF «, l3=0x0b}
0x2c71…2c82 Line {l1=0x0f, l2=»8020UNTIL SV=B «, l3=0x0f}
0x2c82…2c8f Line {l1=0x0b, l2=»8035CLOSE «, l3=0x0b}
0x2c8f…2cac Line {l1=0x1b, l2=»8065CHAIN "P641210:STARTB" «, l3=0x1b}
0x2cac…2cc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x2cc0…2ce0 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 ┆ ┆
[…0x24…]