/ com!online 2002 February / comcd0202.iso / geld / akad / Steuerprogramm / data.z / EINKGZUTEIL.adb

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 41 44 42 20 34 2e 30 34 | d1 00 00 00 2c 03 00 00 |ADB 4.04|....,...|
|00000010| fd 03 00 00 36 07 00 00 | 1b 00 00 00 28 01 00 00 |....6...|....(...|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000080| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000090| 00 41 72 62 65 69 74 73 | 7a 69 6d 6d 65 72 00 00 |.Arbeits|zimmer..|
|000000a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000d0| 00 44 47 01 00 00 00 00 | 00 20 05 01 00 00 00 00 |.DG.....|. ......|
|000000e0| 00 e6 00 c0 00 00 00 0d | 00 03 00 56 57 d8 00 fb |........|...VW...|
|000000f0| 00 4a 02 0b 00 00 00 00 | 00 00 00 00 00 56 57 73 |.J......|.....VWs|
|00000100| 02 95 02 d6 03 11 00 00 | 00 00 00 00 00 00 00 56 |........|.......V|
|00000110| 57 ff 03 21 04 73 05 17 | 00 00 00 00 00 00 00 00 |W..!.s..|........|
|00000120| 00 1b 00 53 54 9c 05 00 | 00 00 00 20 00 00 00 06 |...ST...|... ....|
|00000130| 00 06 00 3c 00 0a 00 00 | 00 a0 05 53 54 b1 05 00 |...<....|...ST...|
|00000140| 00 00 00 20 00 00 00 51 | 00 06 00 22 00 0a 00 00 |... ...Q|..."....|
|00000150| 00 ba 05 53 54 00 00 00 | 60 00 00 20 00 00 00 7c |...ST...|`.. ...||
|00000160| 00 06 00 3c 00 0a 00 00 | 00 c2 05 53 54 00 00 00 |...<....|...ST...|
|00000170| 60 00 00 20 00 00 00 bf | 00 06 00 1a 00 0a 00 00 |`.. ....|........|
|00000180| 00 d1 05 53 4c 00 00 00 | 00 00 00 00 00 00 00 06 |...SL...|........|
|00000190| 00 12 00 da 00 01 00 00 | 00 53 54 00 00 00 00 00 |........|.ST.....|
|000001a0| 00 20 00 00 00 06 00 1a | 00 42 00 0a 00 00 00 da |. ......|.B......|
|000001b0| 05 45 4e ea 05 21 01 00 | 00 40 00 00 00 4a 00 18 |.EN..!..|.@...J..|
|000001c0| 00 26 00 0c 00 f6 05 06 | 20 42 41 fe 05 00 00 00 |.&......| BA.....|
|000001d0| 00 30 10 00 00 73 00 18 | 00 10 00 0c 00 00 00 02 |.0...s..|........|
|000001e0| 03 06 06 22 00 0c 06 00 | 00 00 00 42 43 13 06 00 |..."....|...BC...|
|000001f0| 00 00 00 30 00 00 00 97 | 00 18 00 14 00 0c 00 27 |...0....|.......'|
|00000200| 06 83 02 23 06 45 4e 00 | 00 21 01 00 00 42 00 00 |...#.EN.|.!...B..|
|00000210| 00 b9 00 18 00 26 00 0c | 00 f6 05 2d 06 06 20 45 |.....&..|...-.. E|
|00000220| 4e 35 06 20 01 00 00 52 | 00 00 00 b9 00 18 00 26 |N5. ...R|.......&|
|00000230| 00 0c 00 4b 06 42 06 74 | 02 06 20 53 54 00 00 00 |...K.B.t|.. ST...|
|00000240| 00 00 00 20 00 00 00 06 | 00 2e 00 42 00 0a 00 00 |... ....|...B....|
|00000250| 00 51 06 45 4e 61 06 21 | 01 00 00 40 00 00 00 4a |.Q.ENa.!|...@...J|
|00000260| 00 2c 00 26 00 0c 00 6b | 06 06 20 42 41 72 06 00 |.,.&...k|.. BAr..|
|00000270| 00 00 00 30 10 00 00 73 | 00 2c 00 10 00 0c 00 00 |...0...s|.,......|
|00000280| 00 03 03 06 06 2c 00 0c | 06 00 00 00 00 42 43 7a |.....,..|.....BCz|
|00000290| 06 00 00 00 00 30 00 00 | 00 97 00 2c 00 14 00 0c |.....0..|...,....|
|000002a0| 00 88 06 89 02 23 06 45 | 4e 00 00 21 01 00 00 42 |.....#.E|N..!...B|
|000002b0| 00 00 00 b9 00 2c 00 26 | 00 0c 00 6b 06 8e 06 06 |.....,.&|...k....|
|000002c0| 20 45 4e 96 06 20 01 00 | 00 52 00 00 00 b9 00 2c | EN.. ..|.R.....,|
|000002d0| 00 26 00 0c 00 aa 06 a1 | 06 7a 02 06 20 53 54 00 |.&......|.z.. ST.|
|000002e0| 00 00 00 00 00 20 00 00 | 00 06 00 42 00 42 00 0a |..... ..|...B.B..|
|000002f0| 00 00 00 b0 06 45 4e c0 | 06 21 01 00 00 40 00 00 |.....EN.|.!...@..|
|00000300| 00 4a 00 40 00 26 00 0c | 00 ca 06 06 20 42 41 d1 |.J.@.&..|.... BA.|
|00000310| 06 00 00 00 00 30 10 00 | 00 73 00 40 00 10 00 0c |.....0..|.s.@....|
|00000320| 00 00 00 01 03 06 06 97 | 00 00 00 00 00 00 00 42 |........|.......B|
|00000330| 43 d9 06 00 00 00 00 30 | 00 00 00 97 00 40 00 14 |C......0|.....@..|
|00000340| 00 0c 00 e7 06 86 02 23 | 06 45 4e 00 00 21 01 00 |.......#|.EN..!..|
|00000350| 00 42 00 00 00 b9 00 40 | 00 26 00 0c 00 ca 06 ed |.B.....@|.&......|
|00000360| 06 06 20 45 4e f5 06 20 | 01 00 00 52 00 00 00 b9 |.. EN.. |...R....|
|00000370| 00 40 00 26 00 0c 00 09 | 07 00 07 77 02 06 20 53 |.@.&....|...w.. S|
|00000380| 4c 00 00 00 00 00 00 00 | 00 00 00 06 00 51 00 da |L.......|.....Q..|
|00000390| 00 01 00 00 00 53 54 00 | 00 00 00 00 00 20 00 00 |.....ST.|..... ..|
|000003a0| 00 06 00 58 00 78 00 0a | 00 00 00 0f 07 45 4e 2b |...X.x..|.....EN+|
|000003b0| 07 21 01 00 00 40 00 00 | 00 b9 00 56 00 26 00 0c |.!...@..|...V.&..|
|000003c0| 00 31 07 06 20 53 46 00 | 00 00 01 00 00 00 00 00 |.1.. SF.|........|
|000003d0| 00 02 00 02 00 e2 00 66 | 00 00 00 00 00 00 00 7e |.......f|.......~|
|000003e0| 00 72 00 d9 59 00 00 00 | 00 09 00 09 00 0b 00 0f |.r..Y...|........|
|000003f0| 00 11 00 15 00 17 00 08 | 00 0e 00 14 00 00 45 69 |........|......Ei|
|00000400| 6e 6b 47 5a 75 74 65 69 | 6c 00 22 47 65 77 65 72 |nkGZutei|l."Gewer|
|00000410| 62 65 62 65 74 72 69 65 | 62 22 2b 69 66 28 5b 5e |bebetrie|b"+if([^|
|00000420| 2e 5e 2e 5e 2e 5e 2e 24 | 31 30 37 2e 24 31 33 30 |.^.^.^.$|107.$130|
|00000430| 5d 21 3d 22 22 2c 22 20 | 22 2b 5b 5e 2e 5e 2e 5e |]!=""," |"+[^.^.^|
|00000440| 2e 5e 2e 24 31 30 37 2e | 24 31 33 30 5d 2c 22 22 |.^.$107.|$130],""|
|00000450| 29 2b 22 3a 20 57 65 69 | 74 65 72 65 20 42 65 74 |)+": Wei|tere Bet|
|00000460| 72 69 65 62 73 61 75 73 | 67 61 62 65 6e 22 00 22 |riebsaus|gaben"."|
|00000470| 65 69 6e 6b 67 2e 66 72 | 77 22 00 69 66 28 21 5b |einkg.fr|w".if(![|
|00000480| 2f 2e 24 39 30 2e 24 31 | 30 37 2e 24 31 31 37 2e |/.$90.$1|07.$117.|
|00000490| 24 34 34 33 38 5d 2c 22 | 66 6f 72 6d 67 73 65 31 |$4438],"|formgse1|
|000004a0| 2e 66 72 77 22 2c 69 66 | 28 70 65 72 73 6f 6e 3d |.frw",if|(person=|
|000004b0| 3d 30 2c 22 66 6f 72 6d | 67 73 65 6d 31 2e 66 72 |=0,"form|gsem1.fr|
|000004c0| 77 22 2c 22 66 6f 72 6d | 67 73 65 66 31 2e 66 72 |w","form|gsef1.fr|
|000004d0| 77 22 29 29 00 69 66 28 | 21 5b 24 32 39 32 39 5d |w")).if(|![$2929]|
|000004e0| 2c 5b 24 32 39 33 30 5d | 3c 3d 5b 5e 2e 24 32 39 |,[$2930]|<=[^.$29|
|000004f0| 35 39 5d 2c 7e 54 29 00 | 22 53 69 65 20 68 61 62 |59],~T).|"Sie hab|
|00000500| 65 6e 20 69 6e 20 64 69 | 65 73 65 6d 20 46 65 6e |en in di|esem Fen|
|00000510| 73 74 65 72 20 65 69 6e | 65 6e 20 42 65 74 72 61 |ster ein|en Betra|
|00000520| 67 20 66 fc 72 20 41 72 | 62 65 69 74 73 6d 69 74 |g f.r Ar|beitsmit|
|00000530| 74 65 6c 20 69 6e 20 48 | f6 68 65 20 76 6f 6e 20 |tel in H|.he von |
|00000540| 22 2b 73 74 72 69 6e 67 | 28 5b 24 32 39 33 30 5d |"+string|([$2930]|
|00000550| 29 2b 22 20 5c 63 20 61 | 6e 67 65 67 65 62 65 6e |)+" \c a|ngegeben|
|00000560| 2e 20 49 6d 20 46 65 6e | 73 74 65 72 20 bb 57 65 |. Im Fen|ster .We|
|00000570| 72 62 75 6e 67 73 6b 6f | 73 74 65 6e 3a 20 41 72 |rbungsko|sten: Ar|
|00000580| 62 65 69 74 73 6d 69 74 | 74 65 6c ab 20 68 61 62 |beitsmit|tel. hab|
|00000590| 65 6e 20 53 69 65 20 62 | 65 69 20 64 65 6e 20 65 |en Sie b|ei den e|
|000005a0| 69 6e 7a 65 6c 6e 65 6e | 20 41 72 62 65 69 74 73 |inzelnen| Arbeits|
|000005b0| 6d 69 74 74 65 6c 6e 20 | 64 69 65 73 65 72 20 45 |mitteln |dieser E|
|000005c0| 69 6e 6b 75 6e 66 74 73 | 61 72 74 20 6e 75 72 20 |inkunfts|art nur |
|000005d0| 4b 6f 73 74 65 6e 20 66 | fc 72 20 41 72 62 65 69 |Kosten f|.r Arbei|
|000005e0| 74 73 6d 69 74 74 65 6c | 20 69 6e 20 48 f6 68 65 |tsmittel| in H.he|
|000005f0| 20 76 6f 6e 20 22 2b 73 | 74 72 69 6e 67 28 5b 5e | von "+s|tring([^|
|00000600| 2e 24 32 39 35 39 5d 29 | 2b 22 20 5c 63 20 7a 75 |.$2959])|+" \c zu|
|00000610| 67 65 6f 72 64 6e 65 74 | 2e 5c 6e 5c 72 5c 6e 5c |geordnet|.\n\r\n\|
|00000620| 72 57 6f 6c 6c 65 6e 20 | 53 69 65 20 49 68 72 65 |rWollen |Sie Ihre|
|00000630| 20 41 6e 67 61 62 65 6e | 20 6b 6f 72 72 69 67 69 | Angaben| korrigi|
|00000640| 65 72 65 6e 3f 22 00 22 | 42 65 74 72 61 67 20 66 |eren?"."|Betrag f|
|00000650| fc 72 20 41 72 62 65 69 | 74 73 6d 69 74 74 65 6c |.r Arbei|tsmittel|
|00000660| 20 fc 62 65 72 73 63 68 | 72 69 74 74 65 6e 22 00 | .bersch|ritten".|
|00000670| 69 66 28 21 5b 24 32 39 | 33 32 5d 2c 5b 24 32 39 |if(![$29|32],[$29|
|00000680| 33 33 5d 3c 3d 5b 5e 2e | 24 32 32 37 5d 2c 7e 54 |33]<=[^.|$227],~T|
|00000690| 29 00 22 53 69 65 20 68 | 61 62 65 6e 20 69 6e 20 |)."Sie h|aben in |
|000006a0| 64 69 65 73 65 6d 20 46 | 65 6e 73 74 65 72 20 65 |diesem F|enster e|
|000006b0| 69 6e 65 6e 20 42 65 74 | 72 61 67 20 66 fc 72 20 |inen Bet|rag f.r |
|000006c0| 54 65 6c 65 66 6f 6e 6b | 6f 73 74 65 6e 20 69 6e |Telefonk|osten in|
|000006d0| 20 48 f6 68 65 20 76 6f | 6e 20 22 2b 73 74 72 69 | H.he vo|n "+stri|
|000006e0| 6e 67 28 5b 24 32 39 33 | 33 5d 29 2b 22 20 5c 63 |ng([$293|3])+" \c|
|000006f0| 20 61 6e 67 65 67 65 62 | 65 6e 2e 20 49 6d 20 46 | angegeb|en. Im F|
|00000700| 65 6e 73 74 65 72 20 bb | 57 65 72 62 75 6e 67 73 |enster .|Werbungs|
|00000710| 6b 6f 73 74 65 6e 3a 20 | 54 65 6c 65 66 6f 6e 6b |kosten: |Telefonk|
|00000720| 6f 73 74 65 6e ab 20 68 | 61 62 65 6e 20 53 69 65 |osten. h|aben Sie|
|00000730| 20 62 65 69 20 64 65 6e | 20 65 69 6e 7a 65 6c 6e | bei den| einzeln|
|00000740| 65 6e 20 41 62 72 65 63 | 68 6e 75 6e 67 65 6e 20 |en Abrec|hnungen |
|00000750| 64 69 65 73 65 72 20 45 | 69 6e 6b 75 6e 66 74 73 |dieser E|inkunfts|
|00000760| 61 72 74 20 6e 75 72 20 | 54 65 6c 65 66 6f 6e 6b |art nur |Telefonk|
|00000770| 6f 73 74 65 6e 20 69 6e | 20 48 f6 68 65 20 76 6f |osten in| H.he vo|
|00000780| 6e 20 22 2b 73 74 72 69 | 6e 67 28 5b 5e 2e 24 32 |n "+stri|ng([^.$2|
|00000790| 32 37 5d 29 2b 22 20 5c | 63 20 7a 75 67 65 6f 72 |27])+" \|c zugeor|
|000007a0| 64 6e 65 74 2e 5c 6e 5c | 72 5c 6e 5c 72 57 6f 6c |dnet.\n\|r\n\rWol|
|000007b0| 6c 65 6e 20 53 69 65 20 | 49 68 72 65 20 41 6e 67 |len Sie |Ihre Ang|
|000007c0| 61 62 65 6e 20 6b 6f 72 | 72 69 67 69 65 72 65 6e |aben kor|rigieren|
|000007d0| 3f 22 00 22 42 65 74 72 | 61 67 20 66 fc 72 20 54 |?"."Betr|ag f.r T|
|000007e0| 65 6c 65 66 6f 6e 6b 6f | 73 74 65 6e 20 fc 62 65 |elefonko|sten .be|
|000007f0| 72 73 63 68 72 69 74 74 | 65 6e 22 00 69 66 28 21 |rschritt|en".if(!|
|00000800| 5b 24 32 39 33 35 5d 2c | 5b 24 32 39 33 36 5d 3c |[$2935],|[$2936]<|
|00000810| 3d 5b 5e 2e 24 32 30 35 | 5d 2c 7e 54 29 00 22 53 |=[^.$205|],~T)."S|
|00000820| 69 65 20 68 61 62 65 6e | 20 69 6e 20 64 69 65 73 |ie haben| in dies|
|00000830| 65 6d 20 46 65 6e 73 74 | 65 72 20 65 69 6e 65 6e |em Fenst|er einen|
|00000840| 20 42 65 74 72 61 67 20 | 66 fc 72 20 41 72 62 65 | Betrag |f.r Arbe|
|00000850| 69 74 73 7a 69 6d 6d 65 | 72 6b 6f 73 74 65 6e 20 |itszimme|rkosten |
|00000860| 69 6e 20 48 f6 68 65 20 | 76 6f 6e 20 22 2b 73 74 |in H.he |von "+st|
|00000870| 72 69 6e 67 28 5b 24 32 | 39 33 36 5d 29 2b 22 20 |ring([$2|936])+" |
|00000880| 5c 63 20 61 6e 67 65 67 | 65 62 65 6e 2e 20 49 6d |\c angeg|eben. Im|
|00000890| 20 46 65 6e 73 74 65 72 | 20 bb 57 65 72 62 75 6e | Fenster| .Werbun|
|000008a0| 67 73 6b 6f 73 74 65 6e | 3a 20 41 72 62 65 69 74 |gskosten|: Arbeit|
|000008b0| 73 7a 69 6d 6d 65 72 ab | 20 68 61 62 65 6e 20 53 |szimmer.| haben S|
|000008c0| 69 65 20 62 65 69 20 64 | 65 6e 20 65 69 6e 7a 65 |ie bei d|en einze|
|000008d0| 6c 6e 65 6e 20 41 62 72 | 65 63 68 6e 75 6e 67 65 |lnen Abr|echnunge|
|000008e0| 6e 20 64 69 65 73 65 72 | 20 45 69 6e 6b 75 6e 66 |n dieser| Einkunf|
|000008f0| 74 73 61 72 74 20 6e 75 | 72 20 4b 6f 73 74 65 6e |tsart nu|r Kosten|
|00000900| 20 66 fc 72 20 41 72 62 | 65 69 74 73 7a 69 6d 6d | f.r Arb|eitszimm|
|00000910| 65 72 20 69 6e 20 48 f6 | 68 65 20 76 6f 6e 20 22 |er in H.|he von "|
|00000920| 2b 73 74 72 69 6e 67 28 | 5b 5e 2e 24 32 30 35 5d |+string(|[^.$205]|
|00000930| 29 2b 22 20 5c 63 20 7a | 75 67 65 6f 72 64 6e 65 |)+" \c z|ugeordne|
|00000940| 74 2e 5c 6e 5c 72 5c 6e | 5c 72 57 6f 6c 6c 65 6e |t.\n\r\n|\rWollen|
|00000950| 20 53 69 65 20 49 68 72 | 65 20 41 6e 67 61 62 65 | Sie Ihr|e Angabe|
|00000960| 6e 20 6b 6f 72 72 69 67 | 69 65 72 65 6e 3f 22 00 |n korrig|ieren?".|
|00000970| 22 42 65 74 72 61 67 20 | 66 fc 72 20 41 72 62 65 |"Betrag |f.r Arbe|
|00000980| 69 74 73 7a 69 6d 6d 65 | 72 20 fc 62 65 72 73 63 |itszimme|r .bersc|
|00000990| 68 72 69 74 74 65 6e 22 | 00 41 72 74 00 22 41 72 |hritten"|.Art."Ar|
|000009a0| 74 20 64 65 72 20 4b 6f | 73 74 65 6e 22 00 74 78 |t der Ko|sten".tx|
|000009b0| 74 53 75 6d 6d 65 00 22 | 53 75 6d 6d 65 22 00 22 |tSumme."|Summe"."|
|000009c0| 76 6f 6c 6c 65 72 20 41 | 62 7a 75 67 22 00 22 42 |voller A|bzug"."B|
|000009d0| 65 74 72 61 67 22 00 22 | 41 72 62 65 69 74 73 6d |etrag"."|Arbeitsm|
|000009e0| 69 74 74 65 6c 22 00 53 | 75 6d 6d 65 41 72 62 4d |ittel".S|ummeArbM|
|000009f0| 69 74 00 5e 2e 24 32 39 | 35 39 00 62 74 6e 41 72 |it.^.$29|59.btnAr|
|00000a00| 62 6d 00 22 2e 2e 2e 22 | 00 70 65 72 73 6f 6e 00 |bm."..."|.person.|
|00000a10| 56 6f 6c 6c 41 62 7a 75 | 67 41 72 62 4d 69 74 00 |VollAbzu|gArbMit.|
|00000a20| 22 20 22 00 24 32 39 32 | 39 00 5b 24 32 39 32 39 |" ".$292|9.[$2929|
|00000a30| 5d 00 42 65 74 72 61 67 | 41 72 62 4d 69 74 00 21 |].Betrag|ArbMit.!|
|00000a40| 5b 24 32 39 32 39 5d 00 | 24 32 39 33 30 00 22 54 |[$2929].|$2930."T|
|00000a50| 65 6c 65 66 6f 6e 6b 6f | 73 74 65 6e 22 00 53 75 |elefonko|sten".Su|
|00000a60| 6d 6d 65 54 65 6c 65 00 | 5e 2e 24 32 32 37 00 62 |mmeTele.|^.$227.b|
|00000a70| 74 6e 54 65 6c 65 00 56 | 6f 6c 6c 41 62 7a 75 67 |tnTele.V|ollAbzug|
|00000a80| 54 65 6c 65 00 24 32 39 | 33 32 00 5b 24 32 39 33 |Tele.$29|32.[$293|
|00000a90| 32 5d 00 42 65 74 72 61 | 67 54 65 6c 65 00 21 5b |2].Betra|gTele.![|
|00000aa0| 24 32 39 33 32 5d 00 24 | 32 39 33 33 00 22 41 72 |$2932].$|2933."Ar|
|00000ab0| 62 65 69 74 73 7a 69 6d | 6d 65 72 22 00 53 75 6d |beitszim|mer".Sum|
|00000ac0| 6d 65 41 72 62 52 00 5e | 2e 24 32 30 35 00 62 74 |meArbR.^|.$205.bt|
|00000ad0| 6e 41 72 62 52 00 56 6f | 6c 6c 41 62 7a 75 67 41 |nArbR.Vo|llAbzugA|
|00000ae0| 72 62 52 00 24 32 39 33 | 35 00 5b 24 32 39 33 35 |rbR.$293|5.[$2935|
|00000af0| 5d 00 42 65 74 72 61 67 | 41 72 62 52 00 21 5b 24 |].Betrag|ArbR.![$|
|00000b00| 32 39 33 35 5d 00 24 32 | 39 33 36 00 22 53 75 6d |2935].$2|936."Sum|
|00000b10| 6d 65 20 64 65 72 20 77 | 65 69 74 65 72 65 6e 20 |me der w|eiteren |
|00000b20| 4b 6f 73 74 65 6e 22 00 | 53 75 6d 6d 65 00 24 31 |Kosten".|Summe.$1|
|00000b30| 37 33 00                |                         |73.     |        |
+--------+-------------------------+-------------------------+--------+--------+