DataMuseum.dk

Presents historical artifacts from the history of:

MIKADOS

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about MIKADOS

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦99c284b29⟧ TextFile

    Length: 5056 (0x13c0)
    Types: TextFile
    Notes: Mikados_K
    Names: »LBILAG.K«

Derivation

└─⟦385f097a1⟧ Bits:30008988 SPC/1 COMAL programmer til bogføring
    └─⟦this⟧ »LBILAG.K«

Mikados K File

0100PROC CONV(NR2,OK22,CIF) 
0110OK2=OK22 
0120NR2$="" 
0130REPEAT  
0140NR2$=CHR((OK2 MOD 10)+48)+NR2$ 
0150CIF=CIF-E 
0160OK2=OK2 DIV 10 
0170IF CIF<B AND OK2=B THEN CIF=B 
0180UNTIL CIF=B 
0190ENDPROC  
0200PROC INDVIRK 
0210OPEN FIL$,R 
0220EXEC FEJL(B,B,FIL$) 
0230GET FIL$,E:POST3$ 
0240GET FIL$,G:POST4$,SLJNR,MLMNR,ATPLM 
0245GET FIL$,V:DAD$ 
0250ENDPROC  
0260PROC CONVDATE(NR1,OK1) 
0270OK11=OK1;NR1$="" 
0280FOR I=8 TO E STEP -E 
0290IF I MOD V=B THEN  
0300NR1$(I)="-" 
0310ELSE  
0320NR1$(I)=CHR(OK11 MOD 10+48) 
0330OK11=OK11 DIV 10 
0340ENDIF  
0350NEXT I 
0360ENDPROC  
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),DAD$(6) 
1010DIM RES$(15),OP1$(12),OP2$(12),TAH$(12) 
1020DIM TOTAL$(100,12),FIL1$(16),POST1$(71),POST2$(27) 
1030DIM RESUL$(12),RESUL1$(12),POST3$(55),POST4$(34),FIL$(16),AB(100) 
1050DIM MF5$(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  
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 
1670CLOSE FIL$ 
1675FIL1$="P641220:LØNMODRG" 
1680OPEN FIL1$,R 
1710MF5$="P641210:LØNBILAG" 
1720OPEN MF5$,R 
1750GET MF5$:DD 
1755EXEC CONVDATE(STARTPER$,DD) 
1760OUTPUT P 
1765LINIE=B 
1770FOR I=E TO 100 
1780TOTAL$(I)=TAH$ 
1785AB(I)=B 
1790NEXT I 
1810GET MF5$:LMNR,RESUL$ 
1820WHILE STATUS(MF5$)=B 
1825EXEC INLØNMOD(LMNR) 
1830LPI=RPI DIV 10000+E 
1832AB(LPI)=AB(LPI)+E 
1834EXEC CALC(B,RESUL$,TOTAL$(LPI),TOTAL$(LPI)) 
1836PRINT  
1838PRINT  
1840PRINT TAB(37);"L Ø N O V E R F Ø R S E L    Dato ";DAD$ 
1842PRINT  
1844PRINT TAB(5);"LØNKONTOFØRENDE PI"; 
1846PRINT USING "###":LPI-E; 
1848PRINT TAB(45);"AFTALENUMMER ";POST4$(19,22);"/";POST4$(23,24) 
1850PRINT TAB(5);"DISPOSITIONSDAG ";STARTPER$;TAB(45);"ARBEJDSGIVER "; 
1852PRINT POST4$(25,34) 
1854PRINT TAB(5);"LØNMODTAGER" 
1856PRINT TAB(5);POST1$(E,25);TAB(45);POST3$(8,32) 
1858PRINT TAB(5);POST1$(26,48);TAB(45);POST3$(33,55) 
1860PRINT TAB(5);POST1$(49,71);TAB(45);POST4$(E,4);" ";POST4$(5,18) 
1862PRINT TAB(5);POST2$(E,4);" ";POST2$(5,18) 
1864PRINT  
1866PRINT  
1868PRINT TAB(22);"REG NR  TK KONTO NR";TAB(65);"KRONER" 
1870PRINT  
1872FOR I=E TO 10 
1874IF RESUL$(I)=" " THEN RESUL$(I)="*" 
1876NEXT I 
1878PRINT TAB(8);"ANV/UDLIGNET";TAB(23); 
1880PRINT USING "#####  49 ":RPI MOD 10000; 
1882EXEC CONV(OP1$,K1,5) 
1884EXEC CONV(OP2$,K2,5) 
1886OP1$=OP1$+OP2$ 
1888PRINT OP1$;TAB(61);RESUL$(E,10) 
1890FOR I=E TO 7 
1892PRINT  
1894NEXT I 
2000LINIE=LINIE+24 
2075PRINT "============================================================"; 
2076PRINT "==================="; 
2080GET MF5$:LMNR,RESUL$ 
2090ENDWHILE  
2095IF STATUS(MF5$)<>19 THEN EXEC FEJL(LMNR,B,MF5$) 
2130FOR I=E TO 100 
2140IF AB(I)>B THEN  
2150PRINT  
2160PRINT  
2170PRINT TAB(5);"UDSKRIFTSDATO ";DAD$ 
2180PRINT  
2200PRINT TAB(5);"LØNKONTOFØRENDE PI"; 
2210PRINT USING "###":I-E; 
2220PRINT TAB(45);"AFTALENUMMER ";POST4$(19,22);"/";POST4$(23,24) 
2230PRINT TAB(5);"DISPOSITIONSDAG ";STARTPER$;TAB(45);"ARBEJDSGIVER "; 
2240PRINT POST4$(25,34) 
2250PRINT  
2260PRINT  
2270PRINT TAB(5);"**T O T A L B I L A G**" 
2280PRINT  
2290PRINT  
2300PRINT  
2310PRINT  
2320PRINT TAB(65);"KRONER" 
2330PRINT  
2340FOR J=E TO 11 
2350IF TOTAL$(I,J)=" " THEN TOTAL$(I,J)="*" 
2360NEXT J 
2370PRINT TAB(8);"ANTAL BILAG";TAB(24); 
2380PRINT USING "####":AB(I); 
2390PRINT TAB(60);TOTAL$(I,E,11) 
2400FOR J=E TO 7 
2410PRINT  
2420NEXT J 
2500PRINT "============================================================"; 
2510PRINT "==================="; 
2511LINIE=LINIE+24 
2512ENDIF  
2515NEXT I 
2519LINIE=LINIE MOD 72 
2520CLOSE  
2521WHILE LINIE<72 
2522PRINT  
2523LINIE=LINIE+E 
2524ENDWHILE  
2525OUTPUT T 
2530CHAIN "P641210:STARTB"

Full view