|
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: »ÅRSAFSLT.K«
└─⟦385f097a1⟧ Bits:30008988 SPC/1 COMAL programmer til bogføring
└─⟦this⟧ »ÅRSAFSLT.K«
0110DIM STARTPER$(8),SLUTPER$(8),LP$(E),ORK$(E) 0120DIM RES$(15),OP1$(12),OP2$(12),TAH$(12) 0160DIM MF1$(16) 0210DIM X(8),Y(8),TYPE(8) 0220DIM BL$(79),L$(79),LIN$(12) 0230FOR I=E TO 79 0240BL$=BL$+" " 0250NEXT I 0255TAH$=" 0+" 0260X(E)=27 0270X(G)=34;X(V)=36 0290X(4),X(5),X(6),X(7),X(8)=39 0310Y(E),Y(G)=G;Y(V)=V;Y(4)=4;Y(5)=5;Y(6)=7;Y(7)=8;Y(8)=W 0340TYPE(E),TYPE(G)=6 0350TYPE(4),TYPE(7),TYPE(8),TYPE(5),TYPE(6)=-E 0360TYPE(V)=-4 0370PROC C(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 0650PROC DATOCHECK(NR5,OK5) 0660OK5=E 0670ÅR=(ORD(NR5$(E))-48)*10+ORD(NR5$(G))-48 0680MÅNED=(ORD(NR5$(V))-48)*10+ORD(NR5$(4))-48 0690DATO=(ORD(NR5$(5))-48)*10+ORD(NR5$(6))-48 0700IF DATO<E OR MÅNED<E OR MÅNED>12 OR DATO>31 THEN OK5=B 0710IF OK5=B THEN EXIT 0720CASE MÅNED OF 0730WHEN 4,6,W,11 0740IF DATO>30 THEN OK5=B 0750WHEN G 0760IF DATO>29 THEN OK5=B 0770IF DATO=29 AND ÅR MOD 4<>B THEN OK5=B 0780ENDCASE 0790ENDPROC 1000PROC CHECK(NR1,OK1) 1010OK1=B 1020RESULT=B 1030IF LEN(NR1$)>B THEN 1040IF NR1$(E)="-" THEN 1050FORTEGN=-E 1060OK1=E 1070ELSE 1080FORTEGN=E 1090ENDIF 1100WHILE LEN(NR1$)>OK1 1110OK1=OK1+E 1120IF NR1$(OK1)<"0" OR NR1$(OK1)>"9" THEN 1130FORTEGN=B 1140OK1=LEN(NR1$) 1150ENDIF 1160RESULT=RESULT*10+ORD(NR1$(OK1))-48 1170ENDWHILE 1175RESULT=RESULT*FORTEGN 1180OK1=OK1*FORTEGN 1190IF OK1<B THEN OK1=OK1+E 1200ENDIF 1210ENDPROC 1220PROC INOPL(OPL) 1230EXEC INLINE(OPL) 1240CASE OPL OF 1250WHEN E 1260REPEAT 1270EXEC DATOCHECK(L$,I) 1280IF I=B THEN EXEC INLINE(OPL) 1290UNTIL I=E 1300EXEC CONVDATE(STARTPER$,RESULT) 1310WHEN G 1320REPEAT 1330EXEC DATOCHECK(L$,I) 1340IF I=B THEN EXEC INLINE(OPL) 1350UNTIL I=E 1360EXEC CONVDATE(SLUTPER$,RESULT) 1460WHEN V 1470REPEAT 1480L$=L$+"+" 1490EXEC C(6,L$,TAH$,LIN$) 1500IF FLAG<>B THEN EXEC INLINE(OPL) 1510UNTIL FLAG=B 1520EXEC C(0,L$,TAH$,LIN$) 1530EXEC PERVERT(LIN$,MFD) 1540WHEN 4 1550WHILE L$<"1" OR L$>"7" 1560EXEC INLINE(OPL) 1570ENDWHILE 1580LP$=L$ 1590WHEN 5 1600WHILE L$<>"A" AND L$<>"F" 1610EXEC INLINE(OPL) 1620ENDWHILE 1630ORK$=L$ 1640WHEN 7,8,6 1650WHILE L$<>"J" AND L$<>"N" 1660EXEC INLINE(OPL) 1670ENDWHILE 1680IF L$="J" THEN ORK$="0" 1870ENDCASE 1880ENDPROC 2020PROC INLINE(N) 2030REPEAT 2040CURSOR X(N),Y(N) 2050INPUT "",L$ 2060IF TYPE(N)<B THEN 2070IF LEN(L$)<=ABS(TYPE(N)) THEN 2080OK=E 2090FOR I=LEN(L$)+E TO ABS(TYPE(N)) 2100L$(I)=" " 2110NEXT I 2120ELSE 2130OK=B 2140ENDIF 2150ELSE 2160EXEC CHECK(L$,OK) 2170IF TYPE(N)>B AND TYPE(N)<>OK THEN OK=B 2180ENDIF 2190UNTIL OK<>B 2200ENDPROC 2210PROC SKRIVPICT 2220CLEAR 2230PRINT TAB(15);"Årsafslutning" 2240PRINT " Lønperioden" 2260PRINT " Maksimum feriedage i året" 2270PRINT " Lønperiodekode 1,2,3,4,5,6 eller 7" 2280PRINT " Arbejdere(A) eller funktionærer(F)" 2290PRINT " Mangler der:" 2300PRINT " Lønafregninger ja(J) eller nej(N)" 2310PRINT " Ferie- og SH-opg ja(J) eller nej(N)" 2320PRINT " Arbejderlønstat ja(J) eller nej(N)" 2330PRINT " Der udskrives:" 2340PRINT " Lønjournal" 2350PRINT " Ferieliste" 2360PRINT " Lønmodtagerkartotekets tælleværker" 2370PRINT " Årsoplysningssedler" 2380PRINT 2390PRINT " Fratrådte fjernes" 2400PRINT 2410PRINT " 0-stilling af:" 2412PRINT " Samtlige tælleværker" 2414PRINT " Skattekortoplysninger" 2420ENDPROC 2600PROC CONVDATE(NR1,OK1) 2610OK11=OK1;NR1$="" 2620FOR I=8 TO E STEP -E 2630IF I MOD V=B THEN 2640NR1$(I)="-" 2650ELSE 2660NR1$(I)=CHR(OK11 MOD 10+48) 2670OK11=OK11 DIV 10 2680ENDIF 2690NEXT I 2700ENDPROC 2890PROC PERVERT(NR1,OK1) 2900OK1=B 2910FOR I=E TO LEN(NR1$)-E 2920IF NR1$(I)<>" " AND NR1$(I)<>"," THEN OK1=10*OK1+ORD(NR1$(I))-48 2930NEXT I 2940IF NR1$(I)="-" THEN OK1=-OK1 2950OK1=OK1/100 2960ENDPROC 8291MF1$="P641210:LØNJOUR" 8292OPEN MF1$,W 8300EXEC SKRIVPICT 8310FOR J=E TO 8 8330EXEC INOPL(J) 8340NEXT J 8370L$=BL$ 8372PUT MF1$:STARTPER$,SLUTPER$,LP$,ORK$,MFD 8870CLOSE 8875IF ORK$<>"0" THEN 8880CHAIN "P641210:AFSLJOUR" 8890ELSE 8900CHAIN "P641210:STARTB" 8910ENDIF
0x0000…0032 Line {l1=0x30, l2=»0110DIM STARTPER$(8),SLUTPER$(8),LP$(E),ORK$(E) «, l3=0x30}
0x0032…0060 Line {l1=0x2c, l2=»0120DIM RES$(15),OP1$(12),OP2$(12),TAH$(12) «, l3=0x2c}
0x0060…0073 Line {l1=0x11, l2=»0160DIM MF1$(16) «, l3=0x11}
0x0073…008f Line {l1=0x1a, l2=»0210DIM X(8),Y(8),TYPE(8) «, l3=0x1a}
0x008f…00b1 Line {l1=0x20, l2=»0220DIM BL$(79),L$(79),LIN$(12) «, l3=0x20}
0x00b1…00c5 Line {l1=0x12, l2=»0230FOR I=E TO 79 «, l3=0x12}
0x00c5…00d7 Line {l1=0x10, l2=»0240BL$=BL$+" " «, l3=0x10}
0x00d7…00e4 Line {l1=0x0b, l2=»0250NEXT I «, l3=0x0b}
0x00e4…00fe Line {l1=0x18, l2=»0255TAH$=" 0+" «, l3=0x18}
0x00fe…010c Line {l1=0x0c, l2=»0260X(E)=27 «, l3=0x0c}
0x010c…0122 Line {l1=0x14, l2=»0270X(G)=34;X(V)=36 «, l3=0x14}
0x0122…0144 Line {l1=0x20, l2=»0290X(4),X(5),X(6),X(7),X(8)=39 «, l3=0x20}
0x0144…0180 Line {l1=0x3a, l2=»0310Y(E),Y(G)=G;Y(V)=V;Y(4)=4;Y(5)=5;Y(6)=7;Y(7)=8;Y(8)=W «, l3=0x3a}
0x0180…0198 Line {l1=0x16, l2=»0340TYPE(E),TYPE(G)=6 «, l3=0x16}
0x0198…01c9 Line {l1=0x2f, l2=»0350TYPE(4),TYPE(7),TYPE(8),TYPE(5),TYPE(6)=-E «, l3=0x2f}
0x01c9…01da Line {l1=0x0f, l2=»0360TYPE(V)=-4 «, l3=0x0f}
0x01da…01f5 Line {l1=0x19, l2=»0370PROC C(AR3,B1,B2,ES) «, l3=0x19}
0x01f5…0234 Line {l1=0x3d, l2=»0380RES$=ES$;OP1$=B1$;OP2$=B2$;SI=B;FLAG=B;ART=AR3-6*(AR3>5) «, l3=0x3d}
0x0234…024e Line {l1=0x18, l2=»0390CALL "P641210:REGN" «, l3=0x18}
0x024e…0263 Line {l1=0x13, l2=»0400IF AR3<6 THEN «, l3=0x13}
0x0263…027c Line {l1=0x17, l2=»0410IF FLAG THEN STOP «, l3=0x17}
0x027c…0289 Line {l1=0x0b, l2=»0420ENDIF «, l3=0x0b}
0x0289…0298 Line {l1=0x0d, l2=»0430ES$=RES$ «, l3=0x0d}
0x0298…02a7 Line {l1=0x0d, l2=»0440ENDPROC «, l3=0x0d}
0x02a7…02c5 Line {l1=0x1c, l2=»0650PROC DATOCHECK(NR5,OK5) «, l3=0x1c}
0x02c5…02d1 Line {l1=0x0a, l2=»0660OK5=E «, l3=0x0a}
0x02d1…02ff Line {l1=0x2c, l2=»0670ÅR=(ORD(NR5$(E))-48)*10+ORD(NR5$(G))-48 «, l3=0x2c}
0x02ff…0330 Line {l1=0x2f, l2=»0680MÅNED=(ORD(NR5$(V))-48)*10+ORD(NR5$(4))-48 «, l3=0x2f}
0x0330…0360 Line {l1=0x2e, l2=»0690DATO=(ORD(NR5$(5))-48)*10+ORD(NR5$(6))-48 «, l3=0x2e}
0x0360…039d Line {l1=0x3b, l2=»0700IF DATO<E OR MÅNED<E OR MÅNED>12 OR DATO>31 THEN OK5=B «, l3=0x3b}
0x039d…03b7 Line {l1=0x18, l2=»0710IF OK5=B THEN EXIT «, l3=0x18}
0x03b7…03cc Line {l1=0x13, l2=»0720CASE MÅNED OF «, l3=0x13}
0x03cc…03e0 Line {l1=0x12, l2=»0730WHEN 4,6,W,11 «, l3=0x12}
0x03e0…03fc Line {l1=0x1a, l2=»0740IF DATO>30 THEN OK5=B «, l3=0x1a}
0x03fc…0409 Line {l1=0x0b, l2=»0750WHEN G «, l3=0x0b}
0x0409…0425 Line {l1=0x1a, l2=»0760IF DATO>29 THEN OK5=B «, l3=0x1a}
0x0425…0451 Line {l1=0x2a, l2=»0770IF DATO=29 AND ÅR MOD 4<>B THEN OK5=B «, l3=0x2a}
0x0451…0460 Line {l1=0x0d, l2=»0780ENDCASE «, l3=0x0d}
0x0460…046f Line {l1=0x0d, l2=»0790ENDPROC «, l3=0x0d}
0x046f…0489 Line {l1=0x18, l2=»1000PROC CHECK(NR1,OK1) «, l3=0x18}
0x0489…0495 Line {l1=0x0a, l2=»1010OK1=B «, l3=0x0a}
0x0495…04a4 Line {l1=0x0d, l2=»1020RESULT=B «, l3=0x0d}
0x04a4…04bf Line {l1=0x19, l2=»1030IF LEN(NR1$)>B THEN «, l3=0x19}
0x04bf…04da Line {l1=0x19, l2=»1040IF NR1$(E)="-" THEN «, l3=0x19}
0x04da…04eb Line {l1=0x0f, l2=»1050FORTEGN=-E «, l3=0x0f}
0x04eb…04f7 Line {l1=0x0a, l2=»1060OK1=E «, l3=0x0a}
0x04f7…0503 Line {l1=0x0a, l2=»1070ELSE «, l3=0x0a}
0x0503…0513 Line {l1=0x0e, l2=»1080FORTEGN=E «, l3=0x0e}
0x0513…0520 Line {l1=0x0b, l2=»1090ENDIF «, l3=0x0b}
0x0520…053a Line {l1=0x18, l2=»1100WHILE LEN(NR1$)>OK1 «, l3=0x18}
0x053a…054a Line {l1=0x0e, l2=»1110OK1=OK1+E «, l3=0x0e}
0x054a…0578 Line {l1=0x2c, l2=»1120IF NR1$(OK1)<"0" OR NR1$(OK1)>"9" THEN «, l3=0x2c}
0x0578…0588 Line {l1=0x0e, l2=»1130FORTEGN=B «, l3=0x0e}
0x0588…059c Line {l1=0x12, l2=»1140OK1=LEN(NR1$) «, l3=0x12}
0x059c…05a9 Line {l1=0x0b, l2=»1150ENDIF «, l3=0x0b}
0x05a9…05d2 Line {l1=0x27, l2=»1160RESULT=RESULT*10+ORD(NR1$(OK1))-48 «, l3=0x27}
0x05d2…05e2 Line {l1=0x0e, l2=»1170ENDWHILE «, l3=0x0e}
0x05e2…05fe Line {l1=0x1a, l2=»1175RESULT=RESULT*FORTEGN «, l3=0x1a}
0x05fe…0614 Line {l1=0x14, l2=»1180OK1=OK1*FORTEGN «, l3=0x14}
0x0614…0632 Line {l1=0x1c, l2=»1190IF OK1<B THEN OK1=OK1+E «, l3=0x1c}
0x0632…063f Line {l1=0x0b, l2=»1200ENDIF «, l3=0x0b}
0x063f…064e Line {l1=0x0d, l2=»1210ENDPROC «, l3=0x0d}
0x064e…0664 Line {l1=0x14, l2=»1220PROC INOPL(OPL) «, l3=0x14}
0x0664…067b Line {l1=0x15, l2=»1230EXEC INLINE(OPL) «, l3=0x15}
0x067b…068e Line {l1=0x11, l2=»1240CASE OPL OF «, l3=0x11}
0x068e…069b Line {l1=0x0b, l2=»1250WHEN E «, l3=0x0b}
0x069b…06a9 Line {l1=0x0c, l2=»1260REPEAT «, l3=0x0c}
0x06a9…06c4 Line {l1=0x19, l2=»1270EXEC DATOCHECK(L$,I) «, l3=0x19}
0x06c4…06e7 Line {l1=0x21, l2=»1280IF I=B THEN EXEC INLINE(OPL) «, l3=0x21}
0x06e7…06f7 Line {l1=0x0e, l2=»1290UNTIL I=E «, l3=0x0e}
0x06f7…071d Line {l1=0x24, l2=»1300EXEC CONVDATE(STARTPER$,RESULT) «, l3=0x24}
0x071d…072a Line {l1=0x0b, l2=»1310WHEN G «, l3=0x0b}
0x072a…0738 Line {l1=0x0c, l2=»1320REPEAT «, l3=0x0c}
0x0738…0753 Line {l1=0x19, l2=»1330EXEC DATOCHECK(L$,I) «, l3=0x19}
0x0753…0776 Line {l1=0x21, l2=»1340IF I=B THEN EXEC INLINE(OPL) «, l3=0x21}
0x0776…0786 Line {l1=0x0e, l2=»1350UNTIL I=E «, l3=0x0e}
0x0786…07ab Line {l1=0x23, l2=»1360EXEC CONVDATE(SLUTPER$,RESULT) «, l3=0x23}
0x07ab…07b8 Line {l1=0x0b, l2=»1460WHEN V «, l3=0x0b}
0x07b8…07c6 Line {l1=0x0c, l2=»1470REPEAT «, l3=0x0c}
0x07c6…07d6 Line {l1=0x0e, l2=»1480L$=L$+"+" «, l3=0x0e}
0x07d6…07f3 Line {l1=0x1b, l2=»1490EXEC C(6,L$,TAH$,LIN$) «, l3=0x1b}
0x07f3…081a Line {l1=0x25, l2=»1500IF FLAG<>B THEN EXEC INLINE(OPL) «, l3=0x25}
0x081a…082d Line {l1=0x11, l2=»1510UNTIL FLAG=B «, l3=0x11}
0x082d…084a Line {l1=0x1b, l2=»1520EXEC C(0,L$,TAH$,LIN$) «, l3=0x1b}
0x084a…0867 Line {l1=0x1b, l2=»1530EXEC PERVERT(LIN$,MFD) «, l3=0x1b}
0x0867…0874 Line {l1=0x0b, l2=»1540WHEN 4 «, l3=0x0b}
0x0874…0891 Line {l1=0x1b, l2=»1550WHILE L$<"1" OR L$>"7" «, l3=0x1b}
0x0891…08a8 Line {l1=0x15, l2=»1560EXEC INLINE(OPL) «, l3=0x15}
0x08a8…08b8 Line {l1=0x0e, l2=»1570ENDWHILE «, l3=0x0e}
0x08b8…08c5 Line {l1=0x0b, l2=»1580LP$=L$ «, l3=0x0b}
0x08c5…08d2 Line {l1=0x0b, l2=»1590WHEN 5 «, l3=0x0b}
0x08d2…08f2 Line {l1=0x1e, l2=»1600WHILE L$<>"A" AND L$<>"F" «, l3=0x1e}
0x08f2…0909 Line {l1=0x15, l2=»1610EXEC INLINE(OPL) «, l3=0x15}
0x0909…0919 Line {l1=0x0e, l2=»1620ENDWHILE «, l3=0x0e}
0x0919…0927 Line {l1=0x0c, l2=»1630ORK$=L$ «, l3=0x0c}
0x0927…0938 Line {l1=0x0f, l2=»1640WHEN 7,8,6 «, l3=0x0f}
0x0938…0958 Line {l1=0x1e, l2=»1650WHILE L$<>"J" AND L$<>"N" «, l3=0x1e}
0x0958…096f Line {l1=0x15, l2=»1660EXEC INLINE(OPL) «, l3=0x15}
0x096f…097f Line {l1=0x0e, l2=»1670ENDWHILE «, l3=0x0e}
0x097f…099d Line {l1=0x1c, l2=»1680IF L$="J" THEN ORK$="0" «, l3=0x1c}
0x099d…09ac Line {l1=0x0d, l2=»1870ENDCASE «, l3=0x0d}
0x09ac…09bb Line {l1=0x0d, l2=»1880ENDPROC «, l3=0x0d}
0x09bb…09d0 Line {l1=0x13, l2=»2020PROC INLINE(N) «, l3=0x13}
0x09d0…09de Line {l1=0x0c, l2=»2030REPEAT «, l3=0x0c}
0x09de…09f5 Line {l1=0x15, l2=»2040CURSOR X(N),Y(N) «, l3=0x15}
0x09f5…0a07 Line {l1=0x10, l2=»2050INPUT "",L$ «, l3=0x10}
0x0a07…0a20 Line {l1=0x17, l2=»2060IF TYPE(N)<B THEN «, l3=0x17}
0x0a20…0a45 Line {l1=0x23, l2=»2070IF LEN(L$)<=ABS(TYPE(N)) THEN «, l3=0x23}
0x0a45…0a50 Line {l1=0x09, l2=»2080OK=E «, l3=0x09}
0x0a50…0a76 Line {l1=0x24, l2=»2090FOR I=LEN(L$)+E TO ABS(TYPE(N)) «, l3=0x24}
0x0a76…0a86 Line {l1=0x0e, l2=»2100L$(I)=" " «, l3=0x0e}
0x0a86…0a93 Line {l1=0x0b, l2=»2110NEXT I «, l3=0x0b}
0x0a93…0a9f Line {l1=0x0a, l2=»2120ELSE «, l3=0x0a}
0x0a9f…0aaa Line {l1=0x09, l2=»2130OK=B «, l3=0x09}
0x0aaa…0ab7 Line {l1=0x0b, l2=»2140ENDIF «, l3=0x0b}
0x0ab7…0ac3 Line {l1=0x0a, l2=»2150ELSE «, l3=0x0a}
0x0ac3…0adb Line {l1=0x16, l2=»2160EXEC CHECK(L$,OK) «, l3=0x16}
0x0adb…0b08 Line {l1=0x2b, l2=»2170IF TYPE(N)>B AND TYPE(N)<>OK THEN OK=B «, l3=0x2b}
0x0b08…0b15 Line {l1=0x0b, l2=»2180ENDIF «, l3=0x0b}
0x0b15…0b27 Line {l1=0x10, l2=»2190UNTIL OK<>B «, l3=0x10}
0x0b27…0b36 Line {l1=0x0d, l2=»2200ENDPROC «, l3=0x0d}
0x0b36…0b4b Line {l1=0x13, l2=»2210PROC SKRIVPICT «, l3=0x13}
0x0b4b…0b58 Line {l1=0x0b, l2=»2220CLEAR «, l3=0x0b}
0x0b58…0b7c Line {l1=0x22, l2=»2230PRINT TAB(15);"Årsafslutning" «, l3=0x22}
0x0b7c…0b97 Line {l1=0x19, l2=»2240PRINT " Lønperioden" «, l3=0x19}
0x0b97…0bc0 Line {l1=0x27, l2=»2260PRINT " Maksimum feriedage i året" «, l3=0x27}
0x0bc0…0bf2 Line {l1=0x30, l2=»2270PRINT " Lønperiodekode 1,2,3,4,5,6 eller 7" «, l3=0x30}
0x0bf2…0c24 Line {l1=0x30, l2=»2280PRINT " Arbejdere(A) eller funktionærer(F)" «, l3=0x30}
0x0c24…0c40 Line {l1=0x1a, l2=»2290PRINT " Mangler der:" «, l3=0x1a}
0x0c40…0c75 Line {l1=0x33, l2=»2300PRINT " Lønafregninger ja(J) eller nej(N)" «, l3=0x33}
0x0c75…0caa Line {l1=0x33, l2=»2310PRINT " Ferie- og SH-opg ja(J) eller nej(N)" «, l3=0x33}
0x0caa…0cdf Line {l1=0x33, l2=»2320PRINT " Arbejderlønstat ja(J) eller nej(N)" «, l3=0x33}
0x0cdf…0cfd Line {l1=0x1c, l2=»2330PRINT " Der udskrives:" «, l3=0x1c}
0x0cfd…0d17 Line {l1=0x18, l2=»2340PRINT " Lønjournal" «, l3=0x18}
0x0d17…0d31 Line {l1=0x18, l2=»2350PRINT " Ferieliste" «, l3=0x18}
0x0d31…0d63 Line {l1=0x30, l2=»2360PRINT " Lønmodtagerkartotekets tælleværker" «, l3=0x30}
0x0d63…0d86 Line {l1=0x21, l2=»2370PRINT " Årsoplysningssedler" «, l3=0x21}
0x0d86…0d93 Line {l1=0x0b, l2=»2380PRINT «, l3=0x0b}
0x0d93…0db4 Line {l1=0x1f, l2=»2390PRINT " Fratrådte fjernes" «, l3=0x1f}
0x0db4…0dc1 Line {l1=0x0b, l2=»2400PRINT «, l3=0x0b}
0x0dc1…0ddf Line {l1=0x1c, l2=»2410PRINT " 0-stilling af:" «, l3=0x1c}
0x0ddf…0e03 Line {l1=0x22, l2=»2412PRINT " Samtlige tælleværker" «, l3=0x22}
0x0e03…0e28 Line {l1=0x23, l2=»2414PRINT " Skattekortoplysninger" «, l3=0x23}
0x0e28…0e37 Line {l1=0x0d, l2=»2420ENDPROC «, l3=0x0d}
0x0e37…0e54 Line {l1=0x1b, l2=»2600PROC CONVDATE(NR1,OK1) «, l3=0x1b}
0x0e54…0e6b Line {l1=0x15, l2=»2610OK11=OK1;NR1$="" «, l3=0x15}
0x0e6b…0e86 Line {l1=0x19, l2=»2620FOR I=8 TO E STEP -E «, l3=0x19}
0x0e86…0e9f Line {l1=0x17, l2=»2630IF I MOD V=B THEN «, l3=0x17}
0x0e9f…0eb1 Line {l1=0x10, l2=»2640NR1$(I)="-" «, l3=0x10}
0x0eb1…0ebd Line {l1=0x0a, l2=»2650ELSE «, l3=0x0a}
0x0ebd…0edf Line {l1=0x20, l2=»2660NR1$(I)=CHR(OK11 MOD 10+48) «, l3=0x20}
0x0edf…0ef6 Line {l1=0x15, l2=»2670OK11=OK11 DIV 10 «, l3=0x15}
0x0ef6…0f03 Line {l1=0x0b, l2=»2680ENDIF «, l3=0x0b}
0x0f03…0f10 Line {l1=0x0b, l2=»2690NEXT I «, l3=0x0b}
0x0f10…0f1f Line {l1=0x0d, l2=»2700ENDPROC «, l3=0x0d}
0x0f1f…0f3b Line {l1=0x1a, l2=»2890PROC PERVERT(NR1,OK1) «, l3=0x1a}
0x0f3b…0f47 Line {l1=0x0a, l2=»2900OK1=B «, l3=0x0a}
0x0f47…0f64 Line {l1=0x1b, l2=»2910FOR I=E TO LEN(NR1$)-E «, l3=0x1b}
0x0f64…0fab Line {l1=0x45, l2=»2920IF NR1$(I)<>" " AND NR1$(I)<>"," THEN OK1=10*OK1+ORD(NR1$(I))-48 «, l3=0x45}
0x0fab…0fb8 Line {l1=0x0b, l2=»2930NEXT I «, l3=0x0b}
0x0fb8…0fdb Line {l1=0x21, l2=»2940IF NR1$(I)="-" THEN OK1=-OK1 «, l3=0x21}
0x0fdb…0fed Line {l1=0x10, l2=»2950OK1=OK1/100 «, l3=0x10}
0x0fed…0ffc Line {l1=0x0d, l2=»2960ENDPROC «, l3=0x0d}
0x0ffc…1019 Line {l1=0x1b, l2=»8291MF1$="P641210:LØNJOUR" «, l3=0x1b}
0x1019…102b Line {l1=0x10, l2=»8292OPEN MF1$,W «, l3=0x10}
0x102b…1040 Line {l1=0x13, l2=»8300EXEC SKRIVPICT «, l3=0x13}
0x1040…1053 Line {l1=0x11, l2=»8310FOR J=E TO 8 «, l3=0x11}
0x1053…1067 Line {l1=0x12, l2=»8330EXEC INOPL(J) «, l3=0x12}
0x1067…1074 Line {l1=0x0b, l2=»8340NEXT J «, l3=0x0b}
0x1074…1081 Line {l1=0x0b, l2=»8370L$=BL$ «, l3=0x0b}
0x1081…10b0 Line {l1=0x2d, l2=»8372PUT MF1$:STARTPER$,SLUTPER$,LP$,ORK$,MFD «, l3=0x2d}
0x10b0…10bd Line {l1=0x0b, l2=»8870CLOSE «, l3=0x0b}
0x10bd…10d6 Line {l1=0x17, l2=»8875IF ORK$<>"0" THEN «, l3=0x17}
0x10d6…10f5 Line {l1=0x1d, l2=»8880CHAIN "P641210:AFSLJOUR" «, l3=0x1d}
0x10f5…1101 Line {l1=0x0a, l2=»8890ELSE «, l3=0x0a}
0x1101…111e Line {l1=0x1b, l2=»8900CHAIN "P641210:STARTB" «, l3=0x1b}
0x111e…112b Line {l1=0x0b, l2=»8910ENDIF «, l3=0x0b}
0x112b…1140 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x1140…1160 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 ┆ ┆
[…0x13…]