|
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: 5056 (0x13c0)
Types: TextFile
Notes: Mikados_K
Names: »LFRADRAG.K«
└─⟦385f097a1⟧ Bits:30008988 SPC/1 COMAL programmer til bogføring
└─⟦this⟧ »LFRADRAG.K«
0200PROC INDVIRK 0210OPEN FIL$,R 0220EXEC FEJL(B,B,FIL$) 0230GET FIL$,V:DAD$ 0240CLOSE FIL$ 0250ENDPROC 0900PROC INLØNMOD(N) 0902GET FIL1$,G*N-E:POST1$ 0904GET FIL1$,G*N:POST2$,C1,C2,LT,LF,LR,LA,RPI,K1,K2,FG,FD 0906EXEC FEJL(E,N,FIL1$) 0908ENDPROC 1000DIM STARTPER$(8),SLUTPER$(8),DAD$(6),FIL$(20) 1010DIM RES$(15),OP1$(12),OP2$(12),TAH$(12) 1020DIM TOTAL$(7,12),FIL1$(16),POST1$(71),POST2$(27) 1030DIM RESUL$(12),RESUL1$(12),MF41$(50),MF42$(50),TOTAL1$(5,12) 1050DIM MF4$(16) 1060TAH$=" 0+" 1070DIM BL$(79) 1080FOR I=E TO 79 1090BL$=BL$+" " 1100NEXT I 1110PROC CALC(AR3,B1,B2,ES) 1120RES$=ES$;OP1$=B1$;OP2$=B2$;SI=B;FLAG=B;ART=AR3-6*(AR3>5) 1130CALL "P641210:REGN" 1140IF AR3<6 THEN 1150IF FLAG THEN STOP 1160ENDIF 1170ES$=RES$ 1180ENDPROC 1390PROC SKRIVHOVED 1400PRINT 1410SIDE=SIDE+E 1420PRINT USING " SIDE ###":SIDE; 1425PRINT " UDSKRIFTSDATO ";DAD$; 1430PRINT TAB(49);"LØNPERIODEN ";STARTPER$;" / ";SLUTPER$; 1440LINIE=7 1450PRINT TAB(34);"FRADRAGSLISTE" 1460PRINT TAB(34);"*************" 1470PRINT " LØN NAVN";TAB(37);"LA";TAB(45);"LA";TAB(53);"LA";TAB(61);"LA"; 1480PRINT TAB(69);"LA";TAB(75);"IALT" 1490PRINT " NR";TAB(37);"60";TAB(45);"61";TAB(53);"62";TAB(61);"63";TAB(69); 1500PRINT "64" 1501PRINT TAB(37);"65";TAB(45);"66";TAB(53);"67";TAB(61);"68";TAB(69); 1502PRINT "69" 1510ENDPROC 1580PROC FEJL(P1,P2,P3) 1590IF STATUS(P3$)<>B THEN 1600OUTPUT T 1610PRINT "FIL-FEJL ";P3$;STATUS(P3$),P1;P2 1620STOP 1630ENDIF 1640ENDPROC 1650FIL$="P641220:VIRKKART" 1660EXEC INDVIRK 1675FIL1$="P641220:LØNMODRG" 1680OPEN FIL1$,R 1710MF4$="P641210:FRADRAG" 1720OPEN MF4$,R 1730MAXLIN=72 1740SIDE=B 1750GET MF4$:STARTPER$,SLUTPER$ 1760OUTPUT P 1770FOR I=E TO 7 1780TOTAL$(I)=TAH$ 1790NEXT I 1800EXEC SKRIVHOVED 1810GET MF4$:LMNR,MF41$ 1820WHILE STATUS(MF4$)=B 1822GET MF4$:LMNR,MF42$ 1825EXEC INLØNMOD(LMNR) 1840IF LINIE>MAXLIN-W THEN 1850WHILE LINIE<MAXLIN 1860PRINT 1870LINIE=LINIE+E 1880ENDWHILE 1890EXEC SKRIVHOVED 1910ENDIF 1915LINIE=LINIE+5 1920TOTAL$(7)=TAH$ 1930FOR I=E TO 5 1940RESUL$=MF41$(E+(I-E)*10:10) 1945EXEC CALC(B,RESUL$,TOTAL$(7),TOTAL$(7)) 1950EXEC CALC(B,RESUL$,TOTAL$(I),TOTAL$(I)) 1960IF MF41$(I*10)="+" THEN MF41$(I*10)=" " 1962RESUL$=MF42$(E+(I-E)*10:10) 1964EXEC CALC(B,RESUL$,TOTAL1$(I),TOTAL1$(I)) 1966EXEC CALC(B,RESUL$,TOTAL$(7),TOTAL$(7)) 1968IF MF42$(I*10)="+" THEN MF42$(I*10)=" " 1970NEXT I 1980EXEC CALC(B,TOTAL$(7),TOTAL$(6),TOTAL$(6)) 1990RESUL1$=TOTAL$(7,V:10) 2000IF RESUL1$(10)="+" THEN RESUL1$(10)=" " 2030PRINT USING "####":LMNR; 2035PRINT TAB(7);POST1$(E,25); 2040PRINT TAB(38);MF41$(E,10);TAB(54);MF41$(11,20);TAB(70);RESUL1$; 2050PRINT TAB(30);MF41$(21,30);TAB(46);MF41$(31,40);TAB(62);MF41$(41,50) 2055PRINT TAB(38);MF42$(11,20);TAB(54);MF42$(31,40) 2060PRINT TAB(30);MF42$(E,10);TAB(46);MF42$(21,30);TAB(62);MF42$(41,50) 2075PRINT "************************************************************"; 2076PRINT "*******************"; 2080GET MF4$:LMNR,MF41$ 2090ENDWHILE 2095IF STATUS(MF4$)<>19 THEN EXEC FEJL(LMNR,B,MF4$) 2100FOR I=E TO 6 2110IF TOTAL$(I,12)="+" THEN TOTAL$(I,12)=" " 2112IF I<6 THEN 2114IF TOTAL1$(I,12)="+" THEN TOTAL1$(I,12)=" " 2115ENDIF 2120NEXT I 2130PRINT " ***";TAB(36);TOTAL$(E);TAB(52);TOTAL$(G);TAB(68);TOTAL$(6); 2132PRINT TAB(28);TOTAL$(V);TAB(44);TOTAL$(4);TAB(60);TOTAL$(5) 2134PRINT TAB(36);TOTAL1$(G);TAB(52);TOTAL1$(4) 2136PRINT TAB(28);TOTAL1$(E);TAB(44);TOTAL1$(V);TAB(60);TOTAL1$(5) 2141LINIE=LINIE+4 2142WHILE LINIE<MAXLIN 2144PRINT 2146LINIE=LINIE+E 2148ENDWHILE 2149OUTPUT T 2150CLOSE 2160CHAIN "P641210:LBILAG"
0x0000…0013 Line {l1=0x11, l2=»0200PROC INDVIRK «, l3=0x11}
0x0013…0025 Line {l1=0x10, l2=»0210OPEN FIL$,R «, l3=0x10}
0x0025…003f Line {l1=0x18, l2=»0220EXEC FEJL(B,B,FIL$) «, l3=0x18}
0x003f…0055 Line {l1=0x14, l2=»0230GET FIL$,V:DAD$ «, l3=0x14}
0x0055…0066 Line {l1=0x0f, l2=»0240CLOSE FIL$ «, l3=0x0f}
0x0066…0075 Line {l1=0x0d, l2=»0250ENDPROC «, l3=0x0d}
0x0075…008c Line {l1=0x15, l2=»0900PROC INLØNMOD(N) «, l3=0x15}
0x008c…00a9 Line {l1=0x1b, l2=»0902GET FIL1$,G*N-E:POST1$ «, l3=0x1b}
0x00a9…00e6 Line {l1=0x3b, l2=»0904GET FIL1$,G*N:POST2$,C1,C2,LT,LF,LR,LA,RPI,K1,K2,FG,FD «, l3=0x3b}
0x00e6…0101 Line {l1=0x19, l2=»0906EXEC FEJL(E,N,FIL1$) «, l3=0x19}
0x0101…0110 Line {l1=0x0d, l2=»0908ENDPROC «, l3=0x0d}
0x0110…0144 Line {l1=0x32, l2=»1000DIM STARTPER$(8),SLUTPER$(8),DAD$(6),FIL$(20) «, l3=0x32}
0x0144…0172 Line {l1=0x2c, l2=»1010DIM RES$(15),OP1$(12),OP2$(12),TAH$(12) «, l3=0x2c}
0x0172…01a9 Line {l1=0x35, l2=»1020DIM TOTAL$(7,12),FIL1$(16),POST1$(71),POST2$(27) «, l3=0x35}
0x01a9…01ec Line {l1=0x41, l2=»1030DIM RESUL$(12),RESUL1$(12),MF41$(50),MF42$(50),TOTAL1$(5,12) «, l3=0x41}
0x01ec…01ff Line {l1=0x11, l2=»1050DIM MF4$(16) «, l3=0x11}
0x01ff…0219 Line {l1=0x18, l2=»1060TAH$=" 0+" «, l3=0x18}
0x0219…022b Line {l1=0x10, l2=»1070DIM BL$(79) «, l3=0x10}
0x022b…023f Line {l1=0x12, l2=»1080FOR I=E TO 79 «, l3=0x12}
0x023f…0251 Line {l1=0x10, l2=»1090BL$=BL$+" " «, l3=0x10}
0x0251…025e Line {l1=0x0b, l2=»1100NEXT I «, l3=0x0b}
0x025e…027c Line {l1=0x1c, l2=»1110PROC CALC(AR3,B1,B2,ES) «, l3=0x1c}
0x027c…02bb Line {l1=0x3d, l2=»1120RES$=ES$;OP1$=B1$;OP2$=B2$;SI=B;FLAG=B;ART=AR3-6*(AR3>5) «, l3=0x3d}
0x02bb…02d5 Line {l1=0x18, l2=»1130CALL "P641210:REGN" «, l3=0x18}
0x02d5…02ea Line {l1=0x13, l2=»1140IF AR3<6 THEN «, l3=0x13}
0x02ea…0303 Line {l1=0x17, l2=»1150IF FLAG THEN STOP «, l3=0x17}
0x0303…0310 Line {l1=0x0b, l2=»1160ENDIF «, l3=0x0b}
0x0310…031f Line {l1=0x0d, l2=»1170ES$=RES$ «, l3=0x0d}
0x031f…032e Line {l1=0x0d, l2=»1180ENDPROC «, l3=0x0d}
0x032e…0344 Line {l1=0x14, l2=»1390PROC SKRIVHOVED «, l3=0x14}
0x0344…0351 Line {l1=0x0b, l2=»1400PRINT «, l3=0x0b}
0x0351…0363 Line {l1=0x10, l2=»1410SIDE=SIDE+E «, l3=0x10}
0x0363…0387 Line {l1=0x22, l2=»1420PRINT USING " SIDE ###":SIDE; «, l3=0x22}
0x0387…03af Line {l1=0x26, l2=»1425PRINT " UDSKRIFTSDATO ";DAD$; «, l3=0x26}
0x03af…03ec Line {l1=0x3b, l2=»1430PRINT TAB(49);"LØNPERIODEN ";STARTPER$;" / ";SLUTPER$; «, l3=0x3b}
0x03ec…03fa Line {l1=0x0c, l2=»1440LINIE=7 «, l3=0x0c}
0x03fa…041e Line {l1=0x22, l2=»1450PRINT TAB(34);"FRADRAGSLISTE" «, l3=0x22}
0x041e…0442 Line {l1=0x22, l2=»1460PRINT TAB(34);"*************" «, l3=0x22}
0x0442…0490 Line {l1=0x4c, l2=»1470PRINT " LØN NAVN";TAB(37);"LA";TAB(45);"LA";TAB(53);"LA";TAB(61);"LA"; «, l3=0x4c}
0x0490…04b8 Line {l1=0x26, l2=»1480PRINT TAB(69);"LA";TAB(75);"IALT" «, l3=0x26}
0x04b8…0507 Line {l1=0x4d, l2=»1490PRINT " NR";TAB(37);"60";TAB(45);"61";TAB(53);"62";TAB(61);"63";TAB(69); «, l3=0x4d}
0x0507…0518 Line {l1=0x0f, l2=»1500PRINT "64" «, l3=0x0f}
0x0518…0561 Line {l1=0x47, l2=»1501PRINT TAB(37);"65";TAB(45);"66";TAB(53);"67";TAB(61);"68";TAB(69); «, l3=0x47}
0x0561…0572 Line {l1=0x0f, l2=»1502PRINT "69" «, l3=0x0f}
0x0572…0581 Line {l1=0x0d, l2=»1510ENDPROC «, l3=0x0d}
0x0581…059b Line {l1=0x18, l2=»1580PROC FEJL(P1,P2,P3) «, l3=0x18}
0x059b…05b9 Line {l1=0x1c, l2=»1590IF STATUS(P3$)<>B THEN «, l3=0x1c}
0x05b9…05c8 Line {l1=0x0d, l2=»1600OUTPUT T «, l3=0x0d}
0x05c8…05f6 Line {l1=0x2c, l2=»1610PRINT "FIL-FEJL ";P3$;STATUS(P3$),P1;P2 «, l3=0x2c}
0x05f6…0602 Line {l1=0x0a, l2=»1620STOP «, l3=0x0a}
0x0602…060f Line {l1=0x0b, l2=»1630ENDIF «, l3=0x0b}
0x060f…061e Line {l1=0x0d, l2=»1640ENDPROC «, l3=0x0d}
0x061e…063c Line {l1=0x1c, l2=»1650FIL$="P641220:VIRKKART" «, l3=0x1c}
0x063c…064f Line {l1=0x11, l2=»1660EXEC INDVIRK «, l3=0x11}
0x064f…066e Line {l1=0x1d, l2=»1675FIL1$="P641220:LØNMODRG" «, l3=0x1d}
0x066e…0681 Line {l1=0x11, l2=»1680OPEN FIL1$,R «, l3=0x11}
0x0681…069e Line {l1=0x1b, l2=»1710MF4$="P641210:FRADRAG" «, l3=0x1b}
0x069e…06b0 Line {l1=0x10, l2=»1720OPEN MF4$,R «, l3=0x10}
0x06b0…06c0 Line {l1=0x0e, l2=»1730MAXLIN=72 «, l3=0x0e}
0x06c0…06cd Line {l1=0x0b, l2=»1740SIDE=B «, l3=0x0b}
0x06cd…06ef Line {l1=0x20, l2=»1750GET MF4$:STARTPER$,SLUTPER$ «, l3=0x20}
0x06ef…06fe Line {l1=0x0d, l2=»1760OUTPUT P «, l3=0x0d}
0x06fe…0711 Line {l1=0x11, l2=»1770FOR I=E TO 7 «, l3=0x11}
0x0711…0726 Line {l1=0x13, l2=»1780TOTAL$(I)=TAH$ «, l3=0x13}
0x0726…0733 Line {l1=0x0b, l2=»1790NEXT I «, l3=0x0b}
0x0733…0749 Line {l1=0x14, l2=»1800EXEC SKRIVHOVED «, l3=0x14}
0x0749…0763 Line {l1=0x18, l2=»1810GET MF4$:LMNR,MF41$ «, l3=0x18}
0x0763…077e Line {l1=0x19, l2=»1820WHILE STATUS(MF4$)=B «, l3=0x19}
0x077e…0798 Line {l1=0x18, l2=»1822GET MF4$:LMNR,MF42$ «, l3=0x18}
0x0798…07b2 Line {l1=0x18, l2=»1825EXEC INLØNMOD(LMNR) «, l3=0x18}
0x07b2…07d0 Line {l1=0x1c, l2=»1840IF LINIE>MAXLIN-W THEN «, l3=0x1c}
0x07d0…07e9 Line {l1=0x17, l2=»1850WHILE LINIE<MAXLIN «, l3=0x17}
0x07e9…07f6 Line {l1=0x0b, l2=»1860PRINT «, l3=0x0b}
0x07f6…080a Line {l1=0x12, l2=»1870LINIE=LINIE+E «, l3=0x12}
0x080a…081a Line {l1=0x0e, l2=»1880ENDWHILE «, l3=0x0e}
0x081a…0830 Line {l1=0x14, l2=»1890EXEC SKRIVHOVED «, l3=0x14}
0x0830…083d Line {l1=0x0b, l2=»1910ENDIF «, l3=0x0b}
0x083d…0851 Line {l1=0x12, l2=»1915LINIE=LINIE+5 «, l3=0x12}
0x0851…0866 Line {l1=0x13, l2=»1920TOTAL$(7)=TAH$ «, l3=0x13}
0x0866…0879 Line {l1=0x11, l2=»1930FOR I=E TO 5 «, l3=0x11}
0x0879…089b Line {l1=0x20, l2=»1940RESUL$=MF41$(E+(I-E)*10:10) «, l3=0x20}
0x089b…08c9 Line {l1=0x2c, l2=»1945EXEC CALC(B,RESUL$,TOTAL$(7),TOTAL$(7)) «, l3=0x2c}
0x08c9…08f7 Line {l1=0x2c, l2=»1950EXEC CALC(B,RESUL$,TOTAL$(I),TOTAL$(I)) «, l3=0x2c}
0x08f7…0925 Line {l1=0x2c, l2=»1960IF MF41$(I*10)="+" THEN MF41$(I*10)=" " «, l3=0x2c}
0x0925…0947 Line {l1=0x20, l2=»1962RESUL$=MF42$(E+(I-E)*10:10) «, l3=0x20}
0x0947…0977 Line {l1=0x2e, l2=»1964EXEC CALC(B,RESUL$,TOTAL1$(I),TOTAL1$(I)) «, l3=0x2e}
0x0977…09a5 Line {l1=0x2c, l2=»1966EXEC CALC(B,RESUL$,TOTAL$(7),TOTAL$(7)) «, l3=0x2c}
0x09a5…09d3 Line {l1=0x2c, l2=»1968IF MF42$(I*10)="+" THEN MF42$(I*10)=" " «, l3=0x2c}
0x09d3…09e0 Line {l1=0x0b, l2=»1970NEXT I «, l3=0x0b}
0x09e0…0a11 Line {l1=0x2f, l2=»1980EXEC CALC(B,TOTAL$(7),TOTAL$(6),TOTAL$(6)) «, l3=0x2f}
0x0a11…0a2e Line {l1=0x1b, l2=»1990RESUL1$=TOTAL$(7,V:10) «, l3=0x1b}
0x0a2e…0a5c Line {l1=0x2c, l2=»2000IF RESUL1$(10)="+" THEN RESUL1$(10)=" " «, l3=0x2c}
0x0a5c…0a7b Line {l1=0x1d, l2=»2030PRINT USING "####":LMNR; «, l3=0x1d}
0x0a7b…0a9c Line {l1=0x1f, l2=»2035PRINT TAB(7);POST1$(E,25); «, l3=0x1f}
0x0a9c…0ae2 Line {l1=0x44, l2=»2040PRINT TAB(38);MF41$(E,10);TAB(54);MF41$(11,20);TAB(70);RESUL1$; «, l3=0x44}
0x0ae2…0b2d Line {l1=0x49, l2=»2050PRINT TAB(30);MF41$(21,30);TAB(46);MF41$(31,40);TAB(62);MF41$(41,50) «, l3=0x49}
0x0b2d…0b63 Line {l1=0x34, l2=»2055PRINT TAB(38);MF42$(11,20);TAB(54);MF42$(31,40) «, l3=0x34}
0x0b63…0bad Line {l1=0x48, l2=»2060PRINT TAB(30);MF42$(E,10);TAB(46);MF42$(21,30);TAB(62);MF42$(41,50) «, l3=0x48}
0x0bad…0bf9 Line {l1=0x4a, l2=»2075PRINT "************************************************************"; «, l3=0x4a}
0x0bf9…0c1c Line {l1=0x21, l2=»2076PRINT "*******************"; «, l3=0x21}
0x0c1c…0c36 Line {l1=0x18, l2=»2080GET MF4$:LMNR,MF41$ «, l3=0x18}
0x0c36…0c46 Line {l1=0x0e, l2=»2090ENDWHILE «, l3=0x0e}
0x0c46…0c7c Line {l1=0x34, l2=»2095IF STATUS(MF4$)<>19 THEN EXEC FEJL(LMNR,B,MF4$) «, l3=0x34}
0x0c7c…0c8f Line {l1=0x11, l2=»2100FOR I=E TO 6 «, l3=0x11}
0x0c8f…0cbf Line {l1=0x2e, l2=»2110IF TOTAL$(I,12)="+" THEN TOTAL$(I,12)=" " «, l3=0x2e}
0x0cbf…0cd2 Line {l1=0x11, l2=»2112IF I<6 THEN «, l3=0x11}
0x0cd2…0d04 Line {l1=0x30, l2=»2114IF TOTAL1$(I,12)="+" THEN TOTAL1$(I,12)=" " «, l3=0x30}
0x0d04…0d11 Line {l1=0x0b, l2=»2115ENDIF «, l3=0x0b}
0x0d11…0d1e Line {l1=0x0b, l2=»2120NEXT I «, l3=0x0b}
0x0d1e…0d68 Line {l1=0x48, l2=»2130PRINT " ***";TAB(36);TOTAL$(E);TAB(52);TOTAL$(G);TAB(68);TOTAL$(6); «, l3=0x48}
0x0d68…0daa Line {l1=0x40, l2=»2132PRINT TAB(28);TOTAL$(V);TAB(44);TOTAL$(4);TAB(60);TOTAL$(5) «, l3=0x40}
0x0daa…0ddc Line {l1=0x30, l2=»2134PRINT TAB(36);TOTAL1$(G);TAB(52);TOTAL1$(4) «, l3=0x30}
0x0ddc…0e21 Line {l1=0x43, l2=»2136PRINT TAB(28);TOTAL1$(E);TAB(44);TOTAL1$(V);TAB(60);TOTAL1$(5) «, l3=0x43}
0x0e21…0e35 Line {l1=0x12, l2=»2141LINIE=LINIE+4 «, l3=0x12}
0x0e35…0e4e Line {l1=0x17, l2=»2142WHILE LINIE<MAXLIN «, l3=0x17}
0x0e4e…0e5b Line {l1=0x0b, l2=»2144PRINT «, l3=0x0b}
0x0e5b…0e6f Line {l1=0x12, l2=»2146LINIE=LINIE+E «, l3=0x12}
0x0e6f…0e7f Line {l1=0x0e, l2=»2148ENDWHILE «, l3=0x0e}
0x0e7f…0e8e Line {l1=0x0d, l2=»2149OUTPUT T «, l3=0x0d}
0x0e8e…0e9b Line {l1=0x0b, l2=»2150CLOSE «, l3=0x0b}
0x0e9b…0eb8 Line {l1=0x1b, l2=»2160CHAIN "P641210:LBILAG" «, l3=0x1b}
0x0eb8…0ec0 00 00 00 00 00 00 00 00 ┆ ┆
0x0ec0…0ee0 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 ┆ ┆
[…0x27…]