|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 10112 (0x2780)
Types: TextFile
Notes: Mikados_K
Names: »LØNARTVD.K«
└─⟦385f097a1⟧ Bits:30008988 SPC/1 COMAL programmer til bogføring
└─⟦this⟧ »LØNARTVD.K«
0009DIM POST6$(29),FIL5$(20),TVN(45) 0011TVN(E)=E 0012TVN(G)=G 0013TVN(V)=V 0014TVN(4)=4 0015TVN(5)=5 0016TVN(6)=7 0017TVN(7)=8 0018TVN(8)=W 0019TVN(W)=10 0020TVN(10)=11 0021TVN(11)=12 0022TVN(12)=13 0023TVN(13)=14 0024TVN(14)=15 0025TVN(15)=16 0026TVN(16)=112 0027TVN(17)=113 0028TVN(18)=313 0029TVN(19)=413 0030TVN(20)=115 0031TVN(21)=315 0032TVN(22)=415 0033TVN(23)=116 0034TVN(24)=316 0035TVN(25)=416 0036TVN(26)=117 0037TVN(27)=317 0038TVN(28)=417 0039TVN(29)=123 0040TVN(30)=206 0041TVN(31)=212 0042TVN(32)=214 0043TVN(33)=218 0044TVN(34)=219 0045TVN(35)=319 0046TVN(36)=419 0047TVN(37)=220 0048TVN(38)=320 0049TVN(39)=420 0050TVN(40)=221 0051TVN(41)=321 0052TVN(42)=421 0053TVN(43)=222 0054TVN(44)=223 0055TVN(45)=224 0199DIM FIL$(20),DAD$(6) 0200PROC INDVIRK 0205FIL$="P641220:VIRKKART" 0210OPEN FIL$,R 0220EXEC FEJL(B,B,FIL$) 0245GET FIL$,V:DAD$ 0247CLOSE FIL$ 0250ENDPROC 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 1540LANR=RESULT 1555WHEN G 1556WHILE LINE$(E)=" " 1557EXEC INLINE(OPL) 1558ENDWHILE 1559POST6$(E)="1" 1570POST6$(G,21)=LINE$ 1585WHEN V 1600WHILE RESULT<E OR RESULT=6 OR RESULT>11 1601EXEC INLINE(OPL) 1602ENDWHILE 1610KT=RESULT-(RESULT>6) 1620ÅT=B 2950ENDCASE 2965ENDPROC 2980PROC SKRIVOPL 2995IF OUTP=B THEN CLEAR 2998PRINT "L Ø N A R T S - 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$,LANR,2) 3056LINE$=POST6$(29)+LINE$ 3070WHEN G 3085LINE$=POST6$(G,21) 3100WHEN V 3101IF KT=B THEN 3102TV=B 3103ELSE 3104TV=TVN(KT) 3105ENDIF 3115EXEC CONV(LINE$,TV,3) 3130WHEN 4 3131IF FSHT=B THEN 3132TV=B 3133ELSE 3134TV=TVN(FSHT) 3135ENDIF 3145EXEC CONV(LINE$,TV,3) 3160WHEN 5 3161IF ÅT=B THEN 3162TV=B 3163ELSE 3164TV=TVN(ÅT) 3165ENDIF 3175EXEC CONV(LINE$,TV,3) 3190WHEN 6,7,8,W,10,11,12 3205IF POST6$(16+J)="0" THEN 3220LINE$="NEJ" 3235ELSE 3250LINE$=" JA" 3265ENDIF 3730ENDCASE 3745IF OUTP=B THEN 3760EXEC OUTLINE(J) 3775ELSE 3790EXEC OUTPLINE(J) 3805ENDIF 3820NEXT J 3835ENDPROC 3850PROC OUTLINE(N) 3865CURSOR X(N),Y(N) 3880IF N<4 THEN 3881PRINT USING "### ":N; 3882ELSE 3883IF N>5 THEN PRINT " "; 3884ENDIF 3890IF N>V AND N<6 THEN 3895PRINT PICT$(N);":";LINE$ 3896ELSE 3897PRINT PICT$(N);":";TAB(25);LINE$ 3898ENDIF 3910ENDPROC 3925PROC INDART(N) 3927GET FIL5$,N:POST6$,KT,FSHT,ÅT 3929EXEC FEJL(G,N,FIL5$) 3931ENDPROC 3933PROC UDART(N) 3935PUT FIL5$,N:POST6$,KT,FSHT,ÅT 3937EXEC FEJL(E,N,FIL5$) 3939ENDPROC 3941PROC CH(N) 3943OKAY=B 3945IF N<40 THEN OKAY=E 3947IF N>42 AND N<49 THEN OKAY=E 3949IF N>50 AND N<57 THEN OKAY=E 3951IF N>57 AND N<60 THEN OKAY=E 3953IF N>60 AND N<65 THEN OKAY=E 3955IF N<40 THEN 3957SF=V 3959ELSE 3961SF=G 3963ENDIF 3965ENDPROC 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 25,Y(N) 4165PRINT BL$(E:ABS(TYPE(N))+6) 4180CURSOR X(N),Y(N) 4195PRINT USING "### ":N; 4214PRINT PICT$(N);":"; 4215CURSOR 25,Y(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 4490PRINT "L Ø N A R T S - K A R T O T E K" 4495FOR I=E TO A 4510CURSOR X(I),Y(I) 4520IF I<4 THEN 4525PRINT USING "### ":I; 4526ELSE 4527IF I>5 THEN PRINT " "; 4528ENDIF 4540PRINT PICT$(I);":" 4555NEXT I 4570ENDPROC 4585PROC OUTPLINE(N) 4600PRINT TAB(X(N)); 4610IF N<4 THEN 4615PRINT USING "### ":N; 4616ELSE 4617IF N>5 THEN PRINT " "; 4618ENDIF 4620IF N>V AND N<6 THEN 4630PRINT PICT$(N);":";LINE$; 4632ELSE 4634PRINT PICT$(N);":";TAB(25);LINE$; 4635ENDIF 4636IF N<V OR N>4 THEN PRINT 4645ENDPROC 4660A=12 4675DIM X(A),Y(A),PICT$(A,20),TYPE(A) 4705DIM BL$(79),LINE$(30) 4720FOR I=E TO 79 4735BL$=BL$+" " 4750NEXT I 4780X(E)=E 4795X(G)=E 4810X(V)=E 4825X(4)=35 4840X(5)=45 4855X(6)=E 4870X(7)=E 4885X(8)=E 4900X(W)=E 4915X(10)=E 4930X(11)=E 4945X(12)=E 5095Y(E)=V 5110Y(G)=5 5125Y(V)=7 5140Y(4)=7 5155Y(5)=7 5170Y(6)=W 5185Y(7)=11 5200Y(8)=13 5215Y(W)=15 5230Y(10)=17 5245Y(11)=19 5260Y(12)=21 5410TYPE(E)=B 5425TYPE(G)=-20 5440TYPE(V)=B 5725PICT$(E)="LA-nr" 5740PICT$(G)="Tekst" 5755PICT$(V)="Tælleværk nr" 5770PICT$(4)="" 5785PICT$(5)="" 5800PICT$(6)="Ferieberett løn" 5815PICT$(7)="Trækpligtig A-indk" 5830PICT$(8)="Trækfri A-indk" 5845PICT$(W)="Nettoløndel" 5860PICT$(10)="Fradrag M saldo" 5875PICT$(11)="Fradrag U saldo" 5890PICT$(12)="Udbetaling" 6000EXEC INDVIRK 6130OUTP=B 6145FIL5$="P641220:LØNARTRG" 6160OPEN FIL5$,W 6175EXEC FEJL(B,B,FIL5$) 6250REPEAT 6265SV=G 6280CLEAR 6295CURSOR 10,10 6310PRINT "L Ø N A R T S - 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 LANR=>B AND LANR<=99 6551LISTE=B 6552IF LANR=B THEN LISTE=E 6553REPEAT 6554IF LISTE=E THEN LANR=LANR+E 6565EXEC INDART(LANR) 6580CASE SV OF 6595WHEN E 6600EXEC CH(LANR) 6610IF POST6$(E)="1" AND OKAY=E THEN 6625EXEC SKRIVOPL 6640REPEAT 6655REPEAT 6670SV1=B 6685CURSOR E,23 6700EDIT "Feltnr ",SV1 6715UNTIL SV1>E AND SV1<=SF OR SV1=B 6730IF SV1>B THEN 6745EXEC INOPL(SV1) 6760ENDIF 6775UNTIL SV1=B 6790EXEC UDART(LANR) 6805ELSE 6820PRINT "Lønart kan ikke ændres" 6835INPUT "RETURN",LINE$ 6850ENDIF 6865WHEN G 6880IF POST6$(E)="1" THEN 6895OUTP=B 6910EXEC SKRIVOPL 6925INPUT "RETURN",LINE$ 6940ELSE 6955PRINT "Lønart findes ikke" 6970INPUT "RETURN",LINE$ 6985ENDIF 7000WHEN V 7015IF POST6$(E)="1" OR LISTE=E THEN 7016IF POST6$(E)="1" THEN 7030OUTPUT P 7045OUTP=E 7060EXEC SKRIVOPL 7061FOR I=12 TO 72 7062PRINT 7063NEXT I 7075OUTP=B 7090OUTPUT T 7095ENDIF 7105ELSE 7120PRINT "Lønart findes ikke" 7135INPUT "RETURN",LINE$ 7150ENDIF 7165WHEN 4 7170EXEC CH(LANR) 7180IF POST6$(E)="1" OR OKAY=B THEN 7195PRINT "Lønart må ikke oprettes" 7210INPUT "RETURN",LINE$ 7225ELSE 7240EXEC SKRIVOPL 7255EXEC CONV(LINE$,LANR,2) 7260LINE$=" "+LINE$ 7270EXEC OUTLINE(1) 7285FOR J=G TO SF 7300EXEC INOPL(J) 7315NEXT J 7435REPEAT 7450REPEAT 7465SV1=B 7480CURSOR E,23 7495EDIT "Feltnr ",SV1 7510UNTIL SV1>E AND SV1<=SF OR SV1=B 7525IF SV1>B THEN 7540EXEC INOPL(SV1) 7555ENDIF 7570UNTIL SV1=B 7600EXEC UDART(LANR) 7615ENDIF 7630WHEN 5 7640EXEC CH(LANR) 7645IF POST6$(E)="1" AND OKAY=E THEN 7660SV1=G 7795EXEC SKRIVOPL 7810WHILE SV1<>B AND SV1<>E 7812SV1=B 7825CURSOR E,23 7840EDIT "Sletning korrekt 1: ",SV1 7855ENDWHILE 7870IF SV1=E THEN 7885POST6$(E,21)="0 " 7900EXEC UDART(LANR) 7930ENDIF 7945ELSE 7960PRINT "Lønart kan ikke slettes" 7975INPUT "RETURN",LINE$ 7990ENDIF 8005ENDCASE 8006UNTIL LISTE=B OR LANR=>99 8010ENDIF 8020UNTIL SV=B 8050CLOSE FIL5$ 8065CHAIN "P641210:STARTB"
0x0000…0027 Line {l1=0x25, l2=»0009DIM POST6$(29),FIL5$(20),TVN(45) «, l3=0x25}
0x0027…0036 Line {l1=0x0d, l2=»0011TVN(E)=E «, l3=0x0d}
0x0036…0045 Line {l1=0x0d, l2=»0012TVN(G)=G «, l3=0x0d}
0x0045…0054 Line {l1=0x0d, l2=»0013TVN(V)=V «, l3=0x0d}
0x0054…0063 Line {l1=0x0d, l2=»0014TVN(4)=4 «, l3=0x0d}
0x0063…0072 Line {l1=0x0d, l2=»0015TVN(5)=5 «, l3=0x0d}
0x0072…0081 Line {l1=0x0d, l2=»0016TVN(6)=7 «, l3=0x0d}
0x0081…0090 Line {l1=0x0d, l2=»0017TVN(7)=8 «, l3=0x0d}
0x0090…009f Line {l1=0x0d, l2=»0018TVN(8)=W «, l3=0x0d}
0x009f…00af Line {l1=0x0e, l2=»0019TVN(W)=10 «, l3=0x0e}
0x00af…00c0 Line {l1=0x0f, l2=»0020TVN(10)=11 «, l3=0x0f}
0x00c0…00d1 Line {l1=0x0f, l2=»0021TVN(11)=12 «, l3=0x0f}
0x00d1…00e2 Line {l1=0x0f, l2=»0022TVN(12)=13 «, l3=0x0f}
0x00e2…00f3 Line {l1=0x0f, l2=»0023TVN(13)=14 «, l3=0x0f}
0x00f3…0104 Line {l1=0x0f, l2=»0024TVN(14)=15 «, l3=0x0f}
0x0104…0115 Line {l1=0x0f, l2=»0025TVN(15)=16 «, l3=0x0f}
0x0115…0127 Line {l1=0x10, l2=»0026TVN(16)=112 «, l3=0x10}
0x0127…0139 Line {l1=0x10, l2=»0027TVN(17)=113 «, l3=0x10}
0x0139…014b Line {l1=0x10, l2=»0028TVN(18)=313 «, l3=0x10}
0x014b…015d Line {l1=0x10, l2=»0029TVN(19)=413 «, l3=0x10}
0x015d…016f Line {l1=0x10, l2=»0030TVN(20)=115 «, l3=0x10}
0x016f…0181 Line {l1=0x10, l2=»0031TVN(21)=315 «, l3=0x10}
0x0181…0193 Line {l1=0x10, l2=»0032TVN(22)=415 «, l3=0x10}
0x0193…01a5 Line {l1=0x10, l2=»0033TVN(23)=116 «, l3=0x10}
0x01a5…01b7 Line {l1=0x10, l2=»0034TVN(24)=316 «, l3=0x10}
0x01b7…01c9 Line {l1=0x10, l2=»0035TVN(25)=416 «, l3=0x10}
0x01c9…01db Line {l1=0x10, l2=»0036TVN(26)=117 «, l3=0x10}
0x01db…01ed Line {l1=0x10, l2=»0037TVN(27)=317 «, l3=0x10}
0x01ed…01ff Line {l1=0x10, l2=»0038TVN(28)=417 «, l3=0x10}
0x01ff…0211 Line {l1=0x10, l2=»0039TVN(29)=123 «, l3=0x10}
0x0211…0223 Line {l1=0x10, l2=»0040TVN(30)=206 «, l3=0x10}
0x0223…0235 Line {l1=0x10, l2=»0041TVN(31)=212 «, l3=0x10}
0x0235…0247 Line {l1=0x10, l2=»0042TVN(32)=214 «, l3=0x10}
0x0247…0259 Line {l1=0x10, l2=»0043TVN(33)=218 «, l3=0x10}
0x0259…026b Line {l1=0x10, l2=»0044TVN(34)=219 «, l3=0x10}
0x026b…027d Line {l1=0x10, l2=»0045TVN(35)=319 «, l3=0x10}
0x027d…028f Line {l1=0x10, l2=»0046TVN(36)=419 «, l3=0x10}
0x028f…02a1 Line {l1=0x10, l2=»0047TVN(37)=220 «, l3=0x10}
0x02a1…02b3 Line {l1=0x10, l2=»0048TVN(38)=320 «, l3=0x10}
0x02b3…02c5 Line {l1=0x10, l2=»0049TVN(39)=420 «, l3=0x10}
0x02c5…02d7 Line {l1=0x10, l2=»0050TVN(40)=221 «, l3=0x10}
0x02d7…02e9 Line {l1=0x10, l2=»0051TVN(41)=321 «, l3=0x10}
0x02e9…02fb Line {l1=0x10, l2=»0052TVN(42)=421 «, l3=0x10}
0x02fb…030d Line {l1=0x10, l2=»0053TVN(43)=222 «, l3=0x10}
0x030d…031f Line {l1=0x10, l2=»0054TVN(44)=223 «, l3=0x10}
0x031f…0331 Line {l1=0x10, l2=»0055TVN(45)=224 «, l3=0x10}
0x0331…034c Line {l1=0x19, l2=»0199DIM FIL$(20),DAD$(6) «, l3=0x19}
0x034c…035f Line {l1=0x11, l2=»0200PROC INDVIRK «, l3=0x11}
0x035f…037d Line {l1=0x1c, l2=»0205FIL$="P641220:VIRKKART" «, l3=0x1c}
0x037d…038f Line {l1=0x10, l2=»0210OPEN FIL$,R «, l3=0x10}
0x038f…03a9 Line {l1=0x18, l2=»0220EXEC FEJL(B,B,FIL$) «, l3=0x18}
0x03a9…03bf Line {l1=0x14, l2=»0245GET FIL$,V:DAD$ «, l3=0x14}
0x03bf…03d0 Line {l1=0x0f, l2=»0247CLOSE FIL$ «, l3=0x0f}
0x03d0…03df Line {l1=0x0d, l2=»0250ENDPROC «, l3=0x0d}
0x03df…03fd Line {l1=0x1c, l2=»1000PROC CONV(NR2,OK22,CIF) «, l3=0x1c}
0x03fd…040c Line {l1=0x0d, l2=»1015OK2=OK22 «, l3=0x0d}
0x040c…041a Line {l1=0x0c, l2=»1030NR2$="" «, l3=0x0c}
0x041a…0428 Line {l1=0x0c, l2=»1045REPEAT «, l3=0x0c}
0x0428…044d Line {l1=0x23, l2=»1060NR2$=CHR((OK2 MOD 10)+48)+NR2$ «, l3=0x23}
0x044d…045d Line {l1=0x0e, l2=»1075CIF=CIF-E «, l3=0x0e}
0x045d…0472 Line {l1=0x13, l2=»1090OK2=OK2 DIV 10 «, l3=0x13}
0x0472…0496 Line {l1=0x22, l2=»1105IF CIF<B AND OK2=B THEN CIF=B «, l3=0x22}
0x0496…04a8 Line {l1=0x10, l2=»1120UNTIL CIF=B «, l3=0x10}
0x04a8…04b7 Line {l1=0x0d, l2=»1135ENDPROC «, l3=0x0d}
0x04b7…04d1 Line {l1=0x18, l2=»1150PROC CHECK(NR1,OK1) «, l3=0x18}
0x04d1…04dd Line {l1=0x0a, l2=»1165OK1=B «, l3=0x0a}
0x04dd…04ec Line {l1=0x0d, l2=»1180RESULT=B «, l3=0x0d}
0x04ec…0507 Line {l1=0x19, l2=»1195IF LEN(NR1$)>B THEN «, l3=0x19}
0x0507…0522 Line {l1=0x19, l2=»1210IF NR1$(E)="-" THEN «, l3=0x19}
0x0522…0533 Line {l1=0x0f, l2=»1225FORTEGN=-E «, l3=0x0f}
0x0533…053f Line {l1=0x0a, l2=»1240OK1=E «, l3=0x0a}
0x053f…054b Line {l1=0x0a, l2=»1255ELSE «, l3=0x0a}
0x054b…055b Line {l1=0x0e, l2=»1270FORTEGN=E «, l3=0x0e}
0x055b…0568 Line {l1=0x0b, l2=»1285ENDIF «, l3=0x0b}
0x0568…0582 Line {l1=0x18, l2=»1300WHILE LEN(NR1$)>OK1 «, l3=0x18}
0x0582…0592 Line {l1=0x0e, l2=»1315OK1=OK1+E «, l3=0x0e}
0x0592…05c0 Line {l1=0x2c, l2=»1330IF NR1$(OK1)<"0" OR NR1$(OK1)>"9" THEN «, l3=0x2c}
0x05c0…05d0 Line {l1=0x0e, l2=»1345FORTEGN=B «, l3=0x0e}
0x05d0…05e4 Line {l1=0x12, l2=»1360OK1=LEN(NR1$) «, l3=0x12}
0x05e4…05f1 Line {l1=0x0b, l2=»1375ENDIF «, l3=0x0b}
0x05f1…061a Line {l1=0x27, l2=»1390RESULT=RESULT*10+ORD(NR1$(OK1))-48 «, l3=0x27}
0x061a…062a Line {l1=0x0e, l2=»1405ENDWHILE «, l3=0x0e}
0x062a…0640 Line {l1=0x14, l2=»1420OK1=OK1*FORTEGN «, l3=0x14}
0x0640…065e Line {l1=0x1c, l2=»1435IF OK1<B THEN OK1=OK1+E «, l3=0x1c}
0x065e…066b Line {l1=0x0b, l2=»1450ENDIF «, l3=0x0b}
0x066b…067a Line {l1=0x0d, l2=»1465ENDPROC «, l3=0x0d}
0x067a…0690 Line {l1=0x14, l2=»1480PROC INOPL(OPL) «, l3=0x14}
0x0690…06a7 Line {l1=0x15, l2=»1495EXEC INLINE(OPL) «, l3=0x15}
0x06a7…06ba Line {l1=0x11, l2=»1510CASE OPL OF «, l3=0x11}
0x06ba…06c7 Line {l1=0x0b, l2=»1525WHEN E «, l3=0x0b}
0x06c7…06d9 Line {l1=0x10, l2=»1540LANR=RESULT «, l3=0x10}
0x06d9…06e6 Line {l1=0x0b, l2=»1555WHEN G «, l3=0x0b}
0x06e6…06ff Line {l1=0x17, l2=»1556WHILE LINE$(E)=" " «, l3=0x17}
0x06ff…0716 Line {l1=0x15, l2=»1557EXEC INLINE(OPL) «, l3=0x15}
0x0716…0726 Line {l1=0x0e, l2=»1558ENDWHILE «, l3=0x0e}
0x0726…073a Line {l1=0x12, l2=»1559POST6$(E)="1" «, l3=0x12}
0x073a…0753 Line {l1=0x17, l2=»1570POST6$(G,21)=LINE$ «, l3=0x17}
0x0753…0760 Line {l1=0x0b, l2=»1585WHEN V «, l3=0x0b}
0x0760…078e Line {l1=0x2c, l2=»1600WHILE RESULT<E OR RESULT=6 OR RESULT>11 «, l3=0x2c}
0x078e…07a5 Line {l1=0x15, l2=»1601EXEC INLINE(OPL) «, l3=0x15}
0x07a5…07b5 Line {l1=0x0e, l2=»1602ENDWHILE «, l3=0x0e}
0x07b5…07d0 Line {l1=0x19, l2=»1610KT=RESULT-(RESULT>6) «, l3=0x19}
0x07d0…07db Line {l1=0x09, l2=»1620ÅT=B «, l3=0x09}
0x07db…07ea Line {l1=0x0d, l2=»2950ENDCASE «, l3=0x0d}
0x07ea…07f9 Line {l1=0x0d, l2=»2965ENDPROC «, l3=0x0d}
0x07f9…080d Line {l1=0x12, l2=»2980PROC SKRIVOPL «, l3=0x12}
0x080d…0829 Line {l1=0x1a, l2=»2995IF OUTP=B THEN CLEAR «, l3=0x1a}
0x0829…086c Line {l1=0x41, l2=»2998PRINT "L Ø N A R T S - K A R T O T E K";TAB(60);"Dato ";DAD$ «, l3=0x41}
0x086c…087f Line {l1=0x11, l2=»3010FOR J=E TO A «, l3=0x11}
0x087f…0890 Line {l1=0x0f, l2=»3025CASE J OF «, l3=0x0f}
0x0890…089d Line {l1=0x0b, l2=»3040WHEN E «, l3=0x0b}
0x089d…08bb Line {l1=0x1c, l2=»3055EXEC CONV(LINE$,LANR,2) «, l3=0x1c}
0x08bb…08d8 Line {l1=0x1b, l2=»3056LINE$=POST6$(29)+LINE$ «, l3=0x1b}
0x08d8…08e5 Line {l1=0x0b, l2=»3070WHEN G «, l3=0x0b}
0x08e5…08fe Line {l1=0x17, l2=»3085LINE$=POST6$(G,21) «, l3=0x17}
0x08fe…090b Line {l1=0x0b, l2=»3100WHEN V «, l3=0x0b}
0x090b…091f Line {l1=0x12, l2=»3101IF KT=B THEN «, l3=0x12}
0x091f…092a Line {l1=0x09, l2=»3102TV=B «, l3=0x09}
0x092a…0936 Line {l1=0x0a, l2=»3103ELSE «, l3=0x0a}
0x0936…0947 Line {l1=0x0f, l2=»3104TV=TVN(KT) «, l3=0x0f}
0x0947…0954 Line {l1=0x0b, l2=»3105ENDIF «, l3=0x0b}
0x0954…0970 Line {l1=0x1a, l2=»3115EXEC CONV(LINE$,TV,3) «, l3=0x1a}
0x0970…097d Line {l1=0x0b, l2=»3130WHEN 4 «, l3=0x0b}
0x097d…0993 Line {l1=0x14, l2=»3131IF FSHT=B THEN «, l3=0x14}
0x0993…099e Line {l1=0x09, l2=»3132TV=B «, l3=0x09}
0x099e…09aa Line {l1=0x0a, l2=»3133ELSE «, l3=0x0a}
0x09aa…09bd Line {l1=0x11, l2=»3134TV=TVN(FSHT) «, l3=0x11}
0x09bd…09ca Line {l1=0x0b, l2=»3135ENDIF «, l3=0x0b}
0x09ca…09e6 Line {l1=0x1a, l2=»3145EXEC CONV(LINE$,TV,3) «, l3=0x1a}
0x09e6…09f3 Line {l1=0x0b, l2=»3160WHEN 5 «, l3=0x0b}
0x09f3…0a07 Line {l1=0x12, l2=»3161IF ÅT=B THEN «, l3=0x12}
0x0a07…0a12 Line {l1=0x09, l2=»3162TV=B «, l3=0x09}
0x0a12…0a1e Line {l1=0x0a, l2=»3163ELSE «, l3=0x0a}
0x0a1e…0a2f Line {l1=0x0f, l2=»3164TV=TVN(ÅT) «, l3=0x0f}
0x0a2f…0a3c Line {l1=0x0b, l2=»3165ENDIF «, l3=0x0b}
0x0a3c…0a58 Line {l1=0x1a, l2=»3175EXEC CONV(LINE$,TV,3) «, l3=0x1a}
0x0a58…0a74 Line {l1=0x1a, l2=»3190WHEN 6,7,8,W,10,11,12 «, l3=0x1a}
0x0a74…0a94 Line {l1=0x1e, l2=»3205IF POST6$(16+J)="0" THEN «, l3=0x1e}
0x0a94…0aa6 Line {l1=0x10, l2=»3220LINE$="NEJ" «, l3=0x10}
0x0aa6…0ab2 Line {l1=0x0a, l2=»3235ELSE «, l3=0x0a}
0x0ab2…0ac4 Line {l1=0x10, l2=»3250LINE$=" JA" «, l3=0x10}
0x0ac4…0ad1 Line {l1=0x0b, l2=»3265ENDIF «, l3=0x0b}
0x0ad1…0ae0 Line {l1=0x0d, l2=»3730ENDCASE «, l3=0x0d}
0x0ae0…0af6 Line {l1=0x14, l2=»3745IF OUTP=B THEN «, l3=0x14}
0x0af6…0b0c Line {l1=0x14, l2=»3760EXEC OUTLINE(J) «, l3=0x14}
0x0b0c…0b18 Line {l1=0x0a, l2=»3775ELSE «, l3=0x0a}
0x0b18…0b2f Line {l1=0x15, l2=»3790EXEC OUTPLINE(J) «, l3=0x15}
0x0b2f…0b3c Line {l1=0x0b, l2=»3805ENDIF «, l3=0x0b}
0x0b3c…0b49 Line {l1=0x0b, l2=»3820NEXT J «, l3=0x0b}
0x0b49…0b58 Line {l1=0x0d, l2=»3835ENDPROC «, l3=0x0d}
0x0b58…0b6e Line {l1=0x14, l2=»3850PROC OUTLINE(N) «, l3=0x14}
0x0b6e…0b85 Line {l1=0x15, l2=»3865CURSOR X(N),Y(N) «, l3=0x15}
0x0b85…0b98 Line {l1=0x11, l2=»3880IF N<4 THEN «, l3=0x11}
0x0b98…0bb4 Line {l1=0x1a, l2=»3881PRINT USING "### ":N; «, l3=0x1a}
0x0bb4…0bc0 Line {l1=0x0a, l2=»3882ELSE «, l3=0x0a}
0x0bc0…0be0 Line {l1=0x1e, l2=»3883IF N>5 THEN PRINT " "; «, l3=0x1e}
0x0be0…0bed Line {l1=0x0b, l2=»3884ENDIF «, l3=0x0b}
0x0bed…0c08 Line {l1=0x19, l2=»3890IF N>V AND N<6 THEN «, l3=0x19}
0x0c08…0c27 Line {l1=0x1d, l2=»3895PRINT PICT$(N);":";LINE$ «, l3=0x1d}
0x0c27…0c33 Line {l1=0x0a, l2=»3896ELSE «, l3=0x0a}
0x0c33…0c5a Line {l1=0x25, l2=»3897PRINT PICT$(N);":";TAB(25);LINE$ «, l3=0x25}
0x0c5a…0c67 Line {l1=0x0b, l2=»3898ENDIF «, l3=0x0b}
0x0c67…0c76 Line {l1=0x0d, l2=»3910ENDPROC «, l3=0x0d}
0x0c76…0c8b Line {l1=0x13, l2=»3925PROC INDART(N) «, l3=0x13}
0x0c8b…0caf Line {l1=0x22, l2=»3927GET FIL5$,N:POST6$,KT,FSHT,ÅT «, l3=0x22}
0x0caf…0cca Line {l1=0x19, l2=»3929EXEC FEJL(G,N,FIL5$) «, l3=0x19}
0x0cca…0cd9 Line {l1=0x0d, l2=»3931ENDPROC «, l3=0x0d}
0x0cd9…0ced Line {l1=0x12, l2=»3933PROC UDART(N) «, l3=0x12}
0x0ced…0d11 Line {l1=0x22, l2=»3935PUT FIL5$,N:POST6$,KT,FSHT,ÅT «, l3=0x22}
0x0d11…0d2c Line {l1=0x19, l2=»3937EXEC FEJL(E,N,FIL5$) «, l3=0x19}
0x0d2c…0d3b Line {l1=0x0d, l2=»3939ENDPROC «, l3=0x0d}
0x0d3b…0d4c Line {l1=0x0f, l2=»3941PROC CH(N) «, l3=0x0f}
0x0d4c…0d59 Line {l1=0x0b, l2=»3943OKAY=B «, l3=0x0b}
0x0d59…0d73 Line {l1=0x18, l2=»3945IF N<40 THEN OKAY=E «, l3=0x18}
0x0d73…0d96 Line {l1=0x21, l2=»3947IF N>42 AND N<49 THEN OKAY=E «, l3=0x21}
0x0d96…0db9 Line {l1=0x21, l2=»3949IF N>50 AND N<57 THEN OKAY=E «, l3=0x21}
0x0db9…0ddc Line {l1=0x21, l2=»3951IF N>57 AND N<60 THEN OKAY=E «, l3=0x21}
0x0ddc…0dff Line {l1=0x21, l2=»3953IF N>60 AND N<65 THEN OKAY=E «, l3=0x21}
0x0dff…0e13 Line {l1=0x12, l2=»3955IF N<40 THEN «, l3=0x12}
0x0e13…0e1e Line {l1=0x09, l2=»3957SF=V «, l3=0x09}
0x0e1e…0e2a Line {l1=0x0a, l2=»3959ELSE «, l3=0x0a}
0x0e2a…0e35 Line {l1=0x09, l2=»3961SF=G «, l3=0x09}
0x0e35…0e42 Line {l1=0x0b, l2=»3963ENDIF «, l3=0x0b}
0x0e42…0e51 Line {l1=0x0d, l2=»3965ENDPROC «, l3=0x0d}
0x0e51…0e6b Line {l1=0x18, l2=»4015PROC FEJL(P1,P2,P3) «, l3=0x18}
0x0e6b…0e89 Line {l1=0x1c, l2=»4030IF STATUS(P3$)<>B THEN «, l3=0x1c}
0x0e89…0e98 Line {l1=0x0d, l2=»4045OUTPUT T «, l3=0x0d}
0x0e98…0ec6 Line {l1=0x2c, l2=»4060PRINT "FIL-FEJL ";P3$;STATUS(P3$),P1;P2 «, l3=0x2c}
0x0ec6…0ed2 Line {l1=0x0a, l2=»4075STOP «, l3=0x0a}
0x0ed2…0edf Line {l1=0x0b, l2=»4090ENDIF «, l3=0x0b}
0x0edf…0eee Line {l1=0x0d, l2=»4105ENDPROC «, l3=0x0d}
0x0eee…0f03 Line {l1=0x13, l2=»4120PROC INLINE(N) «, l3=0x13}
0x0f03…0f11 Line {l1=0x0c, l2=»4135REPEAT «, l3=0x0c}
0x0f11…0f26 Line {l1=0x13, l2=»4150CURSOR 25,Y(N) «, l3=0x13}
0x0f26…0f48 Line {l1=0x20, l2=»4165PRINT BL$(E:ABS(TYPE(N))+6) «, l3=0x20}
0x0f48…0f5f Line {l1=0x15, l2=»4180CURSOR X(N),Y(N) «, l3=0x15}
0x0f5f…0f7b Line {l1=0x1a, l2=»4195PRINT USING "### ":N; «, l3=0x1a}
0x0f7b…0f95 Line {l1=0x18, l2=»4214PRINT PICT$(N);":"; «, l3=0x18}
0x0f95…0faa Line {l1=0x13, l2=»4215CURSOR 25,Y(N) «, l3=0x13}
0x0faa…0fbf Line {l1=0x13, l2=»4225INPUT "",LINE$ «, l3=0x13}
0x0fbf…0fd8 Line {l1=0x17, l2=»4240IF TYPE(N)<B THEN «, l3=0x17}
0x0fd8…1000 Line {l1=0x26, l2=»4255IF LEN(LINE$)<=ABS(TYPE(N)) THEN «, l3=0x26}
0x1000…100b Line {l1=0x09, l2=»4270OK=E «, l3=0x09}
0x100b…1034 Line {l1=0x27, l2=»4285FOR I=LEN(LINE$)+E TO ABS(TYPE(N)) «, l3=0x27}
0x1034…1047 Line {l1=0x11, l2=»4300LINE$(I)=" " «, l3=0x11}
0x1047…1054 Line {l1=0x0b, l2=»4315NEXT I «, l3=0x0b}
0x1054…1060 Line {l1=0x0a, l2=»4330ELSE «, l3=0x0a}
0x1060…106b Line {l1=0x09, l2=»4345OK=B «, l3=0x09}
0x106b…1078 Line {l1=0x0b, l2=»4360ENDIF «, l3=0x0b}
0x1078…1084 Line {l1=0x0a, l2=»4375ELSE «, l3=0x0a}
0x1084…109f Line {l1=0x19, l2=»4390EXEC CHECK(LINE$,OK) «, l3=0x19}
0x109f…10cc Line {l1=0x2b, l2=»4405IF TYPE(N)>B AND TYPE(N)<>OK THEN OK=B «, l3=0x2b}
0x10cc…10d9 Line {l1=0x0b, l2=»4420ENDIF «, l3=0x0b}
0x10d9…10eb Line {l1=0x10, l2=»4435UNTIL OK<>B «, l3=0x10}
0x10eb…10fa Line {l1=0x0d, l2=»4450ENDPROC «, l3=0x0d}
0x10fa…110f Line {l1=0x13, l2=»4465PROC SKRIVPICT «, l3=0x13}
0x110f…111c Line {l1=0x0b, l2=»4480CLEAR «, l3=0x0b}
0x111c…114a Line {l1=0x2c, l2=»4490PRINT "L Ø N A R T S - K A R T O T E K" «, l3=0x2c}
0x114a…115d Line {l1=0x11, l2=»4495FOR I=E TO A «, l3=0x11}
0x115d…1174 Line {l1=0x15, l2=»4510CURSOR X(I),Y(I) «, l3=0x15}
0x1174…1187 Line {l1=0x11, l2=»4520IF I<4 THEN «, l3=0x11}
0x1187…11a3 Line {l1=0x1a, l2=»4525PRINT USING "### ":I; «, l3=0x1a}
0x11a3…11af Line {l1=0x0a, l2=»4526ELSE «, l3=0x0a}
0x11af…11cf Line {l1=0x1e, l2=»4527IF I>5 THEN PRINT " "; «, l3=0x1e}
0x11cf…11dc Line {l1=0x0b, l2=»4528ENDIF «, l3=0x0b}
0x11dc…11f5 Line {l1=0x17, l2=»4540PRINT PICT$(I);":" «, l3=0x17}
0x11f5…1202 Line {l1=0x0b, l2=»4555NEXT I «, l3=0x0b}
0x1202…1211 Line {l1=0x0d, l2=»4570ENDPROC «, l3=0x0d}
0x1211…1228 Line {l1=0x15, l2=»4585PROC OUTPLINE(N) «, l3=0x15}
0x1228…123f Line {l1=0x15, l2=»4600PRINT TAB(X(N)); «, l3=0x15}
0x123f…1252 Line {l1=0x11, l2=»4610IF N<4 THEN «, l3=0x11}
0x1252…126e Line {l1=0x1a, l2=»4615PRINT USING "### ":N; «, l3=0x1a}
0x126e…127a Line {l1=0x0a, l2=»4616ELSE «, l3=0x0a}
0x127a…129a Line {l1=0x1e, l2=»4617IF N>5 THEN PRINT " "; «, l3=0x1e}
0x129a…12a7 Line {l1=0x0b, l2=»4618ENDIF «, l3=0x0b}
0x12a7…12c2 Line {l1=0x19, l2=»4620IF N>V AND N<6 THEN «, l3=0x19}
0x12c2…12e2 Line {l1=0x1e, l2=»4630PRINT PICT$(N);":";LINE$; «, l3=0x1e}
0x12e2…12ee Line {l1=0x0a, l2=»4632ELSE «, l3=0x0a}
0x12ee…1316 Line {l1=0x26, l2=»4634PRINT PICT$(N);":";TAB(25);LINE$; «, l3=0x26}
0x1316…1323 Line {l1=0x0b, l2=»4635ENDIF «, l3=0x0b}
0x1323…1343 Line {l1=0x1e, l2=»4636IF N<V OR N>4 THEN PRINT «, l3=0x1e}
0x1343…1352 Line {l1=0x0d, l2=»4645ENDPROC «, l3=0x0d}
0x1352…135d Line {l1=0x09, l2=»4660A=12 «, l3=0x09}
0x135d…1385 Line {l1=0x26, l2=»4675DIM X(A),Y(A),PICT$(A,20),TYPE(A) «, l3=0x26}
0x1385…13a1 Line {l1=0x1a, l2=»4705DIM BL$(79),LINE$(30) «, l3=0x1a}
0x13a1…13b5 Line {l1=0x12, l2=»4720FOR I=E TO 79 «, l3=0x12}
0x13b5…13c7 Line {l1=0x10, l2=»4735BL$=BL$+" " «, l3=0x10}
0x13c7…13d4 Line {l1=0x0b, l2=»4750NEXT I «, l3=0x0b}
0x13d4…13e1 Line {l1=0x0b, l2=»4780X(E)=E «, l3=0x0b}
0x13e1…13ee Line {l1=0x0b, l2=»4795X(G)=E «, l3=0x0b}
0x13ee…13fb Line {l1=0x0b, l2=»4810X(V)=E «, l3=0x0b}
0x13fb…1409 Line {l1=0x0c, l2=»4825X(4)=35 «, l3=0x0c}
0x1409…1417 Line {l1=0x0c, l2=»4840X(5)=45 «, l3=0x0c}
0x1417…1424 Line {l1=0x0b, l2=»4855X(6)=E «, l3=0x0b}
0x1424…1431 Line {l1=0x0b, l2=»4870X(7)=E «, l3=0x0b}
0x1431…143e Line {l1=0x0b, l2=»4885X(8)=E «, l3=0x0b}
0x143e…144b Line {l1=0x0b, l2=»4900X(W)=E «, l3=0x0b}
0x144b…1459 Line {l1=0x0c, l2=»4915X(10)=E «, l3=0x0c}
0x1459…1467 Line {l1=0x0c, l2=»4930X(11)=E «, l3=0x0c}
0x1467…1475 Line {l1=0x0c, l2=»4945X(12)=E «, l3=0x0c}
0x1475…1482 Line {l1=0x0b, l2=»5095Y(E)=V «, l3=0x0b}
0x1482…148f Line {l1=0x0b, l2=»5110Y(G)=5 «, l3=0x0b}
0x148f…149c Line {l1=0x0b, l2=»5125Y(V)=7 «, l3=0x0b}
0x149c…14a9 Line {l1=0x0b, l2=»5140Y(4)=7 «, l3=0x0b}
0x14a9…14b6 Line {l1=0x0b, l2=»5155Y(5)=7 «, l3=0x0b}
0x14b6…14c3 Line {l1=0x0b, l2=»5170Y(6)=W «, l3=0x0b}
0x14c3…14d1 Line {l1=0x0c, l2=»5185Y(7)=11 «, l3=0x0c}
0x14d1…14df Line {l1=0x0c, l2=»5200Y(8)=13 «, l3=0x0c}
0x14df…14ed Line {l1=0x0c, l2=»5215Y(W)=15 «, l3=0x0c}
0x14ed…14fc Line {l1=0x0d, l2=»5230Y(10)=17 «, l3=0x0d}
0x14fc…150b Line {l1=0x0d, l2=»5245Y(11)=19 «, l3=0x0d}
0x150b…151a Line {l1=0x0d, l2=»5260Y(12)=21 «, l3=0x0d}
0x151a…152a Line {l1=0x0e, l2=»5410TYPE(E)=B «, l3=0x0e}
0x152a…153c Line {l1=0x10, l2=»5425TYPE(G)=-20 «, l3=0x10}
0x153c…154c Line {l1=0x0e, l2=»5440TYPE(V)=B «, l3=0x0e}
0x154c…1563 Line {l1=0x15, l2=»5725PICT$(E)="LA-nr" «, l3=0x15}
0x1563…157a Line {l1=0x15, l2=»5740PICT$(G)="Tekst" «, l3=0x15}
0x157a…1598 Line {l1=0x1c, l2=»5755PICT$(V)="Tælleværk nr" «, l3=0x1c}
0x1598…15aa Line {l1=0x10, l2=»5770PICT$(4)="" «, l3=0x10}
0x15aa…15bc Line {l1=0x10, l2=»5785PICT$(5)="" «, l3=0x10}
0x15bc…15dd Line {l1=0x1f, l2=»5800PICT$(6)="Ferieberett løn" «, l3=0x1f}
0x15dd…1601 Line {l1=0x22, l2=»5815PICT$(7)="Trækpligtig A-indk" «, l3=0x22}
0x1601…1621 Line {l1=0x1e, l2=»5830PICT$(8)="Trækfri A-indk" «, l3=0x1e}
0x1621…163e Line {l1=0x1b, l2=»5845PICT$(W)="Nettoløndel" «, l3=0x1b}
0x163e…1660 Line {l1=0x20, l2=»5860PICT$(10)="Fradrag M saldo" «, l3=0x20}
0x1660…1682 Line {l1=0x20, l2=»5875PICT$(11)="Fradrag U saldo" «, l3=0x20}
0x1682…169f Line {l1=0x1b, l2=»5890PICT$(12)="Udbetaling" «, l3=0x1b}
0x169f…16b2 Line {l1=0x11, l2=»6000EXEC INDVIRK «, l3=0x11}
0x16b2…16bf Line {l1=0x0b, l2=»6130OUTP=B «, l3=0x0b}
0x16bf…16de Line {l1=0x1d, l2=»6145FIL5$="P641220:LØNARTRG" «, l3=0x1d}
0x16de…16f1 Line {l1=0x11, l2=»6160OPEN FIL5$,W «, l3=0x11}
0x16f1…170c Line {l1=0x19, l2=»6175EXEC FEJL(B,B,FIL5$) «, l3=0x19}
0x170c…171a Line {l1=0x0c, l2=»6250REPEAT «, l3=0x0c}
0x171a…1725 Line {l1=0x09, l2=»6265SV=G «, l3=0x09}
0x1725…1732 Line {l1=0x0b, l2=»6280CLEAR «, l3=0x0b}
0x1732…1745 Line {l1=0x11, l2=»6295CURSOR 10,10 «, l3=0x11}
0x1745…1773 Line {l1=0x2c, l2=»6310PRINT "L Ø N A R T S - K A R T O T E K" «, l3=0x2c}
0x1773…1780 Line {l1=0x0b, l2=»6325PRINT «, l3=0x0b}
0x1780…179f Line {l1=0x1d, l2=»6340PRINT TAB(10);"0 Færdig" «, l3=0x1d}
0x179f…17bf Line {l1=0x1e, l2=»6355PRINT TAB(10);"1 Ændring" «, l3=0x1e}
0x17bf…17e9 Line {l1=0x28, l2=»6370PRINT TAB(10);"2 Udskrift på skærm" «, l3=0x28}
0x17e9…1815 Line {l1=0x2a, l2=»6385PRINT TAB(10);"3 Udskrift på printer" «, l3=0x2a}
0x1815…1838 Line {l1=0x21, l2=»6400PRINT TAB(10);"4 Oprettelse" «, l3=0x21}
0x1838…1859 Line {l1=0x1f, l2=»6415PRINT TAB(10);"5 Sletning" «, l3=0x1f}
0x1859…1866 Line {l1=0x0b, l2=»6430PRINT «, l3=0x0b}
0x1866…1874 Line {l1=0x0c, l2=»6445REPEAT «, l3=0x0c}
0x1874…1886 Line {l1=0x10, l2=»6460CURSOR E,19 «, l3=0x10}
0x1886…18a1 Line {l1=0x19, l2=»6475EDIT " ",SV «, l3=0x19}
0x18a1…18bd Line {l1=0x1a, l2=»6490UNTIL SV=>B AND SV<=5 «, l3=0x1a}
0x18bd…18d1 Line {l1=0x12, l2=»6505IF SV>B THEN «, l3=0x12}
0x18d1…18df Line {l1=0x0c, l2=»6520REPEAT «, l3=0x0c}
0x18df…18f3 Line {l1=0x12, l2=»6535EXEC INOPL(1) «, l3=0x12}
0x18f3…1914 Line {l1=0x1f, l2=»6550UNTIL LANR=>B AND LANR<=99 «, l3=0x1f}
0x1914…1922 Line {l1=0x0c, l2=»6551LISTE=B «, l3=0x0c}
0x1922…193f Line {l1=0x1b, l2=»6552IF LANR=B THEN LISTE=E «, l3=0x1b}
0x193f…194d Line {l1=0x0c, l2=»6553REPEAT «, l3=0x0c}
0x194d…196f Line {l1=0x20, l2=»6554IF LISTE=E THEN LANR=LANR+E «, l3=0x20}
0x196f…1987 Line {l1=0x16, l2=»6565EXEC INDART(LANR) «, l3=0x16}
0x1987…1999 Line {l1=0x10, l2=»6580CASE SV OF «, l3=0x10}
0x1999…19a6 Line {l1=0x0b, l2=»6595WHEN E «, l3=0x0b}
0x19a6…19ba Line {l1=0x12, l2=»6600EXEC CH(LANR) «, l3=0x12}
0x19ba…19e2 Line {l1=0x26, l2=»6610IF POST6$(E)="1" AND OKAY=E THEN «, l3=0x26}
0x19e2…19f6 Line {l1=0x12, l2=»6625EXEC SKRIVOPL «, l3=0x12}
0x19f6…1a04 Line {l1=0x0c, l2=»6640REPEAT «, l3=0x0c}
0x1a04…1a12 Line {l1=0x0c, l2=»6655REPEAT «, l3=0x0c}
0x1a12…1a1e Line {l1=0x0a, l2=»6670SV1=B «, l3=0x0a}
0x1a1e…1a30 Line {l1=0x10, l2=»6685CURSOR E,23 «, l3=0x10}
0x1a30…1a49 Line {l1=0x17, l2=»6700EDIT "Feltnr ",SV1 «, l3=0x17}
0x1a49…1a70 Line {l1=0x25, l2=»6715UNTIL SV1>E AND SV1<=SF OR SV1=B «, l3=0x25}
0x1a70…1a85 Line {l1=0x13, l2=»6730IF SV1>B THEN «, l3=0x13}
0x1a85…1a9b Line {l1=0x14, l2=»6745EXEC INOPL(SV1) «, l3=0x14}
0x1a9b…1aa8 Line {l1=0x0b, l2=»6760ENDIF «, l3=0x0b}
0x1aa8…1aba Line {l1=0x10, l2=»6775UNTIL SV1=B «, l3=0x10}
0x1aba…1ad1 Line {l1=0x15, l2=»6790EXEC UDART(LANR) «, l3=0x15}
0x1ad1…1add Line {l1=0x0a, l2=»6805ELSE «, l3=0x0a}
0x1add…1b02 Line {l1=0x23, l2=»6820PRINT "Lønart kan ikke ændres" «, l3=0x23}
0x1b02…1b1d Line {l1=0x19, l2=»6835INPUT "RETURN",LINE$ «, l3=0x19}
0x1b1d…1b2a Line {l1=0x0b, l2=»6850ENDIF «, l3=0x0b}
0x1b2a…1b37 Line {l1=0x0b, l2=»6865WHEN G «, l3=0x0b}
0x1b37…1b54 Line {l1=0x1b, l2=»6880IF POST6$(E)="1" THEN «, l3=0x1b}
0x1b54…1b61 Line {l1=0x0b, l2=»6895OUTP=B «, l3=0x0b}
0x1b61…1b75 Line {l1=0x12, l2=»6910EXEC SKRIVOPL «, l3=0x12}
0x1b75…1b90 Line {l1=0x19, l2=»6925INPUT "RETURN",LINE$ «, l3=0x19}
0x1b90…1b9c Line {l1=0x0a, l2=»6940ELSE «, l3=0x0a}
0x1b9c…1bbd Line {l1=0x1f, l2=»6955PRINT "Lønart findes ikke" «, l3=0x1f}
0x1bbd…1bd8 Line {l1=0x19, l2=»6970INPUT "RETURN",LINE$ «, l3=0x19}
0x1bd8…1be5 Line {l1=0x0b, l2=»6985ENDIF «, l3=0x0b}
0x1be5…1bf2 Line {l1=0x0b, l2=»7000WHEN V «, l3=0x0b}
0x1bf2…1c1a Line {l1=0x26, l2=»7015IF POST6$(E)="1" OR LISTE=E THEN «, l3=0x26}
0x1c1a…1c37 Line {l1=0x1b, l2=»7016IF POST6$(E)="1" THEN «, l3=0x1b}
0x1c37…1c46 Line {l1=0x0d, l2=»7030OUTPUT P «, l3=0x0d}
0x1c46…1c53 Line {l1=0x0b, l2=»7045OUTP=E «, l3=0x0b}
0x1c53…1c67 Line {l1=0x12, l2=»7060EXEC SKRIVOPL «, l3=0x12}
0x1c67…1c7c Line {l1=0x13, l2=»7061FOR I=12 TO 72 «, l3=0x13}
0x1c7c…1c89 Line {l1=0x0b, l2=»7062PRINT «, l3=0x0b}
0x1c89…1c96 Line {l1=0x0b, l2=»7063NEXT I «, l3=0x0b}
0x1c96…1ca3 Line {l1=0x0b, l2=»7075OUTP=B «, l3=0x0b}
0x1ca3…1cb2 Line {l1=0x0d, l2=»7090OUTPUT T «, l3=0x0d}
0x1cb2…1cbf Line {l1=0x0b, l2=»7095ENDIF «, l3=0x0b}
0x1cbf…1ccb Line {l1=0x0a, l2=»7105ELSE «, l3=0x0a}
0x1ccb…1cec Line {l1=0x1f, l2=»7120PRINT "Lønart findes ikke" «, l3=0x1f}
0x1cec…1d07 Line {l1=0x19, l2=»7135INPUT "RETURN",LINE$ «, l3=0x19}
0x1d07…1d14 Line {l1=0x0b, l2=»7150ENDIF «, l3=0x0b}
0x1d14…1d21 Line {l1=0x0b, l2=»7165WHEN 4 «, l3=0x0b}
0x1d21…1d35 Line {l1=0x12, l2=»7170EXEC CH(LANR) «, l3=0x12}
0x1d35…1d5c Line {l1=0x25, l2=»7180IF POST6$(E)="1" OR OKAY=B THEN «, l3=0x25}
0x1d5c…1d82 Line {l1=0x24, l2=»7195PRINT "Lønart må ikke oprettes" «, l3=0x24}
0x1d82…1d9d Line {l1=0x19, l2=»7210INPUT "RETURN",LINE$ «, l3=0x19}
0x1d9d…1da9 Line {l1=0x0a, l2=»7225ELSE «, l3=0x0a}
0x1da9…1dbd Line {l1=0x12, l2=»7240EXEC SKRIVOPL «, l3=0x12}
0x1dbd…1ddb Line {l1=0x1c, l2=»7255EXEC CONV(LINE$,LANR,2) «, l3=0x1c}
0x1ddb…1df1 Line {l1=0x14, l2=»7260LINE$=" "+LINE$ «, l3=0x14}
0x1df1…1e07 Line {l1=0x14, l2=»7270EXEC OUTLINE(1) «, l3=0x14}
0x1e07…1e1b Line {l1=0x12, l2=»7285FOR J=G TO SF «, l3=0x12}
0x1e1b…1e2f Line {l1=0x12, l2=»7300EXEC INOPL(J) «, l3=0x12}
0x1e2f…1e3c Line {l1=0x0b, l2=»7315NEXT J «, l3=0x0b}
0x1e3c…1e4a Line {l1=0x0c, l2=»7435REPEAT «, l3=0x0c}
0x1e4a…1e58 Line {l1=0x0c, l2=»7450REPEAT «, l3=0x0c}
0x1e58…1e64 Line {l1=0x0a, l2=»7465SV1=B «, l3=0x0a}
0x1e64…1e76 Line {l1=0x10, l2=»7480CURSOR E,23 «, l3=0x10}
0x1e76…1e8f Line {l1=0x17, l2=»7495EDIT "Feltnr ",SV1 «, l3=0x17}
0x1e8f…1eb6 Line {l1=0x25, l2=»7510UNTIL SV1>E AND SV1<=SF OR SV1=B «, l3=0x25}
0x1eb6…1ecb Line {l1=0x13, l2=»7525IF SV1>B THEN «, l3=0x13}
0x1ecb…1ee1 Line {l1=0x14, l2=»7540EXEC INOPL(SV1) «, l3=0x14}
0x1ee1…1eee Line {l1=0x0b, l2=»7555ENDIF «, l3=0x0b}
0x1eee…1f00 Line {l1=0x10, l2=»7570UNTIL SV1=B «, l3=0x10}
0x1f00…1f17 Line {l1=0x15, l2=»7600EXEC UDART(LANR) «, l3=0x15}
0x1f17…1f24 Line {l1=0x0b, l2=»7615ENDIF «, l3=0x0b}
0x1f24…1f31 Line {l1=0x0b, l2=»7630WHEN 5 «, l3=0x0b}
0x1f31…1f45 Line {l1=0x12, l2=»7640EXEC CH(LANR) «, l3=0x12}
0x1f45…1f6d Line {l1=0x26, l2=»7645IF POST6$(E)="1" AND OKAY=E THEN «, l3=0x26}
0x1f6d…1f79 Line {l1=0x0a, l2=»7660SV1=G «, l3=0x0a}
0x1f79…1f8d Line {l1=0x12, l2=»7795EXEC SKRIVOPL «, l3=0x12}
0x1f8d…1fab Line {l1=0x1c, l2=»7810WHILE SV1<>B AND SV1<>E «, l3=0x1c}
0x1fab…1fb7 Line {l1=0x0a, l2=»7812SV1=B «, l3=0x0a}
0x1fb7…1fc9 Line {l1=0x10, l2=»7825CURSOR E,23 «, l3=0x10}
0x1fc9…1ff0 Line {l1=0x25, l2=»7840EDIT "Sletning korrekt 1: ",SV1 «, l3=0x25}
0x1ff0…2000 Line {l1=0x0e, l2=»7855ENDWHILE «, l3=0x0e}
0x2000…2015 Line {l1=0x13, l2=»7870IF SV1=E THEN «, l3=0x13}
0x2015…2040 Line {l1=0x29, l2=»7885POST6$(E,21)="0 " «, l3=0x29}
0x2040…2057 Line {l1=0x15, l2=»7900EXEC UDART(LANR) «, l3=0x15}
0x2057…2064 Line {l1=0x0b, l2=»7930ENDIF «, l3=0x0b}
0x2064…2070 Line {l1=0x0a, l2=»7945ELSE «, l3=0x0a}
0x2070…2096 Line {l1=0x24, l2=»7960PRINT "Lønart kan ikke slettes" «, l3=0x24}
0x2096…20b1 Line {l1=0x19, l2=»7975INPUT "RETURN",LINE$ «, l3=0x19}
0x20b1…20be Line {l1=0x0b, l2=»7990ENDIF «, l3=0x0b}
0x20be…20cd Line {l1=0x0d, l2=»8005ENDCASE «, l3=0x0d}
0x20cd…20ed Line {l1=0x1e, l2=»8006UNTIL LISTE=B OR LANR=>99 «, l3=0x1e}
0x20ed…20fa Line {l1=0x0b, l2=»8010ENDIF «, l3=0x0b}
0x20fa…210b Line {l1=0x0f, l2=»8020UNTIL SV=B «, l3=0x0f}
0x210b…211d Line {l1=0x10, l2=»8050CLOSE FIL5$ «, l3=0x10}
0x211d…213a Line {l1=0x1b, l2=»8065CHAIN "P641210:STARTB" «, l3=0x1b}
0x213a…2140 00 00 00 00 00 00 ┆ ┆
0x2140…2160 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 ┆ ┆
[…0x31…]