|
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: »TV2.K«
└─⟦385f097a1⟧ Bits:30008988 SPC/1 COMAL programmer til bogføring
└─⟦this⟧ »TV2.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=4 TO 6 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 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,8 1364IF OPL=V THEN 1366T=16 1368ELSE 1370T=29 1372ENDIF 1374WHEN 4,5,6,7 1376T=OPL*V+5 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 "F E R I E - O G S H - 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 1560IF J=V THEN 1570T=16 1580ELSE 1590T=J*V+5 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=V THEN 1870T=16 1880ELSE 1890T=N*V+5 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=V THEN 2120T=16 2130ELSE 2140T=N*V+5 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=V THEN 2430T=16 2440ELSE 2450T=N*V+5 2460ENDIF 2470EXEC CONV(RESUL$,TVN(T),3) 2480PRINT RESUL$;" ";PICT$(N);":";TAB(32);LINE$ 2490ELSE 2500PRINT PICT$(N);": ";LINE$; 2505ENDIF 2510ENDIF 2520ENDPROC 2530A=8 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$(7)="SH-forskud" 2770PICT$(8)="Feriedage" 2830PICT$(V)="Ferieberett løn" 2840PICT$(4)="Sygeferiepenge" 2860PICT$(5)="Beregnede feriep" 2870PICT$(6)="SH-opsparing" 2880OUTP=B 2890PROC INDTÆL(N) 2900J=W*(N-E) 2910FOR K=4 TO 6 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 " F E R I E - O G S H - 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<W) 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=11 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=4 TO 6 «, 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…0a9a Line {l1=0x15, l2=»1300WHEN V,4,5,6,7,8 «, l3=0x15}
0x0a9a…0aa8 Line {l1=0x0c, l2=»1310REPEAT «, l3=0x0c}
0x0aa8…0abe Line {l1=0x14, l2=»1320LINE$=LINE$+"+" «, l3=0x14}
0x0abe…0ae3 Line {l1=0x23, l2=»1330EXEC CALC(6,LINE$,TAH$,RESUL$) «, l3=0x23}
0x0ae3…0b0a Line {l1=0x25, l2=»1340IF FLAG<>B THEN EXEC INLINE(OPL) «, l3=0x25}
0x0b0a…0b1d Line {l1=0x11, l2=»1350UNTIL FLAG=B «, l3=0x11}
0x0b1d…0b42 Line {l1=0x23, l2=»1355EXEC CALC(B,LINE$,TAH$,RESUL$) «, l3=0x23}
0x0b42…0b55 Line {l1=0x11, l2=»1360CASE OPL OF «, l3=0x11}
0x0b55…0b64 Line {l1=0x0d, l2=»1362WHEN V,8 «, l3=0x0d}
0x0b64…0b79 Line {l1=0x13, l2=»1364IF OPL=V THEN «, l3=0x13}
0x0b79…0b84 Line {l1=0x09, l2=»1366T=16 «, l3=0x09}
0x0b84…0b90 Line {l1=0x0a, l2=»1368ELSE «, l3=0x0a}
0x0b90…0b9b Line {l1=0x09, l2=»1370T=29 «, l3=0x09}
0x0b9b…0ba8 Line {l1=0x0b, l2=»1372ENDIF «, l3=0x0b}
0x0ba8…0bbb Line {l1=0x11, l2=»1374WHEN 4,5,6,7 «, l3=0x11}
0x0bbb…0bcb Line {l1=0x0e, l2=»1376T=OPL*V+5 «, l3=0x0e}
0x0bcb…0bdc Line {l1=0x0f, l2=»1378PR$=TV$(T) «, l3=0x0f}
0x0bdc…0bf1 Line {l1=0x13, l2=»1380LINE$=TV$(T+E) «, l3=0x13}
0x0bf1…0c16 Line {l1=0x23, l2=»1382EXEC CALC(B,PR$,LINE$,RESUL1$) «, l3=0x23}
0x0c16…0c33 Line {l1=0x1b, l2=»1384TV$(T+E)=RESUL1$(G:11) «, l3=0x1b}
0x0c33…0c48 Line {l1=0x13, l2=»1386LINE$=TV$(T+G) «, l3=0x13}
0x0c48…0c70 Line {l1=0x26, l2=»1388EXEC CALC(B,RESUL$,LINE$,RESUL1$) «, l3=0x26}
0x0c70…0c8d Line {l1=0x1b, l2=»1390TV$(T+G)=RESUL1$(G:11) «, l3=0x1b}
0x0c8d…0c9c Line {l1=0x0d, l2=»1392ENDCASE «, l3=0x0d}
0x0c9c…0cb6 Line {l1=0x18, l2=»1410TV$(T)=RESUL$(G:11) «, l3=0x18}
0x0cb6…0cc5 Line {l1=0x0d, l2=»1430ENDCASE «, l3=0x0d}
0x0cc5…0cd4 Line {l1=0x0d, l2=»1440ENDPROC «, l3=0x0d}
0x0cd4…0ce8 Line {l1=0x12, l2=»1450PROC SKRIVOPL «, l3=0x12}
0x0ce8…0d04 Line {l1=0x1a, l2=»1460IF OUTP=B THEN CLEAR «, l3=0x1a}
0x0d04…0d50 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}
0x0d50…0d9d Line {l1=0x4b, l2=»1480PRINT "F E R I E - O G S H - O P G Ø R E L S E";TAB(60);"Dato ";DAD$ «, l3=0x4b}
0x0d9d…0db0 Line {l1=0x11, l2=»1490FOR J=E TO A «, l3=0x11}
0x0db0…0dc1 Line {l1=0x0f, l2=»1500CASE J OF «, l3=0x0f}
0x0dc1…0dce Line {l1=0x0b, l2=»1510WHEN E «, l3=0x0b}
0x0dce…0dec Line {l1=0x1c, l2=»1520EXEC CONV(LINE$,LMNR,0) «, l3=0x1c}
0x0dec…0df9 Line {l1=0x0b, l2=»1530WHEN G «, l3=0x0b}
0x0df9…0e12 Line {l1=0x17, l2=»1540LINE$=POST1$(E,25) «, l3=0x17}
0x0e12…0e29 Line {l1=0x15, l2=»1550WHEN V,4,5,6,7,8 «, l3=0x15}
0x0e29…0e3c Line {l1=0x11, l2=»1560IF J=V THEN «, l3=0x11}
0x0e3c…0e47 Line {l1=0x09, l2=»1570T=16 «, l3=0x09}
0x0e47…0e53 Line {l1=0x0a, l2=»1580ELSE «, l3=0x0a}
0x0e53…0e61 Line {l1=0x0c, l2=»1590T=J*V+5 «, l3=0x0c}
0x0e61…0e6e Line {l1=0x0b, l2=»1600ENDIF «, l3=0x0b}
0x0e6e…0e82 Line {l1=0x12, l2=»1610RESUL$=TV$(T) «, l3=0x12}
0x0e82…0ea1 Line {l1=0x1d, l2=»1620EXEC TUD(RESUL$,PR$,E,B) «, l3=0x1d}
0x0ea1…0eb1 Line {l1=0x0e, l2=»1630LINE$=PR$ «, l3=0x0e}
0x0eb1…0ec0 Line {l1=0x0d, l2=»1700ENDCASE «, l3=0x0d}
0x0ec0…0ed6 Line {l1=0x14, l2=»1710IF OUTP=B THEN «, l3=0x14}
0x0ed6…0eec Line {l1=0x14, l2=»1720EXEC OUTLINE(J) «, l3=0x14}
0x0eec…0ef8 Line {l1=0x0a, l2=»1730ELSE «, l3=0x0a}
0x0ef8…0f0f Line {l1=0x15, l2=»1740EXEC OUTPLINE(J) «, l3=0x15}
0x0f0f…0f1c Line {l1=0x0b, l2=»1750ENDIF «, l3=0x0b}
0x0f1c…0f29 Line {l1=0x0b, l2=»1760NEXT J «, l3=0x0b}
0x0f29…0f38 Line {l1=0x0d, l2=»1770ENDPROC «, l3=0x0d}
0x0f38…0f4e Line {l1=0x14, l2=»1780PROC OUTLINE(N) «, l3=0x14}
0x0f4e…0f65 Line {l1=0x15, l2=»1790CURSOR X(N),Y(N) «, l3=0x15}
0x0f65…0f81 Line {l1=0x1a, l2=»1800PRINT USING "### ":N; «, l3=0x1a}
0x0f81…0f94 Line {l1=0x11, l2=»1810IF N=G THEN «, l3=0x11}
0x0f94…0fb3 Line {l1=0x1d, l2=»1820PRINT PICT$(N);":";LINE$ «, l3=0x1d}
0x0fb3…0fe3 Line {l1=0x2e, l2=»1830PRINT TAB(6);"TV TEKST";TAB(38);"INDHOLD" «, l3=0x2e}
0x0fe3…0fef Line {l1=0x0a, l2=»1840ELSE «, l3=0x0a}
0x0fef…1002 Line {l1=0x11, l2=»1850IF N>G THEN «, l3=0x11}
0x1002…1015 Line {l1=0x11, l2=»1860IF N=V THEN «, l3=0x11}
0x1015…1020 Line {l1=0x09, l2=»1870T=16 «, l3=0x09}
0x1020…102c Line {l1=0x0a, l2=»1880ELSE «, l3=0x0a}
0x102c…103a Line {l1=0x0c, l2=»1890T=N*V+5 «, l3=0x0c}
0x103a…1047 Line {l1=0x0b, l2=»1900ENDIF «, l3=0x0b}
0x1047…1068 Line {l1=0x1f, l2=»1910EXEC CONV(RESUL$,TVN(T),3) «, l3=0x1f}
0x1068…109a Line {l1=0x30, l2=»1920PRINT RESUL$;" ";PICT$(N);":";TAB(32);LINE$ «, l3=0x30}
0x109a…10a6 Line {l1=0x0a, l2=»1930ELSE «, l3=0x0a}
0x10a6…10c6 Line {l1=0x1e, l2=»1940PRINT PICT$(N);": ";LINE$ «, l3=0x1e}
0x10c6…10d3 Line {l1=0x0b, l2=»1945ENDIF «, l3=0x0b}
0x10d3…10e0 Line {l1=0x0b, l2=»1950ENDIF «, l3=0x0b}
0x10e0…10ef Line {l1=0x0d, l2=»1960ENDPROC «, l3=0x0d}
0x10ef…1109 Line {l1=0x18, l2=»1970PROC FEJL(P1,P2,P3) «, l3=0x18}
0x1109…1127 Line {l1=0x1c, l2=»1980IF STATUS(P3$)<>B THEN «, l3=0x1c}
0x1127…1136 Line {l1=0x0d, l2=»1990OUTPUT T «, l3=0x0d}
0x1136…1164 Line {l1=0x2c, l2=»2000PRINT "FIL-FEJL ";P3$;STATUS(P3$),P1;P2 «, l3=0x2c}
0x1164…1170 Line {l1=0x0a, l2=»2010STOP «, l3=0x0a}
0x1170…117d Line {l1=0x0b, l2=»2020ENDIF «, l3=0x0b}
0x117d…118c Line {l1=0x0d, l2=»2030ENDPROC «, l3=0x0d}
0x118c…11a1 Line {l1=0x13, l2=»2040PROC INLINE(N) «, l3=0x13}
0x11a1…11af Line {l1=0x0c, l2=»2050REPEAT «, l3=0x0c}
0x11af…11c4 Line {l1=0x13, l2=»2060CURSOR 32,Y(N) «, l3=0x13}
0x11c4…11e6 Line {l1=0x20, l2=»2070PRINT BL$(E:ABS(TYPE(N))+6) «, l3=0x20}
0x11e6…11fd Line {l1=0x15, l2=»2080CURSOR X(N),Y(N) «, l3=0x15}
0x11fd…1219 Line {l1=0x1a, l2=»2090PRINT USING "### ":N; «, l3=0x1a}
0x1219…122c Line {l1=0x11, l2=»2100IF N>G THEN «, l3=0x11}
0x122c…123f Line {l1=0x11, l2=»2110IF N=V THEN «, l3=0x11}
0x123f…124a Line {l1=0x09, l2=»2120T=16 «, l3=0x09}
0x124a…1256 Line {l1=0x0a, l2=»2130ELSE «, l3=0x0a}
0x1256…1264 Line {l1=0x0c, l2=»2140T=N*V+5 «, l3=0x0c}
0x1264…1271 Line {l1=0x0b, l2=»2150ENDIF «, l3=0x0b}
0x1271…1292 Line {l1=0x1f, l2=»2160EXEC CONV(RESUL$,TVN(T),3) «, l3=0x1f}
0x1292…12b7 Line {l1=0x23, l2=»2170PRINT RESUL$;" ";PICT$(N);":"; «, l3=0x23}
0x12b7…12cc Line {l1=0x13, l2=»2175CURSOR 32,Y(N) «, l3=0x13}
0x12cc…12d8 Line {l1=0x0a, l2=»2180ELSE «, l3=0x0a}
0x12d8…12f3 Line {l1=0x19, l2=»2190PRINT PICT$(N);": "; «, l3=0x19}
0x12f3…1300 Line {l1=0x0b, l2=»2200ENDIF «, l3=0x0b}
0x1300…1315 Line {l1=0x13, l2=»2210INPUT "",LINE$ «, l3=0x13}
0x1315…132e Line {l1=0x17, l2=»2220IF TYPE(N)<B THEN «, l3=0x17}
0x132e…1356 Line {l1=0x26, l2=»2230IF LEN(LINE$)<=ABS(TYPE(N)) THEN «, l3=0x26}
0x1356…1361 Line {l1=0x09, l2=»2240OK=E «, l3=0x09}
0x1361…136d Line {l1=0x0a, l2=»2250ELSE «, l3=0x0a}
0x136d…1378 Line {l1=0x09, l2=»2260OK=B «, l3=0x09}
0x1378…1385 Line {l1=0x0b, l2=»2270ENDIF «, l3=0x0b}
0x1385…1391 Line {l1=0x0a, l2=»2280ELSE «, l3=0x0a}
0x1391…13ac Line {l1=0x19, l2=»2290EXEC CHECK(LINE$,OK) «, l3=0x19}
0x13ac…13d9 Line {l1=0x2b, l2=»2300IF TYPE(N)>B AND TYPE(N)<>OK THEN OK=B «, l3=0x2b}
0x13d9…13e6 Line {l1=0x0b, l2=»2310ENDIF «, l3=0x0b}
0x13e6…13f8 Line {l1=0x10, l2=»2320UNTIL OK<>B «, l3=0x10}
0x13f8…1407 Line {l1=0x0d, l2=»2330ENDPROC «, l3=0x0d}
0x1407…141e Line {l1=0x15, l2=»2340PROC OUTPLINE(N) «, l3=0x15}
0x141e…1435 Line {l1=0x15, l2=»2350PRINT TAB(X(N)); «, l3=0x15}
0x1435…1451 Line {l1=0x1a, l2=»2360PRINT USING "### ":N; «, l3=0x1a}
0x1451…1464 Line {l1=0x11, l2=»2370IF N=G THEN «, l3=0x11}
0x1464…1483 Line {l1=0x1d, l2=»2380PRINT PICT$(N);":";LINE$ «, l3=0x1d}
0x1483…14b3 Line {l1=0x2e, l2=»2390PRINT TAB(6);"TV TEKST";TAB(38);"INDHOLD" «, l3=0x2e}
0x14b3…14bf Line {l1=0x0a, l2=»2400ELSE «, l3=0x0a}
0x14bf…14d2 Line {l1=0x11, l2=»2410IF N>G THEN «, l3=0x11}
0x14d2…14e5 Line {l1=0x11, l2=»2420IF N=V THEN «, l3=0x11}
0x14e5…14f0 Line {l1=0x09, l2=»2430T=16 «, l3=0x09}
0x14f0…14fc Line {l1=0x0a, l2=»2440ELSE «, l3=0x0a}
0x14fc…150a Line {l1=0x0c, l2=»2450T=N*V+5 «, l3=0x0c}
0x150a…1517 Line {l1=0x0b, l2=»2460ENDIF «, l3=0x0b}
0x1517…1538 Line {l1=0x1f, l2=»2470EXEC CONV(RESUL$,TVN(T),3) «, l3=0x1f}
0x1538…156a Line {l1=0x30, l2=»2480PRINT RESUL$;" ";PICT$(N);":";TAB(32);LINE$ «, l3=0x30}
0x156a…1576 Line {l1=0x0a, l2=»2490ELSE «, l3=0x0a}
0x1576…1597 Line {l1=0x1f, l2=»2500PRINT PICT$(N);": ";LINE$; «, l3=0x1f}
0x1597…15a4 Line {l1=0x0b, l2=»2505ENDIF «, l3=0x0b}
0x15a4…15b1 Line {l1=0x0b, l2=»2510ENDIF «, l3=0x0b}
0x15b1…15c0 Line {l1=0x0d, l2=»2520ENDPROC «, l3=0x0d}
0x15c0…15ca Line {l1=0x08, l2=»2530A=8 «, l3=0x08}
0x15ca…15f2 Line {l1=0x26, l2=»2540DIM X(A),Y(A),PICT$(A,20),TYPE(A) «, l3=0x26}
0x15f2…160e Line {l1=0x1a, l2=»2550DIM BL$(79),LINE$(30) «, l3=0x1a}
0x160e…1622 Line {l1=0x12, l2=»2560FOR I=E TO 79 «, l3=0x12}
0x1622…1634 Line {l1=0x10, l2=»2570BL$=BL$+" " «, l3=0x10}
0x1634…1641 Line {l1=0x0b, l2=»2580NEXT I «, l3=0x0b}
0x1641…164e Line {l1=0x0b, l2=»2590X(E)=E «, l3=0x0b}
0x164e…165c Line {l1=0x0c, l2=»2600X(G)=36 «, l3=0x0c}
0x165c…166f Line {l1=0x11, l2=»2610FOR I=V TO A «, l3=0x11}
0x166f…167c Line {l1=0x0b, l2=»2620X(I)=E «, l3=0x0b}
0x167c…168b Line {l1=0x0d, l2=»2630Y(I)=I+G «, l3=0x0d}
0x168b…169d Line {l1=0x10, l2=»2640TYPE(I)=-11 «, l3=0x10}
0x169d…16aa Line {l1=0x0b, l2=»2650NEXT I «, l3=0x0b}
0x16aa…16b7 Line {l1=0x0b, l2=»2660Y(E)=V «, l3=0x0b}
0x16b7…16c4 Line {l1=0x0b, l2=»2670Y(G)=V «, l3=0x0b}
0x16c4…16d4 Line {l1=0x0e, l2=»2680TYPE(E)=B «, l3=0x0e}
0x16d4…16e4 Line {l1=0x0e, l2=»2690TYPE(G)=B «, l3=0x0e}
0x16e4…16fb Line {l1=0x15, l2=»2700PICT$(E)="Lønnr" «, l3=0x15}
0x16fb…1711 Line {l1=0x14, l2=»2710PICT$(G)="Navn" «, l3=0x14}
0x1711…172d Line {l1=0x1a, l2=»2760PICT$(7)="SH-forskud" «, l3=0x1a}
0x172d…1748 Line {l1=0x19, l2=»2770PICT$(8)="Feriedage" «, l3=0x19}
0x1748…1769 Line {l1=0x1f, l2=»2830PICT$(V)="Ferieberett løn" «, l3=0x1f}
0x1769…1789 Line {l1=0x1e, l2=»2840PICT$(4)="Sygeferiepenge" «, l3=0x1e}
0x1789…17ab Line {l1=0x20, l2=»2860PICT$(5)="Beregnede feriep" «, l3=0x20}
0x17ab…17c9 Line {l1=0x1c, l2=»2870PICT$(6)="SH-opsparing" «, l3=0x1c}
0x17c9…17d6 Line {l1=0x0b, l2=»2880OUTP=B «, l3=0x0b}
0x17d6…17eb Line {l1=0x13, l2=»2890PROC INDTÆL(N) «, l3=0x13}
0x17eb…17fb Line {l1=0x0e, l2=»2900J=W*(N-E) «, l3=0x0e}
0x17fb…180e Line {l1=0x11, l2=»2910FOR K=4 TO 6 «, l3=0x11}
0x180e…1829 Line {l1=0x19, l2=»2920GET FIL2$,J+K:POST5$ «, l3=0x19}
0x1829…183c Line {l1=0x11, l2=»2930FOR I=E TO 5 «, l3=0x11}
0x183c…1867 Line {l1=0x29, l2=»2940TV$((K-E)*5+I)=POST5$((I-E)*11+E:11) «, l3=0x29}
0x1867…1874 Line {l1=0x0b, l2=»2950NEXT I «, l3=0x0b}
0x1874…1881 Line {l1=0x0b, l2=»2960NEXT K «, l3=0x0b}
0x1881…189c Line {l1=0x19, l2=»2970EXEC FEJL(N,K,FIL2$) «, l3=0x19}
0x189c…18ab Line {l1=0x0d, l2=»2980ENDPROC «, l3=0x0d}
0x18ab…18c2 Line {l1=0x15, l2=»2990PROC INLØNMOD(N) «, l3=0x15}
0x18c2…18de Line {l1=0x1a, l2=»3000GET FIL$,G*N-E:POST1$ «, l3=0x1a}
0x18de…191a Line {l1=0x3a, l2=»3010GET FIL$,G*N:POST2$,C1,C2,LT,LF,LR,LA,RPI,K1,K2,FG,FD «, l3=0x3a}
0x191a…1934 Line {l1=0x18, l2=»3020EXEC FEJL(E,N,FIL$) «, l3=0x18}
0x1934…1943 Line {l1=0x0d, l2=»3030ENDPROC «, l3=0x0d}
0x1943…1956 Line {l1=0x11, l2=»3040PROC INDVIRK «, l3=0x11}
0x1956…1968 Line {l1=0x10, l2=»3050OPEN FIL$,W «, l3=0x10}
0x1968…1982 Line {l1=0x18, l2=»3060EXEC FEJL(B,B,FIL$) «, l3=0x18}
0x1982…199a Line {l1=0x16, l2=»3070GET FIL$,E:POST3$ «, l3=0x16}
0x199a…19c4 Line {l1=0x28, l2=»3080GET FIL$,G:POST4$,SLJNR,MLMNR,ATPLM «, l3=0x28}
0x19c4…19da Line {l1=0x14, l2=»3085GET FIL$,V:DAD$ «, l3=0x14}
0x19da…19e9 Line {l1=0x0d, l2=»3090ENDPROC «, l3=0x0d}
0x19e9…19f7 Line {l1=0x0c, l2=»3100REPEAT «, l3=0x0c}
0x19f7…1a02 Line {l1=0x09, l2=»3110SV=G «, l3=0x09}
0x1a02…1a0f Line {l1=0x0b, l2=»3120CLEAR «, l3=0x0b}
0x1a0f…1a22 Line {l1=0x11, l2=»3130CURSOR 10,10 «, l3=0x11}
0x1a22…1a6e 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}
0x1a6e…1aaf Line {l1=0x3f, l2=»3150PRINT " F E R I E - O G S H - O P G Ø R E L S E" «, l3=0x3f}
0x1aaf…1abc Line {l1=0x0b, l2=»3160PRINT «, l3=0x0b}
0x1abc…1adb Line {l1=0x1d, l2=»3170PRINT TAB(10);"0 Færdig" «, l3=0x1d}
0x1adb…1afb Line {l1=0x1e, l2=»3180PRINT TAB(10);"1 Ændring" «, l3=0x1e}
0x1afb…1b25 Line {l1=0x28, l2=»3190PRINT TAB(10);"2 Udskrift på skærm" «, l3=0x28}
0x1b25…1b51 Line {l1=0x2a, l2=»3200PRINT TAB(10);"3 Udskrift på printer" «, l3=0x2a}
0x1b51…1b5e Line {l1=0x0b, l2=»3210PRINT «, l3=0x0b}
0x1b5e…1b6c Line {l1=0x0c, l2=»3220REPEAT «, l3=0x0c}
0x1b6c…1b7e Line {l1=0x10, l2=»3230CURSOR E,18 «, l3=0x10}
0x1b7e…1b99 Line {l1=0x19, l2=»3240EDIT " ",SV «, l3=0x19}
0x1b99…1bb5 Line {l1=0x1a, l2=»3250UNTIL SV=>B AND SV<=V «, l3=0x1a}
0x1bb5…1bc9 Line {l1=0x12, l2=»3260IF SV>B THEN «, l3=0x12}
0x1bc9…1bd7 Line {l1=0x0c, l2=»3270REPEAT «, l3=0x0c}
0x1bd7…1beb Line {l1=0x12, l2=»3280EXEC INOPL(1) «, l3=0x12}
0x1beb…1c0f Line {l1=0x22, l2=»3290UNTIL LMNR=>B AND LMNR<=MLMNR «, l3=0x22}
0x1c0f…1c1d Line {l1=0x0c, l2=»3291LISTE=B «, l3=0x0c}
0x1c1d…1c3a Line {l1=0x1b, l2=»3292IF LMNR=B THEN LISTE=E «, l3=0x1b}
0x1c3a…1c48 Line {l1=0x0c, l2=»3295REPEAT «, l3=0x0c}
0x1c48…1c6a Line {l1=0x20, l2=»3296IF LISTE=E THEN LMNR=LMNR+E «, l3=0x20}
0x1c6a…1c84 Line {l1=0x18, l2=»3300EXEC INLØNMOD(LMNR) «, l3=0x18}
0x1c84…1c96 Line {l1=0x10, l2=»3310CASE SV OF «, l3=0x10}
0x1c96…1ca3 Line {l1=0x0b, l2=»3320WHEN E «, l3=0x0b}
0x1ca3…1cb8 Line {l1=0x13, l2=»3330IF LA<>B THEN «, l3=0x13}
0x1cb8…1cd0 Line {l1=0x16, l2=»3340EXEC INDTÆL(LMNR) «, l3=0x16}
0x1cd0…1ce4 Line {l1=0x12, l2=»3350EXEC SKRIVOPL «, l3=0x12}
0x1ce4…1cf2 Line {l1=0x0c, l2=»3360REPEAT «, l3=0x0c}
0x1cf2…1d00 Line {l1=0x0c, l2=»3370REPEAT «, l3=0x0c}
0x1d00…1d0c Line {l1=0x0a, l2=»3380SV1=B «, l3=0x0a}
0x1d0c…1d1e Line {l1=0x10, l2=»3390CURSOR E,23 «, l3=0x10}
0x1d1e…1d37 Line {l1=0x17, l2=»3400EDIT "Feltnr ",SV1 «, l3=0x17}
0x1d37…1d5e Line {l1=0x25, l2=»3410UNTIL SV1=B OR (SV1>G AND SV1<W) «, l3=0x25}
0x1d5e…1d73 Line {l1=0x13, l2=»3420IF SV1>B THEN «, l3=0x13}
0x1d73…1d89 Line {l1=0x14, l2=»3430EXEC INOPL(SV1) «, l3=0x14}
0x1d89…1d96 Line {l1=0x0b, l2=»3440ENDIF «, l3=0x0b}
0x1d96…1da8 Line {l1=0x10, l2=»3450UNTIL SV1=B «, l3=0x10}
0x1da8…1dbf Line {l1=0x15, l2=»3460EXEC UDTÆL(LMNR) «, l3=0x15}
0x1dbf…1dcb Line {l1=0x0a, l2=»3470ELSE «, l3=0x0a}
0x1dcb…1df1 Line {l1=0x24, l2=»3480PRINT "Lønmodtager findes ikke" «, l3=0x24}
0x1df1…1e0c Line {l1=0x19, l2=»3490INPUT "RETURN",LINE$ «, l3=0x19}
0x1e0c…1e19 Line {l1=0x0b, l2=»3500ENDIF «, l3=0x0b}
0x1e19…1e26 Line {l1=0x0b, l2=»3510WHEN G «, l3=0x0b}
0x1e26…1e3b Line {l1=0x13, l2=»3520IF LA<>B THEN «, l3=0x13}
0x1e3b…1e48 Line {l1=0x0b, l2=»3530OUTP=B «, l3=0x0b}
0x1e48…1e60 Line {l1=0x16, l2=»3540EXEC INDTÆL(LMNR) «, l3=0x16}
0x1e60…1e74 Line {l1=0x12, l2=»3550EXEC SKRIVOPL «, l3=0x12}
0x1e74…1e8f Line {l1=0x19, l2=»3560INPUT "RETURN",LINE$ «, l3=0x19}
0x1e8f…1e9b Line {l1=0x0a, l2=»3570ELSE «, l3=0x0a}
0x1e9b…1ec1 Line {l1=0x24, l2=»3580PRINT "Lønmodtager findes ikke" «, l3=0x24}
0x1ec1…1edc Line {l1=0x19, l2=»3590INPUT "RETURN",LINE$ «, l3=0x19}
0x1edc…1ee9 Line {l1=0x0b, l2=»3600ENDIF «, l3=0x0b}
0x1ee9…1ef6 Line {l1=0x0b, l2=»3610WHEN V «, l3=0x0b}
0x1ef6…1f16 Line {l1=0x1e, l2=»3620IF LA<>B OR LISTE=E THEN «, l3=0x1e}
0x1f16…1f2b Line {l1=0x13, l2=»3625IF LA<>B THEN «, l3=0x13}
0x1f2b…1f3a Line {l1=0x0d, l2=»3630OUTPUT P «, l3=0x0d}
0x1f3a…1f47 Line {l1=0x0b, l2=»3640OUTP=E «, l3=0x0b}
0x1f47…1f5f Line {l1=0x16, l2=»3650EXEC INDTÆL(LMNR) «, l3=0x16}
0x1f5f…1f73 Line {l1=0x12, l2=»3660EXEC SKRIVOPL «, l3=0x12}
0x1f73…1f88 Line {l1=0x13, l2=»3662FOR I=11 TO 72 «, l3=0x13}
0x1f88…1f95 Line {l1=0x0b, l2=»3664PRINT «, l3=0x0b}
0x1f95…1fa2 Line {l1=0x0b, l2=»3666NEXT I «, l3=0x0b}
0x1fa2…1faf Line {l1=0x0b, l2=»3670OUTP=B «, l3=0x0b}
0x1faf…1fbe Line {l1=0x0d, l2=»3680OUTPUT T «, l3=0x0d}
0x1fbe…1fcb Line {l1=0x0b, l2=»3685ENDIF «, l3=0x0b}
0x1fcb…1fd7 Line {l1=0x0a, l2=»3690ELSE «, l3=0x0a}
0x1fd7…1ffd Line {l1=0x24, l2=»3700PRINT "Lønmodtager findes ikke" «, l3=0x24}
0x1ffd…2018 Line {l1=0x19, l2=»3710INPUT "RETURN",LINE$ «, l3=0x19}
0x2018…2025 Line {l1=0x0b, l2=»3720ENDIF «, l3=0x0b}
0x2025…2034 Line {l1=0x0d, l2=»3730ENDCASE «, l3=0x0d}
0x2034…2057 Line {l1=0x21, l2=»3735UNTIL LISTE=B OR LMNR=>MLMNR «, l3=0x21}
0x2057…2064 Line {l1=0x0b, l2=»3740ENDIF «, l3=0x0b}
0x2064…2075 Line {l1=0x0f, l2=»3750UNTIL SV=B «, l3=0x0f}
0x2075…2086 Line {l1=0x0f, l2=»3760CLOSE FIL$ «, l3=0x0f}
0x2086…2098 Line {l1=0x10, l2=»3770CLOSE FIL2$ «, l3=0x10}
0x2098…20b5 Line {l1=0x1b, l2=»3780CHAIN "P641210:STARTB" «, l3=0x1b}
0x20b5…20c0 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x20c0…20e0 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 ┆ ┆
[…0x35…]