|
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: 15168 (0x3b40)
Types: TextFile
Notes: Mikados_K
Names: »LØNMODT.K«
└─⟦385f097a1⟧ Bits:30008988 SPC/1 COMAL programmer til bogføring
└─⟦this⟧ »LØNMODT.K«
0010DIM CPR(10),POST3$(55),POST4$(34),FIL2$(20),POST5$(55),POST6$(55) 0025DIM NUL$(11),TV$(45,11),FIL1$(20),DAD$(6) 0040PROC CPRCHECK(NR4,OK4) 0055OK4=E 0070FOR I=E TO 10 0085CPR(I)=ORD(NR4$(I))-48 0100NEXT I 0115DATO=CPR(E)*10+CPR(G) 0130MÅNED=CPR(V)*10+CPR(4) 0145ÅR=CPR(5)*10+CPR(6) 0160IF DATO<E OR MÅNED<E OR MÅNED>12 OR DATO>31 THEN OK4=B 0175IF OK4=B THEN EXIT 0190CASE MÅNED OF 0205WHEN 4,6,W,11 0220IF DATO>30 THEN OK4=B 0235WHEN G 0250IF DATO>29 THEN OK4=B 0265IF DATO=29 AND ÅR MOD 4<>B THEN OK4=B 0280ENDCASE 0295IF OK4=B THEN EXIT 0310MODULC=CPR(E)*4+CPR(G)*V+CPR(V)*G+CPR(4)*7+CPR(5)*6+CPR(6)*5+CPR(7)*4 0325MODULC=MODULC+CPR(8)*V+CPR(W)*G+CPR(10) 0340IF MODULC MOD 11<>B THEN OK4=B 0355ENDPROC 0370PROC DATOCHECK(NR5,OK5) 0385OK5=E 0400ÅR=(ORD(NR5$(E))-48)*10+ORD(NR5$(G))-48 0415MÅNED=(ORD(NR5$(V))-48)*10+ORD(NR5$(4))-48 0430DATO=(ORD(NR5$(5))-48)*10+ORD(NR5$(6))-48 0445IF DATO<E OR MÅNED<E OR MÅNED>12 OR DATO>31 THEN OK5=B 0460IF OK5=B THEN EXIT 0475CASE MÅNED OF 0490WHEN 4,6,W,11 0505IF DATO>30 THEN OK5=B 0520WHEN G 0535IF DATO>29 THEN OK5=B 0550IF DATO=29 AND ÅR MOD 4<>B THEN OK5=B 0565ENDCASE 0580ENDPROC 0581PROC NULTRANS(N) 0582J=(N-E)*ATPLM 0583FOR I=E TO ATPLM 0584PUT FIL1$,J+I:BL$(E,37) 0585NEXT I 0586EXEC FEJL(N,ATPLM,FIL1$) 0587ENDPROC 0595PROC NULTÆL(N) 0610J=W*(N-E)+E 0625FOR I=J TO J+8 0640PUT FIL2$,I:POST6$ 0655NEXT I 0670EXEC FEJL(I,N,FIL2$) 0685ENDPROC 0700PROC INDTÆL(N) 0715J=W*(N-E) 0730FOR K=6 TO W 0745GET FIL2$,J+K:POST5$ 0760FOR I=E TO 5 0775TV$((K-E)*5+I)=POST5$((I-E)*11+E:11) 0790NEXT I 0805NEXT K 0820EXEC FEJL(N,K,FIL2$) 0835ENDPROC 0850PROC INLØNMOD(N) 0865GET FIL$,G*N-E:POST1$ 0880GET FIL$,G*N:POST2$,C1,C2,LT,LF,LR,LA,RPI,K1,K2,FG,FD 0895EXEC FEJL(E,N,FIL$) 0910ENDPROC 0925PROC UDLØNMOD(N) 0940PUT FIL$,G*N-E:POST1$ 0955PUT FIL$,G*N:POST2$,C1,C2,LT,LF,LR,LA,RPI,K1,K2,FG,FD 0970EXEC FEJL(G,N,FIL$) 0985ENDPROC 1000PROC CONV(NR2,OK22,CIF) 1015OK2=OK22 1030NR2$="" 1045REPEAT 1060NR2$=CHR((OK2 MOD 10)+48)+NR2$ 1075CIF=CIF-E 1090OK2=OK2 DIV 10 1105IF CIF<B AND OK2=B THEN CIF=B 1120UNTIL CIF=B 1135ENDPROC 1150PROC CHECK(NR1,OK1) 1165OK1=B 1180RESULT=B 1195IF LEN(NR1$)>B THEN 1210IF NR1$(E)="-" THEN 1225FORTEGN=-E 1240OK1=E 1255ELSE 1270FORTEGN=E 1285ENDIF 1300WHILE LEN(NR1$)>OK1 1315OK1=OK1+E 1330IF NR1$(OK1)<"0" OR NR1$(OK1)>"9" THEN 1345FORTEGN=B 1360OK1=LEN(NR1$) 1375ENDIF 1390RESULT=RESULT*10+ORD(NR1$(OK1))-48 1405ENDWHILE 1420OK1=OK1*FORTEGN 1435IF OK1<B THEN OK1=OK1+E 1450ENDIF 1465ENDPROC 1480PROC INOPL(OPL) 1495EXEC INLINE(OPL) 1510CASE OPL OF 1525WHEN E 1540LMNR=RESULT 1555WHEN G 1570POST1$(E,25)=LINE$ 1585WHEN V 1600POST1$(26,48)=LINE$ 1615WHEN 4 1630POST1$(49,71)=LINE$ 1645WHEN 5 1660POST2$(E,4)=LINE$ 1675WHEN 6 1690POST2$(5,18)=LINE$ 1705WHEN 7 1720EXEC CPRCHECK(LINE$,C1) 1735WHILE C1=B 1750EXEC INLINE(OPL) 1765EXEC CPRCHECK(LINE$,C1) 1780ENDWHILE 1795C1=DATO*10000+MÅNED*100+ÅR 1810C2=CPR(10)+CPR(W)*10+CPR(8)*100+CPR(7)*1000 1825WHEN 8 1840WHILE RESULT<B OR RESULT>99 1855EXEC INLINE(OPL) 1870ENDWHILE 1885LT=RESULT 1900WHEN W 1915WHILE RESULT<B OR RESULT>999999 1930EXEC INLINE(OPL) 1945ENDWHILE 1960LF=RESULT 1975IF LF>B THEN 1990LR=B 2005EXEC CONV(LINE$,LR,6) 2020EXEC OUTLINE(10) 2035ENDIF 2050WHEN 10 2065WHILE RESULT<B OR RESULT>999999 2080EXEC INLINE(OPL) 2095ENDWHILE 2110LR=RESULT 2125IF LR>B THEN 2140LF=B 2155EXEC CONV(LINE$,LF,6) 2170EXEC OUTLINE(9) 2185ENDIF 2200WHEN 11 2215EXEC DATOCHECK(LINE$,LA) 2230WHILE LA=B 2245EXEC INLINE(OPL) 2260EXEC DATOCHECK(LINE$,LA) 2275ENDWHILE 2290LA=RESULT 2305WHEN 12 2320POST2$(19,20)=LINE$ 2335WHEN 13 2350RPI=RESULT 2365WHEN 14 2380K1=(ORD(LINE$(E))-48)*10000+(ORD(LINE$(G))-48)*1000 2395K1=K1+(ORD(LINE$(V))-48)*100+(ORD(LINE$(4))-48)*10+ORD(LINE$(5))-48 2410K2=(ORD(LINE$(6))-48)*10000+(ORD(LINE$(7))-48)*1000 2425K2=K2+(ORD(LINE$(8))-48)*100+(ORD(LINE$(W))-48)*10+ORD(LINE$(10))-48 2440WHEN 15 2455WHILE RESULT<E OR RESULT>7 2470EXEC INLINE(OPL) 2485ENDWHILE 2500POST2$(21)=LINE$ 2515WHEN 16 2530WHILE RESULT<E OR RESULT>5 2545EXEC INLINE(OPL) 2560ENDWHILE 2575POST2$(22)=LINE$ 2590WHEN 17 2605WHILE RESULT<E OR RESULT>4 2620EXEC INLINE(OPL) 2635ENDWHILE 2650POST2$(23)=LINE$ 2665WHEN 18 2680WHILE RESULT<E 2695EXEC INLINE(OPL) 2710ENDWHILE 2725POST2$(24,25)=LINE$ 2740WHEN 19 2755FG=RESULT 2770WHEN 20 2785WHILE RESULT<B OR RESULT>V 2800EXEC INLINE(OPL) 2815ENDWHILE 2830POST2$(26)=LINE$ 2845WHEN 21 2860EXEC DATOCHECK(LINE$,FD) 2875WHILE FD=B AND RESULT<>B 2890EXEC INLINE(OPL) 2905EXEC DATOCHECK(LINE$,FD) 2920ENDWHILE 2935FD=RESULT 2950ENDCASE 2965ENDPROC 2980PROC SKRIVOPL 2995IF OUTP=B THEN CLEAR 3000PRINT "L Ø N M O D T A G E R K A R T O T E K";TAB(60);"Dato ";DAD$ 3010FOR J=E TO A 3025CASE J OF 3040WHEN E 3055EXEC CONV(LINE$,LMNR,0) 3070WHEN G 3085LINE$=POST1$(E,25) 3100WHEN V 3115LINE$=POST1$(26,48) 3130WHEN 4 3145LINE$=POST1$(49,71) 3160WHEN 5 3175LINE$=POST2$(E,4) 3190WHEN 6 3205LINE$=POST2$(5,18) 3220WHEN 7 3235EXEC CONV(LINE$,C1,6) 3250EXEC CONV(LINE1$,C2,4) 3265LINE$=LINE$+LINE1$ 3280WHEN 8 3295EXEC CONV(LINE$,LT,0) 3310WHEN W 3325EXEC CONV(LINE$,LF,6) 3340WHEN 10 3355EXEC CONV(LINE$,LR,6) 3370WHEN 11 3385EXEC CONV(LINE$,LA,6) 3400WHEN 12 3415LINE$=POST2$(19,20) 3430WHEN 13 3445EXEC CONV(LINE$,RPI,6) 3460WHEN 14 3475EXEC CONV(LINE$,K1,5) 3490EXEC CONV(LINE1$,K2,5) 3505LINE$=LINE$+LINE1$ 3520WHEN 15 3535LINE$=POST2$(21) 3550WHEN 16 3565LINE$=POST2$(22) 3580WHEN 17 3595LINE$=POST2$(23) 3610WHEN 18 3625LINE$=POST2$(24,25) 3640WHEN 19 3655EXEC CONV(LINE$,FG,5) 3670WHEN 20 3685LINE$=POST2$(26) 3700WHEN 21 3715EXEC CONV(LINE$,FD,6) 3730ENDCASE 3745IF OUTP=B THEN 3760EXEC OUTLINE(J) 3775ELSE 3790EXEC OUTPLINE(J) 3805ENDIF 3820NEXT J 3835ENDPROC 3850PROC OUTLINE(N) 3865CURSOR X(N),Y(N) 3880PRINT USING "### ":N; 3895PRINT PICT$(N);":";LINE$ 3910ENDPROC 3925PROC INDVIRK 3940OPEN FIL$,W 3955EXEC FEJL(B,B,FIL$) 3970GET FIL$,E:POST3$ 3985GET FIL$,G:POST4$,SLJNR,MLMNR,ATPLM 3990GET FIL$,V:DAD$ 4000ENDPROC 4015PROC FEJL(P1,P2,P3) 4030IF STATUS(P3$)<>B THEN 4045OUTPUT T 4060PRINT "FIL-FEJL ";P3$;STATUS(P3$),P1;P2 4075STOP 4090ENDIF 4105ENDPROC 4120PROC INLINE(N) 4135REPEAT 4150CURSOR X(N)+5+LEN(PICT$(N)),Y(N) 4165PRINT BL$(E:ABS(TYPE(N))+V) 4180CURSOR X(N),Y(N) 4195PRINT USING "### ":N; 4210PRINT PICT$(N);":"; 4225INPUT "",LINE$ 4240IF TYPE(N)<B THEN 4255IF LEN(LINE$)<=ABS(TYPE(N)) THEN 4270OK=E 4285FOR I=LEN(LINE$)+E TO ABS(TYPE(N)) 4300LINE$(I)=" " 4315NEXT I 4330ELSE 4345OK=B 4360ENDIF 4375ELSE 4390EXEC CHECK(LINE$,OK) 4405IF TYPE(N)>B AND TYPE(N)<>OK THEN OK=B 4420ENDIF 4435UNTIL OK<>B 4450ENDPROC 4465PROC SKRIVPICT 4480CLEAR 4495FOR I=E TO A 4510CURSOR X(I),Y(I) 4525PRINT USING "### ":I; 4540PRINT PICT$(I);":" 4555NEXT I 4570ENDPROC 4585PROC OUTPLINE(N) 4600PRINT TAB(X(N)); 4615PRINT USING "### ":N; 4630PRINT PICT$(N);":";LINE$; 4632IF N=21 THEN 4634PRINT 4636ELSE 4638IF Y(N)<Y(N+E) THEN PRINT 4640ENDIF 4645ENDPROC 4660A=21 4675DIM X(A),Y(A),PICT$(A,20),TYPE(A) 4690DIM POST1$(71),POST2$(27) 4705DIM BL$(79),LINE$(30),FIL$(20),LINE1$(30) 4720FOR I=E TO 79 4735BL$=BL$+" " 4750NEXT I 4765FIL$="P641220:VIRKKART" 4780X(E)=E 4795X(G)=30 4810X(V)=E 4825X(4)=E 4840X(5)=E 4855X(6)=30 4870X(7)=E 4885X(8)=30 4900X(W)=E 4915X(10)=30 4930X(11)=E 4945X(12)=30 4960X(13)=E 4975X(14)=30 4990X(15)=E 5005X(16)=30 5020X(17)=60 5035X(18)=E 5050X(19)=30 5065X(20)=60 5080X(21)=E 5095Y(E)=G 5110Y(G)=G 5125Y(V)=4 5140Y(4)=6 5155Y(5)=8 5170Y(6)=8 5185Y(7)=10 5200Y(8)=10 5215Y(W)=12 5230Y(10)=12 5245Y(11)=14 5260Y(12)=14 5275Y(13)=16 5290Y(14)=16 5305Y(15)=18 5320Y(16)=18 5335Y(17)=18 5350Y(18)=20 5365Y(19)=20 5380Y(20)=20 5395Y(21)=22 5410TYPE(E)=B 5425TYPE(G)=-25 5440TYPE(V)=-23 5455TYPE(4)=-23 5470TYPE(5)=4 5485TYPE(6)=-14 5500TYPE(7)=10 5515TYPE(8)=B 5530TYPE(W)=B 5545TYPE(10)=B 5560TYPE(11)=6 5575TYPE(12)=B 5590TYPE(13)=6 5605TYPE(14)=10 5620TYPE(15)=E 5635TYPE(16)=E 5650TYPE(17)=E 5665TYPE(18)=G 5680TYPE(19)=5 5695TYPE(20)=E 5710TYPE(21)=6 5725PICT$(E)="Lønnr" 5740PICT$(G)="Navn" 5755PICT$(V)="Adresse 1" 5770PICT$(4)="Adresse 2" 5785PICT$(5)="Postnr" 5800PICT$(6)="By" 5815PICT$(7)="CPR-nr" 5830PICT$(8)="Trækpct" 5845PICT$(W)="Skattefr 1 md" 5860PICT$(10)="Rest frikort" 5875PICT$(11)="Ansættelses dato" 5890PICT$(12)="Afd-nr" 5905PICT$(13)="Reg-nr, PI" 5920PICT$(14)="Kto-nr, PI" 5935PICT$(15)="Lønperiode" 5950PICT$(16)="Feriekode" 5965PICT$(17)="SH-kode" 5980PICT$(18)="OR-kode" 5995PICT$(19)="Faggr-kode" 6010PICT$(20)="Dagp-kode" 6025PICT$(21)="Fratrædelsesdato" 6040EXEC INDVIRK 6055CLOSE FIL$ 6070FIL$="P641220:LØNMODRG" 6085OPEN FIL$,W 6100EXEC FEJL(B,B,FIL$) 6115NUL$=" 0+" 6130OUTP=B 6145FIL2$="P641220:TÆLLEREG" 6160OPEN FIL2$,W 6175EXEC FEJL(B,B,FIL2$) 6190POST6$="" 6205FOR J=E TO 5 6220POST6$=POST6$+NUL$ 6235NEXT J 6236FIL1$="P641220:TRANSREG" 6237OPEN FIL1$,W 6238EXEC FEJL(B,B,FIL1$) 6250REPEAT 6265SV=G 6280CLEAR 6295CURSOR 10,10 6310PRINT "L Ø N M O D T A G E R - K A R T O T E K" 6325PRINT 6340PRINT TAB(10);"0 Færdig" 6355PRINT TAB(10);"1 Ændring" 6370PRINT TAB(10);"2 Udskrift på skærm" 6385PRINT TAB(10);"3 Udskrift på printer" 6400PRINT TAB(10);"4 Oprettelse" 6415PRINT TAB(10);"5 Sletning" 6430PRINT 6445REPEAT 6460CURSOR E,19 6475EDIT " ",SV 6490UNTIL SV=>B AND SV<=5 6505IF SV>B THEN 6520REPEAT 6535EXEC INOPL(1) 6550UNTIL LMNR=>B AND LMNR<=MLMNR 6551LISTE=B 6552IF LMNR=B THEN LISTE=E 6553REPEAT 6554IF LISTE=E THEN LMNR=LMNR+E 6565EXEC INLØNMOD(LMNR) 6580CASE SV OF 6595WHEN E 6610IF LA<>B THEN 6625EXEC SKRIVOPL 6640REPEAT 6655REPEAT 6670SV1=B 6685CURSOR E,23 6700EDIT "Feltnr ",SV1 6715UNTIL SV1>E AND SV1<22 OR SV1=B 6730IF SV1>B THEN 6745EXEC INOPL(SV1) 6760ENDIF 6775UNTIL SV1=B 6790EXEC UDLØNMOD(LMNR) 6805ELSE 6820PRINT "Lønmodtager findes ikke" 6835INPUT "RETURN",LINE$ 6850ENDIF 6865WHEN G 6880IF LA<>B THEN 6895OUTP=B 6910EXEC SKRIVOPL 6925INPUT "RETURN",LINE$ 6940ELSE 6955PRINT "Lønmodtager findes ikke" 6970INPUT "RETURN",LINE$ 6985ENDIF 7000WHEN V 7015IF LA<>B OR LISTE=E THEN 7016IF LA<>B THEN 7030OUTPUT P 7045OUTP=E 7060EXEC SKRIVOPL 7062FOR I=13 TO 72 7064PRINT 7066NEXT I 7075OUTP=B 7090OUTPUT T 7095ENDIF 7105ELSE 7120PRINT "Lønmodtager findes ikke" 7135INPUT "RETURN",LINE$ 7150ENDIF 7165WHEN 4 7180IF LA<>B THEN 7195PRINT "Lønmodtager findes allerede" 7210INPUT "RETURN",LINE$ 7225ELSE 7240EXEC SKRIVPICT 7255EXEC CONV(LINE$,LMNR,0) 7270EXEC OUTLINE(1) 7275FD=B 7285FOR J=G TO 18 7300EXEC INOPL(J) 7315NEXT J 7330IF RESULT<80 THEN 7345EXEC INOPL(19) 7360EXEC INOPL(20) 7375ELSE 7390FG=B 7405POST2$(26)="0" 7420ENDIF 7435REPEAT 7450REPEAT 7465SV1=B 7480CURSOR E,23 7495EDIT "Feltnr ",SV1 7510UNTIL SV1>E AND SV1<22 OR SV1=B 7525IF SV1>B THEN 7540EXEC INOPL(SV1) 7555ENDIF 7570UNTIL SV1=B 7585EXEC NULTÆL(LMNR) 7600EXEC UDLØNMOD(LMNR) 7615ENDIF 7630WHEN 5 7645IF LA<>B THEN 7660SV1=G 7675EXEC INDTÆL(LMNR) 7705IF TV$(34)<>NUL$ THEN SV1=B 7706IF TV$(35)<>NUL$ THEN SV1=B 7707IF TV$(36)<>NUL$ THEN SV1=B 7708IF TV$(37)<>NUL$ THEN SV1=B 7709IF TV$(38)<>NUL$ THEN SV1=B 7710IF TV$(39)<>NUL$ THEN SV1=B 7735IF SV1=B THEN 7750CURSOR E,23 7765INPUT "Sletning ikke tilladt RETURN ",LINE$ 7780ELSE 7795EXEC SKRIVOPL 7800ENDIF 7810 WHILE SV1<>0 AND SV1<>1 7812 SV1=0 7825 CURSOR 1,23 7840 EDIT "Sletning korrekt 1: ",SV1 7855 ENDWHILE 7870 IF SV1=1 THEN 7885 LA=0 7900 EXEC UDLØNMOD(LMNR) 7910 EXEC NULTRANS(LMNR) 7915 EXEC NULTÆL(LMNR) 7930 ENDIF 7945 ELSE 7960 PRINT "Lønmodtager findes ikke" 7975 INPUT "RETURN",LINE$ 7990 ENDIF 8005 ENDCASE 8006 UNTIL LISTE=0 OR LMNR=>MLMNR 8010 ENDIF 8020 UNTIL SV=0 8035 CLOSE FIL$ 8050 CLOSE FIL2$ 8065 CHAIN "P641210:STARTB"
0x0000…0048 Line {l1=0x46, l2=»0010DIM CPR(10),POST3$(55),POST4$(34),FIL2$(20),POST5$(55),POST6$(55) «, l3=0x46}
0x0048…0078 Line {l1=0x2e, l2=»0025DIM NUL$(11),TV$(45,11),FIL1$(20),DAD$(6) «, l3=0x2e}
0x0078…0095 Line {l1=0x1b, l2=»0040PROC CPRCHECK(NR4,OK4) «, l3=0x1b}
0x0095…00a1 Line {l1=0x0a, l2=»0055OK4=E «, l3=0x0a}
0x00a1…00b5 Line {l1=0x12, l2=»0070FOR I=E TO 10 «, l3=0x12}
0x00b5…00d2 Line {l1=0x1b, l2=»0085CPR(I)=ORD(NR4$(I))-48 «, l3=0x1b}
0x00d2…00df Line {l1=0x0b, l2=»0100NEXT I «, l3=0x0b}
0x00df…00fb Line {l1=0x1a, l2=»0115DATO=CPR(E)*10+CPR(G) «, l3=0x1a}
0x00fb…0118 Line {l1=0x1b, l2=»0130MÅNED=CPR(V)*10+CPR(4) «, l3=0x1b}
0x0118…0132 Line {l1=0x18, l2=»0145ÅR=CPR(5)*10+CPR(6) «, l3=0x18}
0x0132…016f Line {l1=0x3b, l2=»0160IF DATO<E OR MÅNED<E OR MÅNED>12 OR DATO>31 THEN OK4=B «, l3=0x3b}
0x016f…0189 Line {l1=0x18, l2=»0175IF OK4=B THEN EXIT «, l3=0x18}
0x0189…019e Line {l1=0x13, l2=»0190CASE MÅNED OF «, l3=0x13}
0x019e…01b2 Line {l1=0x12, l2=»0205WHEN 4,6,W,11 «, l3=0x12}
0x01b2…01ce Line {l1=0x1a, l2=»0220IF DATO>30 THEN OK4=B «, l3=0x1a}
0x01ce…01db Line {l1=0x0b, l2=»0235WHEN G «, l3=0x0b}
0x01db…01f7 Line {l1=0x1a, l2=»0250IF DATO>29 THEN OK4=B «, l3=0x1a}
0x01f7…0223 Line {l1=0x2a, l2=»0265IF DATO=29 AND ÅR MOD 4<>B THEN OK4=B «, l3=0x2a}
0x0223…0232 Line {l1=0x0d, l2=»0280ENDCASE «, l3=0x0d}
0x0232…024c Line {l1=0x18, l2=»0295IF OK4=B THEN EXIT «, l3=0x18}
0x024c…0298 Line {l1=0x4a, l2=»0310MODULC=CPR(E)*4+CPR(G)*V+CPR(V)*G+CPR(4)*7+CPR(5)*6+CPR(6)*5+CPR(7)*4 «, l3=0x4a}
0x0298…02c6 Line {l1=0x2c, l2=»0325MODULC=MODULC+CPR(8)*V+CPR(W)*G+CPR(10) «, l3=0x2c}
0x02c6…02eb Line {l1=0x23, l2=»0340IF MODULC MOD 11<>B THEN OK4=B «, l3=0x23}
0x02eb…02fa Line {l1=0x0d, l2=»0355ENDPROC «, l3=0x0d}
0x02fa…0318 Line {l1=0x1c, l2=»0370PROC DATOCHECK(NR5,OK5) «, l3=0x1c}
0x0318…0324 Line {l1=0x0a, l2=»0385OK5=E «, l3=0x0a}
0x0324…0352 Line {l1=0x2c, l2=»0400ÅR=(ORD(NR5$(E))-48)*10+ORD(NR5$(G))-48 «, l3=0x2c}
0x0352…0383 Line {l1=0x2f, l2=»0415MÅNED=(ORD(NR5$(V))-48)*10+ORD(NR5$(4))-48 «, l3=0x2f}
0x0383…03b3 Line {l1=0x2e, l2=»0430DATO=(ORD(NR5$(5))-48)*10+ORD(NR5$(6))-48 «, l3=0x2e}
0x03b3…03f0 Line {l1=0x3b, l2=»0445IF DATO<E OR MÅNED<E OR MÅNED>12 OR DATO>31 THEN OK5=B «, l3=0x3b}
0x03f0…040a Line {l1=0x18, l2=»0460IF OK5=B THEN EXIT «, l3=0x18}
0x040a…041f Line {l1=0x13, l2=»0475CASE MÅNED OF «, l3=0x13}
0x041f…0433 Line {l1=0x12, l2=»0490WHEN 4,6,W,11 «, l3=0x12}
0x0433…044f Line {l1=0x1a, l2=»0505IF DATO>30 THEN OK5=B «, l3=0x1a}
0x044f…045c Line {l1=0x0b, l2=»0520WHEN G «, l3=0x0b}
0x045c…0478 Line {l1=0x1a, l2=»0535IF DATO>29 THEN OK5=B «, l3=0x1a}
0x0478…04a4 Line {l1=0x2a, l2=»0550IF DATO=29 AND ÅR MOD 4<>B THEN OK5=B «, l3=0x2a}
0x04a4…04b3 Line {l1=0x0d, l2=»0565ENDCASE «, l3=0x0d}
0x04b3…04c2 Line {l1=0x0d, l2=»0580ENDPROC «, l3=0x0d}
0x04c2…04d9 Line {l1=0x15, l2=»0581PROC NULTRANS(N) «, l3=0x15}
0x04d9…04ed Line {l1=0x12, l2=»0582J=(N-E)*ATPLM «, l3=0x12}
0x04ed…0504 Line {l1=0x15, l2=»0583FOR I=E TO ATPLM «, l3=0x15}
0x0504…0522 Line {l1=0x1c, l2=»0584PUT FIL1$,J+I:BL$(E,37) «, l3=0x1c}
0x0522…052f Line {l1=0x0b, l2=»0585NEXT I «, l3=0x0b}
0x052f…054e Line {l1=0x1d, l2=»0586EXEC FEJL(N,ATPLM,FIL1$) «, l3=0x1d}
0x054e…055d Line {l1=0x0d, l2=»0587ENDPROC «, l3=0x0d}
0x055d…0572 Line {l1=0x13, l2=»0595PROC NULTÆL(N) «, l3=0x13}
0x0572…0584 Line {l1=0x10, l2=»0610J=W*(N-E)+E «, l3=0x10}
0x0584…0599 Line {l1=0x13, l2=»0625FOR I=J TO J+8 «, l3=0x13}
0x0599…05b2 Line {l1=0x17, l2=»0640PUT FIL2$,I:POST6$ «, l3=0x17}
0x05b2…05bf Line {l1=0x0b, l2=»0655NEXT I «, l3=0x0b}
0x05bf…05da Line {l1=0x19, l2=»0670EXEC FEJL(I,N,FIL2$) «, l3=0x19}
0x05da…05e9 Line {l1=0x0d, l2=»0685ENDPROC «, l3=0x0d}
0x05e9…05fe Line {l1=0x13, l2=»0700PROC INDTÆL(N) «, l3=0x13}
0x05fe…060e Line {l1=0x0e, l2=»0715J=W*(N-E) «, l3=0x0e}
0x060e…0621 Line {l1=0x11, l2=»0730FOR K=6 TO W «, l3=0x11}
0x0621…063c Line {l1=0x19, l2=»0745GET FIL2$,J+K:POST5$ «, l3=0x19}
0x063c…064f Line {l1=0x11, l2=»0760FOR I=E TO 5 «, l3=0x11}
0x064f…067a Line {l1=0x29, l2=»0775TV$((K-E)*5+I)=POST5$((I-E)*11+E:11) «, l3=0x29}
0x067a…0687 Line {l1=0x0b, l2=»0790NEXT I «, l3=0x0b}
0x0687…0694 Line {l1=0x0b, l2=»0805NEXT K «, l3=0x0b}
0x0694…06af Line {l1=0x19, l2=»0820EXEC FEJL(N,K,FIL2$) «, l3=0x19}
0x06af…06be Line {l1=0x0d, l2=»0835ENDPROC «, l3=0x0d}
0x06be…06d5 Line {l1=0x15, l2=»0850PROC INLØNMOD(N) «, l3=0x15}
0x06d5…06f1 Line {l1=0x1a, l2=»0865GET FIL$,G*N-E:POST1$ «, l3=0x1a}
0x06f1…072d Line {l1=0x3a, l2=»0880GET FIL$,G*N:POST2$,C1,C2,LT,LF,LR,LA,RPI,K1,K2,FG,FD «, l3=0x3a}
0x072d…0747 Line {l1=0x18, l2=»0895EXEC FEJL(E,N,FIL$) «, l3=0x18}
0x0747…0756 Line {l1=0x0d, l2=»0910ENDPROC «, l3=0x0d}
0x0756…076d Line {l1=0x15, l2=»0925PROC UDLØNMOD(N) «, l3=0x15}
0x076d…0789 Line {l1=0x1a, l2=»0940PUT FIL$,G*N-E:POST1$ «, l3=0x1a}
0x0789…07c5 Line {l1=0x3a, l2=»0955PUT FIL$,G*N:POST2$,C1,C2,LT,LF,LR,LA,RPI,K1,K2,FG,FD «, l3=0x3a}
0x07c5…07df Line {l1=0x18, l2=»0970EXEC FEJL(G,N,FIL$) «, l3=0x18}
0x07df…07ee Line {l1=0x0d, l2=»0985ENDPROC «, l3=0x0d}
0x07ee…080c Line {l1=0x1c, l2=»1000PROC CONV(NR2,OK22,CIF) «, l3=0x1c}
0x080c…081b Line {l1=0x0d, l2=»1015OK2=OK22 «, l3=0x0d}
0x081b…0829 Line {l1=0x0c, l2=»1030NR2$="" «, l3=0x0c}
0x0829…0837 Line {l1=0x0c, l2=»1045REPEAT «, l3=0x0c}
0x0837…085c Line {l1=0x23, l2=»1060NR2$=CHR((OK2 MOD 10)+48)+NR2$ «, l3=0x23}
0x085c…086c Line {l1=0x0e, l2=»1075CIF=CIF-E «, l3=0x0e}
0x086c…0881 Line {l1=0x13, l2=»1090OK2=OK2 DIV 10 «, l3=0x13}
0x0881…08a5 Line {l1=0x22, l2=»1105IF CIF<B AND OK2=B THEN CIF=B «, l3=0x22}
0x08a5…08b7 Line {l1=0x10, l2=»1120UNTIL CIF=B «, l3=0x10}
0x08b7…08c6 Line {l1=0x0d, l2=»1135ENDPROC «, l3=0x0d}
0x08c6…08e0 Line {l1=0x18, l2=»1150PROC CHECK(NR1,OK1) «, l3=0x18}
0x08e0…08ec Line {l1=0x0a, l2=»1165OK1=B «, l3=0x0a}
0x08ec…08fb Line {l1=0x0d, l2=»1180RESULT=B «, l3=0x0d}
0x08fb…0916 Line {l1=0x19, l2=»1195IF LEN(NR1$)>B THEN «, l3=0x19}
0x0916…0931 Line {l1=0x19, l2=»1210IF NR1$(E)="-" THEN «, l3=0x19}
0x0931…0942 Line {l1=0x0f, l2=»1225FORTEGN=-E «, l3=0x0f}
0x0942…094e Line {l1=0x0a, l2=»1240OK1=E «, l3=0x0a}
0x094e…095a Line {l1=0x0a, l2=»1255ELSE «, l3=0x0a}
0x095a…096a Line {l1=0x0e, l2=»1270FORTEGN=E «, l3=0x0e}
0x096a…0977 Line {l1=0x0b, l2=»1285ENDIF «, l3=0x0b}
0x0977…0991 Line {l1=0x18, l2=»1300WHILE LEN(NR1$)>OK1 «, l3=0x18}
0x0991…09a1 Line {l1=0x0e, l2=»1315OK1=OK1+E «, l3=0x0e}
0x09a1…09cf Line {l1=0x2c, l2=»1330IF NR1$(OK1)<"0" OR NR1$(OK1)>"9" THEN «, l3=0x2c}
0x09cf…09df Line {l1=0x0e, l2=»1345FORTEGN=B «, l3=0x0e}
0x09df…09f3 Line {l1=0x12, l2=»1360OK1=LEN(NR1$) «, l3=0x12}
0x09f3…0a00 Line {l1=0x0b, l2=»1375ENDIF «, l3=0x0b}
0x0a00…0a29 Line {l1=0x27, l2=»1390RESULT=RESULT*10+ORD(NR1$(OK1))-48 «, l3=0x27}
0x0a29…0a39 Line {l1=0x0e, l2=»1405ENDWHILE «, l3=0x0e}
0x0a39…0a4f Line {l1=0x14, l2=»1420OK1=OK1*FORTEGN «, l3=0x14}
0x0a4f…0a6d Line {l1=0x1c, l2=»1435IF OK1<B THEN OK1=OK1+E «, l3=0x1c}
0x0a6d…0a7a Line {l1=0x0b, l2=»1450ENDIF «, l3=0x0b}
0x0a7a…0a89 Line {l1=0x0d, l2=»1465ENDPROC «, l3=0x0d}
0x0a89…0a9f Line {l1=0x14, l2=»1480PROC INOPL(OPL) «, l3=0x14}
0x0a9f…0ab6 Line {l1=0x15, l2=»1495EXEC INLINE(OPL) «, l3=0x15}
0x0ab6…0ac9 Line {l1=0x11, l2=»1510CASE OPL OF «, l3=0x11}
0x0ac9…0ad6 Line {l1=0x0b, l2=»1525WHEN E «, l3=0x0b}
0x0ad6…0ae8 Line {l1=0x10, l2=»1540LMNR=RESULT «, l3=0x10}
0x0ae8…0af5 Line {l1=0x0b, l2=»1555WHEN G «, l3=0x0b}
0x0af5…0b0e Line {l1=0x17, l2=»1570POST1$(E,25)=LINE$ «, l3=0x17}
0x0b0e…0b1b Line {l1=0x0b, l2=»1585WHEN V «, l3=0x0b}
0x0b1b…0b35 Line {l1=0x18, l2=»1600POST1$(26,48)=LINE$ «, l3=0x18}
0x0b35…0b42 Line {l1=0x0b, l2=»1615WHEN 4 «, l3=0x0b}
0x0b42…0b5c Line {l1=0x18, l2=»1630POST1$(49,71)=LINE$ «, l3=0x18}
0x0b5c…0b69 Line {l1=0x0b, l2=»1645WHEN 5 «, l3=0x0b}
0x0b69…0b81 Line {l1=0x16, l2=»1660POST2$(E,4)=LINE$ «, l3=0x16}
0x0b81…0b8e Line {l1=0x0b, l2=»1675WHEN 6 «, l3=0x0b}
0x0b8e…0ba7 Line {l1=0x17, l2=»1690POST2$(5,18)=LINE$ «, l3=0x17}
0x0ba7…0bb4 Line {l1=0x0b, l2=»1705WHEN 7 «, l3=0x0b}
0x0bb4…0bd2 Line {l1=0x1c, l2=»1720EXEC CPRCHECK(LINE$,C1) «, l3=0x1c}
0x0bd2…0be3 Line {l1=0x0f, l2=»1735WHILE C1=B «, l3=0x0f}
0x0be3…0bfa Line {l1=0x15, l2=»1750EXEC INLINE(OPL) «, l3=0x15}
0x0bfa…0c18 Line {l1=0x1c, l2=»1765EXEC CPRCHECK(LINE$,C1) «, l3=0x1c}
0x0c18…0c28 Line {l1=0x0e, l2=»1780ENDWHILE «, l3=0x0e}
0x0c28…0c49 Line {l1=0x1f, l2=»1795C1=DATO*10000+MÅNED*100+ÅR «, l3=0x1f}
0x0c49…0c7b Line {l1=0x30, l2=»1810C2=CPR(10)+CPR(W)*10+CPR(8)*100+CPR(7)*1000 «, l3=0x30}
0x0c7b…0c88 Line {l1=0x0b, l2=»1825WHEN 8 «, l3=0x0b}
0x0c88…0caa Line {l1=0x20, l2=»1840WHILE RESULT<B OR RESULT>99 «, l3=0x20}
0x0caa…0cc1 Line {l1=0x15, l2=»1855EXEC INLINE(OPL) «, l3=0x15}
0x0cc1…0cd1 Line {l1=0x0e, l2=»1870ENDWHILE «, l3=0x0e}
0x0cd1…0ce1 Line {l1=0x0e, l2=»1885LT=RESULT «, l3=0x0e}
0x0ce1…0cee Line {l1=0x0b, l2=»1900WHEN W «, l3=0x0b}
0x0cee…0d14 Line {l1=0x24, l2=»1915WHILE RESULT<B OR RESULT>999999 «, l3=0x24}
0x0d14…0d2b Line {l1=0x15, l2=»1930EXEC INLINE(OPL) «, l3=0x15}
0x0d2b…0d3b Line {l1=0x0e, l2=»1945ENDWHILE «, l3=0x0e}
0x0d3b…0d4b Line {l1=0x0e, l2=»1960LF=RESULT «, l3=0x0e}
0x0d4b…0d5f Line {l1=0x12, l2=»1975IF LF>B THEN «, l3=0x12}
0x0d5f…0d6a Line {l1=0x09, l2=»1990LR=B «, l3=0x09}
0x0d6a…0d86 Line {l1=0x1a, l2=»2005EXEC CONV(LINE$,LR,6) «, l3=0x1a}
0x0d86…0d9d Line {l1=0x15, l2=»2020EXEC OUTLINE(10) «, l3=0x15}
0x0d9d…0daa Line {l1=0x0b, l2=»2035ENDIF «, l3=0x0b}
0x0daa…0db8 Line {l1=0x0c, l2=»2050WHEN 10 «, l3=0x0c}
0x0db8…0dde Line {l1=0x24, l2=»2065WHILE RESULT<B OR RESULT>999999 «, l3=0x24}
0x0dde…0df5 Line {l1=0x15, l2=»2080EXEC INLINE(OPL) «, l3=0x15}
0x0df5…0e05 Line {l1=0x0e, l2=»2095ENDWHILE «, l3=0x0e}
0x0e05…0e15 Line {l1=0x0e, l2=»2110LR=RESULT «, l3=0x0e}
0x0e15…0e29 Line {l1=0x12, l2=»2125IF LR>B THEN «, l3=0x12}
0x0e29…0e34 Line {l1=0x09, l2=»2140LF=B «, l3=0x09}
0x0e34…0e50 Line {l1=0x1a, l2=»2155EXEC CONV(LINE$,LF,6) «, l3=0x1a}
0x0e50…0e66 Line {l1=0x14, l2=»2170EXEC OUTLINE(9) «, l3=0x14}
0x0e66…0e73 Line {l1=0x0b, l2=»2185ENDIF «, l3=0x0b}
0x0e73…0e81 Line {l1=0x0c, l2=»2200WHEN 11 «, l3=0x0c}
0x0e81…0ea0 Line {l1=0x1d, l2=»2215EXEC DATOCHECK(LINE$,LA) «, l3=0x1d}
0x0ea0…0eb1 Line {l1=0x0f, l2=»2230WHILE LA=B «, l3=0x0f}
0x0eb1…0ec8 Line {l1=0x15, l2=»2245EXEC INLINE(OPL) «, l3=0x15}
0x0ec8…0ee7 Line {l1=0x1d, l2=»2260EXEC DATOCHECK(LINE$,LA) «, l3=0x1d}
0x0ee7…0ef7 Line {l1=0x0e, l2=»2275ENDWHILE «, l3=0x0e}
0x0ef7…0f07 Line {l1=0x0e, l2=»2290LA=RESULT «, l3=0x0e}
0x0f07…0f15 Line {l1=0x0c, l2=»2305WHEN 12 «, l3=0x0c}
0x0f15…0f2f Line {l1=0x18, l2=»2320POST2$(19,20)=LINE$ «, l3=0x18}
0x0f2f…0f3d Line {l1=0x0c, l2=»2335WHEN 13 «, l3=0x0c}
0x0f3d…0f4e Line {l1=0x0f, l2=»2350RPI=RESULT «, l3=0x0f}
0x0f4e…0f5c Line {l1=0x0c, l2=»2365WHEN 14 «, l3=0x0c}
0x0f5c…0f96 Line {l1=0x38, l2=»2380K1=(ORD(LINE$(E))-48)*10000+(ORD(LINE$(G))-48)*1000 «, l3=0x38}
0x0f96…0fe0 Line {l1=0x48, l2=»2395K1=K1+(ORD(LINE$(V))-48)*100+(ORD(LINE$(4))-48)*10+ORD(LINE$(5))-48 «, l3=0x48}
0x0fe0…101a Line {l1=0x38, l2=»2410K2=(ORD(LINE$(6))-48)*10000+(ORD(LINE$(7))-48)*1000 «, l3=0x38}
0x101a…1065 Line {l1=0x49, l2=»2425K2=K2+(ORD(LINE$(8))-48)*100+(ORD(LINE$(W))-48)*10+ORD(LINE$(10))-48 «, l3=0x49}
0x1065…1073 Line {l1=0x0c, l2=»2440WHEN 15 «, l3=0x0c}
0x1073…1094 Line {l1=0x1f, l2=»2455WHILE RESULT<E OR RESULT>7 «, l3=0x1f}
0x1094…10ab Line {l1=0x15, l2=»2470EXEC INLINE(OPL) «, l3=0x15}
0x10ab…10bb Line {l1=0x0e, l2=»2485ENDWHILE «, l3=0x0e}
0x10bb…10d2 Line {l1=0x15, l2=»2500POST2$(21)=LINE$ «, l3=0x15}
0x10d2…10e0 Line {l1=0x0c, l2=»2515WHEN 16 «, l3=0x0c}
0x10e0…1101 Line {l1=0x1f, l2=»2530WHILE RESULT<E OR RESULT>5 «, l3=0x1f}
0x1101…1118 Line {l1=0x15, l2=»2545EXEC INLINE(OPL) «, l3=0x15}
0x1118…1128 Line {l1=0x0e, l2=»2560ENDWHILE «, l3=0x0e}
0x1128…113f Line {l1=0x15, l2=»2575POST2$(22)=LINE$ «, l3=0x15}
0x113f…114d Line {l1=0x0c, l2=»2590WHEN 17 «, l3=0x0c}
0x114d…116e Line {l1=0x1f, l2=»2605WHILE RESULT<E OR RESULT>4 «, l3=0x1f}
0x116e…1185 Line {l1=0x15, l2=»2620EXEC INLINE(OPL) «, l3=0x15}
0x1185…1195 Line {l1=0x0e, l2=»2635ENDWHILE «, l3=0x0e}
0x1195…11ac Line {l1=0x15, l2=»2650POST2$(23)=LINE$ «, l3=0x15}
0x11ac…11ba Line {l1=0x0c, l2=»2665WHEN 18 «, l3=0x0c}
0x11ba…11cf Line {l1=0x13, l2=»2680WHILE RESULT<E «, l3=0x13}
0x11cf…11e6 Line {l1=0x15, l2=»2695EXEC INLINE(OPL) «, l3=0x15}
0x11e6…11f6 Line {l1=0x0e, l2=»2710ENDWHILE «, l3=0x0e}
0x11f6…1210 Line {l1=0x18, l2=»2725POST2$(24,25)=LINE$ «, l3=0x18}
0x1210…121e Line {l1=0x0c, l2=»2740WHEN 19 «, l3=0x0c}
0x121e…122e Line {l1=0x0e, l2=»2755FG=RESULT «, l3=0x0e}
0x122e…123c Line {l1=0x0c, l2=»2770WHEN 20 «, l3=0x0c}
0x123c…125d Line {l1=0x1f, l2=»2785WHILE RESULT<B OR RESULT>V «, l3=0x1f}
0x125d…1274 Line {l1=0x15, l2=»2800EXEC INLINE(OPL) «, l3=0x15}
0x1274…1284 Line {l1=0x0e, l2=»2815ENDWHILE «, l3=0x0e}
0x1284…129b Line {l1=0x15, l2=»2830POST2$(26)=LINE$ «, l3=0x15}
0x129b…12a9 Line {l1=0x0c, l2=»2845WHEN 21 «, l3=0x0c}
0x12a9…12c8 Line {l1=0x1d, l2=»2860EXEC DATOCHECK(LINE$,FD) «, l3=0x1d}
0x12c8…12e7 Line {l1=0x1d, l2=»2875WHILE FD=B AND RESULT<>B «, l3=0x1d}
0x12e7…12fe Line {l1=0x15, l2=»2890EXEC INLINE(OPL) «, l3=0x15}
0x12fe…131d Line {l1=0x1d, l2=»2905EXEC DATOCHECK(LINE$,FD) «, l3=0x1d}
0x131d…132d Line {l1=0x0e, l2=»2920ENDWHILE «, l3=0x0e}
0x132d…133d Line {l1=0x0e, l2=»2935FD=RESULT «, l3=0x0e}
0x133d…134c Line {l1=0x0d, l2=»2950ENDCASE «, l3=0x0d}
0x134c…135b Line {l1=0x0d, l2=»2965ENDPROC «, l3=0x0d}
0x135b…136f Line {l1=0x12, l2=»2980PROC SKRIVOPL «, l3=0x12}
0x136f…138b Line {l1=0x1a, l2=»2995IF OUTP=B THEN CLEAR «, l3=0x1a}
0x138b…13d4 Line {l1=0x47, l2=»3000PRINT "L Ø N M O D T A G E R K A R T O T E K";TAB(60);"Dato ";DAD$ «, l3=0x47}
0x13d4…13e7 Line {l1=0x11, l2=»3010FOR J=E TO A «, l3=0x11}
0x13e7…13f8 Line {l1=0x0f, l2=»3025CASE J OF «, l3=0x0f}
0x13f8…1405 Line {l1=0x0b, l2=»3040WHEN E «, l3=0x0b}
0x1405…1423 Line {l1=0x1c, l2=»3055EXEC CONV(LINE$,LMNR,0) «, l3=0x1c}
0x1423…1430 Line {l1=0x0b, l2=»3070WHEN G «, l3=0x0b}
0x1430…1449 Line {l1=0x17, l2=»3085LINE$=POST1$(E,25) «, l3=0x17}
0x1449…1456 Line {l1=0x0b, l2=»3100WHEN V «, l3=0x0b}
0x1456…1470 Line {l1=0x18, l2=»3115LINE$=POST1$(26,48) «, l3=0x18}
0x1470…147d Line {l1=0x0b, l2=»3130WHEN 4 «, l3=0x0b}
0x147d…1497 Line {l1=0x18, l2=»3145LINE$=POST1$(49,71) «, l3=0x18}
0x1497…14a4 Line {l1=0x0b, l2=»3160WHEN 5 «, l3=0x0b}
0x14a4…14bc Line {l1=0x16, l2=»3175LINE$=POST2$(E,4) «, l3=0x16}
0x14bc…14c9 Line {l1=0x0b, l2=»3190WHEN 6 «, l3=0x0b}
0x14c9…14e2 Line {l1=0x17, l2=»3205LINE$=POST2$(5,18) «, l3=0x17}
0x14e2…14ef Line {l1=0x0b, l2=»3220WHEN 7 «, l3=0x0b}
0x14ef…150b Line {l1=0x1a, l2=»3235EXEC CONV(LINE$,C1,6) «, l3=0x1a}
0x150b…1528 Line {l1=0x1b, l2=»3250EXEC CONV(LINE1$,C2,4) «, l3=0x1b}
0x1528…1541 Line {l1=0x17, l2=»3265LINE$=LINE$+LINE1$ «, l3=0x17}
0x1541…154e Line {l1=0x0b, l2=»3280WHEN 8 «, l3=0x0b}
0x154e…156a Line {l1=0x1a, l2=»3295EXEC CONV(LINE$,LT,0) «, l3=0x1a}
0x156a…1577 Line {l1=0x0b, l2=»3310WHEN W «, l3=0x0b}
0x1577…1593 Line {l1=0x1a, l2=»3325EXEC CONV(LINE$,LF,6) «, l3=0x1a}
0x1593…15a1 Line {l1=0x0c, l2=»3340WHEN 10 «, l3=0x0c}
0x15a1…15bd Line {l1=0x1a, l2=»3355EXEC CONV(LINE$,LR,6) «, l3=0x1a}
0x15bd…15cb Line {l1=0x0c, l2=»3370WHEN 11 «, l3=0x0c}
0x15cb…15e7 Line {l1=0x1a, l2=»3385EXEC CONV(LINE$,LA,6) «, l3=0x1a}
0x15e7…15f5 Line {l1=0x0c, l2=»3400WHEN 12 «, l3=0x0c}
0x15f5…160f Line {l1=0x18, l2=»3415LINE$=POST2$(19,20) «, l3=0x18}
0x160f…161d Line {l1=0x0c, l2=»3430WHEN 13 «, l3=0x0c}
0x161d…163a Line {l1=0x1b, l2=»3445EXEC CONV(LINE$,RPI,6) «, l3=0x1b}
0x163a…1648 Line {l1=0x0c, l2=»3460WHEN 14 «, l3=0x0c}
0x1648…1664 Line {l1=0x1a, l2=»3475EXEC CONV(LINE$,K1,5) «, l3=0x1a}
0x1664…1681 Line {l1=0x1b, l2=»3490EXEC CONV(LINE1$,K2,5) «, l3=0x1b}
0x1681…169a Line {l1=0x17, l2=»3505LINE$=LINE$+LINE1$ «, l3=0x17}
0x169a…16a8 Line {l1=0x0c, l2=»3520WHEN 15 «, l3=0x0c}
0x16a8…16bf Line {l1=0x15, l2=»3535LINE$=POST2$(21) «, l3=0x15}
0x16bf…16cd Line {l1=0x0c, l2=»3550WHEN 16 «, l3=0x0c}
0x16cd…16e4 Line {l1=0x15, l2=»3565LINE$=POST2$(22) «, l3=0x15}
0x16e4…16f2 Line {l1=0x0c, l2=»3580WHEN 17 «, l3=0x0c}
0x16f2…1709 Line {l1=0x15, l2=»3595LINE$=POST2$(23) «, l3=0x15}
0x1709…1717 Line {l1=0x0c, l2=»3610WHEN 18 «, l3=0x0c}
0x1717…1731 Line {l1=0x18, l2=»3625LINE$=POST2$(24,25) «, l3=0x18}
0x1731…173f Line {l1=0x0c, l2=»3640WHEN 19 «, l3=0x0c}
0x173f…175b Line {l1=0x1a, l2=»3655EXEC CONV(LINE$,FG,5) «, l3=0x1a}
0x175b…1769 Line {l1=0x0c, l2=»3670WHEN 20 «, l3=0x0c}
0x1769…1780 Line {l1=0x15, l2=»3685LINE$=POST2$(26) «, l3=0x15}
0x1780…178e Line {l1=0x0c, l2=»3700WHEN 21 «, l3=0x0c}
0x178e…17aa Line {l1=0x1a, l2=»3715EXEC CONV(LINE$,FD,6) «, l3=0x1a}
0x17aa…17b9 Line {l1=0x0d, l2=»3730ENDCASE «, l3=0x0d}
0x17b9…17cf Line {l1=0x14, l2=»3745IF OUTP=B THEN «, l3=0x14}
0x17cf…17e5 Line {l1=0x14, l2=»3760EXEC OUTLINE(J) «, l3=0x14}
0x17e5…17f1 Line {l1=0x0a, l2=»3775ELSE «, l3=0x0a}
0x17f1…1808 Line {l1=0x15, l2=»3790EXEC OUTPLINE(J) «, l3=0x15}
0x1808…1815 Line {l1=0x0b, l2=»3805ENDIF «, l3=0x0b}
0x1815…1822 Line {l1=0x0b, l2=»3820NEXT J «, l3=0x0b}
0x1822…1831 Line {l1=0x0d, l2=»3835ENDPROC «, l3=0x0d}
0x1831…1847 Line {l1=0x14, l2=»3850PROC OUTLINE(N) «, l3=0x14}
0x1847…185e Line {l1=0x15, l2=»3865CURSOR X(N),Y(N) «, l3=0x15}
0x185e…187a Line {l1=0x1a, l2=»3880PRINT USING "### ":N; «, l3=0x1a}
0x187a…1899 Line {l1=0x1d, l2=»3895PRINT PICT$(N);":";LINE$ «, l3=0x1d}
0x1899…18a8 Line {l1=0x0d, l2=»3910ENDPROC «, l3=0x0d}
0x18a8…18bb Line {l1=0x11, l2=»3925PROC INDVIRK «, l3=0x11}
0x18bb…18cd Line {l1=0x10, l2=»3940OPEN FIL$,W «, l3=0x10}
0x18cd…18e7 Line {l1=0x18, l2=»3955EXEC FEJL(B,B,FIL$) «, l3=0x18}
0x18e7…18ff Line {l1=0x16, l2=»3970GET FIL$,E:POST3$ «, l3=0x16}
0x18ff…1929 Line {l1=0x28, l2=»3985GET FIL$,G:POST4$,SLJNR,MLMNR,ATPLM «, l3=0x28}
0x1929…193f Line {l1=0x14, l2=»3990GET FIL$,V:DAD$ «, l3=0x14}
0x193f…194e Line {l1=0x0d, l2=»4000ENDPROC «, l3=0x0d}
0x194e…1968 Line {l1=0x18, l2=»4015PROC FEJL(P1,P2,P3) «, l3=0x18}
0x1968…1986 Line {l1=0x1c, l2=»4030IF STATUS(P3$)<>B THEN «, l3=0x1c}
0x1986…1995 Line {l1=0x0d, l2=»4045OUTPUT T «, l3=0x0d}
0x1995…19c3 Line {l1=0x2c, l2=»4060PRINT "FIL-FEJL ";P3$;STATUS(P3$),P1;P2 «, l3=0x2c}
0x19c3…19cf Line {l1=0x0a, l2=»4075STOP «, l3=0x0a}
0x19cf…19dc Line {l1=0x0b, l2=»4090ENDIF «, l3=0x0b}
0x19dc…19eb Line {l1=0x0d, l2=»4105ENDPROC «, l3=0x0d}
0x19eb…1a00 Line {l1=0x13, l2=»4120PROC INLINE(N) «, l3=0x13}
0x1a00…1a0e Line {l1=0x0c, l2=»4135REPEAT «, l3=0x0c}
0x1a0e…1a35 Line {l1=0x25, l2=»4150CURSOR X(N)+5+LEN(PICT$(N)),Y(N) «, l3=0x25}
0x1a35…1a57 Line {l1=0x20, l2=»4165PRINT BL$(E:ABS(TYPE(N))+V) «, l3=0x20}
0x1a57…1a6e Line {l1=0x15, l2=»4180CURSOR X(N),Y(N) «, l3=0x15}
0x1a6e…1a8a Line {l1=0x1a, l2=»4195PRINT USING "### ":N; «, l3=0x1a}
0x1a8a…1aa4 Line {l1=0x18, l2=»4210PRINT PICT$(N);":"; «, l3=0x18}
0x1aa4…1ab9 Line {l1=0x13, l2=»4225INPUT "",LINE$ «, l3=0x13}
0x1ab9…1ad2 Line {l1=0x17, l2=»4240IF TYPE(N)<B THEN «, l3=0x17}
0x1ad2…1afa Line {l1=0x26, l2=»4255IF LEN(LINE$)<=ABS(TYPE(N)) THEN «, l3=0x26}
0x1afa…1b05 Line {l1=0x09, l2=»4270OK=E «, l3=0x09}
0x1b05…1b2e Line {l1=0x27, l2=»4285FOR I=LEN(LINE$)+E TO ABS(TYPE(N)) «, l3=0x27}
0x1b2e…1b41 Line {l1=0x11, l2=»4300LINE$(I)=" " «, l3=0x11}
0x1b41…1b4e Line {l1=0x0b, l2=»4315NEXT I «, l3=0x0b}
0x1b4e…1b5a Line {l1=0x0a, l2=»4330ELSE «, l3=0x0a}
0x1b5a…1b65 Line {l1=0x09, l2=»4345OK=B «, l3=0x09}
0x1b65…1b72 Line {l1=0x0b, l2=»4360ENDIF «, l3=0x0b}
0x1b72…1b7e Line {l1=0x0a, l2=»4375ELSE «, l3=0x0a}
0x1b7e…1b99 Line {l1=0x19, l2=»4390EXEC CHECK(LINE$,OK) «, l3=0x19}
0x1b99…1bc6 Line {l1=0x2b, l2=»4405IF TYPE(N)>B AND TYPE(N)<>OK THEN OK=B «, l3=0x2b}
0x1bc6…1bd3 Line {l1=0x0b, l2=»4420ENDIF «, l3=0x0b}
0x1bd3…1be5 Line {l1=0x10, l2=»4435UNTIL OK<>B «, l3=0x10}
0x1be5…1bf4 Line {l1=0x0d, l2=»4450ENDPROC «, l3=0x0d}
0x1bf4…1c09 Line {l1=0x13, l2=»4465PROC SKRIVPICT «, l3=0x13}
0x1c09…1c16 Line {l1=0x0b, l2=»4480CLEAR «, l3=0x0b}
0x1c16…1c29 Line {l1=0x11, l2=»4495FOR I=E TO A «, l3=0x11}
0x1c29…1c40 Line {l1=0x15, l2=»4510CURSOR X(I),Y(I) «, l3=0x15}
0x1c40…1c5c Line {l1=0x1a, l2=»4525PRINT USING "### ":I; «, l3=0x1a}
0x1c5c…1c75 Line {l1=0x17, l2=»4540PRINT PICT$(I);":" «, l3=0x17}
0x1c75…1c82 Line {l1=0x0b, l2=»4555NEXT I «, l3=0x0b}
0x1c82…1c91 Line {l1=0x0d, l2=»4570ENDPROC «, l3=0x0d}
0x1c91…1ca8 Line {l1=0x15, l2=»4585PROC OUTPLINE(N) «, l3=0x15}
0x1ca8…1cbf Line {l1=0x15, l2=»4600PRINT TAB(X(N)); «, l3=0x15}
0x1cbf…1cdb Line {l1=0x1a, l2=»4615PRINT USING "### ":N; «, l3=0x1a}
0x1cdb…1cfb Line {l1=0x1e, l2=»4630PRINT PICT$(N);":";LINE$; «, l3=0x1e}
0x1cfb…1d0f Line {l1=0x12, l2=»4632IF N=21 THEN «, l3=0x12}
0x1d0f…1d1c Line {l1=0x0b, l2=»4634PRINT «, l3=0x0b}
0x1d1c…1d28 Line {l1=0x0a, l2=»4636ELSE «, l3=0x0a}
0x1d28…1d49 Line {l1=0x1f, l2=»4638IF Y(N)<Y(N+E) THEN PRINT «, l3=0x1f}
0x1d49…1d56 Line {l1=0x0b, l2=»4640ENDIF «, l3=0x0b}
0x1d56…1d65 Line {l1=0x0d, l2=»4645ENDPROC «, l3=0x0d}
0x1d65…1d70 Line {l1=0x09, l2=»4660A=21 «, l3=0x09}
0x1d70…1d98 Line {l1=0x26, l2=»4675DIM X(A),Y(A),PICT$(A,20),TYPE(A) «, l3=0x26}
0x1d98…1db8 Line {l1=0x1e, l2=»4690DIM POST1$(71),POST2$(27) «, l3=0x1e}
0x1db8…1de8 Line {l1=0x2e, l2=»4705DIM BL$(79),LINE$(30),FIL$(20),LINE1$(30) «, l3=0x2e}
0x1de8…1dfc Line {l1=0x12, l2=»4720FOR I=E TO 79 «, l3=0x12}
0x1dfc…1e0e Line {l1=0x10, l2=»4735BL$=BL$+" " «, l3=0x10}
0x1e0e…1e1b Line {l1=0x0b, l2=»4750NEXT I «, l3=0x0b}
0x1e1b…1e39 Line {l1=0x1c, l2=»4765FIL$="P641220:VIRKKART" «, l3=0x1c}
0x1e39…1e46 Line {l1=0x0b, l2=»4780X(E)=E «, l3=0x0b}
0x1e46…1e54 Line {l1=0x0c, l2=»4795X(G)=30 «, l3=0x0c}
0x1e54…1e61 Line {l1=0x0b, l2=»4810X(V)=E «, l3=0x0b}
0x1e61…1e6e Line {l1=0x0b, l2=»4825X(4)=E «, l3=0x0b}
0x1e6e…1e7b Line {l1=0x0b, l2=»4840X(5)=E «, l3=0x0b}
0x1e7b…1e89 Line {l1=0x0c, l2=»4855X(6)=30 «, l3=0x0c}
0x1e89…1e96 Line {l1=0x0b, l2=»4870X(7)=E «, l3=0x0b}
0x1e96…1ea4 Line {l1=0x0c, l2=»4885X(8)=30 «, l3=0x0c}
0x1ea4…1eb1 Line {l1=0x0b, l2=»4900X(W)=E «, l3=0x0b}
0x1eb1…1ec0 Line {l1=0x0d, l2=»4915X(10)=30 «, l3=0x0d}
0x1ec0…1ece Line {l1=0x0c, l2=»4930X(11)=E «, l3=0x0c}
0x1ece…1edd Line {l1=0x0d, l2=»4945X(12)=30 «, l3=0x0d}
0x1edd…1eeb Line {l1=0x0c, l2=»4960X(13)=E «, l3=0x0c}
0x1eeb…1efa Line {l1=0x0d, l2=»4975X(14)=30 «, l3=0x0d}
0x1efa…1f08 Line {l1=0x0c, l2=»4990X(15)=E «, l3=0x0c}
0x1f08…1f17 Line {l1=0x0d, l2=»5005X(16)=30 «, l3=0x0d}
0x1f17…1f26 Line {l1=0x0d, l2=»5020X(17)=60 «, l3=0x0d}
0x1f26…1f34 Line {l1=0x0c, l2=»5035X(18)=E «, l3=0x0c}
0x1f34…1f43 Line {l1=0x0d, l2=»5050X(19)=30 «, l3=0x0d}
0x1f43…1f52 Line {l1=0x0d, l2=»5065X(20)=60 «, l3=0x0d}
0x1f52…1f60 Line {l1=0x0c, l2=»5080X(21)=E «, l3=0x0c}
0x1f60…1f6d Line {l1=0x0b, l2=»5095Y(E)=G «, l3=0x0b}
0x1f6d…1f7a Line {l1=0x0b, l2=»5110Y(G)=G «, l3=0x0b}
0x1f7a…1f87 Line {l1=0x0b, l2=»5125Y(V)=4 «, l3=0x0b}
0x1f87…1f94 Line {l1=0x0b, l2=»5140Y(4)=6 «, l3=0x0b}
0x1f94…1fa1 Line {l1=0x0b, l2=»5155Y(5)=8 «, l3=0x0b}
0x1fa1…1fae Line {l1=0x0b, l2=»5170Y(6)=8 «, l3=0x0b}
0x1fae…1fbc Line {l1=0x0c, l2=»5185Y(7)=10 «, l3=0x0c}
0x1fbc…1fca Line {l1=0x0c, l2=»5200Y(8)=10 «, l3=0x0c}
0x1fca…1fd8 Line {l1=0x0c, l2=»5215Y(W)=12 «, l3=0x0c}
0x1fd8…1fe7 Line {l1=0x0d, l2=»5230Y(10)=12 «, l3=0x0d}
0x1fe7…1ff6 Line {l1=0x0d, l2=»5245Y(11)=14 «, l3=0x0d}
0x1ff6…2005 Line {l1=0x0d, l2=»5260Y(12)=14 «, l3=0x0d}
0x2005…2014 Line {l1=0x0d, l2=»5275Y(13)=16 «, l3=0x0d}
0x2014…2023 Line {l1=0x0d, l2=»5290Y(14)=16 «, l3=0x0d}
0x2023…2032 Line {l1=0x0d, l2=»5305Y(15)=18 «, l3=0x0d}
0x2032…2041 Line {l1=0x0d, l2=»5320Y(16)=18 «, l3=0x0d}
0x2041…2050 Line {l1=0x0d, l2=»5335Y(17)=18 «, l3=0x0d}
0x2050…205f Line {l1=0x0d, l2=»5350Y(18)=20 «, l3=0x0d}
0x205f…206e Line {l1=0x0d, l2=»5365Y(19)=20 «, l3=0x0d}
0x206e…207d Line {l1=0x0d, l2=»5380Y(20)=20 «, l3=0x0d}
0x207d…208c Line {l1=0x0d, l2=»5395Y(21)=22 «, l3=0x0d}
0x208c…209c Line {l1=0x0e, l2=»5410TYPE(E)=B «, l3=0x0e}
0x209c…20ae Line {l1=0x10, l2=»5425TYPE(G)=-25 «, l3=0x10}
0x20ae…20c0 Line {l1=0x10, l2=»5440TYPE(V)=-23 «, l3=0x10}
0x20c0…20d2 Line {l1=0x10, l2=»5455TYPE(4)=-23 «, l3=0x10}
0x20d2…20e2 Line {l1=0x0e, l2=»5470TYPE(5)=4 «, l3=0x0e}
0x20e2…20f4 Line {l1=0x10, l2=»5485TYPE(6)=-14 «, l3=0x10}
0x20f4…2105 Line {l1=0x0f, l2=»5500TYPE(7)=10 «, l3=0x0f}
0x2105…2115 Line {l1=0x0e, l2=»5515TYPE(8)=B «, l3=0x0e}
0x2115…2125 Line {l1=0x0e, l2=»5530TYPE(W)=B «, l3=0x0e}
0x2125…2136 Line {l1=0x0f, l2=»5545TYPE(10)=B «, l3=0x0f}
0x2136…2147 Line {l1=0x0f, l2=»5560TYPE(11)=6 «, l3=0x0f}
0x2147…2158 Line {l1=0x0f, l2=»5575TYPE(12)=B «, l3=0x0f}
0x2158…2169 Line {l1=0x0f, l2=»5590TYPE(13)=6 «, l3=0x0f}
0x2169…217b Line {l1=0x10, l2=»5605TYPE(14)=10 «, l3=0x10}
0x217b…218c Line {l1=0x0f, l2=»5620TYPE(15)=E «, l3=0x0f}
0x218c…219d Line {l1=0x0f, l2=»5635TYPE(16)=E «, l3=0x0f}
0x219d…21ae Line {l1=0x0f, l2=»5650TYPE(17)=E «, l3=0x0f}
0x21ae…21bf Line {l1=0x0f, l2=»5665TYPE(18)=G «, l3=0x0f}
0x21bf…21d0 Line {l1=0x0f, l2=»5680TYPE(19)=5 «, l3=0x0f}
0x21d0…21e1 Line {l1=0x0f, l2=»5695TYPE(20)=E «, l3=0x0f}
0x21e1…21f2 Line {l1=0x0f, l2=»5710TYPE(21)=6 «, l3=0x0f}
0x21f2…2209 Line {l1=0x15, l2=»5725PICT$(E)="Lønnr" «, l3=0x15}
0x2209…221f Line {l1=0x14, l2=»5740PICT$(G)="Navn" «, l3=0x14}
0x221f…223a Line {l1=0x19, l2=»5755PICT$(V)="Adresse 1" «, l3=0x19}
0x223a…2255 Line {l1=0x19, l2=»5770PICT$(4)="Adresse 2" «, l3=0x19}
0x2255…226d Line {l1=0x16, l2=»5785PICT$(5)="Postnr" «, l3=0x16}
0x226d…2281 Line {l1=0x12, l2=»5800PICT$(6)="By" «, l3=0x12}
0x2281…2299 Line {l1=0x16, l2=»5815PICT$(7)="CPR-nr" «, l3=0x16}
0x2299…22b2 Line {l1=0x17, l2=»5830PICT$(8)="Trækpct" «, l3=0x17}
0x22b2…22d1 Line {l1=0x1d, l2=»5845PICT$(W)="Skattefr 1 md" «, l3=0x1d}
0x22d1…22f0 Line {l1=0x1d, l2=»5860PICT$(10)="Rest frikort" «, l3=0x1d}
0x22f0…2313 Line {l1=0x21, l2=»5875PICT$(11)="Ansættelses dato" «, l3=0x21}
0x2313…232c Line {l1=0x17, l2=»5890PICT$(12)="Afd-nr" «, l3=0x17}
0x232c…2349 Line {l1=0x1b, l2=»5905PICT$(13)="Reg-nr, PI" «, l3=0x1b}
0x2349…2366 Line {l1=0x1b, l2=»5920PICT$(14)="Kto-nr, PI" «, l3=0x1b}
0x2366…2383 Line {l1=0x1b, l2=»5935PICT$(15)="Lønperiode" «, l3=0x1b}
0x2383…239f Line {l1=0x1a, l2=»5950PICT$(16)="Feriekode" «, l3=0x1a}
0x239f…23b9 Line {l1=0x18, l2=»5965PICT$(17)="SH-kode" «, l3=0x18}
0x23b9…23d3 Line {l1=0x18, l2=»5980PICT$(18)="OR-kode" «, l3=0x18}
0x23d3…23f0 Line {l1=0x1b, l2=»5995PICT$(19)="Faggr-kode" «, l3=0x1b}
0x23f0…240c Line {l1=0x1a, l2=»6010PICT$(20)="Dagp-kode" «, l3=0x1a}
0x240c…242f Line {l1=0x21, l2=»6025PICT$(21)="Fratrædelsesdato" «, l3=0x21}
0x242f…2442 Line {l1=0x11, l2=»6040EXEC INDVIRK «, l3=0x11}
0x2442…2453 Line {l1=0x0f, l2=»6055CLOSE FIL$ «, l3=0x0f}
0x2453…2471 Line {l1=0x1c, l2=»6070FIL$="P641220:LØNMODRG" «, l3=0x1c}
0x2471…2483 Line {l1=0x10, l2=»6085OPEN FIL$,W «, l3=0x10}
0x2483…249d Line {l1=0x18, l2=»6100EXEC FEJL(B,B,FIL$) «, l3=0x18}
0x249d…24b6 Line {l1=0x17, l2=»6115NUL$=" 0+" «, l3=0x17}
0x24b6…24c3 Line {l1=0x0b, l2=»6130OUTP=B «, l3=0x0b}
0x24c3…24e2 Line {l1=0x1d, l2=»6145FIL2$="P641220:TÆLLEREG" «, l3=0x1d}
0x24e2…24f5 Line {l1=0x11, l2=»6160OPEN FIL2$,W «, l3=0x11}
0x24f5…2510 Line {l1=0x19, l2=»6175EXEC FEJL(B,B,FIL2$) «, l3=0x19}
0x2510…2520 Line {l1=0x0e, l2=»6190POST6$="" «, l3=0x0e}
0x2520…2533 Line {l1=0x11, l2=»6205FOR J=E TO 5 «, l3=0x11}
0x2533…254c Line {l1=0x17, l2=»6220POST6$=POST6$+NUL$ «, l3=0x17}
0x254c…2559 Line {l1=0x0b, l2=»6235NEXT J «, l3=0x0b}
0x2559…2578 Line {l1=0x1d, l2=»6236FIL1$="P641220:TRANSREG" «, l3=0x1d}
0x2578…258b Line {l1=0x11, l2=»6237OPEN FIL1$,W «, l3=0x11}
0x258b…25a6 Line {l1=0x19, l2=»6238EXEC FEJL(B,B,FIL1$) «, l3=0x19}
0x25a6…25b4 Line {l1=0x0c, l2=»6250REPEAT «, l3=0x0c}
0x25b4…25bf Line {l1=0x09, l2=»6265SV=G «, l3=0x09}
0x25bf…25cc Line {l1=0x0b, l2=»6280CLEAR «, l3=0x0b}
0x25cc…25df Line {l1=0x11, l2=»6295CURSOR 10,10 «, l3=0x11}
0x25df…2615 Line {l1=0x34, l2=»6310PRINT "L Ø N M O D T A G E R - K A R T O T E K" «, l3=0x34}
0x2615…2622 Line {l1=0x0b, l2=»6325PRINT «, l3=0x0b}
0x2622…2641 Line {l1=0x1d, l2=»6340PRINT TAB(10);"0 Færdig" «, l3=0x1d}
0x2641…2661 Line {l1=0x1e, l2=»6355PRINT TAB(10);"1 Ændring" «, l3=0x1e}
0x2661…268b Line {l1=0x28, l2=»6370PRINT TAB(10);"2 Udskrift på skærm" «, l3=0x28}
0x268b…26b7 Line {l1=0x2a, l2=»6385PRINT TAB(10);"3 Udskrift på printer" «, l3=0x2a}
0x26b7…26da Line {l1=0x21, l2=»6400PRINT TAB(10);"4 Oprettelse" «, l3=0x21}
0x26da…26fb Line {l1=0x1f, l2=»6415PRINT TAB(10);"5 Sletning" «, l3=0x1f}
0x26fb…2708 Line {l1=0x0b, l2=»6430PRINT «, l3=0x0b}
0x2708…2716 Line {l1=0x0c, l2=»6445REPEAT «, l3=0x0c}
0x2716…2728 Line {l1=0x10, l2=»6460CURSOR E,19 «, l3=0x10}
0x2728…2743 Line {l1=0x19, l2=»6475EDIT " ",SV «, l3=0x19}
0x2743…275f Line {l1=0x1a, l2=»6490UNTIL SV=>B AND SV<=5 «, l3=0x1a}
0x275f…2773 Line {l1=0x12, l2=»6505IF SV>B THEN «, l3=0x12}
0x2773…2781 Line {l1=0x0c, l2=»6520REPEAT «, l3=0x0c}
0x2781…2795 Line {l1=0x12, l2=»6535EXEC INOPL(1) «, l3=0x12}
0x2795…27b9 Line {l1=0x22, l2=»6550UNTIL LMNR=>B AND LMNR<=MLMNR «, l3=0x22}
0x27b9…27c7 Line {l1=0x0c, l2=»6551LISTE=B «, l3=0x0c}
0x27c7…27e4 Line {l1=0x1b, l2=»6552IF LMNR=B THEN LISTE=E «, l3=0x1b}
0x27e4…27f2 Line {l1=0x0c, l2=»6553REPEAT «, l3=0x0c}
0x27f2…2814 Line {l1=0x20, l2=»6554IF LISTE=E THEN LMNR=LMNR+E «, l3=0x20}
0x2814…282e Line {l1=0x18, l2=»6565EXEC INLØNMOD(LMNR) «, l3=0x18}
0x282e…2840 Line {l1=0x10, l2=»6580CASE SV OF «, l3=0x10}
0x2840…284d Line {l1=0x0b, l2=»6595WHEN E «, l3=0x0b}
0x284d…2862 Line {l1=0x13, l2=»6610IF LA<>B THEN «, l3=0x13}
0x2862…2876 Line {l1=0x12, l2=»6625EXEC SKRIVOPL «, l3=0x12}
0x2876…2884 Line {l1=0x0c, l2=»6640REPEAT «, l3=0x0c}
0x2884…2892 Line {l1=0x0c, l2=»6655REPEAT «, l3=0x0c}
0x2892…289e Line {l1=0x0a, l2=»6670SV1=B «, l3=0x0a}
0x289e…28b0 Line {l1=0x10, l2=»6685CURSOR E,23 «, l3=0x10}
0x28b0…28c9 Line {l1=0x17, l2=»6700EDIT "Feltnr ",SV1 «, l3=0x17}
0x28c9…28ef Line {l1=0x24, l2=»6715UNTIL SV1>E AND SV1<22 OR SV1=B «, l3=0x24}
0x28ef…2904 Line {l1=0x13, l2=»6730IF SV1>B THEN «, l3=0x13}
0x2904…291a Line {l1=0x14, l2=»6745EXEC INOPL(SV1) «, l3=0x14}
0x291a…2927 Line {l1=0x0b, l2=»6760ENDIF «, l3=0x0b}
0x2927…2939 Line {l1=0x10, l2=»6775UNTIL SV1=B «, l3=0x10}
0x2939…2953 Line {l1=0x18, l2=»6790EXEC UDLØNMOD(LMNR) «, l3=0x18}
0x2953…295f Line {l1=0x0a, l2=»6805ELSE «, l3=0x0a}
0x295f…2985 Line {l1=0x24, l2=»6820PRINT "Lønmodtager findes ikke" «, l3=0x24}
0x2985…29a0 Line {l1=0x19, l2=»6835INPUT "RETURN",LINE$ «, l3=0x19}
0x29a0…29ad Line {l1=0x0b, l2=»6850ENDIF «, l3=0x0b}
0x29ad…29ba Line {l1=0x0b, l2=»6865WHEN G «, l3=0x0b}
0x29ba…29cf Line {l1=0x13, l2=»6880IF LA<>B THEN «, l3=0x13}
0x29cf…29dc Line {l1=0x0b, l2=»6895OUTP=B «, l3=0x0b}
0x29dc…29f0 Line {l1=0x12, l2=»6910EXEC SKRIVOPL «, l3=0x12}
0x29f0…2a0b Line {l1=0x19, l2=»6925INPUT "RETURN",LINE$ «, l3=0x19}
0x2a0b…2a17 Line {l1=0x0a, l2=»6940ELSE «, l3=0x0a}
0x2a17…2a3d Line {l1=0x24, l2=»6955PRINT "Lønmodtager findes ikke" «, l3=0x24}
0x2a3d…2a58 Line {l1=0x19, l2=»6970INPUT "RETURN",LINE$ «, l3=0x19}
0x2a58…2a65 Line {l1=0x0b, l2=»6985ENDIF «, l3=0x0b}
0x2a65…2a72 Line {l1=0x0b, l2=»7000WHEN V «, l3=0x0b}
0x2a72…2a92 Line {l1=0x1e, l2=»7015IF LA<>B OR LISTE=E THEN «, l3=0x1e}
0x2a92…2aa7 Line {l1=0x13, l2=»7016IF LA<>B THEN «, l3=0x13}
0x2aa7…2ab6 Line {l1=0x0d, l2=»7030OUTPUT P «, l3=0x0d}
0x2ab6…2ac3 Line {l1=0x0b, l2=»7045OUTP=E «, l3=0x0b}
0x2ac3…2ad7 Line {l1=0x12, l2=»7060EXEC SKRIVOPL «, l3=0x12}
0x2ad7…2aec Line {l1=0x13, l2=»7062FOR I=13 TO 72 «, l3=0x13}
0x2aec…2af9 Line {l1=0x0b, l2=»7064PRINT «, l3=0x0b}
0x2af9…2b06 Line {l1=0x0b, l2=»7066NEXT I «, l3=0x0b}
0x2b06…2b13 Line {l1=0x0b, l2=»7075OUTP=B «, l3=0x0b}
0x2b13…2b22 Line {l1=0x0d, l2=»7090OUTPUT T «, l3=0x0d}
0x2b22…2b2f Line {l1=0x0b, l2=»7095ENDIF «, l3=0x0b}
0x2b2f…2b3b Line {l1=0x0a, l2=»7105ELSE «, l3=0x0a}
0x2b3b…2b61 Line {l1=0x24, l2=»7120PRINT "Lønmodtager findes ikke" «, l3=0x24}
0x2b61…2b7c Line {l1=0x19, l2=»7135INPUT "RETURN",LINE$ «, l3=0x19}
0x2b7c…2b89 Line {l1=0x0b, l2=»7150ENDIF «, l3=0x0b}
0x2b89…2b96 Line {l1=0x0b, l2=»7165WHEN 4 «, l3=0x0b}
0x2b96…2bab Line {l1=0x13, l2=»7180IF LA<>B THEN «, l3=0x13}
0x2bab…2bd5 Line {l1=0x28, l2=»7195PRINT "Lønmodtager findes allerede" «, l3=0x28}
0x2bd5…2bf0 Line {l1=0x19, l2=»7210INPUT "RETURN",LINE$ «, l3=0x19}
0x2bf0…2bfc Line {l1=0x0a, l2=»7225ELSE «, l3=0x0a}
0x2bfc…2c11 Line {l1=0x13, l2=»7240EXEC SKRIVPICT «, l3=0x13}
0x2c11…2c2f Line {l1=0x1c, l2=»7255EXEC CONV(LINE$,LMNR,0) «, l3=0x1c}
0x2c2f…2c45 Line {l1=0x14, l2=»7270EXEC OUTLINE(1) «, l3=0x14}
0x2c45…2c50 Line {l1=0x09, l2=»7275FD=B «, l3=0x09}
0x2c50…2c64 Line {l1=0x12, l2=»7285FOR J=G TO 18 «, l3=0x12}
0x2c64…2c78 Line {l1=0x12, l2=»7300EXEC INOPL(J) «, l3=0x12}
0x2c78…2c85 Line {l1=0x0b, l2=»7315NEXT J «, l3=0x0b}
0x2c85…2c9e Line {l1=0x17, l2=»7330IF RESULT<80 THEN «, l3=0x17}
0x2c9e…2cb3 Line {l1=0x13, l2=»7345EXEC INOPL(19) «, l3=0x13}
0x2cb3…2cc8 Line {l1=0x13, l2=»7360EXEC INOPL(20) «, l3=0x13}
0x2cc8…2cd4 Line {l1=0x0a, l2=»7375ELSE «, l3=0x0a}
0x2cd4…2cdf Line {l1=0x09, l2=»7390FG=B «, l3=0x09}
0x2cdf…2cf4 Line {l1=0x13, l2=»7405POST2$(26)="0" «, l3=0x13}
0x2cf4…2d01 Line {l1=0x0b, l2=»7420ENDIF «, l3=0x0b}
0x2d01…2d0f Line {l1=0x0c, l2=»7435REPEAT «, l3=0x0c}
0x2d0f…2d1d Line {l1=0x0c, l2=»7450REPEAT «, l3=0x0c}
0x2d1d…2d29 Line {l1=0x0a, l2=»7465SV1=B «, l3=0x0a}
0x2d29…2d3b Line {l1=0x10, l2=»7480CURSOR E,23 «, l3=0x10}
0x2d3b…2d54 Line {l1=0x17, l2=»7495EDIT "Feltnr ",SV1 «, l3=0x17}
0x2d54…2d7a Line {l1=0x24, l2=»7510UNTIL SV1>E AND SV1<22 OR SV1=B «, l3=0x24}
0x2d7a…2d8f Line {l1=0x13, l2=»7525IF SV1>B THEN «, l3=0x13}
0x2d8f…2da5 Line {l1=0x14, l2=»7540EXEC INOPL(SV1) «, l3=0x14}
0x2da5…2db2 Line {l1=0x0b, l2=»7555ENDIF «, l3=0x0b}
0x2db2…2dc4 Line {l1=0x10, l2=»7570UNTIL SV1=B «, l3=0x10}
0x2dc4…2ddc Line {l1=0x16, l2=»7585EXEC NULTÆL(LMNR) «, l3=0x16}
0x2ddc…2df6 Line {l1=0x18, l2=»7600EXEC UDLØNMOD(LMNR) «, l3=0x18}
0x2df6…2e03 Line {l1=0x0b, l2=»7615ENDIF «, l3=0x0b}
0x2e03…2e10 Line {l1=0x0b, l2=»7630WHEN 5 «, l3=0x0b}
0x2e10…2e25 Line {l1=0x13, l2=»7645IF LA<>B THEN «, l3=0x13}
0x2e25…2e31 Line {l1=0x0a, l2=»7660SV1=G «, l3=0x0a}
0x2e31…2e49 Line {l1=0x16, l2=»7675EXEC INDTÆL(LMNR) «, l3=0x16}
0x2e49…2e6b Line {l1=0x20, l2=»7705IF TV$(34)<>NUL$ THEN SV1=B «, l3=0x20}
0x2e6b…2e8d Line {l1=0x20, l2=»7706IF TV$(35)<>NUL$ THEN SV1=B «, l3=0x20}
0x2e8d…2eaf Line {l1=0x20, l2=»7707IF TV$(36)<>NUL$ THEN SV1=B «, l3=0x20}
0x2eaf…2ed1 Line {l1=0x20, l2=»7708IF TV$(37)<>NUL$ THEN SV1=B «, l3=0x20}
0x2ed1…2ef3 Line {l1=0x20, l2=»7709IF TV$(38)<>NUL$ THEN SV1=B «, l3=0x20}
0x2ef3…2f15 Line {l1=0x20, l2=»7710IF TV$(39)<>NUL$ THEN SV1=B «, l3=0x20}
0x2f15…2f2a Line {l1=0x13, l2=»7735IF SV1=B THEN «, l3=0x13}
0x2f2a…2f3c Line {l1=0x10, l2=»7750CURSOR E,23 «, l3=0x10}
0x2f3c…2f6f Line {l1=0x31, l2=»7765INPUT "Sletning ikke tilladt RETURN ",LINE$ «, l3=0x31}
0x2f6f…2f7b Line {l1=0x0a, l2=»7780ELSE «, l3=0x0a}
0x2f7b…2f8f Line {l1=0x12, l2=»7795EXEC SKRIVOPL «, l3=0x12}
0x2f8f…2f9c Line {l1=0x0b, l2=»7800ENDIF «, l3=0x0b}
0x2f9c…2fba Line {l1=0x1c, l2=»7810 WHILE SV1<>0 AND SV1<>1«, l3=0x1c}
0x2fba…2fc6 Line {l1=0x0a, l2=»7812 SV1=0«, l3=0x0a}
0x2fc6…2fd8 Line {l1=0x10, l2=»7825 CURSOR 1,23«, l3=0x10}
0x2fd8…2fff Line {l1=0x25, l2=»7840 EDIT "Sletning korrekt 1: ",SV1«, l3=0x25}
0x2fff…300f Line {l1=0x0e, l2=»7855 ENDWHILE «, l3=0x0e}
0x300f…3024 Line {l1=0x13, l2=»7870 IF SV1=1 THEN «, l3=0x13}
0x3024…302f Line {l1=0x09, l2=»7885 LA=0«, l3=0x09}
0x302f…3049 Line {l1=0x18, l2=»7900 EXEC UDLØNMOD(LMNR)«, l3=0x18}
0x3049…3063 Line {l1=0x18, l2=»7910 EXEC NULTRANS(LMNR)«, l3=0x18}
0x3063…307b Line {l1=0x16, l2=»7915 EXEC NULTÆL(LMNR)«, l3=0x16}
0x307b…3088 Line {l1=0x0b, l2=»7930 ENDIF «, l3=0x0b}
0x3088…3094 Line {l1=0x0a, l2=»7945 ELSE «, l3=0x0a}
0x3094…30ba Line {l1=0x24, l2=»7960 PRINT "Lønmodtager findes ikke"«, l3=0x24}
0x30ba…30d5 Line {l1=0x19, l2=»7975 INPUT "RETURN",LINE$«, l3=0x19}
0x30d5…30e2 Line {l1=0x0b, l2=»7990 ENDIF «, l3=0x0b}
0x30e2…30f1 Line {l1=0x0d, l2=»8005 ENDCASE «, l3=0x0d}
0x30f1…3114 Line {l1=0x21, l2=»8006 UNTIL LISTE=0 OR LMNR=>MLMNR«, l3=0x21}
0x3114…3121 Line {l1=0x0b, l2=»8010 ENDIF «, l3=0x0b}
0x3121…3132 Line {l1=0x0f, l2=»8020 UNTIL SV=0«, l3=0x0f}
0x3132…3143 Line {l1=0x0f, l2=»8035 CLOSE FIL$«, l3=0x0f}
0x3143…3155 Line {l1=0x10, l2=»8050 CLOSE FIL2$«, l3=0x10}
0x3155…3172 Line {l1=0x1b, l2=»8065 CHAIN "P641210:STARTB"«, l3=0x1b}
0x3172…3180 00 00 53 54 33 24 28 35 35 29 2c 50 4f 53 ┆ ST3$(55),POS┆
0x3180…31a0 54 34 24 28 33 34 29 2c 46 49 4c 32 24 28 32 30 29 2c 50 4f 53 54 35 24 28 35 35 29 2c 50 4f 53 ┆T4$(34),FIL2$(20),POST5$(55),POS┆
0x31a0…31c0 54 36 24 28 35 35 29 46 2e 30 30 32 35 20 44 49 4d 20 4e 55 4c 24 28 31 31 29 2c 54 56 24 28 34 ┆T6$(55)F.0025 DIM NUL$(11),TV$(4┆
0x31c0…31e0 35 2c 31 31 29 2c 46 49 4c 31 24 28 32 30 29 2c 44 41 44 24 28 36 29 2e 1b 30 30 34 30 20 50 52 ┆5,11),FIL1$(20),DAD$(6). 0040 PR┆
0x31e0…3200 4f 43 20 43 50 52 43 48 45 43 4b 28 4e 52 34 2c 4f 4b 34 29 1b 0a 30 30 35 35 20 4f 4b 34 3d 31 ┆OC CPRCHECK(NR4,OK4) 0055 OK4=1┆
0x3200…3220 0a 12 30 30 37 30 20 46 4f 52 20 49 3d 31 20 54 4f 20 31 30 12 1b 30 30 38 35 20 43 50 52 28 49 ┆ 0070 FOR I=1 TO 10 0085 CPR(I┆
0x3220…3240 29 3d 4f 52 44 28 4e 52 34 24 28 49 29 29 2d 34 38 1b 0b 30 31 30 30 20 4e 45 58 54 20 49 0b 1a ┆)=ORD(NR4$(I))-48 0100 NEXT I ┆
0x3240…3260 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 ┆ ┆
[…0x47…]