|
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: »LFERIE.K«
└─⟦385f097a1⟧ Bits:30008988 SPC/1 COMAL programmer til bogføring
└─⟦this⟧ »LFERIE.K«
0100DIM SIDE(G),LIN$(8),DAD$(6) 0110DIM STARTPER$(8),SLUTPER$(8),LP$(E),ORK$(E) 0120DIM RES$(15),OP1$(12),OP2$(12),TAH$(12),SEKS$(12) 0130DIM TOTAL$(G,12) 0140DIM RESUL$(12),RESUL1$(12),TV$(45,11) 0150DIM FIL$(16),FIL2$(16),POST1$(71),POST2$(27),POST3$(55),POST4$(34) 0160DIM MF1$(16) 0162DIM POST5$(55) 0170TAH$=" 0+" 0180SEKS$=" 6,00+" 0200SIDE(E),SIDE(G)=B 0370PROC CALC(AR3,B1,B2,ES) 0380RES$=ES$;OP1$=B1$;OP2$=B2$;SI=B;FLAG=B;ART=AR3-6*(AR3>5) 0390CALL "P641210:REGN" 0400IF AR3<6 THEN 0410IF FLAG THEN STOP 0420ENDIF 0430ES$=RES$ 0440ENDPROC 0550PROC INDTÆL 0560J=W*(LMNR-E) 0570FOR K=E TO W 0580GET FIL2$,J+K:POST5$ 0590FOR I=E TO 5 0600TV$((K-E)*5+I)=POST5$((I-E)*11+E:11) 0610NEXT I 0620NEXT K 0630EXEC FEJL(LMNR,K,FIL2$) 0640ENDPROC 0800PROC INLØNMOD(N) 0810GET FIL$,G*N-E:POST1$ 0820GET FIL$,G*N:POST2$,C1,C2,LT,LF,LR,LA,RPI,K1,K2,FG,FD 0830EXEC FEJL(E,N,FIL$) 0840ENDPROC 1220PROC CONVDATE(NR1,OK1) 1230OK11=OK1;NR1$="" 1240FOR I=8 TO E STEP -E 1250IF I MOD V=B THEN 1260NR1$(I)="-" 1270ELSE 1280NR1$(I)=CHR(OK11 MOD 10+48) 1290OK11=OK11 DIV 10 1300ENDIF 1310NEXT I 1320ENDPROC 1890PROC INDVIRK 1900OPEN FIL$,R 1910EXEC FEJL(B,B,FIL$) 1920GET FIL$,E:POST3$ 1930GET FIL$,G:POST4$,SLJNR,MLMNR,ATPLM 1935GET FIL$,V:DAD$ 1940ENDPROC 1950PROC FEJL(P1,P2,P3) 1960IF STATUS(P3$)<>B THEN 1970OUTPUT T 1980PRINT "FIL-FEJL ";P3$;STATUS(P3$),P1;P2 1990STOP 2000ENDIF 2010ENDPROC 2710PROC CONVERT(NR1,OK1) 2720NR1$=" 0+" 2730IF OK1<>B THEN 2740NR1$(W,10)=",0" 2750OK2=ABS(OK1) 2760OK11=INT((OK2-INT(OK2))*100+0.50001) 2770IF OK1<B THEN NR1$(12)="-" 2780FOR I=11 TO E STEP -E 2790IF I<>W THEN 2800NR1$(I)=CHR(OK11 MOD 10+48) 2810OK11=OK11 DIV 10 2820IF OK11=B AND I<10 THEN I=B 2830ELSE 2840OK11=INT(OK2) 2850ENDIF 2860NEXT I 2870ENDIF 2880ENDPROC 3240PROC SKRIVHOVED 3250PRINT 3260SIDE(TYPE)=SIDE(TYPE)+E 3270PRINT USING " SIDE ###":SIDE(TYPE); 3275PRINT " UDSKRIFTSDATO ";DAD$; 3280PRINT TAB(49);"LØNPERIODEN ";STARTPER$;" / ";SLUTPER$; 3290CASE TYPE OF 3300WHEN E 3310LINIE=6 3320PRINT TAB(35);"FERIELISTE" 3330PRINT TAB(35);"**********" 3340 REM 3350 " LØN NAVN";TAB(36);"ANSAT FERIE- LØR- FERIEBERETT FERIE-" 3360PRINT " NR";TAB(36);"FRA DAGE DAGE LØN TILLÆG" 3370WHEN G 3380LINIE=5 3390PRINT TAB(24);"LØNMODTAGERKARTOTEK - TÆLLEVÆRKER" 3400PRINT TAB(24);"*********************************" 3410PRINT 3420ENDCASE 3430ENDPROC 3440PROC NÆSTE 3450REPEAT 3460LMNR=LMNR+E 3470LA=E 3480IF LMNR<=MLMNR THEN 3490EXEC INLØNMOD(LMNR) 3495IF (POST2$(22)<>"5" OR FD<>B) AND TYPE=E THEN LA=B 3500IF LP$<>POST2$(21) THEN LA=B 3510IF ORK$="A" AND POST2$(24,25)>"89" THEN LA=B 3520IF ORK$="F" AND POST2$(24,25)<"90" THEN LA=B 3530ENDIF 3540UNTIL LA>B 3550ENDPROC 8182TOTAL$(E)=TAH$;TOTAL$(G)=TAH$ 8190FIL$="P641220:VIRKKART" 8200EXEC INDVIRK 8210CLOSE FIL$ 8220FIL$="P641220:LØNMODRG" 8230OPEN FIL$,R 8260FIL2$="P641220:TÆLLEREG" 8270OPEN FIL2$,R 8291MF1$="P641210:LØNJOUR" 8292OPEN MF1$,R 8350MAXLIN=72 8360LMNR=B 8370SIDE(E),SIDE(G)=B 8372GET MF1$:STARTPER$,SLUTPER$,LP$,ORK$,MFD 8400TYPE=E 8410STD=100000*(ORD(STARTPER$(E))-48)+10000*(ORD(STARTPER$(G))-48) 8420STD=STD+1000*(ORD(STARTPER$(4))-48)+100*(ORD(STARTPER$(5))-48) 8430STD=STD+10*(ORD(STARTPER$(7))-48)+ORD(STARTPER$(8))-48 8440SLD=100000*(ORD(SLUTPER$(E))-48)+10000*(ORD(SLUTPER$(G))-48) 8450SLD=SLD+1000*(ORD(SLUTPER$(4))-48)+100*(ORD(SLUTPER$(5))-48) 8460SLD=SLD+10*(ORD(SLUTPER$(7))-48)+ORD(SLUTPER$(8))-48 8465CURSOR E,12 8470OUTPUT P 8480EXEC SKRIVHOVED 8490REPEAT 8500EXEC NÆSTE 8510IF LMNR<=MLMNR THEN 8520EXEC INDTÆL 8530EXEC CALC(B,TV$(16),TOTAL$(E),TOTAL$(E)) 8540EXEC CALC(B,TV$(20),TOTAL$(G),TOTAL$(G)) 8550IF STD>LA THEN 8560STDA=STD 8570ELSE 8580STDA=LA 8590ENDIF 8600ANS=SLD MOD 100-STDA MOD 100 8610ANS=ANS+30*(SLD DIV 100 MOD 100-STDA DIV 100 MOD 100) 8620ANS=ANS+365*(SLD DIV 10000-STDA DIV 10000) 8630IF LP$="1" THEN 8640FDAGE=B 8650ELSE 8660FDAGE=INT(G*MFD*ANS/365+0.5)/G 8670ENDIF 8680EXEC CONVERT(RESUL$,FDAGE) 8690EXEC CALC(B,RESUL$,TV$(44),RESUL1$) 8700EXEC CALC(B,RESUL1$,TV$(29),RESUL1$) 8710EXEC CALC(V,RESUL1$,SEKS$,RESUL$) 8720IF RESUL$(8)=" " THEN RESUL$(8)="0" 8740IF LINIE>MAXLIN-5 THEN 8750WHILE LINIE<MAXLIN 8760PRINT 8770LINIE=LINIE+E 8780ENDWHILE 8790EXEC SKRIVHOVED 8810ENDIF 8815LINIE=LINIE+E 8820EXEC CONVDATE(LIN$,LA) 8830PRINT USING "#### ":LMNR; 8840PRINT POST1$(E,25);" ";LIN$;RESUL1$(4,10);" ";RESUL$(8);" "; 8850IF TV$(16,11)="+" THEN TV$(16,11)=" " 8860IF TV$(20,11)="+" THEN TV$(20,11)=" " 8870PRINT TV$(16);" ";TV$(20) 8880ENDIF 8890UNTIL LMNR=>MLMNR 8900IF TOTAL$(E,12)="+" THEN TOTAL$(E,12)=" " 8910IF TOTAL$(G,12)="+" THEN TOTAL$(G,12)=" " 8920PRINT " ***";TAB(56);TOTAL$(E);TOTAL$(G); 8930LINIE=LINIE+E 8940WHILE LINIE<MAXLIN 8950PRINT 8960LINIE=LINIE+E 8970ENDWHILE 8980TYPE=G 8984OUTPUT T 8985CURSOR E,13 8986OUTPUT P 8990LMNR=B 9000REPEAT 9010EXEC NÆSTE 9020IF LMNR<=MLMNR THEN 9030EXEC INDTÆL 9040EXEC CALC(B,TV$(G),TV$(4),RESUL$) 9050FOR I=E TO 45 9060IF TV$(I,11)="+" THEN TV$(I,11)=" " 9070NEXT I 9080IF RESUL$(12)="+" THEN RESUL$(12)=" " 9085EXEC SKRIVHOVED 9090PRINT " Lønmodtager"; 9100PRINT USING "#### ":LMNR; 9110PRINT POST1$(E,25) 9120PRINT 9130PRINT TAB(W);"0XX";TAB(23);"1XX";TAB(36);"2XX" 9140PRINT " TV Arbejder- Ferie- og Årsop- Tekst"; 9150PRINT TAB(66);"Lønart" 9160PRINT " NR. lønstat SH-opg gørelse" 9170PRINT " 01 ";TV$(E);TAB(29);"-";TAB(42);"-";TAB(45); 9180PRINT "TILLÆG TIL FORDELING";TAB(66);"01-39" 9190PRINT " 02 ";TV$(G);TAB(29);"-";TAB(42);"-";TAB(45); 9200PRINT "AKKORDTIMER";TAB(66);"01-39" 9210PRINT " 03 ";TV$(V);TAB(29);"-";TAB(42);"-";TAB(45); 9220PRINT "AKKORDBELØB";TAB(66);"01-39" 9230PRINT " 04 ";TV$(4);TAB(29);"-";TAB(42);"-";TAB(45); 9240PRINT "TIDLØNSTIMER";TAB(66);"01-39" 9250PRINT " 05 ";TV$(5);TAB(29);"-";TAB(42);"-";TAB(45); 9260PRINT "TIDLØNSBELØB";TAB(66);"01-39" 9270PRINT " 06 ";RESUL$(G,11);TAB(29);"-";TAB(32);TV$(30);TAB(45); 9280PRINT "TIMER IALT";TAB(66);"(TV 02 + 04)" 9290PRINT " 07 ";TV$(6);TAB(29);"-";TAB(42);"-";TAB(45); 9300PRINT "HERAF OVERTIMER";TAB(66);"01-39" 9310PRINT " 08 ";TV$(7);TAB(29);"-";TAB(42);"-";TAB(45); 9320PRINT "OVERTIDSTILLÆG";TAB(66);"01-39" 9330PRINT " 09 ";TV$(8);TAB(29);"-";TAB(42);"-";TAB(45); 9340PRINT "HOLDDRIFTSTILLÆG";TAB(66);"01-39" 9350PRINT " 10 ";TV$(W);TAB(29);"-";TAB(42);"-";TAB(45); 9360PRINT "GENETILLÆG";TAB(66);"01-39" 9370PRINT " 11 ";TV$(10);TAB(29);"-";TAB(42);"-";TAB(45); 9380PRINT "DIV U F ARBEJDST";TAB(66);"01-39" 9390PRINT " 12 ";TV$(11);TAB(19);TV$(16);TAB(32);TV$(31);TAB(45); 9400PRINT "FERIEBERETT LØN";TAB(65);"*76" 9410PRINT " 13 ";TV$(12);TAB(19);TV$(17);TAB(42);"-";TAB(45); 9420PRINT "SYGEFERIEPENGE";TAB(66);"72" 9430PRINT " 14 ";TV$(13);TAB(29);"-";TAB(32);TV$(32);TAB(45); 9440PRINT "SYGEDAGPENGE";TAB(66);"41" 9450PRINT " 15 ";TV$(14);TAB(19);TV$(20);TAB(42);"-";TAB(45); 9460PRINT "BEREGNEDE FERIEP";TAB(65);"*78" 9470PRINT " 16 ";TV$(15);TAB(19);TV$(23);TAB(42);"-";TAB(45); 9480PRINT "SH-OPSPARING";TAB(65);"*79" 9490PRINT " 17 ";TAB(16);"-";TAB(19);TV$(26);TAB(42);"-";TAB(45); 9500PRINT "SH-FORSKUD";TAB(66);"42" 9510PRINT " 18";TAB(16);"-";TAB(29);"-";TAB(32);TV$(33);TAB(45); 9520PRINT "FERIETILLÆG";TAB(66);"40" 9530PRINT " 19";TAB(16);"-";TAB(29);"-";TAB(32);TV$(34);TAB(45); 9540PRINT "TRÆKPLIGTIG A-INDK";TAB(66);"70 + *82" 9550PRINT " 20";TAB(16);"-";TAB(29);"-";TAB(32);TV$(37);TAB(45); 9560PRINT "TRÆKFRI A-INDK";TAB(65);"*84" 9570PRINT " 21";TAB(16);"-";TAB(29);"-";TAB(32);TV$(40);TAB(45); 9580PRINT "A-SKAT";TAB(65);"*71+*83+*92+*97"; 9590PRINT " 22";TAB(16);"-";TAB(29);"-";TAB(32);TV$(43);TAB(45); 9600PRINT "ATP";TAB(65);"*80" 9610PRINT " 23";TAB(16);"-";TAB(19);TV$(29);TAB(32);TV$(44);TAB(45); 9620PRINT "FERIEDAGE";TAB(66);"73 + SYSTEM" 9630PRINT " 24";TAB(16);"-";TAB(29);"-";TAB(32);TV$(45);TAB(45); 9640PRINT "PENSIONSBIDRAG";TAB(66);"49" 9650PRINT 9660PRINT 9670PRINT " ANSAT FRA";LA;" TIL";FD;" " 9680FOR I=38 TO 72 9690PRINT 9700NEXT I 9710ENDIF 9720UNTIL LMNR=>MLMNR 9730CLOSE 9735OUTPUT T 9740CHAIN "P641210:ÅRSOPL"
0x0000…0022 Line {l1=0x20, l2=»0100DIM SIDE(G),LIN$(8),DAD$(6) «, l3=0x20}
0x0022…0054 Line {l1=0x30, l2=»0110DIM STARTPER$(8),SLUTPER$(8),LP$(E),ORK$(E) «, l3=0x30}
0x0054…008c Line {l1=0x36, l2=»0120DIM RES$(15),OP1$(12),OP2$(12),TAH$(12),SEKS$(12) «, l3=0x36}
0x008c…00a3 Line {l1=0x15, l2=»0130DIM TOTAL$(G,12) «, l3=0x15}
0x00a3…00cf Line {l1=0x2a, l2=»0140DIM RESUL$(12),RESUL1$(12),TV$(45,11) «, l3=0x2a}
0x00cf…0118 Line {l1=0x47, l2=»0150DIM FIL$(16),FIL2$(16),POST1$(71),POST2$(27),POST3$(55),POST4$(34) «, l3=0x47}
0x0118…012b Line {l1=0x11, l2=»0160DIM MF1$(16) «, l3=0x11}
0x012b…0140 Line {l1=0x13, l2=»0162DIM POST5$(55) «, l3=0x13}
0x0140…015a Line {l1=0x18, l2=»0170TAH$=" 0+" «, l3=0x18}
0x015a…0175 Line {l1=0x19, l2=»0180SEKS$=" 6,00+" «, l3=0x19}
0x0175…018d Line {l1=0x16, l2=»0200SIDE(E),SIDE(G)=B «, l3=0x16}
0x018d…01ab Line {l1=0x1c, l2=»0370PROC CALC(AR3,B1,B2,ES) «, l3=0x1c}
0x01ab…01ea Line {l1=0x3d, l2=»0380RES$=ES$;OP1$=B1$;OP2$=B2$;SI=B;FLAG=B;ART=AR3-6*(AR3>5) «, l3=0x3d}
0x01ea…0204 Line {l1=0x18, l2=»0390CALL "P641210:REGN" «, l3=0x18}
0x0204…0219 Line {l1=0x13, l2=»0400IF AR3<6 THEN «, l3=0x13}
0x0219…0232 Line {l1=0x17, l2=»0410IF FLAG THEN STOP «, l3=0x17}
0x0232…023f Line {l1=0x0b, l2=»0420ENDIF «, l3=0x0b}
0x023f…024e Line {l1=0x0d, l2=»0430ES$=RES$ «, l3=0x0d}
0x024e…025d Line {l1=0x0d, l2=»0440ENDPROC «, l3=0x0d}
0x025d…026f Line {l1=0x10, l2=»0550PROC INDTÆL «, l3=0x10}
0x026f…0282 Line {l1=0x11, l2=»0560J=W*(LMNR-E) «, l3=0x11}
0x0282…0295 Line {l1=0x11, l2=»0570FOR K=E TO W «, l3=0x11}
0x0295…02b0 Line {l1=0x19, l2=»0580GET FIL2$,J+K:POST5$ «, l3=0x19}
0x02b0…02c3 Line {l1=0x11, l2=»0590FOR I=E TO 5 «, l3=0x11}
0x02c3…02ee Line {l1=0x29, l2=»0600TV$((K-E)*5+I)=POST5$((I-E)*11+E:11) «, l3=0x29}
0x02ee…02fb Line {l1=0x0b, l2=»0610NEXT I «, l3=0x0b}
0x02fb…0308 Line {l1=0x0b, l2=»0620NEXT K «, l3=0x0b}
0x0308…0326 Line {l1=0x1c, l2=»0630EXEC FEJL(LMNR,K,FIL2$) «, l3=0x1c}
0x0326…0335 Line {l1=0x0d, l2=»0640ENDPROC «, l3=0x0d}
0x0335…034c Line {l1=0x15, l2=»0800PROC INLØNMOD(N) «, l3=0x15}
0x034c…0368 Line {l1=0x1a, l2=»0810GET FIL$,G*N-E:POST1$ «, l3=0x1a}
0x0368…03a4 Line {l1=0x3a, l2=»0820GET FIL$,G*N:POST2$,C1,C2,LT,LF,LR,LA,RPI,K1,K2,FG,FD «, l3=0x3a}
0x03a4…03be Line {l1=0x18, l2=»0830EXEC FEJL(E,N,FIL$) «, l3=0x18}
0x03be…03cd Line {l1=0x0d, l2=»0840ENDPROC «, l3=0x0d}
0x03cd…03ea Line {l1=0x1b, l2=»1220PROC CONVDATE(NR1,OK1) «, l3=0x1b}
0x03ea…0401 Line {l1=0x15, l2=»1230OK11=OK1;NR1$="" «, l3=0x15}
0x0401…041c Line {l1=0x19, l2=»1240FOR I=8 TO E STEP -E «, l3=0x19}
0x041c…0435 Line {l1=0x17, l2=»1250IF I MOD V=B THEN «, l3=0x17}
0x0435…0447 Line {l1=0x10, l2=»1260NR1$(I)="-" «, l3=0x10}
0x0447…0453 Line {l1=0x0a, l2=»1270ELSE «, l3=0x0a}
0x0453…0475 Line {l1=0x20, l2=»1280NR1$(I)=CHR(OK11 MOD 10+48) «, l3=0x20}
0x0475…048c Line {l1=0x15, l2=»1290OK11=OK11 DIV 10 «, l3=0x15}
0x048c…0499 Line {l1=0x0b, l2=»1300ENDIF «, l3=0x0b}
0x0499…04a6 Line {l1=0x0b, l2=»1310NEXT I «, l3=0x0b}
0x04a6…04b5 Line {l1=0x0d, l2=»1320ENDPROC «, l3=0x0d}
0x04b5…04c8 Line {l1=0x11, l2=»1890PROC INDVIRK «, l3=0x11}
0x04c8…04da Line {l1=0x10, l2=»1900OPEN FIL$,R «, l3=0x10}
0x04da…04f4 Line {l1=0x18, l2=»1910EXEC FEJL(B,B,FIL$) «, l3=0x18}
0x04f4…050c Line {l1=0x16, l2=»1920GET FIL$,E:POST3$ «, l3=0x16}
0x050c…0536 Line {l1=0x28, l2=»1930GET FIL$,G:POST4$,SLJNR,MLMNR,ATPLM «, l3=0x28}
0x0536…054c Line {l1=0x14, l2=»1935GET FIL$,V:DAD$ «, l3=0x14}
0x054c…055b Line {l1=0x0d, l2=»1940ENDPROC «, l3=0x0d}
0x055b…0575 Line {l1=0x18, l2=»1950PROC FEJL(P1,P2,P3) «, l3=0x18}
0x0575…0593 Line {l1=0x1c, l2=»1960IF STATUS(P3$)<>B THEN «, l3=0x1c}
0x0593…05a2 Line {l1=0x0d, l2=»1970OUTPUT T «, l3=0x0d}
0x05a2…05d0 Line {l1=0x2c, l2=»1980PRINT "FIL-FEJL ";P3$;STATUS(P3$),P1;P2 «, l3=0x2c}
0x05d0…05dc Line {l1=0x0a, l2=»1990STOP «, l3=0x0a}
0x05dc…05e9 Line {l1=0x0b, l2=»2000ENDIF «, l3=0x0b}
0x05e9…05f8 Line {l1=0x0d, l2=»2010ENDPROC «, l3=0x0d}
0x05f8…0614 Line {l1=0x1a, l2=»2710PROC CONVERT(NR1,OK1) «, l3=0x1a}
0x0614…062e Line {l1=0x18, l2=»2720NR1$=" 0+" «, l3=0x18}
0x062e…0644 Line {l1=0x14, l2=»2730IF OK1<>B THEN «, l3=0x14}
0x0644…065a Line {l1=0x14, l2=»2740NR1$(W,10)=",0" «, l3=0x14}
0x065a…066d Line {l1=0x11, l2=»2750OK2=ABS(OK1) «, l3=0x11}
0x066d…0698 Line {l1=0x29, l2=»2760OK11=INT((OK2-INT(OK2))*100+0.50001) «, l3=0x29}
0x0698…06b9 Line {l1=0x1f, l2=»2770IF OK1<B THEN NR1$(12)="-" «, l3=0x1f}
0x06b9…06d5 Line {l1=0x1a, l2=»2780FOR I=11 TO E STEP -E «, l3=0x1a}
0x06d5…06e9 Line {l1=0x12, l2=»2790IF I<>W THEN «, l3=0x12}
0x06e9…070b Line {l1=0x20, l2=»2800NR1$(I)=CHR(OK11 MOD 10+48) «, l3=0x20}
0x070b…0722 Line {l1=0x15, l2=»2810OK11=OK11 DIV 10 «, l3=0x15}
0x0722…0744 Line {l1=0x20, l2=»2820IF OK11=B AND I<10 THEN I=B «, l3=0x20}
0x0744…0750 Line {l1=0x0a, l2=»2830ELSE «, l3=0x0a}
0x0750…0764 Line {l1=0x12, l2=»2840OK11=INT(OK2) «, l3=0x12}
0x0764…0771 Line {l1=0x0b, l2=»2850ENDIF «, l3=0x0b}
0x0771…077e Line {l1=0x0b, l2=»2860NEXT I «, l3=0x0b}
0x077e…078b Line {l1=0x0b, l2=»2870ENDIF «, l3=0x0b}
0x078b…079a Line {l1=0x0d, l2=»2880ENDPROC «, l3=0x0d}
0x079a…07b0 Line {l1=0x14, l2=»3240PROC SKRIVHOVED «, l3=0x14}
0x07b0…07bd Line {l1=0x0b, l2=»3250PRINT «, l3=0x0b}
0x07bd…07db Line {l1=0x1c, l2=»3260SIDE(TYPE)=SIDE(TYPE)+E «, l3=0x1c}
0x07db…0805 Line {l1=0x28, l2=»3270PRINT USING " SIDE ###":SIDE(TYPE); «, l3=0x28}
0x0805…082d Line {l1=0x26, l2=»3275PRINT " UDSKRIFTSDATO ";DAD$; «, l3=0x26}
0x082d…086a Line {l1=0x3b, l2=»3280PRINT TAB(49);"LØNPERIODEN ";STARTPER$;" / ";SLUTPER$; «, l3=0x3b}
0x086a…087e Line {l1=0x12, l2=»3290CASE TYPE OF «, l3=0x12}
0x087e…088b Line {l1=0x0b, l2=»3300WHEN E «, l3=0x0b}
0x088b…0899 Line {l1=0x0c, l2=»3310LINIE=6 «, l3=0x0c}
0x0899…08ba Line {l1=0x1f, l2=»3320PRINT TAB(35);"FERIELISTE" «, l3=0x1f}
0x08ba…08db Line {l1=0x1f, l2=»3330PRINT TAB(35);"**********" «, l3=0x1f}
0x08db…08e7 Line {l1=0x0a, l2=»3340 REM «, l3=0x0a}
0x08e7…0931 Line {l1=0x48, l2=»3350 " LØN NAVN";TAB(36);"ANSAT FERIE- LØR- FERIEBERETT FERIE-" «, l3=0x48}
0x0931…0979 Line {l1=0x46, l2=»3360PRINT " NR";TAB(36);"FRA DAGE DAGE LØN TILLÆG" «, l3=0x46}
0x0979…0986 Line {l1=0x0b, l2=»3370WHEN G «, l3=0x0b}
0x0986…0994 Line {l1=0x0c, l2=»3380LINIE=5 «, l3=0x0c}
0x0994…09cc Line {l1=0x36, l2=»3390PRINT TAB(24);"LØNMODTAGERKARTOTEK - TÆLLEVÆRKER" «, l3=0x36}
0x09cc…0a04 Line {l1=0x36, l2=»3400PRINT TAB(24);"*********************************" «, l3=0x36}
0x0a04…0a11 Line {l1=0x0b, l2=»3410PRINT «, l3=0x0b}
0x0a11…0a20 Line {l1=0x0d, l2=»3420ENDCASE «, l3=0x0d}
0x0a20…0a2f Line {l1=0x0d, l2=»3430ENDPROC «, l3=0x0d}
0x0a2f…0a40 Line {l1=0x0f, l2=»3440PROC NÆSTE «, l3=0x0f}
0x0a40…0a4e Line {l1=0x0c, l2=»3450REPEAT «, l3=0x0c}
0x0a4e…0a60 Line {l1=0x10, l2=»3460LMNR=LMNR+E «, l3=0x10}
0x0a60…0a6b Line {l1=0x09, l2=»3470LA=E «, l3=0x09}
0x0a6b…0a86 Line {l1=0x19, l2=»3480IF LMNR<=MLMNR THEN «, l3=0x19}
0x0a86…0aa0 Line {l1=0x18, l2=»3490EXEC INLØNMOD(LMNR) «, l3=0x18}
0x0aa0…0ad9 Line {l1=0x37, l2=»3495IF (POST2$(22)<>"5" OR FD<>B) AND TYPE=E THEN LA=B «, l3=0x37}
0x0ad9…0afc Line {l1=0x21, l2=»3500IF LP$<>POST2$(21) THEN LA=B «, l3=0x21}
0x0afc…0b2f Line {l1=0x31, l2=»3510IF ORK$="A" AND POST2$(24,25)>"89" THEN LA=B «, l3=0x31}
0x0b2f…0b62 Line {l1=0x31, l2=»3520IF ORK$="F" AND POST2$(24,25)<"90" THEN LA=B «, l3=0x31}
0x0b62…0b6f Line {l1=0x0b, l2=»3530ENDIF «, l3=0x0b}
0x0b6f…0b80 Line {l1=0x0f, l2=»3540UNTIL LA>B «, l3=0x0f}
0x0b80…0b8f Line {l1=0x0d, l2=»3550ENDPROC «, l3=0x0d}
0x0b8f…0bb3 Line {l1=0x22, l2=»8182TOTAL$(E)=TAH$;TOTAL$(G)=TAH$ «, l3=0x22}
0x0bb3…0bd1 Line {l1=0x1c, l2=»8190FIL$="P641220:VIRKKART" «, l3=0x1c}
0x0bd1…0be4 Line {l1=0x11, l2=»8200EXEC INDVIRK «, l3=0x11}
0x0be4…0bf5 Line {l1=0x0f, l2=»8210CLOSE FIL$ «, l3=0x0f}
0x0bf5…0c13 Line {l1=0x1c, l2=»8220FIL$="P641220:LØNMODRG" «, l3=0x1c}
0x0c13…0c25 Line {l1=0x10, l2=»8230OPEN FIL$,R «, l3=0x10}
0x0c25…0c44 Line {l1=0x1d, l2=»8260FIL2$="P641220:TÆLLEREG" «, l3=0x1d}
0x0c44…0c57 Line {l1=0x11, l2=»8270OPEN FIL2$,R «, l3=0x11}
0x0c57…0c74 Line {l1=0x1b, l2=»8291MF1$="P641210:LØNJOUR" «, l3=0x1b}
0x0c74…0c86 Line {l1=0x10, l2=»8292OPEN MF1$,R «, l3=0x10}
0x0c86…0c96 Line {l1=0x0e, l2=»8350MAXLIN=72 «, l3=0x0e}
0x0c96…0ca3 Line {l1=0x0b, l2=»8360LMNR=B «, l3=0x0b}
0x0ca3…0cbb Line {l1=0x16, l2=»8370SIDE(E),SIDE(G)=B «, l3=0x16}
0x0cbb…0cea Line {l1=0x2d, l2=»8372GET MF1$:STARTPER$,SLUTPER$,LP$,ORK$,MFD «, l3=0x2d}
0x0cea…0cf7 Line {l1=0x0b, l2=»8400TYPE=E «, l3=0x0b}
0x0cf7…0d3c Line {l1=0x43, l2=»8410STD=100000*(ORD(STARTPER$(E))-48)+10000*(ORD(STARTPER$(G))-48) «, l3=0x43}
0x0d3c…0d81 Line {l1=0x43, l2=»8420STD=STD+1000*(ORD(STARTPER$(4))-48)+100*(ORD(STARTPER$(5))-48) «, l3=0x43}
0x0d81…0dbe Line {l1=0x3b, l2=»8430STD=STD+10*(ORD(STARTPER$(7))-48)+ORD(STARTPER$(8))-48 «, l3=0x3b}
0x0dbe…0e01 Line {l1=0x41, l2=»8440SLD=100000*(ORD(SLUTPER$(E))-48)+10000*(ORD(SLUTPER$(G))-48) «, l3=0x41}
0x0e01…0e44 Line {l1=0x41, l2=»8450SLD=SLD+1000*(ORD(SLUTPER$(4))-48)+100*(ORD(SLUTPER$(5))-48) «, l3=0x41}
0x0e44…0e7f Line {l1=0x39, l2=»8460SLD=SLD+10*(ORD(SLUTPER$(7))-48)+ORD(SLUTPER$(8))-48 «, l3=0x39}
0x0e7f…0e91 Line {l1=0x10, l2=»8465CURSOR E,12 «, l3=0x10}
0x0e91…0ea0 Line {l1=0x0d, l2=»8470OUTPUT P «, l3=0x0d}
0x0ea0…0eb6 Line {l1=0x14, l2=»8480EXEC SKRIVHOVED «, l3=0x14}
0x0eb6…0ec4 Line {l1=0x0c, l2=»8490REPEAT «, l3=0x0c}
0x0ec4…0ed5 Line {l1=0x0f, l2=»8500EXEC NÆSTE «, l3=0x0f}
0x0ed5…0ef0 Line {l1=0x19, l2=»8510IF LMNR<=MLMNR THEN «, l3=0x19}
0x0ef0…0f02 Line {l1=0x10, l2=»8520EXEC INDTÆL «, l3=0x10}
0x0f02…0f31 Line {l1=0x2d, l2=»8530EXEC CALC(B,TV$(16),TOTAL$(E),TOTAL$(E)) «, l3=0x2d}
0x0f31…0f60 Line {l1=0x2d, l2=»8540EXEC CALC(B,TV$(20),TOTAL$(G),TOTAL$(G)) «, l3=0x2d}
0x0f60…0f76 Line {l1=0x14, l2=»8550IF STD>LA THEN «, l3=0x14}
0x0f76…0f85 Line {l1=0x0d, l2=»8560STDA=STD «, l3=0x0d}
0x0f85…0f91 Line {l1=0x0a, l2=»8570ELSE «, l3=0x0a}
0x0f91…0f9f Line {l1=0x0c, l2=»8580STDA=LA «, l3=0x0c}
0x0f9f…0fac Line {l1=0x0b, l2=»8590ENDIF «, l3=0x0b}
0x0fac…0fcf Line {l1=0x21, l2=»8600ANS=SLD MOD 100-STDA MOD 100 «, l3=0x21}
0x0fcf…100b Line {l1=0x3a, l2=»8610ANS=ANS+30*(SLD DIV 100 MOD 100-STDA DIV 100 MOD 100) «, l3=0x3a}
0x100b…103c Line {l1=0x2f, l2=»8620ANS=ANS+365*(SLD DIV 10000-STDA DIV 10000) «, l3=0x2f}
0x103c…1053 Line {l1=0x15, l2=»8630IF LP$="1" THEN «, l3=0x15}
0x1053…1061 Line {l1=0x0c, l2=»8640FDAGE=B «, l3=0x0c}
0x1061…106d Line {l1=0x0a, l2=»8650ELSE «, l3=0x0a}
0x106d…1092 Line {l1=0x23, l2=»8660FDAGE=INT(G*MFD*ANS/365+0.5)/G «, l3=0x23}
0x1092…109f Line {l1=0x0b, l2=»8670ENDIF «, l3=0x0b}
0x109f…10c0 Line {l1=0x1f, l2=»8680EXEC CONVERT(RESUL$,FDAGE) «, l3=0x1f}
0x10c0…10ea Line {l1=0x28, l2=»8690EXEC CALC(B,RESUL$,TV$(44),RESUL1$) «, l3=0x28}
0x10ea…1115 Line {l1=0x29, l2=»8700EXEC CALC(B,RESUL1$,TV$(29),RESUL1$) «, l3=0x29}
0x1115…113d Line {l1=0x26, l2=»8710EXEC CALC(V,RESUL1$,SEKS$,RESUL$) «, l3=0x26}
0x113d…1167 Line {l1=0x28, l2=»8720IF RESUL$(8)=" " THEN RESUL$(8)="0" «, l3=0x28}
0x1167…1185 Line {l1=0x1c, l2=»8740IF LINIE>MAXLIN-5 THEN «, l3=0x1c}
0x1185…119e Line {l1=0x17, l2=»8750WHILE LINIE<MAXLIN «, l3=0x17}
0x119e…11ab Line {l1=0x0b, l2=»8760PRINT «, l3=0x0b}
0x11ab…11bf Line {l1=0x12, l2=»8770LINIE=LINIE+E «, l3=0x12}
0x11bf…11cf Line {l1=0x0e, l2=»8780ENDWHILE «, l3=0x0e}
0x11cf…11e5 Line {l1=0x14, l2=»8790EXEC SKRIVHOVED «, l3=0x14}
0x11e5…11f2 Line {l1=0x0b, l2=»8810ENDIF «, l3=0x0b}
0x11f2…1206 Line {l1=0x12, l2=»8815LINIE=LINIE+E «, l3=0x12}
0x1206…1223 Line {l1=0x1b, l2=»8820EXEC CONVDATE(LIN$,LA) «, l3=0x1b}
0x1223…1244 Line {l1=0x1f, l2=»8830PRINT USING "#### ":LMNR; «, l3=0x1f}
0x1244…128d Line {l1=0x47, l2=»8840PRINT POST1$(E,25);" ";LIN$;RESUL1$(4,10);" ";RESUL$(8);" "; «, l3=0x47}
0x128d…12b9 Line {l1=0x2a, l2=»8850IF TV$(16,11)="+" THEN TV$(16,11)=" " «, l3=0x2a}
0x12b9…12e5 Line {l1=0x2a, l2=»8860IF TV$(20,11)="+" THEN TV$(20,11)=" " «, l3=0x2a}
0x12e5…1305 Line {l1=0x1e, l2=»8870PRINT TV$(16);" ";TV$(20) «, l3=0x1e}
0x1305…1312 Line {l1=0x0b, l2=»8880ENDIF «, l3=0x0b}
0x1312…132a Line {l1=0x16, l2=»8890UNTIL LMNR=>MLMNR «, l3=0x16}
0x132a…135a Line {l1=0x2e, l2=»8900IF TOTAL$(E,12)="+" THEN TOTAL$(E,12)=" " «, l3=0x2e}
0x135a…138a Line {l1=0x2e, l2=»8910IF TOTAL$(G,12)="+" THEN TOTAL$(G,12)=" " «, l3=0x2e}
0x138a…13ba Line {l1=0x2e, l2=»8920PRINT " ***";TAB(56);TOTAL$(E);TOTAL$(G); «, l3=0x2e}
0x13ba…13ce Line {l1=0x12, l2=»8930LINIE=LINIE+E «, l3=0x12}
0x13ce…13e7 Line {l1=0x17, l2=»8940WHILE LINIE<MAXLIN «, l3=0x17}
0x13e7…13f4 Line {l1=0x0b, l2=»8950PRINT «, l3=0x0b}
0x13f4…1408 Line {l1=0x12, l2=»8960LINIE=LINIE+E «, l3=0x12}
0x1408…1418 Line {l1=0x0e, l2=»8970ENDWHILE «, l3=0x0e}
0x1418…1425 Line {l1=0x0b, l2=»8980TYPE=G «, l3=0x0b}
0x1425…1434 Line {l1=0x0d, l2=»8984OUTPUT T «, l3=0x0d}
0x1434…1446 Line {l1=0x10, l2=»8985CURSOR E,13 «, l3=0x10}
0x1446…1455 Line {l1=0x0d, l2=»8986OUTPUT P «, l3=0x0d}
0x1455…1462 Line {l1=0x0b, l2=»8990LMNR=B «, l3=0x0b}
0x1462…1470 Line {l1=0x0c, l2=»9000REPEAT «, l3=0x0c}
0x1470…1481 Line {l1=0x0f, l2=»9010EXEC NÆSTE «, l3=0x0f}
0x1481…149c Line {l1=0x19, l2=»9020IF LMNR<=MLMNR THEN «, l3=0x19}
0x149c…14ae Line {l1=0x10, l2=»9030EXEC INDTÆL «, l3=0x10}
0x14ae…14d6 Line {l1=0x26, l2=»9040EXEC CALC(B,TV$(G),TV$(4),RESUL$) «, l3=0x26}
0x14d6…14ea Line {l1=0x12, l2=»9050FOR I=E TO 45 «, l3=0x12}
0x14ea…1514 Line {l1=0x28, l2=»9060IF TV$(I,11)="+" THEN TV$(I,11)=" " «, l3=0x28}
0x1514…1521 Line {l1=0x0b, l2=»9070NEXT I «, l3=0x0b}
0x1521…154d Line {l1=0x2a, l2=»9080IF RESUL$(12)="+" THEN RESUL$(12)=" " «, l3=0x2a}
0x154d…1563 Line {l1=0x14, l2=»9085EXEC SKRIVHOVED «, l3=0x14}
0x1563…157f Line {l1=0x1a, l2=»9090PRINT " Lønmodtager"; «, l3=0x1a}
0x157f…15a0 Line {l1=0x1f, l2=»9100PRINT USING "#### ":LMNR; «, l3=0x1f}
0x15a0…15b9 Line {l1=0x17, l2=»9110PRINT POST1$(E,25) «, l3=0x17}
0x15b9…15c6 Line {l1=0x0b, l2=»9120PRINT «, l3=0x0b}
0x15c6…15fb Line {l1=0x33, l2=»9130PRINT TAB(W);"0XX";TAB(23);"1XX";TAB(36);"2XX" «, l3=0x33}
0x15fb…163c Line {l1=0x3f, l2=»9140PRINT " TV Arbejder- Ferie- og Årsop- Tekst"; «, l3=0x3f}
0x163c…1659 Line {l1=0x1b, l2=»9150PRINT TAB(66);"Lønart" «, l3=0x1b}
0x1659…1691 Line {l1=0x36, l2=»9160PRINT " NR. lønstat SH-opg gørelse" «, l3=0x36}
0x1691…16cd Line {l1=0x3a, l2=»9170PRINT " 01 ";TV$(E);TAB(29);"-";TAB(42);"-";TAB(45); «, l3=0x3a}
0x16cd…1700 Line {l1=0x31, l2=»9180PRINT "TILLÆG TIL FORDELING";TAB(66);"01-39" «, l3=0x31}
0x1700…173c Line {l1=0x3a, l2=»9190PRINT " 02 ";TV$(G);TAB(29);"-";TAB(42);"-";TAB(45); «, l3=0x3a}
0x173c…1766 Line {l1=0x28, l2=»9200PRINT "AKKORDTIMER";TAB(66);"01-39" «, l3=0x28}
0x1766…17a2 Line {l1=0x3a, l2=»9210PRINT " 03 ";TV$(V);TAB(29);"-";TAB(42);"-";TAB(45); «, l3=0x3a}
0x17a2…17cc Line {l1=0x28, l2=»9220PRINT "AKKORDBELØB";TAB(66);"01-39" «, l3=0x28}
0x17cc…1808 Line {l1=0x3a, l2=»9230PRINT " 04 ";TV$(4);TAB(29);"-";TAB(42);"-";TAB(45); «, l3=0x3a}
0x1808…1833 Line {l1=0x29, l2=»9240PRINT "TIDLØNSTIMER";TAB(66);"01-39" «, l3=0x29}
0x1833…186f Line {l1=0x3a, l2=»9250PRINT " 05 ";TV$(5);TAB(29);"-";TAB(42);"-";TAB(45); «, l3=0x3a}
0x186f…189a Line {l1=0x29, l2=»9260PRINT "TIDLØNSBELØB";TAB(66);"01-39" «, l3=0x29}
0x189a…18e0 Line {l1=0x44, l2=»9270PRINT " 06 ";RESUL$(G,11);TAB(29);"-";TAB(32);TV$(30);TAB(45); «, l3=0x44}
0x18e0…1910 Line {l1=0x2e, l2=»9280PRINT "TIMER IALT";TAB(66);"(TV 02 + 04)" «, l3=0x2e}
0x1910…194c Line {l1=0x3a, l2=»9290PRINT " 07 ";TV$(6);TAB(29);"-";TAB(42);"-";TAB(45); «, l3=0x3a}
0x194c…197a Line {l1=0x2c, l2=»9300PRINT "HERAF OVERTIMER";TAB(66);"01-39" «, l3=0x2c}
0x197a…19b6 Line {l1=0x3a, l2=»9310PRINT " 08 ";TV$(7);TAB(29);"-";TAB(42);"-";TAB(45); «, l3=0x3a}
0x19b6…19e3 Line {l1=0x2b, l2=»9320PRINT "OVERTIDSTILLÆG";TAB(66);"01-39" «, l3=0x2b}
0x19e3…1a1f Line {l1=0x3a, l2=»9330PRINT " 09 ";TV$(8);TAB(29);"-";TAB(42);"-";TAB(45); «, l3=0x3a}
0x1a1f…1a4e Line {l1=0x2d, l2=»9340PRINT "HOLDDRIFTSTILLÆG";TAB(66);"01-39" «, l3=0x2d}
0x1a4e…1a8a Line {l1=0x3a, l2=»9350PRINT " 10 ";TV$(W);TAB(29);"-";TAB(42);"-";TAB(45); «, l3=0x3a}
0x1a8a…1ab3 Line {l1=0x27, l2=»9360PRINT "GENETILLÆG";TAB(66);"01-39" «, l3=0x27}
0x1ab3…1af0 Line {l1=0x3b, l2=»9370PRINT " 11 ";TV$(10);TAB(29);"-";TAB(42);"-";TAB(45); «, l3=0x3b}
0x1af0…1b1f Line {l1=0x2d, l2=»9380PRINT "DIV U F ARBEJDST";TAB(66);"01-39" «, l3=0x2d}
0x1b1f…1b64 Line {l1=0x43, l2=»9390PRINT " 12 ";TV$(11);TAB(19);TV$(16);TAB(32);TV$(31);TAB(45); «, l3=0x43}
0x1b64…1b90 Line {l1=0x2a, l2=»9400PRINT "FERIEBERETT LØN";TAB(65);"*76" «, l3=0x2a}
0x1b90…1bd1 Line {l1=0x3f, l2=»9410PRINT " 13 ";TV$(12);TAB(19);TV$(17);TAB(42);"-";TAB(45); «, l3=0x3f}
0x1bd1…1bfb Line {l1=0x28, l2=»9420PRINT "SYGEFERIEPENGE";TAB(66);"72" «, l3=0x28}
0x1bfb…1c3c Line {l1=0x3f, l2=»9430PRINT " 14 ";TV$(13);TAB(29);"-";TAB(32);TV$(32);TAB(45); «, l3=0x3f}
0x1c3c…1c64 Line {l1=0x26, l2=»9440PRINT "SYGEDAGPENGE";TAB(66);"41" «, l3=0x26}
0x1c64…1ca5 Line {l1=0x3f, l2=»9450PRINT " 15 ";TV$(14);TAB(19);TV$(20);TAB(42);"-";TAB(45); «, l3=0x3f}
0x1ca5…1cd2 Line {l1=0x2b, l2=»9460PRINT "BEREGNEDE FERIEP";TAB(65);"*78" «, l3=0x2b}
0x1cd2…1d13 Line {l1=0x3f, l2=»9470PRINT " 16 ";TV$(15);TAB(19);TV$(23);TAB(42);"-";TAB(45); «, l3=0x3f}
0x1d13…1d3c Line {l1=0x27, l2=»9480PRINT "SH-OPSPARING";TAB(65);"*79" «, l3=0x27}
0x1d3c…1d81 Line {l1=0x43, l2=»9490PRINT " 17 ";TAB(16);"-";TAB(19);TV$(26);TAB(42);"-";TAB(45); «, l3=0x43}
0x1d81…1da7 Line {l1=0x24, l2=»9500PRINT "SH-FORSKUD";TAB(66);"42" «, l3=0x24}
0x1da7…1dea Line {l1=0x41, l2=»9510PRINT " 18";TAB(16);"-";TAB(29);"-";TAB(32);TV$(33);TAB(45); «, l3=0x41}
0x1dea…1e11 Line {l1=0x25, l2=»9520PRINT "FERIETILLÆG";TAB(66);"40" «, l3=0x25}
0x1e11…1e54 Line {l1=0x41, l2=»9530PRINT " 19";TAB(16);"-";TAB(29);"-";TAB(32);TV$(34);TAB(45); «, l3=0x41}
0x1e54…1e88 Line {l1=0x32, l2=»9540PRINT "TRÆKPLIGTIG A-INDK";TAB(66);"70 + *82" «, l3=0x32}
0x1e88…1ecb Line {l1=0x41, l2=»9550PRINT " 20";TAB(16);"-";TAB(29);"-";TAB(32);TV$(37);TAB(45); «, l3=0x41}
0x1ecb…1ef6 Line {l1=0x29, l2=»9560PRINT "TRÆKFRI A-INDK";TAB(65);"*84" «, l3=0x29}
0x1ef6…1f39 Line {l1=0x41, l2=»9570PRINT " 21";TAB(16);"-";TAB(29);"-";TAB(32);TV$(40);TAB(45); «, l3=0x41}
0x1f39…1f69 Line {l1=0x2e, l2=»9580PRINT "A-SKAT";TAB(65);"*71+*83+*92+*97"; «, l3=0x2e}
0x1f69…1fac Line {l1=0x41, l2=»9590PRINT " 22";TAB(16);"-";TAB(29);"-";TAB(32);TV$(43);TAB(45); «, l3=0x41}
0x1fac…1fcc Line {l1=0x1e, l2=»9600PRINT "ATP";TAB(65);"*80" «, l3=0x1e}
0x1fcc…2013 Line {l1=0x45, l2=»9610PRINT " 23";TAB(16);"-";TAB(19);TV$(29);TAB(32);TV$(44);TAB(45); «, l3=0x45}
0x2013…2041 Line {l1=0x2c, l2=»9620PRINT "FERIEDAGE";TAB(66);"73 + SYSTEM" «, l3=0x2c}
0x2041…2084 Line {l1=0x41, l2=»9630PRINT " 24";TAB(16);"-";TAB(29);"-";TAB(32);TV$(45);TAB(45); «, l3=0x41}
0x2084…20ae Line {l1=0x28, l2=»9640PRINT "PENSIONSBIDRAG";TAB(66);"49" «, l3=0x28}
0x20ae…20bb Line {l1=0x0b, l2=»9650PRINT «, l3=0x0b}
0x20bb…20c8 Line {l1=0x0b, l2=»9660PRINT «, l3=0x0b}
0x20c8…20f2 Line {l1=0x28, l2=»9670PRINT " ANSAT FRA";LA;" TIL";FD;" " «, l3=0x28}
0x20f2…2107 Line {l1=0x13, l2=»9680FOR I=38 TO 72 «, l3=0x13}
0x2107…2114 Line {l1=0x0b, l2=»9690PRINT «, l3=0x0b}
0x2114…2121 Line {l1=0x0b, l2=»9700NEXT I «, l3=0x0b}
0x2121…212e Line {l1=0x0b, l2=»9710ENDIF «, l3=0x0b}
0x212e…2146 Line {l1=0x16, l2=»9720UNTIL LMNR=>MLMNR «, l3=0x16}
0x2146…2153 Line {l1=0x0b, l2=»9730CLOSE «, l3=0x0b}
0x2153…2162 Line {l1=0x0d, l2=»9735OUTPUT T «, l3=0x0d}
0x2162…217f Line {l1=0x1b, l2=»9740CHAIN "P641210:ÅRSOPL" «, l3=0x1b}
0x217f…2180 00 ┆ ┆
0x2180…21a0 00 22 1b 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 ┆ " ┆
0x21a0…21c0 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 ┆ ┆
[…0x2e…]