XProfan

 $P+
Set("ErrorLevel", 0)
SET("Listdel",";")
Set("Decimals",2)
DEF GETSYSCOLOR(1) !"USER32","GetSysColor"
DECLARE BoxID&, NettoeinkommenID&
WINDOWSTYLE 538
WINDOWTITLE "Pfändungstabelle  Stand 01.07.2005"
WINDOW ((%MAXX/2)-(640/2)),((%MAXY/2)-(500/2))-640,500
SET("TRUECOLOR", 1)
DECLARE ENDE%
CLS GETSYSCOLOR(15)
USEFONT "MS Sans Serif",13,0,0,0,0
SETDIALOGFONT 1
UseIcon "A"
PopUp "&Datei"
AppendMenu 100, "&oeffnen"
AppendMenu 101, "&suchen"
Separator
AppendMenu 198, "&Info"
Separator
AppendMenu 199, "&Ende"
Tabelle_oeffnen
Tabelle_ausgeben
BoxID& = @&(0)
NettoeinkommenID& = Create("Edit", %Hwnd,"0", 10, 10, 120, 20)
SETFOCUS(%HWND)

WHILENOT ENDE%

    WAITINPUT

    If %KEY = 2

        LET ENDE%= 1

    ELSEIF %KEY = 4

    ELSEIF %MenuItem = 100

        Tabelle_oeffnen(@Loadfile$("Pfändungstabelle aussuchen","*.csv"))

    ELSEIF %MenuItem = 101

        Wert_suchen

    ELSEIF %MenuItem = 198

        Info

    ELSEIF %MenuItem = 199

        END

    ELSEIF %Key = 13

        Wert_suchen

    ENDIF

EndWhile

Proc Wert_suchen

    DECLARE Wert_suchen_wert!
    DECLARE Wert_suchen_JaNein%
    DECLARE Wert_suchen_Zeile$
    DECLARE Wert_suchen_min!
    DECLARE Wert_suchen_max!
    Clear Wert_suchen_JaNein%
    Wert_suchen_wert! = @Val(@Translate$(@GetText$(NettoeinkommenID&),",","."))

    WhileLoop @GetCount(BoxID&)+1

        Wert_suchen_Zeile$ = @GetText$(BoxID&, &loop-1, 0)
        Wert_suchen_min! = @Val(@Translate$(@GetText$(BoxID&, &loop-1, 1),",","."))
        Wert_suchen_max! = @Val(@Translate$(@GetText$(BoxID&, &loop-1, 2),",","."))

        If Wert_suchen_wert! >= Wert_suchen_min!

            If Wert_suchen_wert! <= Wert_suchen_max!

                @SelectString(BoxID&, -1, Wert_suchen_Zeile$)
                Break

            EndIf

        EndIf

    EndWhile

EndProc

Proc Tabelle_oeffnen

    Parameters Tabelle_oeffnen_Datei$
    Case %PCount = 0 : Let Tabelle_oeffnen_Datei$ = "PFAENDUNGSTABELLE.CSV"
    @FindFirst$(Tabelle_oeffnen_Datei$)

    If %IOResult = 0

        Assign #1,Tabelle_oeffnen_Datei$
        Reset #1

    Else

        Tabelle_exportieren
        Assign #1,Tabelle_oeffnen_Datei$
        Reset #1

    EndIf

EndProc

Proc Tabelle_ausgeben

    DECLARE Tabellen_ausgeben_Zeile$
    DECLARE Tabelle_ausgeben_Grid&
    DECLARE Tabelle_ausgeben_Format$
    DECLARE Tabelle_ausgeben_zaehler&
    Let Tabelle_ausgeben_zaehler& = 1
    LET Tabelle_ausgeben_Format$ = "Nr.;0;30;von Euro;1;60;bis Euro;1;60;0 Personen;1;70;1 Personen;1;70;2 Personen;1;70;3 Personen;1;70;4 Personen;1;70;5 Personen;1;70"
    Tabelle_ausgeben_Grid& = Create("GridBox", %Hwnd, Tabelle_ausgeben_Format$ , 0, 10, 40, 610, 400)

    WhileNot @EoF(#1)

        Input #1, Tabellen_ausgeben_Zeile$
        @AddString(Tabelle_ausgeben_Grid&, @Str$(Tabelle_ausgeben_zaehler&)+";"+Tabellen_ausgeben_Zeile$)
        Inc Tabelle_ausgeben_zaehler&

    EndWhile

    Return Tabelle_ausgeben_Grid&

EndProc

Proc Info

    @MessageBox("Pfändungstabelle zur vereinfachten suche des Pfändungsbetrages","Info",0)

EndProc

Proc Tabelle_exportieren

    Declare pfaendungstabelle#
    Declare Dateiname$
    Dim pfaendungstabelle#,9096
    Clear pfaendungstabelle#
    Long pfaendungstabelle#,0=943274800,960048185,809185339,809185339,809185339,960039437,960052016,960048185,875311931,809185339,809185339,168636475,808464433,808464699,960048185,741355835,993016628,993016624,221264688,825241866
    Long pfaendungstabelle#,80=808532784,959199537,925973305,809186348,809185339,809185339,808520205,825962546,741945904,842742073,993274932,993016624,993016624,822742320,993014576,959655985,993605932,875311411,809185339,809185339
    Long pfaendungstabelle#,160=168636475,808726577,875573563,960048185,741880635,993016628,993016624,221264688,892350730,808532784,959199541,892615481,809186348,809185339,809185339,808520205,825962550,741946928,893073721,993274930
    Long pfaendungstabelle#,240=993016624,993016624,822742320,993015600,959918129,993605932,875313461,809185339,809185339,168636475,808988721,942682427,960048185,741750331,993016628,993016624,221264688,959459594,808532784,959199545
    Long pfaendungstabelle#,320=859257657,809186348,809185339,809185339,825297421,825962544,741945393,943405369,993274928,993016624,993016624,822742320,993014065,959525169,993605932,875312952,809185339,809185339,168636475,808595761
    Long pfaendungstabelle#,400=842084667,960048185,741620027,993016628,993016624,221264688,858861834,825310000,959199539,808532793,993274929,993016624,993016624,822742320,993014833,959721777,993605932,741879857,993016628,993016624
    Long pfaendungstabelle#,480=221264688,892416266,825310000,959199541,825310009,993274933,993016624,993016624,822742320,993015345,959852849,993605932,741487153,993016628,993016624,221264688,925970698,825310000,959199543,842087225
    Long pfaendungstabelle#,560=993274937,993016624,993016624,822742320,993015857,959983921,993605932,741749553,993016628,993016624,221264688,959525130,825310000,959199545,875641657,993274931,993016624,993016624,822742320,993013810
    Long pfaendungstabelle#,640=959459889,993605932,741356849,993016628,993016624,221264688,825372938,842087216,959199537,892418873,993274935,993016624,993016624,822742320,993014322,959590961,993605932,741619249,993016628,993016624
    Long pfaendungstabelle#,720=221264688,858927370,842087216,959199539,925973305,993274929,993016624,993016624,822742320,993014834,959722033,993605932,741881649,993016628,993016624,221264688,892481802,842087216,959199541,942750521
    Long pfaendungstabelle#,800=993274933,993016624,993016624,822742320,993015346,959853105,993605932,741488945,993016628,993016624,221264688,926036234,842087216,959199543,959527737,993274937,993016624,993016624,822742320,993015858
    Long pfaendungstabelle#,880=959984177,993605932,741748786,993016628,993016624,221264688,959590666,842087216,959199545,825375545,993274931,993016624,993016624,822742320,993013811,959460145,993605932,741356082,993016628,993016624
    Long pfaendungstabelle#,960=221264688,825438474,858864432,959199537,842152761,993274935,993016624,993016624,822742320,993014323,959591217,993605932,741618482,993016628,993016624,221264688,858992906,858864432,959199539,875707193
    Long pfaendungstabelle#,1040=993274929,993016624,993016624,822742320,993014835,959722289,993605932,741880882,993016628,993016624,221264688,892547338,858864432,959199541,892484409,993274933,993016624,993016624,822742320,993015347
    Long pfaendungstabelle#,1120=959853361,993605932,741488178,741489460,809186608,809185339,168636475,808923953,926101819,960048185,959853115,926626860,993341484,993016624,221264688,942878986,858864432,959199544,926038841,993274934
    Long pfaendungstabelle#,1200=808202801,993016629,993016624,822742320,993016115,960049969,993605932,741554226,925973300,993341484,993016624,221264688,808726794,875641648,959199536,959593273,993274928,808202802,993016629,993016624
    Long pfaendungstabelle#,1280=822742320,993014068,959525937,993605932,741816626,926038836,993341484,993016624,221264688,842281226,875641648,959199538,808663865,993274932,808202803,993016629,993016624,822742320,993014580,959657009
    Long pfaendungstabelle#,1360=993605932,741421363,926104372,993341484,993016624,221264688,875835658,875641648,959199540,825441081,993274936,808202804,993016629,993016624,822742320,993015092,959788081,993605932,741683763,926169908
    Long pfaendungstabelle#,1440=993341484,993016624,221264688,909390090,875641648,959199542,858995513,993274930,808202805,993016629,993016624,822742320,993015604,959919153,993605932,741946163,926235444,993341484,993016624,221264688
    Long pfaendungstabelle#,1520=942944522,875641648,959199544,875772729,993274934,808202806,993016629,993016624,822742320,993016116,960050225,993605932,741553459,926300980,993341484,993016624,221264688,808792330,892418864,959199536
    Long pfaendungstabelle#,1600=909327161,993274928,808202807,993016629,993016624,822742320,993014069,959526193,993605932,741815859,926366516,993341484,993016624,221264688,842346762,892418864,959199538,926104377,993274932,808202808
    Long pfaendungstabelle#,1680=993016629,993016624,822742320,993014581,959657265,993605932,741423155,926432052,993341484,993016624,221264688,875901194,892418864,959199540,942881593,993274936,808202809,993016629,993016624,822742320
    Long pfaendungstabelle#,1760=993015093,959788337,993605932,741685555,926497588,993341484,993016624,221264688,909455626,892418864,959199542,808729401,993274930,741486641,809186608,809185339,168636475,808924465,926232891,960048185
    Long pfaendungstabelle#,1840=959460411,825963564,808204080,741554997,809185584,809185339,892406285,825962552,741947445,876296505,875312689,842084667,993341484,825240631,809185339,168636475,809055537,959787323,960048185,858928187
    Long pfaendungstabelle#,1920=825963564,808204081,825310005,993079340,993016624,822742320,993013814,959460913,993605932,741356340,842087220,892349490,741683515,809185584,809185339,909183501,825962545,741945654,876296505,875312947
    Long pfaendungstabelle#,2000=926036283,993341484,808204593,993016625,221264688,842412298,909196080,959199538,875838265,993274932,741487409,842741040,825240627,809185339,168636475,808662577,859189563,960048185,825570363,825963564
    Long pfaendungstabelle#,2080=808204083,926038837,993079340,993016624,822742320,993014838,959723057,993605932,741881140,875641652,892349490,741421883,809185584,809185339,909183501,825962549,741946678,876296505,875312438,926167355
    Long pfaendungstabelle#,2160=993341484,808203571,993016625,221264688,909521162,909196080,959199542,926169913,993274930,741487921,859518256,825240633,809185339,168636475,808924721,926298427,960048185,959919163,825963564,808204085
    Long pfaendungstabelle#,2240=859061045,993079340,993016624,822742320,993015862,959985201,993605932,741750836,909196084,892349490,741815355,809185584,809185339,909183501,825962553,741947702,876296505,875311929,926298427,993341484
    Long pfaendungstabelle#,2320=808202549,993016625,221264688,808923402,925973296,959199536,808794937,993274928,741488433,893072688,825240629,809185339,168636475,808531761,825700667,960048185,925906235,825963564,808204087,959789877
    Long pfaendungstabelle#,2400=993079340,993016624,822742320,993014327,959592241,993605932,741617973,942750516,892349490,741553723,809185584,809185339,925960717,825962547,741946167,893073721,875311410,926429499,993341484,808204086
    Long pfaendungstabelle#,2480=993016625,221264688,876032266,925973296,959199540,842349369,993274936,741488945,926627120,825240625,809185339,168636475,808793905,892809531,960048185,892548411,825963564,808204089,892812085,993079340
    Long pfaendungstabelle#,2560=993016624,822742320,993015351,959854385,993605932,741487669,808598324,892349490,741947195,809185584,809185339,925960717,825962551,741947191,893073721,875313460,925905467,993341484,808203064,741358385
    Long pfaendungstabelle#,2640=809187634,168636475,808990513,943141179,960048185,909456699,842740780,808202801,926432053,993079340,959589427,809185339,925960717,825962553,741947703,893073721,875311926,925971003,993341484,808202553
    Long pfaendungstabelle#,2720=741751601,809187634,168636475,808466481,808988987,960048185,808924475,842740780,808202802,892943157,993079340,959589433,809185339,942737933,825962545,741945656,893073721,875312951,926036539,993341484
    Long pfaendungstabelle#,2800=808204601,842087217,993604140,221264688,842543370,942750512,959199538,943012665,993274932,741487410,825963824,808203056,892418865,993604140,221264688,859320586,942750512,959199539,959789881,993274929
    Long pfaendungstabelle#,2880=741815090,825963824,808204080,942750513,993604140,221264688,876097802,942750512,959199540,959789881,993274936,741487666,825963824,808202545,825375537,993604140,221264688,892875018,942750512,959199541
    Long pfaendungstabelle#,2960=808860473,993274933,741815346,825963824,808203569,875707185,993604140,221264688,909652234,942750512,959199542,825637689,993274930,741487922,825963824,808204593,926038833,993604140,221264688,926429450
    Long pfaendungstabelle#,3040=942750512,959199543,825637689,993274937,741815602,825963824,808203058,808663857,993604140,221264688,943206666,942750512,959199544,842414905,993274934,741488178,825963824,808204082,858995505,993604140
    Long pfaendungstabelle#,3120=221264688,959983882,942750512,959199545,859192121,993274931,741815858,825963824,808202547,909327153,993604140,221264688,809054474,959527728,959199536,875969337,993274928,741488434,825963824,808203571
    Long pfaendungstabelle#,3200=959658801,993604140,221264688,825831690,959527728,959199537,875969337,993274935,741816114,825963824,808204595,842283825,993604140,221264688,842608906,959527728,959199538,892746553,993274932,741488690
    Long pfaendungstabelle#,3280=825963824,808203060,892615473,993604140,221264688,859386122,959527728,959199539,909523769,993274929,741816370,825963824,808204084,942947121,993604140,221264688,876163338,959527728,959199540,909523769
    Long pfaendungstabelle#,3360=993274936,741488946,825963824,808202549,825572145,993604140,221264688,892940554,959527728,959199541,926300985,993274933,741816626,825963824,808203573,875903793,993604140,221264688,909717770,959527728
    Long pfaendungstabelle#,3440=959199542,943078201,993274930,741486643,825963824,808204597,926235441,993604140,221264688,926494986,959527728,959199543,943078201,993274937,741814323,825963824,808203062,808860465,993604140,221264688
    Long pfaendungstabelle#,3520=943272202,959527728,959199544,959855417,993274934,741486899,825963824,808204086,859192113,993604140,943205424,168636475,809056561,960049467,960048185,858797883,859517996,808204081,925973301,825240625
    Long pfaendungstabelle#,3600=741750331,842742066,993540140,839519536,993013808,959459378,993605932,741355831,842218292,892349490,892809531,993079340,841759030,741620537,809187384,808585741,842739761,741945648,926628153,875312945
    Long pfaendungstabelle#,3680=926036795,993341484,741947185,926626096,959589426,942421563,221264696,842019338,808598320,959199538,842480441,993274932,741487411,825963824,808203064,892812081,993604140,943205432,168636475,808661042
    Long pfaendungstabelle#,3760=858796603,960048185,825440059,859517996,808204083,942750517,825240631,741881659,825964850,943205424,168636475,808726578,875573819,960048185,942880571,859517996,808202804,959527733,825240625,741423163
    Long pfaendungstabelle#,3840=825964850,943205426,168636475,808792114,892351035,960048185,892614459,859517996,808204084,959527733,825240629,741619771,825964850,943205428,168636475,808857650,909128251,960048185,842348347,859517996
    Long pfaendungstabelle#,3920=808202805,959527733,825240633,741816379,825964850,943205430,168636475,808923186,925905467,960048185,959788859,859517996,808204085,808598325,825240627,741357883,825964850,943205432,168636475,808988722
    Long pfaendungstabelle#,4000=942682683,960048185,909522747,859517996,808202806,808598325,825240631,741554491,842742066,943205424,168636475,809054258,959459899,960048185,859256635,859517996,808204086,825375541,825240625,741751099
    Long pfaendungstabelle#,4080=842742066,943205426,168636475,808464690,808530491,960048185,808990523,859517996,808202807,825375541,825240629,741947707,842742066,943205428,168636475,808530226,825307707,960048185,926431035,859517996
    Long pfaendungstabelle#,4160=808204087,825375541,825240633,842019131,993604140,942421554,221264696,842084874,825375536,959199538,959920953,993274932,741488691,842741040,808203058,808532785,959589429,741880379,809187384,825362957
    Long pfaendungstabelle#,4240=842739763,741946161,943405369,875311408,926430011,993341484,741814834,825962800,841758768,808663865,993540140,839519536,993014833,959721778,993605932,741879864,959658804,892349490,825438779,993079340
    Long pfaendungstabelle#,4320=741421361,859519282,943205426,168636475,808792370,892416571,960048185,892418107,859517996,808204089,858929973,825240629,875639099,993604140,942421043,221264696,909193738,825375536,959199542,842545977
    Long pfaendungstabelle#,4400=993274930,741486644,842741040,808204595,825310001,959589431,741749563,809187384,825362957,842739767,741947185,943405369,875313458,925905979,993341484,741553202,825962800,841756722,942881593,993540140
    Long pfaendungstabelle#,4480=839519536,993015857,959983922,993605932,741749560,825506612,892349490,926167611,993079340,741552689,876296498,943205424,168636475,809054514,959525435,960048185,859060283,876295212,808204081,892484405
    Long pfaendungstabelle#,4560=825240625,909259067,993604140,942420532,741358392,168638775,808464946,808596027,960048185,808794171,876295212,808202802,892484405,825240629,959590715,993604140,942421044,741423928,168638775,808530482
    Long pfaendungstabelle#,4640=825373243,960048185,926234683,876295212,808204082,892484405,825240633,842215739,993604140,942421556,741489464,168638775,808596018,842150459,960048185,875968571,876295212,808202803,909261621,825240627
    Long pfaendungstabelle#,4720=892547387,993604140,942422068,741555000,168638775,808661554,858927675,960048185,825702459,876295212,808204083,909261621,825240631,942879035,993604140,942420021,741620536,168638775,808727090,875704891
    Long pfaendungstabelle#,4800=960048185,943142971,876295212,808202804,926038837,825240625,825504059,993604140,942420533,741686072,168638775,808792626,892482107,960048185,892876859,876295212,808204084,926038837,825240629,875835707
    Long pfaendungstabelle#,4880=993604140,942421045,741751608,168638775,808858162,909259323,960048185,842610747,876295212,808202805,926038837,825240633,926167355,993604140,942421557,741817144,168638775,808923698,926036539,960048185
    Long pfaendungstabelle#,4960=960051259,876295212,808204085,942816053,825240627,808792379,993604140,942422069,741882680,168638775,808989234,942813755,960048185,909130043,876295212,808202806,942816053,825240631,859124027,993604140
    Long pfaendungstabelle#,5040=942420022,741948216,168638775,809054770,959590971,960048185,858863931,876295212,808204086,959593269,825240625,909455675,993604140,942420534,808532792,221853484,808661514,858929968,959199536,842611513
    Long pfaendungstabelle#,5120=993274928,741488436,842741040,808203577,892418865,959589433,741619259,825964600,959917105,858917389,842739761,741945651,960182585,875312946,926364731,993341484,741947698,825962800,841757238,909523769
    Long pfaendungstabelle#,5200=993540140,925643313,839519545,993014323,959591218,993605932,741618489,942947124,892349490,858796859,993079340,741684785,909850930,943205432,741552443,168638775,808661810,858993211,960048185,825506107
    Long pfaendungstabelle#,5280=876295212,808204088,808663861,825240631,943075643,993604140,942420023,875641656,221853484,875770378,858929968,959199540,876165945,993274936,741488948,859518256,808202545,925973297,959589425,741488443
    Long pfaendungstabelle#,5360=825964600,959917109,858917389,842739765,741946675,960182585,875312437,926495803,993341484,741683507,825962800,841757751,876034873,993540140,925644337,839519545,993015347,959853362,993605932,741488185
    Long pfaendungstabelle#,5440=808794932,892349490,959525691,993079340,741816113,926628146,943205430,741814587,168638775,808923954,926102075,960048185,959854907,893072428,808204080,842218293,825240627,808988987,993604140,942422071
    Long pfaendungstabelle#,5520=942750520,221853484,942879242,858929968,959199544,926497593,993274934,741486901,859518256,808204082,942750513,959589427,741357627,825964600,959917113,858917389,842739769,741947699,960182585,875311928
    Long pfaendungstabelle#,5600=925971771,993341484,741421875,825962800,841758264,842545977,993540140,925642802,839519545,993013812,959460402,993605932,741357881,842349364,892349490,892547899,993079340,741947441,943405362,943205428
    Long pfaendungstabelle#,5680=741421627,168638775,808530994,825504315,960048185,926497083,893072428,808204082,858995509,825240633,842608955,993604140,942421560,842152760,221853484,842281482,875707184,959199538,808532793,875312176
    Long pfaendungstabelle#,5760=842216763,993341484,741553203,825962800,841758009,943209273,993540140,925643570,839519545,993014580,959657010,993605932,825307185,893072428,808204083,875772725,825240631,943272251,993604140,942420025
    Long pfaendungstabelle#,5840=875707192,221853484,875835914,875707184,959199540,808532793,875313201,842282299,993341484,741422387,842740016,841756976,842611513,993540140,925644082,839519545,993015092,959788082,993605932,892481585
    Long pfaendungstabelle#,5920=893072428,808204084,892549941,825240629,875573819,993604140,942421049,909261624,221853484,909390346,875707184,959199542,808532793,875311667,842347835,993341484,741946675,842740016,841758512,909720377
    Long pfaendungstabelle#,6000=993540140,925644594,839519545,993015604,959919154,993605932,959655985,893072428,808204085,909327157,825240627,808530491,993604140,942422073,942816056,221853484,942944778,875707184,959199544,808532793
    Long pfaendungstabelle#,6080=875312692,842413371,993341484,741815859,842740016,841757489,808532793,943205424,741945915,168638775,809055282,959722043,960048185,892350779,993274931,741815861,859518256,808202551,825375537,959589430
    Long pfaendungstabelle#,6160=842019131,993540140,925642803,839519545,993013813,959460658,993605932,808857649,893072428,808202807,926104373,825240629,959525435,993604140,741617713,859519032,959917105,892471821,842739761,741945653
    Long pfaendungstabelle#,6240=825964857,741815856,926235444,892349495,959918907,993079340,741487154,825964850,942421552,842218296,221853484,842347018,892484400,959199538,808532793,875312183,842544443,993341484,741554227,842740016
    Long pfaendungstabelle#,6320=841758002,808532793,943205432,741552955,168638775,808662322,859124283,960048185,942682427,993274929,741816373,859518256,808204088,842152753,959589432,808530235,993540140,925643827,839519545,993014837
    Long pfaendungstabelle#,6400=959722802,993605932,943206449,893072428,808202809,959658805,825240625,825438779,993604140,741486897,859519032,959917109,892471821,842739765,741946677,825964857,741685552,959789876,892349495,892941115
    Long pfaendungstabelle#,6480=993079340,741618482,825964850,942421041,909327160,221853484,909455882,892484400,959199542,825310009,875311664,842020411,993341484,741947699,842740016,841758515,825310009,943205430,741815099,168638775
    Long pfaendungstabelle#,6560=808924466,926233147,960048185,808530235,993274937,741814326,876295472,808203056,875707185,959589424,942747963,993540140,925644851,839519545,993015861,959984946,993605932,909193521,909849644,808202801
    Long pfaendungstabelle#,6640=808729397,825240631,859058747,993604140,741356081,859519032,959917113,892471821,842739769,741947701,825964857,741552689,825637684,892349495,825308219,993079340,741749810,825964850,942420530,808729400
    Long pfaendungstabelle#,6720=221853484,808858122,909261616,959199536,825310009,875311155,842151483,993341484,741683508,842740016,841759028,842087225,943205428,741422139,168638775,808531506,825635387,960048185,858861883,993274935
    Long pfaendungstabelle#,6800=741814838,876295472,808204593,892484401,959589426,909259067,993540140,925643316,839519545,993014326,959591986,993605932,875835697,909849644,808202803,842283829,825240627,892678715,993604140,741880369
    Long pfaendungstabelle#,6880=876296248,959917107,909249037,842739763,741946166,825964857,741422385,859192116,892349495,926037051,993079340,741881138,825964850,942420019,875838264,221853484,875966986,909261616,959199540,825310009
    Long pfaendungstabelle#,6960=875313205,842282555,993341484,741421876,842740016,841756982,858864441,943205426,741684283,168638775,808793650,892744251,960048185,909193531,993274933,741815350,876295472,808203571,909261617,959589428
    Long pfaendungstabelle#,7040=875770171,993540140,925644340,839519545,993015350,959854130,993605932,842477873,909849644,808202805,859061045,825240633,926298683,993604140,741749553,876296248,959917111,909249037,842739767,741947190
    Long pfaendungstabelle#,7120=825964857,741947185,892746548,892349495,859059259,993079340,741357362,825964850,942422067,942947128,221853484,943075850,909261616,959199544,825310009,875312696,842413627,993341484,741815348,842740016
    Long pfaendungstabelle#,7200=841757495,875641657,943205424,741946427,168638775,809055794,959853115,960048185,959525179,993274931,741815862,876295472,808202549,926038833,959589430,842281275,993540140,925642805,839519545,993013815
    Long pfaendungstabelle#,7280=959461170,993605932,808464945,909849644,808202807,892615477,825240629,959918651,993604140,741618737,893073464,959917105,926026253,842739761,741945655,825964857,741814322,926300980,892349495,959788091
    Long pfaendungstabelle#,7360=993079340,741488690,825964850,942421556,842349368,221853484,842478090,926038832,959199538,842087225,875312177,842544699,993341484,741553716,842740016,841758008,875641657,943205432,741553467,168638775
    Long pfaendungstabelle#,7440=808662834,859255355,960048185,842150203,993274929,741816374,876295472,808204086,942816049,959589432,808792379,993540140,925643829,839519545,993014839,959723314,993605932,942813745,909849644,808202809
    Long pfaendungstabelle#,7520=926169909,825240625,825831995,993604140,741487921,893073464,959917109,926026253,842739765,741946679,825964857,741684018,959855412,892349495,892810299,993079340,741620018,825964850,942421045,909458232
    Long pfaendungstabelle#,7600=221853484,909586954,926038832,959199542,842087225,875311668,842020667,993341484,741947188,842740016,841758521,892418873,943205430,741815611,168638775,808924978,926364219,960048185,875704635,993274937
    Long pfaendungstabelle#,7680=741814327,876295472,808203064,808663857,959589424,943010107,993540140,925644853,839519545,993015863,959985458,993605932,909455921,926626860,808202801,942947125,825240631,858796859,993604140,741357105
    Long pfaendungstabelle#,7760=893073464,959917113,926026253,842739769,741947703,825964857,741553714,825703220,892349495,825832507,993079340,741748787,825964850,942420534,808860472,221853484,808989194,942816048,959199536,842087225
    Long pfaendungstabelle#,7840=875311159,842151739,993341484,741685556,859517232,841759024,909196089,943205428,741422651,168638775,808532018,825766459,960048185,926036283,993274935,741814839,876295472,808204601,825441073,959589426
    Long pfaendungstabelle#,7920=909521211,993540140,925643318,839519545,993014328,959592498,993605932,876098097,926626860,808202803,808794933,825240627,892416827,993604140,741881393,909850680,959917107,942803469,842739763,741946168
    Long pfaendungstabelle#,8000=825964857,741423410,859257652,892349495,925906235,993079340,741880115,825964850,942420023,875969336,221853484,876098058,942816048,959199540,842087225,875313209,842282811,993341484,741421365,859517232
    Long pfaendungstabelle#,8080=841756978,925973305,943205426,741684795,168638775,808794162,892875323,960048185,808661307,993274933,741815351,893072688,808203569,842218289,959589428,876032315,993540140,925644342,839519545,993015352
    Long pfaendungstabelle#,8160=959854642,993605932,842085169,926626860,808202805,825572149,825240633,926036795,993604140,741750577,909850680,959917111,942803469,842739767,741947192,825964857,741945651,892812084,892349495,858928443
    Long pfaendungstabelle#,8240=993079340,741356339,825964850,942422071,943078200,221853484,943206922,942816048,959199544,858864441,875312690,842413883,993341484,741814837,859517232,841757491,942750521,943205424,741946939,168638775
    Long pfaendungstabelle#,8320=809056306,959984187,960048185,858992955,993274931,741815863,893072688,808202547,858995505,959589430,842543419,993540140,925642807,839519545,993013817,959461682,993605932,808727345,926626860,808202807
    Long pfaendungstabelle#,8400=859126581,825240629,959656763,993604140,741619761,926627896,959917105,959580685,842739761,741945657,825964857,741815347,926366516,892349495,959657275,993079340,741487667,825964850,942421560,842480440
    Long pfaendungstabelle#,8480=221853484,842609162,959593264,959199538,858864441,875312181,842544955,993341484,741553205,859517232,841758004,942750521,943205432,741553979,168638775,808663346,859386427,960048185,909324603,993274929
    Long pfaendungstabelle#,8560=741816375,893072688,808204084,875772721,959589432,809054523,993540140,925643831,839519545,993014841,959723826,993605932,943076145,926626860,808202809,892681013,825240625,825570107,993604140,741488945
    Long pfaendungstabelle#,8640=926627896,959917109,959580685,842739765,741946681,825964857,741685043,959920948,892349495,892679483,993079340,741618995,825964850,942421049,909589304,221853484,909718026,959593264,959199542,858864441
    Long pfaendungstabelle#,8720=875311672,842020923,993341484,741946677,859517232,841758517,959527737,943205430,741816123,168638775,808925490,926495291,960048185,942879035,993274937,741814328,893072688,808203062,909327153,959589424
    Long pfaendungstabelle#,8800=943272251,993540140,925644855,839519545,993015865,959985970,993605932,909718321,943404076,808202801,909458229,825240631,859190075,993604140,741355570,926627896,959917113,959580685,842739769,741947705
    Long pfaendungstabelle#,8880=825964857,741552180,825768756,892349495,825701691,993079340,741750323,842742066,942420528,808991544,221853484,808465162,808663856,959199536,875641657,875311153,842151995,993341484,741685045,859517232
    Long pfaendungstabelle#,8960=841759030,808598329,943205428,741423163,168638775,808529971,825242427,960048185,825504059,993274935,741814840,893072688,808204599,926104369,959589426,909128251,993540140,925643320,856296761,993014320
    Long pfaendungstabelle#,9040=959590451,993605932,875705393,943404076,808202803,943012661,825240627,892810043,993604140,741879858,943405112,959917107,2573
    Dateiname$="Pfaendungstabelle.csv"
    FileMode 1
    Assign #2,Dateiname$
    OpenRW #2
    BlockWrite #2,pfaendungstabelle#,0,9096
    CloseRW #2
    Dispose pfaendungstabelle#

EndProc