|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 7584 (0x1da0)
Types: TextFile
Notes: Mikados_K
Names: »AKKULIST.K«
└─⟦385f097a1⟧ Bits:30008988 SPC/1 COMAL programmer til bogføring
└─⟦this⟧ »AKKULIST.K«
0001DIM TVN(45) 0002TVN(E)=E 0003TVN(G)=G 0004TVN(V)=V 0005TVN(4)=4 0006TVN(5)=5 0007TVN(6)=7 0008TVN(7)=8 0009TVN(8)=W 0010TVN(W)=10 0011TVN(10)=11 0012TVN(11)=12 0013TVN(12)=13 0014TVN(13)=14 0015TVN(14)=15 0016TVN(15)=16 0017TVN(16)=112 0018TVN(17)=113 0019TVN(18)=313 0020TVN(19)=413 0021TVN(20)=115 0022TVN(21)=315 0023TVN(22)=415 0024TVN(23)=116 0025TVN(24)=316 0026TVN(25)=416 0027TVN(26)=117 0028TVN(27)=317 0029TVN(28)=417 0030TVN(29)=123 0031TVN(30)=206 0032TVN(31)=212 0033TVN(32)=214 0034TVN(33)=218 0035TVN(34)=219 0036TVN(35)=319 0037TVN(36)=419 0038TVN(37)=220 0039TVN(38)=320 0040TVN(39)=420 0041TVN(40)=221 0042TVN(41)=321 0043TVN(42)=421 0044TVN(43)=222 0045TVN(44)=223 0046TVN(45)=224 0100PROC INLØNMOD(N) 0110GET FIL1$,G*N-E:POST1$ 0120GET FIL1$,G*N:POST2$,C1,C2,LT,LF,LR,LA,RPI,K1,K2,FG,FD 0130EXEC FEJL(E,N,FIL1$) 0140ENDPROC 0150PROC NÆSTE 0160REPEAT 0170LMNR=LMNR+E 0180LA=E 0190IF LMNR<=MLMNR THEN EXEC INLØNMOD(LMNR) 0200UNTIL LA>B 0210ENDPROC 0220DIM RES$(15),OP1$(12),OP2$(12),POST1$(71),POST2$(27),ARS$(G),POST6$(29) 0230DIM FIL1$(16),FIL5$(16),FIL2$(16),POST3$(55),RESUL2$(12),TOT$(12) 0240DIM RESUL$(12),RESUL1$(12),POST5$(55),TV$(45,11),DAD$(6) 0250DIM FIL$(16) 0260DIM EN$(12),BE$(12),POST4$(34) 0270PROC CALC(AR3,B1,B2,ES) 0280RES$=ES$;OP1$=B1$;OP2$=B2$;SI=B;FLAG=B;ART=AR3-6*(AR3>5) 0290CALL "P641210:REGN" 0300IF AR3<6 AND FLAG THEN STOP 0310ES$=RES$ 0320ENDPROC 0330PROC INDVIRK 0340OPEN FIL$,R 0350EXEC FEJL(B,B,FIL$) 0360GET FIL$,E:POST3$ 0370GET FIL$,G:POST4$,SLJNR,MLMNR,ATPLM 0375GET FIL$,V:DAD$ 0380ENDPROC 0390PROC FEJL(P1,P2,P3) 0400IF STATUS(P3$)<>B THEN 0410OUTPUT T 0420PRINT "FIL-FEJL ";P3$;STATUS(P3$),P1;P2 0430STOP 0440ENDIF 0450ENDPROC 0460DIM P7$(37) 0470PROC INDART(N) 0480GET FIL5$,N:POST6$,KT,FSHT,ÅT 0490EXEC FEJL(G,N,FIL5$) 0500ENDPROC 0510PROC INDTÆL(N) 0515IF N<>OLMNR THEN 0516OLMNR=N 0520J=W*(N-E) 0530FOR K=E TO W 0540GET FIL2$,J+K:POST5$ 0550FOR I=E TO 5 0560TV$((K-E)*5+I)=POST5$((I-E)*11+E:11) 0570NEXT I 0580NEXT K 0590EXEC FEJL(N,K,FIL2$) 0595ENDIF 0600ENDPROC 0610PROC HEAD 0620WHILE LINIE<72 0630PRINT 0640LINIE=LINIE+E 0650ENDWHILE 0660SID=SID+E 0670PRINT 0680PRINT POST3$(8,32);TAB(30);"S A L D O L I S T E";TAB(57);"Dato ";DAD$; 0681PRINT " Side";SID 0700PRINT "LØNART";LANR;TAB(30);POST6$(G,21);TAB(52); 0701CASE TYP OF 0702WHEN 4 0703PRINT "SALDOAKKUMULERENDE"; 0704WHEN V 0705PRINT "ÅRS-TÆLLEVÆRK";TVN(ÅT); 0706WHEN G 0707PRINT "F-SH-TÆLLEVÆRK";TVN(FSHT); 0708WHEN E 0709PRINT "KVARTALS-TÆLLEVÆRK";TVN(KT); 0710ENDCASE 0717PRINT 0718PRINT 0720PRINT "LMNR NAVN";TAB(39);"GL.SALDO PERIODEN NY SALDO" 0730LINIE=6 0740ENDPROC 0750FIL$="P641220:VIRKKART" 0760EXEC INDVIRK 0770CLOSE FIL$ 0780FIL1$="P641220:LØNMODRG" 0790OPEN FIL1$,R 0800FIL$="P641220:TRANSREG" 0810OPEN FIL$,R 0820FIL2$="P641220:TÆLLEREG" 0830OPEN FIL2$,R 0840FIL5$="P641220:LØNARTRG" 0850OPEN FIL5$,R 0855REPEAT 0860EN$=" 0+" 0870BE$=EN$;TOT$=EN$ 0880LINIE=72;SID=B 0890OLMNR,LMNR=B 0900REPEAT 0910CLEAR 0920PRINT "L I S T E O V E R A K K U M U L E R E D E S A L D I" 0930LANR=B 0940EDIT "Lønart ,0 for færdig ",LANR 0950LANR=INT(LANR) 0960TYP=B 0970IF LANR>B AND LANR<100 THEN 0980EXEC INDART(LANR) 0990IF KT<>B THEN TYP=E 1000IF FSHT<>B THEN TYP=G 1010IF ÅT<>B THEN TYP=V 1020IF POST6$(26)="1" THEN TYP=4 1030IF POST6$(29)<>" " OR POST6$(E)<>"1" THEN TYP=B 1040ENDIF 1050UNTIL TYP>B OR LANR=B 1051REPEAT 1052ALLE=G 1053EDIT "Kun afregnede: 0, alle: 1 ",ALLE 1054UNTIL ALLE=E OR ALLE=B 1055IF LANR>B THEN 1060ARS$=CHR(LANR DIV 10+48)+CHR(LANR MOD 10+48) 1070OUTPUT P 1080EXEC NÆSTE 1090WHILE LMNR<=MLMNR 1100IT=(LMNR-E)*ATPLM+E 1110GET FIL$,IT:P7$ 1120IF P7$(E)="2" OR (ALLE=E AND P7$(E)="3") THEN 1130WHILE P7$(V,4)<>"83" 1140IF P7$(V,4)=ARS$ THEN 1150IF LINIE>69 THEN EXEC HEAD 1160IF TYP<4 THEN EXEC INDTÆL(LMNR) 1170CASE TYP OF 1180WHEN 4 1190RESUL$=" "+P7$(11:10) 1200WHEN V 1210RESUL$=TV$(ÅT) 1220WHEN G 1230RESUL$=TV$(FSHT) 1240WHEN E 1250RESUL$=TV$(KT) 1260ENDCASE 1270RESUL1$=P7$(28:10) 1280EXEC CALC(E,RESUL$,RESUL1$,RESUL2$) 1290EXEC CALC(B,EN$,RESUL$,EN$) 1300EXEC CALC(B,BE$,RESUL1$,BE$) 1310EXEC CALC(B,TOT$,RESUL2$,TOT$) 1320IF RESUL$(11)="+" THEN RESUL$(11)=" " 1330IF RESUL1$(10)="+" THEN RESUL1$(10)=" " 1340IF RESUL2$(12)="+" THEN RESUL2$(12)=" " 1350PRINT LMNR;TAB(8);POST1$(E,25);" ";RESUL2$;" ";RESUL1$; 1360PRINT " ";RESUL$ 1370LINIE=LINIE+E 1380ENDIF 1390IT=IT+E 1400GET FIL$,IT:P7$ 1410ENDWHILE 1420ENDIF 1430EXEC NÆSTE 1440ENDWHILE 1445IF LINIE<72 THEN 1450PRINT "--------------------------------------------------------------"; 1460PRINT "--------------" 1470IF TOT$(12)="+" THEN TOT$(12)=" " 1480IF BE$(12)="+" THEN BE$(12)=" " 1490IF EN$(12)="+" THEN EN$(12)=" " 1495PRINT "Total";TAB(36);TOT$;" ";BE$;" ";EN$ 1500LINIE=LINIE+G 1510WHILE LINIE<72 AND LINIE>B 1520PRINT 1530LINIE=LINIE+E 1540ENDWHILE 1545ENDIF 1550OUTPUT T 1554ENDIF 1555UNTIL LANR=B 1560CHAIN "P641210:STARTB"
0x0000…0012 Line {l1=0x10, l2=»0001DIM TVN(45) «, l3=0x10}
0x0012…0021 Line {l1=0x0d, l2=»0002TVN(E)=E «, l3=0x0d}
0x0021…0030 Line {l1=0x0d, l2=»0003TVN(G)=G «, l3=0x0d}
0x0030…003f Line {l1=0x0d, l2=»0004TVN(V)=V «, l3=0x0d}
0x003f…004e Line {l1=0x0d, l2=»0005TVN(4)=4 «, l3=0x0d}
0x004e…005d Line {l1=0x0d, l2=»0006TVN(5)=5 «, l3=0x0d}
0x005d…006c Line {l1=0x0d, l2=»0007TVN(6)=7 «, l3=0x0d}
0x006c…007b Line {l1=0x0d, l2=»0008TVN(7)=8 «, l3=0x0d}
0x007b…008a Line {l1=0x0d, l2=»0009TVN(8)=W «, l3=0x0d}
0x008a…009a Line {l1=0x0e, l2=»0010TVN(W)=10 «, l3=0x0e}
0x009a…00ab Line {l1=0x0f, l2=»0011TVN(10)=11 «, l3=0x0f}
0x00ab…00bc Line {l1=0x0f, l2=»0012TVN(11)=12 «, l3=0x0f}
0x00bc…00cd Line {l1=0x0f, l2=»0013TVN(12)=13 «, l3=0x0f}
0x00cd…00de Line {l1=0x0f, l2=»0014TVN(13)=14 «, l3=0x0f}
0x00de…00ef Line {l1=0x0f, l2=»0015TVN(14)=15 «, l3=0x0f}
0x00ef…0100 Line {l1=0x0f, l2=»0016TVN(15)=16 «, l3=0x0f}
0x0100…0112 Line {l1=0x10, l2=»0017TVN(16)=112 «, l3=0x10}
0x0112…0124 Line {l1=0x10, l2=»0018TVN(17)=113 «, l3=0x10}
0x0124…0136 Line {l1=0x10, l2=»0019TVN(18)=313 «, l3=0x10}
0x0136…0148 Line {l1=0x10, l2=»0020TVN(19)=413 «, l3=0x10}
0x0148…015a Line {l1=0x10, l2=»0021TVN(20)=115 «, l3=0x10}
0x015a…016c Line {l1=0x10, l2=»0022TVN(21)=315 «, l3=0x10}
0x016c…017e Line {l1=0x10, l2=»0023TVN(22)=415 «, l3=0x10}
0x017e…0190 Line {l1=0x10, l2=»0024TVN(23)=116 «, l3=0x10}
0x0190…01a2 Line {l1=0x10, l2=»0025TVN(24)=316 «, l3=0x10}
0x01a2…01b4 Line {l1=0x10, l2=»0026TVN(25)=416 «, l3=0x10}
0x01b4…01c6 Line {l1=0x10, l2=»0027TVN(26)=117 «, l3=0x10}
0x01c6…01d8 Line {l1=0x10, l2=»0028TVN(27)=317 «, l3=0x10}
0x01d8…01ea Line {l1=0x10, l2=»0029TVN(28)=417 «, l3=0x10}
0x01ea…01fc Line {l1=0x10, l2=»0030TVN(29)=123 «, l3=0x10}
0x01fc…020e Line {l1=0x10, l2=»0031TVN(30)=206 «, l3=0x10}
0x020e…0220 Line {l1=0x10, l2=»0032TVN(31)=212 «, l3=0x10}
0x0220…0232 Line {l1=0x10, l2=»0033TVN(32)=214 «, l3=0x10}
0x0232…0244 Line {l1=0x10, l2=»0034TVN(33)=218 «, l3=0x10}
0x0244…0256 Line {l1=0x10, l2=»0035TVN(34)=219 «, l3=0x10}
0x0256…0268 Line {l1=0x10, l2=»0036TVN(35)=319 «, l3=0x10}
0x0268…027a Line {l1=0x10, l2=»0037TVN(36)=419 «, l3=0x10}
0x027a…028c Line {l1=0x10, l2=»0038TVN(37)=220 «, l3=0x10}
0x028c…029e Line {l1=0x10, l2=»0039TVN(38)=320 «, l3=0x10}
0x029e…02b0 Line {l1=0x10, l2=»0040TVN(39)=420 «, l3=0x10}
0x02b0…02c2 Line {l1=0x10, l2=»0041TVN(40)=221 «, l3=0x10}
0x02c2…02d4 Line {l1=0x10, l2=»0042TVN(41)=321 «, l3=0x10}
0x02d4…02e6 Line {l1=0x10, l2=»0043TVN(42)=421 «, l3=0x10}
0x02e6…02f8 Line {l1=0x10, l2=»0044TVN(43)=222 «, l3=0x10}
0x02f8…030a Line {l1=0x10, l2=»0045TVN(44)=223 «, l3=0x10}
0x030a…031c Line {l1=0x10, l2=»0046TVN(45)=224 «, l3=0x10}
0x031c…0333 Line {l1=0x15, l2=»0100PROC INLØNMOD(N) «, l3=0x15}
0x0333…0350 Line {l1=0x1b, l2=»0110GET FIL1$,G*N-E:POST1$ «, l3=0x1b}
0x0350…038d Line {l1=0x3b, l2=»0120GET FIL1$,G*N:POST2$,C1,C2,LT,LF,LR,LA,RPI,K1,K2,FG,FD «, l3=0x3b}
0x038d…03a8 Line {l1=0x19, l2=»0130EXEC FEJL(E,N,FIL1$) «, l3=0x19}
0x03a8…03b7 Line {l1=0x0d, l2=»0140ENDPROC «, l3=0x0d}
0x03b7…03c8 Line {l1=0x0f, l2=»0150PROC NÆSTE «, l3=0x0f}
0x03c8…03d6 Line {l1=0x0c, l2=»0160REPEAT «, l3=0x0c}
0x03d6…03e8 Line {l1=0x10, l2=»0170LMNR=LMNR+E «, l3=0x10}
0x03e8…03f3 Line {l1=0x09, l2=»0180LA=E «, l3=0x09}
0x03f3…0421 Line {l1=0x2c, l2=»0190IF LMNR<=MLMNR THEN EXEC INLØNMOD(LMNR) «, l3=0x2c}
0x0421…0432 Line {l1=0x0f, l2=»0200UNTIL LA>B «, l3=0x0f}
0x0432…0441 Line {l1=0x0d, l2=»0210ENDPROC «, l3=0x0d}
0x0441…048f Line {l1=0x4c, l2=»0220DIM RES$(15),OP1$(12),OP2$(12),POST1$(71),POST2$(27),ARS$(G),POST6$(29) «, l3=0x4c}
0x048f…04d7 Line {l1=0x46, l2=»0230DIM FIL1$(16),FIL5$(16),FIL2$(16),POST3$(55),RESUL2$(12),TOT$(12) «, l3=0x46}
0x04d7…0516 Line {l1=0x3d, l2=»0240DIM RESUL$(12),RESUL1$(12),POST5$(55),TV$(45,11),DAD$(6) «, l3=0x3d}
0x0516…0529 Line {l1=0x11, l2=»0250DIM FIL$(16) «, l3=0x11}
0x0529…054e Line {l1=0x23, l2=»0260DIM EN$(12),BE$(12),POST4$(34) «, l3=0x23}
0x054e…056c Line {l1=0x1c, l2=»0270PROC CALC(AR3,B1,B2,ES) «, l3=0x1c}
0x056c…05ab Line {l1=0x3d, l2=»0280RES$=ES$;OP1$=B1$;OP2$=B2$;SI=B;FLAG=B;ART=AR3-6*(AR3>5) «, l3=0x3d}
0x05ab…05c5 Line {l1=0x18, l2=»0290CALL "P641210:REGN" «, l3=0x18}
0x05c5…05e8 Line {l1=0x21, l2=»0300IF AR3<6 AND FLAG THEN STOP «, l3=0x21}
0x05e8…05f7 Line {l1=0x0d, l2=»0310ES$=RES$ «, l3=0x0d}
0x05f7…0606 Line {l1=0x0d, l2=»0320ENDPROC «, l3=0x0d}
0x0606…0619 Line {l1=0x11, l2=»0330PROC INDVIRK «, l3=0x11}
0x0619…062b Line {l1=0x10, l2=»0340OPEN FIL$,R «, l3=0x10}
0x062b…0645 Line {l1=0x18, l2=»0350EXEC FEJL(B,B,FIL$) «, l3=0x18}
0x0645…065d Line {l1=0x16, l2=»0360GET FIL$,E:POST3$ «, l3=0x16}
0x065d…0687 Line {l1=0x28, l2=»0370GET FIL$,G:POST4$,SLJNR,MLMNR,ATPLM «, l3=0x28}
0x0687…069d Line {l1=0x14, l2=»0375GET FIL$,V:DAD$ «, l3=0x14}
0x069d…06ac Line {l1=0x0d, l2=»0380ENDPROC «, l3=0x0d}
0x06ac…06c6 Line {l1=0x18, l2=»0390PROC FEJL(P1,P2,P3) «, l3=0x18}
0x06c6…06e4 Line {l1=0x1c, l2=»0400IF STATUS(P3$)<>B THEN «, l3=0x1c}
0x06e4…06f3 Line {l1=0x0d, l2=»0410OUTPUT T «, l3=0x0d}
0x06f3…0721 Line {l1=0x2c, l2=»0420PRINT "FIL-FEJL ";P3$;STATUS(P3$),P1;P2 «, l3=0x2c}
0x0721…072d Line {l1=0x0a, l2=»0430STOP «, l3=0x0a}
0x072d…073a Line {l1=0x0b, l2=»0440ENDIF «, l3=0x0b}
0x073a…0749 Line {l1=0x0d, l2=»0450ENDPROC «, l3=0x0d}
0x0749…075b Line {l1=0x10, l2=»0460DIM P7$(37) «, l3=0x10}
0x075b…0770 Line {l1=0x13, l2=»0470PROC INDART(N) «, l3=0x13}
0x0770…0794 Line {l1=0x22, l2=»0480GET FIL5$,N:POST6$,KT,FSHT,ÅT «, l3=0x22}
0x0794…07af Line {l1=0x19, l2=»0490EXEC FEJL(G,N,FIL5$) «, l3=0x19}
0x07af…07be Line {l1=0x0d, l2=»0500ENDPROC «, l3=0x0d}
0x07be…07d3 Line {l1=0x13, l2=»0510PROC INDTÆL(N) «, l3=0x13}
0x07d3…07eb Line {l1=0x16, l2=»0515IF N<>OLMNR THEN «, l3=0x16}
0x07eb…07f9 Line {l1=0x0c, l2=»0516OLMNR=N «, l3=0x0c}
0x07f9…0809 Line {l1=0x0e, l2=»0520J=W*(N-E) «, l3=0x0e}
0x0809…081c Line {l1=0x11, l2=»0530FOR K=E TO W «, l3=0x11}
0x081c…0837 Line {l1=0x19, l2=»0540GET FIL2$,J+K:POST5$ «, l3=0x19}
0x0837…084a Line {l1=0x11, l2=»0550FOR I=E TO 5 «, l3=0x11}
0x084a…0875 Line {l1=0x29, l2=»0560TV$((K-E)*5+I)=POST5$((I-E)*11+E:11) «, l3=0x29}
0x0875…0882 Line {l1=0x0b, l2=»0570NEXT I «, l3=0x0b}
0x0882…088f Line {l1=0x0b, l2=»0580NEXT K «, l3=0x0b}
0x088f…08aa Line {l1=0x19, l2=»0590EXEC FEJL(N,K,FIL2$) «, l3=0x19}
0x08aa…08b7 Line {l1=0x0b, l2=»0595ENDIF «, l3=0x0b}
0x08b7…08c6 Line {l1=0x0d, l2=»0600ENDPROC «, l3=0x0d}
0x08c6…08d6 Line {l1=0x0e, l2=»0610PROC HEAD «, l3=0x0e}
0x08d6…08eb Line {l1=0x13, l2=»0620WHILE LINIE<72 «, l3=0x13}
0x08eb…08f8 Line {l1=0x0b, l2=»0630PRINT «, l3=0x0b}
0x08f8…090c Line {l1=0x12, l2=»0640LINIE=LINIE+E «, l3=0x12}
0x090c…091c Line {l1=0x0e, l2=»0650ENDWHILE «, l3=0x0e}
0x091c…092c Line {l1=0x0e, l2=»0660SID=SID+E «, l3=0x0e}
0x092c…0939 Line {l1=0x0b, l2=»0670PRINT «, l3=0x0b}
0x0939…0986 Line {l1=0x4b, l2=»0680PRINT POST3$(8,32);TAB(30);"S A L D O L I S T E";TAB(57);"Dato ";DAD$; «, l3=0x4b}
0x0986…099f Line {l1=0x17, l2=»0681PRINT " Side";SID «, l3=0x17}
0x099f…09d7 Line {l1=0x36, l2=»0700PRINT "LØNART";LANR;TAB(30);POST6$(G,21);TAB(52); «, l3=0x36}
0x09d7…09ea Line {l1=0x11, l2=»0701CASE TYP OF «, l3=0x11}
0x09ea…09f7 Line {l1=0x0b, l2=»0702WHEN 4 «, l3=0x0b}
0x09f7…0a19 Line {l1=0x20, l2=»0703PRINT "SALDOAKKUMULERENDE"; «, l3=0x20}
0x0a19…0a26 Line {l1=0x0b, l2=»0704WHEN V «, l3=0x0b}
0x0a26…0a4b Line {l1=0x23, l2=»0705PRINT "ÅRS-TÆLLEVÆRK";TVN(ÅT); «, l3=0x23}
0x0a4b…0a58 Line {l1=0x0b, l2=»0706WHEN G «, l3=0x0b}
0x0a58…0a80 Line {l1=0x26, l2=»0707PRINT "F-SH-TÆLLEVÆRK";TVN(FSHT); «, l3=0x26}
0x0a80…0a8d Line {l1=0x0b, l2=»0708WHEN E «, l3=0x0b}
0x0a8d…0ab7 Line {l1=0x28, l2=»0709PRINT "KVARTALS-TÆLLEVÆRK";TVN(KT); «, l3=0x28}
0x0ab7…0ac6 Line {l1=0x0d, l2=»0710ENDCASE «, l3=0x0d}
0x0ac6…0ad3 Line {l1=0x0b, l2=»0717PRINT «, l3=0x0b}
0x0ad3…0ae0 Line {l1=0x0b, l2=»0718PRINT «, l3=0x0b}
0x0ae0…0b2b Line {l1=0x49, l2=»0720PRINT "LMNR NAVN";TAB(39);"GL.SALDO PERIODEN NY SALDO" «, l3=0x49}
0x0b2b…0b39 Line {l1=0x0c, l2=»0730LINIE=6 «, l3=0x0c}
0x0b39…0b48 Line {l1=0x0d, l2=»0740ENDPROC «, l3=0x0d}
0x0b48…0b66 Line {l1=0x1c, l2=»0750FIL$="P641220:VIRKKART" «, l3=0x1c}
0x0b66…0b79 Line {l1=0x11, l2=»0760EXEC INDVIRK «, l3=0x11}
0x0b79…0b8a Line {l1=0x0f, l2=»0770CLOSE FIL$ «, l3=0x0f}
0x0b8a…0ba9 Line {l1=0x1d, l2=»0780FIL1$="P641220:LØNMODRG" «, l3=0x1d}
0x0ba9…0bbc Line {l1=0x11, l2=»0790OPEN FIL1$,R «, l3=0x11}
0x0bbc…0bda Line {l1=0x1c, l2=»0800FIL$="P641220:TRANSREG" «, l3=0x1c}
0x0bda…0bec Line {l1=0x10, l2=»0810OPEN FIL$,R «, l3=0x10}
0x0bec…0c0b Line {l1=0x1d, l2=»0820FIL2$="P641220:TÆLLEREG" «, l3=0x1d}
0x0c0b…0c1e Line {l1=0x11, l2=»0830OPEN FIL2$,R «, l3=0x11}
0x0c1e…0c3d Line {l1=0x1d, l2=»0840FIL5$="P641220:LØNARTRG" «, l3=0x1d}
0x0c3d…0c50 Line {l1=0x11, l2=»0850OPEN FIL5$,R «, l3=0x11}
0x0c50…0c5e Line {l1=0x0c, l2=»0855REPEAT «, l3=0x0c}
0x0c5e…0c77 Line {l1=0x17, l2=»0860EN$=" 0+" «, l3=0x17}
0x0c77…0c8e Line {l1=0x15, l2=»0870BE$=EN$;TOT$=EN$ «, l3=0x15}
0x0c8e…0ca3 Line {l1=0x13, l2=»0880LINIE=72;SID=B «, l3=0x13}
0x0ca3…0cb6 Line {l1=0x11, l2=»0890OLMNR,LMNR=B «, l3=0x11}
0x0cb6…0cc4 Line {l1=0x0c, l2=»0900REPEAT «, l3=0x0c}
0x0cc4…0cd1 Line {l1=0x0b, l2=»0910CLEAR «, l3=0x0b}
0x0cd1…0d19 Line {l1=0x46, l2=»0920PRINT "L I S T E O V E R A K K U M U L E R E D E S A L D I" «, l3=0x46}
0x0d19…0d26 Line {l1=0x0b, l2=»0930LANR=B «, l3=0x0b}
0x0d26…0d4e Line {l1=0x26, l2=»0940EDIT "Lønart ,0 for færdig ",LANR «, l3=0x26}
0x0d4e…0d63 Line {l1=0x13, l2=»0950LANR=INT(LANR) «, l3=0x13}
0x0d63…0d6f Line {l1=0x0a, l2=»0960TYP=B «, l3=0x0a}
0x0d6f…0d92 Line {l1=0x21, l2=»0970IF LANR>B AND LANR<100 THEN «, l3=0x21}
0x0d92…0daa Line {l1=0x16, l2=»0980EXEC INDART(LANR) «, l3=0x16}
0x0daa…0dc4 Line {l1=0x18, l2=»0990IF KT<>B THEN TYP=E «, l3=0x18}
0x0dc4…0de0 Line {l1=0x1a, l2=»1000IF FSHT<>B THEN TYP=G «, l3=0x1a}
0x0de0…0dfa Line {l1=0x18, l2=»1010IF ÅT<>B THEN TYP=V «, l3=0x18}
0x0dfa…0e1d Line {l1=0x21, l2=»1020IF POST6$(26)="1" THEN TYP=4 «, l3=0x21}
0x0e1d…0e53 Line {l1=0x34, l2=»1030IF POST6$(29)<>" " OR POST6$(E)<>"1" THEN TYP=B «, l3=0x34}
0x0e53…0e60 Line {l1=0x0b, l2=»1040ENDIF «, l3=0x0b}
0x0e60…0e7c Line {l1=0x1a, l2=»1050UNTIL TYP>B OR LANR=B «, l3=0x1a}
0x0e7c…0e8a Line {l1=0x0c, l2=»1051REPEAT «, l3=0x0c}
0x0e8a…0e97 Line {l1=0x0b, l2=»1052ALLE=G «, l3=0x0b}
0x0e97…0ec4 Line {l1=0x2b, l2=»1053EDIT "Kun afregnede: 0, alle: 1 ",ALLE «, l3=0x2b}
0x0ec4…0ee1 Line {l1=0x1b, l2=»1054UNTIL ALLE=E OR ALLE=B «, l3=0x1b}
0x0ee1…0ef7 Line {l1=0x14, l2=»1055IF LANR>B THEN «, l3=0x14}
0x0ef7…0f2a Line {l1=0x31, l2=»1060ARS$=CHR(LANR DIV 10+48)+CHR(LANR MOD 10+48) «, l3=0x31}
0x0f2a…0f39 Line {l1=0x0d, l2=»1070OUTPUT P «, l3=0x0d}
0x0f39…0f4a Line {l1=0x0f, l2=»1080EXEC NÆSTE «, l3=0x0f}
0x0f4a…0f62 Line {l1=0x16, l2=»1090WHILE LMNR<=MLMNR «, l3=0x16}
0x0f62…0f7c Line {l1=0x18, l2=»1100IT=(LMNR-E)*ATPLM+E «, l3=0x18}
0x0f7c…0f92 Line {l1=0x14, l2=»1110GET FIL$,IT:P7$ «, l3=0x14}
0x0f92…0fc7 Line {l1=0x33, l2=»1120IF P7$(E)="2" OR (ALLE=E AND P7$(E)="3") THEN «, l3=0x33}
0x0fc7…0fe2 Line {l1=0x19, l2=»1130WHILE P7$(V,4)<>"83" «, l3=0x19}
0x0fe2…0fff Line {l1=0x1b, l2=»1140IF P7$(V,4)=ARS$ THEN «, l3=0x1b}
0x0fff…1020 Line {l1=0x1f, l2=»1150IF LINIE>69 THEN EXEC HEAD «, l3=0x1f}
0x1020…1046 Line {l1=0x24, l2=»1160IF TYP<4 THEN EXEC INDTÆL(LMNR) «, l3=0x24}
0x1046…1059 Line {l1=0x11, l2=»1170CASE TYP OF «, l3=0x11}
0x1059…1066 Line {l1=0x0b, l2=»1180WHEN 4 «, l3=0x0b}
0x1066…1082 Line {l1=0x1a, l2=»1190RESUL$=" "+P7$(11:10) «, l3=0x1a}
0x1082…108f Line {l1=0x0b, l2=»1200WHEN V «, l3=0x0b}
0x108f…10a4 Line {l1=0x13, l2=»1210RESUL$=TV$(ÅT) «, l3=0x13}
0x10a4…10b1 Line {l1=0x0b, l2=»1220WHEN G «, l3=0x0b}
0x10b1…10c8 Line {l1=0x15, l2=»1230RESUL$=TV$(FSHT) «, l3=0x15}
0x10c8…10d5 Line {l1=0x0b, l2=»1240WHEN E «, l3=0x0b}
0x10d5…10ea Line {l1=0x13, l2=»1250RESUL$=TV$(KT) «, l3=0x13}
0x10ea…10f9 Line {l1=0x0d, l2=»1260ENDCASE «, l3=0x0d}
0x10f9…1112 Line {l1=0x17, l2=»1270RESUL1$=P7$(28:10) «, l3=0x17}
0x1112…113c Line {l1=0x28, l2=»1280EXEC CALC(E,RESUL$,RESUL1$,RESUL2$) «, l3=0x28}
0x113c…115e Line {l1=0x20, l2=»1290EXEC CALC(B,EN$,RESUL$,EN$) «, l3=0x20}
0x115e…1181 Line {l1=0x21, l2=»1300EXEC CALC(B,BE$,RESUL1$,BE$) «, l3=0x21}
0x1181…11a6 Line {l1=0x23, l2=»1310EXEC CALC(B,TOT$,RESUL2$,TOT$) «, l3=0x23}
0x11a6…11d2 Line {l1=0x2a, l2=»1320IF RESUL$(11)="+" THEN RESUL$(11)=" " «, l3=0x2a}
0x11d2…1200 Line {l1=0x2c, l2=»1330IF RESUL1$(10)="+" THEN RESUL1$(10)=" " «, l3=0x2c}
0x1200…122e Line {l1=0x2c, l2=»1340IF RESUL2$(12)="+" THEN RESUL2$(12)=" " «, l3=0x2c}
0x122e…1272 Line {l1=0x42, l2=»1350PRINT LMNR;TAB(8);POST1$(E,25);" ";RESUL2$;" ";RESUL1$; «, l3=0x42}
0x1272…128c Line {l1=0x18, l2=»1360PRINT " ";RESUL$ «, l3=0x18}
0x128c…12a0 Line {l1=0x12, l2=»1370LINIE=LINIE+E «, l3=0x12}
0x12a0…12ad Line {l1=0x0b, l2=»1380ENDIF «, l3=0x0b}
0x12ad…12bb Line {l1=0x0c, l2=»1390IT=IT+E «, l3=0x0c}
0x12bb…12d1 Line {l1=0x14, l2=»1400GET FIL$,IT:P7$ «, l3=0x14}
0x12d1…12e1 Line {l1=0x0e, l2=»1410ENDWHILE «, l3=0x0e}
0x12e1…12ee Line {l1=0x0b, l2=»1420ENDIF «, l3=0x0b}
0x12ee…12ff Line {l1=0x0f, l2=»1430EXEC NÆSTE «, l3=0x0f}
0x12ff…130f Line {l1=0x0e, l2=»1440ENDWHILE «, l3=0x0e}
0x130f…1327 Line {l1=0x16, l2=»1445IF LINIE<72 THEN «, l3=0x16}
0x1327…1375 Line {l1=0x4c, l2=»1450PRINT "--------------------------------------------------------------"; «, l3=0x4c}
0x1375…1392 Line {l1=0x1b, l2=»1460PRINT "--------------" «, l3=0x1b}
0x1392…13ba Line {l1=0x26, l2=»1470IF TOT$(12)="+" THEN TOT$(12)=" " «, l3=0x26}
0x13ba…13e0 Line {l1=0x24, l2=»1480IF BE$(12)="+" THEN BE$(12)=" " «, l3=0x24}
0x13e0…1406 Line {l1=0x24, l2=»1490IF EN$(12)="+" THEN EN$(12)=" " «, l3=0x24}
0x1406…143b Line {l1=0x33, l2=»1495PRINT "Total";TAB(36);TOT$;" ";BE$;" ";EN$ «, l3=0x33}
0x143b…144f Line {l1=0x12, l2=»1500LINIE=LINIE+G «, l3=0x12}
0x144f…1470 Line {l1=0x1f, l2=»1510WHILE LINIE<72 AND LINIE>B «, l3=0x1f}
0x1470…147d Line {l1=0x0b, l2=»1520PRINT «, l3=0x0b}
0x147d…1491 Line {l1=0x12, l2=»1530LINIE=LINIE+E «, l3=0x12}
0x1491…14a1 Line {l1=0x0e, l2=»1540ENDWHILE «, l3=0x0e}
0x14a1…14ae Line {l1=0x0b, l2=»1545ENDIF «, l3=0x0b}
0x14ae…14bd Line {l1=0x0d, l2=»1550OUTPUT T «, l3=0x0d}
0x14bd…14ca Line {l1=0x0b, l2=»1554ENDIF «, l3=0x0b}
0x14ca…14dd Line {l1=0x11, l2=»1555UNTIL LANR=B «, l3=0x11}
0x14dd…14fa Line {l1=0x1b, l2=»1560CHAIN "P641210:STARTB" «, l3=0x1b}
0x14fa…1500 00 00 00 00 00 00 ┆ ┆
0x1500…1520 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 ┆ ┆
[…0x44…]