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

⟦b9e85673b⟧ SPC/1-COMAL-BIN

    Length: 3720 (0xe88)
    Types: SPC/1-COMAL-BIN
    Notes: Mikados_B
    Names: »LBILAG.B«

Derivation

└─⟦385f097a1⟧ Bits:30008988 SPC/1 COMAL programmer til bogføring
    └─⟦this⟧ »LBILAG.B« 
└─⟦ff7f7aeee⟧ Bits:30009007 NBT	15/3-84
    └─⟦this⟧ »LBILAG.B«

SPC/1 COMAL-BIN

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

Full view