|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 10112 (0x2780)
Types: TextFile
Notes: Mikados_K
Names: »AKKMLIST.K«
└─⟦385f097a1⟧ Bits:30008988 SPC/1 COMAL programmer til bogføring
└─⟦this⟧ »AKKMLIST.K«
0100DIM POST4$(34),FIL7$(20),AKKTIM(10),AKKS$(10,16),B3$(12),TUD$(12) 0110DIM AKK$(49),NR$(606),Å(100),M(30),FIL8$(20),FIL9$(20),AKKNR$(6),DAD$(6) 0120DIM RES$(15),OP1$(12),OP2$(12),RESUL$(12),RESUL1$(12),TTIM$(12) 0130DIM GSATS$(12) 0140PROC CALC(AR3,B1,B2,ES) 0150RES$=ES$;OP1$=B1$;OP2$=B2$;SI=B;FLAG=B;ART=AR3-6*(AR3>5) 0160CALL "P641210:REGN" 0170IF AR3<6 THEN 0180IF FLAG THEN STOP 0190ENDIF 0200ES$=RES$ 0210ENDPROC 0220PROC CONV(NR2,OK22,CIF) 0230OK2=ABS(OK22) 0240NR2$="" 0250REPEAT 0260NR2$=CHR((OK2 MOD 10)+48)+NR2$ 0270CIF=CIF-E 0280OK2=OK2 DIV 10 0290IF CIF<B AND OK2=B THEN CIF=B 0300UNTIL CIF=B 0310IF OK22<B THEN NR2$="-"+NR2$ 0320ENDPROC 0330PROC INDAKK 0340L=E;U=MAX 0350IF U>B THEN 0360REPEAT 0370PEG=(L+U) DIV G 0380IF AKKNR$>NR$((PEG-E)*6+E:6) THEN 0390L=PEG+E 0400ELSE 0410U=PEG-E 0420ENDIF 0430UNTIL L>U OR AKKNR$=NR$((PEG-E)*6+E:6) 0440ENDIF 0450L=U+E 0460IF NR$((L-E)*6+E:6)=AKKNR$ THEN 0470FOUND=E 0480PEG=Å(L) 0490GET FIL8$,PEG:AKK$(E,27),TTIMER,RTIMER 0500GET FIL8$,PEG+E:AKK$(28,49),M(E),M(G),M(V) 0510GET FIL8$,PEG+G:M(4),M(5),M(6),M(7),M(8),M(W),M(10),M(11),M(12) 0520GET FIL8$,PEG+V:M(13),M(14),M(15),M(16),M(17),M(18),M(19),M(20),M(21) 0530GET FIL8$,PEG+4:M(22),M(23),M(24),M(25),M(26),M(27),M(28),M(29),M(30) 0540EXEC FEJL(B,PEG,FIL8$) 0550IF AKK$(E,6)<>AKKNR$ THEN FOUND=-E 0560ELSE 0570FOUND=B 0580ENDIF 0590ENDPROC 0600PROC INDTABEL 0610FIL9$="P641220:AKKTABEL" 0620OPEN FIL9$,R 0630EXEC FEJL(B,B,FIL9$) 0640FOR I=E TO 10 0650GET FIL9$:NR$((I-E)*60+E:60) 0660NEXT I 0670GET FIL9$:Å(E),Å(G),Å(V),Å(4),Å(5),Å(6),Å(7),Å(8),Å(W),Å(10) 0680GET FIL9$:Å(11),Å(12),Å(13),Å(14),Å(15),Å(16),Å(17),Å(18),Å(19),Å(20) 0690GET FIL9$:Å(21),Å(22),Å(23),Å(24),Å(25),Å(26),Å(27),Å(28),Å(29),Å(30) 0700GET FIL9$:Å(31),Å(32),Å(33),Å(34),Å(35),Å(36),Å(37),Å(38),Å(39),Å(40) 0710GET FIL9$:Å(41),Å(42),Å(43),Å(44),Å(45),Å(46),Å(47),Å(48),Å(49),Å(50) 0720GET FIL9$:Å(51),Å(52),Å(53),Å(54),Å(55),Å(56),Å(57),Å(58),Å(59),Å(60) 0730GET FIL9$:Å(61),Å(62),Å(63),Å(64),Å(65),Å(66),Å(67),Å(68),Å(69),Å(70) 0740GET FIL9$:Å(71),Å(72),Å(73),Å(74),Å(75),Å(76),Å(77),Å(78),Å(79),Å(80) 0750GET FIL9$:Å(81),Å(82),Å(83),Å(84),Å(85),Å(86),Å(87),Å(88),Å(89),Å(90) 0760GET FIL9$:Å(91),Å(92),Å(93),Å(94),Å(95),Å(96),Å(97),Å(98),Å(99),Å(100) 0770EXEC FEJL(E,B,FIL9$) 0780FOR I=B TO 99 0790IF NR$(I*6+E:6)=" " THEN 0800MAX=I;I=100 0810ENDIF 0820NEXT I 0830CLOSE FIL9$ 0840ENDPROC 0850PROC INDREGNS(N) 0860J=10*(N-E) 0870FOR I=E TO 10 0880GET FIL7$,J+I:AKKTIM(I),AKKS$(I) 0890NEXT I 0900EXEC FEJL(N,J,FIL7$) 0910ENDPROC 0920PROC INLØNMOD(N) 0930GET FIL$,G*N-E:POST1$ 0940GET FIL$,G*N:POST2$,C1,C2,LT,LF,LR,LA,RPI,K1,K2,FG,FD 0950EXEC FEJL(E,N,FIL$) 0960ENDPROC 0970B3$=" 0+" 0980TI=10;EL=11 0990PROC Æ(I1,I2) 1000I1$=B3$ 1010IF I2<>B THEN 1020I1$(W,TI)=",0";I0=ABS(I2);K0=INT((I0-INT(I0))*100+0.50001) 1030IF I2<B THEN I1$(12)="-" 1040FOR I=EL TO E STEP -E 1050IF I<>W THEN 1060I1$(I)=CHR(K0 MOD TI+48) 1070K0=K0 DIV TI 1080IF K0=B AND I<TI THEN I=B 1090ELSE 1100K0=INT(I0) 1110ENDIF 1120NEXT I 1130ENDIF 1140ENDPROC 1150PROC CHECK(NR1,OK1) 1160OK1=B 1170RESULT=B 1180IF LEN(NR1$)>B THEN 1190IF NR1$(E)="-" THEN 1200FORTEGN=-E 1210OK1=E 1220ELSE 1230FORTEGN=E 1240ENDIF 1250WHILE LEN(NR1$)>OK1 1260OK1=OK1+E 1270IF NR1$(OK1)<"0" OR NR1$(OK1)>"9" THEN 1280FORTEGN=B 1290OK1=LEN(NR1$) 1300ENDIF 1310RESULT=RESULT*10+ORD(NR1$(OK1))-48 1320ENDWHILE 1330OK1=OK1*FORTEGN 1340IF OK1<B THEN OK1=OK1+E 1350ENDIF 1360ENDPROC 1370PROC INOPL(OPL) 1380CASE OPL OF 1390WHEN E 1400EXEC INLINE(OPL) 1410LMNR=RESULT 1420ENDCASE 1430ENDPROC 1440PROC SKRIVOPL 1450PRINT 1460IF LINIE=72 THEN 1470LINIE=B 1480PRINT "A K K O R D L I S T E - M E D A R B E J D E R O P D E L T"; 1485PRINT TAB(60);"Dato ";DAD$ 1490ELSE 1500PRINT 1510ENDIF 1520PRINT 1530PRINT 1540EXEC CONV(LINE$,LMNR,0) 1550PRINT "Lønmodtager : ";LMNR;TAB(25);POST1$(E,25) 1560PRINT 1570PRINT 1580PRINT "AKKORD TEKST UDBETALT TIMER"; 1590PRINT " GSATS AFSLT" 1600AFSL,MANGLER=B 1610TUD$=B3$;TTIM$=B3$ 1620FOR J=E TO 10 1630AKKNR$=AKKS$(J,11,16) 1640IF AKKNR$<>" " THEN 1650EXEC INDAKK 1660IF FOUND=E THEN 1670RESUL$=AKKS$(J,E,10) 1680EXEC Æ(RESUL1$,ABS(AKKTIM(J))) 1690EXEC CALC(B,TUD$,RESUL$,TUD$) 1700EXEC CALC(B,TTIM$,RESUL1$,TTIM$) 1710IF AKKTIM(J)<>B THEN 1720EXEC CALC(V,RESUL$,RESUL1$,GSATS$) 1730ELSE 1740GSATS$=B3$ 1750ENDIF 1760IF RESUL$(10)="+" THEN RESUL$(10)=" " 1770IF RESUL1$(12)="+" THEN RESUL1$(12)=" " 1780IF GSATS$(12)="+" THEN GSATS$(12)=" " 1790PRINT AKKNR$;" ";AKK$(7,27);" ";RESUL$;RESUL1$;" ";GSATS$;" "; 1800IF AKKTIM(J)<B THEN 1810AFSL=AFSL+E 1820PRINT "*****" 1830ELSE 1840PRINT 1850ENDIF 1860ELSE 1870PRINT "Indrapporter straks denne hændelse til H.S.Møller, og STOP" 1880ENDIF 1890ELSE 1900MANGLER=MANGLER+E 1910ENDIF 1920NEXT J 1930PRINT "---------------------------------------------------------------"; 1940PRINT "---------------" 1950EXEC CALC(4,TTIM$,B3$,B3$) 1960IF SI>B THEN 1970EXEC CALC(V,TUD$,TTIM$,GSATS$) 1980ELSE 1990GSATS$=B3$ 2000ENDIF 2010IF TTIM$(12)="+" THEN TTIM$(12)=" " 2020IF TUD$(12)="+" THEN TUD$(12)=" " 2030IF GSATS$(12)="+" THEN GSATS$(12)=" " 2040PRINT "Total "; 2041IF 10-MANGLER=E THEN 2042PRINT 10-MANGLER;" akkord "; 2043ELSE 2044PRINT 10-MANGLER;" akkorder"; 2045ENDIF 2046PRINT TAB(34);TUD$;TTIM$;" ";GSATS$; 2050IF AFSL+MANGLER=10 THEN 2060PRINT " *****" 2070ELSE 2080PRINT 2090ENDIF 2100MANGLER=MANGLER+4 2110WHILE MANGLER>B 2120PRINT 2130MANGLER=MANGLER-E 2140ENDWHILE 2150LINIE=LINIE+24 2160ENDPROC 2170PROC INDVIRK 2180OPEN FIL$,W 2190EXEC FEJL(B,B,FIL$) 2200GET FIL$,G:POST4$,SLJNR,MLMNR,ATPLM 2205GET FIL$,V:DAD$ 2210ENDPROC 2220PROC FEJL(P1,P2,P3) 2230IF STATUS(P3$)<>B THEN 2240OUTPUT T 2250PRINT "FIL-FEJL ";P3$;STATUS(P3$),P1;P2 2260STOP 2270ENDIF 2280ENDPROC 2290PROC INLINE(N) 2300REPEAT 2310CURSOR X(N)+5+LEN(PICT$(N)),Y(N) 2320PRINT BL$(E:ABS(TYPE(N))+V) 2330CURSOR X(N),Y(N) 2340PRINT USING "### ":N; 2350PRINT PICT$(N);":"; 2360INPUT "",LINE$ 2370IF TYPE(N)<B THEN 2380IF LEN(LINE$)<=ABS(TYPE(N)) THEN 2390OK=E 2400FOR I=LEN(LINE$)+E TO ABS(TYPE(N)) 2410LINE$(I)=" " 2420NEXT I 2430ELSE 2440OK=B 2450ENDIF 2460ELSE 2470EXEC CHECK(LINE$,OK) 2480IF TYPE(N)>B AND TYPE(N)<>OK THEN OK=B 2490ENDIF 2500UNTIL OK<>B 2510ENDPROC 2520A=E 2530DIM X(A),Y(A),PICT$(A,20),TYPE(A) 2540DIM POST1$(71),POST2$(27) 2550DIM BL$(79),LINE$(50),FIL$(20) 2560FOR I=E TO 79 2570BL$=BL$+" " 2580NEXT I 2590FIL$="P641220:VIRKKART" 2600X(E)=E 2610Y(E)=G 2620TYPE(E)=B 2630PICT$(E)="Lønnr" 2640EXEC INDVIRK 2650CLOSE FIL$ 2660FIL$="P641220:LØNMODRG" 2670OPEN FIL$,R 2680EXEC FEJL(B,B,FIL$) 2690FIL8$="P641220:AKKHOVED" 2700OPEN FIL8$,R 2710EXEC FEJL(B,B,FIL8$) 2720EXEC INDTABEL 2730FIL7$="P641220:AKKREGNS" 2740OPEN FIL7$,W 2750EXEC FEJL(B,B,FIL7$) 2760LINIE=72 2770REPEAT 2780SV=E 2790CLEAR 2800CURSOR 10,10 2810PRINT "A K K O R D L I S T E - M E D A R B E J D E R O P D E L T" 2820PRINT 2830PRINT TAB(10);"0 Færdig" 2840PRINT TAB(10);"1 Enkelt medarbejder" 2850PRINT TAB(10);"2 Alle medarbejdere" 2860PRINT 2870REPEAT 2880CURSOR E,19 2890EDIT " ",SV 2900UNTIL SV=>B AND SV<=G 2910IF SV>B THEN 2920IF SV=E THEN 2930REPEAT 2940EXEC INOPL(1) 2950UNTIL LMNR>B AND LMNR<=MLMNR 2960ELSE 2970LMNR=B 2980ENDIF 2990OUTPUT P 3000REPEAT 3010IF SV=G THEN LMNR=LMNR+E 3020EXEC INLØNMOD(LMNR) 3030IF LA<>B THEN EXEC INDREGNS(LMNR) 3040CASE SV OF 3050WHEN E 3060IF LA<>B THEN 3070EXEC SKRIVOPL 3080ELSE 3090OUTPUT T 3100PRINT "Lønmodtager findes ikke" 3110INPUT "RETURN",LINE$ 3120OUTPUT P 3130ENDIF 3140WHEN G 3150IF LA<>B THEN 3160EXEC SKRIVOPL 3170ENDIF 3180ENDCASE 3190UNTIL SV=E OR LMNR=>MLMNR 3200OUTPUT T 3210ENDIF 3220UNTIL SV=B 3230IF LINIE>B THEN 3240OUTPUT P 3250WHILE LINIE<72 3260PRINT 3270LINIE=LINIE+E 3280ENDWHILE 3290OUTPUT T 3300ENDIF 3310CLOSE 3320CHAIN "P641210:STARTB"
0x0000…0048 Line {l1=0x46, l2=»0100DIM POST4$(34),FIL7$(20),AKKTIM(10),AKKS$(10,16),B3$(12),TUD$(12) «, l3=0x46}
0x0048…0097 Line {l1=0x4d, l2=»0110DIM AKK$(49),NR$(606),Å(100),M(30),FIL8$(20),FIL9$(20),AKKNR$(6),DAD$(6) «, l3=0x4d}
0x0097…00dd Line {l1=0x44, l2=»0120DIM RES$(15),OP1$(12),OP2$(12),RESUL$(12),RESUL1$(12),TTIM$(12) «, l3=0x44}
0x00dd…00f2 Line {l1=0x13, l2=»0130DIM GSATS$(12) «, l3=0x13}
0x00f2…0110 Line {l1=0x1c, l2=»0140PROC CALC(AR3,B1,B2,ES) «, l3=0x1c}
0x0110…014f Line {l1=0x3d, l2=»0150RES$=ES$;OP1$=B1$;OP2$=B2$;SI=B;FLAG=B;ART=AR3-6*(AR3>5) «, l3=0x3d}
0x014f…0169 Line {l1=0x18, l2=»0160CALL "P641210:REGN" «, l3=0x18}
0x0169…017e Line {l1=0x13, l2=»0170IF AR3<6 THEN «, l3=0x13}
0x017e…0197 Line {l1=0x17, l2=»0180IF FLAG THEN STOP «, l3=0x17}
0x0197…01a4 Line {l1=0x0b, l2=»0190ENDIF «, l3=0x0b}
0x01a4…01b3 Line {l1=0x0d, l2=»0200ES$=RES$ «, l3=0x0d}
0x01b3…01c2 Line {l1=0x0d, l2=»0210ENDPROC «, l3=0x0d}
0x01c2…01e0 Line {l1=0x1c, l2=»0220PROC CONV(NR2,OK22,CIF) «, l3=0x1c}
0x01e0…01f4 Line {l1=0x12, l2=»0230OK2=ABS(OK22) «, l3=0x12}
0x01f4…0202 Line {l1=0x0c, l2=»0240NR2$="" «, l3=0x0c}
0x0202…0210 Line {l1=0x0c, l2=»0250REPEAT «, l3=0x0c}
0x0210…0235 Line {l1=0x23, l2=»0260NR2$=CHR((OK2 MOD 10)+48)+NR2$ «, l3=0x23}
0x0235…0245 Line {l1=0x0e, l2=»0270CIF=CIF-E «, l3=0x0e}
0x0245…025a Line {l1=0x13, l2=»0280OK2=OK2 DIV 10 «, l3=0x13}
0x025a…027e Line {l1=0x22, l2=»0290IF CIF<B AND OK2=B THEN CIF=B «, l3=0x22}
0x027e…0290 Line {l1=0x10, l2=»0300UNTIL CIF=B «, l3=0x10}
0x0290…02b3 Line {l1=0x21, l2=»0310IF OK22<B THEN NR2$="-"+NR2$ «, l3=0x21}
0x02b3…02c2 Line {l1=0x0d, l2=»0320ENDPROC «, l3=0x0d}
0x02c2…02d4 Line {l1=0x10, l2=»0330PROC INDAKK «, l3=0x10}
0x02d4…02e4 Line {l1=0x0e, l2=»0340L=E;U=MAX «, l3=0x0e}
0x02e4…02f7 Line {l1=0x11, l2=»0350IF U>B THEN «, l3=0x11}
0x02f7…0305 Line {l1=0x0c, l2=»0360REPEAT «, l3=0x0c}
0x0305…031b Line {l1=0x14, l2=»0370PEG=(L+U) DIV G «, l3=0x14}
0x031b…0344 Line {l1=0x27, l2=»0380IF AKKNR$>NR$((PEG-E)*6+E:6) THEN «, l3=0x27}
0x0344…0352 Line {l1=0x0c, l2=»0390L=PEG+E «, l3=0x0c}
0x0352…035e Line {l1=0x0a, l2=»0400ELSE «, l3=0x0a}
0x035e…036c Line {l1=0x0c, l2=»0410U=PEG-E «, l3=0x0c}
0x036c…0379 Line {l1=0x0b, l2=»0420ENDIF «, l3=0x0b}
0x0379…03a6 Line {l1=0x2b, l2=»0430UNTIL L>U OR AKKNR$=NR$((PEG-E)*6+E:6) «, l3=0x2b}
0x03a6…03b3 Line {l1=0x0b, l2=»0440ENDIF «, l3=0x0b}
0x03b3…03bf Line {l1=0x0a, l2=»0450L=U+E «, l3=0x0a}
0x03bf…03e6 Line {l1=0x25, l2=»0460IF NR$((L-E)*6+E:6)=AKKNR$ THEN «, l3=0x25}
0x03e6…03f4 Line {l1=0x0c, l2=»0470FOUND=E «, l3=0x0c}
0x03f4…0403 Line {l1=0x0d, l2=»0480PEG=Å(L) «, l3=0x0d}
0x0403…0430 Line {l1=0x2b, l2=»0490GET FIL8$,PEG:AKK$(E,27),TTIMER,RTIMER «, l3=0x2b}
0x0430…0461 Line {l1=0x2f, l2=»0500GET FIL8$,PEG+E:AKK$(28,49),M(E),M(G),M(V) «, l3=0x2f}
0x0461…04a7 Line {l1=0x44, l2=»0510GET FIL8$,PEG+G:M(4),M(5),M(6),M(7),M(8),M(W),M(10),M(11),M(12) «, l3=0x44}
0x04a7…04f3 Line {l1=0x4a, l2=»0520GET FIL8$,PEG+V:M(13),M(14),M(15),M(16),M(17),M(18),M(19),M(20),M(21) «, l3=0x4a}
0x04f3…053f Line {l1=0x4a, l2=»0530GET FIL8$,PEG+4:M(22),M(23),M(24),M(25),M(26),M(27),M(28),M(29),M(30) «, l3=0x4a}
0x053f…055c Line {l1=0x1b, l2=»0540EXEC FEJL(B,PEG,FIL8$) «, l3=0x1b}
0x055c…0585 Line {l1=0x27, l2=»0550IF AKK$(E,6)<>AKKNR$ THEN FOUND=-E «, l3=0x27}
0x0585…0591 Line {l1=0x0a, l2=»0560ELSE «, l3=0x0a}
0x0591…059f Line {l1=0x0c, l2=»0570FOUND=B «, l3=0x0c}
0x059f…05ac Line {l1=0x0b, l2=»0580ENDIF «, l3=0x0b}
0x05ac…05bb Line {l1=0x0d, l2=»0590ENDPROC «, l3=0x0d}
0x05bb…05cf Line {l1=0x12, l2=»0600PROC INDTABEL «, l3=0x12}
0x05cf…05ee Line {l1=0x1d, l2=»0610FIL9$="P641220:AKKTABEL" «, l3=0x1d}
0x05ee…0601 Line {l1=0x11, l2=»0620OPEN FIL9$,R «, l3=0x11}
0x0601…061c Line {l1=0x19, l2=»0630EXEC FEJL(B,B,FIL9$) «, l3=0x19}
0x061c…0630 Line {l1=0x12, l2=»0640FOR I=E TO 10 «, l3=0x12}
0x0630…0653 Line {l1=0x21, l2=»0650GET FIL9$:NR$((I-E)*60+E:60) «, l3=0x21}
0x0653…0660 Line {l1=0x0b, l2=»0660NEXT I «, l3=0x0b}
0x0660…06a3 Line {l1=0x41, l2=»0670GET FIL9$:Å(E),Å(G),Å(V),Å(4),Å(5),Å(6),Å(7),Å(8),Å(W),Å(10) «, l3=0x41}
0x06a3…06ef Line {l1=0x4a, l2=»0680GET FIL9$:Å(11),Å(12),Å(13),Å(14),Å(15),Å(16),Å(17),Å(18),Å(19),Å(20) «, l3=0x4a}
0x06ef…073b Line {l1=0x4a, l2=»0690GET FIL9$:Å(21),Å(22),Å(23),Å(24),Å(25),Å(26),Å(27),Å(28),Å(29),Å(30) «, l3=0x4a}
0x073b…0787 Line {l1=0x4a, l2=»0700GET FIL9$:Å(31),Å(32),Å(33),Å(34),Å(35),Å(36),Å(37),Å(38),Å(39),Å(40) «, l3=0x4a}
0x0787…07d3 Line {l1=0x4a, l2=»0710GET FIL9$:Å(41),Å(42),Å(43),Å(44),Å(45),Å(46),Å(47),Å(48),Å(49),Å(50) «, l3=0x4a}
0x07d3…081f Line {l1=0x4a, l2=»0720GET FIL9$:Å(51),Å(52),Å(53),Å(54),Å(55),Å(56),Å(57),Å(58),Å(59),Å(60) «, l3=0x4a}
0x081f…086b Line {l1=0x4a, l2=»0730GET FIL9$:Å(61),Å(62),Å(63),Å(64),Å(65),Å(66),Å(67),Å(68),Å(69),Å(70) «, l3=0x4a}
0x086b…08b7 Line {l1=0x4a, l2=»0740GET FIL9$:Å(71),Å(72),Å(73),Å(74),Å(75),Å(76),Å(77),Å(78),Å(79),Å(80) «, l3=0x4a}
0x08b7…0903 Line {l1=0x4a, l2=»0750GET FIL9$:Å(81),Å(82),Å(83),Å(84),Å(85),Å(86),Å(87),Å(88),Å(89),Å(90) «, l3=0x4a}
0x0903…0950 Line {l1=0x4b, l2=»0760GET FIL9$:Å(91),Å(92),Å(93),Å(94),Å(95),Å(96),Å(97),Å(98),Å(99),Å(100) «, l3=0x4b}
0x0950…096b Line {l1=0x19, l2=»0770EXEC FEJL(E,B,FIL9$) «, l3=0x19}
0x096b…097f Line {l1=0x12, l2=»0780FOR I=B TO 99 «, l3=0x12}
0x097f…09a4 Line {l1=0x23, l2=»0790IF NR$(I*6+E:6)=" " THEN «, l3=0x23}
0x09a4…09b6 Line {l1=0x10, l2=»0800MAX=I;I=100 «, l3=0x10}
0x09b6…09c3 Line {l1=0x0b, l2=»0810ENDIF «, l3=0x0b}
0x09c3…09d0 Line {l1=0x0b, l2=»0820NEXT I «, l3=0x0b}
0x09d0…09e2 Line {l1=0x10, l2=»0830CLOSE FIL9$ «, l3=0x10}
0x09e2…09f1 Line {l1=0x0d, l2=»0840ENDPROC «, l3=0x0d}
0x09f1…0a08 Line {l1=0x15, l2=»0850PROC INDREGNS(N) «, l3=0x15}
0x0a08…0a19 Line {l1=0x0f, l2=»0860J=10*(N-E) «, l3=0x0f}
0x0a19…0a2d Line {l1=0x12, l2=»0870FOR I=E TO 10 «, l3=0x12}
0x0a2d…0a54 Line {l1=0x25, l2=»0880GET FIL7$,J+I:AKKTIM(I),AKKS$(I) «, l3=0x25}
0x0a54…0a61 Line {l1=0x0b, l2=»0890NEXT I «, l3=0x0b}
0x0a61…0a7c Line {l1=0x19, l2=»0900EXEC FEJL(N,J,FIL7$) «, l3=0x19}
0x0a7c…0a8b Line {l1=0x0d, l2=»0910ENDPROC «, l3=0x0d}
0x0a8b…0aa2 Line {l1=0x15, l2=»0920PROC INLØNMOD(N) «, l3=0x15}
0x0aa2…0abe Line {l1=0x1a, l2=»0930GET FIL$,G*N-E:POST1$ «, l3=0x1a}
0x0abe…0afa Line {l1=0x3a, l2=»0940GET FIL$,G*N:POST2$,C1,C2,LT,LF,LR,LA,RPI,K1,K2,FG,FD «, l3=0x3a}
0x0afa…0b14 Line {l1=0x18, l2=»0950EXEC FEJL(E,N,FIL$) «, l3=0x18}
0x0b14…0b23 Line {l1=0x0d, l2=»0960ENDPROC «, l3=0x0d}
0x0b23…0b3c Line {l1=0x17, l2=»0970B3$=" 0+" «, l3=0x17}
0x0b3c…0b4e Line {l1=0x10, l2=»0980TI=10;EL=11 «, l3=0x10}
0x0b4e…0b62 Line {l1=0x12, l2=»0990PROC Æ(I1,I2) «, l3=0x12}
0x0b62…0b70 Line {l1=0x0c, l2=»1000I1$=B3$ «, l3=0x0c}
0x0b70…0b85 Line {l1=0x13, l2=»1010IF I2<>B THEN «, l3=0x13}
0x0b85…0bc6 Line {l1=0x3f, l2=»1020I1$(W,TI)=",0";I0=ABS(I2);K0=INT((I0-INT(I0))*100+0.50001) «, l3=0x3f}
0x0bc6…0be5 Line {l1=0x1d, l2=»1030IF I2<B THEN I1$(12)="-" «, l3=0x1d}
0x0be5…0c01 Line {l1=0x1a, l2=»1040FOR I=EL TO E STEP -E «, l3=0x1a}
0x0c01…0c15 Line {l1=0x12, l2=»1050IF I<>W THEN «, l3=0x12}
0x0c15…0c34 Line {l1=0x1d, l2=»1060I1$(I)=CHR(K0 MOD TI+48) «, l3=0x1d}
0x0c34…0c47 Line {l1=0x11, l2=»1070K0=K0 DIV TI «, l3=0x11}
0x0c47…0c67 Line {l1=0x1e, l2=»1080IF K0=B AND I<TI THEN I=B «, l3=0x1e}
0x0c67…0c73 Line {l1=0x0a, l2=»1090ELSE «, l3=0x0a}
0x0c73…0c84 Line {l1=0x0f, l2=»1100K0=INT(I0) «, l3=0x0f}
0x0c84…0c91 Line {l1=0x0b, l2=»1110ENDIF «, l3=0x0b}
0x0c91…0c9e Line {l1=0x0b, l2=»1120NEXT I «, l3=0x0b}
0x0c9e…0cab Line {l1=0x0b, l2=»1130ENDIF «, l3=0x0b}
0x0cab…0cba Line {l1=0x0d, l2=»1140ENDPROC «, l3=0x0d}
0x0cba…0cd4 Line {l1=0x18, l2=»1150PROC CHECK(NR1,OK1) «, l3=0x18}
0x0cd4…0ce0 Line {l1=0x0a, l2=»1160OK1=B «, l3=0x0a}
0x0ce0…0cef Line {l1=0x0d, l2=»1170RESULT=B «, l3=0x0d}
0x0cef…0d0a Line {l1=0x19, l2=»1180IF LEN(NR1$)>B THEN «, l3=0x19}
0x0d0a…0d25 Line {l1=0x19, l2=»1190IF NR1$(E)="-" THEN «, l3=0x19}
0x0d25…0d36 Line {l1=0x0f, l2=»1200FORTEGN=-E «, l3=0x0f}
0x0d36…0d42 Line {l1=0x0a, l2=»1210OK1=E «, l3=0x0a}
0x0d42…0d4e Line {l1=0x0a, l2=»1220ELSE «, l3=0x0a}
0x0d4e…0d5e Line {l1=0x0e, l2=»1230FORTEGN=E «, l3=0x0e}
0x0d5e…0d6b Line {l1=0x0b, l2=»1240ENDIF «, l3=0x0b}
0x0d6b…0d85 Line {l1=0x18, l2=»1250WHILE LEN(NR1$)>OK1 «, l3=0x18}
0x0d85…0d95 Line {l1=0x0e, l2=»1260OK1=OK1+E «, l3=0x0e}
0x0d95…0dc3 Line {l1=0x2c, l2=»1270IF NR1$(OK1)<"0" OR NR1$(OK1)>"9" THEN «, l3=0x2c}
0x0dc3…0dd3 Line {l1=0x0e, l2=»1280FORTEGN=B «, l3=0x0e}
0x0dd3…0de7 Line {l1=0x12, l2=»1290OK1=LEN(NR1$) «, l3=0x12}
0x0de7…0df4 Line {l1=0x0b, l2=»1300ENDIF «, l3=0x0b}
0x0df4…0e1d Line {l1=0x27, l2=»1310RESULT=RESULT*10+ORD(NR1$(OK1))-48 «, l3=0x27}
0x0e1d…0e2d Line {l1=0x0e, l2=»1320ENDWHILE «, l3=0x0e}
0x0e2d…0e43 Line {l1=0x14, l2=»1330OK1=OK1*FORTEGN «, l3=0x14}
0x0e43…0e61 Line {l1=0x1c, l2=»1340IF OK1<B THEN OK1=OK1+E «, l3=0x1c}
0x0e61…0e6e Line {l1=0x0b, l2=»1350ENDIF «, l3=0x0b}
0x0e6e…0e7d Line {l1=0x0d, l2=»1360ENDPROC «, l3=0x0d}
0x0e7d…0e93 Line {l1=0x14, l2=»1370PROC INOPL(OPL) «, l3=0x14}
0x0e93…0ea6 Line {l1=0x11, l2=»1380CASE OPL OF «, l3=0x11}
0x0ea6…0eb3 Line {l1=0x0b, l2=»1390WHEN E «, l3=0x0b}
0x0eb3…0eca Line {l1=0x15, l2=»1400EXEC INLINE(OPL) «, l3=0x15}
0x0eca…0edc Line {l1=0x10, l2=»1410LMNR=RESULT «, l3=0x10}
0x0edc…0eeb Line {l1=0x0d, l2=»1420ENDCASE «, l3=0x0d}
0x0eeb…0efa Line {l1=0x0d, l2=»1430ENDPROC «, l3=0x0d}
0x0efa…0f0e Line {l1=0x12, l2=»1440PROC SKRIVOPL «, l3=0x12}
0x0f0e…0f1b Line {l1=0x0b, l2=»1450PRINT «, l3=0x0b}
0x0f1b…0f33 Line {l1=0x16, l2=»1460IF LINIE=72 THEN «, l3=0x16}
0x0f33…0f41 Line {l1=0x0c, l2=»1470LINIE=B «, l3=0x0c}
0x0f41…0f8a Line {l1=0x47, l2=»1480PRINT "A K K O R D L I S T E - M E D A R B E J D E R O P D E L T"; «, l3=0x47}
0x0f8a…0fab Line {l1=0x1f, l2=»1485PRINT TAB(60);"Dato ";DAD$ «, l3=0x1f}
0x0fab…0fb7 Line {l1=0x0a, l2=»1490ELSE «, l3=0x0a}
0x0fb7…0fc4 Line {l1=0x0b, l2=»1500PRINT «, l3=0x0b}
0x0fc4…0fd1 Line {l1=0x0b, l2=»1510ENDIF «, l3=0x0b}
0x0fd1…0fde Line {l1=0x0b, l2=»1520PRINT «, l3=0x0b}
0x0fde…0feb Line {l1=0x0b, l2=»1530PRINT «, l3=0x0b}
0x0feb…1009 Line {l1=0x1c, l2=»1540EXEC CONV(LINE$,LMNR,0) «, l3=0x1c}
0x1009…1040 Line {l1=0x35, l2=»1550PRINT "Lønmodtager : ";LMNR;TAB(25);POST1$(E,25) «, l3=0x35}
0x1040…104d Line {l1=0x0b, l2=»1560PRINT «, l3=0x0b}
0x104d…105a Line {l1=0x0b, l2=»1570PRINT «, l3=0x0b}
0x105a…10a2 Line {l1=0x46, l2=»1580PRINT "AKKORD TEKST UDBETALT TIMER"; «, l3=0x46}
0x10a2…10c7 Line {l1=0x23, l2=»1590PRINT " GSATS AFSLT" «, l3=0x23}
0x10c7…10dc Line {l1=0x13, l2=»1600AFSL,MANGLER=B «, l3=0x13}
0x10dc…10f5 Line {l1=0x17, l2=»1610TUD$=B3$;TTIM$=B3$ «, l3=0x17}
0x10f5…1109 Line {l1=0x12, l2=»1620FOR J=E TO 10 «, l3=0x12}
0x1109…1125 Line {l1=0x1a, l2=»1630AKKNR$=AKKS$(J,11,16) «, l3=0x1a}
0x1125…1145 Line {l1=0x1e, l2=»1640IF AKKNR$<>" " THEN «, l3=0x1e}
0x1145…1157 Line {l1=0x10, l2=»1650EXEC INDAKK «, l3=0x10}
0x1157…116e Line {l1=0x15, l2=»1660IF FOUND=E THEN «, l3=0x15}
0x116e…1189 Line {l1=0x19, l2=»1670RESUL$=AKKS$(J,E,10) «, l3=0x19}
0x1189…11ae Line {l1=0x23, l2=»1680EXEC Æ(RESUL1$,ABS(AKKTIM(J))) «, l3=0x23}
0x11ae…11d2 Line {l1=0x22, l2=»1690EXEC CALC(B,TUD$,RESUL$,TUD$) «, l3=0x22}
0x11d2…11f9 Line {l1=0x25, l2=»1700EXEC CALC(B,TTIM$,RESUL1$,TTIM$) «, l3=0x25}
0x11f9…1215 Line {l1=0x1a, l2=»1710IF AKKTIM(J)<>B THEN «, l3=0x1a}
0x1215…123e Line {l1=0x27, l2=»1720EXEC CALC(V,RESUL$,RESUL1$,GSATS$) «, l3=0x27}
0x123e…124a Line {l1=0x0a, l2=»1730ELSE «, l3=0x0a}
0x124a…125b Line {l1=0x0f, l2=»1740GSATS$=B3$ «, l3=0x0f}
0x125b…1268 Line {l1=0x0b, l2=»1750ENDIF «, l3=0x0b}
0x1268…1294 Line {l1=0x2a, l2=»1760IF RESUL$(10)="+" THEN RESUL$(10)=" " «, l3=0x2a}
0x1294…12c2 Line {l1=0x2c, l2=»1770IF RESUL1$(12)="+" THEN RESUL1$(12)=" " «, l3=0x2c}
0x12c2…12ee Line {l1=0x2a, l2=»1780IF GSATS$(12)="+" THEN GSATS$(12)=" " «, l3=0x2a}
0x12ee…133b Line {l1=0x4b, l2=»1790PRINT AKKNR$;" ";AKK$(7,27);" ";RESUL$;RESUL1$;" ";GSATS$;" "; «, l3=0x4b}
0x133b…1356 Line {l1=0x19, l2=»1800IF AKKTIM(J)<B THEN «, l3=0x19}
0x1356…1368 Line {l1=0x10, l2=»1810AFSL=AFSL+E «, l3=0x10}
0x1368…137c Line {l1=0x12, l2=»1820PRINT "*****" «, l3=0x12}
0x137c…1388 Line {l1=0x0a, l2=»1830ELSE «, l3=0x0a}
0x1388…1395 Line {l1=0x0b, l2=»1840PRINT «, l3=0x0b}
0x1395…13a2 Line {l1=0x0b, l2=»1850ENDIF «, l3=0x0b}
0x13a2…13ae Line {l1=0x0a, l2=»1860ELSE «, l3=0x0a}
0x13ae…13f7 Line {l1=0x47, l2=»1870PRINT "Indrapporter straks denne hændelse til H.S.Møller, og STOP" «, l3=0x47}
0x13f7…1404 Line {l1=0x0b, l2=»1880ENDIF «, l3=0x0b}
0x1404…1410 Line {l1=0x0a, l2=»1890ELSE «, l3=0x0a}
0x1410…1428 Line {l1=0x16, l2=»1900MANGLER=MANGLER+E «, l3=0x16}
0x1428…1435 Line {l1=0x0b, l2=»1910ENDIF «, l3=0x0b}
0x1435…1442 Line {l1=0x0b, l2=»1920NEXT J «, l3=0x0b}
0x1442…1491 Line {l1=0x4d, l2=»1930PRINT "---------------------------------------------------------------"; «, l3=0x4d}
0x1491…14af Line {l1=0x1c, l2=»1940PRINT "---------------" «, l3=0x1c}
0x14af…14d0 Line {l1=0x1f, l2=»1950EXEC CALC(4,TTIM$,B3$,B3$) «, l3=0x1f}
0x14d0…14e4 Line {l1=0x12, l2=»1960IF SI>B THEN «, l3=0x12}
0x14e4…1509 Line {l1=0x23, l2=»1970EXEC CALC(V,TUD$,TTIM$,GSATS$) «, l3=0x23}
0x1509…1515 Line {l1=0x0a, l2=»1980ELSE «, l3=0x0a}
0x1515…1526 Line {l1=0x0f, l2=»1990GSATS$=B3$ «, l3=0x0f}
0x1526…1533 Line {l1=0x0b, l2=»2000ENDIF «, l3=0x0b}
0x1533…155d Line {l1=0x28, l2=»2010IF TTIM$(12)="+" THEN TTIM$(12)=" " «, l3=0x28}
0x155d…1585 Line {l1=0x26, l2=»2020IF TUD$(12)="+" THEN TUD$(12)=" " «, l3=0x26}
0x1585…15b1 Line {l1=0x2a, l2=»2030IF GSATS$(12)="+" THEN GSATS$(12)=" " «, l3=0x2a}
0x15b1…15c7 Line {l1=0x14, l2=»2040PRINT "Total "; «, l3=0x14}
0x15c7…15e3 Line {l1=0x1a, l2=»2041IF 10-MANGLER=E THEN «, l3=0x1a}
0x15e3…1607 Line {l1=0x22, l2=»2042PRINT 10-MANGLER;" akkord "; «, l3=0x22}
0x1607…1613 Line {l1=0x0a, l2=»2043ELSE «, l3=0x0a}
0x1613…1637 Line {l1=0x22, l2=»2044PRINT 10-MANGLER;" akkorder"; «, l3=0x22}
0x1637…1644 Line {l1=0x0b, l2=»2045ENDIF «, l3=0x0b}
0x1644…166f Line {l1=0x29, l2=»2046PRINT TAB(34);TUD$;TTIM$;" ";GSATS$; «, l3=0x29}
0x166f…168e Line {l1=0x1d, l2=»2050IF AFSL+MANGLER=10 THEN «, l3=0x1d}
0x168e…16a5 Line {l1=0x15, l2=»2060PRINT " *****" «, l3=0x15}
0x16a5…16b1 Line {l1=0x0a, l2=»2070ELSE «, l3=0x0a}
0x16b1…16be Line {l1=0x0b, l2=»2080PRINT «, l3=0x0b}
0x16be…16cb Line {l1=0x0b, l2=»2090ENDIF «, l3=0x0b}
0x16cb…16e3 Line {l1=0x16, l2=»2100MANGLER=MANGLER+4 «, l3=0x16}
0x16e3…16f9 Line {l1=0x14, l2=»2110WHILE MANGLER>B «, l3=0x14}
0x16f9…1706 Line {l1=0x0b, l2=»2120PRINT «, l3=0x0b}
0x1706…171e Line {l1=0x16, l2=»2130MANGLER=MANGLER-E «, l3=0x16}
0x171e…172e Line {l1=0x0e, l2=»2140ENDWHILE «, l3=0x0e}
0x172e…1743 Line {l1=0x13, l2=»2150LINIE=LINIE+24 «, l3=0x13}
0x1743…1752 Line {l1=0x0d, l2=»2160ENDPROC «, l3=0x0d}
0x1752…1765 Line {l1=0x11, l2=»2170PROC INDVIRK «, l3=0x11}
0x1765…1777 Line {l1=0x10, l2=»2180OPEN FIL$,W «, l3=0x10}
0x1777…1791 Line {l1=0x18, l2=»2190EXEC FEJL(B,B,FIL$) «, l3=0x18}
0x1791…17bb Line {l1=0x28, l2=»2200GET FIL$,G:POST4$,SLJNR,MLMNR,ATPLM «, l3=0x28}
0x17bb…17d1 Line {l1=0x14, l2=»2205GET FIL$,V:DAD$ «, l3=0x14}
0x17d1…17e0 Line {l1=0x0d, l2=»2210ENDPROC «, l3=0x0d}
0x17e0…17fa Line {l1=0x18, l2=»2220PROC FEJL(P1,P2,P3) «, l3=0x18}
0x17fa…1818 Line {l1=0x1c, l2=»2230IF STATUS(P3$)<>B THEN «, l3=0x1c}
0x1818…1827 Line {l1=0x0d, l2=»2240OUTPUT T «, l3=0x0d}
0x1827…1855 Line {l1=0x2c, l2=»2250PRINT "FIL-FEJL ";P3$;STATUS(P3$),P1;P2 «, l3=0x2c}
0x1855…1861 Line {l1=0x0a, l2=»2260STOP «, l3=0x0a}
0x1861…186e Line {l1=0x0b, l2=»2270ENDIF «, l3=0x0b}
0x186e…187d Line {l1=0x0d, l2=»2280ENDPROC «, l3=0x0d}
0x187d…1892 Line {l1=0x13, l2=»2290PROC INLINE(N) «, l3=0x13}
0x1892…18a0 Line {l1=0x0c, l2=»2300REPEAT «, l3=0x0c}
0x18a0…18c7 Line {l1=0x25, l2=»2310CURSOR X(N)+5+LEN(PICT$(N)),Y(N) «, l3=0x25}
0x18c7…18e9 Line {l1=0x20, l2=»2320PRINT BL$(E:ABS(TYPE(N))+V) «, l3=0x20}
0x18e9…1900 Line {l1=0x15, l2=»2330CURSOR X(N),Y(N) «, l3=0x15}
0x1900…191c Line {l1=0x1a, l2=»2340PRINT USING "### ":N; «, l3=0x1a}
0x191c…1936 Line {l1=0x18, l2=»2350PRINT PICT$(N);":"; «, l3=0x18}
0x1936…194b Line {l1=0x13, l2=»2360INPUT "",LINE$ «, l3=0x13}
0x194b…1964 Line {l1=0x17, l2=»2370IF TYPE(N)<B THEN «, l3=0x17}
0x1964…198c Line {l1=0x26, l2=»2380IF LEN(LINE$)<=ABS(TYPE(N)) THEN «, l3=0x26}
0x198c…1997 Line {l1=0x09, l2=»2390OK=E «, l3=0x09}
0x1997…19c0 Line {l1=0x27, l2=»2400FOR I=LEN(LINE$)+E TO ABS(TYPE(N)) «, l3=0x27}
0x19c0…19d3 Line {l1=0x11, l2=»2410LINE$(I)=" " «, l3=0x11}
0x19d3…19e0 Line {l1=0x0b, l2=»2420NEXT I «, l3=0x0b}
0x19e0…19ec Line {l1=0x0a, l2=»2430ELSE «, l3=0x0a}
0x19ec…19f7 Line {l1=0x09, l2=»2440OK=B «, l3=0x09}
0x19f7…1a04 Line {l1=0x0b, l2=»2450ENDIF «, l3=0x0b}
0x1a04…1a10 Line {l1=0x0a, l2=»2460ELSE «, l3=0x0a}
0x1a10…1a2b Line {l1=0x19, l2=»2470EXEC CHECK(LINE$,OK) «, l3=0x19}
0x1a2b…1a58 Line {l1=0x2b, l2=»2480IF TYPE(N)>B AND TYPE(N)<>OK THEN OK=B «, l3=0x2b}
0x1a58…1a65 Line {l1=0x0b, l2=»2490ENDIF «, l3=0x0b}
0x1a65…1a77 Line {l1=0x10, l2=»2500UNTIL OK<>B «, l3=0x10}
0x1a77…1a86 Line {l1=0x0d, l2=»2510ENDPROC «, l3=0x0d}
0x1a86…1a90 Line {l1=0x08, l2=»2520A=E «, l3=0x08}
0x1a90…1ab8 Line {l1=0x26, l2=»2530DIM X(A),Y(A),PICT$(A,20),TYPE(A) «, l3=0x26}
0x1ab8…1ad8 Line {l1=0x1e, l2=»2540DIM POST1$(71),POST2$(27) «, l3=0x1e}
0x1ad8…1afd Line {l1=0x23, l2=»2550DIM BL$(79),LINE$(50),FIL$(20) «, l3=0x23}
0x1afd…1b11 Line {l1=0x12, l2=»2560FOR I=E TO 79 «, l3=0x12}
0x1b11…1b23 Line {l1=0x10, l2=»2570BL$=BL$+" " «, l3=0x10}
0x1b23…1b30 Line {l1=0x0b, l2=»2580NEXT I «, l3=0x0b}
0x1b30…1b4e Line {l1=0x1c, l2=»2590FIL$="P641220:VIRKKART" «, l3=0x1c}
0x1b4e…1b5b Line {l1=0x0b, l2=»2600X(E)=E «, l3=0x0b}
0x1b5b…1b68 Line {l1=0x0b, l2=»2610Y(E)=G «, l3=0x0b}
0x1b68…1b78 Line {l1=0x0e, l2=»2620TYPE(E)=B «, l3=0x0e}
0x1b78…1b8f Line {l1=0x15, l2=»2630PICT$(E)="Lønnr" «, l3=0x15}
0x1b8f…1ba2 Line {l1=0x11, l2=»2640EXEC INDVIRK «, l3=0x11}
0x1ba2…1bb3 Line {l1=0x0f, l2=»2650CLOSE FIL$ «, l3=0x0f}
0x1bb3…1bd1 Line {l1=0x1c, l2=»2660FIL$="P641220:LØNMODRG" «, l3=0x1c}
0x1bd1…1be3 Line {l1=0x10, l2=»2670OPEN FIL$,R «, l3=0x10}
0x1be3…1bfd Line {l1=0x18, l2=»2680EXEC FEJL(B,B,FIL$) «, l3=0x18}
0x1bfd…1c1c Line {l1=0x1d, l2=»2690FIL8$="P641220:AKKHOVED" «, l3=0x1d}
0x1c1c…1c2f Line {l1=0x11, l2=»2700OPEN FIL8$,R «, l3=0x11}
0x1c2f…1c4a Line {l1=0x19, l2=»2710EXEC FEJL(B,B,FIL8$) «, l3=0x19}
0x1c4a…1c5e Line {l1=0x12, l2=»2720EXEC INDTABEL «, l3=0x12}
0x1c5e…1c7d Line {l1=0x1d, l2=»2730FIL7$="P641220:AKKREGNS" «, l3=0x1d}
0x1c7d…1c90 Line {l1=0x11, l2=»2740OPEN FIL7$,W «, l3=0x11}
0x1c90…1cab Line {l1=0x19, l2=»2750EXEC FEJL(B,B,FIL7$) «, l3=0x19}
0x1cab…1cba Line {l1=0x0d, l2=»2760LINIE=72 «, l3=0x0d}
0x1cba…1cc8 Line {l1=0x0c, l2=»2770REPEAT «, l3=0x0c}
0x1cc8…1cd3 Line {l1=0x09, l2=»2780SV=E «, l3=0x09}
0x1cd3…1ce0 Line {l1=0x0b, l2=»2790CLEAR «, l3=0x0b}
0x1ce0…1cf3 Line {l1=0x11, l2=»2800CURSOR 10,10 «, l3=0x11}
0x1cf3…1d3b Line {l1=0x46, l2=»2810PRINT "A K K O R D L I S T E - M E D A R B E J D E R O P D E L T" «, l3=0x46}
0x1d3b…1d48 Line {l1=0x0b, l2=»2820PRINT «, l3=0x0b}
0x1d48…1d67 Line {l1=0x1d, l2=»2830PRINT TAB(10);"0 Færdig" «, l3=0x1d}
0x1d67…1d92 Line {l1=0x29, l2=»2840PRINT TAB(10);"1 Enkelt medarbejder" «, l3=0x29}
0x1d92…1dbc Line {l1=0x28, l2=»2850PRINT TAB(10);"2 Alle medarbejdere" «, l3=0x28}
0x1dbc…1dc9 Line {l1=0x0b, l2=»2860PRINT «, l3=0x0b}
0x1dc9…1dd7 Line {l1=0x0c, l2=»2870REPEAT «, l3=0x0c}
0x1dd7…1de9 Line {l1=0x10, l2=»2880CURSOR E,19 «, l3=0x10}
0x1de9…1e04 Line {l1=0x19, l2=»2890EDIT " ",SV «, l3=0x19}
0x1e04…1e20 Line {l1=0x1a, l2=»2900UNTIL SV=>B AND SV<=G «, l3=0x1a}
0x1e20…1e34 Line {l1=0x12, l2=»2910IF SV>B THEN «, l3=0x12}
0x1e34…1e48 Line {l1=0x12, l2=»2920IF SV=E THEN «, l3=0x12}
0x1e48…1e56 Line {l1=0x0c, l2=»2930REPEAT «, l3=0x0c}
0x1e56…1e6a Line {l1=0x12, l2=»2940EXEC INOPL(1) «, l3=0x12}
0x1e6a…1e8d Line {l1=0x21, l2=»2950UNTIL LMNR>B AND LMNR<=MLMNR «, l3=0x21}
0x1e8d…1e99 Line {l1=0x0a, l2=»2960ELSE «, l3=0x0a}
0x1e99…1ea6 Line {l1=0x0b, l2=»2970LMNR=B «, l3=0x0b}
0x1ea6…1eb3 Line {l1=0x0b, l2=»2980ENDIF «, l3=0x0b}
0x1eb3…1ec2 Line {l1=0x0d, l2=»2990OUTPUT P «, l3=0x0d}
0x1ec2…1ed0 Line {l1=0x0c, l2=»3000REPEAT «, l3=0x0c}
0x1ed0…1eef Line {l1=0x1d, l2=»3010IF SV=G THEN LMNR=LMNR+E «, l3=0x1d}
0x1eef…1f09 Line {l1=0x18, l2=»3020EXEC INLØNMOD(LMNR) «, l3=0x18}
0x1f09…1f31 Line {l1=0x26, l2=»3030IF LA<>B THEN EXEC INDREGNS(LMNR) «, l3=0x26}
0x1f31…1f43 Line {l1=0x10, l2=»3040CASE SV OF «, l3=0x10}
0x1f43…1f50 Line {l1=0x0b, l2=»3050WHEN E «, l3=0x0b}
0x1f50…1f65 Line {l1=0x13, l2=»3060IF LA<>B THEN «, l3=0x13}
0x1f65…1f79 Line {l1=0x12, l2=»3070EXEC SKRIVOPL «, l3=0x12}
0x1f79…1f85 Line {l1=0x0a, l2=»3080ELSE «, l3=0x0a}
0x1f85…1f94 Line {l1=0x0d, l2=»3090OUTPUT T «, l3=0x0d}
0x1f94…1fba Line {l1=0x24, l2=»3100PRINT "Lønmodtager findes ikke" «, l3=0x24}
0x1fba…1fd5 Line {l1=0x19, l2=»3110INPUT "RETURN",LINE$ «, l3=0x19}
0x1fd5…1fe4 Line {l1=0x0d, l2=»3120OUTPUT P «, l3=0x0d}
0x1fe4…1ff1 Line {l1=0x0b, l2=»3130ENDIF «, l3=0x0b}
0x1ff1…1ffe Line {l1=0x0b, l2=»3140WHEN G «, l3=0x0b}
0x1ffe…2013 Line {l1=0x13, l2=»3150IF LA<>B THEN «, l3=0x13}
0x2013…2027 Line {l1=0x12, l2=»3160EXEC SKRIVOPL «, l3=0x12}
0x2027…2034 Line {l1=0x0b, l2=»3170ENDIF «, l3=0x0b}
0x2034…2043 Line {l1=0x0d, l2=»3180ENDCASE «, l3=0x0d}
0x2043…2063 Line {l1=0x1e, l2=»3190UNTIL SV=E OR LMNR=>MLMNR «, l3=0x1e}
0x2063…2072 Line {l1=0x0d, l2=»3200OUTPUT T «, l3=0x0d}
0x2072…207f Line {l1=0x0b, l2=»3210ENDIF «, l3=0x0b}
0x207f…2090 Line {l1=0x0f, l2=»3220UNTIL SV=B «, l3=0x0f}
0x2090…20a7 Line {l1=0x15, l2=»3230IF LINIE>B THEN «, l3=0x15}
0x20a7…20b6 Line {l1=0x0d, l2=»3240OUTPUT P «, l3=0x0d}
0x20b6…20cb Line {l1=0x13, l2=»3250WHILE LINIE<72 «, l3=0x13}
0x20cb…20d8 Line {l1=0x0b, l2=»3260PRINT «, l3=0x0b}
0x20d8…20ec Line {l1=0x12, l2=»3270LINIE=LINIE+E «, l3=0x12}
0x20ec…20fc Line {l1=0x0e, l2=»3280ENDWHILE «, l3=0x0e}
0x20fc…210b Line {l1=0x0d, l2=»3290OUTPUT T «, l3=0x0d}
0x210b…2118 Line {l1=0x0b, l2=»3300ENDIF «, l3=0x0b}
0x2118…2125 Line {l1=0x0b, l2=»3310CLOSE «, l3=0x0b}
0x2125…2142 Line {l1=0x1b, l2=»3320CHAIN "P641210:STARTB" «, l3=0x1b}
0x2142…2160 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 ┆ ┆
0x2160…2180 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 ┆ ┆
[…0x30…]