|
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: »ÅRSOPL.K«
└─⟦385f097a1⟧ Bits:30008988 SPC/1 COMAL programmer til bogføring
└─⟦this⟧ »ÅRSOPL.K«
0110DIM STARTPER$(8),SLUTPER$(8),LP$(E),ORK$(E) 0120DIM RES$(15),OP1$(12),OP2$(12),TAH$(12),TRE$(12) 0130DIM TOTAL$(4,12),L$(12),LIN$(12) 0140DIM RESUL$(12),RESUL1$(12),TV$(45,11) 0150DIM FIL$(16),FIL2$(16),POST1$(71),POST2$(27),POST3$(55),POST4$(34) 0160DIM MF1$(16) 0162DIM POST5$(55) 0170TAH$=" 0+" 0180TRE$=" 3,00+" 0370PROC CALC(AR3,B1,B2,ES) 0380RES$=ES$;OP1$=B1$;OP2$=B2$;SI=B;FLAG=B;ART=AR3-6*(AR3>5) 0390CALL "P641210:REGN" 0400IF AR3<6 THEN 0410IF FLAG THEN STOP 0420ENDIF 0430ES$=RES$ 0440ENDPROC 0550PROC INDTÆL 0560J=W*(LMNR-E) 0570FOR K=E TO W 0580GET FIL2$,J+K:POST5$ 0590FOR I=E TO 5 0600TV$((K-E)*5+I)=POST5$((I-E)*11+E:11) 0610NEXT I 0620NEXT K 0630EXEC FEJL(LMNR,K,FIL2$) 0640ENDPROC 0800PROC INLØNMOD(N) 0810GET FIL$,G*N-E:POST1$ 0820GET FIL$,G*N:POST2$,C1,C2,LT,LF,LR,LA,RPI,K1,K2,FG,FD 0830EXEC FEJL(E,N,FIL$) 0840ENDPROC 1000PROC UDTÆL 1010J=W*(LMNR-E) 1020FOR K=E TO W 1030FOR I=E TO 5 1040POST5$((I-E)*11+E:11)=TV$((K-E)*5+I) 1050NEXT I 1060PUT FIL2$,J+K:POST5$ 1070NEXT K 1080EXEC FEJL(-LMNR,-K,FIL2$) 1090ENDPROC 1100PROC UDLØNMOD(N) 1110PUT FIL$,G*N-E:POST1$ 1120PUT FIL$,G*N:POST2$,C1,C2,LT,LF,LR,LA,RPI,K1,K2,FG,FD 1130EXEC FEJL(G,N,FIL$) 1140ENDPROC 1150PROC CONV(NR2,OK22,CIF) 1160OK2=OK22 1170NR2$="" 1180REPEAT 1190NR2$=CHR((OK2 MOD 10)+48)+NR2$ 1200CIF=CIF-E 1210OK2=OK2 DIV 10 1220IF CIF<B AND OK2=B THEN CIF=B 1230UNTIL CIF=B 1240ENDPROC 1890PROC INDVIRK 1900OPEN FIL$,R 1910EXEC FEJL(B,B,FIL$) 1920GET FIL$,E:POST3$ 1930GET FIL$,G:POST4$,SLJNR,MLMNR,ATPLM 1940ENDPROC 1950PROC FEJL(P1,P2,P3) 1960IF STATUS(P3$)<>B THEN 1970OUTPUT T 1980PRINT "FIL-FEJL ";P3$;STATUS(P3$),P1;P2 1990STOP 2000ENDIF 2010ENDPROC 3440PROC NÆSTE 3450REPEAT 3460LMNR=LMNR+E 3470LA=E 3480IF LMNR<=MLMNR THEN 3490EXEC INLØNMOD(LMNR) 3500IF LP$<>POST2$(21) THEN LA=B 3510IF ORK$="A" AND POST2$(24,25)>"89" THEN LA=B 3520IF ORK$="F" AND POST2$(24,25)<"90" THEN LA=B 3530ENDIF 3540UNTIL LA>B 3550ENDPROC 8182TOTAL$(E)=TAH$;TOTAL$(G)=TAH$ 8183TOTAL$(V)=TAH$;TOTAL$(4)=TAH$ 8190FIL$="P641220:VIRKKART" 8200EXEC INDVIRK 8210CLOSE FIL$ 8220FIL$="P641220:LØNMODRG" 8230OPEN FIL$,W 8260FIL2$="P641220:TÆLLEREG" 8270OPEN FIL2$,W 8291MF1$="P641210:LØNJOUR" 8292OPEN MF1$,R 8300INPUT "Isæt årsoplysningssedler, RETURN ",LP$ 8350MAXLIN=72 8360LMNR=B 8370ABL=B 8372GET MF1$:STARTPER$,SLUTPER$,LP$,ORK$,MFD 8410STD=100000*(ORD(STARTPER$(E))-48)+10000*(ORD(STARTPER$(G))-48) 8420STD=STD+1000*(ORD(STARTPER$(4))-48)+100*(ORD(STARTPER$(5))-48) 8430STD=STD+10*(ORD(STARTPER$(7))-48)+ORD(STARTPER$(8))-48 8440SLD=100000*(ORD(SLUTPER$(E))-48)+10000*(ORD(SLUTPER$(G))-48) 8450SLD=SLD+1000*(ORD(SLUTPER$(4))-48)+100*(ORD(SLUTPER$(5))-48) 8460SLD=SLD+10*(ORD(SLUTPER$(7))-48)+ORD(SLUTPER$(8))-48 8465CURSOR E,14 8470OUTPUT P 8490REPEAT 8500EXEC NÆSTE 8510IF LMNR<=MLMNR THEN 8520EXEC INDTÆL 8521EXEC CALC(B,TV$(34),TV$(37),RESUL$) 8522EXEC CALC(G,TRE$,TV$(43),RESUL1$) 8523TV$(34)=RESUL$(G:11) 8524TV$(43)=RESUL1$(G:11) 8529ABL=ABL+E 8530EXEC CALC(B,TV$(43),TOTAL$(E),TOTAL$(E)) 8540EXEC CALC(B,TV$(34),TOTAL$(G),TOTAL$(G)) 8542EXEC CALC(B,TV$(40),TOTAL$(V),TOTAL$(V)) 8544EXEC CALC(B,TV$(37),TOTAL$(4),TOTAL$(4)) 8545TV$(34,W,11)="00 " 8546TV$(43,W,11)="00 " 8547TV$(40,W,11)="00 " 8548TV$(37,W,11)="00 " 8550IF STD>LA THEN 8560STDA=STD 8570ELSE 8580STDA=LA 8590ENDIF 8600IF SLD<FD OR FD=B THEN 8602SLDA=SLD 8604ELSE 8606SLDA=FD 8608ENDIF 8609IF FD>B THEN LA=B;FD=B 8610FOR I=E TO 7 8612IF TV$(34,I)=" " THEN TV$(34,I)="*" 8614IF TV$(43,I)=" " THEN TV$(43,I)="*" 8616IF TV$(40,I)=" " THEN TV$(40,I)="*" 8618IF TV$(37,I)=" " THEN TV$(37,I)="*" 8620NEXT I 8622PRINT 8624PRINT 8626PRINT 8628EXEC CONV(L$,C1,6) 8630EXEC CONV(LIN$,C2,4) 8632L$=L$+LIN$ 8634PRINT TAB(W);L$;TAB(58);POST3$(E,7) 8636PRINT 8638PRINT 8640PRINT TAB(46);POST3$(8,32) 8642PRINT TAB(46);POST3$(33,55) 8644PRINT TAB(46);POST4$(E,4);" ";POST4$(5,18) 8646PRINT 8648PRINT TAB(W);POST1$(E,25); 8650PRINT USING " ####":LMNR 8652PRINT 8654PRINT TAB(W);POST1$(26,48) 8656PRINT TAB(W);POST1$(49,71) 8658PRINT TAB(W);POST2$(E,4);" ";POST2$(5,18) 8660PRINT 8662PRINT 8664PRINT TAB(24);STDA;"-";SLDA;" " 8666PRINT 8668PRINT 8670PRINT TAB(68);"*";TV$(43,E,7) 8672PRINT 8674PRINT 8676PRINT TAB(68);"*";TV$(34,E,7) 8678PRINT 8680PRINT 8682PRINT 8684PRINT 8686PRINT TAB(68);"*";TV$(40,E,7) 8688PRINT 8690PRINT 8692PRINT TAB(68);"*";TV$(37,E,7) 8694FOR I=E TO 45 8696TV$(I)=TAH$(G:11) 8698NEXT I 8700LT=B 8702LF=B 8704LR=B 8706FOR I=33 TO 48 8708PRINT 8710NEXT I 8712EXEC UDLØNMOD(LMNR) 8714EXEC UDTÆL 8880ENDIF 8890UNTIL LMNR=>MLMNR 8900FOR I=E TO 4 8910FOR J=E TO 8 8920IF TOTAL$(I,J)=" " THEN TOTAL$(I,J)="*" 8930NEXT J 8940NEXT I 8950PRINT 8960PRINT 8970PRINT 8980PRINT TAB(58);POST3$(E,7) 8990PRINT 9000PRINT 9010PRINT TAB(46);POST3$(8,32) 9020PRINT TAB(46);POST3$(33,55) 9030PRINT TAB(46);POST4$(E,4);" ";POST4$(5,18) 9040PRINT 9050PRINT 9060PRINT 9070PRINT TAB(W);"**T O T A L B I L A G**" 9080PRINT TAB(W);"ANTAL BILAG";ABL;" " 9090PRINT 9100PRINT 9110PRINT 9120PRINT 9130PRINT 9140PRINT 9150PRINT TAB(68);TOTAL$(E,E,8) 9160PRINT 9170PRINT 9180PRINT TAB(68);TOTAL$(G,E,8) 9190PRINT 9200PRINT 9210PRINT 9220PRINT 9230PRINT TAB(68);TOTAL$(V,E,8) 9240PRINT 9250PRINT 9260PRINT TAB(68);TOTAL$(4,E,8) 9265FOR I=33 TO 48 9270PRINT 9275NEXT I 9730CLOSE 9735OUTPUT T 9740CHAIN "P641210:STARTB"
0x0000…0032 Line {l1=0x30, l2=»0110DIM STARTPER$(8),SLUTPER$(8),LP$(E),ORK$(E) «, l3=0x30}
0x0032…0069 Line {l1=0x35, l2=»0120DIM RES$(15),OP1$(12),OP2$(12),TAH$(12),TRE$(12) «, l3=0x35}
0x0069…0090 Line {l1=0x25, l2=»0130DIM TOTAL$(4,12),L$(12),LIN$(12) «, l3=0x25}
0x0090…00bc Line {l1=0x2a, l2=»0140DIM RESUL$(12),RESUL1$(12),TV$(45,11) «, l3=0x2a}
0x00bc…0105 Line {l1=0x47, l2=»0150DIM FIL$(16),FIL2$(16),POST1$(71),POST2$(27),POST3$(55),POST4$(34) «, l3=0x47}
0x0105…0118 Line {l1=0x11, l2=»0160DIM MF1$(16) «, l3=0x11}
0x0118…012d Line {l1=0x13, l2=»0162DIM POST5$(55) «, l3=0x13}
0x012d…0147 Line {l1=0x18, l2=»0170TAH$=" 0+" «, l3=0x18}
0x0147…0161 Line {l1=0x18, l2=»0180TRE$=" 3,00+" «, l3=0x18}
0x0161…017f Line {l1=0x1c, l2=»0370PROC CALC(AR3,B1,B2,ES) «, l3=0x1c}
0x017f…01be Line {l1=0x3d, l2=»0380RES$=ES$;OP1$=B1$;OP2$=B2$;SI=B;FLAG=B;ART=AR3-6*(AR3>5) «, l3=0x3d}
0x01be…01d8 Line {l1=0x18, l2=»0390CALL "P641210:REGN" «, l3=0x18}
0x01d8…01ed Line {l1=0x13, l2=»0400IF AR3<6 THEN «, l3=0x13}
0x01ed…0206 Line {l1=0x17, l2=»0410IF FLAG THEN STOP «, l3=0x17}
0x0206…0213 Line {l1=0x0b, l2=»0420ENDIF «, l3=0x0b}
0x0213…0222 Line {l1=0x0d, l2=»0430ES$=RES$ «, l3=0x0d}
0x0222…0231 Line {l1=0x0d, l2=»0440ENDPROC «, l3=0x0d}
0x0231…0243 Line {l1=0x10, l2=»0550PROC INDTÆL «, l3=0x10}
0x0243…0256 Line {l1=0x11, l2=»0560J=W*(LMNR-E) «, l3=0x11}
0x0256…0269 Line {l1=0x11, l2=»0570FOR K=E TO W «, l3=0x11}
0x0269…0284 Line {l1=0x19, l2=»0580GET FIL2$,J+K:POST5$ «, l3=0x19}
0x0284…0297 Line {l1=0x11, l2=»0590FOR I=E TO 5 «, l3=0x11}
0x0297…02c2 Line {l1=0x29, l2=»0600TV$((K-E)*5+I)=POST5$((I-E)*11+E:11) «, l3=0x29}
0x02c2…02cf Line {l1=0x0b, l2=»0610NEXT I «, l3=0x0b}
0x02cf…02dc Line {l1=0x0b, l2=»0620NEXT K «, l3=0x0b}
0x02dc…02fa Line {l1=0x1c, l2=»0630EXEC FEJL(LMNR,K,FIL2$) «, l3=0x1c}
0x02fa…0309 Line {l1=0x0d, l2=»0640ENDPROC «, l3=0x0d}
0x0309…0320 Line {l1=0x15, l2=»0800PROC INLØNMOD(N) «, l3=0x15}
0x0320…033c Line {l1=0x1a, l2=»0810GET FIL$,G*N-E:POST1$ «, l3=0x1a}
0x033c…0378 Line {l1=0x3a, l2=»0820GET FIL$,G*N:POST2$,C1,C2,LT,LF,LR,LA,RPI,K1,K2,FG,FD «, l3=0x3a}
0x0378…0392 Line {l1=0x18, l2=»0830EXEC FEJL(E,N,FIL$) «, l3=0x18}
0x0392…03a1 Line {l1=0x0d, l2=»0840ENDPROC «, l3=0x0d}
0x03a1…03b2 Line {l1=0x0f, l2=»1000PROC UDTÆL «, l3=0x0f}
0x03b2…03c5 Line {l1=0x11, l2=»1010J=W*(LMNR-E) «, l3=0x11}
0x03c5…03d8 Line {l1=0x11, l2=»1020FOR K=E TO W «, l3=0x11}
0x03d8…03eb Line {l1=0x11, l2=»1030FOR I=E TO 5 «, l3=0x11}
0x03eb…0416 Line {l1=0x29, l2=»1040POST5$((I-E)*11+E:11)=TV$((K-E)*5+I) «, l3=0x29}
0x0416…0423 Line {l1=0x0b, l2=»1050NEXT I «, l3=0x0b}
0x0423…043e Line {l1=0x19, l2=»1060PUT FIL2$,J+K:POST5$ «, l3=0x19}
0x043e…044b Line {l1=0x0b, l2=»1070NEXT K «, l3=0x0b}
0x044b…046b Line {l1=0x1e, l2=»1080EXEC FEJL(-LMNR,-K,FIL2$) «, l3=0x1e}
0x046b…047a Line {l1=0x0d, l2=»1090ENDPROC «, l3=0x0d}
0x047a…0491 Line {l1=0x15, l2=»1100PROC UDLØNMOD(N) «, l3=0x15}
0x0491…04ad Line {l1=0x1a, l2=»1110PUT FIL$,G*N-E:POST1$ «, l3=0x1a}
0x04ad…04e9 Line {l1=0x3a, l2=»1120PUT FIL$,G*N:POST2$,C1,C2,LT,LF,LR,LA,RPI,K1,K2,FG,FD «, l3=0x3a}
0x04e9…0503 Line {l1=0x18, l2=»1130EXEC FEJL(G,N,FIL$) «, l3=0x18}
0x0503…0512 Line {l1=0x0d, l2=»1140ENDPROC «, l3=0x0d}
0x0512…0530 Line {l1=0x1c, l2=»1150PROC CONV(NR2,OK22,CIF) «, l3=0x1c}
0x0530…053f Line {l1=0x0d, l2=»1160OK2=OK22 «, l3=0x0d}
0x053f…054d Line {l1=0x0c, l2=»1170NR2$="" «, l3=0x0c}
0x054d…055b Line {l1=0x0c, l2=»1180REPEAT «, l3=0x0c}
0x055b…0580 Line {l1=0x23, l2=»1190NR2$=CHR((OK2 MOD 10)+48)+NR2$ «, l3=0x23}
0x0580…0590 Line {l1=0x0e, l2=»1200CIF=CIF-E «, l3=0x0e}
0x0590…05a5 Line {l1=0x13, l2=»1210OK2=OK2 DIV 10 «, l3=0x13}
0x05a5…05c9 Line {l1=0x22, l2=»1220IF CIF<B AND OK2=B THEN CIF=B «, l3=0x22}
0x05c9…05db Line {l1=0x10, l2=»1230UNTIL CIF=B «, l3=0x10}
0x05db…05ea Line {l1=0x0d, l2=»1240ENDPROC «, l3=0x0d}
0x05ea…05fd Line {l1=0x11, l2=»1890PROC INDVIRK «, l3=0x11}
0x05fd…060f Line {l1=0x10, l2=»1900OPEN FIL$,R «, l3=0x10}
0x060f…0629 Line {l1=0x18, l2=»1910EXEC FEJL(B,B,FIL$) «, l3=0x18}
0x0629…0641 Line {l1=0x16, l2=»1920GET FIL$,E:POST3$ «, l3=0x16}
0x0641…066b Line {l1=0x28, l2=»1930GET FIL$,G:POST4$,SLJNR,MLMNR,ATPLM «, l3=0x28}
0x066b…067a Line {l1=0x0d, l2=»1940ENDPROC «, l3=0x0d}
0x067a…0694 Line {l1=0x18, l2=»1950PROC FEJL(P1,P2,P3) «, l3=0x18}
0x0694…06b2 Line {l1=0x1c, l2=»1960IF STATUS(P3$)<>B THEN «, l3=0x1c}
0x06b2…06c1 Line {l1=0x0d, l2=»1970OUTPUT T «, l3=0x0d}
0x06c1…06ef Line {l1=0x2c, l2=»1980PRINT "FIL-FEJL ";P3$;STATUS(P3$),P1;P2 «, l3=0x2c}
0x06ef…06fb Line {l1=0x0a, l2=»1990STOP «, l3=0x0a}
0x06fb…0708 Line {l1=0x0b, l2=»2000ENDIF «, l3=0x0b}
0x0708…0717 Line {l1=0x0d, l2=»2010ENDPROC «, l3=0x0d}
0x0717…0728 Line {l1=0x0f, l2=»3440PROC NÆSTE «, l3=0x0f}
0x0728…0736 Line {l1=0x0c, l2=»3450REPEAT «, l3=0x0c}
0x0736…0748 Line {l1=0x10, l2=»3460LMNR=LMNR+E «, l3=0x10}
0x0748…0753 Line {l1=0x09, l2=»3470LA=E «, l3=0x09}
0x0753…076e Line {l1=0x19, l2=»3480IF LMNR<=MLMNR THEN «, l3=0x19}
0x076e…0788 Line {l1=0x18, l2=»3490EXEC INLØNMOD(LMNR) «, l3=0x18}
0x0788…07ab Line {l1=0x21, l2=»3500IF LP$<>POST2$(21) THEN LA=B «, l3=0x21}
0x07ab…07de Line {l1=0x31, l2=»3510IF ORK$="A" AND POST2$(24,25)>"89" THEN LA=B «, l3=0x31}
0x07de…0811 Line {l1=0x31, l2=»3520IF ORK$="F" AND POST2$(24,25)<"90" THEN LA=B «, l3=0x31}
0x0811…081e Line {l1=0x0b, l2=»3530ENDIF «, l3=0x0b}
0x081e…082f Line {l1=0x0f, l2=»3540UNTIL LA>B «, l3=0x0f}
0x082f…083e Line {l1=0x0d, l2=»3550ENDPROC «, l3=0x0d}
0x083e…0862 Line {l1=0x22, l2=»8182TOTAL$(E)=TAH$;TOTAL$(G)=TAH$ «, l3=0x22}
0x0862…0886 Line {l1=0x22, l2=»8183TOTAL$(V)=TAH$;TOTAL$(4)=TAH$ «, l3=0x22}
0x0886…08a4 Line {l1=0x1c, l2=»8190FIL$="P641220:VIRKKART" «, l3=0x1c}
0x08a4…08b7 Line {l1=0x11, l2=»8200EXEC INDVIRK «, l3=0x11}
0x08b7…08c8 Line {l1=0x0f, l2=»8210CLOSE FIL$ «, l3=0x0f}
0x08c8…08e6 Line {l1=0x1c, l2=»8220FIL$="P641220:LØNMODRG" «, l3=0x1c}
0x08e6…08f8 Line {l1=0x10, l2=»8230OPEN FIL$,W «, l3=0x10}
0x08f8…0917 Line {l1=0x1d, l2=»8260FIL2$="P641220:TÆLLEREG" «, l3=0x1d}
0x0917…092a Line {l1=0x11, l2=»8270OPEN FIL2$,W «, l3=0x11}
0x092a…0947 Line {l1=0x1b, l2=»8291MF1$="P641210:LØNJOUR" «, l3=0x1b}
0x0947…0959 Line {l1=0x10, l2=»8292OPEN MF1$,R «, l3=0x10}
0x0959…098d Line {l1=0x32, l2=»8300INPUT "Isæt årsoplysningssedler, RETURN ",LP$ «, l3=0x32}
0x098d…099d Line {l1=0x0e, l2=»8350MAXLIN=72 «, l3=0x0e}
0x099d…09aa Line {l1=0x0b, l2=»8360LMNR=B «, l3=0x0b}
0x09aa…09b6 Line {l1=0x0a, l2=»8370ABL=B «, l3=0x0a}
0x09b6…09e5 Line {l1=0x2d, l2=»8372GET MF1$:STARTPER$,SLUTPER$,LP$,ORK$,MFD «, l3=0x2d}
0x09e5…0a2a Line {l1=0x43, l2=»8410STD=100000*(ORD(STARTPER$(E))-48)+10000*(ORD(STARTPER$(G))-48) «, l3=0x43}
0x0a2a…0a6f Line {l1=0x43, l2=»8420STD=STD+1000*(ORD(STARTPER$(4))-48)+100*(ORD(STARTPER$(5))-48) «, l3=0x43}
0x0a6f…0aac Line {l1=0x3b, l2=»8430STD=STD+10*(ORD(STARTPER$(7))-48)+ORD(STARTPER$(8))-48 «, l3=0x3b}
0x0aac…0aef Line {l1=0x41, l2=»8440SLD=100000*(ORD(SLUTPER$(E))-48)+10000*(ORD(SLUTPER$(G))-48) «, l3=0x41}
0x0aef…0b32 Line {l1=0x41, l2=»8450SLD=SLD+1000*(ORD(SLUTPER$(4))-48)+100*(ORD(SLUTPER$(5))-48) «, l3=0x41}
0x0b32…0b6d Line {l1=0x39, l2=»8460SLD=SLD+10*(ORD(SLUTPER$(7))-48)+ORD(SLUTPER$(8))-48 «, l3=0x39}
0x0b6d…0b7f Line {l1=0x10, l2=»8465CURSOR E,14 «, l3=0x10}
0x0b7f…0b8e Line {l1=0x0d, l2=»8470OUTPUT P «, l3=0x0d}
0x0b8e…0b9c Line {l1=0x0c, l2=»8490REPEAT «, l3=0x0c}
0x0b9c…0bad Line {l1=0x0f, l2=»8500EXEC NÆSTE «, l3=0x0f}
0x0bad…0bc8 Line {l1=0x19, l2=»8510IF LMNR<=MLMNR THEN «, l3=0x19}
0x0bc8…0bda Line {l1=0x10, l2=»8520EXEC INDTÆL «, l3=0x10}
0x0bda…0c04 Line {l1=0x28, l2=»8521EXEC CALC(B,TV$(34),TV$(37),RESUL$) «, l3=0x28}
0x0c04…0c2c Line {l1=0x26, l2=»8522EXEC CALC(G,TRE$,TV$(43),RESUL1$) «, l3=0x26}
0x0c2c…0c47 Line {l1=0x19, l2=»8523TV$(34)=RESUL$(G:11) «, l3=0x19}
0x0c47…0c63 Line {l1=0x1a, l2=»8524TV$(43)=RESUL1$(G:11) «, l3=0x1a}
0x0c63…0c73 Line {l1=0x0e, l2=»8529ABL=ABL+E «, l3=0x0e}
0x0c73…0ca2 Line {l1=0x2d, l2=»8530EXEC CALC(B,TV$(43),TOTAL$(E),TOTAL$(E)) «, l3=0x2d}
0x0ca2…0cd1 Line {l1=0x2d, l2=»8540EXEC CALC(B,TV$(34),TOTAL$(G),TOTAL$(G)) «, l3=0x2d}
0x0cd1…0d00 Line {l1=0x2d, l2=»8542EXEC CALC(B,TV$(40),TOTAL$(V),TOTAL$(V)) «, l3=0x2d}
0x0d00…0d2f Line {l1=0x2d, l2=»8544EXEC CALC(B,TV$(37),TOTAL$(4),TOTAL$(4)) «, l3=0x2d}
0x0d2f…0d48 Line {l1=0x17, l2=»8545TV$(34,W,11)="00 " «, l3=0x17}
0x0d48…0d61 Line {l1=0x17, l2=»8546TV$(43,W,11)="00 " «, l3=0x17}
0x0d61…0d7a Line {l1=0x17, l2=»8547TV$(40,W,11)="00 " «, l3=0x17}
0x0d7a…0d93 Line {l1=0x17, l2=»8548TV$(37,W,11)="00 " «, l3=0x17}
0x0d93…0da9 Line {l1=0x14, l2=»8550IF STD>LA THEN «, l3=0x14}
0x0da9…0db8 Line {l1=0x0d, l2=»8560STDA=STD «, l3=0x0d}
0x0db8…0dc4 Line {l1=0x0a, l2=»8570ELSE «, l3=0x0a}
0x0dc4…0dd2 Line {l1=0x0c, l2=»8580STDA=LA «, l3=0x0c}
0x0dd2…0ddf Line {l1=0x0b, l2=»8590ENDIF «, l3=0x0b}
0x0ddf…0dfd Line {l1=0x1c, l2=»8600IF SLD<FD OR FD=B THEN «, l3=0x1c}
0x0dfd…0e0c Line {l1=0x0d, l2=»8602SLDA=SLD «, l3=0x0d}
0x0e0c…0e18 Line {l1=0x0a, l2=»8604ELSE «, l3=0x0a}
0x0e18…0e26 Line {l1=0x0c, l2=»8606SLDA=FD «, l3=0x0c}
0x0e26…0e33 Line {l1=0x0b, l2=»8608ENDIF «, l3=0x0b}
0x0e33…0e50 Line {l1=0x1b, l2=»8609IF FD>B THEN LA=B;FD=B «, l3=0x1b}
0x0e50…0e63 Line {l1=0x11, l2=»8610FOR I=E TO 7 «, l3=0x11}
0x0e63…0e8d Line {l1=0x28, l2=»8612IF TV$(34,I)=" " THEN TV$(34,I)="*" «, l3=0x28}
0x0e8d…0eb7 Line {l1=0x28, l2=»8614IF TV$(43,I)=" " THEN TV$(43,I)="*" «, l3=0x28}
0x0eb7…0ee1 Line {l1=0x28, l2=»8616IF TV$(40,I)=" " THEN TV$(40,I)="*" «, l3=0x28}
0x0ee1…0f0b Line {l1=0x28, l2=»8618IF TV$(37,I)=" " THEN TV$(37,I)="*" «, l3=0x28}
0x0f0b…0f18 Line {l1=0x0b, l2=»8620NEXT I «, l3=0x0b}
0x0f18…0f25 Line {l1=0x0b, l2=»8622PRINT «, l3=0x0b}
0x0f25…0f32 Line {l1=0x0b, l2=»8624PRINT «, l3=0x0b}
0x0f32…0f3f Line {l1=0x0b, l2=»8626PRINT «, l3=0x0b}
0x0f3f…0f58 Line {l1=0x17, l2=»8628EXEC CONV(L$,C1,6) «, l3=0x17}
0x0f58…0f73 Line {l1=0x19, l2=»8630EXEC CONV(LIN$,C2,4) «, l3=0x19}
0x0f73…0f84 Line {l1=0x0f, l2=»8632L$=L$+LIN$ «, l3=0x0f}
0x0f84…0fae Line {l1=0x28, l2=»8634PRINT TAB(W);L$;TAB(58);POST3$(E,7) «, l3=0x28}
0x0fae…0fbb Line {l1=0x0b, l2=»8636PRINT «, l3=0x0b}
0x0fbb…0fc8 Line {l1=0x0b, l2=»8638PRINT «, l3=0x0b}
0x0fc8…0fe9 Line {l1=0x1f, l2=»8640PRINT TAB(46);POST3$(8,32) «, l3=0x1f}
0x0fe9…100b Line {l1=0x20, l2=»8642PRINT TAB(46);POST3$(33,55) «, l3=0x20}
0x100b…103c Line {l1=0x2f, l2=»8644PRINT TAB(46);POST4$(E,4);" ";POST4$(5,18) «, l3=0x2f}
0x103c…1049 Line {l1=0x0b, l2=»8646PRINT «, l3=0x0b}
0x1049…106a Line {l1=0x1f, l2=»8648PRINT TAB(W);POST1$(E,25); «, l3=0x1f}
0x106a…1089 Line {l1=0x1d, l2=»8650PRINT USING " ####":LMNR «, l3=0x1d}
0x1089…1096 Line {l1=0x0b, l2=»8652PRINT «, l3=0x0b}
0x1096…10b7 Line {l1=0x1f, l2=»8654PRINT TAB(W);POST1$(26,48) «, l3=0x1f}
0x10b7…10d8 Line {l1=0x1f, l2=»8656PRINT TAB(W);POST1$(49,71) «, l3=0x1f}
0x10d8…1108 Line {l1=0x2e, l2=»8658PRINT TAB(W);POST2$(E,4);" ";POST2$(5,18) «, l3=0x2e}
0x1108…1115 Line {l1=0x0b, l2=»8660PRINT «, l3=0x0b}
0x1115…1122 Line {l1=0x0b, l2=»8662PRINT «, l3=0x0b}
0x1122…1148 Line {l1=0x24, l2=»8664PRINT TAB(24);STDA;"-";SLDA;" " «, l3=0x24}
0x1148…1155 Line {l1=0x0b, l2=»8666PRINT «, l3=0x0b}
0x1155…1162 Line {l1=0x0b, l2=»8668PRINT «, l3=0x0b}
0x1162…1186 Line {l1=0x22, l2=»8670PRINT TAB(68);"*";TV$(43,E,7) «, l3=0x22}
0x1186…1193 Line {l1=0x0b, l2=»8672PRINT «, l3=0x0b}
0x1193…11a0 Line {l1=0x0b, l2=»8674PRINT «, l3=0x0b}
0x11a0…11c4 Line {l1=0x22, l2=»8676PRINT TAB(68);"*";TV$(34,E,7) «, l3=0x22}
0x11c4…11d1 Line {l1=0x0b, l2=»8678PRINT «, l3=0x0b}
0x11d1…11de Line {l1=0x0b, l2=»8680PRINT «, l3=0x0b}
0x11de…11eb Line {l1=0x0b, l2=»8682PRINT «, l3=0x0b}
0x11eb…11f8 Line {l1=0x0b, l2=»8684PRINT «, l3=0x0b}
0x11f8…121c Line {l1=0x22, l2=»8686PRINT TAB(68);"*";TV$(40,E,7) «, l3=0x22}
0x121c…1229 Line {l1=0x0b, l2=»8688PRINT «, l3=0x0b}
0x1229…1236 Line {l1=0x0b, l2=»8690PRINT «, l3=0x0b}
0x1236…125a Line {l1=0x22, l2=»8692PRINT TAB(68);"*";TV$(37,E,7) «, l3=0x22}
0x125a…126e Line {l1=0x12, l2=»8694FOR I=E TO 45 «, l3=0x12}
0x126e…1286 Line {l1=0x16, l2=»8696TV$(I)=TAH$(G:11) «, l3=0x16}
0x1286…1293 Line {l1=0x0b, l2=»8698NEXT I «, l3=0x0b}
0x1293…129e Line {l1=0x09, l2=»8700LT=B «, l3=0x09}
0x129e…12a9 Line {l1=0x09, l2=»8702LF=B «, l3=0x09}
0x12a9…12b4 Line {l1=0x09, l2=»8704LR=B «, l3=0x09}
0x12b4…12c9 Line {l1=0x13, l2=»8706FOR I=33 TO 48 «, l3=0x13}
0x12c9…12d6 Line {l1=0x0b, l2=»8708PRINT «, l3=0x0b}
0x12d6…12e3 Line {l1=0x0b, l2=»8710NEXT I «, l3=0x0b}
0x12e3…12fd Line {l1=0x18, l2=»8712EXEC UDLØNMOD(LMNR) «, l3=0x18}
0x12fd…130e Line {l1=0x0f, l2=»8714EXEC UDTÆL «, l3=0x0f}
0x130e…131b Line {l1=0x0b, l2=»8880ENDIF «, l3=0x0b}
0x131b…1333 Line {l1=0x16, l2=»8890UNTIL LMNR=>MLMNR «, l3=0x16}
0x1333…1346 Line {l1=0x11, l2=»8900FOR I=E TO 4 «, l3=0x11}
0x1346…1359 Line {l1=0x11, l2=»8910FOR J=E TO 8 «, l3=0x11}
0x1359…1387 Line {l1=0x2c, l2=»8920IF TOTAL$(I,J)=" " THEN TOTAL$(I,J)="*" «, l3=0x2c}
0x1387…1394 Line {l1=0x0b, l2=»8930NEXT J «, l3=0x0b}
0x1394…13a1 Line {l1=0x0b, l2=»8940NEXT I «, l3=0x0b}
0x13a1…13ae Line {l1=0x0b, l2=»8950PRINT «, l3=0x0b}
0x13ae…13bb Line {l1=0x0b, l2=»8960PRINT «, l3=0x0b}
0x13bb…13c8 Line {l1=0x0b, l2=»8970PRINT «, l3=0x0b}
0x13c8…13e8 Line {l1=0x1e, l2=»8980PRINT TAB(58);POST3$(E,7) «, l3=0x1e}
0x13e8…13f5 Line {l1=0x0b, l2=»8990PRINT «, l3=0x0b}
0x13f5…1402 Line {l1=0x0b, l2=»9000PRINT «, l3=0x0b}
0x1402…1423 Line {l1=0x1f, l2=»9010PRINT TAB(46);POST3$(8,32) «, l3=0x1f}
0x1423…1445 Line {l1=0x20, l2=»9020PRINT TAB(46);POST3$(33,55) «, l3=0x20}
0x1445…1476 Line {l1=0x2f, l2=»9030PRINT TAB(46);POST4$(E,4);" ";POST4$(5,18) «, l3=0x2f}
0x1476…1483 Line {l1=0x0b, l2=»9040PRINT «, l3=0x0b}
0x1483…1490 Line {l1=0x0b, l2=»9050PRINT «, l3=0x0b}
0x1490…149d Line {l1=0x0b, l2=»9060PRINT «, l3=0x0b}
0x149d…14ca Line {l1=0x2b, l2=»9070PRINT TAB(W);"**T O T A L B I L A G**" «, l3=0x2b}
0x14ca…14f3 Line {l1=0x27, l2=»9080PRINT TAB(W);"ANTAL BILAG";ABL;" " «, l3=0x27}
0x14f3…1500 Line {l1=0x0b, l2=»9090PRINT «, l3=0x0b}
0x1500…150d Line {l1=0x0b, l2=»9100PRINT «, l3=0x0b}
0x150d…151a Line {l1=0x0b, l2=»9110PRINT «, l3=0x0b}
0x151a…1527 Line {l1=0x0b, l2=»9120PRINT «, l3=0x0b}
0x1527…1534 Line {l1=0x0b, l2=»9130PRINT «, l3=0x0b}
0x1534…1541 Line {l1=0x0b, l2=»9140PRINT «, l3=0x0b}
0x1541…1563 Line {l1=0x20, l2=»9150PRINT TAB(68);TOTAL$(E,E,8) «, l3=0x20}
0x1563…1570 Line {l1=0x0b, l2=»9160PRINT «, l3=0x0b}
0x1570…157d Line {l1=0x0b, l2=»9170PRINT «, l3=0x0b}
0x157d…159f Line {l1=0x20, l2=»9180PRINT TAB(68);TOTAL$(G,E,8) «, l3=0x20}
0x159f…15ac Line {l1=0x0b, l2=»9190PRINT «, l3=0x0b}
0x15ac…15b9 Line {l1=0x0b, l2=»9200PRINT «, l3=0x0b}
0x15b9…15c6 Line {l1=0x0b, l2=»9210PRINT «, l3=0x0b}
0x15c6…15d3 Line {l1=0x0b, l2=»9220PRINT «, l3=0x0b}
0x15d3…15f5 Line {l1=0x20, l2=»9230PRINT TAB(68);TOTAL$(V,E,8) «, l3=0x20}
0x15f5…1602 Line {l1=0x0b, l2=»9240PRINT «, l3=0x0b}
0x1602…160f Line {l1=0x0b, l2=»9250PRINT «, l3=0x0b}
0x160f…1631 Line {l1=0x20, l2=»9260PRINT TAB(68);TOTAL$(4,E,8) «, l3=0x20}
0x1631…1646 Line {l1=0x13, l2=»9265FOR I=33 TO 48 «, l3=0x13}
0x1646…1653 Line {l1=0x0b, l2=»9270PRINT «, l3=0x0b}
0x1653…1660 Line {l1=0x0b, l2=»9275NEXT I «, l3=0x0b}
0x1660…166d Line {l1=0x0b, l2=»9730CLOSE «, l3=0x0b}
0x166d…167c Line {l1=0x0d, l2=»9735OUTPUT T «, l3=0x0d}
0x167c…1699 Line {l1=0x1b, l2=»9740CHAIN "P641210:STARTB" «, l3=0x1b}
0x1699…16a0 00 00 00 00 00 00 00 ┆ ┆
0x16a0…16c0 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 ┆ ┆
[…0x37…]