|
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: »AKKALIST.K«
└─⟦385f097a1⟧ Bits:30008988 SPC/1 COMAL programmer til bogføring
└─⟦this⟧ »AKKALIST.K«
0010DIM POST4$(34),FIL7$(20),AKKTIM(10),AKKS$(10,16),B3$(12),GSATS$(12) 0100DIM AKK$(49),NR$(606),Å(100),M(30),FIL8$(20),FIL9$(20),AKKNR$(6),DAD$(6) 0105DIM RES$(15),OP1$(12),OP2$(12),RESUL$(12),RESUL1$(12),TTIM$(12) 0106DIM TUD$(12),HUND$(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 SLET 0151GN=Å(L) 0152WHILE L<MAX DO 0153NR$((L-E)*6+E:6)=NR$(L*6+E:6) 0154Å(L)=Å(L+E) 0155L=L+E 0156ENDWHILE 0157NR$((L-E)*6+E:6)=" " 0158Å(L)=GN 0159MAX=MAX-E 0160ENDPROC 0161PROC UDTABEL 0162OPEN FIL9$,W 0163EXEC FEJL(G,B,FIL9$) 0164FOR I=E TO 10 0165PUT FIL9$:NR$((I-E)*60+E:60) 0166NEXT I 0167PUT FIL9$:Å(E),Å(G),Å(V),Å(4),Å(5),Å(6),Å(7),Å(8),Å(W),Å(10) 0168PUT FIL9$:Å(11),Å(12),Å(13),Å(14),Å(15),Å(16),Å(17),Å(18),Å(19),Å(20) 0169PUT FIL9$:Å(21),Å(22),Å(23),Å(24),Å(25),Å(26),Å(27),Å(28),Å(29),Å(30) 0170PUT FIL9$:Å(31),Å(32),Å(33),Å(34),Å(35),Å(36),Å(37),Å(38),Å(39),Å(40) 0171PUT FIL9$:Å(41),Å(42),Å(43),Å(44),Å(45),Å(46),Å(47),Å(48),Å(49),Å(50) 0172PUT FIL9$:Å(51),Å(52),Å(53),Å(54),Å(55),Å(56),Å(57),Å(58),Å(59),Å(60) 0173PUT FIL9$:Å(61),Å(62),Å(63),Å(64),Å(65),Å(66),Å(67),Å(68),Å(69),Å(70) 0174PUT FIL9$:Å(71),Å(72),Å(73),Å(74),Å(75),Å(76),Å(77),Å(78),Å(79),Å(80) 0175PUT FIL9$:Å(81),Å(82),Å(83),Å(84),Å(85),Å(86),Å(87),Å(88),Å(89),Å(90) 0176PUT FIL9$:Å(91),Å(92),Å(93),Å(94),Å(95),Å(96),Å(97),Å(98),Å(99),Å(100) 0177ENDPROC 0191DIM BL$(79),LINE$(50),FIL$(20) 0192FIL$="P641220:VIRKKART" 0193OPEN FIL$,R 0194EXEC FEJL(B,B,FIL$) 0195GET FIL$,V:DAD$ 0196CLOSE FIL$ 0200PROC INDAKK 0203IF SV=E THEN 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 0261ELSE 0262AKKNR$=NR$((L-E)*6+E:6) 0263ENDIF 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 0917HUND$=" 100,00+" 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 2980PROC SKRIVOPL 2985TUD$=B3$;TTIM$=B3$ 2990SLETK,AM,AFSL=B 2995FOR I=E TO 30 3000IF M(I)<>B THEN 3005AM=AM+E 3010IF M(I)<B THEN AFSL=AFSL+E 3015ENDIF 3020NEXT I 3025IF DEL=V THEN SLETK=E 3030IF DEL=G AND AFSL=AM THEN SLETK=G 3035IF LINIE+AM+15>72 THEN 3040WHILE LINIE<72 3045PRINT 3050LINIE=LINIE+E 3055ENDWHILE 3060PRINT 3065PRINT "A K K O R D - L I S T E";TAB(60);"Dato ";DAD$ 3070LINIE=G 3075ENDIF 3080PRINT 3085PRINT 3090PRINT 3095PRINT "Akkord: ";AKK$(E,6);TAB(25);AKK$(7,27) 3100PRINT 3105PRINT "LØNNR NAVN UDBETALT TIMER"; 3110PRINT " GSATS AFSLT" 3115LINIE=LINIE+6 3120FOR K=E TO 30 3125IF M(K)<>B THEN 3130LMNR=ABS(M(K)) 3135EXEC INLØNMOD(LMNR) 3140EXEC INDREGNS(LMNR) 3145FOR J=E TO 10 3150IF AKKS$(J,11,16)=AKKNR$ THEN J=J+20 3155NEXT J 3160J=J-21 3165LINIE=LINIE+E 3170IF J<E THEN 3175PRINT "Indrapporter straks denne hændelse til H.S.MØLLER, og STOP" 3180ELSE 3185RESUL$=AKKS$(J,E,10) 3190EXEC Æ(RESUL1$,ABS(AKKTIM(J))) 3195EXEC CALC(B,TUD$,RESUL$,TUD$) 3200EXEC CALC(B,TTIM$,RESUL1$,TTIM$) 3205IF AKKTIM(J)<>B THEN 3210EXEC CALC(V,RESUL$,RESUL1$,GSATS$) 3215ELSE 3220GSATS$=B3$ 3225ENDIF 3230IF RESUL1$(12)="+" THEN RESUL1$(12)=" " 3235IF RESUL$(10)="+" THEN RESUL$(10)=" " 3240IF GSATS$(12)="+" THEN GSATS$(12)=" " 3245PRINT LMNR;TAB(W);POST1$(E,25);" ";RESUL$;RESUL1$;" ";GSATS$;" "; 3250IF M(K)<B THEN 3255PRINT "*****" 3260IF SLETK>B THEN 3265M(K)=B 3270AKKTIM(J)=B 3275AKKS$(J)=" 0+ " 3280EXEC UDREGNS(LMNR) 3285ENDIF 3290ELSE 3295PRINT 3300ENDIF 3305ENDIF 3310ENDIF 3315NEXT K 3320PRINT "---------------------------------------------------------------"; 3325PRINT "---------------" 3330EXEC CALC(4,TTIM$,B3$,B3$) 3335IF SI>B THEN 3340EXEC CALC(V,TUD$,TTIM$,GSATS$) 3345ELSE 3350GSATS$=B3$ 3355ENDIF 3360IF TTIM$(12)="+" THEN TTIM$(12)=" " 3365IF TUD$(12)="+" THEN TUD$(12)=" " 3370IF GSATS$(12)="+" THEN GSATS$(12)=" " 3371PRINT "Total ";AM; 3372IF AM=E THEN 3373PRINT " medarbejder"; 3374ELSE 3375PRINT " medarbejdere"; 3376ENDIF 3379PRINT TAB(34);TUD$;TTIM$;" ";GSATS$;" "; 3380IF AFSL=AM THEN 3385PRINT "*****" 3390ELSE 3395PRINT 3400ENDIF 3405PRINT 3410RESUL$=AKK$(28,38) 3415EXEC Æ(RESUL1$,TTIMER) 3420IF TTIMER<>B THEN 3425EXEC CALC(V,RESUL$,RESUL1$,GSATS$) 3430ELSE 3435GSATS$=B3$ 3440ENDIF 3445IF RESUL$(11)="+" THEN RESUL$(11)=" " 3450IF RESUL1$(12)="+" THEN RESUL1$(12)=" " 3455IF GSATS$(12)="+" THEN GSATS$(12)=" " 3460PRINT "Totalt registreret på akkorden";TAB(35);RESUL$;RESUL1$;" ";GSATS$ 3465TUD$=AKK$(39,49) 3470EXEC Æ(TTIM$,RTIMER) 3475IF RTIMER<>B THEN 3480EXEC CALC(V,TUD$,TTIM$,GSATS$) 3485ELSE 3490GSATS$=B3$ 3495ENDIF 3500IF TUD$(11)="+" THEN TUD$(11)=" " 3505IF TTIM$(12)="+" THEN TTIM$(12)=" " 3510IF GSATS$(12)="+" THEN GSATS$(12)=" " 3515PRINT "Budgetteret på akkorden";TAB(35);TUD$;TTIM$;" ";GSATS$ 3516RESUL$=AKK$(28,38) 3517EXEC Æ(RESUL1$,TTIMER) 3518TUD$=AKK$(39,49) 3519EXEC Æ(TTIM$,RTIMER) 3520EXEC CALC(4,TUD$,B3$,B3$) 3525IF SI>B THEN 3530EXEC CALC(G,HUND$,RESUL$,RESUL$) 3535EXEC CALC(V,RESUL$,TUD$,RESUL$) 3540ELSE 3545RESUL$=B3$ 3550ENDIF 3555EXEC CALC(4,TTIM$,B3$,B3$) 3560IF SI>B THEN 3565EXEC CALC(G,HUND$,RESUL1$,RESUL1$) 3570EXEC CALC(V,RESUL1$,TTIM$,RESUL1$) 3575ELSE 3580RESUL1$=B3$ 3585ENDIF 3590IF RESUL$(12)="+" THEN RESUL$(12)=" " 3595IF RESUL1$(12)="+" THEN RESUL1$(12)=" " 3600PRINT "% effektueret";TAB(34);RESUL$;RESUL1$ 3605PRINT 3610PRINT 3615PRINT 3620LINIE=LINIE+W 3625IF SLETK=G THEN 3629AFSL=L 3630EXEC SLET 3631L=AFSL 3635ELSE 3640IF SLETK=E AND AFSL>B THEN EXEC UDAKK 3645ENDIF 3835ENDPROC 4015PROC FEJL(P1,P2,P3) 4030IF STATUS(P3$)<>B THEN 4045OUTPUT T 4060PRINT "FIL-FEJL ";P3$;STATUS(P3$),P1;P2 4075STOP 4090ENDIF 4105ENDPROC 4690DIM POST1$(71),POST2$(27) 4720FOR I=E TO 79 4735BL$=BL$+" " 4750NEXT I 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$) 6130LINIE=72 6250REPEAT 6265SV=G 6280CLEAR 6295CURSOR 10,10 6310PRINT "A K K O R D L I S T E" 6325PRINT 6340PRINT TAB(10);"0 Færdig" 6355PRINT TAB(10);"1 Enkelt akkord" 6370PRINT TAB(10);"2 Alle akkorder" 6430PRINT 6445REPEAT 6460CURSOR E,19 6475EDIT " ",SV 6490UNTIL SV=>B AND SV<=G 6505IF SV>B THEN 6506DEL=E;L=B 6507REPEAT 6508CLEAR 6509PRINT TAB(10);"Kun udskrift 1" 6510PRINT TAB(10);"Slet afsluttede akkorder 2" 6511PRINT TAB(10);"Slet afsluttede akkordmedarbejdere 3" 6512EDIT "Vælg 1 - 3 ",DEL 6513UNTIL DEL>B AND DEL<4 6514IF SV<>G THEN 6520REPEAT 6530AKKNR$=" " 6535EDIT "Akkordnr ",AKKNR$ 6550UNTIL LEN(AKKNR$)<=6 6551ENDIF 6552OUTPUT P 6553WHILE L<MAX 6554IF SV=G THEN L=L+E 6570EXEC INDAKK 6580CASE SV OF 6865WHEN E 6880IF FOUND=E THEN 6910EXEC SKRIVOPL 6940ELSE 6950OUTPUT T 6955PRINT "Akkord findes ikke" 6970INPUT "RETURN",LINE$ 6980OUTPUT P 6985ENDIF 6990L=MAX 7000WHEN G 7060EXEC SKRIVOPL 8005ENDCASE 8006ENDWHILE 8008OUTPUT T 8010ENDIF 8020UNTIL SV=B 8022OUTPUT P 8023WHILE LINIE<72 8024PRINT 8025LINIE=LINIE+E 8026ENDWHILE 8027OUTPUT T 8028EXEC UDTABEL 8035CLOSE 8065CHAIN "P641210:STARTB"
0x0000…004a Line {l1=0x48, l2=»0010DIM POST4$(34),FIL7$(20),AKKTIM(10),AKKS$(10,16),B3$(12),GSATS$(12) «, l3=0x48}
0x004a…0099 Line {l1=0x4d, l2=»0100DIM AKK$(49),NR$(606),Å(100),M(30),FIL8$(20),FIL9$(20),AKKNR$(6),DAD$(6) «, l3=0x4d}
0x0099…00df Line {l1=0x44, l2=»0105DIM RES$(15),OP1$(12),OP2$(12),RESUL$(12),RESUL1$(12),TTIM$(12) «, l3=0x44}
0x00df…00fc Line {l1=0x1b, l2=»0106DIM TUD$(12),HUND$(12) «, l3=0x1b}
0x00fc…011a Line {l1=0x1c, l2=»0110PROC CALC(AR3,B1,B2,ES) «, l3=0x1c}
0x011a…0159 Line {l1=0x3d, l2=»0115RES$=ES$;OP1$=B1$;OP2$=B2$;SI=B;FLAG=B;ART=AR3-6*(AR3>5) «, l3=0x3d}
0x0159…0173 Line {l1=0x18, l2=»0120CALL "P641210:REGN" «, l3=0x18}
0x0173…0188 Line {l1=0x13, l2=»0125IF AR3<6 THEN «, l3=0x13}
0x0188…01a1 Line {l1=0x17, l2=»0130IF FLAG THEN STOP «, l3=0x17}
0x01a1…01ae Line {l1=0x0b, l2=»0135ENDIF «, l3=0x0b}
0x01ae…01bd Line {l1=0x0d, l2=»0140ES$=RES$ «, l3=0x0d}
0x01bd…01cc Line {l1=0x0d, l2=»0145ENDPROC «, l3=0x0d}
0x01cc…01dc Line {l1=0x0e, l2=»0150PROC SLET «, l3=0x0e}
0x01dc…01ea Line {l1=0x0c, l2=»0151GN=Å(L) «, l3=0x0c}
0x01ea…0200 Line {l1=0x14, l2=»0152WHILE L<MAX DO «, l3=0x14}
0x0200…0224 Line {l1=0x22, l2=»0153NR$((L-E)*6+E:6)=NR$(L*6+E:6) «, l3=0x22}
0x0224…0236 Line {l1=0x10, l2=»0154Å(L)=Å(L+E) «, l3=0x10}
0x0236…0242 Line {l1=0x0a, l2=»0155L=L+E «, l3=0x0a}
0x0242…0252 Line {l1=0x0e, l2=»0156ENDWHILE «, l3=0x0e}
0x0252…0272 Line {l1=0x1e, l2=»0157NR$((L-E)*6+E:6)=" " «, l3=0x1e}
0x0272…0280 Line {l1=0x0c, l2=»0158Å(L)=GN «, l3=0x0c}
0x0280…0290 Line {l1=0x0e, l2=»0159MAX=MAX-E «, l3=0x0e}
0x0290…029f Line {l1=0x0d, l2=»0160ENDPROC «, l3=0x0d}
0x029f…02b2 Line {l1=0x11, l2=»0161PROC UDTABEL «, l3=0x11}
0x02b2…02c5 Line {l1=0x11, l2=»0162OPEN FIL9$,W «, l3=0x11}
0x02c5…02e0 Line {l1=0x19, l2=»0163EXEC FEJL(G,B,FIL9$) «, l3=0x19}
0x02e0…02f4 Line {l1=0x12, l2=»0164FOR I=E TO 10 «, l3=0x12}
0x02f4…0317 Line {l1=0x21, l2=»0165PUT FIL9$:NR$((I-E)*60+E:60) «, l3=0x21}
0x0317…0324 Line {l1=0x0b, l2=»0166NEXT I «, l3=0x0b}
0x0324…0367 Line {l1=0x41, l2=»0167PUT FIL9$:Å(E),Å(G),Å(V),Å(4),Å(5),Å(6),Å(7),Å(8),Å(W),Å(10) «, l3=0x41}
0x0367…03b3 Line {l1=0x4a, l2=»0168PUT FIL9$:Å(11),Å(12),Å(13),Å(14),Å(15),Å(16),Å(17),Å(18),Å(19),Å(20) «, l3=0x4a}
0x03b3…03ff Line {l1=0x4a, l2=»0169PUT FIL9$:Å(21),Å(22),Å(23),Å(24),Å(25),Å(26),Å(27),Å(28),Å(29),Å(30) «, l3=0x4a}
0x03ff…044b Line {l1=0x4a, l2=»0170PUT FIL9$:Å(31),Å(32),Å(33),Å(34),Å(35),Å(36),Å(37),Å(38),Å(39),Å(40) «, l3=0x4a}
0x044b…0497 Line {l1=0x4a, l2=»0171PUT FIL9$:Å(41),Å(42),Å(43),Å(44),Å(45),Å(46),Å(47),Å(48),Å(49),Å(50) «, l3=0x4a}
0x0497…04e3 Line {l1=0x4a, l2=»0172PUT FIL9$:Å(51),Å(52),Å(53),Å(54),Å(55),Å(56),Å(57),Å(58),Å(59),Å(60) «, l3=0x4a}
0x04e3…052f Line {l1=0x4a, l2=»0173PUT FIL9$:Å(61),Å(62),Å(63),Å(64),Å(65),Å(66),Å(67),Å(68),Å(69),Å(70) «, l3=0x4a}
0x052f…057b Line {l1=0x4a, l2=»0174PUT FIL9$:Å(71),Å(72),Å(73),Å(74),Å(75),Å(76),Å(77),Å(78),Å(79),Å(80) «, l3=0x4a}
0x057b…05c7 Line {l1=0x4a, l2=»0175PUT FIL9$:Å(81),Å(82),Å(83),Å(84),Å(85),Å(86),Å(87),Å(88),Å(89),Å(90) «, l3=0x4a}
0x05c7…0614 Line {l1=0x4b, l2=»0176PUT FIL9$:Å(91),Å(92),Å(93),Å(94),Å(95),Å(96),Å(97),Å(98),Å(99),Å(100) «, l3=0x4b}
0x0614…0623 Line {l1=0x0d, l2=»0177ENDPROC «, l3=0x0d}
0x0623…0648 Line {l1=0x23, l2=»0191DIM BL$(79),LINE$(50),FIL$(20) «, l3=0x23}
0x0648…0666 Line {l1=0x1c, l2=»0192FIL$="P641220:VIRKKART" «, l3=0x1c}
0x0666…0678 Line {l1=0x10, l2=»0193OPEN FIL$,R «, l3=0x10}
0x0678…0692 Line {l1=0x18, l2=»0194EXEC FEJL(B,B,FIL$) «, l3=0x18}
0x0692…06a8 Line {l1=0x14, l2=»0195GET FIL$,V:DAD$ «, l3=0x14}
0x06a8…06b9 Line {l1=0x0f, l2=»0196CLOSE FIL$ «, l3=0x0f}
0x06b9…06cb Line {l1=0x10, l2=»0200PROC INDAKK «, l3=0x10}
0x06cb…06df Line {l1=0x12, l2=»0203IF SV=E THEN «, l3=0x12}
0x06df…06ef Line {l1=0x0e, l2=»0205L=E;U=MAX «, l3=0x0e}
0x06ef…0702 Line {l1=0x11, l2=»0210IF U>B THEN «, l3=0x11}
0x0702…0710 Line {l1=0x0c, l2=»0215REPEAT «, l3=0x0c}
0x0710…0726 Line {l1=0x14, l2=»0220PEG=(L+U) DIV G «, l3=0x14}
0x0726…074f Line {l1=0x27, l2=»0225IF AKKNR$>NR$((PEG-E)*6+E:6) THEN «, l3=0x27}
0x074f…075d Line {l1=0x0c, l2=»0230L=PEG+E «, l3=0x0c}
0x075d…0769 Line {l1=0x0a, l2=»0235ELSE «, l3=0x0a}
0x0769…0777 Line {l1=0x0c, l2=»0240U=PEG-E «, l3=0x0c}
0x0777…0784 Line {l1=0x0b, l2=»0245ENDIF «, l3=0x0b}
0x0784…07b1 Line {l1=0x2b, l2=»0250UNTIL L>U OR AKKNR$=NR$((PEG-E)*6+E:6) «, l3=0x2b}
0x07b1…07be Line {l1=0x0b, l2=»0255ENDIF «, l3=0x0b}
0x07be…07ca Line {l1=0x0a, l2=»0260L=U+E «, l3=0x0a}
0x07ca…07d6 Line {l1=0x0a, l2=»0261ELSE «, l3=0x0a}
0x07d6…07f4 Line {l1=0x1c, l2=»0262AKKNR$=NR$((L-E)*6+E:6) «, l3=0x1c}
0x07f4…0801 Line {l1=0x0b, l2=»0263ENDIF «, l3=0x0b}
0x0801…0828 Line {l1=0x25, l2=»0265IF NR$((L-E)*6+E:6)=AKKNR$ THEN «, l3=0x25}
0x0828…0836 Line {l1=0x0c, l2=»0270FOUND=E «, l3=0x0c}
0x0836…0845 Line {l1=0x0d, l2=»0275PEG=Å(L) «, l3=0x0d}
0x0845…0872 Line {l1=0x2b, l2=»0280GET FIL8$,PEG:AKK$(E,27),TTIMER,RTIMER «, l3=0x2b}
0x0872…08a3 Line {l1=0x2f, l2=»0285GET FIL8$,PEG+E:AKK$(28,49),M(E),M(G),M(V) «, l3=0x2f}
0x08a3…08e9 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}
0x08e9…0935 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}
0x0935…0981 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}
0x0981…099e Line {l1=0x1b, l2=»0305EXEC FEJL(B,PEG,FIL8$) «, l3=0x1b}
0x099e…09c7 Line {l1=0x27, l2=»0310IF AKK$(E,6)<>AKKNR$ THEN FOUND=-E «, l3=0x27}
0x09c7…09d3 Line {l1=0x0a, l2=»0315ELSE «, l3=0x0a}
0x09d3…09e1 Line {l1=0x0c, l2=»0320FOUND=B «, l3=0x0c}
0x09e1…09ee Line {l1=0x0b, l2=»0325ENDIF «, l3=0x0b}
0x09ee…09fd Line {l1=0x0d, l2=»0330ENDPROC «, l3=0x0d}
0x09fd…0a0e Line {l1=0x0f, l2=»0335PROC UDAKK «, l3=0x0f}
0x0a0e…0a3b Line {l1=0x2b, l2=»0340PUT FIL8$,PEG:AKK$(E,27),TTIMER,RTIMER «, l3=0x2b}
0x0a3b…0a6c Line {l1=0x2f, l2=»0345PUT FIL8$,PEG+E:AKK$(28,49),M(E),M(G),M(V) «, l3=0x2f}
0x0a6c…0ab2 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}
0x0ab2…0afe 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}
0x0afe…0b4a 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}
0x0b4a…0b67 Line {l1=0x1b, l2=»0365EXEC FEJL(E,PEG,FIL8$) «, l3=0x1b}
0x0b67…0b76 Line {l1=0x0d, l2=»0370ENDPROC «, l3=0x0d}
0x0b76…0b8a Line {l1=0x12, l2=»0375PROC INDTABEL «, l3=0x12}
0x0b8a…0ba9 Line {l1=0x1d, l2=»0380FIL9$="P641220:AKKTABEL" «, l3=0x1d}
0x0ba9…0bbc Line {l1=0x11, l2=»0385OPEN FIL9$,R «, l3=0x11}
0x0bbc…0bd7 Line {l1=0x19, l2=»0390EXEC FEJL(B,B,FIL9$) «, l3=0x19}
0x0bd7…0beb Line {l1=0x12, l2=»0395FOR I=E TO 10 «, l3=0x12}
0x0beb…0c0e Line {l1=0x21, l2=»0400GET FIL9$:NR$((I-E)*60+E:60) «, l3=0x21}
0x0c0e…0c1b Line {l1=0x0b, l2=»0405NEXT I «, l3=0x0b}
0x0c1b…0c5e Line {l1=0x41, l2=»0410GET FIL9$:Å(E),Å(G),Å(V),Å(4),Å(5),Å(6),Å(7),Å(8),Å(W),Å(10) «, l3=0x41}
0x0c5e…0caa Line {l1=0x4a, l2=»0415GET FIL9$:Å(11),Å(12),Å(13),Å(14),Å(15),Å(16),Å(17),Å(18),Å(19),Å(20) «, l3=0x4a}
0x0caa…0cf6 Line {l1=0x4a, l2=»0420GET FIL9$:Å(21),Å(22),Å(23),Å(24),Å(25),Å(26),Å(27),Å(28),Å(29),Å(30) «, l3=0x4a}
0x0cf6…0d42 Line {l1=0x4a, l2=»0425GET FIL9$:Å(31),Å(32),Å(33),Å(34),Å(35),Å(36),Å(37),Å(38),Å(39),Å(40) «, l3=0x4a}
0x0d42…0d8e Line {l1=0x4a, l2=»0430GET FIL9$:Å(41),Å(42),Å(43),Å(44),Å(45),Å(46),Å(47),Å(48),Å(49),Å(50) «, l3=0x4a}
0x0d8e…0dda Line {l1=0x4a, l2=»0435GET FIL9$:Å(51),Å(52),Å(53),Å(54),Å(55),Å(56),Å(57),Å(58),Å(59),Å(60) «, l3=0x4a}
0x0dda…0e26 Line {l1=0x4a, l2=»0440GET FIL9$:Å(61),Å(62),Å(63),Å(64),Å(65),Å(66),Å(67),Å(68),Å(69),Å(70) «, l3=0x4a}
0x0e26…0e72 Line {l1=0x4a, l2=»0445GET FIL9$:Å(71),Å(72),Å(73),Å(74),Å(75),Å(76),Å(77),Å(78),Å(79),Å(80) «, l3=0x4a}
0x0e72…0ebe Line {l1=0x4a, l2=»0450GET FIL9$:Å(81),Å(82),Å(83),Å(84),Å(85),Å(86),Å(87),Å(88),Å(89),Å(90) «, l3=0x4a}
0x0ebe…0f0b Line {l1=0x4b, l2=»0455GET FIL9$:Å(91),Å(92),Å(93),Å(94),Å(95),Å(96),Å(97),Å(98),Å(99),Å(100) «, l3=0x4b}
0x0f0b…0f26 Line {l1=0x19, l2=»0460EXEC FEJL(E,B,FIL9$) «, l3=0x19}
0x0f26…0f3a Line {l1=0x12, l2=»0465FOR I=B TO 99 «, l3=0x12}
0x0f3a…0f5f Line {l1=0x23, l2=»0470IF NR$(I*6+E:6)=" " THEN «, l3=0x23}
0x0f5f…0f71 Line {l1=0x10, l2=»0475MAX=I;I=100 «, l3=0x10}
0x0f71…0f7e Line {l1=0x0b, l2=»0480ENDIF «, l3=0x0b}
0x0f7e…0f8b Line {l1=0x0b, l2=»0485NEXT I «, l3=0x0b}
0x0f8b…0f9d Line {l1=0x10, l2=»0490CLOSE FIL9$ «, l3=0x10}
0x0f9d…0fac Line {l1=0x0d, l2=»0495ENDPROC «, l3=0x0d}
0x0fac…0fc3 Line {l1=0x15, l2=»0500PROC INDREGNS(N) «, l3=0x15}
0x0fc3…0fd4 Line {l1=0x0f, l2=»0510J=10*(N-E) «, l3=0x0f}
0x0fd4…0fe8 Line {l1=0x12, l2=»0520FOR I=E TO 10 «, l3=0x12}
0x0fe8…100f Line {l1=0x25, l2=»0530GET FIL7$,J+I:AKKTIM(I),AKKS$(I) «, l3=0x25}
0x100f…101c Line {l1=0x0b, l2=»0540NEXT I «, l3=0x0b}
0x101c…1037 Line {l1=0x19, l2=»0550EXEC FEJL(N,J,FIL7$) «, l3=0x19}
0x1037…1046 Line {l1=0x0d, l2=»0560ENDPROC «, l3=0x0d}
0x1046…105c Line {l1=0x14, l2=»0600PROC UDREGNS(N) «, l3=0x14}
0x105c…106d Line {l1=0x0f, l2=»0610J=10*(N-E) «, l3=0x0f}
0x106d…1081 Line {l1=0x12, l2=»0620FOR I=E TO 10 «, l3=0x12}
0x1081…10a8 Line {l1=0x25, l2=»0630PUT FIL7$,J+I:AKKTIM(I),AKKS$(I) «, l3=0x25}
0x10a8…10b5 Line {l1=0x0b, l2=»0640NEXT I «, l3=0x0b}
0x10b5…10d1 Line {l1=0x1a, l2=»0650EXEC FEJL(-N,J,FIL7$) «, l3=0x1a}
0x10d1…10e0 Line {l1=0x0d, l2=»0660ENDPROC «, l3=0x0d}
0x10e0…10f7 Line {l1=0x15, l2=»0850PROC INLØNMOD(N) «, l3=0x15}
0x10f7…1113 Line {l1=0x1a, l2=»0865GET FIL$,G*N-E:POST1$ «, l3=0x1a}
0x1113…114f Line {l1=0x3a, l2=»0880GET FIL$,G*N:POST2$,C1,C2,LT,LF,LR,LA,RPI,K1,K2,FG,FD «, l3=0x3a}
0x114f…1169 Line {l1=0x18, l2=»0895EXEC FEJL(E,N,FIL$) «, l3=0x18}
0x1169…1178 Line {l1=0x0d, l2=»0910ENDPROC «, l3=0x0d}
0x1178…1191 Line {l1=0x17, l2=»0915B3$=" 0+" «, l3=0x17}
0x1191…11a3 Line {l1=0x10, l2=»0916TI=10;EL=11 «, l3=0x10}
0x11a3…11be Line {l1=0x19, l2=»0917HUND$=" 100,00+" «, l3=0x19}
0x11be…11d2 Line {l1=0x12, l2=»0920PROC Æ(I1,I2) «, l3=0x12}
0x11d2…11e0 Line {l1=0x0c, l2=»0930I1$=B3$ «, l3=0x0c}
0x11e0…11f5 Line {l1=0x13, l2=»0940IF I2<>B THEN «, l3=0x13}
0x11f5…1236 Line {l1=0x3f, l2=»0950I1$(W,TI)=",0";I0=ABS(I2);K0=INT((I0-INT(I0))*100+0.50001) «, l3=0x3f}
0x1236…1255 Line {l1=0x1d, l2=»0960IF I2<B THEN I1$(12)="-" «, l3=0x1d}
0x1255…1271 Line {l1=0x1a, l2=»0970FOR I=EL TO E STEP -E «, l3=0x1a}
0x1271…1285 Line {l1=0x12, l2=»0980IF I<>W THEN «, l3=0x12}
0x1285…12a4 Line {l1=0x1d, l2=»0990I1$(I)=CHR(K0 MOD TI+48) «, l3=0x1d}
0x12a4…12b7 Line {l1=0x11, l2=»1000K0=K0 DIV TI «, l3=0x11}
0x12b7…12d7 Line {l1=0x1e, l2=»1010IF K0=B AND I<TI THEN I=B «, l3=0x1e}
0x12d7…12e3 Line {l1=0x0a, l2=»1020ELSE «, l3=0x0a}
0x12e3…12f4 Line {l1=0x0f, l2=»1030K0=INT(I0) «, l3=0x0f}
0x12f4…1301 Line {l1=0x0b, l2=»1040ENDIF «, l3=0x0b}
0x1301…130e Line {l1=0x0b, l2=»1050NEXT I «, l3=0x0b}
0x130e…131b Line {l1=0x0b, l2=»1060ENDIF «, l3=0x0b}
0x131b…132a Line {l1=0x0d, l2=»1070ENDPROC «, l3=0x0d}
0x132a…133e Line {l1=0x12, l2=»2980PROC SKRIVOPL «, l3=0x12}
0x133e…1357 Line {l1=0x17, l2=»2985TUD$=B3$;TTIM$=B3$ «, l3=0x17}
0x1357…136d Line {l1=0x14, l2=»2990SLETK,AM,AFSL=B «, l3=0x14}
0x136d…1381 Line {l1=0x12, l2=»2995FOR I=E TO 30 «, l3=0x12}
0x1381…1398 Line {l1=0x15, l2=»3000IF M(I)<>B THEN «, l3=0x15}
0x1398…13a6 Line {l1=0x0c, l2=»3005AM=AM+E «, l3=0x0c}
0x13a6…13c7 Line {l1=0x1f, l2=»3010IF M(I)<B THEN AFSL=AFSL+E «, l3=0x1f}
0x13c7…13d4 Line {l1=0x0b, l2=»3015ENDIF «, l3=0x0b}
0x13d4…13e1 Line {l1=0x0b, l2=»3020NEXT I «, l3=0x0b}
0x13e1…13fd Line {l1=0x1a, l2=»3025IF DEL=V THEN SLETK=E «, l3=0x1a}
0x13fd…1425 Line {l1=0x26, l2=»3030IF DEL=G AND AFSL=AM THEN SLETK=G «, l3=0x26}
0x1425…1443 Line {l1=0x1c, l2=»3035IF LINIE+AM+15>72 THEN «, l3=0x1c}
0x1443…1458 Line {l1=0x13, l2=»3040WHILE LINIE<72 «, l3=0x13}
0x1458…1465 Line {l1=0x0b, l2=»3045PRINT «, l3=0x0b}
0x1465…1479 Line {l1=0x12, l2=»3050LINIE=LINIE+E «, l3=0x12}
0x1479…1489 Line {l1=0x0e, l2=»3055ENDWHILE «, l3=0x0e}
0x1489…1496 Line {l1=0x0b, l2=»3060PRINT «, l3=0x0b}
0x1496…14d1 Line {l1=0x39, l2=»3065PRINT "A K K O R D - L I S T E";TAB(60);"Dato ";DAD$ «, l3=0x39}
0x14d1…14df Line {l1=0x0c, l2=»3070LINIE=G «, l3=0x0c}
0x14df…14ec Line {l1=0x0b, l2=»3075ENDIF «, l3=0x0b}
0x14ec…14f9 Line {l1=0x0b, l2=»3080PRINT «, l3=0x0b}
0x14f9…1506 Line {l1=0x0b, l2=»3085PRINT «, l3=0x0b}
0x1506…1513 Line {l1=0x0b, l2=»3090PRINT «, l3=0x0b}
0x1513…1547 Line {l1=0x32, l2=»3095PRINT "Akkord: ";AKK$(E,6);TAB(25);AKK$(7,27) «, l3=0x32}
0x1547…1554 Line {l1=0x0b, l2=»3100PRINT «, l3=0x0b}
0x1554…159c Line {l1=0x46, l2=»3105PRINT "LØNNR NAVN UDBETALT TIMER"; «, l3=0x46}
0x159c…15c1 Line {l1=0x23, l2=»3110PRINT " GSATS AFSLT" «, l3=0x23}
0x15c1…15d5 Line {l1=0x12, l2=»3115LINIE=LINIE+6 «, l3=0x12}
0x15d5…15e9 Line {l1=0x12, l2=»3120FOR K=E TO 30 «, l3=0x12}
0x15e9…1600 Line {l1=0x15, l2=»3125IF M(K)<>B THEN «, l3=0x15}
0x1600…1615 Line {l1=0x13, l2=»3130LMNR=ABS(M(K)) «, l3=0x13}
0x1615…162f Line {l1=0x18, l2=»3135EXEC INLØNMOD(LMNR) «, l3=0x18}
0x162f…1649 Line {l1=0x18, l2=»3140EXEC INDREGNS(LMNR) «, l3=0x18}
0x1649…165d Line {l1=0x12, l2=»3145FOR J=E TO 10 «, l3=0x12}
0x165d…1688 Line {l1=0x29, l2=»3150IF AKKS$(J,11,16)=AKKNR$ THEN J=J+20 «, l3=0x29}
0x1688…1695 Line {l1=0x0b, l2=»3155NEXT J «, l3=0x0b}
0x1695…16a2 Line {l1=0x0b, l2=»3160J=J-21 «, l3=0x0b}
0x16a2…16b6 Line {l1=0x12, l2=»3165LINIE=LINIE+E «, l3=0x12}
0x16b6…16c9 Line {l1=0x11, l2=»3170IF J<E THEN «, l3=0x11}
0x16c9…1712 Line {l1=0x47, l2=»3175PRINT "Indrapporter straks denne hændelse til H.S.MØLLER, og STOP" «, l3=0x47}
0x1712…171e Line {l1=0x0a, l2=»3180ELSE «, l3=0x0a}
0x171e…1739 Line {l1=0x19, l2=»3185RESUL$=AKKS$(J,E,10) «, l3=0x19}
0x1739…175e Line {l1=0x23, l2=»3190EXEC Æ(RESUL1$,ABS(AKKTIM(J))) «, l3=0x23}
0x175e…1782 Line {l1=0x22, l2=»3195EXEC CALC(B,TUD$,RESUL$,TUD$) «, l3=0x22}
0x1782…17a9 Line {l1=0x25, l2=»3200EXEC CALC(B,TTIM$,RESUL1$,TTIM$) «, l3=0x25}
0x17a9…17c5 Line {l1=0x1a, l2=»3205IF AKKTIM(J)<>B THEN «, l3=0x1a}
0x17c5…17ee Line {l1=0x27, l2=»3210EXEC CALC(V,RESUL$,RESUL1$,GSATS$) «, l3=0x27}
0x17ee…17fa Line {l1=0x0a, l2=»3215ELSE «, l3=0x0a}
0x17fa…180b Line {l1=0x0f, l2=»3220GSATS$=B3$ «, l3=0x0f}
0x180b…1818 Line {l1=0x0b, l2=»3225ENDIF «, l3=0x0b}
0x1818…1846 Line {l1=0x2c, l2=»3230IF RESUL1$(12)="+" THEN RESUL1$(12)=" " «, l3=0x2c}
0x1846…1872 Line {l1=0x2a, l2=»3235IF RESUL$(10)="+" THEN RESUL$(10)=" " «, l3=0x2a}
0x1872…189e Line {l1=0x2a, l2=»3240IF GSATS$(12)="+" THEN GSATS$(12)=" " «, l3=0x2a}
0x189e…18e9 Line {l1=0x49, l2=»3245PRINT LMNR;TAB(W);POST1$(E,25);" ";RESUL$;RESUL1$;" ";GSATS$;" "; «, l3=0x49}
0x18e9…18ff Line {l1=0x14, l2=»3250IF M(K)<B THEN «, l3=0x14}
0x18ff…1913 Line {l1=0x12, l2=»3255PRINT "*****" «, l3=0x12}
0x1913…192a Line {l1=0x15, l2=»3260IF SLETK>B THEN «, l3=0x15}
0x192a…1937 Line {l1=0x0b, l2=»3265M(K)=B «, l3=0x0b}
0x1937…1949 Line {l1=0x10, l2=»3270AKKTIM(J)=B «, l3=0x10}
0x1949…196b Line {l1=0x20, l2=»3275AKKS$(J)=" 0+ " «, l3=0x20}
0x196b…1984 Line {l1=0x17, l2=»3280EXEC UDREGNS(LMNR) «, l3=0x17}
0x1984…1991 Line {l1=0x0b, l2=»3285ENDIF «, l3=0x0b}
0x1991…199d Line {l1=0x0a, l2=»3290ELSE «, l3=0x0a}
0x199d…19aa Line {l1=0x0b, l2=»3295PRINT «, l3=0x0b}
0x19aa…19b7 Line {l1=0x0b, l2=»3300ENDIF «, l3=0x0b}
0x19b7…19c4 Line {l1=0x0b, l2=»3305ENDIF «, l3=0x0b}
0x19c4…19d1 Line {l1=0x0b, l2=»3310ENDIF «, l3=0x0b}
0x19d1…19de Line {l1=0x0b, l2=»3315NEXT K «, l3=0x0b}
0x19de…1a2d Line {l1=0x4d, l2=»3320PRINT "---------------------------------------------------------------"; «, l3=0x4d}
0x1a2d…1a4b Line {l1=0x1c, l2=»3325PRINT "---------------" «, l3=0x1c}
0x1a4b…1a6c Line {l1=0x1f, l2=»3330EXEC CALC(4,TTIM$,B3$,B3$) «, l3=0x1f}
0x1a6c…1a80 Line {l1=0x12, l2=»3335IF SI>B THEN «, l3=0x12}
0x1a80…1aa5 Line {l1=0x23, l2=»3340EXEC CALC(V,TUD$,TTIM$,GSATS$) «, l3=0x23}
0x1aa5…1ab1 Line {l1=0x0a, l2=»3345ELSE «, l3=0x0a}
0x1ab1…1ac2 Line {l1=0x0f, l2=»3350GSATS$=B3$ «, l3=0x0f}
0x1ac2…1acf Line {l1=0x0b, l2=»3355ENDIF «, l3=0x0b}
0x1acf…1af9 Line {l1=0x28, l2=»3360IF TTIM$(12)="+" THEN TTIM$(12)=" " «, l3=0x28}
0x1af9…1b21 Line {l1=0x26, l2=»3365IF TUD$(12)="+" THEN TUD$(12)=" " «, l3=0x26}
0x1b21…1b4d Line {l1=0x2a, l2=»3370IF GSATS$(12)="+" THEN GSATS$(12)=" " «, l3=0x2a}
0x1b4d…1b66 Line {l1=0x17, l2=»3371PRINT "Total ";AM; «, l3=0x17}
0x1b66…1b7a Line {l1=0x12, l2=»3372IF AM=E THEN «, l3=0x12}
0x1b7a…1b96 Line {l1=0x1a, l2=»3373PRINT " medarbejder"; «, l3=0x1a}
0x1b96…1ba2 Line {l1=0x0a, l2=»3374ELSE «, l3=0x0a}
0x1ba2…1bbf Line {l1=0x1b, l2=»3375PRINT " medarbejdere"; «, l3=0x1b}
0x1bbf…1bcc Line {l1=0x0b, l2=»3376ENDIF «, l3=0x0b}
0x1bcc…1bfd Line {l1=0x2f, l2=»3379PRINT TAB(34);TUD$;TTIM$;" ";GSATS$;" "; «, l3=0x2f}
0x1bfd…1c14 Line {l1=0x15, l2=»3380IF AFSL=AM THEN «, l3=0x15}
0x1c14…1c28 Line {l1=0x12, l2=»3385PRINT "*****" «, l3=0x12}
0x1c28…1c34 Line {l1=0x0a, l2=»3390ELSE «, l3=0x0a}
0x1c34…1c41 Line {l1=0x0b, l2=»3395PRINT «, l3=0x0b}
0x1c41…1c4e Line {l1=0x0b, l2=»3400ENDIF «, l3=0x0b}
0x1c4e…1c5b Line {l1=0x0b, l2=»3405PRINT «, l3=0x0b}
0x1c5b…1c74 Line {l1=0x17, l2=»3410RESUL$=AKK$(28,38) «, l3=0x17}
0x1c74…1c91 Line {l1=0x1b, l2=»3415EXEC Æ(RESUL1$,TTIMER) «, l3=0x1b}
0x1c91…1caa Line {l1=0x17, l2=»3420IF TTIMER<>B THEN «, l3=0x17}
0x1caa…1cd3 Line {l1=0x27, l2=»3425EXEC CALC(V,RESUL$,RESUL1$,GSATS$) «, l3=0x27}
0x1cd3…1cdf Line {l1=0x0a, l2=»3430ELSE «, l3=0x0a}
0x1cdf…1cf0 Line {l1=0x0f, l2=»3435GSATS$=B3$ «, l3=0x0f}
0x1cf0…1cfd Line {l1=0x0b, l2=»3440ENDIF «, l3=0x0b}
0x1cfd…1d29 Line {l1=0x2a, l2=»3445IF RESUL$(11)="+" THEN RESUL$(11)=" " «, l3=0x2a}
0x1d29…1d57 Line {l1=0x2c, l2=»3450IF RESUL1$(12)="+" THEN RESUL1$(12)=" " «, l3=0x2c}
0x1d57…1d83 Line {l1=0x2a, l2=»3455IF GSATS$(12)="+" THEN GSATS$(12)=" " «, l3=0x2a}
0x1d83…1dd2 Line {l1=0x4d, l2=»3460PRINT "Totalt registreret på akkorden";TAB(35);RESUL$;RESUL1$;" ";GSATS$ «, l3=0x4d}
0x1dd2…1de9 Line {l1=0x15, l2=»3465TUD$=AKK$(39,49) «, l3=0x15}
0x1de9…1e04 Line {l1=0x19, l2=»3470EXEC Æ(TTIM$,RTIMER) «, l3=0x19}
0x1e04…1e1d Line {l1=0x17, l2=»3475IF RTIMER<>B THEN «, l3=0x17}
0x1e1d…1e42 Line {l1=0x23, l2=»3480EXEC CALC(V,TUD$,TTIM$,GSATS$) «, l3=0x23}
0x1e42…1e4e Line {l1=0x0a, l2=»3485ELSE «, l3=0x0a}
0x1e4e…1e5f Line {l1=0x0f, l2=»3490GSATS$=B3$ «, l3=0x0f}
0x1e5f…1e6c Line {l1=0x0b, l2=»3495ENDIF «, l3=0x0b}
0x1e6c…1e94 Line {l1=0x26, l2=»3500IF TUD$(11)="+" THEN TUD$(11)=" " «, l3=0x26}
0x1e94…1ebe Line {l1=0x28, l2=»3505IF TTIM$(12)="+" THEN TTIM$(12)=" " «, l3=0x28}
0x1ebe…1eea Line {l1=0x2a, l2=»3510IF GSATS$(12)="+" THEN GSATS$(12)=" " «, l3=0x2a}
0x1eea…1f2e Line {l1=0x42, l2=»3515PRINT "Budgetteret på akkorden";TAB(35);TUD$;TTIM$;" ";GSATS$ «, l3=0x42}
0x1f2e…1f47 Line {l1=0x17, l2=»3516RESUL$=AKK$(28,38) «, l3=0x17}
0x1f47…1f64 Line {l1=0x1b, l2=»3517EXEC Æ(RESUL1$,TTIMER) «, l3=0x1b}
0x1f64…1f7b Line {l1=0x15, l2=»3518TUD$=AKK$(39,49) «, l3=0x15}
0x1f7b…1f96 Line {l1=0x19, l2=»3519EXEC Æ(TTIM$,RTIMER) «, l3=0x19}
0x1f96…1fb6 Line {l1=0x1e, l2=»3520EXEC CALC(4,TUD$,B3$,B3$) «, l3=0x1e}
0x1fb6…1fca Line {l1=0x12, l2=»3525IF SI>B THEN «, l3=0x12}
0x1fca…1ff1 Line {l1=0x25, l2=»3530EXEC CALC(G,HUND$,RESUL$,RESUL$) «, l3=0x25}
0x1ff1…2017 Line {l1=0x24, l2=»3535EXEC CALC(V,RESUL$,TUD$,RESUL$) «, l3=0x24}
0x2017…2023 Line {l1=0x0a, l2=»3540ELSE «, l3=0x0a}
0x2023…2034 Line {l1=0x0f, l2=»3545RESUL$=B3$ «, l3=0x0f}
0x2034…2041 Line {l1=0x0b, l2=»3550ENDIF «, l3=0x0b}
0x2041…2062 Line {l1=0x1f, l2=»3555EXEC CALC(4,TTIM$,B3$,B3$) «, l3=0x1f}
0x2062…2076 Line {l1=0x12, l2=»3560IF SI>B THEN «, l3=0x12}
0x2076…209f Line {l1=0x27, l2=»3565EXEC CALC(G,HUND$,RESUL1$,RESUL1$) «, l3=0x27}
0x209f…20c8 Line {l1=0x27, l2=»3570EXEC CALC(V,RESUL1$,TTIM$,RESUL1$) «, l3=0x27}
0x20c8…20d4 Line {l1=0x0a, l2=»3575ELSE «, l3=0x0a}
0x20d4…20e6 Line {l1=0x10, l2=»3580RESUL1$=B3$ «, l3=0x10}
0x20e6…20f3 Line {l1=0x0b, l2=»3585ENDIF «, l3=0x0b}
0x20f3…211f Line {l1=0x2a, l2=»3590IF RESUL$(12)="+" THEN RESUL$(12)=" " «, l3=0x2a}
0x211f…214d Line {l1=0x2c, l2=»3595IF RESUL1$(12)="+" THEN RESUL1$(12)=" " «, l3=0x2c}
0x214d…2180 Line {l1=0x31, l2=»3600PRINT "% effektueret";TAB(34);RESUL$;RESUL1$ «, l3=0x31}
0x2180…218d Line {l1=0x0b, l2=»3605PRINT «, l3=0x0b}
0x218d…219a Line {l1=0x0b, l2=»3610PRINT «, l3=0x0b}
0x219a…21a7 Line {l1=0x0b, l2=»3615PRINT «, l3=0x0b}
0x21a7…21bb Line {l1=0x12, l2=»3620LINIE=LINIE+W «, l3=0x12}
0x21bb…21d2 Line {l1=0x15, l2=»3625IF SLETK=G THEN «, l3=0x15}
0x21d2…21df Line {l1=0x0b, l2=»3629AFSL=L «, l3=0x0b}
0x21df…21ef Line {l1=0x0e, l2=»3630EXEC SLET «, l3=0x0e}
0x21ef…21fc Line {l1=0x0b, l2=»3631L=AFSL «, l3=0x0b}
0x21fc…2208 Line {l1=0x0a, l2=»3635ELSE «, l3=0x0a}
0x2208…2234 Line {l1=0x2a, l2=»3640IF SLETK=E AND AFSL>B THEN EXEC UDAKK «, l3=0x2a}
0x2234…2241 Line {l1=0x0b, l2=»3645ENDIF «, l3=0x0b}
0x2241…2250 Line {l1=0x0d, l2=»3835ENDPROC «, l3=0x0d}
0x2250…226a Line {l1=0x18, l2=»4015PROC FEJL(P1,P2,P3) «, l3=0x18}
0x226a…2288 Line {l1=0x1c, l2=»4030IF STATUS(P3$)<>B THEN «, l3=0x1c}
0x2288…2297 Line {l1=0x0d, l2=»4045OUTPUT T «, l3=0x0d}
0x2297…22c5 Line {l1=0x2c, l2=»4060PRINT "FIL-FEJL ";P3$;STATUS(P3$),P1;P2 «, l3=0x2c}
0x22c5…22d1 Line {l1=0x0a, l2=»4075STOP «, l3=0x0a}
0x22d1…22de Line {l1=0x0b, l2=»4090ENDIF «, l3=0x0b}
0x22de…22ed Line {l1=0x0d, l2=»4105ENDPROC «, l3=0x0d}
0x22ed…230d Line {l1=0x1e, l2=»4690DIM POST1$(71),POST2$(27) «, l3=0x1e}
0x230d…2321 Line {l1=0x12, l2=»4720FOR I=E TO 79 «, l3=0x12}
0x2321…2333 Line {l1=0x10, l2=»4735BL$=BL$+" " «, l3=0x10}
0x2333…2340 Line {l1=0x0b, l2=»4750NEXT I «, l3=0x0b}
0x2340…235e Line {l1=0x1c, l2=»6070FIL$="P641220:LØNMODRG" «, l3=0x1c}
0x235e…2370 Line {l1=0x10, l2=»6085OPEN FIL$,R «, l3=0x10}
0x2370…238a Line {l1=0x18, l2=»6100EXEC FEJL(B,B,FIL$) «, l3=0x18}
0x238a…23a9 Line {l1=0x1d, l2=»6102FIL8$="P641220:AKKHOVED" «, l3=0x1d}
0x23a9…23bc Line {l1=0x11, l2=»6104OPEN FIL8$,W «, l3=0x11}
0x23bc…23d7 Line {l1=0x19, l2=»6106EXEC FEJL(B,B,FIL8$) «, l3=0x19}
0x23d7…23eb Line {l1=0x12, l2=»6108EXEC INDTABEL «, l3=0x12}
0x23eb…240a Line {l1=0x1d, l2=»6110FIL7$="P641220:AKKREGNS" «, l3=0x1d}
0x240a…241d Line {l1=0x11, l2=»6112OPEN FIL7$,W «, l3=0x11}
0x241d…2438 Line {l1=0x19, l2=»6114EXEC FEJL(B,B,FIL7$) «, l3=0x19}
0x2438…2447 Line {l1=0x0d, l2=»6130LINIE=72 «, l3=0x0d}
0x2447…2455 Line {l1=0x0c, l2=»6250REPEAT «, l3=0x0c}
0x2455…2460 Line {l1=0x09, l2=»6265SV=G «, l3=0x09}
0x2460…246d Line {l1=0x0b, l2=»6280CLEAR «, l3=0x0b}
0x246d…2480 Line {l1=0x11, l2=»6295CURSOR 10,10 «, l3=0x11}
0x2480…24a4 Line {l1=0x22, l2=»6310PRINT "A K K O R D L I S T E" «, l3=0x22}
0x24a4…24b1 Line {l1=0x0b, l2=»6325PRINT «, l3=0x0b}
0x24b1…24d0 Line {l1=0x1d, l2=»6340PRINT TAB(10);"0 Færdig" «, l3=0x1d}
0x24d0…24f6 Line {l1=0x24, l2=»6355PRINT TAB(10);"1 Enkelt akkord" «, l3=0x24}
0x24f6…251c Line {l1=0x24, l2=»6370PRINT TAB(10);"2 Alle akkorder" «, l3=0x24}
0x251c…2529 Line {l1=0x0b, l2=»6430PRINT «, l3=0x0b}
0x2529…2537 Line {l1=0x0c, l2=»6445REPEAT «, l3=0x0c}
0x2537…2549 Line {l1=0x10, l2=»6460CURSOR E,19 «, l3=0x10}
0x2549…2564 Line {l1=0x19, l2=»6475EDIT " ",SV «, l3=0x19}
0x2564…2580 Line {l1=0x1a, l2=»6490UNTIL SV=>B AND SV<=G «, l3=0x1a}
0x2580…2594 Line {l1=0x12, l2=»6505IF SV>B THEN «, l3=0x12}
0x2594…25a4 Line {l1=0x0e, l2=»6506DEL=E;L=B «, l3=0x0e}
0x25a4…25b2 Line {l1=0x0c, l2=»6507REPEAT «, l3=0x0c}
0x25b2…25bf Line {l1=0x0b, l2=»6508CLEAR «, l3=0x0b}
0x25bf…25fc Line {l1=0x3b, l2=»6509PRINT TAB(10);"Kun udskrift 1" «, l3=0x3b}
0x25fc…2639 Line {l1=0x3b, l2=»6510PRINT TAB(10);"Slet afsluttede akkorder 2" «, l3=0x3b}
0x2639…2676 Line {l1=0x3b, l2=»6511PRINT TAB(10);"Slet afsluttede akkordmedarbejdere 3" «, l3=0x3b}
0x2676…2693 Line {l1=0x1b, l2=»6512EDIT "Vælg 1 - 3 ",DEL «, l3=0x1b}
0x2693…26af Line {l1=0x1a, l2=»6513UNTIL DEL>B AND DEL<4 «, l3=0x1a}
0x26af…26c4 Line {l1=0x13, l2=»6514IF SV<>G THEN «, l3=0x13}
0x26c4…26d2 Line {l1=0x0c, l2=»6520REPEAT «, l3=0x0c}
0x26d2…26e8 Line {l1=0x14, l2=»6530AKKNR$=" " «, l3=0x14}
0x26e8…2706 Line {l1=0x1c, l2=»6535EDIT "Akkordnr ",AKKNR$ «, l3=0x1c}
0x2706…2721 Line {l1=0x19, l2=»6550UNTIL LEN(AKKNR$)<=6 «, l3=0x19}
0x2721…272e Line {l1=0x0b, l2=»6551ENDIF «, l3=0x0b}
0x272e…273d Line {l1=0x0d, l2=»6552OUTPUT P «, l3=0x0d}
0x273d…274f Line {l1=0x10, l2=»6553WHILE L<MAX «, l3=0x10}
0x274f…2768 Line {l1=0x17, l2=»6554IF SV=G THEN L=L+E «, l3=0x17}
0x2768…277a Line {l1=0x10, l2=»6570EXEC INDAKK «, l3=0x10}
0x277a…278c Line {l1=0x10, l2=»6580CASE SV OF «, l3=0x10}
0x278c…2799 Line {l1=0x0b, l2=»6865WHEN E «, l3=0x0b}
0x2799…27b0 Line {l1=0x15, l2=»6880IF FOUND=E THEN «, l3=0x15}
0x27b0…27c4 Line {l1=0x12, l2=»6910EXEC SKRIVOPL «, l3=0x12}
0x27c4…27d0 Line {l1=0x0a, l2=»6940ELSE «, l3=0x0a}
0x27d0…27df Line {l1=0x0d, l2=»6950OUTPUT T «, l3=0x0d}
0x27df…2800 Line {l1=0x1f, l2=»6955PRINT "Akkord findes ikke" «, l3=0x1f}
0x2800…281b Line {l1=0x19, l2=»6970INPUT "RETURN",LINE$ «, l3=0x19}
0x281b…282a Line {l1=0x0d, l2=»6980OUTPUT P «, l3=0x0d}
0x282a…2837 Line {l1=0x0b, l2=»6985ENDIF «, l3=0x0b}
0x2837…2843 Line {l1=0x0a, l2=»6990L=MAX «, l3=0x0a}
0x2843…2850 Line {l1=0x0b, l2=»7000WHEN G «, l3=0x0b}
0x2850…2864 Line {l1=0x12, l2=»7060EXEC SKRIVOPL «, l3=0x12}
0x2864…2873 Line {l1=0x0d, l2=»8005ENDCASE «, l3=0x0d}
0x2873…2883 Line {l1=0x0e, l2=»8006ENDWHILE «, l3=0x0e}
0x2883…2892 Line {l1=0x0d, l2=»8008OUTPUT T «, l3=0x0d}
0x2892…289f Line {l1=0x0b, l2=»8010ENDIF «, l3=0x0b}
0x289f…28b0 Line {l1=0x0f, l2=»8020UNTIL SV=B «, l3=0x0f}
0x28b0…28bf Line {l1=0x0d, l2=»8022OUTPUT P «, l3=0x0d}
0x28bf…28d4 Line {l1=0x13, l2=»8023WHILE LINIE<72 «, l3=0x13}
0x28d4…28e1 Line {l1=0x0b, l2=»8024PRINT «, l3=0x0b}
0x28e1…28f5 Line {l1=0x12, l2=»8025LINIE=LINIE+E «, l3=0x12}
0x28f5…2905 Line {l1=0x0e, l2=»8026ENDWHILE «, l3=0x0e}
0x2905…2914 Line {l1=0x0d, l2=»8027OUTPUT T «, l3=0x0d}
0x2914…2927 Line {l1=0x11, l2=»8028EXEC UDTABEL «, l3=0x11}
0x2927…2934 Line {l1=0x0b, l2=»8035CLOSE «, l3=0x0b}
0x2934…2951 Line {l1=0x1b, l2=»8065CHAIN "P641210:STARTB" «, l3=0x1b}
0x2951…2960 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x2960…2980 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 ┆ ┆
[…0x3f…]