|
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: 10112 (0x2780)
Types: TextFile
Notes: Mikados_K
Names: »TV1.K«
└─⟦385f097a1⟧ Bits:30008988 SPC/1 COMAL programmer til bogføring
└─⟦this⟧ »TV1.K«
0100DIM RES$(15),OP1$(12),OP2$(12),TAH$(12),BLB3$(15),DAD$(6) 0110DIM RESUL$(12),RESUL1$(12),TVN(45),TV$(45,11),POST5$(55),PR$(14) 0120DIM FIL$(20),FIL2$(20),POST1$(71),POST2$(27),POST3$(55),POST4$(34) 0130TAH$="0+" 0140PROC TUD(BLB4,UBLB2,TEGN2,STØR2) 0150BLB3$=BLB4$ 0160EXEC CALC(5,BLB3$,TAH$,UBLB2$) 0170IF TEGN2=B THEN UBLB2$=UBLB2$(E:13) 0180IF TEGN2=E AND UBLB2$(LEN(UBLB2$))="+" THEN UBLB2$(LEN(UBLB2$))=" " 0190IF STØR2=E THEN UBLB2$=UBLB2$(4:LEN(UBLB2$)-V) 0200ENDPROC 0210PROC CALC(AR3,B1,B2,ES) 0220RES$=ES$;OP1$=B1$;OP2$=B2$;SI=B;FLAG=B;ART=AR3-6*(AR3>5) 0230CALL "P641210:REGN" 0240IF AR3<6 THEN 0250IF FLAG THEN STOP 0260ENDIF 0270ES$=RES$ 0280ENDPROC 0290FIL$="P641220:VIRKKART" 0300EXEC INDVIRK 0310CLOSE FIL$ 0320FIL$="P641220:LØNMODRG" 0330FIL2$="P641220:TÆLLEREG" 0340OPEN FIL$,R 0350EXEC FEJL(B,B,FIL$) 0360OPEN FIL2$,W 0370EXEC FEJL(B,B,FIL2$) 0380PROC UDTÆL(N) 0390J=W*(N-E) 0400FOR K=E TO V 0410FOR I=E TO 5 0420POST5$((I-E)*11+E:11)=TV$((K-E)*5+I) 0430NEXT I 0440PUT FIL2$,J+K:POST5$ 0450NEXT K 0460EXEC FEJL(-N,-K,FIL2$) 0470ENDPROC 0480TVN(E)=E 0490TVN(G)=G 0500TVN(V)=V 0510TVN(4)=4 0520TVN(5)=5 0530TVN(6)=7 0540TVN(7)=8 0550TVN(8)=W 0560TVN(W)=10 0570TVN(10)=11 0580TVN(11)=12 0590TVN(12)=13 0600TVN(13)=14 0610TVN(14)=15 0620TVN(15)=16 0630TVN(16)=112 0640TVN(17)=113 0650TVN(18)=313 0660TVN(19)=413 0670TVN(20)=115 0680TVN(21)=315 0690TVN(22)=415 0700TVN(23)=116 0710TVN(24)=316 0720TVN(25)=416 0730TVN(26)=117 0740TVN(27)=317 0750TVN(28)=417 0760TVN(29)=123 0770TVN(30)=206 0780TVN(31)=212 0790TVN(32)=214 0800TVN(33)=218 0810TVN(34)=219 0820TVN(35)=319 0830TVN(36)=419 0840TVN(37)=220 0850TVN(38)=320 0860TVN(39)=420 0870TVN(40)=221 0880TVN(41)=321 0890TVN(42)=421 0900TVN(43)=222 0910TVN(44)=223 0920TVN(45)=224 0930PROC CONV(NR2,OK22,CIF) 0940OK2=OK22 0950NR2$="" 0960REPEAT 0970NR2$=CHR((OK2 MOD 10)+48)+NR2$ 0980CIF=CIF-E 0990OK2=OK2 DIV 10 1000IF CIF<B AND OK2=B THEN CIF=B 1010UNTIL CIF=B 1020ENDPROC 1030PROC CHECK(NR1,OK1) 1040OK1=B 1050RESULT=B 1060IF LEN(NR1$)>B THEN 1070IF NR1$(E)="-" THEN 1080FORTEGN=-E 1090OK1=E 1100ELSE 1110FORTEGN=E 1120ENDIF 1130WHILE LEN(NR1$)>OK1 1140OK1=OK1+E 1150IF NR1$(OK1)<"0" OR NR1$(OK1)>"9" THEN 1160FORTEGN=B 1170OK1=LEN(NR1$) 1180ENDIF 1190RESULT=RESULT*10+ORD(NR1$(OK1))-48 1200ENDWHILE 1210OK1=OK1*FORTEGN 1220IF OK1<B THEN OK1=OK1+E 1230ENDIF 1240ENDPROC 1250PROC INOPL(OPL) 1260EXEC INLINE(OPL) 1270CASE OPL OF 1280WHEN E 1290LMNR=RESULT 1300WHEN V,4,5,6,7,W,10,11,12,13,15,16,17,18 1310REPEAT 1320LINE$=LINE$+"+" 1330EXEC CALC(6,LINE$,TAH$,RESUL$) 1340IF FLAG<>B THEN EXEC INLINE(OPL) 1350UNTIL FLAG=B 1360IF OPL<8 THEN 1370T=OPL-G 1380ELSE 1390T=OPL-V 1400ENDIF 1403IF T=E OR T=V OR T=5 OR (T>6 AND T<11) THEN 1405LINE$=TV$(11) 1407PR$=TV$(T) 1408ENDIF 1410TV$(T)=RESUL$(G:11) 1412IF T=E OR T=V OR T=5 OR (T>6 AND T<11) THEN 1415EXEC CALC(E,RESUL$,PR$,RESUL1$) 1417EXEC CALC(B,LINE$,RESUL1$,RESUL$) 1419TV$(11)=RESUL$(G:11) 1420ENDIF 1430ENDCASE 1440ENDPROC 1441PROC SKRIVOPL 1442RESUL$=TV$(E);RESUL1$=TV$(V) 1443EXEC CALC(B,RESUL$,RESUL1$,RESUL1$) 1444RESUL$=TV$(5) 1445EXEC CALC(B,RESUL$,RESUL1$,RESUL1$) 1446RESUL$=TV$(7) 1447EXEC CALC(B,RESUL$,RESUL1$,RESUL1$) 1448RESUL$=TV$(8) 1449EXEC CALC(B,RESUL$,RESUL1$,RESUL1$) 1450RESUL$=TV$(W) 1451EXEC CALC(B,RESUL$,RESUL1$,RESUL1$) 1452RESUL$=TV$(10) 1453EXEC CALC(B,RESUL$,RESUL1$,RESUL1$) 1454RESUL$=TV$(11) 1455EXEC CALC(4,RESUL$,RESUL1$,RESUL1$) 1456IF SI<>B THEN TV$(11)=RESUL1$(G:11) 1457IF SI<>B THEN INPUT "TV12 KORRIGERET ,RETURN ",RESUL$ 1460IF OUTP=B THEN CLEAR 1470PRINT "L Ø N M O D T A G E R K A R T O T E K - T Æ L L E V Æ R K E R" 1480PRINT "A R B E J D E R L Ø N S T A T I S T I K";TAB(60);"Dato ";DAD$ 1490FOR J=E TO A 1500CASE J OF 1510WHEN E 1520EXEC CONV(LINE$,LMNR,0) 1530WHEN G 1540LINE$=POST1$(E,25) 1550WHEN V,4,5,6,7,W,10,11,12,13,14,15,16,17,18 1560IF J<8 THEN 1570T=J-G 1580ELSE 1590T=J-V 1600ENDIF 1610RESUL$=TV$(T) 1620EXEC TUD(RESUL$,PR$,E,B) 1630LINE$=PR$ 1640WHEN 8 1650RESUL$=TV$(G) 1660LINE$=TV$(4) 1670EXEC CALC(B,LINE$,RESUL$,RESUL1$) 1680EXEC TUD(RESUL1$,PR$,E,B) 1690LINE$=PR$ 1700ENDCASE 1710IF OUTP=B THEN 1720EXEC OUTLINE(J) 1730ELSE 1740EXEC OUTPLINE(J) 1750ENDIF 1760NEXT J 1770ENDPROC 1780PROC OUTLINE(N) 1790CURSOR X(N),Y(N) 1800PRINT USING "### ":N; 1810IF N=G THEN 1820PRINT PICT$(N);":";LINE$ 1830PRINT TAB(6);"TV TEKST";TAB(40);"INDHOLD" 1840ELSE 1850IF N>G THEN 1860IF N<8 THEN 1870T=N-G 1880ELSE 1890T=N-V 1900ENDIF 1901IF N=8 THEN 1902RESUL$="006" 1903ELSE 1910EXEC CONV(RESUL$,TVN(T),3) 1915ENDIF 1920PRINT RESUL$;" "; 1930ENDIF 1940PRINT PICT$(N);":";TAB(32);LINE$ 1950ENDIF 1960ENDPROC 1970PROC FEJL(P1,P2,P3) 1980IF STATUS(P3$)<>B THEN 1990OUTPUT T 2000PRINT "FIL-FEJL ";P3$;STATUS(P3$),P1;P2 2010STOP 2020ENDIF 2030ENDPROC 2040PROC INLINE(N) 2050REPEAT 2060CURSOR 32,Y(N) 2070PRINT BL$(E:ABS(TYPE(N))+6) 2080CURSOR X(N),Y(N) 2090PRINT USING "### ":N; 2100IF N>G THEN 2110IF N<8 THEN 2120T=N-G 2130ELSE 2140T=N-V 2150ENDIF 2151IF N=8 THEN 2152RESUL$="006" 2153ELSE 2160EXEC CONV(RESUL$,TVN(T),3) 2165ENDIF 2170PRINT RESUL$;" "; 2180ENDIF 2190PRINT PICT$(N);":"; 2200CURSOR 32,Y(N) 2210INPUT "",LINE$ 2220IF TYPE(N)<B THEN 2230IF LEN(LINE$)<=ABS(TYPE(N)) THEN 2240OK=E 2250ELSE 2260OK=B 2270ENDIF 2280ELSE 2290EXEC CHECK(LINE$,OK) 2300IF TYPE(N)>B AND TYPE(N)<>OK THEN OK=B 2310ENDIF 2320UNTIL OK<>B 2330ENDPROC 2340PROC OUTPLINE(N) 2350PRINT TAB(X(N)); 2360PRINT USING "### ":N; 2370IF N=G THEN 2380PRINT PICT$(N);":";LINE$ 2390PRINT TAB(6);"TV TEKST";TAB(40);"INDHOLD" 2400ELSE 2410IF N>G THEN 2420IF N<8 THEN 2430T=N-G 2440ELSE 2450T=N-V 2460ENDIF 2461IF N=8 THEN 2462RESUL$="006" 2463ELSE 2470EXEC CONV(RESUL$,TVN(T),3) 2475ENDIF 2480PRINT RESUL$;" "; 2490ENDIF 2500PRINT PICT$(N);":";TAB(32);LINE$; 2505IF N>G THEN PRINT 2510ENDIF 2520ENDPROC 2530A=18 2540DIM X(A),Y(A),PICT$(A,20),TYPE(A) 2550DIM BL$(79),LINE$(30) 2560FOR I=E TO 79 2570BL$=BL$+" " 2580NEXT I 2590X(E)=E 2600X(G)=36 2610FOR I=V TO 18 2620X(I)=E 2630Y(I)=I+G 2640TYPE(I)=-11 2650NEXT I 2660Y(E)=V 2670Y(G)=V 2680TYPE(E)=B 2690TYPE(G)=B 2700PICT$(E)="Lønnr" 2710PICT$(G)="Navn" 2720PICT$(V)="Tillæg til fordeling" 2730PICT$(4)="Akkordtimer" 2740PICT$(5)="Akkordbeløb" 2750PICT$(6)="Tidlønstimer" 2760PICT$(7)="Tidlønsbeløb" 2770PICT$(8)="Timer i alt" 2780PICT$(W)="Heraf overtimer" 2790PICT$(10)="Overtidstillæg" 2800PICT$(11)="Holddriftstillæg" 2810PICT$(12)="Genetillæg" 2820PICT$(13)="Div U F arbejdst" 2830PICT$(14)="Ferieberett løn" 2840PICT$(15)="Sygeferiepenge" 2850PICT$(16)="Sygedagpenge" 2860PICT$(17)="Beregnede feriep" 2870PICT$(18)="SH-opsparing" 2880OUTP=B 2890PROC INDTÆL(N) 2900J=W*(N-E) 2910FOR K=E TO V 2920GET FIL2$,J+K:POST5$ 2930FOR I=E TO 5 2940TV$((K-E)*5+I)=POST5$((I-E)*11+E:11) 2950NEXT I 2960NEXT K 2970EXEC FEJL(N,K,FIL2$) 2980ENDPROC 2990PROC INLØNMOD(N) 3000GET FIL$,G*N-E:POST1$ 3010GET FIL$,G*N:POST2$,C1,C2,LT,LF,LR,LA,RPI,K1,K2,FG,FD 3020EXEC FEJL(E,N,FIL$) 3030ENDPROC 3040PROC INDVIRK 3050OPEN FIL$,W 3060EXEC FEJL(B,B,FIL$) 3070GET FIL$,E:POST3$ 3080GET FIL$,G:POST4$,SLJNR,MLMNR,ATPLM 3085GET FIL$,V:DAD$ 3090ENDPROC 3100REPEAT 3110SV=G 3120CLEAR 3130CURSOR 10,10 3140PRINT "L Ø N M O D T A G E R K A R T O T E K - T Æ L L E V Æ R K E R" 3150PRINT " A R B E J D E R L Ø N S T A T I S T I K" 3160PRINT 3170PRINT TAB(10);"0 Færdig" 3180PRINT TAB(10);"1 Ændring" 3190PRINT TAB(10);"2 Udskrift på skærm" 3200PRINT TAB(10);"3 Udskrift på printer" 3210PRINT 3220REPEAT 3230CURSOR E,18 3240EDIT " ",SV 3250UNTIL SV=>B AND SV<=V 3260IF SV>B THEN 3270REPEAT 3280EXEC INOPL(1) 3290UNTIL LMNR=>B AND LMNR<=MLMNR 3291LISTE=B 3292IF LMNR=B THEN LISTE=E 3295REPEAT 3296IF LISTE=E THEN LMNR=LMNR+E 3300EXEC INLØNMOD(LMNR) 3310CASE SV OF 3320WHEN E 3330IF LA<>B THEN 3340EXEC INDTÆL(LMNR) 3350EXEC SKRIVOPL 3360REPEAT 3370REPEAT 3380SV1=B 3390CURSOR E,23 3400EDIT "Feltnr ",SV1 3410UNTIL SV1=B OR (SV1>G AND SV1<19 AND SV1<>8 AND SV1<>14) 3420IF SV1>B THEN 3430EXEC INOPL(SV1) 3440ENDIF 3450UNTIL SV1=B 3460EXEC UDTÆL(LMNR) 3470ELSE 3480PRINT "Lønmodtager findes ikke" 3490INPUT "RETURN",LINE$ 3500ENDIF 3510WHEN G 3520IF LA<>B THEN 3530OUTP=B 3540EXEC INDTÆL(LMNR) 3550EXEC SKRIVOPL 3560INPUT "RETURN",LINE$ 3570ELSE 3580PRINT "Lønmodtager findes ikke" 3590INPUT "RETURN",LINE$ 3600ENDIF 3610WHEN V 3620IF LA<>B OR LISTE=E THEN 3625IF LA<>B THEN 3630OUTPUT P 3640OUTP=E 3650EXEC INDTÆL(LMNR) 3660EXEC SKRIVOPL 3662FOR I=21 TO 72 3663PRINT 3664NEXT I 3670OUTP=B 3680OUTPUT T 3685ENDIF 3690ELSE 3700PRINT "Lønmodtager findes ikke" 3710INPUT "RETURN",LINE$ 3720ENDIF 3730ENDCASE 3735UNTIL LISTE=B OR LMNR=>MLMNR 3740ENDIF 3750UNTIL SV=B 3760CLOSE FIL$ 3770CLOSE FIL2$ 3775CHAIN "P641210:STARTB" 3780STOP
0x0000…0040 Line {l1=0x3e, l2=»0100DIM RES$(15),OP1$(12),OP2$(12),TAH$(12),BLB3$(15),DAD$(6) «, l3=0x3e}
0x0040…0087 Line {l1=0x45, l2=»0110DIM RESUL$(12),RESUL1$(12),TVN(45),TV$(45,11),POST5$(55),PR$(14) «, l3=0x45}
0x0087…00d0 Line {l1=0x47, l2=»0120DIM FIL$(20),FIL2$(20),POST1$(71),POST2$(27),POST3$(55),POST4$(34) «, l3=0x47}
0x00d0…00e0 Line {l1=0x0e, l2=»0130TAH$="0+" «, l3=0x0e}
0x00e0…0107 Line {l1=0x25, l2=»0140PROC TUD(BLB4,UBLB2,TEGN2,STØR2) «, l3=0x25}
0x0107…0119 Line {l1=0x10, l2=»0150BLB3$=BLB4$ «, l3=0x10}
0x0119…013e Line {l1=0x23, l2=»0160EXEC CALC(5,BLB3$,TAH$,UBLB2$) «, l3=0x23}
0x013e…0168 Line {l1=0x28, l2=»0170IF TEGN2=B THEN UBLB2$=UBLB2$(E:13) «, l3=0x28}
0x0168…01b2 Line {l1=0x48, l2=»0180IF TEGN2=E AND UBLB2$(LEN(UBLB2$))="+" THEN UBLB2$(LEN(UBLB2$))=" " «, l3=0x48}
0x01b2…01e7 Line {l1=0x33, l2=»0190IF STØR2=E THEN UBLB2$=UBLB2$(4:LEN(UBLB2$)-V) «, l3=0x33}
0x01e7…01f6 Line {l1=0x0d, l2=»0200ENDPROC «, l3=0x0d}
0x01f6…0214 Line {l1=0x1c, l2=»0210PROC CALC(AR3,B1,B2,ES) «, l3=0x1c}
0x0214…0253 Line {l1=0x3d, l2=»0220RES$=ES$;OP1$=B1$;OP2$=B2$;SI=B;FLAG=B;ART=AR3-6*(AR3>5) «, l3=0x3d}
0x0253…026d Line {l1=0x18, l2=»0230CALL "P641210:REGN" «, l3=0x18}
0x026d…0282 Line {l1=0x13, l2=»0240IF AR3<6 THEN «, l3=0x13}
0x0282…029b Line {l1=0x17, l2=»0250IF FLAG THEN STOP «, l3=0x17}
0x029b…02a8 Line {l1=0x0b, l2=»0260ENDIF «, l3=0x0b}
0x02a8…02b7 Line {l1=0x0d, l2=»0270ES$=RES$ «, l3=0x0d}
0x02b7…02c6 Line {l1=0x0d, l2=»0280ENDPROC «, l3=0x0d}
0x02c6…02e4 Line {l1=0x1c, l2=»0290FIL$="P641220:VIRKKART" «, l3=0x1c}
0x02e4…02f7 Line {l1=0x11, l2=»0300EXEC INDVIRK «, l3=0x11}
0x02f7…0308 Line {l1=0x0f, l2=»0310CLOSE FIL$ «, l3=0x0f}
0x0308…0326 Line {l1=0x1c, l2=»0320FIL$="P641220:LØNMODRG" «, l3=0x1c}
0x0326…0345 Line {l1=0x1d, l2=»0330FIL2$="P641220:TÆLLEREG" «, l3=0x1d}
0x0345…0357 Line {l1=0x10, l2=»0340OPEN FIL$,R «, l3=0x10}
0x0357…0371 Line {l1=0x18, l2=»0350EXEC FEJL(B,B,FIL$) «, l3=0x18}
0x0371…0384 Line {l1=0x11, l2=»0360OPEN FIL2$,W «, l3=0x11}
0x0384…039f Line {l1=0x19, l2=»0370EXEC FEJL(B,B,FIL2$) «, l3=0x19}
0x039f…03b3 Line {l1=0x12, l2=»0380PROC UDTÆL(N) «, l3=0x12}
0x03b3…03c3 Line {l1=0x0e, l2=»0390J=W*(N-E) «, l3=0x0e}
0x03c3…03d6 Line {l1=0x11, l2=»0400FOR K=E TO V «, l3=0x11}
0x03d6…03e9 Line {l1=0x11, l2=»0410FOR I=E TO 5 «, l3=0x11}
0x03e9…0414 Line {l1=0x29, l2=»0420POST5$((I-E)*11+E:11)=TV$((K-E)*5+I) «, l3=0x29}
0x0414…0421 Line {l1=0x0b, l2=»0430NEXT I «, l3=0x0b}
0x0421…043c Line {l1=0x19, l2=»0440PUT FIL2$,J+K:POST5$ «, l3=0x19}
0x043c…0449 Line {l1=0x0b, l2=»0450NEXT K «, l3=0x0b}
0x0449…0466 Line {l1=0x1b, l2=»0460EXEC FEJL(-N,-K,FIL2$) «, l3=0x1b}
0x0466…0475 Line {l1=0x0d, l2=»0470ENDPROC «, l3=0x0d}
0x0475…0484 Line {l1=0x0d, l2=»0480TVN(E)=E «, l3=0x0d}
0x0484…0493 Line {l1=0x0d, l2=»0490TVN(G)=G «, l3=0x0d}
0x0493…04a2 Line {l1=0x0d, l2=»0500TVN(V)=V «, l3=0x0d}
0x04a2…04b1 Line {l1=0x0d, l2=»0510TVN(4)=4 «, l3=0x0d}
0x04b1…04c0 Line {l1=0x0d, l2=»0520TVN(5)=5 «, l3=0x0d}
0x04c0…04cf Line {l1=0x0d, l2=»0530TVN(6)=7 «, l3=0x0d}
0x04cf…04de Line {l1=0x0d, l2=»0540TVN(7)=8 «, l3=0x0d}
0x04de…04ed Line {l1=0x0d, l2=»0550TVN(8)=W «, l3=0x0d}
0x04ed…04fd Line {l1=0x0e, l2=»0560TVN(W)=10 «, l3=0x0e}
0x04fd…050e Line {l1=0x0f, l2=»0570TVN(10)=11 «, l3=0x0f}
0x050e…051f Line {l1=0x0f, l2=»0580TVN(11)=12 «, l3=0x0f}
0x051f…0530 Line {l1=0x0f, l2=»0590TVN(12)=13 «, l3=0x0f}
0x0530…0541 Line {l1=0x0f, l2=»0600TVN(13)=14 «, l3=0x0f}
0x0541…0552 Line {l1=0x0f, l2=»0610TVN(14)=15 «, l3=0x0f}
0x0552…0563 Line {l1=0x0f, l2=»0620TVN(15)=16 «, l3=0x0f}
0x0563…0575 Line {l1=0x10, l2=»0630TVN(16)=112 «, l3=0x10}
0x0575…0587 Line {l1=0x10, l2=»0640TVN(17)=113 «, l3=0x10}
0x0587…0599 Line {l1=0x10, l2=»0650TVN(18)=313 «, l3=0x10}
0x0599…05ab Line {l1=0x10, l2=»0660TVN(19)=413 «, l3=0x10}
0x05ab…05bd Line {l1=0x10, l2=»0670TVN(20)=115 «, l3=0x10}
0x05bd…05cf Line {l1=0x10, l2=»0680TVN(21)=315 «, l3=0x10}
0x05cf…05e1 Line {l1=0x10, l2=»0690TVN(22)=415 «, l3=0x10}
0x05e1…05f3 Line {l1=0x10, l2=»0700TVN(23)=116 «, l3=0x10}
0x05f3…0605 Line {l1=0x10, l2=»0710TVN(24)=316 «, l3=0x10}
0x0605…0617 Line {l1=0x10, l2=»0720TVN(25)=416 «, l3=0x10}
0x0617…0629 Line {l1=0x10, l2=»0730TVN(26)=117 «, l3=0x10}
0x0629…063b Line {l1=0x10, l2=»0740TVN(27)=317 «, l3=0x10}
0x063b…064d Line {l1=0x10, l2=»0750TVN(28)=417 «, l3=0x10}
0x064d…065f Line {l1=0x10, l2=»0760TVN(29)=123 «, l3=0x10}
0x065f…0671 Line {l1=0x10, l2=»0770TVN(30)=206 «, l3=0x10}
0x0671…0683 Line {l1=0x10, l2=»0780TVN(31)=212 «, l3=0x10}
0x0683…0695 Line {l1=0x10, l2=»0790TVN(32)=214 «, l3=0x10}
0x0695…06a7 Line {l1=0x10, l2=»0800TVN(33)=218 «, l3=0x10}
0x06a7…06b9 Line {l1=0x10, l2=»0810TVN(34)=219 «, l3=0x10}
0x06b9…06cb Line {l1=0x10, l2=»0820TVN(35)=319 «, l3=0x10}
0x06cb…06dd Line {l1=0x10, l2=»0830TVN(36)=419 «, l3=0x10}
0x06dd…06ef Line {l1=0x10, l2=»0840TVN(37)=220 «, l3=0x10}
0x06ef…0701 Line {l1=0x10, l2=»0850TVN(38)=320 «, l3=0x10}
0x0701…0713 Line {l1=0x10, l2=»0860TVN(39)=420 «, l3=0x10}
0x0713…0725 Line {l1=0x10, l2=»0870TVN(40)=221 «, l3=0x10}
0x0725…0737 Line {l1=0x10, l2=»0880TVN(41)=321 «, l3=0x10}
0x0737…0749 Line {l1=0x10, l2=»0890TVN(42)=421 «, l3=0x10}
0x0749…075b Line {l1=0x10, l2=»0900TVN(43)=222 «, l3=0x10}
0x075b…076d Line {l1=0x10, l2=»0910TVN(44)=223 «, l3=0x10}
0x076d…077f Line {l1=0x10, l2=»0920TVN(45)=224 «, l3=0x10}
0x077f…079d Line {l1=0x1c, l2=»0930PROC CONV(NR2,OK22,CIF) «, l3=0x1c}
0x079d…07ac Line {l1=0x0d, l2=»0940OK2=OK22 «, l3=0x0d}
0x07ac…07ba Line {l1=0x0c, l2=»0950NR2$="" «, l3=0x0c}
0x07ba…07c8 Line {l1=0x0c, l2=»0960REPEAT «, l3=0x0c}
0x07c8…07ed Line {l1=0x23, l2=»0970NR2$=CHR((OK2 MOD 10)+48)+NR2$ «, l3=0x23}
0x07ed…07fd Line {l1=0x0e, l2=»0980CIF=CIF-E «, l3=0x0e}
0x07fd…0812 Line {l1=0x13, l2=»0990OK2=OK2 DIV 10 «, l3=0x13}
0x0812…0836 Line {l1=0x22, l2=»1000IF CIF<B AND OK2=B THEN CIF=B «, l3=0x22}
0x0836…0848 Line {l1=0x10, l2=»1010UNTIL CIF=B «, l3=0x10}
0x0848…0857 Line {l1=0x0d, l2=»1020ENDPROC «, l3=0x0d}
0x0857…0871 Line {l1=0x18, l2=»1030PROC CHECK(NR1,OK1) «, l3=0x18}
0x0871…087d Line {l1=0x0a, l2=»1040OK1=B «, l3=0x0a}
0x087d…088c Line {l1=0x0d, l2=»1050RESULT=B «, l3=0x0d}
0x088c…08a7 Line {l1=0x19, l2=»1060IF LEN(NR1$)>B THEN «, l3=0x19}
0x08a7…08c2 Line {l1=0x19, l2=»1070IF NR1$(E)="-" THEN «, l3=0x19}
0x08c2…08d3 Line {l1=0x0f, l2=»1080FORTEGN=-E «, l3=0x0f}
0x08d3…08df Line {l1=0x0a, l2=»1090OK1=E «, l3=0x0a}
0x08df…08eb Line {l1=0x0a, l2=»1100ELSE «, l3=0x0a}
0x08eb…08fb Line {l1=0x0e, l2=»1110FORTEGN=E «, l3=0x0e}
0x08fb…0908 Line {l1=0x0b, l2=»1120ENDIF «, l3=0x0b}
0x0908…0922 Line {l1=0x18, l2=»1130WHILE LEN(NR1$)>OK1 «, l3=0x18}
0x0922…0932 Line {l1=0x0e, l2=»1140OK1=OK1+E «, l3=0x0e}
0x0932…0960 Line {l1=0x2c, l2=»1150IF NR1$(OK1)<"0" OR NR1$(OK1)>"9" THEN «, l3=0x2c}
0x0960…0970 Line {l1=0x0e, l2=»1160FORTEGN=B «, l3=0x0e}
0x0970…0984 Line {l1=0x12, l2=»1170OK1=LEN(NR1$) «, l3=0x12}
0x0984…0991 Line {l1=0x0b, l2=»1180ENDIF «, l3=0x0b}
0x0991…09ba Line {l1=0x27, l2=»1190RESULT=RESULT*10+ORD(NR1$(OK1))-48 «, l3=0x27}
0x09ba…09ca Line {l1=0x0e, l2=»1200ENDWHILE «, l3=0x0e}
0x09ca…09e0 Line {l1=0x14, l2=»1210OK1=OK1*FORTEGN «, l3=0x14}
0x09e0…09fe Line {l1=0x1c, l2=»1220IF OK1<B THEN OK1=OK1+E «, l3=0x1c}
0x09fe…0a0b Line {l1=0x0b, l2=»1230ENDIF «, l3=0x0b}
0x0a0b…0a1a Line {l1=0x0d, l2=»1240ENDPROC «, l3=0x0d}
0x0a1a…0a30 Line {l1=0x14, l2=»1250PROC INOPL(OPL) «, l3=0x14}
0x0a30…0a47 Line {l1=0x15, l2=»1260EXEC INLINE(OPL) «, l3=0x15}
0x0a47…0a5a Line {l1=0x11, l2=»1270CASE OPL OF «, l3=0x11}
0x0a5a…0a67 Line {l1=0x0b, l2=»1280WHEN E «, l3=0x0b}
0x0a67…0a79 Line {l1=0x10, l2=»1290LMNR=RESULT «, l3=0x10}
0x0a79…0aa8 Line {l1=0x2d, l2=»1300WHEN V,4,5,6,7,W,10,11,12,13,15,16,17,18 «, l3=0x2d}
0x0aa8…0ab6 Line {l1=0x0c, l2=»1310REPEAT «, l3=0x0c}
0x0ab6…0acc Line {l1=0x14, l2=»1320LINE$=LINE$+"+" «, l3=0x14}
0x0acc…0af1 Line {l1=0x23, l2=»1330EXEC CALC(6,LINE$,TAH$,RESUL$) «, l3=0x23}
0x0af1…0b18 Line {l1=0x25, l2=»1340IF FLAG<>B THEN EXEC INLINE(OPL) «, l3=0x25}
0x0b18…0b2b Line {l1=0x11, l2=»1350UNTIL FLAG=B «, l3=0x11}
0x0b2b…0b40 Line {l1=0x13, l2=»1360IF OPL<8 THEN «, l3=0x13}
0x0b40…0b4e Line {l1=0x0c, l2=»1370T=OPL-G «, l3=0x0c}
0x0b4e…0b5a Line {l1=0x0a, l2=»1380ELSE «, l3=0x0a}
0x0b5a…0b68 Line {l1=0x0c, l2=»1390T=OPL-V «, l3=0x0c}
0x0b68…0b75 Line {l1=0x0b, l2=»1400ENDIF «, l3=0x0b}
0x0b75…0ba8 Line {l1=0x31, l2=»1403IF T=E OR T=V OR T=5 OR (T>6 AND T<11) THEN «, l3=0x31}
0x0ba8…0bbc Line {l1=0x12, l2=»1405LINE$=TV$(11) «, l3=0x12}
0x0bbc…0bcd Line {l1=0x0f, l2=»1407PR$=TV$(T) «, l3=0x0f}
0x0bcd…0bda Line {l1=0x0b, l2=»1408ENDIF «, l3=0x0b}
0x0bda…0bf4 Line {l1=0x18, l2=»1410TV$(T)=RESUL$(G:11) «, l3=0x18}
0x0bf4…0c27 Line {l1=0x31, l2=»1412IF T=E OR T=V OR T=5 OR (T>6 AND T<11) THEN «, l3=0x31}
0x0c27…0c4d Line {l1=0x24, l2=»1415EXEC CALC(E,RESUL$,PR$,RESUL1$) «, l3=0x24}
0x0c4d…0c75 Line {l1=0x26, l2=»1417EXEC CALC(B,LINE$,RESUL1$,RESUL$) «, l3=0x26}
0x0c75…0c90 Line {l1=0x19, l2=»1419TV$(11)=RESUL$(G:11) «, l3=0x19}
0x0c90…0c9d Line {l1=0x0b, l2=»1420ENDIF «, l3=0x0b}
0x0c9d…0cac Line {l1=0x0d, l2=»1430ENDCASE «, l3=0x0d}
0x0cac…0cbb Line {l1=0x0d, l2=»1440ENDPROC «, l3=0x0d}
0x0cbb…0ccf Line {l1=0x12, l2=»1441PROC SKRIVOPL «, l3=0x12}
0x0ccf…0cf2 Line {l1=0x21, l2=»1442RESUL$=TV$(E);RESUL1$=TV$(V) «, l3=0x21}
0x0cf2…0d1c Line {l1=0x28, l2=»1443EXEC CALC(B,RESUL$,RESUL1$,RESUL1$) «, l3=0x28}
0x0d1c…0d30 Line {l1=0x12, l2=»1444RESUL$=TV$(5) «, l3=0x12}
0x0d30…0d5a Line {l1=0x28, l2=»1445EXEC CALC(B,RESUL$,RESUL1$,RESUL1$) «, l3=0x28}
0x0d5a…0d6e Line {l1=0x12, l2=»1446RESUL$=TV$(7) «, l3=0x12}
0x0d6e…0d98 Line {l1=0x28, l2=»1447EXEC CALC(B,RESUL$,RESUL1$,RESUL1$) «, l3=0x28}
0x0d98…0dac Line {l1=0x12, l2=»1448RESUL$=TV$(8) «, l3=0x12}
0x0dac…0dd6 Line {l1=0x28, l2=»1449EXEC CALC(B,RESUL$,RESUL1$,RESUL1$) «, l3=0x28}
0x0dd6…0dea Line {l1=0x12, l2=»1450RESUL$=TV$(W) «, l3=0x12}
0x0dea…0e14 Line {l1=0x28, l2=»1451EXEC CALC(B,RESUL$,RESUL1$,RESUL1$) «, l3=0x28}
0x0e14…0e29 Line {l1=0x13, l2=»1452RESUL$=TV$(10) «, l3=0x13}
0x0e29…0e53 Line {l1=0x28, l2=»1453EXEC CALC(B,RESUL$,RESUL1$,RESUL1$) «, l3=0x28}
0x0e53…0e68 Line {l1=0x13, l2=»1454RESUL$=TV$(11) «, l3=0x13}
0x0e68…0e92 Line {l1=0x28, l2=»1455EXEC CALC(4,RESUL$,RESUL1$,RESUL1$) «, l3=0x28}
0x0e92…0ebc Line {l1=0x28, l2=»1456IF SI<>B THEN TV$(11)=RESUL1$(G:11) «, l3=0x28}
0x0ebc…0ef8 Line {l1=0x3a, l2=»1457IF SI<>B THEN INPUT "TV12 KORRIGERET ,RETURN ",RESUL$ «, l3=0x3a}
0x0ef8…0f14 Line {l1=0x1a, l2=»1460IF OUTP=B THEN CLEAR «, l3=0x1a}
0x0f14…0f60 Line {l1=0x4a, l2=»1470PRINT "L Ø N M O D T A G E R K A R T O T E K - T Æ L L E V Æ R K E R" «, l3=0x4a}
0x0f60…0fab Line {l1=0x49, l2=»1480PRINT "A R B E J D E R L Ø N S T A T I S T I K";TAB(60);"Dato ";DAD$ «, l3=0x49}
0x0fab…0fbe Line {l1=0x11, l2=»1490FOR J=E TO A «, l3=0x11}
0x0fbe…0fcf Line {l1=0x0f, l2=»1500CASE J OF «, l3=0x0f}
0x0fcf…0fdc Line {l1=0x0b, l2=»1510WHEN E «, l3=0x0b}
0x0fdc…0ffa Line {l1=0x1c, l2=»1520EXEC CONV(LINE$,LMNR,0) «, l3=0x1c}
0x0ffa…1007 Line {l1=0x0b, l2=»1530WHEN G «, l3=0x0b}
0x1007…1020 Line {l1=0x17, l2=»1540LINE$=POST1$(E,25) «, l3=0x17}
0x1020…1052 Line {l1=0x30, l2=»1550WHEN V,4,5,6,7,W,10,11,12,13,14,15,16,17,18 «, l3=0x30}
0x1052…1065 Line {l1=0x11, l2=»1560IF J<8 THEN «, l3=0x11}
0x1065…1071 Line {l1=0x0a, l2=»1570T=J-G «, l3=0x0a}
0x1071…107d Line {l1=0x0a, l2=»1580ELSE «, l3=0x0a}
0x107d…1089 Line {l1=0x0a, l2=»1590T=J-V «, l3=0x0a}
0x1089…1096 Line {l1=0x0b, l2=»1600ENDIF «, l3=0x0b}
0x1096…10aa Line {l1=0x12, l2=»1610RESUL$=TV$(T) «, l3=0x12}
0x10aa…10c9 Line {l1=0x1d, l2=»1620EXEC TUD(RESUL$,PR$,E,B) «, l3=0x1d}
0x10c9…10d9 Line {l1=0x0e, l2=»1630LINE$=PR$ «, l3=0x0e}
0x10d9…10e6 Line {l1=0x0b, l2=»1640WHEN 8 «, l3=0x0b}
0x10e6…10fa Line {l1=0x12, l2=»1650RESUL$=TV$(G) «, l3=0x12}
0x10fa…110d Line {l1=0x11, l2=»1660LINE$=TV$(4) «, l3=0x11}
0x110d…1135 Line {l1=0x26, l2=»1670EXEC CALC(B,LINE$,RESUL$,RESUL1$) «, l3=0x26}
0x1135…1155 Line {l1=0x1e, l2=»1680EXEC TUD(RESUL1$,PR$,E,B) «, l3=0x1e}
0x1155…1165 Line {l1=0x0e, l2=»1690LINE$=PR$ «, l3=0x0e}
0x1165…1174 Line {l1=0x0d, l2=»1700ENDCASE «, l3=0x0d}
0x1174…118a Line {l1=0x14, l2=»1710IF OUTP=B THEN «, l3=0x14}
0x118a…11a0 Line {l1=0x14, l2=»1720EXEC OUTLINE(J) «, l3=0x14}
0x11a0…11ac Line {l1=0x0a, l2=»1730ELSE «, l3=0x0a}
0x11ac…11c3 Line {l1=0x15, l2=»1740EXEC OUTPLINE(J) «, l3=0x15}
0x11c3…11d0 Line {l1=0x0b, l2=»1750ENDIF «, l3=0x0b}
0x11d0…11dd Line {l1=0x0b, l2=»1760NEXT J «, l3=0x0b}
0x11dd…11ec Line {l1=0x0d, l2=»1770ENDPROC «, l3=0x0d}
0x11ec…1202 Line {l1=0x14, l2=»1780PROC OUTLINE(N) «, l3=0x14}
0x1202…1219 Line {l1=0x15, l2=»1790CURSOR X(N),Y(N) «, l3=0x15}
0x1219…1235 Line {l1=0x1a, l2=»1800PRINT USING "### ":N; «, l3=0x1a}
0x1235…1248 Line {l1=0x11, l2=»1810IF N=G THEN «, l3=0x11}
0x1248…1267 Line {l1=0x1d, l2=»1820PRINT PICT$(N);":";LINE$ «, l3=0x1d}
0x1267…1297 Line {l1=0x2e, l2=»1830PRINT TAB(6);"TV TEKST";TAB(40);"INDHOLD" «, l3=0x2e}
0x1297…12a3 Line {l1=0x0a, l2=»1840ELSE «, l3=0x0a}
0x12a3…12b6 Line {l1=0x11, l2=»1850IF N>G THEN «, l3=0x11}
0x12b6…12c9 Line {l1=0x11, l2=»1860IF N<8 THEN «, l3=0x11}
0x12c9…12d5 Line {l1=0x0a, l2=»1870T=N-G «, l3=0x0a}
0x12d5…12e1 Line {l1=0x0a, l2=»1880ELSE «, l3=0x0a}
0x12e1…12ed Line {l1=0x0a, l2=»1890T=N-V «, l3=0x0a}
0x12ed…12fa Line {l1=0x0b, l2=»1900ENDIF «, l3=0x0b}
0x12fa…130d Line {l1=0x11, l2=»1901IF N=8 THEN «, l3=0x11}
0x130d…1320 Line {l1=0x11, l2=»1902RESUL$="006" «, l3=0x11}
0x1320…132c Line {l1=0x0a, l2=»1903ELSE «, l3=0x0a}
0x132c…134d Line {l1=0x1f, l2=»1910EXEC CONV(RESUL$,TVN(T),3) «, l3=0x1f}
0x134d…135a Line {l1=0x0b, l2=»1915ENDIF «, l3=0x0b}
0x135a…1372 Line {l1=0x16, l2=»1920PRINT RESUL$;" "; «, l3=0x16}
0x1372…137f Line {l1=0x0b, l2=»1930ENDIF «, l3=0x0b}
0x137f…13a6 Line {l1=0x25, l2=»1940PRINT PICT$(N);":";TAB(32);LINE$ «, l3=0x25}
0x13a6…13b3 Line {l1=0x0b, l2=»1950ENDIF «, l3=0x0b}
0x13b3…13c2 Line {l1=0x0d, l2=»1960ENDPROC «, l3=0x0d}
0x13c2…13dc Line {l1=0x18, l2=»1970PROC FEJL(P1,P2,P3) «, l3=0x18}
0x13dc…13fa Line {l1=0x1c, l2=»1980IF STATUS(P3$)<>B THEN «, l3=0x1c}
0x13fa…1409 Line {l1=0x0d, l2=»1990OUTPUT T «, l3=0x0d}
0x1409…1437 Line {l1=0x2c, l2=»2000PRINT "FIL-FEJL ";P3$;STATUS(P3$),P1;P2 «, l3=0x2c}
0x1437…1443 Line {l1=0x0a, l2=»2010STOP «, l3=0x0a}
0x1443…1450 Line {l1=0x0b, l2=»2020ENDIF «, l3=0x0b}
0x1450…145f Line {l1=0x0d, l2=»2030ENDPROC «, l3=0x0d}
0x145f…1474 Line {l1=0x13, l2=»2040PROC INLINE(N) «, l3=0x13}
0x1474…1482 Line {l1=0x0c, l2=»2050REPEAT «, l3=0x0c}
0x1482…1497 Line {l1=0x13, l2=»2060CURSOR 32,Y(N) «, l3=0x13}
0x1497…14b9 Line {l1=0x20, l2=»2070PRINT BL$(E:ABS(TYPE(N))+6) «, l3=0x20}
0x14b9…14d0 Line {l1=0x15, l2=»2080CURSOR X(N),Y(N) «, l3=0x15}
0x14d0…14ec Line {l1=0x1a, l2=»2090PRINT USING "### ":N; «, l3=0x1a}
0x14ec…14ff Line {l1=0x11, l2=»2100IF N>G THEN «, l3=0x11}
0x14ff…1512 Line {l1=0x11, l2=»2110IF N<8 THEN «, l3=0x11}
0x1512…151e Line {l1=0x0a, l2=»2120T=N-G «, l3=0x0a}
0x151e…152a Line {l1=0x0a, l2=»2130ELSE «, l3=0x0a}
0x152a…1536 Line {l1=0x0a, l2=»2140T=N-V «, l3=0x0a}
0x1536…1543 Line {l1=0x0b, l2=»2150ENDIF «, l3=0x0b}
0x1543…1556 Line {l1=0x11, l2=»2151IF N=8 THEN «, l3=0x11}
0x1556…1569 Line {l1=0x11, l2=»2152RESUL$="006" «, l3=0x11}
0x1569…1575 Line {l1=0x0a, l2=»2153ELSE «, l3=0x0a}
0x1575…1596 Line {l1=0x1f, l2=»2160EXEC CONV(RESUL$,TVN(T),3) «, l3=0x1f}
0x1596…15a3 Line {l1=0x0b, l2=»2165ENDIF «, l3=0x0b}
0x15a3…15bb Line {l1=0x16, l2=»2170PRINT RESUL$;" "; «, l3=0x16}
0x15bb…15c8 Line {l1=0x0b, l2=»2180ENDIF «, l3=0x0b}
0x15c8…15e2 Line {l1=0x18, l2=»2190PRINT PICT$(N);":"; «, l3=0x18}
0x15e2…15f7 Line {l1=0x13, l2=»2200CURSOR 32,Y(N) «, l3=0x13}
0x15f7…160c Line {l1=0x13, l2=»2210INPUT "",LINE$ «, l3=0x13}
0x160c…1625 Line {l1=0x17, l2=»2220IF TYPE(N)<B THEN «, l3=0x17}
0x1625…164d Line {l1=0x26, l2=»2230IF LEN(LINE$)<=ABS(TYPE(N)) THEN «, l3=0x26}
0x164d…1658 Line {l1=0x09, l2=»2240OK=E «, l3=0x09}
0x1658…1664 Line {l1=0x0a, l2=»2250ELSE «, l3=0x0a}
0x1664…166f Line {l1=0x09, l2=»2260OK=B «, l3=0x09}
0x166f…167c Line {l1=0x0b, l2=»2270ENDIF «, l3=0x0b}
0x167c…1688 Line {l1=0x0a, l2=»2280ELSE «, l3=0x0a}
0x1688…16a3 Line {l1=0x19, l2=»2290EXEC CHECK(LINE$,OK) «, l3=0x19}
0x16a3…16d0 Line {l1=0x2b, l2=»2300IF TYPE(N)>B AND TYPE(N)<>OK THEN OK=B «, l3=0x2b}
0x16d0…16dd Line {l1=0x0b, l2=»2310ENDIF «, l3=0x0b}
0x16dd…16ef Line {l1=0x10, l2=»2320UNTIL OK<>B «, l3=0x10}
0x16ef…16fe Line {l1=0x0d, l2=»2330ENDPROC «, l3=0x0d}
0x16fe…1715 Line {l1=0x15, l2=»2340PROC OUTPLINE(N) «, l3=0x15}
0x1715…172c Line {l1=0x15, l2=»2350PRINT TAB(X(N)); «, l3=0x15}
0x172c…1748 Line {l1=0x1a, l2=»2360PRINT USING "### ":N; «, l3=0x1a}
0x1748…175b Line {l1=0x11, l2=»2370IF N=G THEN «, l3=0x11}
0x175b…177a Line {l1=0x1d, l2=»2380PRINT PICT$(N);":";LINE$ «, l3=0x1d}
0x177a…17aa Line {l1=0x2e, l2=»2390PRINT TAB(6);"TV TEKST";TAB(40);"INDHOLD" «, l3=0x2e}
0x17aa…17b6 Line {l1=0x0a, l2=»2400ELSE «, l3=0x0a}
0x17b6…17c9 Line {l1=0x11, l2=»2410IF N>G THEN «, l3=0x11}
0x17c9…17dc Line {l1=0x11, l2=»2420IF N<8 THEN «, l3=0x11}
0x17dc…17e8 Line {l1=0x0a, l2=»2430T=N-G «, l3=0x0a}
0x17e8…17f4 Line {l1=0x0a, l2=»2440ELSE «, l3=0x0a}
0x17f4…1800 Line {l1=0x0a, l2=»2450T=N-V «, l3=0x0a}
0x1800…180d Line {l1=0x0b, l2=»2460ENDIF «, l3=0x0b}
0x180d…1820 Line {l1=0x11, l2=»2461IF N=8 THEN «, l3=0x11}
0x1820…1833 Line {l1=0x11, l2=»2462RESUL$="006" «, l3=0x11}
0x1833…183f Line {l1=0x0a, l2=»2463ELSE «, l3=0x0a}
0x183f…1860 Line {l1=0x1f, l2=»2470EXEC CONV(RESUL$,TVN(T),3) «, l3=0x1f}
0x1860…186d Line {l1=0x0b, l2=»2475ENDIF «, l3=0x0b}
0x186d…1885 Line {l1=0x16, l2=»2480PRINT RESUL$;" "; «, l3=0x16}
0x1885…1892 Line {l1=0x0b, l2=»2490ENDIF «, l3=0x0b}
0x1892…18ba Line {l1=0x26, l2=»2500PRINT PICT$(N);":";TAB(32);LINE$; «, l3=0x26}
0x18ba…18d3 Line {l1=0x17, l2=»2505IF N>G THEN PRINT «, l3=0x17}
0x18d3…18e0 Line {l1=0x0b, l2=»2510ENDIF «, l3=0x0b}
0x18e0…18ef Line {l1=0x0d, l2=»2520ENDPROC «, l3=0x0d}
0x18ef…18fa Line {l1=0x09, l2=»2530A=18 «, l3=0x09}
0x18fa…1922 Line {l1=0x26, l2=»2540DIM X(A),Y(A),PICT$(A,20),TYPE(A) «, l3=0x26}
0x1922…193e Line {l1=0x1a, l2=»2550DIM BL$(79),LINE$(30) «, l3=0x1a}
0x193e…1952 Line {l1=0x12, l2=»2560FOR I=E TO 79 «, l3=0x12}
0x1952…1964 Line {l1=0x10, l2=»2570BL$=BL$+" " «, l3=0x10}
0x1964…1971 Line {l1=0x0b, l2=»2580NEXT I «, l3=0x0b}
0x1971…197e Line {l1=0x0b, l2=»2590X(E)=E «, l3=0x0b}
0x197e…198c Line {l1=0x0c, l2=»2600X(G)=36 «, l3=0x0c}
0x198c…19a0 Line {l1=0x12, l2=»2610FOR I=V TO 18 «, l3=0x12}
0x19a0…19ad Line {l1=0x0b, l2=»2620X(I)=E «, l3=0x0b}
0x19ad…19bc Line {l1=0x0d, l2=»2630Y(I)=I+G «, l3=0x0d}
0x19bc…19ce Line {l1=0x10, l2=»2640TYPE(I)=-11 «, l3=0x10}
0x19ce…19db Line {l1=0x0b, l2=»2650NEXT I «, l3=0x0b}
0x19db…19e8 Line {l1=0x0b, l2=»2660Y(E)=V «, l3=0x0b}
0x19e8…19f5 Line {l1=0x0b, l2=»2670Y(G)=V «, l3=0x0b}
0x19f5…1a05 Line {l1=0x0e, l2=»2680TYPE(E)=B «, l3=0x0e}
0x1a05…1a15 Line {l1=0x0e, l2=»2690TYPE(G)=B «, l3=0x0e}
0x1a15…1a2c Line {l1=0x15, l2=»2700PICT$(E)="Lønnr" «, l3=0x15}
0x1a2c…1a42 Line {l1=0x14, l2=»2710PICT$(G)="Navn" «, l3=0x14}
0x1a42…1a68 Line {l1=0x24, l2=»2720PICT$(V)="Tillæg til fordeling" «, l3=0x24}
0x1a68…1a85 Line {l1=0x1b, l2=»2730PICT$(4)="Akkordtimer" «, l3=0x1b}
0x1a85…1aa2 Line {l1=0x1b, l2=»2740PICT$(5)="Akkordbeløb" «, l3=0x1b}
0x1aa2…1ac0 Line {l1=0x1c, l2=»2750PICT$(6)="Tidlønstimer" «, l3=0x1c}
0x1ac0…1ade Line {l1=0x1c, l2=»2760PICT$(7)="Tidlønsbeløb" «, l3=0x1c}
0x1ade…1afb Line {l1=0x1b, l2=»2770PICT$(8)="Timer i alt" «, l3=0x1b}
0x1afb…1b1c Line {l1=0x1f, l2=»2780PICT$(W)="Heraf overtimer" «, l3=0x1f}
0x1b1c…1b3d Line {l1=0x1f, l2=»2790PICT$(10)="Overtidstillæg" «, l3=0x1f}
0x1b3d…1b60 Line {l1=0x21, l2=»2800PICT$(11)="Holddriftstillæg" «, l3=0x21}
0x1b60…1b7d Line {l1=0x1b, l2=»2810PICT$(12)="Genetillæg" «, l3=0x1b}
0x1b7d…1ba0 Line {l1=0x21, l2=»2820PICT$(13)="Div U F arbejdst" «, l3=0x21}
0x1ba0…1bc2 Line {l1=0x20, l2=»2830PICT$(14)="Ferieberett løn" «, l3=0x20}
0x1bc2…1be3 Line {l1=0x1f, l2=»2840PICT$(15)="Sygeferiepenge" «, l3=0x1f}
0x1be3…1c02 Line {l1=0x1d, l2=»2850PICT$(16)="Sygedagpenge" «, l3=0x1d}
0x1c02…1c25 Line {l1=0x21, l2=»2860PICT$(17)="Beregnede feriep" «, l3=0x21}
0x1c25…1c44 Line {l1=0x1d, l2=»2870PICT$(18)="SH-opsparing" «, l3=0x1d}
0x1c44…1c51 Line {l1=0x0b, l2=»2880OUTP=B «, l3=0x0b}
0x1c51…1c66 Line {l1=0x13, l2=»2890PROC INDTÆL(N) «, l3=0x13}
0x1c66…1c76 Line {l1=0x0e, l2=»2900J=W*(N-E) «, l3=0x0e}
0x1c76…1c89 Line {l1=0x11, l2=»2910FOR K=E TO V «, l3=0x11}
0x1c89…1ca4 Line {l1=0x19, l2=»2920GET FIL2$,J+K:POST5$ «, l3=0x19}
0x1ca4…1cb7 Line {l1=0x11, l2=»2930FOR I=E TO 5 «, l3=0x11}
0x1cb7…1ce2 Line {l1=0x29, l2=»2940TV$((K-E)*5+I)=POST5$((I-E)*11+E:11) «, l3=0x29}
0x1ce2…1cef Line {l1=0x0b, l2=»2950NEXT I «, l3=0x0b}
0x1cef…1cfc Line {l1=0x0b, l2=»2960NEXT K «, l3=0x0b}
0x1cfc…1d17 Line {l1=0x19, l2=»2970EXEC FEJL(N,K,FIL2$) «, l3=0x19}
0x1d17…1d26 Line {l1=0x0d, l2=»2980ENDPROC «, l3=0x0d}
0x1d26…1d3d Line {l1=0x15, l2=»2990PROC INLØNMOD(N) «, l3=0x15}
0x1d3d…1d59 Line {l1=0x1a, l2=»3000GET FIL$,G*N-E:POST1$ «, l3=0x1a}
0x1d59…1d95 Line {l1=0x3a, l2=»3010GET FIL$,G*N:POST2$,C1,C2,LT,LF,LR,LA,RPI,K1,K2,FG,FD «, l3=0x3a}
0x1d95…1daf Line {l1=0x18, l2=»3020EXEC FEJL(E,N,FIL$) «, l3=0x18}
0x1daf…1dbe Line {l1=0x0d, l2=»3030ENDPROC «, l3=0x0d}
0x1dbe…1dd1 Line {l1=0x11, l2=»3040PROC INDVIRK «, l3=0x11}
0x1dd1…1de3 Line {l1=0x10, l2=»3050OPEN FIL$,W «, l3=0x10}
0x1de3…1dfd Line {l1=0x18, l2=»3060EXEC FEJL(B,B,FIL$) «, l3=0x18}
0x1dfd…1e15 Line {l1=0x16, l2=»3070GET FIL$,E:POST3$ «, l3=0x16}
0x1e15…1e3f Line {l1=0x28, l2=»3080GET FIL$,G:POST4$,SLJNR,MLMNR,ATPLM «, l3=0x28}
0x1e3f…1e55 Line {l1=0x14, l2=»3085GET FIL$,V:DAD$ «, l3=0x14}
0x1e55…1e64 Line {l1=0x0d, l2=»3090ENDPROC «, l3=0x0d}
0x1e64…1e72 Line {l1=0x0c, l2=»3100REPEAT «, l3=0x0c}
0x1e72…1e7d Line {l1=0x09, l2=»3110SV=G «, l3=0x09}
0x1e7d…1e8a Line {l1=0x0b, l2=»3120CLEAR «, l3=0x0b}
0x1e8a…1e9d Line {l1=0x11, l2=»3130CURSOR 10,10 «, l3=0x11}
0x1e9d…1ee9 Line {l1=0x4a, l2=»3140PRINT "L Ø N M O D T A G E R K A R T O T E K - T Æ L L E V Æ R K E R" «, l3=0x4a}
0x1ee9…1f28 Line {l1=0x3d, l2=»3150PRINT " A R B E J D E R L Ø N S T A T I S T I K" «, l3=0x3d}
0x1f28…1f35 Line {l1=0x0b, l2=»3160PRINT «, l3=0x0b}
0x1f35…1f54 Line {l1=0x1d, l2=»3170PRINT TAB(10);"0 Færdig" «, l3=0x1d}
0x1f54…1f74 Line {l1=0x1e, l2=»3180PRINT TAB(10);"1 Ændring" «, l3=0x1e}
0x1f74…1f9e Line {l1=0x28, l2=»3190PRINT TAB(10);"2 Udskrift på skærm" «, l3=0x28}
0x1f9e…1fca Line {l1=0x2a, l2=»3200PRINT TAB(10);"3 Udskrift på printer" «, l3=0x2a}
0x1fca…1fd7 Line {l1=0x0b, l2=»3210PRINT «, l3=0x0b}
0x1fd7…1fe5 Line {l1=0x0c, l2=»3220REPEAT «, l3=0x0c}
0x1fe5…1ff7 Line {l1=0x10, l2=»3230CURSOR E,18 «, l3=0x10}
0x1ff7…2012 Line {l1=0x19, l2=»3240EDIT " ",SV «, l3=0x19}
0x2012…202e Line {l1=0x1a, l2=»3250UNTIL SV=>B AND SV<=V «, l3=0x1a}
0x202e…2042 Line {l1=0x12, l2=»3260IF SV>B THEN «, l3=0x12}
0x2042…2050 Line {l1=0x0c, l2=»3270REPEAT «, l3=0x0c}
0x2050…2064 Line {l1=0x12, l2=»3280EXEC INOPL(1) «, l3=0x12}
0x2064…2088 Line {l1=0x22, l2=»3290UNTIL LMNR=>B AND LMNR<=MLMNR «, l3=0x22}
0x2088…2096 Line {l1=0x0c, l2=»3291LISTE=B «, l3=0x0c}
0x2096…20b3 Line {l1=0x1b, l2=»3292IF LMNR=B THEN LISTE=E «, l3=0x1b}
0x20b3…20c1 Line {l1=0x0c, l2=»3295REPEAT «, l3=0x0c}
0x20c1…20e3 Line {l1=0x20, l2=»3296IF LISTE=E THEN LMNR=LMNR+E «, l3=0x20}
0x20e3…20fd Line {l1=0x18, l2=»3300EXEC INLØNMOD(LMNR) «, l3=0x18}
0x20fd…210f Line {l1=0x10, l2=»3310CASE SV OF «, l3=0x10}
0x210f…211c Line {l1=0x0b, l2=»3320WHEN E «, l3=0x0b}
0x211c…2131 Line {l1=0x13, l2=»3330IF LA<>B THEN «, l3=0x13}
0x2131…2149 Line {l1=0x16, l2=»3340EXEC INDTÆL(LMNR) «, l3=0x16}
0x2149…215d Line {l1=0x12, l2=»3350EXEC SKRIVOPL «, l3=0x12}
0x215d…216b Line {l1=0x0c, l2=»3360REPEAT «, l3=0x0c}
0x216b…2179 Line {l1=0x0c, l2=»3370REPEAT «, l3=0x0c}
0x2179…2185 Line {l1=0x0a, l2=»3380SV1=B «, l3=0x0a}
0x2185…2197 Line {l1=0x10, l2=»3390CURSOR E,23 «, l3=0x10}
0x2197…21b0 Line {l1=0x17, l2=»3400EDIT "Feltnr ",SV1 «, l3=0x17}
0x21b0…21ef Line {l1=0x3d, l2=»3410UNTIL SV1=B OR (SV1>G AND SV1<19 AND SV1<>8 AND SV1<>14) «, l3=0x3d}
0x21ef…2204 Line {l1=0x13, l2=»3420IF SV1>B THEN «, l3=0x13}
0x2204…221a Line {l1=0x14, l2=»3430EXEC INOPL(SV1) «, l3=0x14}
0x221a…2227 Line {l1=0x0b, l2=»3440ENDIF «, l3=0x0b}
0x2227…2239 Line {l1=0x10, l2=»3450UNTIL SV1=B «, l3=0x10}
0x2239…2250 Line {l1=0x15, l2=»3460EXEC UDTÆL(LMNR) «, l3=0x15}
0x2250…225c Line {l1=0x0a, l2=»3470ELSE «, l3=0x0a}
0x225c…2282 Line {l1=0x24, l2=»3480PRINT "Lønmodtager findes ikke" «, l3=0x24}
0x2282…229d Line {l1=0x19, l2=»3490INPUT "RETURN",LINE$ «, l3=0x19}
0x229d…22aa Line {l1=0x0b, l2=»3500ENDIF «, l3=0x0b}
0x22aa…22b7 Line {l1=0x0b, l2=»3510WHEN G «, l3=0x0b}
0x22b7…22cc Line {l1=0x13, l2=»3520IF LA<>B THEN «, l3=0x13}
0x22cc…22d9 Line {l1=0x0b, l2=»3530OUTP=B «, l3=0x0b}
0x22d9…22f1 Line {l1=0x16, l2=»3540EXEC INDTÆL(LMNR) «, l3=0x16}
0x22f1…2305 Line {l1=0x12, l2=»3550EXEC SKRIVOPL «, l3=0x12}
0x2305…2320 Line {l1=0x19, l2=»3560INPUT "RETURN",LINE$ «, l3=0x19}
0x2320…232c Line {l1=0x0a, l2=»3570ELSE «, l3=0x0a}
0x232c…2352 Line {l1=0x24, l2=»3580PRINT "Lønmodtager findes ikke" «, l3=0x24}
0x2352…236d Line {l1=0x19, l2=»3590INPUT "RETURN",LINE$ «, l3=0x19}
0x236d…237a Line {l1=0x0b, l2=»3600ENDIF «, l3=0x0b}
0x237a…2387 Line {l1=0x0b, l2=»3610WHEN V «, l3=0x0b}
0x2387…23a7 Line {l1=0x1e, l2=»3620IF LA<>B OR LISTE=E THEN «, l3=0x1e}
0x23a7…23bc Line {l1=0x13, l2=»3625IF LA<>B THEN «, l3=0x13}
0x23bc…23cb Line {l1=0x0d, l2=»3630OUTPUT P «, l3=0x0d}
0x23cb…23d8 Line {l1=0x0b, l2=»3640OUTP=E «, l3=0x0b}
0x23d8…23f0 Line {l1=0x16, l2=»3650EXEC INDTÆL(LMNR) «, l3=0x16}
0x23f0…2404 Line {l1=0x12, l2=»3660EXEC SKRIVOPL «, l3=0x12}
0x2404…2419 Line {l1=0x13, l2=»3662FOR I=21 TO 72 «, l3=0x13}
0x2419…2426 Line {l1=0x0b, l2=»3663PRINT «, l3=0x0b}
0x2426…2433 Line {l1=0x0b, l2=»3664NEXT I «, l3=0x0b}
0x2433…2440 Line {l1=0x0b, l2=»3670OUTP=B «, l3=0x0b}
0x2440…244f Line {l1=0x0d, l2=»3680OUTPUT T «, l3=0x0d}
0x244f…245c Line {l1=0x0b, l2=»3685ENDIF «, l3=0x0b}
0x245c…2468 Line {l1=0x0a, l2=»3690ELSE «, l3=0x0a}
0x2468…248e Line {l1=0x24, l2=»3700PRINT "Lønmodtager findes ikke" «, l3=0x24}
0x248e…24a9 Line {l1=0x19, l2=»3710INPUT "RETURN",LINE$ «, l3=0x19}
0x24a9…24b6 Line {l1=0x0b, l2=»3720ENDIF «, l3=0x0b}
0x24b6…24c5 Line {l1=0x0d, l2=»3730ENDCASE «, l3=0x0d}
0x24c5…24e8 Line {l1=0x21, l2=»3735UNTIL LISTE=B OR LMNR=>MLMNR «, l3=0x21}
0x24e8…24f5 Line {l1=0x0b, l2=»3740ENDIF «, l3=0x0b}
0x24f5…2506 Line {l1=0x0f, l2=»3750UNTIL SV=B «, l3=0x0f}
0x2506…2517 Line {l1=0x0f, l2=»3760CLOSE FIL$ «, l3=0x0f}
0x2517…2529 Line {l1=0x10, l2=»3770CLOSE FIL2$ «, l3=0x10}
0x2529…2546 Line {l1=0x1b, l2=»3775CHAIN "P641210:STARTB" «, l3=0x1b}
0x2546…2552 Line {l1=0x0a, l2=»3780STOP «, l3=0x0a}
0x2552…2560 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x2560…2580 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 ┆ ┆
[…0x10…]