|
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: »AKKLØNBE.K«
└─⟦385f097a1⟧ Bits:30008988 SPC/1 COMAL programmer til bogføring
└─⟦this⟧ »AKKLØNBE.K«
0001PROC DATOCHECK(NR5,OK5) 0002OK5=E 0003ÅR=(ORD(NR5$(E))-48)*10+ORD(NR5$(G))-48 0004MÅNED=(ORD(NR5$(V))-48)*10+ORD(NR5$(4))-48 0005DATO=(ORD(NR5$(5))-48)*10+ORD(NR5$(6))-48 0006IF DATO<E OR MÅNED<E OR MÅNED>12 OR DATO>31 THEN OK5=B 0007IF OK5=B THEN EXIT 0008CASE MÅNED OF 0009WHEN 4,6,W,11 0010IF DATO>30 THEN OK5=B 0011WHEN G 0012IF DATO>29 THEN OK5=B 0013IF DATO=29 AND ÅR MOD 4<>B THEN OK5=B 0014ENDCASE 0015ENDPROC 0100DIM RES$(15),OP1$(12),OP2$(12),TAH$(12),HUND$(12),MAX$(12),MAX1$(12) 0120DIM RESUL$(12),RESUL1$(12),PR$(14),LINE$(20),POST6$(29) 0140DIM FIL$(20),FIL1$(20),POST1$(71),POST2$(27),POST3$(55),POST4$(34) 0160DIM AUT$(4,37),FIL5$(20) 0180HUND$="100.00+" 0200MAX$="1000000.00+" 0220MAX1$="1000.00+" 0240TAH$="0+" 0260PROC INLØNMOD(N) 0280GET FIL$,G*N-E:POST1$ 0300GET FIL$,G*N:POST2$,C1,C2,LT,LF,LR,LA,RPI,K1,K2,FG,FD 0320EXEC FEJL(E,N,FIL$) 0340ENDPROC 0360PROC INDVIRK 0380OPEN FIL$,W 0400EXEC FEJL(B,B,FIL$) 0420GET FIL$,E:POST3$ 0440GET FIL$,G:POST4$,SLJNR,MLMNR,ATPLM 0460ENDPROC 0480PROC CHECK(NR1,OK1) 0500OK1=B 0520RESULT=B 0540IF LEN(NR1$)>B THEN 0560IF NR1$(E)="-" THEN 0580FORTEGN=-E 0600OK1=E 0620ELSE 0640FORTEGN=E 0660ENDIF 0680WHILE LEN(NR1$)>OK1 0700OK1=OK1+E 0720IF NR1$(OK1)<"0" OR NR1$(OK1)>"9" THEN 0740FORTEGN=B 0760OK1=LEN(NR1$) 0780ENDIF 0800RESULT=RESULT*10+ORD(NR1$(OK1))-48 0820ENDWHILE 0840OK1=OK1*FORTEGN 0860IF OK1<B THEN OK1=OK1+E 0880ENDIF 0900ENDPROC 0920PROC INDART(N) 0940GET FIL5$,N:POST6$,KT,FSHT,ÅT 0960EXEC FEJL(G,N,FIL5$) 0980ENDPROC 1000PROC FEJL(P1,P2,P3) 1020IF STATUS(P3$)<>B THEN 1040OUTPUT T 1060PRINT "FIL-FEJL ";P3$;STATUS(P3$),P1;P2 1080STOP 1100ENDIF 1120ENDPROC 1140PROC CALC(AR3,B1,B2,ES) 1160RES$=ES$;OP1$=B1$;OP2$=B2$;SI=B;FLAG=B;ART=AR3-6*(AR3>5) 1180CALL "P641210:REGN" 1200IF AR3<6 THEN 1220IF FLAG THEN STOP 1240ENDIF 1260ES$=RES$ 1280ENDPROC 1300PROC SKRIVSID 1320CLEAR 1340PRINT " L Ø N B E R E G N I N G" 1360PRINT "Lønnr "; 1380PRINT USING "#### ":LMNR; 1400PRINT "Navn ";POST1$(E,25) 1420PRINT "Linie Lønart Nummer Enheder Sats Beløb" 1440FOR I=E TO LAST 1460PRINT USING "### ":I; 1480PRINT " ";SIDE$(FØRST+I,V:G);" ";SIDE$(FØRST+I,5:6);" "; 1500RESUL$=SIDE$(FØRST+I,11:10) 1520IF RESUL$(10)="+" THEN RESUL$(10)=" " 1540PRINT RESUL$; 1560RESUL$=SIDE$(FØRST+I,21:7) 1580IF RESUL$(7)="+" THEN RESUL$(7)=" " 1600PRINT " ";RESUL$;" "; 1620RESUL$=SIDE$(FØRST+I,28:10) 1640IF RESUL$(10)="+" THEN RESUL$(10)=" " 1660PRINT RESUL$ 1680NEXT I 1700ENDPROC 1720PROC RETSID 1740REPEAT 1760REPEAT 1780LINE$="0" 1800CURSOR E,23 1820EDIT "Linienr, 0: færdig SL: slet linier ",LINE$ 1840IF LINE$<>"SL" THEN 1860EXEC CHECK(LINE$,C) 1880IF C<=B THEN RESULT=-E 1900ELSE 1905LINE$="N" 1907CURSOR E,23 1910EDIT "Slet: Alle : A, Linienrinterval : N ",LINE$ 1915IF LINE$="A" THEN 1920RESULT=B 1940AT=B 1960IT=(LMNR-E)*ATPLM+E 1980UT=IT 2000LAST=B;FØRST=B;SIDST=B 2002ELSE 2004REPEAT 2006LF,LS=B 2008CURSOR E,23 2009PRINT " " 2010CURSOR E,23 2012EDIT "Fra linienr ",LF 2014CURSOR E,23 2016EDIT "Til linienr ",LS 2018LF=INT(LF) 2020LS=INT(LS) 2022UNTIL LS=>LF AND LF=>E AND LS<=LAST 2023IF SIDE$(FØRST+LF,E,4)="1 39" THEN LF=LF+E 2024LS=LS+E 2026IF FØRST+LS<=SIDST AND SIDE$(FØRST+LS,E,4)="1 39" THEN LS=LS+E 2028WHILE FØRST+LS<=SIDST 2030SIDE$(FØRST+LF)=SIDE$(FØRST+LS) 2032LF=LF+E 2034LS=LS+E 2036ENDWHILE 2038AT=AT-LS+LF 2040SIDST=SIDST-LS+LF 2042LAST=SIDST-FØRST 2044IF LAST>18 THEN LAST=18 2046RESULT=-E 2048ENDIF 2058ENDIF 2059UNTIL RESULT<=LAST 2060LI=RESULT 2080IF LI>B THEN EXEC INLINE(LI) 2090IF LI<B THEN EXEC SKRIVSID 2100UNTIL LI=B 2105FØRST=FØRST+LAST 2120ENDPROC 2140PROC INDSID 2160FOR I=E TO 18 2180SIDE$(FØRST+I)="1 0 0 0 0 " 2190SIDST=SIDST+E;AT=AT+E;LAST=I 2200EXEC INLINE(I) 2210I=LAST 2220IF LANR=B THEN 2260I=18 2280ELSE 2320IF AT=>ATPLM-4 THEN I=18 2340ENDIF 2360NEXT I 2380ENDPROC 2400PROC INDTRANS 2420K=E 2440REPEAT 2460GET FIL1$,IT:SIDE$(K) 2480IT=IT+E 2500K=K+E 2520UNTIL SIDE$(K-E,E)=" " OR SIDE$(K-E,G)="*" OR SIDE$(K-E,E)="2" 2540IF SIDE$(K-E,E)=" " OR SIDE$(K-E,G)="*" THEN 2560LAST=K-G 2580IT=IT-E 2600ELSE 2620LAST=K-E 2640ENDIF 2660AT=AT+LAST 2665FØRST=B;SIDST=LAST 2670IF LAST>18 THEN LAST=18 2680ENDPROC 2700PROC UDATRANS 2720FOR K=E TO LAST 2740IF AUT$(K,E)="3" OR AUT$(K,E)="1" THEN 2750AUT$(K,E)="1" 2760PUT FIL1$,UT:AUT$(K) 2780UT=UT+E 2800ENDIF 2820NEXT K 2860ENDPROC 2880PROC UDTRANS 2900FOR K=E TO SIDST 2920IF SIDE$(K,E)="3" OR SIDE$(K,E)="1" THEN 2930SIDE$(K,E)="1" 2940PUT FIL1$,UT:SIDE$(K) 2960UT=UT+E 2980ENDIF 3000NEXT K 3040ENDPROC 3060PROC INLINE(LINIE) 3070IF SIDE$(FØRST+LINIE,V:G)<>"39" THEN 3080REPEAT 3100REPEAT 3120CURSOR 7,LINIE+V 3140LINE$=SIDE$(FØRST+LINIE,V:G) 3150SIDE$(FØRST+LINIE,V:G)=" " 3160EDIT "",LINE$ 3180EXEC CHECK(LINE$,OK) 3190IF RESULT=39 THEN OK=B 3200UNTIL OK>B AND OK<V 3220LANR=RESULT 3240IF RESULT=B THEN 3242QUQ=FØRST+LINIE 3244WHILE QUQ<SIDST 3246SIDE$(QUQ)=SIDE$(QUQ+E) 3248QUQ=QUQ+E 3250ENDWHILE 3252SIDST=SIDST-E 3254AT=AT-E 3256LAST=SIDST-FØRST 3258IF LAST>18 THEN LAST=18 3259IF FØRST+LINIE<=SIDST AND SIDE$(FØRST+LINIE,E,4)="1 39" THEN GO TO 3242 3260EXEC SKRIVSID 3280ELSE 3300EXEC INDART(LANR) 3320IF POST6$(E)="1" AND POST6$(29)=" " THEN 3340RESULT=B 3360SIDE$(FØRST+LINIE,E:4)="1 "+CHR(LANR DIV 10+48)+CHR(LANR MOD 10+48) 3380ENDIF 3400ENDIF 3420UNTIL RESULT=B 3440IF LANR>B THEN 3450LINE$=" " 3460IF LANR<>73 AND LANR<>75 THEN 3480REPEAT 3500CURSOR 17,LINIE+V 3520LINE$=SIDE$(FØRST+LINIE,5:6) 3530SIDE$(FØRST+LINIE,5:6)=" " 3540EDIT "",LINE$ 3560UNTIL LEN(LINE$)<=6 AND (LEN(LINE$)<6 OR SIDST<ATPLM-4) 3570ENDIF 3580SIDE$(FØRST+LINIE,5:6)=LINE$ 3620REPEAT 3640REPEAT 3660CURSOR 28,LINIE+V 3680LINE$=SIDE$(FØRST+LINIE,11:10) 3700IF LINE$(10)="+" THEN LINE$(10)=" " 3720EDIT "",LINE$ 3721IF LANR=75 THEN 3722EXEC DATOCHECK(LINE$,FLAG) 3723FLAG=(FLAG=B) 3724RESUL$=" "+LINE$(E,6)+" " 3730ELSE 3740LINE$=LINE$+"+" 3760EXEC CALC(6,LINE$,TAH$,RESUL$) 3770ENDIF 3780UNTIL FLAG=B 3785IF LANR=75 THEN 3790SI=E 3795ELSE 3800EXEC CALC(4,RESUL$,MAX$,MAX1$) 3805ENDIF 3820UNTIL SI=E 3840SIDE$(FØRST+LINIE,11:10)=RESUL$(V:10) 3860EXEC CALC(4,RESUL$,TAH$,MAX$) 3880IF SI=B THEN 3900ENH=B 3920ELSE 3940ENH=E 3960ENDIF 3980IF LANR<61 OR (LANR>61 AND LANR<65) OR LANR=70 THEN 4000REPEAT 4020REPEAT 4040CURSOR 41,LINIE+V 4060LINE$=SIDE$(FØRST+LINIE,21:7) 4080IF LINE$(7)="+" THEN LINE$(7)=" " 4100EDIT "",LINE$ 4120LINE$=LINE$+"+" 4140EXEC CALC(6,LINE$,TAH$,RESUL$) 4160UNTIL FLAG=B 4180EXEC CALC(4,RESUL$,MAX1$,MAX$) 4200UNTIL SI=E 4220SIDE$(FØRST+LINIE,21:7)=RESUL$(6:7) 4240EXEC CALC(4,RESUL$,TAH$,MAX$) 4260IF SI=B THEN 4280SATS=B 4300ELSE 4320SATS=E 4340ENDIF 4360ELSE 4380SATS=B 4390SIDE$(FØRST+LINIE,21:7)=" " 4400ENDIF 4420IF LANR<71 AND ENH*SATS=B AND LANR<>60 THEN 4440REPEAT 4460REPEAT 4480CURSOR 51,LINIE+V 4500LINE$=SIDE$(FØRST+LINIE,28:10) 4520IF LINE$(10)="+" THEN LINE$(10)=" " 4540EDIT "",LINE$ 4560LINE$=LINE$+"+" 4580EXEC CALC(6,LINE$,TAH$,RESUL$) 4600UNTIL FLAG=B 4620EXEC CALC(4,RESUL$,MAX$,MAX1$) 4640UNTIL SI=E 4650IF LANR=49 THEN RESUL$(12)="-" 4660SIDE$(FØRST+LINIE,28:10)=RESUL$(V:10) 4680ELSE 4700IF ENH*SATS=E AND LANR<>60 THEN 4720LINE$=SIDE$(FØRST+LINIE,11:10) 4740RESUL$=SIDE$(FØRST+LINIE,21:7) 4760EXEC CALC(G,LINE$,RESUL$,RESUL1$) 4780ELSE 4800RESUL1$=" 0+" 4820ENDIF 4821IF LANR=72 OR LANR=73 THEN RESUL1$(V:10)=SIDE$(FØRST+LINIE,11:10) 4830IF LANR=49 THEN RESUL1$(12)="-" 4840SIDE$(FØRST+LINIE,28:10)=RESUL1$(V:10) 4860CURSOR 51,LINIE+V 4880IF RESUL1$(12)="+" THEN RESUL1$(12)=" " 4900PRINT RESUL1$(V:10) 4901ENDIF 4903KUK=FØRST+LINIE 4904IF SIDE$(KUK,10)>"0" AND SIDE$(KUK,10)<="9" AND SATS>B THEN 4906IF KUK=SIDST THEN 4908IF LAST<18 THEN LAST=LAST+E 4910SIDST=SIDST+E 4912AT=AT+E 4914SIDE$(SIDST)="1 39 0 0 0 " 4916ELSE 4918IF SIDE$(KUK+E,E,4)<>"1 39" THEN 4920SIDST=SIDST+E 4922AT=AT+E 4924IF LAST<18 THEN LAST=LAST+E 4926QUQ=SIDST 4928WHILE QUQ>KUK+E 4930SIDE$(QUQ)=SIDE$(QUQ-E) 4932QUQ=QUQ-E 4934ENDWHILE 4936SIDE$(QUQ)="1 39 0 0 0 " 4938ENDIF 4940ENDIF 4941EXEC SKRIVSID 4942ELSE 4944IF KUK<SIDST THEN 4946IF SIDE$(KUK+E,E,4)="1 39" THEN 4948QUQ=KUK+E 4950WHILE QUQ<SIDST 4952SIDE$(QUQ)=SIDE$(QUQ+E) 4954QUQ=QUQ+E 4956ENDWHILE 4958SIDST=SIDST-E 4960AT=AT-E 4962LAST=SIDST-FØRST 4964IF LAST>18 THEN LAST=18 4965EXEC SKRIVSID 4966ENDIF 4968ENDIF 4970ENDIF 4977ENDIF 4978ENDIF 4979ENDPROC 4980PROC AUTTRANS 5000CLEAR 5020PRINT " L Ø N B E R E G N I N G" 5040PRINT "Lønnr "; 5060PRINT USING "#### ":LMNR; 5080PRINT "Navn ";POST1$(E,25) 5100PRINT "Linie Lønart Nummer Enheder Sats Beløb" 5120IF POST2$(24,25)<"90" THEN 5140II=G 5160ELSE 5180II=E 5200ENDIF 5220FOR I=E TO II 5240CURSOR 7,V+I 5260PRINT AUT$(I,G:V) 5280REPEAT 5300REPEAT 5320CURSOR 41,V+I 5340LINE$=AUT$(I,21:7) 5360IF LINE$(7)="+" THEN LINE$(7)=" " 5380EDIT "",LINE$ 5400LINE$=LINE$+"+" 5420EXEC CALC(6,LINE$,TAH$,RESUL$) 5440UNTIL FLAG=B 5460EXEC CALC(4,RESUL$,HUND$,MAX$) 5480UNTIL SI=E 5500AUT$(I,21:7)=RESUL$(6:7) 5520NEXT I 5540CURSOR 7,6 5560PRINT AUT$(V,G:V) 5580REPEAT 5600REPEAT 5620CURSOR 51,6 5640LINE$=AUT$(V,28:10) 5660IF LINE$(10)="+" THEN LINE$(10)=" " 5680EDIT "",LINE$ 5700LINE$=LINE$+"+" 5720EXEC CALC(6,LINE$,TAH$,RESUL$) 5740UNTIL FLAG=B 5760EXEC CALC(4,RESUL$,MAX$,MAX1$) 5780UNTIL SI=E 5800AUT$(V,28:10)=RESUL$(V:10) 5820LT=LT*100 5840AUT$(4,21)=" " 5860AUT$(4,22)=CHR(LT DIV 1000+48) 5880AUT$(4,23)=CHR(LT DIV 100 MOD 10+48) 5900AUT$(4,24)="," 5920AUT$(4,25)=CHR(LT DIV 10 MOD 10+48) 5940AUT$(4,26)=CHR(LT MOD 10+48) 5960AUT$(4,27)="+" 5980AUT$(4,11:10)=" " 6000CASE POST2$(21) OF 6020WHEN "1" 6040AUT$(4,11)="1" 6060WHEN "2","3" 6080AUT$(4,11)="7" 6100WHEN "4","5" 6120AUT$(4,11:G)="14" 6140WHEN "6","7" 6160AUT$(4,11:G)="30" 6180ENDCASE 6200IF FD=B THEN 6220CURSOR 7,7 6240PRINT AUT$(4,G:V) 6260REPEAT 6280REPEAT 6300CURSOR 28,7 6320LINE$=AUT$(4,11:10) 6340IF LINE$(10)="+" THEN LINE$(10)=" " 6360EDIT "",LINE$ 6380LINE$=LINE$+"+" 6400EXEC CALC(6,LINE$,TAH$,RESUL$) 6420UNTIL FLAG=B 6440EXEC CALC(4,RESUL$,HUND$,MAX$) 6460UNTIL SI=E 6480AUT$(4,11:10)=RESUL$(V:10) 6500ENDIF 6520LAST=4 6540ENDPROC 6560FIL$="P641220:VIRKKART" 6580EXEC INDVIRK 6600CLOSE FIL$ 6610DIM SIDE$(ATPLM-V,37) 6620FIL$="P641220:LØNMODRG" 6640OPEN FIL$,R 6660FIL1$="P641220:TRANSREG" 6680OPEN FIL1$,W 6700FIL5$="P641220:LØNARTRG" 6720OPEN FIL5$,R 6740REPEAT 6760CLEAR 6780REPEAT 6800LMNR=B 6820EDIT "Lønnr ",LMNR 6840UNTIL LMNR=>B AND LMNR<MLMNR 6860IF LMNR>B THEN 6880EXEC INLØNMOD(LMNR) 6900IF LA<>B THEN 6920IT=(LMNR-E)*ATPLM+E 6940UT=IT 6960AT=B 6970EXEC INDTRANS 6980REPEAT 7005IF SIDE$(E,E)="2" THEN 7010LAST=B 7015ELSE 7020EXEC SKRIVSID 7040IF LAST>B THEN 7060EXEC RETSID 7070LAST=SIDST-FØRST 7080IF LAST>18 THEN LAST=18 7100ENDIF 7110ENDIF 7120UNTIL LAST=B OR IT=(LMNR-E)*ATPLM+E 7130IF SIDE$(FØRST+E,E)<>"2" THEN 7140IF IT>(LMNR-E)*ATPLM+E THEN 7160FOR K=E TO 4 7180GET FIL1$,IT:AUT$(K) 7200IT=IT+E 7220NEXT K 7240ELSE 7260AUT$(E)="1*78 0 " 7280AUT$(G)="1*79 0 " 7300AUT$(V)="1*80 0 " 7320AUT$(4)="1*83 0 " 7340ENDIF 7355IF AT<ATPLM-4 THEN 7360REPEAT 7370LAST=B 7380EXEC SKRIVSID 7400EXEC INDSID 7420IF LAST>B THEN EXEC RETSID 7460UNTIL LAST<18 7470ENDIF 7475EXEC UDTRANS 7480EXEC AUTTRANS 7500EXEC UDATRANS 7520AT=AT+4 7540IF AT<ATPLM THEN 7560SIDE$(E,E)=" " 7580PUT FIL1$,UT:SIDE$(E) 7600ENDIF 7605ELSE 7607PRINT "Lønmodtager ikke bogført" 7610INPUT "RETURN",LINE$ 7615ENDIF 7620ELSE 7640PRINT "Lønmodtager findes ikke" 7660INPUT "RETURN",LINE$ 7680ENDIF 7700ENDIF 7720UNTIL LMNR=B 7740CLOSE FIL$ 7760CLOSE FIL1$ 7780CLOSE FIL5$ 7800CHAIN "P641210:STARTB"
0x0000…001e Line {l1=0x1c, l2=»0001PROC DATOCHECK(NR5,OK5) «, l3=0x1c}
0x001e…002a Line {l1=0x0a, l2=»0002OK5=E «, l3=0x0a}
0x002a…0058 Line {l1=0x2c, l2=»0003ÅR=(ORD(NR5$(E))-48)*10+ORD(NR5$(G))-48 «, l3=0x2c}
0x0058…0089 Line {l1=0x2f, l2=»0004MÅNED=(ORD(NR5$(V))-48)*10+ORD(NR5$(4))-48 «, l3=0x2f}
0x0089…00b9 Line {l1=0x2e, l2=»0005DATO=(ORD(NR5$(5))-48)*10+ORD(NR5$(6))-48 «, l3=0x2e}
0x00b9…00f6 Line {l1=0x3b, l2=»0006IF DATO<E OR MÅNED<E OR MÅNED>12 OR DATO>31 THEN OK5=B «, l3=0x3b}
0x00f6…0110 Line {l1=0x18, l2=»0007IF OK5=B THEN EXIT «, l3=0x18}
0x0110…0125 Line {l1=0x13, l2=»0008CASE MÅNED OF «, l3=0x13}
0x0125…0139 Line {l1=0x12, l2=»0009WHEN 4,6,W,11 «, l3=0x12}
0x0139…0155 Line {l1=0x1a, l2=»0010IF DATO>30 THEN OK5=B «, l3=0x1a}
0x0155…0162 Line {l1=0x0b, l2=»0011WHEN G «, l3=0x0b}
0x0162…017e Line {l1=0x1a, l2=»0012IF DATO>29 THEN OK5=B «, l3=0x1a}
0x017e…01aa Line {l1=0x2a, l2=»0013IF DATO=29 AND ÅR MOD 4<>B THEN OK5=B «, l3=0x2a}
0x01aa…01b9 Line {l1=0x0d, l2=»0014ENDCASE «, l3=0x0d}
0x01b9…01c8 Line {l1=0x0d, l2=»0015ENDPROC «, l3=0x0d}
0x01c8…0213 Line {l1=0x49, l2=»0100DIM RES$(15),OP1$(12),OP2$(12),TAH$(12),HUND$(12),MAX$(12),MAX1$(12) «, l3=0x49}
0x0213…0251 Line {l1=0x3c, l2=»0120DIM RESUL$(12),RESUL1$(12),PR$(14),LINE$(20),POST6$(29) «, l3=0x3c}
0x0251…029a Line {l1=0x47, l2=»0140DIM FIL$(20),FIL1$(20),POST1$(71),POST2$(27),POST3$(55),POST4$(34) «, l3=0x47}
0x029a…02b9 Line {l1=0x1d, l2=»0160DIM AUT$(4,37),FIL5$(20) «, l3=0x1d}
0x02b9…02cf Line {l1=0x14, l2=»0180HUND$="100.00+" «, l3=0x14}
0x02cf…02e8 Line {l1=0x17, l2=»0200MAX$="1000000.00+" «, l3=0x17}
0x02e8…02ff Line {l1=0x15, l2=»0220MAX1$="1000.00+" «, l3=0x15}
0x02ff…030f Line {l1=0x0e, l2=»0240TAH$="0+" «, l3=0x0e}
0x030f…0326 Line {l1=0x15, l2=»0260PROC INLØNMOD(N) «, l3=0x15}
0x0326…0342 Line {l1=0x1a, l2=»0280GET FIL$,G*N-E:POST1$ «, l3=0x1a}
0x0342…037e Line {l1=0x3a, l2=»0300GET FIL$,G*N:POST2$,C1,C2,LT,LF,LR,LA,RPI,K1,K2,FG,FD «, l3=0x3a}
0x037e…0398 Line {l1=0x18, l2=»0320EXEC FEJL(E,N,FIL$) «, l3=0x18}
0x0398…03a7 Line {l1=0x0d, l2=»0340ENDPROC «, l3=0x0d}
0x03a7…03ba Line {l1=0x11, l2=»0360PROC INDVIRK «, l3=0x11}
0x03ba…03cc Line {l1=0x10, l2=»0380OPEN FIL$,W «, l3=0x10}
0x03cc…03e6 Line {l1=0x18, l2=»0400EXEC FEJL(B,B,FIL$) «, l3=0x18}
0x03e6…03fe Line {l1=0x16, l2=»0420GET FIL$,E:POST3$ «, l3=0x16}
0x03fe…0428 Line {l1=0x28, l2=»0440GET FIL$,G:POST4$,SLJNR,MLMNR,ATPLM «, l3=0x28}
0x0428…0437 Line {l1=0x0d, l2=»0460ENDPROC «, l3=0x0d}
0x0437…0451 Line {l1=0x18, l2=»0480PROC CHECK(NR1,OK1) «, l3=0x18}
0x0451…045d Line {l1=0x0a, l2=»0500OK1=B «, l3=0x0a}
0x045d…046c Line {l1=0x0d, l2=»0520RESULT=B «, l3=0x0d}
0x046c…0487 Line {l1=0x19, l2=»0540IF LEN(NR1$)>B THEN «, l3=0x19}
0x0487…04a2 Line {l1=0x19, l2=»0560IF NR1$(E)="-" THEN «, l3=0x19}
0x04a2…04b3 Line {l1=0x0f, l2=»0580FORTEGN=-E «, l3=0x0f}
0x04b3…04bf Line {l1=0x0a, l2=»0600OK1=E «, l3=0x0a}
0x04bf…04cb Line {l1=0x0a, l2=»0620ELSE «, l3=0x0a}
0x04cb…04db Line {l1=0x0e, l2=»0640FORTEGN=E «, l3=0x0e}
0x04db…04e8 Line {l1=0x0b, l2=»0660ENDIF «, l3=0x0b}
0x04e8…0502 Line {l1=0x18, l2=»0680WHILE LEN(NR1$)>OK1 «, l3=0x18}
0x0502…0512 Line {l1=0x0e, l2=»0700OK1=OK1+E «, l3=0x0e}
0x0512…0540 Line {l1=0x2c, l2=»0720IF NR1$(OK1)<"0" OR NR1$(OK1)>"9" THEN «, l3=0x2c}
0x0540…0550 Line {l1=0x0e, l2=»0740FORTEGN=B «, l3=0x0e}
0x0550…0564 Line {l1=0x12, l2=»0760OK1=LEN(NR1$) «, l3=0x12}
0x0564…0571 Line {l1=0x0b, l2=»0780ENDIF «, l3=0x0b}
0x0571…059a Line {l1=0x27, l2=»0800RESULT=RESULT*10+ORD(NR1$(OK1))-48 «, l3=0x27}
0x059a…05aa Line {l1=0x0e, l2=»0820ENDWHILE «, l3=0x0e}
0x05aa…05c0 Line {l1=0x14, l2=»0840OK1=OK1*FORTEGN «, l3=0x14}
0x05c0…05de Line {l1=0x1c, l2=»0860IF OK1<B THEN OK1=OK1+E «, l3=0x1c}
0x05de…05eb Line {l1=0x0b, l2=»0880ENDIF «, l3=0x0b}
0x05eb…05fa Line {l1=0x0d, l2=»0900ENDPROC «, l3=0x0d}
0x05fa…060f Line {l1=0x13, l2=»0920PROC INDART(N) «, l3=0x13}
0x060f…0633 Line {l1=0x22, l2=»0940GET FIL5$,N:POST6$,KT,FSHT,ÅT «, l3=0x22}
0x0633…064e Line {l1=0x19, l2=»0960EXEC FEJL(G,N,FIL5$) «, l3=0x19}
0x064e…065d Line {l1=0x0d, l2=»0980ENDPROC «, l3=0x0d}
0x065d…0677 Line {l1=0x18, l2=»1000PROC FEJL(P1,P2,P3) «, l3=0x18}
0x0677…0695 Line {l1=0x1c, l2=»1020IF STATUS(P3$)<>B THEN «, l3=0x1c}
0x0695…06a4 Line {l1=0x0d, l2=»1040OUTPUT T «, l3=0x0d}
0x06a4…06d2 Line {l1=0x2c, l2=»1060PRINT "FIL-FEJL ";P3$;STATUS(P3$),P1;P2 «, l3=0x2c}
0x06d2…06de Line {l1=0x0a, l2=»1080STOP «, l3=0x0a}
0x06de…06eb Line {l1=0x0b, l2=»1100ENDIF «, l3=0x0b}
0x06eb…06fa Line {l1=0x0d, l2=»1120ENDPROC «, l3=0x0d}
0x06fa…0718 Line {l1=0x1c, l2=»1140PROC CALC(AR3,B1,B2,ES) «, l3=0x1c}
0x0718…0757 Line {l1=0x3d, l2=»1160RES$=ES$;OP1$=B1$;OP2$=B2$;SI=B;FLAG=B;ART=AR3-6*(AR3>5) «, l3=0x3d}
0x0757…0771 Line {l1=0x18, l2=»1180CALL "P641210:REGN" «, l3=0x18}
0x0771…0786 Line {l1=0x13, l2=»1200IF AR3<6 THEN «, l3=0x13}
0x0786…079f Line {l1=0x17, l2=»1220IF FLAG THEN STOP «, l3=0x17}
0x079f…07ac Line {l1=0x0b, l2=»1240ENDIF «, l3=0x0b}
0x07ac…07bb Line {l1=0x0d, l2=»1260ES$=RES$ «, l3=0x0d}
0x07bb…07ca Line {l1=0x0d, l2=»1280ENDPROC «, l3=0x0d}
0x07ca…07de Line {l1=0x12, l2=»1300PROC SKRIVSID «, l3=0x12}
0x07de…07eb Line {l1=0x0b, l2=»1320CLEAR «, l3=0x0b}
0x07eb…081e Line {l1=0x31, l2=»1340PRINT " L Ø N B E R E G N I N G" «, l3=0x31}
0x081e…0834 Line {l1=0x14, l2=»1360PRINT "Lønnr "; «, l3=0x14}
0x0834…0854 Line {l1=0x1e, l2=»1380PRINT USING "#### ":LMNR; «, l3=0x1e}
0x0854…0875 Line {l1=0x1f, l2=»1400PRINT "Navn ";POST1$(E,25) «, l3=0x1f}
0x0875…08bb Line {l1=0x44, l2=»1420PRINT "Linie Lønart Nummer Enheder Sats Beløb" «, l3=0x44}
0x08bb…08d1 Line {l1=0x14, l2=»1440FOR I=E TO LAST «, l3=0x14}
0x08d1…08ed Line {l1=0x1a, l2=»1460PRINT USING "### ":I; «, l3=0x1a}
0x08ed…0938 Line {l1=0x49, l2=»1480PRINT " ";SIDE$(FØRST+I,V:G);" ";SIDE$(FØRST+I,5:6);" "; «, l3=0x49}
0x0938…095a Line {l1=0x20, l2=»1500RESUL$=SIDE$(FØRST+I,11:10) «, l3=0x20}
0x095a…0986 Line {l1=0x2a, l2=»1520IF RESUL$(10)="+" THEN RESUL$(10)=" " «, l3=0x2a}
0x0986…099a Line {l1=0x12, l2=»1540PRINT RESUL$; «, l3=0x12}
0x099a…09bb Line {l1=0x1f, l2=»1560RESUL$=SIDE$(FØRST+I,21:7) «, l3=0x1f}
0x09bb…09e5 Line {l1=0x28, l2=»1580IF RESUL$(7)="+" THEN RESUL$(7)=" " «, l3=0x28}
0x09e5…0a05 Line {l1=0x1e, l2=»1600PRINT " ";RESUL$;" "; «, l3=0x1e}
0x0a05…0a27 Line {l1=0x20, l2=»1620RESUL$=SIDE$(FØRST+I,28:10) «, l3=0x20}
0x0a27…0a53 Line {l1=0x2a, l2=»1640IF RESUL$(10)="+" THEN RESUL$(10)=" " «, l3=0x2a}
0x0a53…0a66 Line {l1=0x11, l2=»1660PRINT RESUL$ «, l3=0x11}
0x0a66…0a73 Line {l1=0x0b, l2=»1680NEXT I «, l3=0x0b}
0x0a73…0a82 Line {l1=0x0d, l2=»1700ENDPROC «, l3=0x0d}
0x0a82…0a94 Line {l1=0x10, l2=»1720PROC RETSID «, l3=0x10}
0x0a94…0aa2 Line {l1=0x0c, l2=»1740REPEAT «, l3=0x0c}
0x0aa2…0ab0 Line {l1=0x0c, l2=»1760REPEAT «, l3=0x0c}
0x0ab0…0ac0 Line {l1=0x0e, l2=»1780LINE$="0" «, l3=0x0e}
0x0ac0…0ad2 Line {l1=0x10, l2=»1800CURSOR E,23 «, l3=0x10}
0x0ad2…0b0a Line {l1=0x36, l2=»1820EDIT "Linienr, 0: færdig SL: slet linier ",LINE$ «, l3=0x36}
0x0b0a…0b25 Line {l1=0x19, l2=»1840IF LINE$<>"SL" THEN «, l3=0x19}
0x0b25…0b3f Line {l1=0x18, l2=»1860EXEC CHECK(LINE$,C) «, l3=0x18}
0x0b3f…0b5c Line {l1=0x1b, l2=»1880IF C<=B THEN RESULT=-E «, l3=0x1b}
0x0b5c…0b68 Line {l1=0x0a, l2=»1900ELSE «, l3=0x0a}
0x0b68…0b78 Line {l1=0x0e, l2=»1905LINE$="N" «, l3=0x0e}
0x0b78…0b8a Line {l1=0x10, l2=»1907CURSOR E,23 «, l3=0x10}
0x0b8a…0bc3 Line {l1=0x37, l2=»1910EDIT "Slet: Alle : A, Linienrinterval : N ",LINE$ «, l3=0x37}
0x0bc3…0bdc Line {l1=0x17, l2=»1915IF LINE$="A" THEN «, l3=0x17}
0x0bdc…0beb Line {l1=0x0d, l2=»1920RESULT=B «, l3=0x0d}
0x0beb…0bf6 Line {l1=0x09, l2=»1940AT=B «, l3=0x09}
0x0bf6…0c10 Line {l1=0x18, l2=»1960IT=(LMNR-E)*ATPLM+E «, l3=0x18}
0x0c10…0c1c Line {l1=0x0a, l2=»1980UT=IT «, l3=0x0a}
0x0c1c…0c39 Line {l1=0x1b, l2=»2000LAST=B;FØRST=B;SIDST=B «, l3=0x1b}
0x0c39…0c45 Line {l1=0x0a, l2=»2002ELSE «, l3=0x0a}
0x0c45…0c53 Line {l1=0x0c, l2=»2004REPEAT «, l3=0x0c}
0x0c53…0c61 Line {l1=0x0c, l2=»2006LF,LS=B «, l3=0x0c}
0x0c61…0c73 Line {l1=0x10, l2=»2008CURSOR E,23 «, l3=0x10}
0x0c73…0cad Line {l1=0x38, l2=»2009PRINT " " «, l3=0x38}
0x0cad…0cbf Line {l1=0x10, l2=»2010CURSOR E,23 «, l3=0x10}
0x0cbf…0cdc Line {l1=0x1b, l2=»2012EDIT "Fra linienr ",LF «, l3=0x1b}
0x0cdc…0cee Line {l1=0x10, l2=»2014CURSOR E,23 «, l3=0x10}
0x0cee…0d0b Line {l1=0x1b, l2=»2016EDIT "Til linienr ",LS «, l3=0x1b}
0x0d0b…0d1c Line {l1=0x0f, l2=»2018LF=INT(LF) «, l3=0x0f}
0x0d1c…0d2d Line {l1=0x0f, l2=»2020LS=INT(LS) «, l3=0x0f}
0x0d2d…0d57 Line {l1=0x28, l2=»2022UNTIL LS=>LF AND LF=>E AND LS<=LAST «, l3=0x28}
0x0d57…0d88 Line {l1=0x2f, l2=»2023IF SIDE$(FØRST+LF,E,4)="1 39" THEN LF=LF+E «, l3=0x2f}
0x0d88…0d96 Line {l1=0x0c, l2=»2024LS=LS+E «, l3=0x0c}
0x0d96…0ddb Line {l1=0x43, l2=»2026IF FØRST+LS<=SIDST AND SIDE$(FØRST+LS,E,4)="1 39" THEN LS=LS+E «, l3=0x43}
0x0ddb…0df7 Line {l1=0x1a, l2=»2028WHILE FØRST+LS<=SIDST «, l3=0x1a}
0x0df7…0e1d Line {l1=0x24, l2=»2030SIDE$(FØRST+LF)=SIDE$(FØRST+LS) «, l3=0x24}
0x0e1d…0e2b Line {l1=0x0c, l2=»2032LF=LF+E «, l3=0x0c}
0x0e2b…0e39 Line {l1=0x0c, l2=»2034LS=LS+E «, l3=0x0c}
0x0e39…0e49 Line {l1=0x0e, l2=»2036ENDWHILE «, l3=0x0e}
0x0e49…0e5b Line {l1=0x10, l2=»2038AT=AT-LS+LF «, l3=0x10}
0x0e5b…0e73 Line {l1=0x16, l2=»2040SIDST=SIDST-LS+LF «, l3=0x16}
0x0e73…0e8a Line {l1=0x15, l2=»2042LAST=SIDST-FØRST «, l3=0x15}
0x0e8a…0ea8 Line {l1=0x1c, l2=»2044IF LAST>18 THEN LAST=18 «, l3=0x1c}
0x0ea8…0eb8 Line {l1=0x0e, l2=»2046RESULT=-E «, l3=0x0e}
0x0eb8…0ec5 Line {l1=0x0b, l2=»2048ENDIF «, l3=0x0b}
0x0ec5…0ed2 Line {l1=0x0b, l2=»2058ENDIF «, l3=0x0b}
0x0ed2…0eeb Line {l1=0x17, l2=»2059UNTIL RESULT<=LAST «, l3=0x17}
0x0eeb…0efb Line {l1=0x0e, l2=»2060LI=RESULT «, l3=0x0e}
0x0efb…0f1e Line {l1=0x21, l2=»2080IF LI>B THEN EXEC INLINE(LI) «, l3=0x21}
0x0f1e…0f3f Line {l1=0x1f, l2=»2090IF LI<B THEN EXEC SKRIVSID «, l3=0x1f}
0x0f3f…0f50 Line {l1=0x0f, l2=»2100UNTIL LI=B «, l3=0x0f}
0x0f50…0f67 Line {l1=0x15, l2=»2105FØRST=FØRST+LAST «, l3=0x15}
0x0f67…0f76 Line {l1=0x0d, l2=»2120ENDPROC «, l3=0x0d}
0x0f76…0f88 Line {l1=0x10, l2=»2140PROC INDSID «, l3=0x10}
0x0f88…0f9c Line {l1=0x12, l2=»2160FOR I=E TO 18 «, l3=0x12}
0x0f9c…0fd9 Line {l1=0x3b, l2=»2180SIDE$(FØRST+I)="1 0 0 0 0 " «, l3=0x3b}
0x0fd9…0ffc Line {l1=0x21, l2=»2190SIDST=SIDST+E;AT=AT+E;LAST=I «, l3=0x21}
0x0ffc…1011 Line {l1=0x13, l2=»2200EXEC INLINE(I) «, l3=0x13}
0x1011…101e Line {l1=0x0b, l2=»2210I=LAST «, l3=0x0b}
0x101e…1034 Line {l1=0x14, l2=»2220IF LANR=B THEN «, l3=0x14}
0x1034…103f Line {l1=0x09, l2=»2260I=18 «, l3=0x09}
0x103f…104b Line {l1=0x0a, l2=»2280ELSE «, l3=0x0a}
0x104b…106a Line {l1=0x1d, l2=»2320IF AT=>ATPLM-4 THEN I=18 «, l3=0x1d}
0x106a…1077 Line {l1=0x0b, l2=»2340ENDIF «, l3=0x0b}
0x1077…1084 Line {l1=0x0b, l2=»2360NEXT I «, l3=0x0b}
0x1084…1093 Line {l1=0x0d, l2=»2380ENDPROC «, l3=0x0d}
0x1093…10a7 Line {l1=0x12, l2=»2400PROC INDTRANS «, l3=0x12}
0x10a7…10b1 Line {l1=0x08, l2=»2420K=E «, l3=0x08}
0x10b1…10bf Line {l1=0x0c, l2=»2440REPEAT «, l3=0x0c}
0x10bf…10db Line {l1=0x1a, l2=»2460GET FIL1$,IT:SIDE$(K) «, l3=0x1a}
0x10db…10e9 Line {l1=0x0c, l2=»2480IT=IT+E «, l3=0x0c}
0x10e9…10f5 Line {l1=0x0a, l2=»2500K=K+E «, l3=0x0a}
0x10f5…113a Line {l1=0x43, l2=»2520UNTIL SIDE$(K-E,E)=" " OR SIDE$(K-E,G)="*" OR SIDE$(K-E,E)="2" «, l3=0x43}
0x113a…116e Line {l1=0x32, l2=»2540IF SIDE$(K-E,E)=" " OR SIDE$(K-E,G)="*" THEN «, l3=0x32}
0x116e…117d Line {l1=0x0d, l2=»2560LAST=K-G «, l3=0x0d}
0x117d…118b Line {l1=0x0c, l2=»2580IT=IT-E «, l3=0x0c}
0x118b…1197 Line {l1=0x0a, l2=»2600ELSE «, l3=0x0a}
0x1197…11a6 Line {l1=0x0d, l2=»2620LAST=K-E «, l3=0x0d}
0x11a6…11b3 Line {l1=0x0b, l2=»2640ENDIF «, l3=0x0b}
0x11b3…11c4 Line {l1=0x0f, l2=»2660AT=AT+LAST «, l3=0x0f}
0x11c4…11dd Line {l1=0x17, l2=»2665FØRST=B;SIDST=LAST «, l3=0x17}
0x11dd…11fb Line {l1=0x1c, l2=»2670IF LAST>18 THEN LAST=18 «, l3=0x1c}
0x11fb…120a Line {l1=0x0d, l2=»2680ENDPROC «, l3=0x0d}
0x120a…121e Line {l1=0x12, l2=»2700PROC UDATRANS «, l3=0x12}
0x121e…1234 Line {l1=0x14, l2=»2720FOR K=E TO LAST «, l3=0x14}
0x1234…1262 Line {l1=0x2c, l2=»2740IF AUT$(K,E)="3" OR AUT$(K,E)="1" THEN «, l3=0x2c}
0x1262…1276 Line {l1=0x12, l2=»2750AUT$(K,E)="1" «, l3=0x12}
0x1276…1291 Line {l1=0x19, l2=»2760PUT FIL1$,UT:AUT$(K) «, l3=0x19}
0x1291…129f Line {l1=0x0c, l2=»2780UT=UT+E «, l3=0x0c}
0x129f…12ac Line {l1=0x0b, l2=»2800ENDIF «, l3=0x0b}
0x12ac…12b9 Line {l1=0x0b, l2=»2820NEXT K «, l3=0x0b}
0x12b9…12c8 Line {l1=0x0d, l2=»2860ENDPROC «, l3=0x0d}
0x12c8…12db Line {l1=0x11, l2=»2880PROC UDTRANS «, l3=0x11}
0x12db…12f2 Line {l1=0x15, l2=»2900FOR K=E TO SIDST «, l3=0x15}
0x12f2…1322 Line {l1=0x2e, l2=»2920IF SIDE$(K,E)="3" OR SIDE$(K,E)="1" THEN «, l3=0x2e}
0x1322…1337 Line {l1=0x13, l2=»2930SIDE$(K,E)="1" «, l3=0x13}
0x1337…1353 Line {l1=0x1a, l2=»2940PUT FIL1$,UT:SIDE$(K) «, l3=0x1a}
0x1353…1361 Line {l1=0x0c, l2=»2960UT=UT+E «, l3=0x0c}
0x1361…136e Line {l1=0x0b, l2=»2980ENDIF «, l3=0x0b}
0x136e…137b Line {l1=0x0b, l2=»3000NEXT K «, l3=0x0b}
0x137b…138a Line {l1=0x0d, l2=»3040ENDPROC «, l3=0x0d}
0x138a…13a3 Line {l1=0x17, l2=»3060PROC INLINE(LINIE) «, l3=0x17}
0x13a3…13cf Line {l1=0x2a, l2=»3070IF SIDE$(FØRST+LINIE,V:G)<>"39" THEN «, l3=0x2a}
0x13cf…13dd Line {l1=0x0c, l2=»3080REPEAT «, l3=0x0c}
0x13dd…13eb Line {l1=0x0c, l2=»3100REPEAT «, l3=0x0c}
0x13eb…1402 Line {l1=0x15, l2=»3120CURSOR 7,LINIE+V «, l3=0x15}
0x1402…1425 Line {l1=0x21, l2=»3140LINE$=SIDE$(FØRST+LINIE,V:G) «, l3=0x21}
0x1425…1447 Line {l1=0x20, l2=»3150SIDE$(FØRST+LINIE,V:G)=" " «, l3=0x20}
0x1447…145b Line {l1=0x12, l2=»3160EDIT "",LINE$ «, l3=0x12}
0x145b…1476 Line {l1=0x19, l2=»3180EXEC CHECK(LINE$,OK) «, l3=0x19}
0x1476…1493 Line {l1=0x1b, l2=»3190IF RESULT=39 THEN OK=B «, l3=0x1b}
0x1493…14ad Line {l1=0x18, l2=»3200UNTIL OK>B AND OK<V «, l3=0x18}
0x14ad…14bf Line {l1=0x10, l2=»3220LANR=RESULT «, l3=0x10}
0x14bf…14d7 Line {l1=0x16, l2=»3240IF RESULT=B THEN «, l3=0x16}
0x14d7…14ed Line {l1=0x14, l2=»3242QUQ=FØRST+LINIE «, l3=0x14}
0x14ed…1503 Line {l1=0x14, l2=»3244WHILE QUQ<SIDST «, l3=0x14}
0x1503…1521 Line {l1=0x1c, l2=»3246SIDE$(QUQ)=SIDE$(QUQ+E) «, l3=0x1c}
0x1521…1531 Line {l1=0x0e, l2=»3248QUQ=QUQ+E «, l3=0x0e}
0x1531…1541 Line {l1=0x0e, l2=»3250ENDWHILE «, l3=0x0e}
0x1541…1555 Line {l1=0x12, l2=»3252SIDST=SIDST-E «, l3=0x12}
0x1555…1563 Line {l1=0x0c, l2=»3254AT=AT-E «, l3=0x0c}
0x1563…157a Line {l1=0x15, l2=»3256LAST=SIDST-FØRST «, l3=0x15}
0x157a…1598 Line {l1=0x1c, l2=»3258IF LAST>18 THEN LAST=18 «, l3=0x1c}
0x1598…15e6 Line {l1=0x4c, l2=»3259IF FØRST+LINIE<=SIDST AND SIDE$(FØRST+LINIE,E,4)="1 39" THEN GO TO 3242 «, l3=0x4c}
0x15e6…15fa Line {l1=0x12, l2=»3260EXEC SKRIVSID «, l3=0x12}
0x15fa…1606 Line {l1=0x0a, l2=»3280ELSE «, l3=0x0a}
0x1606…161e Line {l1=0x16, l2=»3300EXEC INDART(LANR) «, l3=0x16}
0x161e…164e Line {l1=0x2e, l2=»3320IF POST6$(E)="1" AND POST6$(29)=" " THEN «, l3=0x2e}
0x164e…165d Line {l1=0x0d, l2=»3340RESULT=B «, l3=0x0d}
0x165d…16a7 Line {l1=0x48, l2=»3360SIDE$(FØRST+LINIE,E:4)="1 "+CHR(LANR DIV 10+48)+CHR(LANR MOD 10+48) «, l3=0x48}
0x16a7…16b4 Line {l1=0x0b, l2=»3380ENDIF «, l3=0x0b}
0x16b4…16c1 Line {l1=0x0b, l2=»3400ENDIF «, l3=0x0b}
0x16c1…16d6 Line {l1=0x13, l2=»3420UNTIL RESULT=B «, l3=0x13}
0x16d6…16ec Line {l1=0x14, l2=»3440IF LANR>B THEN «, l3=0x14}
0x16ec…1701 Line {l1=0x13, l2=»3450LINE$=" " «, l3=0x13}
0x1701…1726 Line {l1=0x23, l2=»3460IF LANR<>73 AND LANR<>75 THEN «, l3=0x23}
0x1726…1734 Line {l1=0x0c, l2=»3480REPEAT «, l3=0x0c}
0x1734…174c Line {l1=0x16, l2=»3500CURSOR 17,LINIE+V «, l3=0x16}
0x174c…176f Line {l1=0x21, l2=»3520LINE$=SIDE$(FØRST+LINIE,5:6) «, l3=0x21}
0x176f…1795 Line {l1=0x24, l2=»3530SIDE$(FØRST+LINIE,5:6)=" " «, l3=0x24}
0x1795…17a9 Line {l1=0x12, l2=»3540EDIT "",LINE$ «, l3=0x12}
0x17a9…17e7 Line {l1=0x3c, l2=»3560UNTIL LEN(LINE$)<=6 AND (LEN(LINE$)<6 OR SIDST<ATPLM-4) «, l3=0x3c}
0x17e7…17f4 Line {l1=0x0b, l2=»3570ENDIF «, l3=0x0b}
0x17f4…1817 Line {l1=0x21, l2=»3580SIDE$(FØRST+LINIE,5:6)=LINE$ «, l3=0x21}
0x1817…1825 Line {l1=0x0c, l2=»3620REPEAT «, l3=0x0c}
0x1825…1833 Line {l1=0x0c, l2=»3640REPEAT «, l3=0x0c}
0x1833…184b Line {l1=0x16, l2=»3660CURSOR 28,LINIE+V «, l3=0x16}
0x184b…1870 Line {l1=0x23, l2=»3680LINE$=SIDE$(FØRST+LINIE,11:10) «, l3=0x23}
0x1870…189a Line {l1=0x28, l2=»3700IF LINE$(10)="+" THEN LINE$(10)=" " «, l3=0x28}
0x189a…18ae Line {l1=0x12, l2=»3720EDIT "",LINE$ «, l3=0x12}
0x18ae…18c5 Line {l1=0x15, l2=»3721IF LANR=75 THEN «, l3=0x15}
0x18c5…18e6 Line {l1=0x1f, l2=»3722EXEC DATOCHECK(LINE$,FLAG) «, l3=0x1f}
0x18e6…18fa Line {l1=0x12, l2=»3723FLAG=(FLAG=B) «, l3=0x12}
0x18fa…191e Line {l1=0x22, l2=»3724RESUL$=" "+LINE$(E,6)+" " «, l3=0x22}
0x191e…192a Line {l1=0x0a, l2=»3730ELSE «, l3=0x0a}
0x192a…1940 Line {l1=0x14, l2=»3740LINE$=LINE$+"+" «, l3=0x14}
0x1940…1965 Line {l1=0x23, l2=»3760EXEC CALC(6,LINE$,TAH$,RESUL$) «, l3=0x23}
0x1965…1972 Line {l1=0x0b, l2=»3770ENDIF «, l3=0x0b}
0x1972…1985 Line {l1=0x11, l2=»3780UNTIL FLAG=B «, l3=0x11}
0x1985…199c Line {l1=0x15, l2=»3785IF LANR=75 THEN «, l3=0x15}
0x199c…19a7 Line {l1=0x09, l2=»3790SI=E «, l3=0x09}
0x19a7…19b3 Line {l1=0x0a, l2=»3795ELSE «, l3=0x0a}
0x19b3…19d8 Line {l1=0x23, l2=»3800EXEC CALC(4,RESUL$,MAX$,MAX1$) «, l3=0x23}
0x19d8…19e5 Line {l1=0x0b, l2=»3805ENDIF «, l3=0x0b}
0x19e5…19f6 Line {l1=0x0f, l2=»3820UNTIL SI=E «, l3=0x0f}
0x19f6…1a22 Line {l1=0x2a, l2=»3840SIDE$(FØRST+LINIE,11:10)=RESUL$(V:10) «, l3=0x2a}
0x1a22…1a46 Line {l1=0x22, l2=»3860EXEC CALC(4,RESUL$,TAH$,MAX$) «, l3=0x22}
0x1a46…1a5a Line {l1=0x12, l2=»3880IF SI=B THEN «, l3=0x12}
0x1a5a…1a66 Line {l1=0x0a, l2=»3900ENH=B «, l3=0x0a}
0x1a66…1a72 Line {l1=0x0a, l2=»3920ELSE «, l3=0x0a}
0x1a72…1a7e Line {l1=0x0a, l2=»3940ENH=E «, l3=0x0a}
0x1a7e…1a8b Line {l1=0x0b, l2=»3960ENDIF «, l3=0x0b}
0x1a8b…1ac6 Line {l1=0x39, l2=»3980IF LANR<61 OR (LANR>61 AND LANR<65) OR LANR=70 THEN «, l3=0x39}
0x1ac6…1ad4 Line {l1=0x0c, l2=»4000REPEAT «, l3=0x0c}
0x1ad4…1ae2 Line {l1=0x0c, l2=»4020REPEAT «, l3=0x0c}
0x1ae2…1afa Line {l1=0x16, l2=»4040CURSOR 41,LINIE+V «, l3=0x16}
0x1afa…1b1e Line {l1=0x22, l2=»4060LINE$=SIDE$(FØRST+LINIE,21:7) «, l3=0x22}
0x1b1e…1b46 Line {l1=0x26, l2=»4080IF LINE$(7)="+" THEN LINE$(7)=" " «, l3=0x26}
0x1b46…1b5a Line {l1=0x12, l2=»4100EDIT "",LINE$ «, l3=0x12}
0x1b5a…1b70 Line {l1=0x14, l2=»4120LINE$=LINE$+"+" «, l3=0x14}
0x1b70…1b95 Line {l1=0x23, l2=»4140EXEC CALC(6,LINE$,TAH$,RESUL$) «, l3=0x23}
0x1b95…1ba8 Line {l1=0x11, l2=»4160UNTIL FLAG=B «, l3=0x11}
0x1ba8…1bcd Line {l1=0x23, l2=»4180EXEC CALC(4,RESUL$,MAX1$,MAX$) «, l3=0x23}
0x1bcd…1bde Line {l1=0x0f, l2=»4200UNTIL SI=E «, l3=0x0f}
0x1bde…1c08 Line {l1=0x28, l2=»4220SIDE$(FØRST+LINIE,21:7)=RESUL$(6:7) «, l3=0x28}
0x1c08…1c2c Line {l1=0x22, l2=»4240EXEC CALC(4,RESUL$,TAH$,MAX$) «, l3=0x22}
0x1c2c…1c40 Line {l1=0x12, l2=»4260IF SI=B THEN «, l3=0x12}
0x1c40…1c4d Line {l1=0x0b, l2=»4280SATS=B «, l3=0x0b}
0x1c4d…1c59 Line {l1=0x0a, l2=»4300ELSE «, l3=0x0a}
0x1c59…1c66 Line {l1=0x0b, l2=»4320SATS=E «, l3=0x0b}
0x1c66…1c73 Line {l1=0x0b, l2=»4340ENDIF «, l3=0x0b}
0x1c73…1c7f Line {l1=0x0a, l2=»4360ELSE «, l3=0x0a}
0x1c7f…1c8c Line {l1=0x0b, l2=»4380SATS=B «, l3=0x0b}
0x1c8c…1cb4 Line {l1=0x26, l2=»4390SIDE$(FØRST+LINIE,21:7)=" " «, l3=0x26}
0x1cb4…1cc1 Line {l1=0x0b, l2=»4400ENDIF «, l3=0x0b}
0x1cc1…1cf4 Line {l1=0x31, l2=»4420IF LANR<71 AND ENH*SATS=B AND LANR<>60 THEN «, l3=0x31}
0x1cf4…1d02 Line {l1=0x0c, l2=»4440REPEAT «, l3=0x0c}
0x1d02…1d10 Line {l1=0x0c, l2=»4460REPEAT «, l3=0x0c}
0x1d10…1d28 Line {l1=0x16, l2=»4480CURSOR 51,LINIE+V «, l3=0x16}
0x1d28…1d4d Line {l1=0x23, l2=»4500LINE$=SIDE$(FØRST+LINIE,28:10) «, l3=0x23}
0x1d4d…1d77 Line {l1=0x28, l2=»4520IF LINE$(10)="+" THEN LINE$(10)=" " «, l3=0x28}
0x1d77…1d8b Line {l1=0x12, l2=»4540EDIT "",LINE$ «, l3=0x12}
0x1d8b…1da1 Line {l1=0x14, l2=»4560LINE$=LINE$+"+" «, l3=0x14}
0x1da1…1dc6 Line {l1=0x23, l2=»4580EXEC CALC(6,LINE$,TAH$,RESUL$) «, l3=0x23}
0x1dc6…1dd9 Line {l1=0x11, l2=»4600UNTIL FLAG=B «, l3=0x11}
0x1dd9…1dfe Line {l1=0x23, l2=»4620EXEC CALC(4,RESUL$,MAX$,MAX1$) «, l3=0x23}
0x1dfe…1e0f Line {l1=0x0f, l2=»4640UNTIL SI=E «, l3=0x0f}
0x1e0f…1e34 Line {l1=0x23, l2=»4650IF LANR=49 THEN RESUL$(12)="-" «, l3=0x23}
0x1e34…1e60 Line {l1=0x2a, l2=»4660SIDE$(FØRST+LINIE,28:10)=RESUL$(V:10) «, l3=0x2a}
0x1e60…1e6c Line {l1=0x0a, l2=»4680ELSE «, l3=0x0a}
0x1e6c…1e93 Line {l1=0x25, l2=»4700IF ENH*SATS=E AND LANR<>60 THEN «, l3=0x25}
0x1e93…1eb8 Line {l1=0x23, l2=»4720LINE$=SIDE$(FØRST+LINIE,11:10) «, l3=0x23}
0x1eb8…1edd Line {l1=0x23, l2=»4740RESUL$=SIDE$(FØRST+LINIE,21:7) «, l3=0x23}
0x1edd…1f05 Line {l1=0x26, l2=»4760EXEC CALC(G,LINE$,RESUL$,RESUL1$) «, l3=0x26}
0x1f05…1f11 Line {l1=0x0a, l2=»4780ELSE «, l3=0x0a}
0x1f11…1f2e Line {l1=0x1b, l2=»4800RESUL1$=" 0+" «, l3=0x1b}
0x1f2e…1f3b Line {l1=0x0b, l2=»4820ENDIF «, l3=0x0b}
0x1f3b…1f83 Line {l1=0x46, l2=»4821IF LANR=72 OR LANR=73 THEN RESUL1$(V:10)=SIDE$(FØRST+LINIE,11:10) «, l3=0x46}
0x1f83…1fa9 Line {l1=0x24, l2=»4830IF LANR=49 THEN RESUL1$(12)="-" «, l3=0x24}
0x1fa9…1fd6 Line {l1=0x2b, l2=»4840SIDE$(FØRST+LINIE,28:10)=RESUL1$(V:10) «, l3=0x2b}
0x1fd6…1fee Line {l1=0x16, l2=»4860CURSOR 51,LINIE+V «, l3=0x16}
0x1fee…201c Line {l1=0x2c, l2=»4880IF RESUL1$(12)="+" THEN RESUL1$(12)=" " «, l3=0x2c}
0x201c…2036 Line {l1=0x18, l2=»4900PRINT RESUL1$(V:10) «, l3=0x18}
0x2036…2043 Line {l1=0x0b, l2=»4901ENDIF «, l3=0x0b}
0x2043…2059 Line {l1=0x14, l2=»4903KUK=FØRST+LINIE «, l3=0x14}
0x2059…209c Line {l1=0x41, l2=»4904IF SIDE$(KUK,10)>"0" AND SIDE$(KUK,10)<="9" AND SATS>B THEN «, l3=0x41}
0x209c…20b5 Line {l1=0x17, l2=»4906IF KUK=SIDST THEN «, l3=0x17}
0x20b5…20d7 Line {l1=0x20, l2=»4908IF LAST<18 THEN LAST=LAST+E «, l3=0x20}
0x20d7…20eb Line {l1=0x12, l2=»4910SIDST=SIDST+E «, l3=0x12}
0x20eb…20f9 Line {l1=0x0c, l2=»4912AT=AT+E «, l3=0x0c}
0x20f9…2134 Line {l1=0x39, l2=»4914SIDE$(SIDST)="1 39 0 0 0 " «, l3=0x39}
0x2134…2140 Line {l1=0x0a, l2=»4916ELSE «, l3=0x0a}
0x2140…2168 Line {l1=0x26, l2=»4918IF SIDE$(KUK+E,E,4)<>"1 39" THEN «, l3=0x26}
0x2168…217c Line {l1=0x12, l2=»4920SIDST=SIDST+E «, l3=0x12}
0x217c…218a Line {l1=0x0c, l2=»4922AT=AT+E «, l3=0x0c}
0x218a…21ac Line {l1=0x20, l2=»4924IF LAST<18 THEN LAST=LAST+E «, l3=0x20}
0x21ac…21bc Line {l1=0x0e, l2=»4926QUQ=SIDST «, l3=0x0e}
0x21bc…21d2 Line {l1=0x14, l2=»4928WHILE QUQ>KUK+E «, l3=0x14}
0x21d2…21f0 Line {l1=0x1c, l2=»4930SIDE$(QUQ)=SIDE$(QUQ-E) «, l3=0x1c}
0x21f0…2200 Line {l1=0x0e, l2=»4932QUQ=QUQ-E «, l3=0x0e}
0x2200…2210 Line {l1=0x0e, l2=»4934ENDWHILE «, l3=0x0e}
0x2210…2249 Line {l1=0x37, l2=»4936SIDE$(QUQ)="1 39 0 0 0 " «, l3=0x37}
0x2249…2256 Line {l1=0x0b, l2=»4938ENDIF «, l3=0x0b}
0x2256…2263 Line {l1=0x0b, l2=»4940ENDIF «, l3=0x0b}
0x2263…2277 Line {l1=0x12, l2=»4941EXEC SKRIVSID «, l3=0x12}
0x2277…2283 Line {l1=0x0a, l2=»4942ELSE «, l3=0x0a}
0x2283…229c Line {l1=0x17, l2=»4944IF KUK<SIDST THEN «, l3=0x17}
0x229c…22c3 Line {l1=0x25, l2=»4946IF SIDE$(KUK+E,E,4)="1 39" THEN «, l3=0x25}
0x22c3…22d3 Line {l1=0x0e, l2=»4948QUQ=KUK+E «, l3=0x0e}
0x22d3…22e9 Line {l1=0x14, l2=»4950WHILE QUQ<SIDST «, l3=0x14}
0x22e9…2307 Line {l1=0x1c, l2=»4952SIDE$(QUQ)=SIDE$(QUQ+E) «, l3=0x1c}
0x2307…2317 Line {l1=0x0e, l2=»4954QUQ=QUQ+E «, l3=0x0e}
0x2317…2327 Line {l1=0x0e, l2=»4956ENDWHILE «, l3=0x0e}
0x2327…233b Line {l1=0x12, l2=»4958SIDST=SIDST-E «, l3=0x12}
0x233b…2349 Line {l1=0x0c, l2=»4960AT=AT-E «, l3=0x0c}
0x2349…2360 Line {l1=0x15, l2=»4962LAST=SIDST-FØRST «, l3=0x15}
0x2360…237e Line {l1=0x1c, l2=»4964IF LAST>18 THEN LAST=18 «, l3=0x1c}
0x237e…2392 Line {l1=0x12, l2=»4965EXEC SKRIVSID «, l3=0x12}
0x2392…239f Line {l1=0x0b, l2=»4966ENDIF «, l3=0x0b}
0x239f…23ac Line {l1=0x0b, l2=»4968ENDIF «, l3=0x0b}
0x23ac…23b9 Line {l1=0x0b, l2=»4970ENDIF «, l3=0x0b}
0x23b9…23c6 Line {l1=0x0b, l2=»4977ENDIF «, l3=0x0b}
0x23c6…23d3 Line {l1=0x0b, l2=»4978ENDIF «, l3=0x0b}
0x23d3…23e2 Line {l1=0x0d, l2=»4979ENDPROC «, l3=0x0d}
0x23e2…23f6 Line {l1=0x12, l2=»4980PROC AUTTRANS «, l3=0x12}
0x23f6…2403 Line {l1=0x0b, l2=»5000CLEAR «, l3=0x0b}
0x2403…2436 Line {l1=0x31, l2=»5020PRINT " L Ø N B E R E G N I N G" «, l3=0x31}
0x2436…244c Line {l1=0x14, l2=»5040PRINT "Lønnr "; «, l3=0x14}
0x244c…246c Line {l1=0x1e, l2=»5060PRINT USING "#### ":LMNR; «, l3=0x1e}
0x246c…248d Line {l1=0x1f, l2=»5080PRINT "Navn ";POST1$(E,25) «, l3=0x1f}
0x248d…24d3 Line {l1=0x44, l2=»5100PRINT "Linie Lønart Nummer Enheder Sats Beløb" «, l3=0x44}
0x24d3…24f5 Line {l1=0x20, l2=»5120IF POST2$(24,25)<"90" THEN «, l3=0x20}
0x24f5…2500 Line {l1=0x09, l2=»5140II=G «, l3=0x09}
0x2500…250c Line {l1=0x0a, l2=»5160ELSE «, l3=0x0a}
0x250c…2517 Line {l1=0x09, l2=»5180II=E «, l3=0x09}
0x2517…2524 Line {l1=0x0b, l2=»5200ENDIF «, l3=0x0b}
0x2524…2538 Line {l1=0x12, l2=»5220FOR I=E TO II «, l3=0x12}
0x2538…254b Line {l1=0x11, l2=»5240CURSOR 7,V+I «, l3=0x11}
0x254b…2563 Line {l1=0x16, l2=»5260PRINT AUT$(I,G:V) «, l3=0x16}
0x2563…2571 Line {l1=0x0c, l2=»5280REPEAT «, l3=0x0c}
0x2571…257f Line {l1=0x0c, l2=»5300REPEAT «, l3=0x0c}
0x257f…2593 Line {l1=0x12, l2=»5320CURSOR 41,V+I «, l3=0x12}
0x2593…25ac Line {l1=0x17, l2=»5340LINE$=AUT$(I,21:7) «, l3=0x17}
0x25ac…25d4 Line {l1=0x26, l2=»5360IF LINE$(7)="+" THEN LINE$(7)=" " «, l3=0x26}
0x25d4…25e8 Line {l1=0x12, l2=»5380EDIT "",LINE$ «, l3=0x12}
0x25e8…25fe Line {l1=0x14, l2=»5400LINE$=LINE$+"+" «, l3=0x14}
0x25fe…2623 Line {l1=0x23, l2=»5420EXEC CALC(6,LINE$,TAH$,RESUL$) «, l3=0x23}
0x2623…2636 Line {l1=0x11, l2=»5440UNTIL FLAG=B «, l3=0x11}
0x2636…265b Line {l1=0x23, l2=»5460EXEC CALC(4,RESUL$,HUND$,MAX$) «, l3=0x23}
0x265b…266c Line {l1=0x0f, l2=»5480UNTIL SI=E «, l3=0x0f}
0x266c…268b Line {l1=0x1d, l2=»5500AUT$(I,21:7)=RESUL$(6:7) «, l3=0x1d}
0x268b…2698 Line {l1=0x0b, l2=»5520NEXT I «, l3=0x0b}
0x2698…26a9 Line {l1=0x0f, l2=»5540CURSOR 7,6 «, l3=0x0f}
0x26a9…26c1 Line {l1=0x16, l2=»5560PRINT AUT$(V,G:V) «, l3=0x16}
0x26c1…26cf Line {l1=0x0c, l2=»5580REPEAT «, l3=0x0c}
0x26cf…26dd Line {l1=0x0c, l2=»5600REPEAT «, l3=0x0c}
0x26dd…26ef Line {l1=0x10, l2=»5620CURSOR 51,6 «, l3=0x10}
0x26ef…2709 Line {l1=0x18, l2=»5640LINE$=AUT$(V,28:10) «, l3=0x18}
0x2709…2733 Line {l1=0x28, l2=»5660IF LINE$(10)="+" THEN LINE$(10)=" " «, l3=0x28}
0x2733…2747 Line {l1=0x12, l2=»5680EDIT "",LINE$ «, l3=0x12}
0x2747…275d Line {l1=0x14, l2=»5700LINE$=LINE$+"+" «, l3=0x14}
0x275d…2782 Line {l1=0x23, l2=»5720EXEC CALC(6,LINE$,TAH$,RESUL$) «, l3=0x23}
0x2782…2795 Line {l1=0x11, l2=»5740UNTIL FLAG=B «, l3=0x11}
0x2795…27ba Line {l1=0x23, l2=»5760EXEC CALC(4,RESUL$,MAX$,MAX1$) «, l3=0x23}
0x27ba…27cb Line {l1=0x0f, l2=»5780UNTIL SI=E «, l3=0x0f}
0x27cb…27ec Line {l1=0x1f, l2=»5800AUT$(V,28:10)=RESUL$(V:10) «, l3=0x1f}
0x27ec…27fc Line {l1=0x0e, l2=»5820LT=LT*100 «, l3=0x0e}
0x27fc…2811 Line {l1=0x13, l2=»5840AUT$(4,21)=" " «, l3=0x13}
0x2811…2836 Line {l1=0x23, l2=»5860AUT$(4,22)=CHR(LT DIV 1000+48) «, l3=0x23}
0x2836…2861 Line {l1=0x29, l2=»5880AUT$(4,23)=CHR(LT DIV 100 MOD 10+48) «, l3=0x29}
0x2861…2876 Line {l1=0x13, l2=»5900AUT$(4,24)="," «, l3=0x13}
0x2876…28a0 Line {l1=0x28, l2=»5920AUT$(4,25)=CHR(LT DIV 10 MOD 10+48) «, l3=0x28}
0x28a0…28c3 Line {l1=0x21, l2=»5940AUT$(4,26)=CHR(LT MOD 10+48) «, l3=0x21}
0x28c3…28d8 Line {l1=0x13, l2=»5960AUT$(4,27)="+" «, l3=0x13}
0x28d8…28f9 Line {l1=0x1f, l2=»5980AUT$(4,11:10)=" " «, l3=0x1f}
0x28f9…2913 Line {l1=0x18, l2=»6000CASE POST2$(21) OF «, l3=0x18}
0x2913…2922 Line {l1=0x0d, l2=»6020WHEN "1" «, l3=0x0d}
0x2922…2937 Line {l1=0x13, l2=»6040AUT$(4,11)="1" «, l3=0x13}
0x2937…294a Line {l1=0x11, l2=»6060WHEN "2","3" «, l3=0x11}
0x294a…295f Line {l1=0x13, l2=»6080AUT$(4,11)="7" «, l3=0x13}
0x295f…2972 Line {l1=0x11, l2=»6100WHEN "4","5" «, l3=0x11}
0x2972…298a Line {l1=0x16, l2=»6120AUT$(4,11:G)="14" «, l3=0x16}
0x298a…299d Line {l1=0x11, l2=»6140WHEN "6","7" «, l3=0x11}
0x299d…29b5 Line {l1=0x16, l2=»6160AUT$(4,11:G)="30" «, l3=0x16}
0x29b5…29c4 Line {l1=0x0d, l2=»6180ENDCASE «, l3=0x0d}
0x29c4…29d8 Line {l1=0x12, l2=»6200IF FD=B THEN «, l3=0x12}
0x29d8…29e9 Line {l1=0x0f, l2=»6220CURSOR 7,7 «, l3=0x0f}
0x29e9…2a01 Line {l1=0x16, l2=»6240PRINT AUT$(4,G:V) «, l3=0x16}
0x2a01…2a0f Line {l1=0x0c, l2=»6260REPEAT «, l3=0x0c}
0x2a0f…2a1d Line {l1=0x0c, l2=»6280REPEAT «, l3=0x0c}
0x2a1d…2a2f Line {l1=0x10, l2=»6300CURSOR 28,7 «, l3=0x10}
0x2a2f…2a49 Line {l1=0x18, l2=»6320LINE$=AUT$(4,11:10) «, l3=0x18}
0x2a49…2a73 Line {l1=0x28, l2=»6340IF LINE$(10)="+" THEN LINE$(10)=" " «, l3=0x28}
0x2a73…2a87 Line {l1=0x12, l2=»6360EDIT "",LINE$ «, l3=0x12}
0x2a87…2a9d Line {l1=0x14, l2=»6380LINE$=LINE$+"+" «, l3=0x14}
0x2a9d…2ac2 Line {l1=0x23, l2=»6400EXEC CALC(6,LINE$,TAH$,RESUL$) «, l3=0x23}
0x2ac2…2ad5 Line {l1=0x11, l2=»6420UNTIL FLAG=B «, l3=0x11}
0x2ad5…2afa Line {l1=0x23, l2=»6440EXEC CALC(4,RESUL$,HUND$,MAX$) «, l3=0x23}
0x2afa…2b0b Line {l1=0x0f, l2=»6460UNTIL SI=E «, l3=0x0f}
0x2b0b…2b2c Line {l1=0x1f, l2=»6480AUT$(4,11:10)=RESUL$(V:10) «, l3=0x1f}
0x2b2c…2b39 Line {l1=0x0b, l2=»6500ENDIF «, l3=0x0b}
0x2b39…2b46 Line {l1=0x0b, l2=»6520LAST=4 «, l3=0x0b}
0x2b46…2b55 Line {l1=0x0d, l2=»6540ENDPROC «, l3=0x0d}
0x2b55…2b73 Line {l1=0x1c, l2=»6560FIL$="P641220:VIRKKART" «, l3=0x1c}
0x2b73…2b86 Line {l1=0x11, l2=»6580EXEC INDVIRK «, l3=0x11}
0x2b86…2b97 Line {l1=0x0f, l2=»6600CLOSE FIL$ «, l3=0x0f}
0x2b97…2bb3 Line {l1=0x1a, l2=»6610DIM SIDE$(ATPLM-V,37) «, l3=0x1a}
0x2bb3…2bd1 Line {l1=0x1c, l2=»6620FIL$="P641220:LØNMODRG" «, l3=0x1c}
0x2bd1…2be3 Line {l1=0x10, l2=»6640OPEN FIL$,R «, l3=0x10}
0x2be3…2c02 Line {l1=0x1d, l2=»6660FIL1$="P641220:TRANSREG" «, l3=0x1d}
0x2c02…2c15 Line {l1=0x11, l2=»6680OPEN FIL1$,W «, l3=0x11}
0x2c15…2c34 Line {l1=0x1d, l2=»6700FIL5$="P641220:LØNARTRG" «, l3=0x1d}
0x2c34…2c47 Line {l1=0x11, l2=»6720OPEN FIL5$,R «, l3=0x11}
0x2c47…2c55 Line {l1=0x0c, l2=»6740REPEAT «, l3=0x0c}
0x2c55…2c62 Line {l1=0x0b, l2=»6760CLEAR «, l3=0x0b}
0x2c62…2c70 Line {l1=0x0c, l2=»6780REPEAT «, l3=0x0c}
0x2c70…2c7d Line {l1=0x0b, l2=»6800LMNR=B «, l3=0x0b}
0x2c7d…2c96 Line {l1=0x17, l2=»6820EDIT "Lønnr ",LMNR «, l3=0x17}
0x2c96…2cb9 Line {l1=0x21, l2=»6840UNTIL LMNR=>B AND LMNR<MLMNR «, l3=0x21}
0x2cb9…2ccf Line {l1=0x14, l2=»6860IF LMNR>B THEN «, l3=0x14}
0x2ccf…2ce9 Line {l1=0x18, l2=»6880EXEC INLØNMOD(LMNR) «, l3=0x18}
0x2ce9…2cfe Line {l1=0x13, l2=»6900IF LA<>B THEN «, l3=0x13}
0x2cfe…2d18 Line {l1=0x18, l2=»6920IT=(LMNR-E)*ATPLM+E «, l3=0x18}
0x2d18…2d24 Line {l1=0x0a, l2=»6940UT=IT «, l3=0x0a}
0x2d24…2d2f Line {l1=0x09, l2=»6960AT=B «, l3=0x09}
0x2d2f…2d43 Line {l1=0x12, l2=»6970EXEC INDTRANS «, l3=0x12}
0x2d43…2d51 Line {l1=0x0c, l2=»6980REPEAT «, l3=0x0c}
0x2d51…2d6f Line {l1=0x1c, l2=»7005IF SIDE$(E,E)="2" THEN «, l3=0x1c}
0x2d6f…2d7c Line {l1=0x0b, l2=»7010LAST=B «, l3=0x0b}
0x2d7c…2d88 Line {l1=0x0a, l2=»7015ELSE «, l3=0x0a}
0x2d88…2d9c Line {l1=0x12, l2=»7020EXEC SKRIVSID «, l3=0x12}
0x2d9c…2db2 Line {l1=0x14, l2=»7040IF LAST>B THEN «, l3=0x14}
0x2db2…2dc4 Line {l1=0x10, l2=»7060EXEC RETSID «, l3=0x10}
0x2dc4…2ddb Line {l1=0x15, l2=»7070LAST=SIDST-FØRST «, l3=0x15}
0x2ddb…2df9 Line {l1=0x1c, l2=»7080IF LAST>18 THEN LAST=18 «, l3=0x1c}
0x2df9…2e06 Line {l1=0x0b, l2=»7100ENDIF «, l3=0x0b}
0x2e06…2e13 Line {l1=0x0b, l2=»7110ENDIF «, l3=0x0b}
0x2e13…2e3d Line {l1=0x28, l2=»7120UNTIL LAST=B OR IT=(LMNR-E)*ATPLM+E «, l3=0x28}
0x2e3d…2e62 Line {l1=0x23, l2=»7130IF SIDE$(FØRST+E,E)<>"2" THEN «, l3=0x23}
0x2e62…2e85 Line {l1=0x21, l2=»7140IF IT>(LMNR-E)*ATPLM+E THEN «, l3=0x21}
0x2e85…2e98 Line {l1=0x11, l2=»7160FOR K=E TO 4 «, l3=0x11}
0x2e98…2eb3 Line {l1=0x19, l2=»7180GET FIL1$,IT:AUT$(K) «, l3=0x19}
0x2eb3…2ec1 Line {l1=0x0c, l2=»7200IT=IT+E «, l3=0x0c}
0x2ec1…2ece Line {l1=0x0b, l2=»7220NEXT K «, l3=0x0b}
0x2ece…2eda Line {l1=0x0a, l2=»7240ELSE «, l3=0x0a}
0x2eda…2f10 Line {l1=0x34, l2=»7260AUT$(E)="1*78 0 " «, l3=0x34}
0x2f10…2f46 Line {l1=0x34, l2=»7280AUT$(G)="1*79 0 " «, l3=0x34}
0x2f46…2f7c Line {l1=0x34, l2=»7300AUT$(V)="1*80 0 " «, l3=0x34}
0x2f7c…2fb2 Line {l1=0x34, l2=»7320AUT$(4)="1*83 0 " «, l3=0x34}
0x2fb2…2fbf Line {l1=0x0b, l2=»7340ENDIF «, l3=0x0b}
0x2fbf…2fd9 Line {l1=0x18, l2=»7355IF AT<ATPLM-4 THEN «, l3=0x18}
0x2fd9…2fe7 Line {l1=0x0c, l2=»7360REPEAT «, l3=0x0c}
0x2fe7…2ff4 Line {l1=0x0b, l2=»7370LAST=B «, l3=0x0b}
0x2ff4…3008 Line {l1=0x12, l2=»7380EXEC SKRIVSID «, l3=0x12}
0x3008…301a Line {l1=0x10, l2=»7400EXEC INDSID «, l3=0x10}
0x301a…303b Line {l1=0x1f, l2=»7420IF LAST>B THEN EXEC RETSID «, l3=0x1f}
0x303b…304f Line {l1=0x12, l2=»7460UNTIL LAST<18 «, l3=0x12}
0x304f…305c Line {l1=0x0b, l2=»7470ENDIF «, l3=0x0b}
0x305c…306f Line {l1=0x11, l2=»7475EXEC UDTRANS «, l3=0x11}
0x306f…3083 Line {l1=0x12, l2=»7480EXEC AUTTRANS «, l3=0x12}
0x3083…3097 Line {l1=0x12, l2=»7500EXEC UDATRANS «, l3=0x12}
0x3097…30a5 Line {l1=0x0c, l2=»7520AT=AT+4 «, l3=0x0c}
0x30a5…30bd Line {l1=0x16, l2=»7540IF AT<ATPLM THEN «, l3=0x16}
0x30bd…30d2 Line {l1=0x13, l2=»7560SIDE$(E,E)=" " «, l3=0x13}
0x30d2…30ee Line {l1=0x1a, l2=»7580PUT FIL1$,UT:SIDE$(E) «, l3=0x1a}
0x30ee…30fb Line {l1=0x0b, l2=»7600ENDIF «, l3=0x0b}
0x30fb…3107 Line {l1=0x0a, l2=»7605ELSE «, l3=0x0a}
0x3107…312e Line {l1=0x25, l2=»7607PRINT "Lønmodtager ikke bogført" «, l3=0x25}
0x312e…3149 Line {l1=0x19, l2=»7610INPUT "RETURN",LINE$ «, l3=0x19}
0x3149…3156 Line {l1=0x0b, l2=»7615ENDIF «, l3=0x0b}
0x3156…3162 Line {l1=0x0a, l2=»7620ELSE «, l3=0x0a}
0x3162…3188 Line {l1=0x24, l2=»7640PRINT "Lønmodtager findes ikke" «, l3=0x24}
0x3188…31a3 Line {l1=0x19, l2=»7660INPUT "RETURN",LINE$ «, l3=0x19}
0x31a3…31b0 Line {l1=0x0b, l2=»7680ENDIF «, l3=0x0b}
0x31b0…31bd Line {l1=0x0b, l2=»7700ENDIF «, l3=0x0b}
0x31bd…31d0 Line {l1=0x11, l2=»7720UNTIL LMNR=B «, l3=0x11}
0x31d0…31e1 Line {l1=0x0f, l2=»7740CLOSE FIL$ «, l3=0x0f}
0x31e1…31f3 Line {l1=0x10, l2=»7760CLOSE FIL1$ «, l3=0x10}
0x31f3…3205 Line {l1=0x10, l2=»7780CLOSE FIL5$ «, l3=0x10}
0x3205…3222 Line {l1=0x1b, l2=»7800CHAIN "P641210:STARTB" «, l3=0x1b}
0x3222…3240 00 00 54 4f 3c 31 20 4f 52 20 4d 5d 4e 45 44 3c 31 20 4f 52 20 4d 5d 4e 45 44 3e 31 32 20 ┆ TO<1 OR MÅNED<1 OR MÅNED>12 ┆
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…]