|
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: »TV3.K«
└─⟦385f097a1⟧ Bits:30008988 SPC/1 COMAL programmer til bogføring
└─⟦this⟧ »TV3.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=6 TO W 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,8,W,10,11,12 1310REPEAT 1320LINE$=LINE$+"+" 1330EXEC CALC(6,LINE$,TAH$,RESUL$) 1340IF FLAG<>B THEN EXEC INLINE(OPL) 1350UNTIL FLAG=B 1355EXEC CALC(B,LINE$,TAH$,RESUL$) 1360CASE OPL OF 1362WHEN V,4,5,6,10,11,12 1364IF OPL<7 THEN 1366T=27+OPL 1368ELSE 1370T=33+OPL 1372ENDIF 1374WHEN 7,8,W 1376T=OPL*V+13 1378PR$=TV$(T) 1380LINE$=TV$(T+E) 1382EXEC CALC(B,PR$,LINE$,RESUL1$) 1384TV$(T+E)=RESUL1$(G:11) 1386LINE$=TV$(T+G) 1388EXEC CALC(B,RESUL$,LINE$,RESUL1$) 1390TV$(T+G)=RESUL1$(G:11) 1392ENDCASE 1410TV$(T)=RESUL$(G:11) 1430ENDCASE 1440ENDPROC 1450PROC SKRIVOPL 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 "Å R S - O P G Ø R E L S E";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,8,W,10,11,12 1560IF J<7 THEN 1570T=27+J 1580ELSE 1582IF J>W THEN 1584T=33+J 1586ELSE 1588T=V*J+13 1590ENDIF 1600ENDIF 1610RESUL$=TV$(T) 1620EXEC TUD(RESUL$,PR$,E,B) 1630LINE$=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(38);"INDHOLD" 1840ELSE 1850IF N>G THEN 1860IF N<7 THEN 1870T=27+N 1880ELSE 1882IF N>W THEN 1884T=33+N 1886ELSE 1888T=V*N+13 1890ENDIF 1900ENDIF 1910EXEC CONV(RESUL$,TVN(T),3) 1920PRINT RESUL$;" ";PICT$(N);":";TAB(32);LINE$ 1930ELSE 1940PRINT PICT$(N);": ";LINE$ 1945ENDIF 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<7 THEN 2120T=27+N 2130ELSE 2132IF N>W THEN 2134T=33+N 2136ELSE 2138T=V*N+13 2140ENDIF 2150ENDIF 2160EXEC CONV(RESUL$,TVN(T),3) 2170PRINT RESUL$;" ";PICT$(N);":"; 2175CURSOR 32,Y(N) 2180ELSE 2190PRINT PICT$(N);": "; 2200ENDIF 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(38);"INDHOLD" 2400ELSE 2410IF N>G THEN 2420IF N<7 THEN 2430T=27+N 2440ELSE 2442IF N>W THEN 2444T=33+N 2446ELSE 2448T=V*N+13 2450ENDIF 2460ENDIF 2470EXEC CONV(RESUL$,TVN(T),3) 2480PRINT RESUL$;" ";PICT$(N);":";TAB(32);LINE$ 2490ELSE 2500PRINT PICT$(N);": ";LINE$; 2505ENDIF 2510ENDIF 2520ENDPROC 2530A=12 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 A 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" 2760PICT$(V)="Timer ialt" 2770PICT$(4)="Ferieberett løn" 2830PICT$(5)="Sygedagpenge" 2840PICT$(6)="Ferietillæg" 2860PICT$(7)="Trækpligtig A-indk" 2870PICT$(8)="Trækfri A-indk" 2871PICT$(W)="A-skat" 2872PICT$(10)="ATP" 2873PICT$(11)="Feriedage" 2874PICT$(12)="Pensionsbidrag" 2880OUTP=B 2890PROC INDTÆL(N) 2900J=W*(N-E) 2910FOR K=6 TO W 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 " Å R S - O P G Ø R E L S E" 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<13) 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=15 TO 72 3664PRINT 3666NEXT 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$ 3780CHAIN "P641210:STARTB"
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…00ea Line {l1=0x18, l2=»0130TAH$=" 0+" «, l3=0x18}
0x00ea…0111 Line {l1=0x25, l2=»0140PROC TUD(BLB4,UBLB2,TEGN2,STØR2) «, l3=0x25}
0x0111…0123 Line {l1=0x10, l2=»0150BLB3$=BLB4$ «, l3=0x10}
0x0123…0148 Line {l1=0x23, l2=»0160EXEC CALC(5,BLB3$,TAH$,UBLB2$) «, l3=0x23}
0x0148…0172 Line {l1=0x28, l2=»0170IF TEGN2=B THEN UBLB2$=UBLB2$(E:13) «, l3=0x28}
0x0172…01bc Line {l1=0x48, l2=»0180IF TEGN2=E AND UBLB2$(LEN(UBLB2$))="+" THEN UBLB2$(LEN(UBLB2$))=" " «, l3=0x48}
0x01bc…01f1 Line {l1=0x33, l2=»0190IF STØR2=E THEN UBLB2$=UBLB2$(4:LEN(UBLB2$)-V) «, l3=0x33}
0x01f1…0200 Line {l1=0x0d, l2=»0200ENDPROC «, l3=0x0d}
0x0200…021e Line {l1=0x1c, l2=»0210PROC CALC(AR3,B1,B2,ES) «, l3=0x1c}
0x021e…025d Line {l1=0x3d, l2=»0220RES$=ES$;OP1$=B1$;OP2$=B2$;SI=B;FLAG=B;ART=AR3-6*(AR3>5) «, l3=0x3d}
0x025d…0277 Line {l1=0x18, l2=»0230CALL "P641210:REGN" «, l3=0x18}
0x0277…028c Line {l1=0x13, l2=»0240IF AR3<6 THEN «, l3=0x13}
0x028c…02a5 Line {l1=0x17, l2=»0250IF FLAG THEN STOP «, l3=0x17}
0x02a5…02b2 Line {l1=0x0b, l2=»0260ENDIF «, l3=0x0b}
0x02b2…02c1 Line {l1=0x0d, l2=»0270ES$=RES$ «, l3=0x0d}
0x02c1…02d0 Line {l1=0x0d, l2=»0280ENDPROC «, l3=0x0d}
0x02d0…02ee Line {l1=0x1c, l2=»0290FIL$="P641220:VIRKKART" «, l3=0x1c}
0x02ee…0301 Line {l1=0x11, l2=»0300EXEC INDVIRK «, l3=0x11}
0x0301…0312 Line {l1=0x0f, l2=»0310CLOSE FIL$ «, l3=0x0f}
0x0312…0330 Line {l1=0x1c, l2=»0320FIL$="P641220:LØNMODRG" «, l3=0x1c}
0x0330…034f Line {l1=0x1d, l2=»0330FIL2$="P641220:TÆLLEREG" «, l3=0x1d}
0x034f…0361 Line {l1=0x10, l2=»0340OPEN FIL$,R «, l3=0x10}
0x0361…037b Line {l1=0x18, l2=»0350EXEC FEJL(B,B,FIL$) «, l3=0x18}
0x037b…038e Line {l1=0x11, l2=»0360OPEN FIL2$,W «, l3=0x11}
0x038e…03a9 Line {l1=0x19, l2=»0370EXEC FEJL(B,B,FIL2$) «, l3=0x19}
0x03a9…03bd Line {l1=0x12, l2=»0380PROC UDTÆL(N) «, l3=0x12}
0x03bd…03cd Line {l1=0x0e, l2=»0390J=W*(N-E) «, l3=0x0e}
0x03cd…03e0 Line {l1=0x11, l2=»0400FOR K=6 TO W «, l3=0x11}
0x03e0…03f3 Line {l1=0x11, l2=»0410FOR I=E TO 5 «, l3=0x11}
0x03f3…041e Line {l1=0x29, l2=»0420POST5$((I-E)*11+E:11)=TV$((K-E)*5+I) «, l3=0x29}
0x041e…042b Line {l1=0x0b, l2=»0430NEXT I «, l3=0x0b}
0x042b…0446 Line {l1=0x19, l2=»0440PUT FIL2$,J+K:POST5$ «, l3=0x19}
0x0446…0453 Line {l1=0x0b, l2=»0450NEXT K «, l3=0x0b}
0x0453…0470 Line {l1=0x1b, l2=»0460EXEC FEJL(-N,-K,FIL2$) «, l3=0x1b}
0x0470…047f Line {l1=0x0d, l2=»0470ENDPROC «, l3=0x0d}
0x047f…048e Line {l1=0x0d, l2=»0480TVN(E)=E «, l3=0x0d}
0x048e…049d Line {l1=0x0d, l2=»0490TVN(G)=G «, l3=0x0d}
0x049d…04ac Line {l1=0x0d, l2=»0500TVN(V)=V «, l3=0x0d}
0x04ac…04bb Line {l1=0x0d, l2=»0510TVN(4)=4 «, l3=0x0d}
0x04bb…04ca Line {l1=0x0d, l2=»0520TVN(5)=5 «, l3=0x0d}
0x04ca…04d9 Line {l1=0x0d, l2=»0530TVN(6)=7 «, l3=0x0d}
0x04d9…04e8 Line {l1=0x0d, l2=»0540TVN(7)=8 «, l3=0x0d}
0x04e8…04f7 Line {l1=0x0d, l2=»0550TVN(8)=W «, l3=0x0d}
0x04f7…0507 Line {l1=0x0e, l2=»0560TVN(W)=10 «, l3=0x0e}
0x0507…0518 Line {l1=0x0f, l2=»0570TVN(10)=11 «, l3=0x0f}
0x0518…0529 Line {l1=0x0f, l2=»0580TVN(11)=12 «, l3=0x0f}
0x0529…053a Line {l1=0x0f, l2=»0590TVN(12)=13 «, l3=0x0f}
0x053a…054b Line {l1=0x0f, l2=»0600TVN(13)=14 «, l3=0x0f}
0x054b…055c Line {l1=0x0f, l2=»0610TVN(14)=15 «, l3=0x0f}
0x055c…056d Line {l1=0x0f, l2=»0620TVN(15)=16 «, l3=0x0f}
0x056d…057f Line {l1=0x10, l2=»0630TVN(16)=112 «, l3=0x10}
0x057f…0591 Line {l1=0x10, l2=»0640TVN(17)=113 «, l3=0x10}
0x0591…05a3 Line {l1=0x10, l2=»0650TVN(18)=313 «, l3=0x10}
0x05a3…05b5 Line {l1=0x10, l2=»0660TVN(19)=413 «, l3=0x10}
0x05b5…05c7 Line {l1=0x10, l2=»0670TVN(20)=115 «, l3=0x10}
0x05c7…05d9 Line {l1=0x10, l2=»0680TVN(21)=315 «, l3=0x10}
0x05d9…05eb Line {l1=0x10, l2=»0690TVN(22)=415 «, l3=0x10}
0x05eb…05fd Line {l1=0x10, l2=»0700TVN(23)=116 «, l3=0x10}
0x05fd…060f Line {l1=0x10, l2=»0710TVN(24)=316 «, l3=0x10}
0x060f…0621 Line {l1=0x10, l2=»0720TVN(25)=416 «, l3=0x10}
0x0621…0633 Line {l1=0x10, l2=»0730TVN(26)=117 «, l3=0x10}
0x0633…0645 Line {l1=0x10, l2=»0740TVN(27)=317 «, l3=0x10}
0x0645…0657 Line {l1=0x10, l2=»0750TVN(28)=417 «, l3=0x10}
0x0657…0669 Line {l1=0x10, l2=»0760TVN(29)=123 «, l3=0x10}
0x0669…067b Line {l1=0x10, l2=»0770TVN(30)=206 «, l3=0x10}
0x067b…068d Line {l1=0x10, l2=»0780TVN(31)=212 «, l3=0x10}
0x068d…069f Line {l1=0x10, l2=»0790TVN(32)=214 «, l3=0x10}
0x069f…06b1 Line {l1=0x10, l2=»0800TVN(33)=218 «, l3=0x10}
0x06b1…06c3 Line {l1=0x10, l2=»0810TVN(34)=219 «, l3=0x10}
0x06c3…06d5 Line {l1=0x10, l2=»0820TVN(35)=319 «, l3=0x10}
0x06d5…06e7 Line {l1=0x10, l2=»0830TVN(36)=419 «, l3=0x10}
0x06e7…06f9 Line {l1=0x10, l2=»0840TVN(37)=220 «, l3=0x10}
0x06f9…070b Line {l1=0x10, l2=»0850TVN(38)=320 «, l3=0x10}
0x070b…071d Line {l1=0x10, l2=»0860TVN(39)=420 «, l3=0x10}
0x071d…072f Line {l1=0x10, l2=»0870TVN(40)=221 «, l3=0x10}
0x072f…0741 Line {l1=0x10, l2=»0880TVN(41)=321 «, l3=0x10}
0x0741…0753 Line {l1=0x10, l2=»0890TVN(42)=421 «, l3=0x10}
0x0753…0765 Line {l1=0x10, l2=»0900TVN(43)=222 «, l3=0x10}
0x0765…0777 Line {l1=0x10, l2=»0910TVN(44)=223 «, l3=0x10}
0x0777…0789 Line {l1=0x10, l2=»0920TVN(45)=224 «, l3=0x10}
0x0789…07a7 Line {l1=0x1c, l2=»0930PROC CONV(NR2,OK22,CIF) «, l3=0x1c}
0x07a7…07b6 Line {l1=0x0d, l2=»0940OK2=OK22 «, l3=0x0d}
0x07b6…07c4 Line {l1=0x0c, l2=»0950NR2$="" «, l3=0x0c}
0x07c4…07d2 Line {l1=0x0c, l2=»0960REPEAT «, l3=0x0c}
0x07d2…07f7 Line {l1=0x23, l2=»0970NR2$=CHR((OK2 MOD 10)+48)+NR2$ «, l3=0x23}
0x07f7…0807 Line {l1=0x0e, l2=»0980CIF=CIF-E «, l3=0x0e}
0x0807…081c Line {l1=0x13, l2=»0990OK2=OK2 DIV 10 «, l3=0x13}
0x081c…0840 Line {l1=0x22, l2=»1000IF CIF<B AND OK2=B THEN CIF=B «, l3=0x22}
0x0840…0852 Line {l1=0x10, l2=»1010UNTIL CIF=B «, l3=0x10}
0x0852…0861 Line {l1=0x0d, l2=»1020ENDPROC «, l3=0x0d}
0x0861…087b Line {l1=0x18, l2=»1030PROC CHECK(NR1,OK1) «, l3=0x18}
0x087b…0887 Line {l1=0x0a, l2=»1040OK1=B «, l3=0x0a}
0x0887…0896 Line {l1=0x0d, l2=»1050RESULT=B «, l3=0x0d}
0x0896…08b1 Line {l1=0x19, l2=»1060IF LEN(NR1$)>B THEN «, l3=0x19}
0x08b1…08cc Line {l1=0x19, l2=»1070IF NR1$(E)="-" THEN «, l3=0x19}
0x08cc…08dd Line {l1=0x0f, l2=»1080FORTEGN=-E «, l3=0x0f}
0x08dd…08e9 Line {l1=0x0a, l2=»1090OK1=E «, l3=0x0a}
0x08e9…08f5 Line {l1=0x0a, l2=»1100ELSE «, l3=0x0a}
0x08f5…0905 Line {l1=0x0e, l2=»1110FORTEGN=E «, l3=0x0e}
0x0905…0912 Line {l1=0x0b, l2=»1120ENDIF «, l3=0x0b}
0x0912…092c Line {l1=0x18, l2=»1130WHILE LEN(NR1$)>OK1 «, l3=0x18}
0x092c…093c Line {l1=0x0e, l2=»1140OK1=OK1+E «, l3=0x0e}
0x093c…096a Line {l1=0x2c, l2=»1150IF NR1$(OK1)<"0" OR NR1$(OK1)>"9" THEN «, l3=0x2c}
0x096a…097a Line {l1=0x0e, l2=»1160FORTEGN=B «, l3=0x0e}
0x097a…098e Line {l1=0x12, l2=»1170OK1=LEN(NR1$) «, l3=0x12}
0x098e…099b Line {l1=0x0b, l2=»1180ENDIF «, l3=0x0b}
0x099b…09c4 Line {l1=0x27, l2=»1190RESULT=RESULT*10+ORD(NR1$(OK1))-48 «, l3=0x27}
0x09c4…09d4 Line {l1=0x0e, l2=»1200ENDWHILE «, l3=0x0e}
0x09d4…09ea Line {l1=0x14, l2=»1210OK1=OK1*FORTEGN «, l3=0x14}
0x09ea…0a08 Line {l1=0x1c, l2=»1220IF OK1<B THEN OK1=OK1+E «, l3=0x1c}
0x0a08…0a15 Line {l1=0x0b, l2=»1230ENDIF «, l3=0x0b}
0x0a15…0a24 Line {l1=0x0d, l2=»1240ENDPROC «, l3=0x0d}
0x0a24…0a3a Line {l1=0x14, l2=»1250PROC INOPL(OPL) «, l3=0x14}
0x0a3a…0a51 Line {l1=0x15, l2=»1260EXEC INLINE(OPL) «, l3=0x15}
0x0a51…0a64 Line {l1=0x11, l2=»1270CASE OPL OF «, l3=0x11}
0x0a64…0a71 Line {l1=0x0b, l2=»1280WHEN E «, l3=0x0b}
0x0a71…0a83 Line {l1=0x10, l2=»1290LMNR=RESULT «, l3=0x10}
0x0a83…0aa5 Line {l1=0x20, l2=»1300WHEN V,4,5,6,7,8,W,10,11,12 «, l3=0x20}
0x0aa5…0ab3 Line {l1=0x0c, l2=»1310REPEAT «, l3=0x0c}
0x0ab3…0ac9 Line {l1=0x14, l2=»1320LINE$=LINE$+"+" «, l3=0x14}
0x0ac9…0aee Line {l1=0x23, l2=»1330EXEC CALC(6,LINE$,TAH$,RESUL$) «, l3=0x23}
0x0aee…0b15 Line {l1=0x25, l2=»1340IF FLAG<>B THEN EXEC INLINE(OPL) «, l3=0x25}
0x0b15…0b28 Line {l1=0x11, l2=»1350UNTIL FLAG=B «, l3=0x11}
0x0b28…0b4d Line {l1=0x23, l2=»1355EXEC CALC(B,LINE$,TAH$,RESUL$) «, l3=0x23}
0x0b4d…0b60 Line {l1=0x11, l2=»1360CASE OPL OF «, l3=0x11}
0x0b60…0b7c Line {l1=0x1a, l2=»1362WHEN V,4,5,6,10,11,12 «, l3=0x1a}
0x0b7c…0b91 Line {l1=0x13, l2=»1364IF OPL<7 THEN «, l3=0x13}
0x0b91…0ba0 Line {l1=0x0d, l2=»1366T=27+OPL «, l3=0x0d}
0x0ba0…0bac Line {l1=0x0a, l2=»1368ELSE «, l3=0x0a}
0x0bac…0bbb Line {l1=0x0d, l2=»1370T=33+OPL «, l3=0x0d}
0x0bbb…0bc8 Line {l1=0x0b, l2=»1372ENDIF «, l3=0x0b}
0x0bc8…0bd9 Line {l1=0x0f, l2=»1374WHEN 7,8,W «, l3=0x0f}
0x0bd9…0bea Line {l1=0x0f, l2=»1376T=OPL*V+13 «, l3=0x0f}
0x0bea…0bfb Line {l1=0x0f, l2=»1378PR$=TV$(T) «, l3=0x0f}
0x0bfb…0c10 Line {l1=0x13, l2=»1380LINE$=TV$(T+E) «, l3=0x13}
0x0c10…0c35 Line {l1=0x23, l2=»1382EXEC CALC(B,PR$,LINE$,RESUL1$) «, l3=0x23}
0x0c35…0c52 Line {l1=0x1b, l2=»1384TV$(T+E)=RESUL1$(G:11) «, l3=0x1b}
0x0c52…0c67 Line {l1=0x13, l2=»1386LINE$=TV$(T+G) «, l3=0x13}
0x0c67…0c8f Line {l1=0x26, l2=»1388EXEC CALC(B,RESUL$,LINE$,RESUL1$) «, l3=0x26}
0x0c8f…0cac Line {l1=0x1b, l2=»1390TV$(T+G)=RESUL1$(G:11) «, l3=0x1b}
0x0cac…0cbb Line {l1=0x0d, l2=»1392ENDCASE «, l3=0x0d}
0x0cbb…0cd5 Line {l1=0x18, l2=»1410TV$(T)=RESUL$(G:11) «, l3=0x18}
0x0cd5…0ce4 Line {l1=0x0d, l2=»1430ENDCASE «, l3=0x0d}
0x0ce4…0cf3 Line {l1=0x0d, l2=»1440ENDPROC «, l3=0x0d}
0x0cf3…0d07 Line {l1=0x12, l2=»1450PROC SKRIVOPL «, l3=0x12}
0x0d07…0d23 Line {l1=0x1a, l2=»1460IF OUTP=B THEN CLEAR «, l3=0x1a}
0x0d23…0d6f 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}
0x0d6f…0dac Line {l1=0x3b, l2=»1480PRINT "Å R S - O P G Ø R E L S E";TAB(60);"Dato ";DAD$ «, l3=0x3b}
0x0dac…0dbf Line {l1=0x11, l2=»1490FOR J=E TO A «, l3=0x11}
0x0dbf…0dd0 Line {l1=0x0f, l2=»1500CASE J OF «, l3=0x0f}
0x0dd0…0ddd Line {l1=0x0b, l2=»1510WHEN E «, l3=0x0b}
0x0ddd…0dfb Line {l1=0x1c, l2=»1520EXEC CONV(LINE$,LMNR,0) «, l3=0x1c}
0x0dfb…0e08 Line {l1=0x0b, l2=»1530WHEN G «, l3=0x0b}
0x0e08…0e21 Line {l1=0x17, l2=»1540LINE$=POST1$(E,25) «, l3=0x17}
0x0e21…0e43 Line {l1=0x20, l2=»1550WHEN V,4,5,6,7,8,W,10,11,12 «, l3=0x20}
0x0e43…0e56 Line {l1=0x11, l2=»1560IF J<7 THEN «, l3=0x11}
0x0e56…0e63 Line {l1=0x0b, l2=»1570T=27+J «, l3=0x0b}
0x0e63…0e6f Line {l1=0x0a, l2=»1580ELSE «, l3=0x0a}
0x0e6f…0e82 Line {l1=0x11, l2=»1582IF J>W THEN «, l3=0x11}
0x0e82…0e8f Line {l1=0x0b, l2=»1584T=33+J «, l3=0x0b}
0x0e8f…0e9b Line {l1=0x0a, l2=»1586ELSE «, l3=0x0a}
0x0e9b…0eaa Line {l1=0x0d, l2=»1588T=V*J+13 «, l3=0x0d}
0x0eaa…0eb7 Line {l1=0x0b, l2=»1590ENDIF «, l3=0x0b}
0x0eb7…0ec4 Line {l1=0x0b, l2=»1600ENDIF «, l3=0x0b}
0x0ec4…0ed8 Line {l1=0x12, l2=»1610RESUL$=TV$(T) «, l3=0x12}
0x0ed8…0ef7 Line {l1=0x1d, l2=»1620EXEC TUD(RESUL$,PR$,E,B) «, l3=0x1d}
0x0ef7…0f07 Line {l1=0x0e, l2=»1630LINE$=PR$ «, l3=0x0e}
0x0f07…0f16 Line {l1=0x0d, l2=»1700ENDCASE «, l3=0x0d}
0x0f16…0f2c Line {l1=0x14, l2=»1710IF OUTP=B THEN «, l3=0x14}
0x0f2c…0f42 Line {l1=0x14, l2=»1720EXEC OUTLINE(J) «, l3=0x14}
0x0f42…0f4e Line {l1=0x0a, l2=»1730ELSE «, l3=0x0a}
0x0f4e…0f65 Line {l1=0x15, l2=»1740EXEC OUTPLINE(J) «, l3=0x15}
0x0f65…0f72 Line {l1=0x0b, l2=»1750ENDIF «, l3=0x0b}
0x0f72…0f7f Line {l1=0x0b, l2=»1760NEXT J «, l3=0x0b}
0x0f7f…0f8e Line {l1=0x0d, l2=»1770ENDPROC «, l3=0x0d}
0x0f8e…0fa4 Line {l1=0x14, l2=»1780PROC OUTLINE(N) «, l3=0x14}
0x0fa4…0fbb Line {l1=0x15, l2=»1790CURSOR X(N),Y(N) «, l3=0x15}
0x0fbb…0fd7 Line {l1=0x1a, l2=»1800PRINT USING "### ":N; «, l3=0x1a}
0x0fd7…0fea Line {l1=0x11, l2=»1810IF N=G THEN «, l3=0x11}
0x0fea…1009 Line {l1=0x1d, l2=»1820PRINT PICT$(N);":";LINE$ «, l3=0x1d}
0x1009…1039 Line {l1=0x2e, l2=»1830PRINT TAB(6);"TV TEKST";TAB(38);"INDHOLD" «, l3=0x2e}
0x1039…1045 Line {l1=0x0a, l2=»1840ELSE «, l3=0x0a}
0x1045…1058 Line {l1=0x11, l2=»1850IF N>G THEN «, l3=0x11}
0x1058…106b Line {l1=0x11, l2=»1860IF N<7 THEN «, l3=0x11}
0x106b…1078 Line {l1=0x0b, l2=»1870T=27+N «, l3=0x0b}
0x1078…1084 Line {l1=0x0a, l2=»1880ELSE «, l3=0x0a}
0x1084…1097 Line {l1=0x11, l2=»1882IF N>W THEN «, l3=0x11}
0x1097…10a4 Line {l1=0x0b, l2=»1884T=33+N «, l3=0x0b}
0x10a4…10b0 Line {l1=0x0a, l2=»1886ELSE «, l3=0x0a}
0x10b0…10bf Line {l1=0x0d, l2=»1888T=V*N+13 «, l3=0x0d}
0x10bf…10cc Line {l1=0x0b, l2=»1890ENDIF «, l3=0x0b}
0x10cc…10d9 Line {l1=0x0b, l2=»1900ENDIF «, l3=0x0b}
0x10d9…10fa Line {l1=0x1f, l2=»1910EXEC CONV(RESUL$,TVN(T),3) «, l3=0x1f}
0x10fa…112c Line {l1=0x30, l2=»1920PRINT RESUL$;" ";PICT$(N);":";TAB(32);LINE$ «, l3=0x30}
0x112c…1138 Line {l1=0x0a, l2=»1930ELSE «, l3=0x0a}
0x1138…1158 Line {l1=0x1e, l2=»1940PRINT PICT$(N);": ";LINE$ «, l3=0x1e}
0x1158…1165 Line {l1=0x0b, l2=»1945ENDIF «, l3=0x0b}
0x1165…1172 Line {l1=0x0b, l2=»1950ENDIF «, l3=0x0b}
0x1172…1181 Line {l1=0x0d, l2=»1960ENDPROC «, l3=0x0d}
0x1181…119b Line {l1=0x18, l2=»1970PROC FEJL(P1,P2,P3) «, l3=0x18}
0x119b…11b9 Line {l1=0x1c, l2=»1980IF STATUS(P3$)<>B THEN «, l3=0x1c}
0x11b9…11c8 Line {l1=0x0d, l2=»1990OUTPUT T «, l3=0x0d}
0x11c8…11f6 Line {l1=0x2c, l2=»2000PRINT "FIL-FEJL ";P3$;STATUS(P3$),P1;P2 «, l3=0x2c}
0x11f6…1202 Line {l1=0x0a, l2=»2010STOP «, l3=0x0a}
0x1202…120f Line {l1=0x0b, l2=»2020ENDIF «, l3=0x0b}
0x120f…121e Line {l1=0x0d, l2=»2030ENDPROC «, l3=0x0d}
0x121e…1233 Line {l1=0x13, l2=»2040PROC INLINE(N) «, l3=0x13}
0x1233…1241 Line {l1=0x0c, l2=»2050REPEAT «, l3=0x0c}
0x1241…1256 Line {l1=0x13, l2=»2060CURSOR 32,Y(N) «, l3=0x13}
0x1256…1278 Line {l1=0x20, l2=»2070PRINT BL$(E:ABS(TYPE(N))+6) «, l3=0x20}
0x1278…128f Line {l1=0x15, l2=»2080CURSOR X(N),Y(N) «, l3=0x15}
0x128f…12ab Line {l1=0x1a, l2=»2090PRINT USING "### ":N; «, l3=0x1a}
0x12ab…12be Line {l1=0x11, l2=»2100IF N>G THEN «, l3=0x11}
0x12be…12d1 Line {l1=0x11, l2=»2110IF N<7 THEN «, l3=0x11}
0x12d1…12de Line {l1=0x0b, l2=»2120T=27+N «, l3=0x0b}
0x12de…12ea Line {l1=0x0a, l2=»2130ELSE «, l3=0x0a}
0x12ea…12fd Line {l1=0x11, l2=»2132IF N>W THEN «, l3=0x11}
0x12fd…130a Line {l1=0x0b, l2=»2134T=33+N «, l3=0x0b}
0x130a…1316 Line {l1=0x0a, l2=»2136ELSE «, l3=0x0a}
0x1316…1325 Line {l1=0x0d, l2=»2138T=V*N+13 «, l3=0x0d}
0x1325…1332 Line {l1=0x0b, l2=»2140ENDIF «, l3=0x0b}
0x1332…133f Line {l1=0x0b, l2=»2150ENDIF «, l3=0x0b}
0x133f…1360 Line {l1=0x1f, l2=»2160EXEC CONV(RESUL$,TVN(T),3) «, l3=0x1f}
0x1360…1385 Line {l1=0x23, l2=»2170PRINT RESUL$;" ";PICT$(N);":"; «, l3=0x23}
0x1385…139a Line {l1=0x13, l2=»2175CURSOR 32,Y(N) «, l3=0x13}
0x139a…13a6 Line {l1=0x0a, l2=»2180ELSE «, l3=0x0a}
0x13a6…13c1 Line {l1=0x19, l2=»2190PRINT PICT$(N);": "; «, l3=0x19}
0x13c1…13ce Line {l1=0x0b, l2=»2200ENDIF «, l3=0x0b}
0x13ce…13e3 Line {l1=0x13, l2=»2210INPUT "",LINE$ «, l3=0x13}
0x13e3…13fc Line {l1=0x17, l2=»2220IF TYPE(N)<B THEN «, l3=0x17}
0x13fc…1424 Line {l1=0x26, l2=»2230IF LEN(LINE$)<=ABS(TYPE(N)) THEN «, l3=0x26}
0x1424…142f Line {l1=0x09, l2=»2240OK=E «, l3=0x09}
0x142f…143b Line {l1=0x0a, l2=»2250ELSE «, l3=0x0a}
0x143b…1446 Line {l1=0x09, l2=»2260OK=B «, l3=0x09}
0x1446…1453 Line {l1=0x0b, l2=»2270ENDIF «, l3=0x0b}
0x1453…145f Line {l1=0x0a, l2=»2280ELSE «, l3=0x0a}
0x145f…147a Line {l1=0x19, l2=»2290EXEC CHECK(LINE$,OK) «, l3=0x19}
0x147a…14a7 Line {l1=0x2b, l2=»2300IF TYPE(N)>B AND TYPE(N)<>OK THEN OK=B «, l3=0x2b}
0x14a7…14b4 Line {l1=0x0b, l2=»2310ENDIF «, l3=0x0b}
0x14b4…14c6 Line {l1=0x10, l2=»2320UNTIL OK<>B «, l3=0x10}
0x14c6…14d5 Line {l1=0x0d, l2=»2330ENDPROC «, l3=0x0d}
0x14d5…14ec Line {l1=0x15, l2=»2340PROC OUTPLINE(N) «, l3=0x15}
0x14ec…1503 Line {l1=0x15, l2=»2350PRINT TAB(X(N)); «, l3=0x15}
0x1503…151f Line {l1=0x1a, l2=»2360PRINT USING "### ":N; «, l3=0x1a}
0x151f…1532 Line {l1=0x11, l2=»2370IF N=G THEN «, l3=0x11}
0x1532…1551 Line {l1=0x1d, l2=»2380PRINT PICT$(N);":";LINE$ «, l3=0x1d}
0x1551…1581 Line {l1=0x2e, l2=»2390PRINT TAB(6);"TV TEKST";TAB(38);"INDHOLD" «, l3=0x2e}
0x1581…158d Line {l1=0x0a, l2=»2400ELSE «, l3=0x0a}
0x158d…15a0 Line {l1=0x11, l2=»2410IF N>G THEN «, l3=0x11}
0x15a0…15b3 Line {l1=0x11, l2=»2420IF N<7 THEN «, l3=0x11}
0x15b3…15c0 Line {l1=0x0b, l2=»2430T=27+N «, l3=0x0b}
0x15c0…15cc Line {l1=0x0a, l2=»2440ELSE «, l3=0x0a}
0x15cc…15df Line {l1=0x11, l2=»2442IF N>W THEN «, l3=0x11}
0x15df…15ec Line {l1=0x0b, l2=»2444T=33+N «, l3=0x0b}
0x15ec…15f8 Line {l1=0x0a, l2=»2446ELSE «, l3=0x0a}
0x15f8…1607 Line {l1=0x0d, l2=»2448T=V*N+13 «, l3=0x0d}
0x1607…1614 Line {l1=0x0b, l2=»2450ENDIF «, l3=0x0b}
0x1614…1621 Line {l1=0x0b, l2=»2460ENDIF «, l3=0x0b}
0x1621…1642 Line {l1=0x1f, l2=»2470EXEC CONV(RESUL$,TVN(T),3) «, l3=0x1f}
0x1642…1674 Line {l1=0x30, l2=»2480PRINT RESUL$;" ";PICT$(N);":";TAB(32);LINE$ «, l3=0x30}
0x1674…1680 Line {l1=0x0a, l2=»2490ELSE «, l3=0x0a}
0x1680…16a1 Line {l1=0x1f, l2=»2500PRINT PICT$(N);": ";LINE$; «, l3=0x1f}
0x16a1…16ae Line {l1=0x0b, l2=»2505ENDIF «, l3=0x0b}
0x16ae…16bb Line {l1=0x0b, l2=»2510ENDIF «, l3=0x0b}
0x16bb…16ca Line {l1=0x0d, l2=»2520ENDPROC «, l3=0x0d}
0x16ca…16d5 Line {l1=0x09, l2=»2530A=12 «, l3=0x09}
0x16d5…16fd Line {l1=0x26, l2=»2540DIM X(A),Y(A),PICT$(A,20),TYPE(A) «, l3=0x26}
0x16fd…1719 Line {l1=0x1a, l2=»2550DIM BL$(79),LINE$(30) «, l3=0x1a}
0x1719…172d Line {l1=0x12, l2=»2560FOR I=E TO 79 «, l3=0x12}
0x172d…173f Line {l1=0x10, l2=»2570BL$=BL$+" " «, l3=0x10}
0x173f…174c Line {l1=0x0b, l2=»2580NEXT I «, l3=0x0b}
0x174c…1759 Line {l1=0x0b, l2=»2590X(E)=E «, l3=0x0b}
0x1759…1767 Line {l1=0x0c, l2=»2600X(G)=36 «, l3=0x0c}
0x1767…177a Line {l1=0x11, l2=»2610FOR I=V TO A «, l3=0x11}
0x177a…1787 Line {l1=0x0b, l2=»2620X(I)=E «, l3=0x0b}
0x1787…1796 Line {l1=0x0d, l2=»2630Y(I)=I+G «, l3=0x0d}
0x1796…17a8 Line {l1=0x10, l2=»2640TYPE(I)=-11 «, l3=0x10}
0x17a8…17b5 Line {l1=0x0b, l2=»2650NEXT I «, l3=0x0b}
0x17b5…17c2 Line {l1=0x0b, l2=»2660Y(E)=V «, l3=0x0b}
0x17c2…17cf Line {l1=0x0b, l2=»2670Y(G)=V «, l3=0x0b}
0x17cf…17df Line {l1=0x0e, l2=»2680TYPE(E)=B «, l3=0x0e}
0x17df…17ef Line {l1=0x0e, l2=»2690TYPE(G)=B «, l3=0x0e}
0x17ef…1806 Line {l1=0x15, l2=»2700PICT$(E)="Lønnr" «, l3=0x15}
0x1806…181c Line {l1=0x14, l2=»2710PICT$(G)="Navn" «, l3=0x14}
0x181c…1838 Line {l1=0x1a, l2=»2760PICT$(V)="Timer ialt" «, l3=0x1a}
0x1838…1859 Line {l1=0x1f, l2=»2770PICT$(4)="Ferieberett løn" «, l3=0x1f}
0x1859…1877 Line {l1=0x1c, l2=»2830PICT$(5)="Sygedagpenge" «, l3=0x1c}
0x1877…1894 Line {l1=0x1b, l2=»2840PICT$(6)="Ferietillæg" «, l3=0x1b}
0x1894…18b8 Line {l1=0x22, l2=»2860PICT$(7)="Trækpligtig A-indk" «, l3=0x22}
0x18b8…18d8 Line {l1=0x1e, l2=»2870PICT$(8)="Trækfri A-indk" «, l3=0x1e}
0x18d8…18f0 Line {l1=0x16, l2=»2871PICT$(W)="A-skat" «, l3=0x16}
0x18f0…1906 Line {l1=0x14, l2=»2872PICT$(10)="ATP" «, l3=0x14}
0x1906…1922 Line {l1=0x1a, l2=»2873PICT$(11)="Feriedage" «, l3=0x1a}
0x1922…1943 Line {l1=0x1f, l2=»2874PICT$(12)="Pensionsbidrag" «, l3=0x1f}
0x1943…1950 Line {l1=0x0b, l2=»2880OUTP=B «, l3=0x0b}
0x1950…1965 Line {l1=0x13, l2=»2890PROC INDTÆL(N) «, l3=0x13}
0x1965…1975 Line {l1=0x0e, l2=»2900J=W*(N-E) «, l3=0x0e}
0x1975…1988 Line {l1=0x11, l2=»2910FOR K=6 TO W «, l3=0x11}
0x1988…19a3 Line {l1=0x19, l2=»2920GET FIL2$,J+K:POST5$ «, l3=0x19}
0x19a3…19b6 Line {l1=0x11, l2=»2930FOR I=E TO 5 «, l3=0x11}
0x19b6…19e1 Line {l1=0x29, l2=»2940TV$((K-E)*5+I)=POST5$((I-E)*11+E:11) «, l3=0x29}
0x19e1…19ee Line {l1=0x0b, l2=»2950NEXT I «, l3=0x0b}
0x19ee…19fb Line {l1=0x0b, l2=»2960NEXT K «, l3=0x0b}
0x19fb…1a16 Line {l1=0x19, l2=»2970EXEC FEJL(N,K,FIL2$) «, l3=0x19}
0x1a16…1a25 Line {l1=0x0d, l2=»2980ENDPROC «, l3=0x0d}
0x1a25…1a3c Line {l1=0x15, l2=»2990PROC INLØNMOD(N) «, l3=0x15}
0x1a3c…1a58 Line {l1=0x1a, l2=»3000GET FIL$,G*N-E:POST1$ «, l3=0x1a}
0x1a58…1a94 Line {l1=0x3a, l2=»3010GET FIL$,G*N:POST2$,C1,C2,LT,LF,LR,LA,RPI,K1,K2,FG,FD «, l3=0x3a}
0x1a94…1aae Line {l1=0x18, l2=»3020EXEC FEJL(E,N,FIL$) «, l3=0x18}
0x1aae…1abd Line {l1=0x0d, l2=»3030ENDPROC «, l3=0x0d}
0x1abd…1ad0 Line {l1=0x11, l2=»3040PROC INDVIRK «, l3=0x11}
0x1ad0…1ae2 Line {l1=0x10, l2=»3050OPEN FIL$,W «, l3=0x10}
0x1ae2…1afc Line {l1=0x18, l2=»3060EXEC FEJL(B,B,FIL$) «, l3=0x18}
0x1afc…1b14 Line {l1=0x16, l2=»3070GET FIL$,E:POST3$ «, l3=0x16}
0x1b14…1b3e Line {l1=0x28, l2=»3080GET FIL$,G:POST4$,SLJNR,MLMNR,ATPLM «, l3=0x28}
0x1b3e…1b54 Line {l1=0x14, l2=»3085GET FIL$,V:DAD$ «, l3=0x14}
0x1b54…1b63 Line {l1=0x0d, l2=»3090ENDPROC «, l3=0x0d}
0x1b63…1b71 Line {l1=0x0c, l2=»3100REPEAT «, l3=0x0c}
0x1b71…1b7c Line {l1=0x09, l2=»3110SV=G «, l3=0x09}
0x1b7c…1b89 Line {l1=0x0b, l2=»3120CLEAR «, l3=0x0b}
0x1b89…1b9c Line {l1=0x11, l2=»3130CURSOR 10,10 «, l3=0x11}
0x1b9c…1be8 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}
0x1be8…1c19 Line {l1=0x2f, l2=»3150PRINT " Å R S - O P G Ø R E L S E" «, l3=0x2f}
0x1c19…1c26 Line {l1=0x0b, l2=»3160PRINT «, l3=0x0b}
0x1c26…1c45 Line {l1=0x1d, l2=»3170PRINT TAB(10);"0 Færdig" «, l3=0x1d}
0x1c45…1c65 Line {l1=0x1e, l2=»3180PRINT TAB(10);"1 Ændring" «, l3=0x1e}
0x1c65…1c8f Line {l1=0x28, l2=»3190PRINT TAB(10);"2 Udskrift på skærm" «, l3=0x28}
0x1c8f…1cbb Line {l1=0x2a, l2=»3200PRINT TAB(10);"3 Udskrift på printer" «, l3=0x2a}
0x1cbb…1cc8 Line {l1=0x0b, l2=»3210PRINT «, l3=0x0b}
0x1cc8…1cd6 Line {l1=0x0c, l2=»3220REPEAT «, l3=0x0c}
0x1cd6…1ce8 Line {l1=0x10, l2=»3230CURSOR E,18 «, l3=0x10}
0x1ce8…1d03 Line {l1=0x19, l2=»3240EDIT " ",SV «, l3=0x19}
0x1d03…1d1f Line {l1=0x1a, l2=»3250UNTIL SV=>B AND SV<=V «, l3=0x1a}
0x1d1f…1d33 Line {l1=0x12, l2=»3260IF SV>B THEN «, l3=0x12}
0x1d33…1d41 Line {l1=0x0c, l2=»3270REPEAT «, l3=0x0c}
0x1d41…1d55 Line {l1=0x12, l2=»3280EXEC INOPL(1) «, l3=0x12}
0x1d55…1d79 Line {l1=0x22, l2=»3290UNTIL LMNR=>B AND LMNR<=MLMNR «, l3=0x22}
0x1d79…1d87 Line {l1=0x0c, l2=»3291LISTE=B «, l3=0x0c}
0x1d87…1da4 Line {l1=0x1b, l2=»3292IF LMNR=B THEN LISTE=E «, l3=0x1b}
0x1da4…1db2 Line {l1=0x0c, l2=»3295REPEAT «, l3=0x0c}
0x1db2…1dd4 Line {l1=0x20, l2=»3296IF LISTE=E THEN LMNR=LMNR+E «, l3=0x20}
0x1dd4…1dee Line {l1=0x18, l2=»3300EXEC INLØNMOD(LMNR) «, l3=0x18}
0x1dee…1e00 Line {l1=0x10, l2=»3310CASE SV OF «, l3=0x10}
0x1e00…1e0d Line {l1=0x0b, l2=»3320WHEN E «, l3=0x0b}
0x1e0d…1e22 Line {l1=0x13, l2=»3330IF LA<>B THEN «, l3=0x13}
0x1e22…1e3a Line {l1=0x16, l2=»3340EXEC INDTÆL(LMNR) «, l3=0x16}
0x1e3a…1e4e Line {l1=0x12, l2=»3350EXEC SKRIVOPL «, l3=0x12}
0x1e4e…1e5c Line {l1=0x0c, l2=»3360REPEAT «, l3=0x0c}
0x1e5c…1e6a Line {l1=0x0c, l2=»3370REPEAT «, l3=0x0c}
0x1e6a…1e76 Line {l1=0x0a, l2=»3380SV1=B «, l3=0x0a}
0x1e76…1e88 Line {l1=0x10, l2=»3390CURSOR E,23 «, l3=0x10}
0x1e88…1ea1 Line {l1=0x17, l2=»3400EDIT "Feltnr ",SV1 «, l3=0x17}
0x1ea1…1ec9 Line {l1=0x26, l2=»3410UNTIL SV1=B OR (SV1>G AND SV1<13) «, l3=0x26}
0x1ec9…1ede Line {l1=0x13, l2=»3420IF SV1>B THEN «, l3=0x13}
0x1ede…1ef4 Line {l1=0x14, l2=»3430EXEC INOPL(SV1) «, l3=0x14}
0x1ef4…1f01 Line {l1=0x0b, l2=»3440ENDIF «, l3=0x0b}
0x1f01…1f13 Line {l1=0x10, l2=»3450UNTIL SV1=B «, l3=0x10}
0x1f13…1f2a Line {l1=0x15, l2=»3460EXEC UDTÆL(LMNR) «, l3=0x15}
0x1f2a…1f36 Line {l1=0x0a, l2=»3470ELSE «, l3=0x0a}
0x1f36…1f5c Line {l1=0x24, l2=»3480PRINT "Lønmodtager findes ikke" «, l3=0x24}
0x1f5c…1f77 Line {l1=0x19, l2=»3490INPUT "RETURN",LINE$ «, l3=0x19}
0x1f77…1f84 Line {l1=0x0b, l2=»3500ENDIF «, l3=0x0b}
0x1f84…1f91 Line {l1=0x0b, l2=»3510WHEN G «, l3=0x0b}
0x1f91…1fa6 Line {l1=0x13, l2=»3520IF LA<>B THEN «, l3=0x13}
0x1fa6…1fb3 Line {l1=0x0b, l2=»3530OUTP=B «, l3=0x0b}
0x1fb3…1fcb Line {l1=0x16, l2=»3540EXEC INDTÆL(LMNR) «, l3=0x16}
0x1fcb…1fdf Line {l1=0x12, l2=»3550EXEC SKRIVOPL «, l3=0x12}
0x1fdf…1ffa Line {l1=0x19, l2=»3560INPUT "RETURN",LINE$ «, l3=0x19}
0x1ffa…2006 Line {l1=0x0a, l2=»3570ELSE «, l3=0x0a}
0x2006…202c Line {l1=0x24, l2=»3580PRINT "Lønmodtager findes ikke" «, l3=0x24}
0x202c…2047 Line {l1=0x19, l2=»3590INPUT "RETURN",LINE$ «, l3=0x19}
0x2047…2054 Line {l1=0x0b, l2=»3600ENDIF «, l3=0x0b}
0x2054…2061 Line {l1=0x0b, l2=»3610WHEN V «, l3=0x0b}
0x2061…2081 Line {l1=0x1e, l2=»3620IF LA<>B OR LISTE=E THEN «, l3=0x1e}
0x2081…2096 Line {l1=0x13, l2=»3625IF LA<>B THEN «, l3=0x13}
0x2096…20a5 Line {l1=0x0d, l2=»3630OUTPUT P «, l3=0x0d}
0x20a5…20b2 Line {l1=0x0b, l2=»3640OUTP=E «, l3=0x0b}
0x20b2…20ca Line {l1=0x16, l2=»3650EXEC INDTÆL(LMNR) «, l3=0x16}
0x20ca…20de Line {l1=0x12, l2=»3660EXEC SKRIVOPL «, l3=0x12}
0x20de…20f3 Line {l1=0x13, l2=»3662FOR I=15 TO 72 «, l3=0x13}
0x20f3…2100 Line {l1=0x0b, l2=»3664PRINT «, l3=0x0b}
0x2100…210d Line {l1=0x0b, l2=»3666NEXT I «, l3=0x0b}
0x210d…211a Line {l1=0x0b, l2=»3670OUTP=B «, l3=0x0b}
0x211a…2129 Line {l1=0x0d, l2=»3680OUTPUT T «, l3=0x0d}
0x2129…2136 Line {l1=0x0b, l2=»3685ENDIF «, l3=0x0b}
0x2136…2142 Line {l1=0x0a, l2=»3690ELSE «, l3=0x0a}
0x2142…2168 Line {l1=0x24, l2=»3700PRINT "Lønmodtager findes ikke" «, l3=0x24}
0x2168…2183 Line {l1=0x19, l2=»3710INPUT "RETURN",LINE$ «, l3=0x19}
0x2183…2190 Line {l1=0x0b, l2=»3720ENDIF «, l3=0x0b}
0x2190…219f Line {l1=0x0d, l2=»3730ENDCASE «, l3=0x0d}
0x219f…21c2 Line {l1=0x21, l2=»3735UNTIL LISTE=B OR LMNR=>MLMNR «, l3=0x21}
0x21c2…21cf Line {l1=0x0b, l2=»3740ENDIF «, l3=0x0b}
0x21cf…21e0 Line {l1=0x0f, l2=»3750UNTIL SV=B «, l3=0x0f}
0x21e0…21f1 Line {l1=0x0f, l2=»3760CLOSE FIL$ «, l3=0x0f}
0x21f1…2203 Line {l1=0x10, l2=»3770CLOSE FIL2$ «, l3=0x10}
0x2203…2220 Line {l1=0x1b, l2=»3780CHAIN "P641210:STARTB" «, l3=0x1b}
0x2220…2240 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 ┆ ┆
[…0x2a…]